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 :: Parser u XRefSection
xRefSection = foldr addSubsection Map.empty <$> xRefSection = foldr addSubsection Map.empty <$>
(line "xref" *> xRefSubSection `sepBy` EOL.parser) (line "xref" *> xRefSubSection `sepBy` many EOL.parser)
where where
addSubsection (XRefSubSection {firstObjectId, entries}) = addSubsection (XRefSubSection {firstObjectId, entries}) =
Map.union . Map.fromList $ zip ([firstObjectId..]) entries Map.union . Map.fromList $ zip ([firstObjectId..]) entries