21 lines
514 B
Text
21 lines
514 B
Text
import Lean
|
|
|
|
/-! Testing module documentation. -/
|
|
|
|
open Lean
|
|
|
|
def tst : MetaM Unit := do
|
|
let docs := getMainModuleDoc (← getEnv)
|
|
IO.println <| docs.toList.map λ d => repr d.doc
|
|
|
|
def printDoc (moduleName : Name) : MetaM Unit := do
|
|
match getModuleDoc? (← getEnv) moduleName with
|
|
| some docs => IO.println <| docs.toList.map λ d => repr d.doc
|
|
| _ => throwError "module not found"
|
|
|
|
/-! Another module doc. -/
|
|
|
|
#eval tst
|
|
|
|
#eval printDoc `Lean.Meta.ReduceEval
|
|
#eval printDoc `Lean.Data.Lsp.Communication
|