From 35bc734fffe988a0007360ff0853e8218ca6713b Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 27 Aug 2019 16:03:48 +0100
Subject: [PATCH] more

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

diff --git a/cpdf.ml b/cpdf.ml
index f579616..a400f5f 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -3484,7 +3484,7 @@ let get_xmp_info pdf name =
 (* Set XMP info *)
 let rec set_xml_field kind fieldname value = function
   D data -> D data
-| E (((n, n'), m), [D _]) when n = kind && n' = fieldname ->
+| E (((n, n'), m), _ (*[D _]*)) when n = kind && n' = fieldname ->
     E (((n, n'), m), [D value])
 | E (x, ts) -> E (x, List.map (set_xml_field kind fieldname value) ts)