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

fix: env_add monads

This commit is contained in:
Leni Aniva 2023-12-14 05:52:12 -08:00
parent 69be7c3920
commit 85eb42207c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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