chore: Remove obsolete TODOs
parent
8a58752c56
commit
f71b2ee8b9
|
@ -30,7 +30,6 @@ def getCurrentName : HtmlM (Option Name) := do (←read).currentName
|
|||
def templateExtends {α β : Type} (base : α → HtmlM β) (new : HtmlM α) : HtmlM β :=
|
||||
new >>= base
|
||||
|
||||
-- TODO: Change this to HtmlM and auto add the root URl
|
||||
def moduleNameToLink (n : Name) : HtmlM String := do
|
||||
let parts := n.components.map Name.toString
|
||||
(←getRoot) ++ (parts.intersperse "/").foldl (· ++ ·) "" ++ ".html"
|
||||
|
|
|
@ -64,7 +64,6 @@ def docInfoHeader (doc : DocInfo) : HtmlM Html := do
|
|||
|
||||
nodes := nodes.push <span «class»="decl_args">:</span>
|
||||
nodes := nodes.push $ Html.element "div" true #[("class", "decl_type")] (←infoFormatToHtml doc.getType)
|
||||
-- TODO: The final type of the declaration
|
||||
return <div «class»="decl_header"> [nodes] </div>
|
||||
|
||||
def docInfoToHtml (doc : DocInfo) : HtmlM Html := do
|
||||
|
|
|
@ -150,7 +150,6 @@ def getConstructorType (ctor : Name) : MetaM CodeWithInfos := do
|
|||
| some (ConstantInfo.ctorInfo i) => ←prettyPrintTerm i.type
|
||||
| _ => panic! s!"Constructor {ctor} was requested but does not exist"
|
||||
|
||||
-- TODO: Obtain parameters that come after the inductive Name
|
||||
def InductiveInfo.ofInductiveVal (v : InductiveVal) : MetaM InductiveInfo := do
|
||||
let info ← Info.ofConstantVal v.toConstantVal
|
||||
let env ← getEnv
|
||||
|
|
Loading…
Reference in New Issue