Apply fmt changes

mbarbin · mbarbin · commit ffbde54d212d · 2026-03-24T09:47:21.000+01:00
diff --git a/src/volgo-base/volgo_base.mli b/src/volgo-base/volgo_base.mli
@@ -14,7 +14,7 @@
     they can be used with Base-style containers:
 
     {[
-      let create_path_in_repo_table () = Hashtbl.create (module Vcs.Path_in_repo)
+    let create_path_in_repo_table () = Hashtbl.create (module Vcs.Path_in_repo)
     ]}
 
     There's also a new module [Vcs.Or_error] which allows using [Vcs] with the
@@ -28,7 +28,7 @@
     available to your scope:
 
     {[
-      module Vcs = Volgo_base.Vcs
+    module Vcs = Volgo_base.Vcs
     ]}
 
     Another way to achieve this is to open [Volgo_base] via dune flags. When doing
diff --git a/src/volgo-git-backend/munged_path.mli b/src/volgo-git-backend/munged_path.mli
@@ -10,17 +10,17 @@
 
     1. A simple path:
     {[
-      "a/simple/path"
+    "a/simple/path"
     ]}
 
     2. A pair of paths, with an arrow separator
     {[
-      "a/simple/path => another/path"
+    "a/simple/path => another/path"
     ]}
 
     3. (The more involved case). A pair of paths, with common parts
     {[
-      "a/{simple => not/so/simple}/path"
+    "a/{simple => not/so/simple}/path"
     ]}
 
     This module is able to parse all these forms and returned a typed version of
diff --git a/src/volgo-git-eio/make_runtime.ml b/src/volgo-git-eio/make_runtime.ml
@@ -192,7 +192,7 @@ let vcs_cli ~of_process_output ?env t ~cwd ~args ~f =
 
          Illustrating what the inserted unvisitable coverage point looks like:
          {[
-           ___bisect_post_visit___ 36 (raise_notrace (Err.E err))
+         ___bisect_post_visit___ 36 (raise_notrace (Err.E err))
          ]}
       *)
       (match
diff --git a/src/volgo-git-unix/make_runtime.ml b/src/volgo-git-unix/make_runtime.ml
@@ -224,7 +224,7 @@ let vcs_cli ~of_process_output ?env t ~cwd ~args ~f =
 
        Illustrating what the inserted unvisitable coverage point looks like:
        {[
-         ___bisect_post_visit___ 36 (raise_notrace (Err.E err))
+       ___bisect_post_visit___ 36 (raise_notrace (Err.E err))
        ]}
     *)
     match
diff --git a/src/volgo/graph.ml b/src/volgo/graph.ml
@@ -24,10 +24,10 @@ module Node_kind = struct
      The following comes to mind:
 
      {[
-       type t =
-         { rev : Rev.t
-         ; parents : Node.t list
-         }
+     type t =
+       { rev : Rev.t
+       ; parents : Node.t list
+       }
      ]}
 
      It is possible that we'd look into it at some point. It is not clear
diff --git a/src/volgo/vcs.mli b/src/volgo/vcs.mli
@@ -294,21 +294,17 @@ module Git = Git
     For example using the raising API::
 
     {[
-      let git_status () : string =
-        Vcs.git vcs ~repo_root ~args:[ "status" ] ~f:Vcs.Git.exit0_and_stdout
-      ;;
+    let git_status () : string =
+      Vcs.git vcs ~repo_root ~args:[ "status" ] ~f:Vcs.Git.exit0_and_stdout
+    ;;
     ]}
 
     Or the {{!non_raising_apis} non-raising API} (result):
 
     {[
-      let git_status () : string Vcs.Result.t =
-        Vcs.Result.git
-          vcs
-          ~repo_root
-          ~args:[ "status" ]
-          ~f:Vcs.Git.Result.exit0_and_stdout
-      ;;
+    let git_status () : string Vcs.Result.t =
+      Vcs.Result.git vcs ~repo_root ~args:[ "status" ] ~f:Vcs.Git.Result.exit0_and_stdout
+    ;;
     ]} *)
 val git
   :  ?env:string array
@@ -338,17 +334,17 @@ module Hg = Hg
     For example using the raising API:
 
     {[
-      let hg_status () : string =
-        Vcs.hg vcs ~repo_root ~args:[ "status" ] ~f:Vcs.Hg.exit0_and_stdout
-      ;;
+    let hg_status () : string =
+      Vcs.hg vcs ~repo_root ~args:[ "status" ] ~f:Vcs.Hg.exit0_and_stdout
+    ;;
     ]}
 
     Or the {{!non_raising_apis} non-raising API} (result):
 
     {[
-      let hg_status () : string Vcs.Result.t =
-        Vcs.Result.hg vcs ~repo_root ~args:[ "status" ] ~f:Vcs.Hg.Result.exit0_and_stdout
-      ;;
+    let hg_status () : string Vcs.Result.t =
+      Vcs.Result.hg vcs ~repo_root ~args:[ "status" ] ~f:Vcs.Hg.Result.exit0_and_stdout
+    ;;
     ]} *)
 val hg
   :  ?env:string array
diff --git a/test/volgo-git-backend/test__log.ml b/test/volgo-git-backend/test__log.ml
@@ -6,9 +6,7 @@
 
 (* [super-master-mind.log] has been created by capturing the output of:
 
-   {v
-      $ git log --all --pretty=format:'%H %P'
-   v}
+   {v    $ git log --all --pretty=format:'%H %P' v}
 
    In this test we verify that we can parse this output. *)
 
diff --git a/test/volgo-git-backend/test__refs.ml b/test/volgo-git-backend/test__refs.ml
@@ -6,9 +6,7 @@
 
 (* [super-master-mind.refs] has been created by capturing the output of:
 
-   {v
-      $ git show-refs
-   v}
+   {v    $ git show-refs v}
 
    In this test we verify that we can parse this output. *)
 
