From b7ec0613d9e09bd6e3634576982d50ffcdccf05c Mon Sep 17 00:00:00 2001
From: Olivier Nicole <olivier@chnik.fr>
Date: Wed, 22 Jan 2025 20:24:07 +0100
Subject: [PATCH] reformat

---
 src/dune_rules/jsoo/jsoo_rules.ml | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/src/dune_rules/jsoo/jsoo_rules.ml b/src/dune_rules/jsoo/jsoo_rules.ml
index e18305b1aa8..0dea982ddd8 100644
--- a/src/dune_rules/jsoo/jsoo_rules.ml
+++ b/src/dune_rules/jsoo/jsoo_rules.ml
@@ -217,15 +217,15 @@ end = struct
          through the Javascript Promise API. *)
       None
     | Some Cps ->
-        let v6_or_higher =
-          match jsoo_version with
-          | Some v ->
-            (match Version.compare v (6, 0) with
-             | Gt | Eq -> true
-             | Lt -> false)
-          | None -> false
-        in
-        if v6_or_higher then Some "--effects=cps" else Some "--enable=effects"
+      let v6_or_higher =
+        match jsoo_version with
+        | Some v ->
+          (match Version.compare v (6, 0) with
+           | Gt | Eq -> true
+           | Lt -> false)
+        | None -> false
+      in
+      if v6_or_higher then Some "--effects=cps" else Some "--enable=effects"
     | Some Double_translation ->
       (* For js_of_ocaml < 6.0, this flag does not exist and will raise an error,
          which is fine. *)
@@ -353,9 +353,8 @@ let js_of_ocaml_rule
               Action_builder.of_memo (Version.jsoo_version jsoo)
             in
             Command.Args.S
-              (List.map
-                (Config.to_flags ~jsoo_version config)
-                ~f:(fun x -> Command.Args.A x))))
+              (List.map (Config.to_flags ~jsoo_version config) ~f:(fun x ->
+                 Command.Args.A x))))
     ; A "-o"
     ; Target target
     ; spec