Switched to ocamlformat 0.27.0

mmottl · Dec 8, 2024 · 7b2eea4 · 7b2eea4
1 parent 255f2d9
commit 7b2eea4
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/.ocamlformat b/.ocamlformat
@@ -1,4 +1,4 @@
-version = 0.26.2
+version = 0.27.0
 profile = conventional
 
 # Default overrides

diff --git a/src/config/do_sf.ml b/src/config/do_sf.ml
@@ -46,8 +46,10 @@ let ext_quot =
         List.iter (fun a -> Format.fprintf bh " -> %s" (String.trim a)) argr;
         Format.fprintf bh "@ = ";
         if List.length args > 6 then Format.fprintf bh "\"%s_bc\"" name_c;
-        if (* List.for_all ~f:((=) "float") args && *)
-           name_float <> "" then (
+        if
+          (* List.for_all ~f:((=) "float") args && *)
+          name_float <> ""
+        then (
           if List.length args <= 6 then Format.fprintf bh "\"%s\"" name_c;
           Format.fprintf bh " \"%s\" [%@%@unboxed] [%@%@noalloc]" name_float)
         else Format.fprintf bh "\"%s\"" name_c;

diff --git a/src/poly.mli b/src/poly.mli
@@ -12,8 +12,7 @@ type poly = float array
 
 external eval : poly -> float -> float = "ml_gsl_poly_eval"
 (** [eval p x] returns
-    [p.(0) +. p.(1) *. x +. p.(2) *. x**2 +. ... +. p.(n)
-    *. x**n] where
+    [p.(0) +. p.(1) *. x +. p.(2) *. x**2 +. ... +. p.(n) *. x**n] where
     [n = Array.length p]. *)
 
 (** {3 Quadratic Equations} *)