chore: remove unused code

main
Henrik Böving 2022-07-21 20:27:54 +02:00
parent 601b895e89
commit ddaf76a401
1 changed files with 0 additions and 12 deletions

View File

@ -20,18 +20,6 @@ def getTopLevelModules (p : Parsed) : IO (List String) := do
throw $ IO.userError "No topLevelModules provided." throw $ IO.userError "No topLevelModules provided."
pure topLevelModules pure topLevelModules
def runInitCmd (p : Parsed) : IO UInt32 := do
let topLevelModules ← getTopLevelModules p
let res ← lakeSetup topLevelModules
match res with
| Except.ok _ =>
let modules := topLevelModules.map Name.mkSimple
let hierarchy ← loadInit modules
let baseConfig := getSimpleBaseContext hierarchy
htmlOutputSetup baseConfig
pure 0
| Except.error rc => pure rc
def runSingleCmd (p : Parsed) : IO UInt32 := do def runSingleCmd (p : Parsed) : IO UInt32 := do
let topLevelModules ← getTopLevelModules p let topLevelModules ← getTopLevelModules p
let relevantModules := [p.positionalArg! "module" |>.as! String] let relevantModules := [p.positionalArg! "module" |>.as! String]