matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use the correct ppx driver for the compat ppx.exe in jbuild mode 

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
Jeremie Dimino 2018-07-10 13:28:19 +01:00 committed by Jérémie Dimino
parent 1d594ce5a3
commit f748a33aae
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/install_rules.ml
View File

@ -196,16 +196,18 @@ module Gen(P : Install_params) = struct
let deps =
List.concat_map lib.buildable.libraries ~f:Lib_dep.to_lib_names
in
if List.exists deps ~f:(function
| "ppx_driver" | "ppxlib" | "ppx_type_conv" -> true
| _ -> false) then
match Scope.name scope with
| Named "ppxlib" ->
match
List.filter deps ~f:(function
| "ppx_driver" | "ppxlib" | "ppx_type_conv" -> true
| _ -> false)
with
| [] -> None
| l ->
match Scope.name scope, List.mem ~set:l "ppxlib" with
| Named "ppxlib", _ | _, true ->
Some "ppxlib.runner"
| _ ->
Some "ppx_driver.runner"
else
None
in
[Preprocessing.get_compat_ppx_exe sctx ~name ~kind:(Jbuild driver)]
in