From ef72761a05c2b060671e53503a720b448cb1ef22 Mon Sep 17 00:00:00 2001 From: Gabriel Scherer Date: Fri, 5 Jul 2019 17:18:24 +0200 Subject: [PATCH] avoid mentioning now-deprecated Pervasives in generated code (#72) --- ppx_metaquot.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ppx_metaquot.ml b/ppx_metaquot.ml index a884969..1066e82 100644 --- a/ppx_metaquot.ml +++ b/ppx_metaquot.ml @@ -190,7 +190,7 @@ module Main : sig end = struct | x -> super # lift_Parsetree_core_type x end - let loc = ref (app (evar "Pervasives.!") [evar "Ast_helper.default_loc"]) + let loc = ref (app (evar "Stdlib.!") [evar "Ast_helper.default_loc"]) let handle_attr = function | {attr_name={txt="metaloc";loc=l}; attr_payload=e; _} -> loc := get_exp l e