|
|
|
@ -231,7 +231,7 @@ def getProofState (_ : Lsp.PlainGoalParams) : RequestM (RequestTask (Option Proo
|
|
|
|
-- Answer: The last snap only copied the diags from the end of this snap
|
|
|
|
-- Answer: The last snap only copied the diags from the end of this snap
|
|
|
|
let mut diag : Array InteractiveDiagnostic := snap.interactiveDiags.toArray
|
|
|
|
let mut diag : Array InteractiveDiagnostic := snap.interactiveDiags.toArray
|
|
|
|
|
|
|
|
|
|
|
|
-- Level is completed if there are no errrors or warnings
|
|
|
|
-- Level is completed if there are no errors or warnings
|
|
|
|
let completedWithWarnings : Bool := ¬ diag.any (·.severity? == some .error)
|
|
|
|
let completedWithWarnings : Bool := ¬ diag.any (·.severity? == some .error)
|
|
|
|
let completed : Bool := completedWithWarnings ∧ ¬ diag.any (·.severity? == some .warning)
|
|
|
|
let completed : Bool := completedWithWarnings ∧ ¬ diag.any (·.severity? == some .warning)
|
|
|
|
|
|
|
|
|
|
|
|
|