From 774306c396085d50000792a49d57316aa3f1f00d Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Wed, 6 Jun 2018 02:39:10 +0700 Subject: [PATCH] Remove old usage for Var_expansion in ppx driver Signed-off-by: Rudi Grinberg --- src/preprocessing.ml | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/preprocessing.ml b/src/preprocessing.ml index d8461be8..5bb68740 100644 --- a/src/preprocessing.ml +++ b/src/preprocessing.ml @@ -475,8 +475,7 @@ let lint_module sctx ~dir ~dep_kind ~lint ~lib_name ~scope ~dir_kind = >>| fun (exe, driver) -> (exe, let extra_vars = - String_map.singleton "corrected-suffix" - (Action.Var_expansion.Strings ([corrected_suffix], Split)) + String_map.singleton "corrected-suffix" [Value.String corrected_suffix] in Build.memoize "ppx 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) -> (exe, let extra_vars = - String_map.singleton "corrected-suffix" - (Action.Var_expansion.Strings ([corrected_suffix], Split)) + String_map.singleton "corrected-suffix" [Value.String corrected_suffix] in Build.memoize "ppx flags" (SC.expand_and_eval_set sctx driver.info.flags