diff --git a/src/api/ppx_deriving.cppo.ml b/src/api/ppx_deriving.cppo.ml index b14785b..84b245a 100644 --- a/src/api/ppx_deriving.cppo.ml +++ b/src/api/ppx_deriving.cppo.ml @@ -321,7 +321,7 @@ let sanitize ?(module_=Lident "Ppx_deriving_runtime") ?(quoter=create_quoter ()) let attrs = [attr_warning [%expr "-A"]] in let modname = { txt = module_; loc } in Exp.open_ ~loc ~attrs - (Opn.mk ~loc ~attrs ~override:Override (Mod.ident ~loc ~attrs modname)) + (Opn.mk ~loc ~attrs ~override:Override (Mod.ident ~loc modname)) expr in let sanitized = Expansion_helpers.Quoter.sanitize quoter body in (* ppxlib quoter uses Recursive, ppx_deriving's used Nonrecursive - silence warning *)