Skip to content

Commit e8b501e

Browse files
committed
leanir no ext, all exc
1 parent c00d31f commit e8b501e

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/LeanIR.lean

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -40,13 +40,14 @@ public def main (args : List String) : IO UInt32 := do
4040
let imports := #[{ module := mod, importAll := true, isMeta := true }]
4141
let (_, s) ← importModulesCore (globalLevel := .exported) (arts := setup.importArts) imports |>.run
4242
let s := { s with moduleNameMap := s.moduleNameMap.modify mod fun m => if m.module == mod then { m with irPhases := .runtime } else { m with irPhases := .all } }
43-
finalizeImport (leakEnv := true) (loadExts := true /-TODO?-/) (level := .exported)
43+
finalizeImport (leakEnv := true) (loadExts := true) (level := .exported)
4444
s imports setup.options.toOptions
4545
let some modIdx := env.getModuleIdx? mod
4646
| throw <| IO.userError s!"module '{mod}' not found"
4747
let some mod := env.header.moduleData[modIdx]? | unreachable!
4848
-- Make sure we record the actual IR dependencies, not ourselves
4949
let env := { env with base.private.header.imports := mod.imports }
50+
let _ : MonadAlwaysExcept _ CoreM := inferInstance
5051
let res? ← EIO.toBaseIO <| Core.CoreM.run (ctx := { fileName := irFile, fileMap := default, options := setup.options.toOptions })
5152
(s := { env }) try
5253
let decls := postponedCompileDeclsExt.getModuleEntries env modIdx

0 commit comments

Comments
 (0)