From a5f2c85bca95c829f3b5ceef0a3dfde2ea3cc71d Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Sun, 20 Oct 2024 16:46:03 +0100 Subject: [PATCH] _ Signed-off-by: Rudi Grinberg --- src/dune_rules/jsoo/jsoo_rules.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/dune_rules/jsoo/jsoo_rules.ml b/src/dune_rules/jsoo/jsoo_rules.ml index adc91fdeb0fd..0b5e2b7ba4fd 100644 --- 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 =