diff --git a/src/gen_rules.ml b/src/gen_rules.ml index 43fe88a8..b5478a47 100644 --- a/src/gen_rules.ml +++ b/src/gen_rules.ml @@ -17,7 +17,7 @@ module Gen(P : Install_rules.Params) = struct let sctx = P.sctx let ctx = SC.context sctx - let opaque = ctx.profile = "dev" + let opaque = ctx.profile = "dev" && ctx.version >= (4, 03, 0) (* +-----------------------------------------------------------------+ | Library stuff | diff --git a/src/module_compilation.ml b/src/module_compilation.ml index c2409190..6d6e2b0f 100644 --- a/src/module_compilation.ml +++ b/src/module_compilation.ml @@ -58,7 +58,7 @@ let build_cm cctx ?sandbox ?(dynlink=true) ~dep_graphs ~cm_kind (m : Module.t) = | Cmi | Cmo -> other_targets in let dep_graph = Ml_kind.Dict.get dep_graphs ml_kind in - let opaque = CC.opaque cctx && ctx.version >= (4, 03, 0) in + let opaque = CC.opaque cctx in let other_cm_files = Build.dyn_paths (Ocamldep.Dep_graph.deps_of dep_graph m >>^ fun deps ->