Bump ocamlformat to 0.29.0 and reformat

Author: balat

.ocamlformat

@@ -1,4 +1,4 @@
-version = 0.28.1
+version = 0.29.0
 profile = conventional
 
 ocaml-version = 4.08.0

bench/irmin-pack/trace_common.ml

@@ -33,68 +33,68 @@
     {3 Example}
 
     {[
-      module Example = struct
-        module V2 = struct
-          let version = 2
-
-          type header = unit [@@deriving repr]
-          type row = [ `A | `B | `C ] [@@deriving repr]
-        end
-
-        module V1 = struct
-          let version = 1
-
-          type header = unit [@@deriving repr]
-          type row = [ `A | `B ] [@@deriving repr]
-
-          let to_v2 x = (x :> V2.row)
-        end
-
-        module V0 = struct
-          let version = 0
-
-          type header = unit [@@deriving repr]
-          type row = [ `A of int | `B of int ] [@@deriving repr]
-
-          let to_v1 = function `A _ -> `A | `B _ -> `B
-        end
-
-        module Latest = V2
-        include Latest
-
-        include Trace_common.Io (struct
-          module Latest = Latest
-
-          let magic = Trace_common.Magic.of_string "Magique_"
-
-          let get_version_converter = function
-            | 2 ->
-                Trace_common.Version_converter
-                  {
-                    header_t = V2.header_t;
-                    row_t = V2.row_t;
-                    upgrade_header = Fun.id;
-                    upgrade_row = Fun.id;
-                  }
-            | 1 ->
-                Version_converter
-                  {
-                    header_t = V1.header_t;
-                    row_t = V1.row_t;
-                    upgrade_header = Fun.id;
-                    upgrade_row = V1.to_v2;
-                  }
-            | 0 ->
-                Version_converter
-                  {
-                    header_t = V0.header_t;
-                    row_t = V0.row_t;
-                    upgrade_header = Fun.id;
-                    upgrade_row = (fun x -> V0.to_v1 x |> V1.to_v2);
-                  }
-            | i -> Fmt.invalid_arg "Unknown Example version %d" i
-        end)
+    module Example = struct
+      module V2 = struct
+        let version = 2
+
+        type header = unit [@@deriving repr]
+        type row = [ `A | `B | `C ] [@@deriving repr]
+      end
+
+      module V1 = struct
+        let version = 1
+
+        type header = unit [@@deriving repr]
+        type row = [ `A | `B ] [@@deriving repr]
+
+        let to_v2 x = (x :> V2.row)
       end
+
+      module V0 = struct
+        let version = 0
+
+        type header = unit [@@deriving repr]
+        type row = [ `A of int | `B of int ] [@@deriving repr]
+
+        let to_v1 = function `A _ -> `A | `B _ -> `B
+      end
+
+      module Latest = V2
+      include Latest
+
+      include Trace_common.Io (struct
+        module Latest = Latest
+
+        let magic = Trace_common.Magic.of_string "Magique_"
+
+        let get_version_converter = function
+          | 2 ->
+              Trace_common.Version_converter
+                {
+                  header_t = V2.header_t;
+                  row_t = V2.row_t;
+                  upgrade_header = Fun.id;
+                  upgrade_row = Fun.id;
+                }
+          | 1 ->
+              Version_converter
+                {
+                  header_t = V1.header_t;
+                  row_t = V1.row_t;
+                  upgrade_header = Fun.id;
+                  upgrade_row = V1.to_v2;
+                }
+          | 0 ->
+              Version_converter
+                {
+                  header_t = V0.header_t;
+                  row_t = V0.row_t;
+                  upgrade_header = Fun.id;
+                  upgrade_row = (fun x -> V0.to_v1 x |> V1.to_v2);
+                }
+          | i -> Fmt.invalid_arg "Unknown Example version %d" i
+      end)
+    end
     ]} *)
 
 module Seq = struct

src/irmin-cli/cli.ml

@@ -736,8 +736,7 @@ let graphql ~env =
              (S)
              (struct
                let remote = remote_fn
-             end)
-         in
+             end) in
          let t = store () in
          let server = Server.v (S.repo t) in
          let ctx =

src/irmin-git/commit.ml

@@ -67,8 +67,8 @@ module Make (G : Git.S) = struct
       Git.User.{ name; email; date = (date, None) }
     in
     let message = Info.message info in
-    G.Value.Commit.make (* FIXME: should be v *)
-      ~tree ~parents ~author ~committer:author
+    G.Value.Commit.make (* FIXME: should be v *) ~tree ~parents ~author
+      ~committer:author
       (if message = "" then None else Some message)
 
   let v ~info ~node ~parents = to_git info node parents

src/irmin/hash_intf.ml

@@ -47,9 +47,9 @@ module type S = sig
       contained in [t] at offset [off]. It has behaviour equivalent to:
 
       {[
-        Bigstringaf.substring t ~off ~len:hash_size
-        |> unsafe_of_raw_string
-        |> short_hash
+      Bigstringaf.substring t ~off ~len:hash_size
+      |> unsafe_of_raw_string
+      |> short_hash
       ]}
 
       but may be more efficient due to not needing to allocate an intermediate