Tissevert
/
Hufflepdf
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Stop requiring an empty line between subsections in a xref section

This commit is contained in:
Tissevert 2019-09-22 01:37:28 +02:00
parent 29c5823f34
commit 3a39c75e6a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/PDF/Object.hs
View File

@ -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