chore: Update lean toolchain

DocGen4/Hierarchy.lean

@@ -51,7 +51,7 @@ def getName : Hierarchy → Name
 def getChildren : Hierarchy → HierarchyMap
 | node _ c => c
 
-partial def insert! (h : Hierarchy) (n : Name) : Hierarchy := do
+partial def insert! (h : Hierarchy) (n : Name) : Hierarchy := Id.run $ do
   let hn := h.getName
   let mut cs := h.getChildren
   if getDepth hn ≥ getDepth n then

DocGen4/Output.lean

@@ -26,9 +26,10 @@ def getResult : HtmlM AnalyzerResult := do (←read).result
 def templateExtends {α β : Type} (base : α → HtmlM β) (new : HtmlM α) : HtmlM β :=
   new >>= base
 
-def nameToPath (n : Name) : String := do
+def nameToPath (n : Name) : String :=
-  let parts := n.components.map Name.toString
+    (parts.intersperse "/").foldl (· ++ ·) "" ++ ".html"
-  return (parts.intersperse "/").foldl (· ++ ·) "" ++ ".html"
+  where
+    parts := n.components.map Name.toString
 
 partial def moduleListAux (h : Hierarchy) : HtmlM Html := do
   if h.getChildren.toList.length == 0 then

lean-toolchain

@@ -1 +1 @@
-leanprover/lean4:nightly-2021-12-10
+leanprover/lean4:nightly-2021-12-12