import DocGen4.Output.Template namespace DocGen4 namespace Output open scoped DocGen4.Jsx def ctorToHtml (i : NameInfo) : HtmlM Html := do let shortName := i.name.components'.head!.toString let name := i.name.toString return
  • {shortName} : [←infoFormatToHtml i.type]
  • def inductiveToHtml (i : InductiveInfo) : HtmlM (Array Html) := do #[Html.element "ul" false #[("class", "constructors")] (←i.ctors.toArray.mapM ctorToHtml)] end Output end DocGen4