format

1 files changed, 13 insertions, 10 deletions

diff --git a/lib/tuple.ml b/lib/tuple.ml
index 11fc508..1ce73b0 100644
--- a/lib/tuple.ml
+++ b/lib/tuple.ml
@@ -1,8 +1,10 @@
 module AttributeMap = struct
-  include Map.Make(String)
+  include Map.Make (String)
+
   let sexp_of_t sexp_of_v m =
     Sexplib.Sexp.List
-      (List.map (fun (k, v) -> Sexplib.Sexp.List [Sexplib.Sexp.Atom k; sexp_of_v v])
+      (List.map
+         (fun (k, v) -> Sexplib.Sexp.List [ Sexplib.Sexp.Atom k; sexp_of_v v ])
          (bindings m))
 end
 
@@ -10,16 +12,17 @@ type non_materialized = {
   hash : Conventions.Hash.t;
   relation : Conventions.Name.t;
   attributes : Attribute.referenced AttributeMap.t;
-} [@@deriving sexp_of]
+}
+[@@deriving sexp_of]
 
 type materialized = {
-  relation: Conventions.Name.t;
-  attributes: Attribute.materialized AttributeMap.t;
-} [@@deriving sexp_of]
+  relation : Conventions.Name.t;
+  attributes : Attribute.materialized AttributeMap.t;
+}
+[@@deriving sexp_of]
 
-type t =
-  | Materialized of materialized
-  | NonMaterialized of non_materialized
+type t = Materialized of materialized | NonMaterialized of non_materialized
 [@@deriving sexp_of]
 
-let make_materialized ~relation ~attributes = Materialized { relation; attributes }
+let make_materialized ~relation ~attributes =
+  Materialized { relation; attributes }