fix: env_add monads
This commit is contained in:
parent
09f5792d4a
commit
2f3a91562a
|
@ -105,14 +105,14 @@ def execute (command: Protocol.Command): MainM Lean.Json := do
|
|||
let env ← Lean.MonadEnv.getEnv
|
||||
let type ← match syntax_from_str env args.type with
|
||||
| .ok syn => do
|
||||
match ← syntax_to_expr syn with
|
||||
match ← (syntax_to_expr syn |> runTermElabM) with
|
||||
| .error e => return .error $ errorExpr e
|
||||
| .ok expr => pure expr
|
||||
| .error e => return .error $ errorExpr e
|
||||
let value ← match syntax_from_str env args.value with
|
||||
| .ok syn => do
|
||||
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
|
||||
catch ex => return .error $ errorExpr (← ex.toMessageData.toString)
|
||||
| .error e => return .error $ errorExpr e
|
||||
|
|
Loading…
Reference in New Issue