[sledge] Style: set ocamlformat config break-struct = force

Reviewed By: ngorogiannis

Differential Revision: D22170511

fbshipit-source-id: de50aef7c

sledge/.ocamlformat

@@ -1,8 +1,8 @@
-profile = compact
-break-before-in = fit-or-vertical
-break-collection-expressions = fit-or-vertical
+profile = ocamlformat
+break-cases = fit
 break-infix = fit-or-vertical
 break-sequences = true
 margin = 76
+module-item-spacing = compact
 parse-docstrings = true
 wrap-comments = true

sledge/nonstdlib/NS.mli

@@ -103,7 +103,9 @@ module String : sig
 end
 
 module Q : sig
-  include module type of struct include Q end
+  include module type of struct
+    include Q
+  end
 
   val of_z : Z.t -> t
   val compare : t -> t -> int
@@ -115,7 +117,9 @@ module Q : sig
 end
 
 module Z : sig
-  include module type of struct include Z end
+  include module type of struct
+    include Z
+  end
 
   val compare : t -> t -> int
   val hash : t -> int

sledge/src/llair/exp.ml

@@ -75,7 +75,12 @@ module T = struct
 end
 
 include T
-module Set = struct include Set.Make (T) include Provide_of_sexp (T) end
+
+module Set = struct
+  include Set.Make (T)
+  include Provide_of_sexp (T)
+end
+
 module Map = Map.Make (T)
 
 let pp_op2 fs op =

sledge/src/llair/llair.ml

@@ -363,7 +363,10 @@ end
 (** Basic-Blocks *)
 
 module Block = struct
-  module T = struct type t = block [@@deriving compare, equal, sexp_of] end
+  module T = struct
+    type t = block [@@deriving compare, equal, sexp_of]
+  end
+
   include T
   module Map = Map.Make (T)
 

sledge/src/llair/reg.mli

@@ -7,4 +7,6 @@
 
 (** Variables *)
 
-include module type of struct include Exp.Reg end
+include module type of struct
+  include Exp.Reg
+end

sledge/src/term.ml

@@ -128,7 +128,11 @@ end = struct
 end
 
 include T
-module Map = struct include Map.Make (T) include Provide_of_sexp (T) end
+
+module Map = struct
+  include Map.Make (T)
+  include Provide_of_sexp (T)
+end
 
 let rec ppx strength fs term =
   let rec pp fs term =