diff --git a/Pantograph.lean b/Pantograph.lean index bdaa57c..ad3b221 100644 --- a/Pantograph.lean +++ b/Pantograph.lean @@ -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