max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix: show expected type in term goal

Browse source
This commit is contained in:
Gabriel Ebner 2021-05-31 19:29:49 +02:00 • committed by Leonardo de Moura
parent 960cfd9cae
commit f5f9be191b
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Lean/Server/FileWorker.lean
View file

@ -479,7 +479,7 @@ section RequestHandling
for t in snap.cmdState.infoState.trees do
if let some (ci, Info.ofTermInfo i) := t.termGoalAt? hoverPos then
let goal ← ci.runMetaM i.lctx <| open Meta in do
let ty ← instantiateMVars <|<- inferType i.expr
let ty ← instantiateMVars <| i.expectedType?.getD (← inferType i.expr)
withPPInaccessibleNames <| Meta.ppGoal (← mkFreshExprMVar ty).mvarId!
let range := if hasRange i.stx then rangeOfSyntax! text i.stx else ⟨p.position, p.position⟩
return some { goal := toString goal, range }

6
tests/lean/interactive/plainTermGoal.lean.expected.out
View file

@ -17,7 +17,7 @@
"position": {"line": 2, "character": 29}}
{"range":
{"start": {"line": 2, "character": 28}, "end": {"line": 2, "character": 46}},
"goal": "⊢ 1 < Nat.succ 1"}
"goal": "⊢ 1 < 2"}
{"textDocument": {"uri": "file://plainTermGoal.lean"},
"position": {"line": 2, "character": 44}}
{"range":
@ -27,7 +27,7 @@
"position": {"line": 11, "character": 10}}
{"range":
{"start": {"line": 11, "character": 10}, "end": {"line": 11, "character": 18}},
"goal": "y : Int\n⊢ Nat"}
"goal": "y : Int\n⊢ OptionM Nat"}
{"textDocument": {"uri": "file://plainTermGoal.lean"},
"position": {"line": 16, "character": 16}}
{"range":
@ -57,4 +57,4 @@
"position": {"line": 31, "character": 8}}
{"range":
{"start": {"line": 31, "character": 8}, "end": {"line": 31, "character": 24}},
"goal": "n : Nat\n⊢ n < Nat.succ n"}
"goal": "n : Nat\n⊢ n < n + 1"}