Commit 7ddd738c authored by MARCHE Claude's avatar MARCHE Claude

replay: remove attempts for uninstalled provers if policy tells to

parent ebe5592a
This source diff could not be displayed because it is too large. You can view the blob instead.
...@@ -921,7 +921,7 @@ let find_prover notification c goal_id pr = ...@@ -921,7 +921,7 @@ let find_prover notification c goal_id pr =
(* does a proof using new_pr already exists ? *) (* does a proof using new_pr already exists ? *)
if Hprover.mem (get_proof_attempt_ids c.controller_session goal_id) new_pr if Hprover.mem (get_proof_attempt_ids c.controller_session goal_id) new_pr
then (* yes, then we remove the attempt *) then (* yes, then we remove the attempt *)
`Keep (* `Remove *) (* we keep it for now, because it prevents replay to terminate properly *) `Remove
else else
begin begin
(* we modify the prover in-place *) (* we modify the prover in-place *)
...@@ -1012,8 +1012,10 @@ let replay ~valid_only ~obsolete_only ?(use_steps=false) ?(filter=fun _ -> true) ...@@ -1012,8 +1012,10 @@ let replay ~valid_only ~obsolete_only ?(use_steps=false) ?(filter=fun _ -> true)
let craft_report s id pr limits pa = let craft_report s id pr limits pa =
match s with match s with
| UpgradeProver _ | Removed _ -> found_upgraded_prover := true | UpgradeProver _ -> found_upgraded_prover := true
(* this is certainly wrong: after removed, there will be no more 'Done' notification, so counter should be decreased *) | Removed _ ->
found_upgraded_prover := true;
decr count
| Scheduled | Running -> () | Scheduled | Running -> ()
| Undone | Interrupted -> | Undone | Interrupted ->
decr count; decr count;
......
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