Use Longident.name

Suggested by Gabriel Scherer: ocaml-ppx#111 (comment) and ocaml-ppx#111 (comment)
thierry-martinez · May 21, 2020 · 5a26808 · 5a26808
1 parent 84a0c33
commit 5a26808
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/ppx_deriving_yojson.ml b/src/ppx_deriving_yojson.ml
@@ -478,7 +478,7 @@ let ser_str_of_type_ext ~options ~path:_ ({ ptyext_path = { loc }} as type_ext)
       Ppx_deriving.mangle_lid
         (`PrefixSuffix ("M", "to_yojson")) type_ext.ptyext_path.txt
     in
-    String.concat "." (Longident.flatten_exn mod_lid)
+    Longident.name mod_lid
   in
   let polymorphize = Ppx_deriving.poly_fun_of_type_ext type_ext in
   let serializer = polymorphize (wrap_runtime serializer) in
@@ -695,7 +695,7 @@ let desu_str_of_type_ext ~options ~path ({ ptyext_path = { loc } } as type_ext)
       Ppx_deriving.mangle_lid
         (`PrefixSuffix ("M", "of_yojson")) type_ext.ptyext_path.txt
     in
-    String.concat "." (Longident.flatten_exn mod_lid)
+    Longident.name mod_lid
   in
   let polymorphize = Ppx_deriving.poly_fun_of_type_ext type_ext in
   let desurializer = wrap_runtime (polymorphize desurializer) in