Apply OCamlFormat 0.27.0

MisterDA · MisterDA · commit 8fc7e43da96a · 2025-10-16T12:01:36.000+02:00
diff --git a/.ocamlformat b/.ocamlformat
@@ -1,4 +1,4 @@
-version = 0.25.1
+version = 0.27.0
 ocaml-version = 4.14
 profile = conventional
 break-infix = fit-or-vertical
diff --git a/api/client.ml b/api/client.ml
@@ -331,13 +331,13 @@ module Commit = struct
     let open Raw.Client.Commit.Status in
     let request = Capability.Request.create_no_args () in
     Capability.call_for_value t method_id request
-    >>= (Results.status_get >> function
-         | NotStarted -> Ok `Not_started
-         | Passed -> Ok `Passed
-         | Failed -> Ok `Failed
-         | Pending -> Ok `Pending
-         | Undefined i ->
-             Error (`Msg (Fmt.str "client.states: undefined state %d" i)))
+    >>= ( Results.status_get >> function
+          | NotStarted -> Ok `Not_started
+          | Passed -> Ok `Passed
+          | Failed -> Ok `Failed
+          | Pending -> Ok `Pending
+          | Undefined i ->
+              Error (`Msg (Fmt.str "client.states: undefined state %d" i)) )
 
   let message t =
     let open Raw.Client.Commit.Message in
diff --git a/api/client.mli b/api/client.mli
@@ -93,13 +93,15 @@ module Repo : sig
   (** [commit_of_hash t hash] is the commit [hash] in this repository. *)
 
   val commit_of_ref : t -> git_ref -> Commit.t
-  (** [commit_of_ref t gref] is the commit at the head of Git reference [gref]. *)
+  (** [commit_of_ref t gref] is the commit at the head of Git reference [gref].
+  *)
 
   val history_of_ref :
     t ->
     git_ref ->
     (ref_info list, [> `Capnp of Capnp_rpc.Error.t ]) Lwt_result.t
-  (** [history_of_ref t gref] is the list of builds for the Git reference [gref] *)
+  (** [history_of_ref t gref] is the list of builds for the Git reference [gref]
+  *)
 end
 
 module Org : sig
diff --git a/client/main.ml b/client/main.ml
@@ -177,8 +177,8 @@ let gref =
       if String.length s < 6 then
         Error
           (`Msg
-            "Git reference should start 'refs/' or be a hash at least 6 \
-             characters long")
+             "Git reference should start 'refs/' or be a hash at least 6 \
+              characters long")
       else Ok (`Commit s)
     else if String.is_prefix ~affix:"refs/" s then make_ref s
     else make_ref ("refs/" ^ s)
diff --git a/lib/analyse_ocamlformat.ml b/lib/analyse_ocamlformat.ml
@@ -68,8 +68,8 @@ let ocamlformat_version_from_file ~root job path =
             Lwt.return
               (Error
                  (`Msg
-                   "Missing 'version=' line in .ocamlformat (disabled, but \
-                    some .ocamlformat-enable files are present)")))
+                    "Missing 'version=' line in .ocamlformat (disabled, but \
+                     some .ocamlformat-enable files are present)")))
     | _ :: _ :: _ ->
         Lwt.return (Error (`Msg "Multiple 'version=' lines in .ocamlformat"))
 
diff --git a/lib/analyse_ocamlformat.mli b/lib/analyse_ocamlformat.mli
@@ -15,7 +15,8 @@ val ocamlformat_version_from_file :
   Current.Job.t ->
   string ->
   (string option, [ `Msg of string ]) Lwt_result.t
-(** Extract the version in .ocamlformat file if the file exists in the project *)
+(** Extract the version in .ocamlformat file if the file exists in the project
+*)
 
 val get_ocamlformat_source :
   opam_files:string list ->
