Commit 18bd32c0 authored by Sylvain Dailler's avatar Sylvain Dailler
Browse files

ocaml compatibility

parent 1b910c91
...@@ -233,7 +233,7 @@ let iter_proof_attempt_by_filter cont iter filters f = ...@@ -233,7 +233,7 @@ let iter_proof_attempt_by_filter cont iter filters f =
(fun a -> Controller_itp.pn_proved cont a.S.parent) in (fun a -> Controller_itp.pn_proved cont a.S.parent) in
(* verified *) (* verified *)
let f = three_value f filters.verified let f = three_value f filters.verified
(fun p -> match p.S.proof_state with Some Call_provers.{ pr_answer = Valid } -> (fun p -> match p.S.proof_state with Some pr when pr.Call_provers.pr_answer = Call_provers.Valid ->
true | _ -> false) in true | _ -> false) in
(* status *) (* status *)
let f = if filters.status = [] then f else let f = if filters.status = [] then f else
......
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