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"