chore: update to latest nightly

main
Henrik Böving 2022-05-21 12:50:55 +02:00
parent 3de930be31
commit e8fb9a7f0f
5 changed files with 7 additions and 6 deletions

View File

@ -6,6 +6,7 @@ Authors: Henrik Böving
import Lean import Lean
import Lake import Lake
import Lake.CLI.Main
import DocGen4.Process import DocGen4.Process
import Std.Data.HashMap import Std.Data.HashMap

View File

@ -28,7 +28,7 @@ structure ValueAttrWrapper (attrKind : Type → Type) [ValueAttr attrKind] where
/-- /--
Obtain the value of an enum attribute for a certain name. Obtain the value of an enum attribute for a certain name.
-/ -/
def enumGetValue {α : Type} [Inhabited α] [ToString α] (attr : EnumAttributes α) (env : Environment) (decl : Name) : Option String := OptionM.run do def enumGetValue {α : Type} [Inhabited α] [ToString α] (attr : EnumAttributes α) (env : Environment) (decl : Name) : Option String := do
let val ← EnumAttributes.getValue attr env decl let val ← EnumAttributes.getValue attr env decl
some (toString val) some (toString val)
@ -38,7 +38,7 @@ instance : ValueAttr EnumAttributes where
/-- /--
Obtain the value of a parametric attribute for a certain name. Obtain the value of a parametric attribute for a certain name.
-/ -/
def parametricGetValue {α : Type} [Inhabited α] [ToString α] (attr : ParametricAttribute α) (env : Environment) (decl : Name) : Option String := OptionM.run do def parametricGetValue {α : Type} [Inhabited α] [ToString α] (attr : ParametricAttribute α) (env : Environment) (decl : Name) : Option String := do
let val ← ParametricAttribute.getParam attr env decl let val ← ParametricAttribute.getParam attr env decl
some (attr.attr.name.toString ++ " " ++ toString val) some (attr.attr.name.toString ++ " " ++ toString val)

View File

@ -167,7 +167,7 @@ inductive DocInfo where
Turns an `Expr` into a pretty printed `CodeWithInfos`. Turns an `Expr` into a pretty printed `CodeWithInfos`.
-/ -/
def prettyPrintTerm (expr : Expr) : MetaM CodeWithInfos := do def prettyPrintTerm (expr : Expr) : MetaM CodeWithInfos := do
let (fmt, infos) ← formatInfos expr let (fmt, infos) ← PrettyPrinter.ppExprWithInfos expr
let tt := TaggedText.prettyTagged fmt let tt := TaggedText.prettyTagged fmt
let ctx := { let ctx := {
env := ← getEnv env := ← getEnv

View File

@ -15,11 +15,11 @@ package «doc-gen4» {
}, },
{ {
name := `Cli name := `Cli
src := Source.git "https://github.com/mhuisi/lean4-cli" "1f8663e3dafdcc11ff476d74ef9b99ae5bdaedd3" src := Source.git "https://github.com/mhuisi/lean4-cli" "159a20e5e165b1bbe070594b5969d8147241bb04"
}, },
{ {
name := `lake name := `lake
src := Source.git "https://github.com/leanprover/lake" "d961d8cfaa1c354c10f3fed55b32de85c205f4ab" src := Source.git "https://github.com/leanprover/lake" "cb0eab4cbcfe58090b3c739e1e90982804597704"
} }
] ]
} }

View File

@ -1 +1 @@
leanprover/lean4:nightly-2022-04-16 leanprover/lean4:nightly-2022-05-27