Skip to content
Snippets Groups Projects
Commit 3b592461 authored by Michele Alberti's avatar Michele Alberti
Browse files

Remove no more needed code.

parent 59b8dc77
No related branches found
No related tags found
No related merge requests found
...@@ -43,8 +43,7 @@ let setup_logs = ...@@ -43,8 +43,7 @@ let setup_logs =
(* Commands. *) (* Commands. *)
let verify cmd model property solver solver_raw_options () = let verify cmd model property solver raw_options () =
ignore solver_raw_options;
Logs.debug Logs.debug
(fun m -> (fun m ->
m "Command `%s' with@ model `%s',@ property `%s' and@ solver `%s'." m "Command `%s' with@ model `%s',@ property `%s' and@ solver `%s'."
...@@ -53,7 +52,7 @@ let verify cmd model property solver solver_raw_options () = ...@@ -53,7 +52,7 @@ let verify cmd model property solver solver_raw_options () =
let open Result in let open Result in
Model.build ~filename:model >>= fun model -> Model.build ~filename:model >>= fun model ->
Property.build ~filename:property >>= fun property -> Property.build ~filename:property >>= fun property ->
Solver.exec ?raw_options:solver_raw_options solver property model Solver.exec ?raw_options solver property model
in in
match do_verify () with match do_verify () with
| Ok () -> Logs.app (fun m -> m "Done.") | Ok () -> Logs.app (fun m -> m "Done.")
......
...@@ -146,7 +146,6 @@ let build_command ?raw_options solver property model = ...@@ -146,7 +146,6 @@ let build_command ?raw_options solver property model =
end end
let exec ?raw_options solver property model = let exec ?raw_options solver property model =
ignore raw_options;
let open Result in let open Result in
(* Check solver availability in PATH. *) (* Check solver availability in PATH. *)
check_availability solver >>= fun () -> check_availability solver >>= fun () ->
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment