From 3a39c75e6a8a7333779ee558e847a970eb686fba Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Sun, 22 Sep 2019 01:37:28 +0200
Subject: [PATCH] Stop requiring an empty line between subsections in a xref
 section

---
 src/PDF/Object.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/PDF/Object.hs b/src/PDF/Object.hs
index d6d1129..fc116e4 100644
--- a/src/PDF/Object.hs
+++ b/src/PDF/Object.hs
@@ -329,7 +329,7 @@ instance Output XRefSection where
 
 xRefSection :: Parser u XRefSection
 xRefSection = foldr addSubsection Map.empty <$>
-  (line "xref" *> xRefSubSection `sepBy` EOL.parser)
+  (line "xref" *> xRefSubSection `sepBy` many EOL.parser)
   where
     addSubsection (XRefSubSection {firstObjectId, entries}) =
       Map.union . Map.fromList $ zip ([firstObjectId..]) entries