CHANGELOG.md

+6.0.3
+-----
+
+* Add OCaml 5.3 support
+  #288
+  (@kit-ty-kate)
+
 6.0.2
 -----
 

debian/changelog

+ppx-deriving (6.0.3-1) unstable; urgency=medium
+
+  * New upstream release
+  * Bump Standards-Version to 4.7.0
+
+ -- Stéphane Glondu <glondu@debian.org>  Fri, 11 Oct 2024 11:54:40 +0200
+
 ppx-deriving (6.0.2-2) unstable; urgency=medium
 
   * Update test for new show returned value (Closes: #1072672)

debian/control

@@ -16,7 +16,7 @@ Build-Depends:
  libounit-ocaml-dev <!nocheck>,
  libppx-derivers-ocaml-dev,
  dh-ocaml (>= 1.2)
-Standards-Version: 4.6.2
+Standards-Version: 4.7.0
 Rules-Requires-Root: no
 Vcs-Browser: https://salsa.debian.org/ocaml-team/ppx-deriving
 Vcs-Git: https://salsa.debian.org/ocaml-team/ppx-deriving.git

src/api/ppx_deriving.cppo.ml

@@ -174,8 +174,18 @@ let raise_errorf ?sub ?loc fmt =
 #if OCAML_VERSION >= (4, 08, 0)
     let sub =
       let msg_of_error err =
+#if OCAML_VERSION >= (5, 3, 0)
+        let loc = err.Location.main.loc in
+        let print_report fmt x =
+          Ocaml_common.Format_doc.deprecated_printer
+            (fun fmt -> Location.print_report fmt x) fmt
+        in
+        Location.msg ~loc "%a" print_report err
+#else
         { txt = (fun fmt -> Location.print_report fmt err);
-          loc = err.Location.main.loc } in
+          loc = err.Location.main.loc }
+#endif
+      in
       Option.map (List.map msg_of_error) sub in
 #endif
     let err = Location.error ?sub ?loc str in