aniva/Pantograph
aniva
/
Pantograph
1
1
Fork 0
Code Issues 13 Pull Requests 4 Packages Projects Releases Wiki Activity

chore: Version 0.3 #136

Open
aniva wants to merge 487 commits from dev into main
pull from: dev
merge into: aniva:main
Conversation 0 Commits 487 Files Changed 52 +2 -2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 85eb42207c - Show all commits

4
Pantograph.lean
View File

@ -105,14 +105,14 @@ def execute (command: Protocol.Command): MainM Lean.Json := do
let env ← Lean.MonadEnv.getEnv let env ← Lean.MonadEnv.getEnv
let type ← match syntax_from_str env args.type with let type ← match syntax_from_str env args.type with
| .ok syn => do | .ok syn => do
match ← syntax_to_expr syn with match ← (syntax_to_expr syn |> runTermElabM) with
| .error e => return .error $ errorExpr e | .error e => return .error $ errorExpr e
| .ok expr => pure expr | .ok expr => pure expr
| .error e => return .error $ errorExpr e | .error e => return .error $ errorExpr e
let value ← match syntax_from_str env args.value with let value ← match syntax_from_str env args.value with
| .ok syn => do | .ok syn => do
try try
let expr ← Lean.Elab.Term.elabTerm (stx := syn) (expectedType? := .some type) let expr ← Lean.Elab.Term.elabTerm (stx := syn) (expectedType? := .some type) |> runTermElabM
pure $ expr pure $ expr
catch ex => return .error $ errorExpr (← ex.toMessageData.toString) catch ex => return .error $ errorExpr (← ex.toMessageData.toString)
| .error e => return .error $ errorExpr e | .error e => return .error $ errorExpr e