fix: withoutModifyingStateWithInfoAndMessagesImpl
Make sure it does not produced a corrupted `InfoTree`.
This commit is contained in:
parent
9f8dd99ccd
commit
3de607193f
1 changed files with 1 additions and 1 deletions
|
|
@ -305,7 +305,7 @@ def withoutModifyingElabMetaStateWithInfo (x : TermElabM α) : TermElabM α := d
|
|||
private def withoutModifyingStateWithInfoAndMessagesImpl (x : TermElabM α) : TermElabM α := do
|
||||
let saved ← saveState
|
||||
try
|
||||
x
|
||||
withSaveInfoContext x
|
||||
finally
|
||||
let s ← get
|
||||
let saved := { saved with elab.infoState := s.infoState, elab.messages := s.messages }
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue