aniva/Pantograph
aniva
/
Pantograph
1
1
Fork 0
Code Issues 10 Pull Requests 2 Packages Projects Releases Wiki Activity

fix: Call sites in `Main.lean`

This commit is contained in:
Leni Aniva 2025-03-28 00:56:18 -07:00
parent c2b7501649
commit 8adab24157
Signed by: aniva
GPG Key ID: 4D9B1C8D10EA4C50
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Main.lean
View File

@ -43,7 +43,7 @@ partial def loop : MainM Unit := do repeat do
| false => ret.compress | false => ret.compress
IO.println str IO.println str
catch e => catch e =>
let message ← e.toMessageData.toString let message := e.toString
let error := Lean.toJson ({ error := "main", desc := message }: InteractionError) let error := Lean.toJson ({ error := "main", desc := message }: InteractionError)
IO.println error.compress IO.println error.compress
@ -60,11 +60,10 @@ unsafe def main (args: List String): IO Unit := do
let (options, imports) := args.partition (·.startsWith "--") let (options, imports) := args.partition (·.startsWith "--")
let coreContext ← options.map (·.drop 2) |>.toArray |> Pantograph.createCoreContext let coreContext ← options.map (·.drop 2) |>.toArray |> Pantograph.createCoreContext
let coreState ← Pantograph.createCoreState imports.toArray let coreState ← Pantograph.createCoreState imports.toArray
let context: Context := {}
try try
let coreM := loop.run context |>.run' {} let mainM := loop.run { coreContext } |>.run' { env := coreState.env }
IO.println "ready." IO.println "ready."
discard <| coreM.toIO coreContext coreState mainM
catch ex => catch ex =>
let message := ex.toString let message := ex.toString
let error := Lean.toJson ({ error := "io", desc := message }: InteractionError) let error := Lean.toJson ({ error := "io", desc := message }: InteractionError)