alter replace_chain API

2024-07-09 13:21:29 +01:00 · 2024-07-09 13:21:29 +01:00 · 9de2e06ac1
parent 4c3ac81e2f
commit 9de2e06ac1
1 changed files with 1 additions and 1 deletions
--- a/cpdfmetadata.ml
+++ b/cpdfmetadata.ml
@ -467,7 +467,7 @@ let language pdf =
  | _ -> None

 let set_language pdf s =
-  Pdf.replace_chain pdf ["/Root"; "/Lang"] (Pdf.String s)
+  Pdf.replace_chain pdf ["/Root"] ("/Lang", (Pdf.String s))

 let output_xmp_info ?(json=ref [("none", `Null)]) encoding pdf =
  let notjson = !json = [("none", `Null)] in