chore: port legacy syntax to rawIdent

main
Henrik Böving 2022-05-19 17:16:40 +02:00
parent 953d9dc304
commit 2e4642e17c
2 changed files with 3 additions and 3 deletions

View File

@ -12,7 +12,7 @@ def ctorToHtml (i : NameInfo) : HtmlM Html := do
pure <li class="constructor" id={name}>{shortName} : [←infoFormatToHtml i.type]</li>
def inductiveToHtml (i : InductiveInfo) : HtmlM (Array Html) := do
let constructorsHtml := <ul "class"="constructors">[← i.ctors.toArray.mapM ctorToHtml]</ul>
let constructorsHtml := <ul class="constructors">[← i.ctors.toArray.mapM ctorToHtml]</ul>
pure #[constructorsHtml]
end Output

View File

@ -27,7 +27,7 @@ partial def moduleListDir (h : Hierarchy) : HtmlM Html := do
let fileNodes ← (files.mapM moduleListFile)
let moduleLink ← moduleNameToLink h.getName
pure
<details "class"="nav_sect" "data-path"={moduleLink}
<details class="nav_sect" "data-path"={moduleLink}
[if (←getCurrentName).any (h.getName.isPrefixOf ·) then #[("open", "")] else #[]]>
{
if (←getResult).moduleInfo.contains h.getName then
@ -44,7 +44,7 @@ def moduleList : HtmlM Html := do
let mut list := Array.empty
for (n, cs) in hierarchy.getChildren do
list := list.push $ ←moduleListDir cs
pure <div "class"="module_list">[list]</div>
pure <div class="module_list">[list]</div>
def navbar : HtmlM Html := do
pure