Remove old usage for Var_expansion in ppx driver

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
ocaml · Jun 6, 2018 · eb60f68 · eb60f68
1 parent d53d04e
commit eb60f68
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/preprocessing.ml b/src/preprocessing.ml
@@ -470,8 +470,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
@@ -553,8 +552,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