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

Remove old usage for Var_expansion in ppx driver 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-06-06 02:39:10 +07:00
parent 9221b1ed6c
commit 774306c396
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/preprocessing.ml
View File

@ -475,8 +475,7 @@ let lint_module sctx ~dir ~dep_kind ~lint ~lib_name ~scope ~dir_kind =
>>| fun (exe, driver) -> >>| fun (exe, driver) ->
(exe, (exe,
let extra_vars = let extra_vars =
String_map.singleton "corrected-suffix" String_map.singleton "corrected-suffix" [Value.String corrected_suffix]
(Action.Var_expansion.Strings ([corrected_suffix], Split))
in in
Build.memoize "ppx flags" Build.memoize "ppx flags"
(SC.expand_and_eval_set sctx driver.info.lint_flags (SC.expand_and_eval_set sctx driver.info.lint_flags
@ -558,8 +557,7 @@ let make sctx ~dir ~dep_kind ~lint ~preprocess
get_ppx_driver sctx ~loc ~scope ~dir_kind pps >>| fun (exe, driver) -> get_ppx_driver sctx ~loc ~scope ~dir_kind pps >>| fun (exe, driver) ->
(exe, (exe,
let extra_vars = let extra_vars =
String_map.singleton "corrected-suffix" String_map.singleton "corrected-suffix" [Value.String corrected_suffix]
(Action.Var_expansion.Strings ([corrected_suffix], Split))
in in
Build.memoize "ppx flags" Build.memoize "ppx flags"
(SC.expand_and_eval_set sctx driver.info.flags (SC.expand_and_eval_set sctx driver.info.flags