From 65aafbb561f104a18a6b1bf07ef681ca4ac45c07 Mon Sep 17 00:00:00 2001 From: Ulysse <5031221+voodoos@users.noreply.github.com> Date: Sat, 7 Dec 2024 11:49:27 +0100 Subject: [PATCH] Remove deprecated lib --- vendor/ppx_deriving_jsont/src/dune | 2 +- vendor/ppx_deriving_jsont/src/ppx_deriving_jsont.ml | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/vendor/ppx_deriving_jsont/src/dune b/vendor/ppx_deriving_jsont/src/dune index b794395..bea75da 100644 --- a/vendor/ppx_deriving_jsont/src/dune +++ b/vendor/ppx_deriving_jsont/src/dune @@ -2,7 +2,7 @@ (name ppx_deriving_jsont) (public_name ppx_deriving_jsont) (synopsis "[@@deriving jsont]") - (libraries ppxlib ppx_deriving.api) + (libraries ppxlib) (preprocess (pps ppxlib.metaquot)) (ppx_runtime_libraries jsont) diff --git a/vendor/ppx_deriving_jsont/src/ppx_deriving_jsont.ml b/vendor/ppx_deriving_jsont/src/ppx_deriving_jsont.ml index 70932b1..cfe5968 100644 --- a/vendor/ppx_deriving_jsont/src/ppx_deriving_jsont.ml +++ b/vendor/ppx_deriving_jsont/src/ppx_deriving_jsont.ml @@ -77,7 +77,9 @@ let rec of_core_type (core_type : Parsetree.core_type) = [%expr Jsont.list [%e jsont]] | { ptyp_desc = Ptyp_constr ({ txt = lid; loc }, _args); _ } -> (* TODO: arguments ? quoting ? *) - Exp.ident (Loc.make ~loc (Ppx_deriving.mangle_lid (`Suffix "jsont") lid)) + Exp.ident + (Loc.make ~loc + (Ppxlib.Expansion_helpers.mangle_lid (Suffix "jsont") lid)) | ct -> let msg = Printf.sprintf "Not implemented: core_type %s"