diff --git a/lib/index.mli b/lib/index.mli
@@ -30,7 +30,7 @@ val set_active_owners : Owner_set.t -> unit
 
 val get_active_owners : unit -> Owner_set.t
 (** [get_active_owners ()] is the last value passed to [set_active_owners], or
-    [\[\]] if not known yet. *)
+    [[]] if not known yet. *)
 
 val set_active_repos : owner:string -> Repo_set.t -> unit
 (** [set_active_repos ~owner repos] records that [repos] is the set of active
diff --git a/lib/pipeline.ml b/lib/pipeline.ml
@@ -12,16 +12,16 @@ let list_errors ~ok errs =
   in
   Error
     (`Msg
-      (match groups with
-      | [] -> "No builds at all!"
-      | [ (msg, _) ] when ok = 0 ->
-          msg (* Everything failed with the same error *)
-      | [ (msg, ls) ] ->
-          Fmt.str "%a failed: %s" Fmt.(list ~sep:(any ", ") string) ls msg
-      | _ ->
-          (* Multiple error messages; just list everything that failed. *)
-          let pp_label f (_, l) = Fmt.string f l.Build_info.label in
-          Fmt.str "%a failed" Fmt.(list ~sep:(any ", ") pp_label) errs))
+       (match groups with
+       | [] -> "No builds at all!"
+       | [ (msg, _) ] when ok = 0 ->
+           msg (* Everything failed with the same error *)
+       | [ (msg, ls) ] ->
+           Fmt.str "%a failed: %s" Fmt.(list ~sep:(any ", ") string) ls msg
+       | _ ->
+           (* Multiple error messages; just list everything that failed. *)
+           let pp_label f (_, l) = Fmt.string f l.Build_info.label in
+           Fmt.str "%a failed" Fmt.(list ~sep:(any ", ") pp_label) errs))
 
 let summarise results =
   results
diff --git a/lib/platform.mli b/lib/platform.mli
@@ -53,7 +53,8 @@ val get :
   string Current.t ->
   t list Current.t
 (** [get ~label ~builder ~variant ~host_base base] creates a [t] by getting the
-    opam variables from [host_base] and returning [base] for subsequent builds. *)
+    opam variables from [host_base] and returning [base] for subsequent builds.
+*)
 
 val get_local :
   arch:Ocaml_version.arch ->
@@ -68,7 +69,8 @@ val get_local :
   Current_docker.Raw.Image.t Current.t ->
   t list Current.t
 (** [get ~label ~builder ~variant ~host_base base] creates a [t] by getting the
-    opam variables from [host_base] and returning [base] for subsequent builds. *)
+    opam variables from [host_base] and returning [base] for subsequent builds.
+*)
 
 val pull :
   arch:Ocaml_version.arch ->
diff --git a/service/api_impl.ml b/service/api_impl.ml
@@ -93,11 +93,11 @@ let make_commit ~engine ~owner ~name hash =
          let open Commit.Status in
          release_param_caps ();
          let response, results = Service.Response.create Results.init_pointer in
-         (Index.Commit_cache.(find ~owner ~name ~hash |> get_status) |> function
-          | `Not_started -> Results.status_set results NotStarted
-          | `Pending -> Results.status_set results Pending
-          | `Failed -> Results.status_set results Failed
-          | `Passed -> Results.status_set results Passed);
+         ( Index.Commit_cache.(find ~owner ~name ~hash |> get_status) |> function
+           | `Not_started -> Results.status_set results NotStarted
+           | `Pending -> Results.status_set results Pending
+           | `Failed -> Results.status_set results Failed
+           | `Passed -> Results.status_set results Passed );
          Service.return response
 
        method message_impl _params release_param_caps =
diff --git a/test/service/test_analyse.ml b/test/service/test_analyse.ml
@@ -271,7 +271,7 @@ let test_filter_packages_no_solution =
   let expected =
     Error
       (`Msg
-        {|No solution found for "example-new.dev" on any supported platform|})
+         {|No solution found for "example-new.dev" on any supported platform|})
   in
   expect_test "filter_packages_no_solution" ~project ~expected
 
diff --git a/web-ui/view/ref.ml b/web-ui/view/ref.ml
@@ -216,10 +216,9 @@ module Make (M : Git_forge_intf.Forge) = struct
       Common.tabulate_div default_table;
     ]
     |> (fun content ->
-         if n_branches = 0 then content
-         else content @ [ Common.tabulate_div branch_table ])
+    if n_branches = 0 then content
+    else content @ [ Common.tabulate_div branch_table ])
     |> (fun content ->
-         if n_prs = 0 then content
-         else content @ [ Common.tabulate_div pr_table ])
+    if n_prs = 0 then content else content @ [ Common.tabulate_div pr_table ])
     |> Template.instance
 end

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-version = 0.25.1`
	`1`	`+version = 0.27.0`
`2`	`2`	`ocaml-version = 4.14`
`3`	`3`	`profile = conventional`
`4`	`4`	`break-infix = fit-or-vertical`