Merge pull request 'fix: Reset core message log' (#144) from bug/core-state-error-linger into dev
Reviewed-on: #144
This commit is contained in:
commit
f14a37897b
|
@ -244,12 +244,13 @@ protected def GoalState.tryTacticM (state: GoalState) (goal: MVarId) (tacticM: E
|
||||||
let nextState ← state.step goal tacticM guardMVarErrors
|
let nextState ← state.step goal tacticM guardMVarErrors
|
||||||
|
|
||||||
-- Check if error messages have been generated in the core.
|
-- Check if error messages have been generated in the core.
|
||||||
let newMessages ← (← Core.getMessageLog).toList --.drop state.coreState.messages.toList.length
|
let newMessages ← (← Core.getMessageLog).toList.drop state.coreState.messages.toList.length
|
||||||
|>.filterMapM λ m => do
|
|>.filterMapM λ m => do
|
||||||
if m.severity == .error then
|
if m.severity == .error then
|
||||||
return .some $ ← m.toString
|
return .some $ ← m.toString
|
||||||
else
|
else
|
||||||
return .none
|
return .none
|
||||||
|
Core.resetMessageLog
|
||||||
if ¬ newMessages.isEmpty then
|
if ¬ newMessages.isEmpty then
|
||||||
return .failure newMessages.toArray
|
return .failure newMessages.toArray
|
||||||
return .success nextState
|
return .success nextState
|
||||||
|
|
|
@ -79,6 +79,7 @@ def execute (command: Protocol.Command): MainM Lean.Json := do
|
||||||
let state ← get
|
let state ← get
|
||||||
let nGoals := state.goalStates.size
|
let nGoals := state.goalStates.size
|
||||||
set { state with nextId := 0, goalStates := .empty }
|
set { state with nextId := 0, goalStates := .empty }
|
||||||
|
Lean.Core.resetMessageLog
|
||||||
return .ok { nGoals }
|
return .ok { nGoals }
|
||||||
stat (_: Protocol.Stat): MainM (CR Protocol.StatResult) := do
|
stat (_: Protocol.Stat): MainM (CR Protocol.StatResult) := do
|
||||||
let state ← get
|
let state ← get
|
||||||
|
|
Loading…
Reference in New Issue