Simplify

Signed-off-by: Nicolás Ojeda Bär <n.oje.bar@gmail.com>
ocaml · Mar 13, 2019 · 0942858 · 0942858
1 parent 5bd0506
commit 0942858
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/exe.ml b/src/exe.ml
@@ -134,9 +134,9 @@ let link_exe
       ?(js_of_ocaml=Dune_file.Js_of_ocaml.default)
       cctx
   =
-  let linkage, has_js =
-    if linkage = Linkage.js then
-      Linkage.byte, true
+  let linkage, js =
+    if linkage.ext = ".bc.js" then
+      {linkage with ext = ".bc"}, true
     else
       linkage, false
   in
@@ -193,7 +193,7 @@ let link_exe
        ]);
   if linkage.ext = ".bc" then
     let rules =
-      if not explicit_js_mode || (explicit_js_mode && has_js) then
+      if not explicit_js_mode || js then
         Js_of_ocaml_rules.build_exe cctx ~js_of_ocaml ~src:exe
       else
         []