feat: Some more progress logging
parent
b019faf7ba
commit
cb582aab57
|
@ -45,6 +45,7 @@ def lakeSetupSearchPath (lakePath : System.FilePath) (imports : Array String) :
|
|||
def load (imports : List Name) : IO AnalyzerResult := do
|
||||
let env ← importModules (List.map (Import.mk · false) imports) Options.empty
|
||||
-- TODO parameterize maxHeartbeats
|
||||
IO.println "Processing modules"
|
||||
let res ← Prod.fst <$> (Meta.MetaM.toIO process { maxHeartbeats := 100000000} { env := env} {} {})
|
||||
return res
|
||||
|
||||
|
|
Loading…
Reference in New Issue