_

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
ocaml · Nov 4, 2024 · a5f2c85 · a5f2c85
1 parent 14d40fb
commit a5f2c85
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/dune_rules/jsoo/jsoo_rules.ml b/src/dune_rules/jsoo/jsoo_rules.ml
@@ -626,14 +626,14 @@ let build_exe
     | Some x -> Memo.return x
   and* submodes = jsoo_submodes ~dir ~submodes in
   let* () =
-    match List.mem ~equal:Poly.equal submodes JS with
-    | false -> Memo.return ()
-    | true ->
+    if List.mem ~equal:Poly.equal submodes JS
+    then Memo.return ()
+    else (
       let dst = Path.Build.set_extension src ~ext:(Js_of_ocaml.Ext.exe ~submode:JS) in
       let src =
         Path.build (Path.Build.set_extension src ~ext:(Js_of_ocaml.Ext.exe ~submode:Wasm))
       in
-      Super_context.add_rule ~loc ~dir ~mode sctx (Action_builder.copy ~src ~dst)
+      Super_context.add_rule ~loc ~dir ~mode sctx (Action_builder.copy ~src ~dst))
   in
   Memo.parallel_iter submodes ~f:(fun submode ->
     let standalone_runtime =