chore: style, change $ to <|

DocGen4/IncludeStr.lean

@@ -34,21 +34,21 @@ don't have to carry them around as files.
 -/
 @[termElab includeStr] def includeStrImpl : TermElab := λ stx _ => do
   let str := stx[1].isStrLit?.get!
-  let srcPath := FilePath.mk $ ←getFileName
+  let srcPath := FilePath.mk <| ←getFileName
   let currentDir ← IO.currentDir
   -- HACK: Currently we cannot get current file path in VSCode, we have to traversely find the matched subdirectory in the current directory.
   if let some path ← match srcPath.parent with
-  | some p => pure $ some $ p / str
+  | some p => pure <| some <| p / str
   | none => do
     let foundDir ← traverseDir currentDir λ p => p / str |>.pathExists 
-    pure $ foundDir.map (· / str)
+    pure <| foundDir.map (· / str)
   then 
     if ←path.pathExists then
       if ←path.isDir then
         throwError s!"{str} is a directory"
       else
         let content ← FS.readFile path
-        pure $ mkStrLit content
+        pure <| mkStrLit content
     else
       throwError s!"{path} does not exist as a file"
   else

DocGen4/LeanInk/Output.lean

@@ -55,7 +55,7 @@ def Token.toHtml (t : Token) : AlectryonM Html := do
   -- TODO: render docstring
   let mut parts := #[]
   if let some tyi := t.typeinfo then
-    parts := parts.push $ ←tyi.toHtml
+    parts := parts.push <| ←tyi.toHtml
 
   parts := parts.push t.processSemantic
 
