Merge pull request #159 from NathanReb/expose-derivers

Expose Deriving.t to allow definition of external Deriving aliases
ocaml-ppx · Jul 25, 2024 · f2e79bb · f2e79bb
2 parents 61f2d63 + b7ea5fb
commit f2e79bb
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 3 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,6 +1,10 @@
 unreleased
 ----------
 
+  * Expose Deriving.t values to allow definition of external Deriving aliases
+    (#159)
+    @NathanReb
+
 3.8.0
 -----
 

diff --git a/src/ppx_deriving_yojson.ml b/src/ppx_deriving_yojson.ml
@@ -919,7 +919,7 @@ let make_gen f =
   in
   Deriving.Generator.V2.make (args ()) f'
 
-let _to_deriving: Deriving.t =
+let to_yojson: Deriving.t =
   Deriving.add
     "to_yojson"
     ~str_type_decl:(make_gen (fun ~options ~path (_, type_decls) ->
@@ -931,7 +931,7 @@ let _to_deriving: Deriving.t =
     ~str_type_ext:(make_gen ser_str_of_type_ext)
     ~sig_type_ext:(make_gen ser_sig_of_type_ext)
 
-let _of_deriving: Deriving.t =
+let of_yojson: Deriving.t =
   Deriving.add
     "of_yojson"
     ~str_type_decl:(make_gen (fun ~options ~path (_, type_decls) ->
@@ -944,7 +944,7 @@ let _of_deriving: Deriving.t =
     ~sig_type_ext:(make_gen desu_sig_of_type_ext)
 
 (* Not just alias because yojson also has meta (without its own deriver name) *)
-let _deriving: Deriving.t =
+let yojson: Deriving.t =
   Deriving.add
     "yojson"
     ~str_type_decl:(make_gen (fun ~options ~path (_, type_decls) ->

diff --git a/src/ppx_deriving_yojson.mli b/src/ppx_deriving_yojson.mli
@@ -0,0 +1,5 @@
+val to_yojson : Ppxlib.Deriving.t
+
+val of_yojson : Ppxlib.Deriving.t
+
+val yojson : Ppxlib.Deriving.t