Revert "Add support for upcoming ppx_base. (#541)"

This reverts commit 032cb62af6.
This commit is contained in:
Rudi Grinberg 2018-02-26 21:07:02 +07:00
parent 31ea39949b
commit 95c254a6a0
2 changed files with 2 additions and 6 deletions

View File

@ -1021,11 +1021,7 @@ module Gen(P : Params) = struct
if List.exists deps ~f:(function
| "ppx_driver" | "ppx_type_conv" -> true
| _ -> false) then
pps @ [match Scope.name scope with
| Some "ppx_base" ->
Pp.of_string "ppx_base.runner"
| _ ->
Pp.of_string "ppx_driver.runner"]
pps @ [Pp.of_string "ppx_driver.runner"]
else
pps
in

View File

@ -953,7 +953,7 @@ module PP = struct
let uses_ppx_driver ~pps =
match Option.map ~f:Pp.to_string (List.last pps) with
| Some ("ppx_driver.runner" | "ppx_base.runner") -> true
| Some "ppx_driver.runner" -> true
| Some _ | None -> false
let promote_correction ~uses_ppx_driver fn build =