fix(main): consistent printing of models

whether it's --model or (get-model)
This commit is contained in:
Simon Cruanes 2022-10-19 22:28:52 -04:00
parent 9c9a6e0da5
commit cc090a4574
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -97,7 +97,7 @@ let solve (self : t) ~assumptions () : Solver.res =
if self.pp_model then (
let m = build_model self sat in
(* TODO: use actual {!Model} in the solver? or build it afterwards *)
Format.printf "(@[<hv1>model@ %a@])@." Model.pp m
Fmt.printf "%a@." Model.pp m
);
(* TODO
if check then (