Suppress warning 32 for show

ocaml-ppx · Feb 7, 2019 · 59bd33d · 59bd33d
1 parent 71e61a2
commit 59bd33d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src_plugins/ppx_deriving_show.cppo.ml b/src_plugins/ppx_deriving_show.cppo.ml
@@ -316,9 +316,10 @@ let str_of_type ~options ~path ({ ptype_loc = loc } as type_decl) =
     pvar (Ppx_deriving.mangle_type_decl (`Prefix "pp") type_decl) in
   let show_var =
     pvar (Ppx_deriving.mangle_type_decl (`Prefix "show") type_decl) in
+  let no_warn_32 = Ppx_deriving.attr_warning [%expr "-32"] in
   [Vb.mk (Pat.constraint_ pp_var pp_type)
          (Ppx_deriving.sanitize ~quoter (polymorphize prettyprinter));
-   Vb.mk (Pat.constraint_ show_var show_type) (polymorphize stringprinter);]
+   Vb.mk ~attrs:[no_warn_32] (Pat.constraint_ show_var show_type) (polymorphize stringprinter);]
 
 let () =
   Ppx_deriving.(register (create deriver