bugfix: Read DiskuvOCamlMode environment var

diskuv · Sep 7, 2023 · c3b247f · c3b247f
1 parent d7c6d1d
commit c3b247f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/runtimelib/dkml_context.ml b/src/runtimelib/dkml_context.ml
@@ -74,6 +74,11 @@ let get_dkmlenv_opt =
                 in
                 List [ Atom "DiskuvOCamlBinaryPaths"; List bpaths ] :: lst
           in
+          let lst =
+            match OS.Env.var "DiskuvOCamlMode" with
+            | None | Some "" -> lst
+            | Some v -> List [ Atom "DiskuvOCamlMode"; List [ Atom v ] ] :: lst
+          in
           Ok
             (Some
                (List