diff --git a/src/main.ml b/src/main.ml index 5e2a1a51..9a1ee474 100644 --- a/src/main.ml +++ b/src/main.ml @@ -73,7 +73,8 @@ let setup ?(log=Log.no_log) Fiber.parallel_map workspace.contexts ~f:(fun ctx_def -> let name = Workspace.Context.name ctx_def in - Context.create ctx_def ~env ~merlin:(workspace.merlin_context = Some name)) + Context.create ?workspace_env:workspace.env + ctx_def ~env ~merlin:(workspace.merlin_context = Some name)) >>= fun contexts -> let contexts = List.concat contexts in List.iter contexts ~f:(fun (ctx : Context.t) -> diff --git a/test/blackbox-tests/test-cases/workspaces/run.t b/test/blackbox-tests/test-cases/workspaces/run.t index 80b47f0a..8ca726cd 100644 --- a/test/blackbox-tests/test-cases/workspaces/run.t +++ b/test/blackbox-tests/test-cases/workspaces/run.t @@ -53,6 +53,6 @@ Workspaces also allow you to set the env for a context: Entering directory 'workspace-env' ( (flags (-w -40 -machin)) - (ocamlc_flags (-g)) + (ocamlc_flags (-g -verbose)) (ocamlopt_flags (-g)) )