WIP

Author: hhugo

src/dune_rules/jsoo/jsoo_rules.ml

@@ -316,14 +316,13 @@ let wasmoo ~dir sctx =
     "wasm_of_ocaml"
 ;;
 
-let jsoo_has_shapes (mode : Js_of_ocaml.Mode.t) jsoo_version =
-  match mode, jsoo_version with
-  | JS, Some version ->
+let jsoo_has_shapes jsoo_version =
+  match jsoo_version with
+  | Some version ->
     (match Version.compare version (6, 1) with
      | Lt -> false
      | Gt | Eq -> true)
-  | Wasm, Some _version -> false
-  | _, None -> false
+  | None -> false
 ;;
 
 type sub_command =
@@ -628,7 +627,7 @@ let build_cm' sctx ~dir ~in_context ~mode ~src ~target ~config ~shapes ~sourcema
                Action_builder.of_memo @@ Version.jsoo_version jsoo
              in
              let+ shapes =
-               match jsoo_has_shapes mode jsoo_version with
+               match jsoo_has_shapes jsoo_version with
                | false -> Action_builder.return []
                | true -> shapes
              in