Commit 7573c8b4 authored by David Hauzar's avatar David Hauzar

Small refactoring of model_parser.print_model.

parent 68b3134d
......@@ -183,13 +183,13 @@ let why_name_trans (me_name, me_type) =
let print_model
?(me_name_trans = why_name_trans)
fmt
~model () =
model =
StringMap.iter (print_model_file fmt me_name_trans) model
let model_to_string
?(me_name_trans = why_name_trans)
model =
print_model ~me_name_trans str_formatter ~model ();
print_model ~me_name_trans str_formatter model;
flush_str_formatter ()
let get_model_file model filename =
......
......@@ -112,8 +112,7 @@ val empty_model : model
val print_model :
?me_name_trans:((string * model_element_type) -> string) ->
Format.formatter ->
model:model ->
unit ->
model ->
unit
(** Prints the counter-example model
......
......@@ -137,7 +137,7 @@ let print_prover_result fmt
fprintf fmt "%a (%.2fs%a)" print_prover_answer ans t print_steps s;
if m <> Model_parser.empty_model then begin
fprintf fmt "\nCounter-example model:";
Model_parser.print_model fmt ~model:m ()
Model_parser.print_model fmt m
end;
if ans == HighFailure then
fprintf fmt "@\nProver exit status: %a@\nProver output:@\n%s@."
......
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