From d4dcdd42026e44d1dd8ea60e537cdff565f0f354 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 11 Jan 2024 19:36:54 +0000
Subject: [PATCH] First successful JBIG2Lossy

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

diff --git a/cpdfimage.ml b/cpdfimage.ml
index dac25ee..0299a41 100644
--- a/cpdfimage.ml
+++ b/cpdfimage.ml
@@ -780,7 +780,7 @@ let preprocess_jbig2_lossy ~path_to_jbig2enc ~length_threshold ~pixel_threshold
                   {contents =
                      Pdf.Dictionary [("/Length", Pdf.Integer (bytes_size data));
                                      ("/Filter", Pdf.Name "/JBIG2Decode");
-                                     ("/JBIG2Globals", Pdf.Indirect globalobj)],
+                                     ("/DecodeParms", Pdf.Dictionary [("/JBIG2Globals", Pdf.Indirect globalobj)])],
                      Pdf.Got data}
               in
               let dict = match Pdf.lookup_obj pdf objnum with Pdf.Stream {contents = d, _} -> d | _ -> Pdf.Dictionary [] in