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

Don't pass specific arguments when not using ppx_driver.runner 

Fix #37
This commit is contained in:
Jeremie Dimino 2017-03-27 14:30:40 +01:00
parent 8e64aa0990
commit c48e90e357
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/gen_rules.ml
View File

@ -766,18 +766,21 @@ module Gen(P : Params) = struct
Build.vpath file
let specific_args_for_ppx_rewriters t ~dir ~lib_name ~for_merlin =
Arg_spec.S
[ S (if t.uses_here
then [A "-dirname"; Path dir]
else [])
; S (match lib_name with
| Some name when t.uses_libname ->
[ A "-inline-test-lib"; A name ]
| _ -> [])
; S (if t.uses_ppx_driver && not for_merlin
then [ A "-embed-errors"; A "false" ]
else [])
]
if t.uses_ppx_driver then
Arg_spec.S
[ S (if t.uses_here
then [A "-dirname"; Path dir]
else [])
; S (match lib_name with
| Some name when t.uses_libname ->
[ A "-inline-test-lib"; A name ]
| _ -> [])
; S (if not for_merlin
then [ A "-embed-errors"; A "false" ]
else [])
]
else
Arg_spec.S []
end
let ppx_drivers = Hashtbl.create 32