Commit 59603e04 authored by MARCHE Claude's avatar MARCHE Claude

Edited proofs keep their old status, but obsolete

parent 48b8404b
......@@ -1855,10 +1855,11 @@ let edit_proof ~default_editor ~project_dir a =
| f -> f
in
let file = Filename.concat project_dir file in
let old_res = a.proof_state in
let callback res =
match res with
| Done _ ->
set_proof_state ~obsolete:false a Undone
set_proof_state ~obsolete:true a old_res
| _ ->
set_proof_state ~obsolete:false a res
in
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment