reformat

ocaml · Jan 22, 2025 · b7ec061 · b7ec061
1 parent aba32aa
commit b7ec061
Showing 1 changed file with 11 additions and 12 deletions.
diff --git 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