avoid mentioning now-deprecated Pervasives in generated code (#72)

ocaml-ppx · Jul 5, 2019 · ef72761 · ef72761
1 parent 331fbc4
commit ef72761
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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