r
/
bookshelf-doc
mirror of https://github.com/jrpotter/bookshelf-doc
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix: Fix computability

main
Henrik Böving 2022-02-13 15:52:09 +01:00
parent 5fd2585c55
commit e6cc03b095
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
DocGen4/Process.lean
View File

@ -206,7 +206,9 @@ def valueToEq (v : DefinitionVal) : MetaM Expr := withLCtx {} {} do
def computable? (defn : Name) : MetaM Bool := do def computable? (defn : Name) : MetaM Bool := do
let cstage2Name := defn.append `_cstage2 let cstage2Name := defn.append `_cstage2
let env ← getEnv let env ← getEnv
pure $ env.find? cstage2Name |>.isSome let extern? := externAttr.getParam env defn |>.isSome
let cstage2? := env.find? cstage2Name |>.isSome
pure $ extern? ∨ cstage2?
def DefinitionInfo.ofDefinitionVal (v : DefinitionVal) : MetaM DefinitionInfo := do def DefinitionInfo.ofDefinitionVal (v : DefinitionVal) : MetaM DefinitionInfo := do
let info ← Info.ofConstantVal v.toConstantVal let info ← Info.ofConstantVal v.toConstantVal