Attention une mise à jour du serveur va être effectuée le vendredi 16 avril entre 12h et 12h30. Cette mise à jour va générer une interruption du service de quelques minutes.

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
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
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