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

Fix bypassed error message for lines + add one for occurrences

Browse source
This commit is contained in:
Tissevert 2019-05-31 15:06:20 +02:00
parent 11cb6504d7
commit 85e4eb9273
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/PDF/Body.hs
View file

@ -17,7 +17,7 @@ import PDF.Object (
, Structure(..), XRefEntry(..), XRefSection, XRefSubSection(..) , Structure(..), XRefEntry(..), XRefSection, XRefSubSection(..)
, blank, dictionary, directObject, integer, line , blank, dictionary, directObject, integer, line
) )
import PDF.Parser (Parser, block, char, on, runParser, takeAll) import PDF.Parser (Parser, (<?>), block, char, on, option, runParser, takeAll)
data UserState = UserState { data UserState = UserState {
input :: ByteString input :: ByteString
@ -110,7 +110,8 @@ indirectObjCoordinates = do
return coordinates return coordinates
occurrence :: SParser Occurrence occurrence :: SParser Occurrence
occurrence = Comment <$> comment <|> Indirect <$> indirectObjCoordinates occurrence =
Comment <$> comment <|> Indirect <$> indirectObjCoordinates <?> "comment or object"
populate :: ByteString -> InputStructure -> Content populate :: ByteString -> InputStructure -> Content
populate input structure = populate input structure =

2
src/PDF/Object.hs
View file

@ -46,7 +46,7 @@ import PDF.Parser (
import Text.Printf (printf) import Text.Printf (printf)
line :: String -> Parser u () line :: String -> Parser u ()
line l = string (BS.pack l) *> EOL.parser *> return () <?> printf "line «%s»" l line l = (string (BS.pack l) *> EOL.parser *> return ()) <?> printf "line «%s»" l
magicNumber :: ByteString magicNumber :: ByteString
magicNumber = "%PDF-" magicNumber = "%PDF-"