From 9de2e06ac1c846db5116e192a62dec97f91a20c1 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 9 Jul 2024 13:21:29 +0100
Subject: [PATCH] alter replace_chain API

---
 cpdfmetadata.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfmetadata.ml b/cpdfmetadata.ml
index 155a40c..ba3740a 100644
--- 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