@@ -218,6 +218,6 @@ def moduleToHtml (module : Process.Module) (inkPath : System.FilePath) (sourceFi
     let baseCtx ← readThe SiteBaseContext
     let (html, _) := render |>.run ctx baseCtx
     pure html
-  | .error err => throw $ IO.userError s!"Error while parsing LeanInk Output: {err}"
+  | .error err => throw <| IO.userError s!"Error while parsing LeanInk Output: {err}"
 
 end DocGen4.Output.LeanInk

DocGen4/LeanInk/Process.lean

@@ -33,8 +33,8 @@ def runInk (inkPath : System.FilePath) (sourceFilePath : System.FilePath) : IO J
     match Json.parse output with
     | .ok out => pure out
     | .error err =>
-      throw $ IO.userError s!"LeanInk returned invalid JSON for file: {sourceFilePath}:\n{err}"
+      throw <| IO.userError s!"LeanInk returned invalid JSON for file: {sourceFilePath}:\n{err}"
   | code =>
-    throw $ IO.userError s!"LeanInk exited with code {code} for file: {sourceFilePath}:\n{←inkProcess.stderr.readToEnd}"
+    throw <| IO.userError s!"LeanInk exited with code {code} for file: {sourceFilePath}:\n{←inkProcess.stderr.readToEnd}"
 
 end DocGen4.Output.LeanInk

DocGen4/Load.lean

@@ -21,7 +21,7 @@ as well as all the dependencies.
 -/
 def lakeSetup (imports : List String) : IO (Except UInt32 Lake.Workspace) := do
   let (leanInstall?, lakeInstall?) ← Lake.findInstall?
-  match ←(EIO.toIO' $ Lake.mkLoadConfig {leanInstall?, lakeInstall?}) with
+  match ←(EIO.toIO' <| Lake.mkLoadConfig {leanInstall?, lakeInstall?}) with
   | .ok config =>
     let ws : Lake.Workspace ← Lake.loadWorkspace config |>.run Lake.MonadLog.eio
     let libraryLeanGitHash := ws.env.lean.githash
@@ -30,16 +30,16 @@ def lakeSetup (imports : List String) : IO (Except UInt32 Lake.Workspace) := do
     let ctx ← Lake.mkBuildContext ws
     (ws.root.buildImportsAndDeps imports *> pure ()) |>.run Lake.MonadLog.eio ctx
     initSearchPath (←findSysroot) ws.leanPaths.oleanPath
-    pure $ Except.ok ws
+    pure <| Except.ok ws
   | .error err =>
-    throw $ IO.userError err.toString
+    throw <| IO.userError err.toString
 
 def envOfImports (imports : List Name) : IO Environment := do
  importModules (imports.map (Import.mk · false)) Options.empty
 
 def loadInit (imports : List Name) : IO Hierarchy := do
  let env ← envOfImports imports
- pure $ Hierarchy.fromArray env.header.moduleNames
+ pure <| Hierarchy.fromArray env.header.moduleNames
 
 /--
 Load a list of modules from the current Lean search path into an `Environment`

DocGen4/Output.lean

@@ -90,7 +90,7 @@ def htmlOutputResults (baseConfig : SiteBaseContext) (result : AnalyzerResult) (
   --let sourceSearchPath := ((←Lean.findSysroot) / "src" / "lean") :: ws.root.srcDir :: ws.leanSrcPath
   let sourceSearchPath := ws.root.srcDir :: ws.leanSrcPath
 
-  discard $ htmlOutputDeclarationDatas result |>.run config baseConfig
+  discard <| htmlOutputDeclarationDatas result |>.run config baseConfig
 
   for (modName, module) in result.moduleInfo.toArray do
     let fileDir := moduleNameToDirectory basePath modName
@@ -99,7 +99,7 @@ def htmlOutputResults (baseConfig : SiteBaseContext) (result : AnalyzerResult) (
     -- The last component is the file name, so we drop it from the depth to root.
     let baseConfig := { baseConfig with depthToRoot := modName.components.dropLast.length }
     let moduleHtml := moduleToHtml module |>.run config baseConfig
-    FS.createDirAll $ fileDir
+    FS.createDirAll fileDir
     FS.writeFile filePath moduleHtml.toString
     if let some inkPath := inkPath then
       if let some inputPath ← Lean.SearchPath.findModuleWithExt sourceSearchPath "lean" module.name then

DocGen4/Output/Base.lean

@@ -75,7 +75,7 @@ def getRoot : BaseHtmlM String := do
 def getHierarchy : BaseHtmlM Hierarchy := do pure (←read).hierarchy
 def getCurrentName : BaseHtmlM (Option Name) := do pure (←read).currentName
 def getResult : HtmlM AnalyzerResult := do pure (←read).result
-def getSourceUrl (module : Name) (range : Option DeclarationRange): HtmlM String := do pure $ (←read).sourceLinker module range
+def getSourceUrl (module : Name) (range : Option DeclarationRange): HtmlM String := do pure <| (←read).sourceLinker module range
 def leanInkEnabled? : HtmlM Bool := do pure (←read).leanInkEnabled
 
 /--
@@ -93,7 +93,7 @@ Returns the doc-gen4 link to a module name.
 -/
 def moduleNameToLink (n : Name) : BaseHtmlM String := do
   let parts := n.components.map Name.toString
-  pure $ (← getRoot) ++ (parts.intersperse "/").foldl (· ++ ·) "" ++ ".html"
+  pure <| (← getRoot) ++ (parts.intersperse "/").foldl (· ++ ·) "" ++ ".html"
 
 /--
 Returns the HTML doc-gen4 link to a module name.
@@ -106,7 +106,7 @@ Returns the LeanInk link to a module name.
 -/
 def moduleNameToInkLink (n : Name) : BaseHtmlM String := do
   let parts := "src" :: n.components.map Name.toString
-  pure $ (← getRoot) ++ (parts.intersperse "/").foldl (· ++ ·) "" ++ ".html"
+  pure <| (← getRoot) ++ (parts.intersperse "/").foldl (· ++ ·) "" ++ ".html"
 
 /--
 Returns the path to the HTML file that contains information about a module.
@@ -149,7 +149,7 @@ Returns the doc-gen4 link to a declaration name.
 def declNameToLink (name : Name) : HtmlM String := do
   let res ← getResult
   let module := res.moduleNames[res.name2ModIdx.find! name |>.toNat]!
-  pure $ (←moduleNameToLink module) ++ "#" ++ name.toString
+  pure <| (←moduleNameToLink module) ++ "#" ++ name.toString
 
 /--
 Returns the HTML doc-gen4 link to a declaration name.
@@ -163,7 +163,7 @@ Returns the LeanInk link to a declaration name.
 def declNameToInkLink (name : Name) : HtmlM String := do
   let res ← getResult
   let module := res.moduleNames[res.name2ModIdx.find! name |>.toNat]!
-  pure $ (←moduleNameToInkLink module) ++ "#" ++ name.toString
+  pure <| (←moduleNameToInkLink module) ++ "#" ++ name.toString
 
 /--
 Returns the HTML doc-gen4 link to a declaration name with "break_within"
@@ -185,7 +185,7 @@ only `+` should be linked, taking care of this is what this function is
 responsible for.
 -/
 def splitWhitespaces (s : String) : (String × String × String) := Id.run do
-  let front := "".pushn ' ' $ s.offsetOfPos (s.find (!Char.isWhitespace ·))
+  let front := "".pushn ' ' <| s.offsetOfPos (s.find (!Char.isWhitespace ·))
   let mut s := s.trimLeft
   let back := "".pushn ' ' (s.length - s.offsetOfPos (s.find Char.isWhitespace))
   s := s.trimRight
@@ -199,7 +199,7 @@ to as much information as possible.
 partial def infoFormatToHtml (i : CodeWithInfos) : HtmlM (Array Html) := do
   match i with
   | TaggedText.text t => pure #[Html.escape t]
-  | TaggedText.append tt => tt.foldlM (λ acc t => do pure $ acc ++ (←infoFormatToHtml t)) #[]
+  | TaggedText.append tt => tt.foldlM (λ acc t => do pure <| acc ++ (←infoFormatToHtml t)) #[]
   | TaggedText.tag a t =>
     match a.info.val.info with
     | Info.ofTermInfo i =>
@@ -207,7 +207,7 @@ partial def infoFormatToHtml (i : CodeWithInfos) : HtmlM (Array Html) := do
       | Expr.const name _ =>
          match t with
          | TaggedText.text t =>
-           let (front, t, back) := splitWhitespaces $ Html.escape t
+           let (front, t, back) := splitWhitespaces <| Html.escape t
            let elem := <a href={←declNameToLink name}>{t}</a>
            pure #[Html.text front, elem, Html.text back]
          | _ =>

DocGen4/Output/DocString.lean

@@ -161,7 +161,7 @@ def autoLink (el : Element) : HtmlM Element := do
       match link? with
       | some link => 
         let attributes := Std.RBMap.empty.insert "href" link
-        pure [Content.Element $ Element.Element "a" attributes #[Content.Character s]]
+        pure [Content.Element <| Element.Element "a" attributes #[Content.Character s]]
       | none =>
         let sHead := s.dropRightWhile (λ c => c ≠ '.')
         let sTail := s.takeRightWhile (λ c => c ≠ '.')
@@ -171,7 +171,7 @@ def autoLink (el : Element) : HtmlM Element := do
           let attributes := Std.RBMap.empty.insert "href" link'
           pure [
             Content.Character sHead,
-            Content.Element $ Element.Element "a" attributes #[Content.Character sTail]
+            Content.Element <| Element.Element "a" attributes #[Content.Character sTail]
           ]
         | none =>
           pure [Content.Character s]
@@ -204,7 +204,7 @@ def docStringToHtml (s : String) : HtmlM (Array Html) := do
   match manyDocument rendered.mkIterator with
   | Parsec.ParseResult.success _ res => 
     res.mapM λ x => do
-      pure (Html.text $ toString (← modifyElement x))
+      pure (Html.text <| toString (← modifyElement x))
   | _ => pure #[Html.text rendered]
 
 end Output

DocGen4/Output/Index.lean

@@ -11,12 +11,13 @@ namespace Output
 
 open scoped DocGen4.Jsx
 
-def index : BaseHtmlM Html := do templateExtends (baseHtml "Index") $ pure $
-  <main>
-    <a id="top"></a>
-    <h1> Welcome to the documentation page </h1>
-    What is up?
-  </main>
+def index : BaseHtmlM Html := do templateExtends (baseHtml "Index") <|
+  pure <|
+    <main>
+      <a id="top"></a>
+      <h1> Welcome to the documentation page </h1>
+      What is up?
+    </main>
 
 end Output
 end DocGen4

DocGen4/Output/Module.lean

@@ -65,7 +65,7 @@ and name.
 -/
 def docInfoHeader (doc : DocInfo) : HtmlM Html := do
   let mut nodes := #[]
-  nodes := nodes.push $ Html.element "span" false #[("class", "decl_kind")] #[doc.getKindDescription]
+  nodes := nodes.push <| Html.element "span" false #[("class", "decl_kind")] #[doc.getKindDescription]
   nodes := nodes.push
     <span class="decl_name">
       <a class="break_within" href={←declNameToLink doc.getName}>
@@ -168,7 +168,7 @@ Returns the list of all imports this module does.
 -/
 def getImports (module : Name) : HtmlM (Array Name) := do
   let res ← getResult
-  pure $ res.moduleInfo.find! module |>.imports
+  pure <| res.moduleInfo.find! module |>.imports
 
 /--
 Sort the list of all modules this one is importing, linkify it
@@ -207,7 +207,7 @@ The main entry point to rendering the HTML for an entire module.
 def moduleToHtml (module : Process.Module) : HtmlM Html := withTheReader SiteBaseContext (setCurrentName module.name) do
   let memberDocs ← module.members.mapM (λ i => moduleMemberToHtml module.name i)
   let memberNames := filterMapDocInfo module.members |>.map DocInfo.getName
-  templateLiftExtends (baseHtmlGenerator module.name.toString) $ pure #[
+  templateLiftExtends (baseHtmlGenerator module.name.toString) <| pure #[
     ←internalNav memberNames module.name,
     Html.element "main" false #[] memberDocs
   ]

DocGen4/Output/Navbar.lean

@@ -49,7 +49,7 @@ def moduleList : BaseHtmlM Html := do
   let hierarchy ← getHierarchy
   let mut list := Array.empty
   for (_, cs) in hierarchy.getChildren do
-    list := list.push $ ←moduleListDir cs
+    list := list.push <| ←moduleListDir cs
   pure <div class="module_list">[list]</div>
 
 /--

DocGen4/Output/NotFound.lean

@@ -14,12 +14,13 @@ open scoped DocGen4.Jsx
 /--
 Render the 404 page.
 -/
-def notFound : BaseHtmlM Html := do templateExtends (baseHtml "404") $ pure $
-  <main>
-    <h1>404 Not Found</h1>
-    <p> Unfortunately, the page you were looking for is no longer here. </p>
-    <div id="howabout"></div>
-  </main>
+def notFound : BaseHtmlM Html := do templateExtends (baseHtml "404") <|
+  pure <|
+    <main>
+      <h1>404 Not Found</h1>
+      <p> Unfortunately, the page you were looking for is no longer here. </p>
+      <div id="howabout"></div>
+    </main>
 
 end Output
 end DocGen4

DocGen4/Output/SourceLinker.lean

@@ -27,7 +27,7 @@ def getGithubBaseUrl (gitUrl : String) : String := Id.run do
     url := url.dropRight 4
     pure s!"https://github.com/{url}"
   else if url.endsWith ".git" then
-    pure $ url.dropRight 4
+    pure <| url.dropRight 4
   else
     pure url
 
@@ -70,7 +70,7 @@ def sourceLinker (ws : Lake.Workspace) : IO (Name → Option DeclarationRange
         | _ => ("https://example.com", "master")
       gitMap := gitMap.insert dep.name value
 
-  pure $ λ module range =>
+  pure λ module range =>
     let parts := module.components.map Name.toString
     let path := (parts.intersperse "/").foldl (· ++ ·) ""
     let root := module.getRoot

DocGen4/Output/ToHtmlFormat.lean

@@ -104,7 +104,7 @@ def translateAttrs (attrs : Array (TSyntax `DocGen4.Jsx.jsxAttr)) : MacroM (TSyn
     | `(jsxAttr| $n:jsxAttrName=$v:jsxAttrVal) =>
       let n ← match n with
         | `(jsxAttrName| $n:str) => pure n
-        | `(jsxAttrName| $n:ident) => pure $ quote (toString n.getId)
+        | `(jsxAttrName| $n:ident) => pure <| quote (toString n.getId)
         | _ => Macro.throwUnsupported
       let v ← match v with
         | `(jsxAttrVal| {$v}) => pure v
@@ -128,7 +128,7 @@ private def htmlHelper (n : Syntax) (children : Array Syntax) (m : Syntax) : Mac
     | `(jsxChild|$e:jsxElement) => `(($cs).push ($e:jsxElement : Html))
     | _                         => Macro.throwUnsupported
   let tag := toString n.getId
-  pure $ (tag, cs)
+  pure <| (tag, cs)
 
 macro_rules
   | `(<$n $attrs* />) => do

DocGen4/Output/ToJson.lean

@@ -47,6 +47,6 @@ def Process.Module.toJson (module : Process.Module) : HtmlM Json := do
       instances := instances
       imports := module.imports.map Name.toString
     }
-    pure $ ToJson.toJson jsonMod
+    pure <| ToJson.toJson jsonMod
 
 end DocGen4.Output

DocGen4/Process/Analyze.lean

@@ -79,15 +79,6 @@ def getDocString : ModuleMember → Option String
 
 end ModuleMember
 
-def getRelevantModules (imports : List Name) : MetaM (HashSet Name) := do
-  let env ← getEnv
-  let mut relevant := .empty
-  for module in env.header.moduleNames do
-    for import in imports do
-      if import == module then
-        relevant := relevant.insert module
-  pure relevant
-
 inductive AnalyzeTask where
 | loadAll (load : List Name) : AnalyzeTask
 | loadAllLimitAnalysis (analyze : List Name) : AnalyzeTask
@@ -104,7 +95,7 @@ def getAllModuleDocs (relevantModules : Array Name) : MetaM (HashMap Name Module
     let some modIdx := env.getModuleIdx? module | unreachable!
     let moduleData := env.header.moduleData.get! modIdx
     let imports := moduleData.imports.map Import.module
-    res := res.insert module $ Module.mk module modDocs imports
+    res := res.insert module <| Module.mk module modDocs imports
   pure res
 
 /--
@@ -113,9 +104,9 @@ of this `MetaM` run and mentioned by the `AnalyzeTask`.
 -/
 def process (task : AnalyzeTask) : MetaM (AnalyzerResult × Hierarchy) := do
   let env ← getEnv
-  let relevantModules ← match task with
-    | .loadAll _ => pure $ HashSet.fromArray env.header.moduleNames
-    | .loadAllLimitAnalysis analysis => getRelevantModules analysis
+  let relevantModules := match task with
+    | .loadAll _ => HashSet.fromArray env.header.moduleNames
+    | .loadAllLimitAnalysis analysis => HashSet.fromArray analysis.toArray
   let allModules := env.header.moduleNames
 
   let mut res ← getAllModuleDocs relevantModules.toArray

DocGen4/Process/Attributes.lean

@@ -101,11 +101,11 @@ def parametricAttributes : Array ParametricAttrWrapper := #[⟨externAttr⟩,
 
 def getTags (decl : Name) : MetaM (Array String) := do
   let env ← getEnv
-  pure $ tagAttributes.filter (TagAttribute.hasTag · env decl) |>.map (λ t => t.attr.name.toString)
+  pure <| tagAttributes.filter (TagAttribute.hasTag · env decl) |>.map (λ t => t.attr.name.toString)
 
 def getValuesAux {α : Type} {attrKind : Type → Type} [va : ValueAttr attrKind] [Inhabited α] [ToString α] (decl : Name) (attr : attrKind α) : MetaM (Option String) := do
   let env ← getEnv
-  pure $ va.getValue attr env decl
+  pure <| va.getValue attr env decl
 
 def getValues {attrKind : Type → Type} [ValueAttr attrKind] (decl : Name) (attrs : Array (ValueAttrWrapper attrKind)) : MetaM (Array String) := do
   let env ← getEnv
@@ -122,12 +122,12 @@ def getDefaultInstance (decl : Name) (className : Name) : MetaM (Option String)
   let insts ← getDefaultInstances className
   for (inst, prio) in insts do
     if inst == decl then
-      return some $ s!"defaultInstance {prio}"
+      return some s!"defaultInstance {prio}"
   pure none
 
 def hasSimp (decl : Name) : MetaM (Option String) := do
   let thms ← simpExtension.getTheorems
-  pure $
+  pure <|
     if thms.isLemma decl then
       some "simp"
     else
@@ -135,7 +135,7 @@ def hasSimp (decl : Name) : MetaM (Option String) := do
 
 def hasCsimp (decl : Name) : MetaM (Option String) := do
   let env ← getEnv
-  pure $
+  pure <|
     if Compiler.hasCSimpAttribute env decl then
       some "csimp"
     else
@@ -163,6 +163,6 @@ def getAllAttributes (decl : Name) : MetaM (Array String) := do
   let enums ← getEnumValues decl
   let parametric ← getParametricValues decl
   let customs ← getCustomAttrs decl
-  pure $ customs ++ tags ++ enums ++ parametric
+  pure <| customs ++ tags ++ enums ++ parametric
 
 end DocGen4

DocGen4/Process/AxiomInfo.lean

@@ -14,6 +14,6 @@ open Lean Meta
 
 def AxiomInfo.ofAxiomVal (v : AxiomVal) : MetaM AxiomInfo := do
   let info ← Info.ofConstantVal v.toConstantVal
-  pure $ AxiomInfo.mk info v.isUnsafe
+  pure <| AxiomInfo.mk info v.isUnsafe
 
 end DocGen4.Process

DocGen4/Process/Base.lean

@@ -176,9 +176,9 @@ def prettyPrintTerm (expr : Expr) : MetaM CodeWithInfos := do
     fileMap := default,
     ngen := ← getNGen
   }
-  pure $ tagExprInfos ctx infos tt
+  pure <| tagExprInfos ctx infos tt
 
 def isInstance (declName : Name) : MetaM Bool := do
-  pure $ (instanceExtension.getState (←getEnv)).instanceNames.contains declName
+  pure <| (instanceExtension.getState (←getEnv)).instanceNames.contains declName
 
 end DocGen4.Process

DocGen4/Process/DefinitionInfo.lean

@@ -45,13 +45,13 @@ def DefinitionInfo.ofDefinitionVal (v : DefinitionVal) : MetaM DefinitionInfo :=
     match eqs? with
     | some eqs =>
       let prettyEqs ← eqs.mapM processEq
-      pure $ DefinitionInfo.mk info isUnsafe v.hints prettyEqs isNonComput
+      pure <| DefinitionInfo.mk info isUnsafe v.hints prettyEqs isNonComput
     | none =>
-      let eq ← prettyPrintTerm $ stripArgs (←valueToEq v)
-      pure $ DefinitionInfo.mk info isUnsafe v.hints (some #[eq]) isNonComput
+      let eq ← prettyPrintTerm <| stripArgs (←valueToEq v)
+      pure <| DefinitionInfo.mk info isUnsafe v.hints (some #[eq]) isNonComput
   catch err =>
     IO.println s!"WARNING: Failed to calculate equational lemmata for {v.name}: {←err.toMessageData.toString}"
-    pure $ DefinitionInfo.mk info isUnsafe v.hints none isNonComput
+    pure <| DefinitionInfo.mk info isUnsafe v.hints none isNonComput
 
 
 end DocGen4.Process

DocGen4/Process/DocInfo.lean

@@ -103,8 +103,8 @@ def isBlackListed (declName : Name) : MetaM Bool := do
   | some _ =>
     let env ← getEnv
     pure (declName.isInternal)
-    <||> (pure $ isAuxRecursor env declName)
-    <||> (pure $ isNoConfusion env declName)
+    <||> (pure <| isAuxRecursor env declName)
+    <||> (pure <| isNoConfusion env declName)
     <||> isRec declName
     <||> isMatcher declName
   -- TODO: Evaluate whether filtering out declarations without range is sensible
@@ -134,10 +134,10 @@ def ofConstant : (Name × ConstantInfo) → MetaM (Option DocInfo) := λ (name,
   | ConstantInfo.thmInfo i => pure <| some <| theoremInfo (←TheoremInfo.ofTheoremVal i)
   | ConstantInfo.opaqueInfo i => pure <| some <| opaqueInfo (←OpaqueInfo.ofOpaqueVal i)
   | ConstantInfo.defnInfo i =>
-    if ← (isProjFn i.name) then
+    if ←isProjFn i.name then
       pure none
     else
-      if (←isInstance i.name) then
+      if ←isInstance i.name then
         let info ← InstanceInfo.ofDefinitionVal i
         pure <| some <| instanceInfo info
       else
@@ -156,9 +156,7 @@ def ofConstant : (Name × ConstantInfo) → MetaM (Option DocInfo) := λ (name,
       else
         pure <| some <| inductiveInfo (←InductiveInfo.ofInductiveVal i)
   -- we ignore these for now
-  | ConstantInfo.ctorInfo i => pure none
-  | ConstantInfo.recInfo i => pure none
-  | ConstantInfo.quotInfo i => pure none
+  | ConstantInfo.ctorInfo _ | ConstantInfo.recInfo _ | ConstantInfo.quotInfo _ => pure none
 
 def getKindDescription : DocInfo → String
 | axiomInfo i => if i.isUnsafe then "unsafe axiom" else "axiom"
@@ -179,7 +177,7 @@ def getKindDescription : DocInfo → String
       modifiers := modifiers.push "noncomputable"
 
     modifiers := modifiers.push "def"
-    pure $ String.intercalate " " modifiers.toList
+    pure <| String.intercalate " " modifiers.toList
 | instanceInfo i => Id.run do
   let mut modifiers := #[]
   if i.isUnsafe then
@@ -188,7 +186,7 @@ def getKindDescription : DocInfo → String
     modifiers := modifiers.push "noncomputable"
 
   modifiers := modifiers.push "instance"
-  pure $ String.intercalate " " modifiers.toList
+  pure <| String.intercalate " " modifiers.toList
 | inductiveInfo i => if i.isUnsafe then "unsafe inductive" else "inductive"
 | structureInfo _ => "structure"
 | classInfo _ => "class"

DocGen4/Process/Hierarchy.lean

@@ -57,28 +57,28 @@ def getChildren : Hierarchy → HierarchyMap
 def isFile : Hierarchy → Bool
 | node _ f _ => f
 
-partial def insert! (h : Hierarchy) (n : Name) : Hierarchy := Id.run $ do
+partial def insert! (h : Hierarchy) (n : Name) : Hierarchy := Id.run do
   let hn := h.getName
   let mut cs := h.getChildren
 
   if getNumParts hn + 1 == getNumParts n then
     match cs.find Name.cmp n with
     | none =>
-      node hn h.isFile (cs.insert Name.cmp n $ empty n true)
+      node hn h.isFile (cs.insert Name.cmp n <| empty n true)
     | some (node _ true _) => h
     | some (node _ false ccs) =>
         cs := cs.erase Name.cmp n
-        node hn h.isFile (cs.insert Name.cmp n $ node n true ccs)
+        node hn h.isFile (cs.insert Name.cmp n <| node n true ccs)
   else
     let leveledName := getNLevels n (getNumParts hn + 1)
     match cs.find Name.cmp leveledName with
     | some nextLevel =>
       cs := cs.erase Name.cmp leveledName
       -- BUG?
-      node hn h.isFile $ cs.insert Name.cmp leveledName (nextLevel.insert! n)
+      node hn h.isFile <| cs.insert Name.cmp leveledName (nextLevel.insert! n)
     | none =>
       let child := (insert! (empty leveledName false) n)
-      node hn h.isFile $ cs.insert Name.cmp leveledName child
+      node hn h.isFile <| cs.insert Name.cmp leveledName child
 
 partial def fromArray (names : Array Name) : Hierarchy :=
   names.foldl insert! (empty anonymous false)
@@ -106,7 +106,7 @@ partial def fromDirectoryAux (dir : System.FilePath) (previous : Name) : IO (Arr
     if (←entry.path.isDir) then
       children := children ++ (←fromDirectoryAux entry.path (.str previous entry.fileName))
     else
-      children := children.push $ .str previous (entry.fileName.dropRight ".html".length)
+      children := children.push <| .str previous (entry.fileName.dropRight ".html".length)
   pure children
 
 def fromDirectory (dir : System.FilePath) : IO Hierarchy := do
@@ -114,7 +114,7 @@ def fromDirectory (dir : System.FilePath) : IO Hierarchy := do
     for entry in ←System.FilePath.readDir dir do
       if !baseDirBlackList.contains entry.fileName && (←entry.path.isDir) then
         children := children ++ (←fromDirectoryAux entry.path (.mkSimple entry.fileName))
-    pure $ Hierarchy.fromArray children
+    pure <| Hierarchy.fromArray children
 
 end Hierarchy
 end DocGen4

DocGen4/Process/InductiveInfo.lean

@@ -22,6 +22,6 @@ def InductiveInfo.ofInductiveVal (v : InductiveVal) : MetaM InductiveInfo := do
   let info ← Info.ofConstantVal v.toConstantVal
   let env ← getEnv
   let ctors ← v.ctors.mapM (λ name => do NameInfo.ofTypedName name (←getConstructorType name))
-  pure $ InductiveInfo.mk info ctors v.isUnsafe
+  pure <| InductiveInfo.mk info ctors v.isUnsafe
 
 end DocGen4.Process

DocGen4/Process/InstanceInfo.lean

@@ -17,8 +17,8 @@ def InstanceInfo.ofDefinitionVal (v : DefinitionVal) : MetaM InstanceInfo := do
   let info ← DefinitionInfo.ofDefinitionVal v
   let some className := getClassName (←getEnv) v.type | unreachable!
   if let some instAttr ← getDefaultInstance v.name className then
-    pure $ InstanceInfo.mk { info with attrs := info.attrs.push instAttr } className
+    pure <| InstanceInfo.mk { info with attrs := info.attrs.push instAttr } className
   else
-    pure $ InstanceInfo.mk info className
+    pure <| InstanceInfo.mk info className
 
 end DocGen4.Process

DocGen4/Process/NameInfo.lean

@@ -35,11 +35,11 @@ partial def typeToArgsType (e : Expr) : (Array (Name × Expr × BinderInfo) × E
 
 def Info.ofConstantVal (v : ConstantVal) : MetaM Info := do
   let (args, type) := typeToArgsType v.type
-  let args ← args.mapM (λ (n, e, b) => do pure $ Arg.mk n (←prettyPrintTerm e) b)
+  let args ← args.mapM (λ (n, e, b) => do pure <| Arg.mk n (←prettyPrintTerm e) b)
   let nameInfo ← NameInfo.ofTypedName v.name type
   match ←findDeclarationRanges? v.name with
   -- TODO: Maybe selection range is more relevant? Figure this out in the future
-  | some range => pure $ Info.mk nameInfo args range.range (←getAllAttributes v.name)
+  | some range => pure <| Info.mk nameInfo args range.range (←getAllAttributes v.name)
   | none => panic! s!"{v.name} is a declaration without position"
 
 end DocGen4.Process

DocGen4/Process/OpaqueInfo.lean

@@ -18,9 +18,9 @@ def OpaqueInfo.ofOpaqueVal (v : OpaqueVal) : MetaM OpaqueInfo := do
   let env ← getEnv
   let isPartial := env.find? (Compiler.mkUnsafeRecName v.name) |>.isSome
   if isPartial then
-    pure $ OpaqueInfo.mk info t DefinitionSafety.partial
+    pure <| OpaqueInfo.mk info t DefinitionSafety.partial
   else
     let safety := if v.isUnsafe then DefinitionSafety.unsafe else DefinitionSafety.safe
-    pure $ OpaqueInfo.mk info t safety
+    pure <| OpaqueInfo.mk info t safety
 
 end DocGen4.Process

DocGen4/Process/StructureInfo.lean

@@ -17,7 +17,7 @@ def dropArgs (type : Expr) (n : Nat) : (Expr × List (Name × Expr)) :=
   match type, n with
   | e, 0 => (e, [])
   | Expr.forallE name type body _, x + 1 =>
-    let body := body.instantiate1 $ mkFVar ⟨name⟩
+    let body := body.instantiate1 <| mkFVar ⟨name⟩
     let next := dropArgs body x
     { next with snd := (name, type) :: next.snd}
   | e, x + 1 => panic! s!"No forallE left"
@@ -28,8 +28,8 @@ def getFieldTypes (struct : Name) (ctor : ConstructorVal) (parents : Nat) : Meta
   let (_, fields) := dropArgs fieldFunction (ctor.numFields - parents)
   let mut fieldInfos := #[]
   for (name, type) in fields do
-    fieldInfos := fieldInfos.push $ ←NameInfo.ofTypedName (struct.append name) type
-  pure $ fieldInfos
+    fieldInfos := fieldInfos.push <| ←NameInfo.ofTypedName (struct.append name) type
+  pure <| fieldInfos
 
 def StructureInfo.ofInductiveVal (v : InductiveVal) : MetaM StructureInfo := do
   let info ← Info.ofConstantVal v.toConstantVal
@@ -39,9 +39,9 @@ def StructureInfo.ofInductiveVal (v : InductiveVal) : MetaM StructureInfo := do
   match getStructureInfo? env v.name with
   | some i =>
     if i.fieldNames.size - parents.size > 0 then
-      pure $ StructureInfo.mk info (←getFieldTypes v.name ctor parents.size) parents (←NameInfo.ofTypedName ctor.name ctor.type)
+      pure <| StructureInfo.mk info (←getFieldTypes v.name ctor parents.size) parents (←NameInfo.ofTypedName ctor.name ctor.type)
     else
-      pure $ StructureInfo.mk info #[] parents (←NameInfo.ofTypedName ctor.name ctor.type)
+      pure <| StructureInfo.mk info #[] parents (←NameInfo.ofTypedName ctor.name ctor.type)
   | none => panic! s!"{v.name} is not a structure"
 
 end DocGen4.Process

DocGen4/Process/TheoremInfo.lean

@@ -14,6 +14,6 @@ open Lean Meta
 
 def TheoremInfo.ofTheoremVal (v : TheoremVal) : MetaM TheoremInfo := do
   let info ← Info.ofConstantVal v.toConstantVal
-  pure $ TheoremInfo.mk info
+  pure <| TheoremInfo.mk info
 
 end DocGen4.Process

Main.lean

@@ -9,15 +9,15 @@ def findLeanInk? (p : Parsed) : IO (Option System.FilePath) := do
   | some ink =>
     let inkPath := System.FilePath.mk ink.value
     if ←inkPath.pathExists then
-      pure $ some inkPath
+      pure <| some inkPath
     else
-      throw $ IO.userError "Invalid path to LeanInk binary provided"
+      throw <| IO.userError "Invalid path to LeanInk binary provided"
   | none => pure none
 
 def getTopLevelModules (p : Parsed) : IO (List String) :=  do
   let topLevelModules := p.variableArgsAs! String |>.toList
   if topLevelModules.length == 0 then
-    throw $ IO.userError "No topLevelModules provided."
+    throw <| IO.userError "No topLevelModules provided."
   pure topLevelModules
 
 def runSingleCmd (p : Parsed) : IO UInt32 := do
@@ -42,7 +42,7 @@ def runIndexCmd (p : Parsed) : IO UInt32 := do
 def runDocGenCmd (p : Parsed) : IO UInt32 := do
   let modules : List String := p.variableArgsAs! String |>.toList
   if modules.length == 0 then
-    throw $ IO.userError "No modules provided."
+    throw <| IO.userError "No modules provided."
 
   let res ← lakeSetup modules
   match res with