Move 4.03 minium version check for opaque to top level

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
ocaml · Aug 2, 2018 · 1597b61 · 1597b61
1 parent bde4943
commit 1597b61
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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 ->