fix: address code review

Signed-off-by: Antonio Nuno Monteiro <[email protected]>
ocaml · Feb 23, 2023 · 8a0f074 · 8a0f074
1 parent 744cb66
commit 8a0f074
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/src/dune_rules/module_compilation.ml b/src/dune_rules/module_compilation.ml
@@ -67,16 +67,14 @@ let melange_args (cctx : Compilation_context.t) (cm_kind : Lib_mode.Cm_kind.t)
             Path.Build.to_string (Compilation_context.dir cctx)
           in
           let src_dir = Path.Build.to_string package_output in
-          let build_context =
-            let ctx, _ =
-              Path.Build.extract_build_context_dir_exn package_output
-            in
-            ctx
+          let build_dir =
+            (Compilation_context.super_context cctx |> Super_context.context)
+              .build_dir
           in
           String.drop_prefix src_dir ~prefix:lib_root_dir
           |> Option.value_exn
           |> String.drop_prefix_if_exists ~prefix:"/"
-          |> Path.Build.relative build_context
+          |> Path.Build.relative build_dir
         in
 
         ( [ Command.Args.A "--bs-package-name"; A (Lib_name.to_string lib_name) ]