Pass the workspace env to context creation
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
61d33114ee
commit
bd860d29e7
|
@ -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) ->
|
||||
|
|
|
@ -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))
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue