chore: disable some warning in Solver

This commit is contained in:
Simon Cruanes 2018-08-18 16:39:38 -05:00
parent 2b2765c67f
commit 04eea28cfc

View file

@ -3,14 +3,14 @@
(** {1 Main Solver} *)
[@@@warning "-32"]
open Solver_types
let get_time : unit -> float = Sys.time
(** {2 The Main Solver} *)
type level = int
module Sat_solver = Sidekick_sat.Make(Theory_combine)
let[@inline] clause_of_mclause (c:Sat_solver.clause): Lit.t IArray.t =