Added log functor to Sat.Make

This commit is contained in:
Guillaume Bury 2015-02-09 15:42:28 +01:00
parent 3d951db181
commit 23d18fe609
2 changed files with 2 additions and 2 deletions

View file

@ -85,7 +85,7 @@ module Tsat = struct
end
module Make(Dummy : sig end) = struct
module Make(Log : Log_intf.S) = struct
module SatSolver = Solver.Make(Log)(Fsat)(Tsat)
exception Bad_atom

View file

@ -8,7 +8,7 @@ module Fsat : Formula_intf.S with type t = int
module Tseitin : Tseitin.S with type atom = Fsat.t
module Make(Dummy: sig end) : sig
module Make(Log: Log_intf.S) : sig
(** Fonctor to make a pure SAT Solver module with built-in literals. *)
exception Bad_atom