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

Just noticed Streams are a kind of Dictionary too, since they have a header

Browse source
This commit is contained in:
Tissevert 2020-02-15 10:23:32 +01:00
parent 4a6dbda7d3
commit b916ab5206
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/PDF/Object/Navigation.hs
View file

@ -40,6 +40,7 @@ instance MonadFail Error where
castDictionary :: MonadFail m => Object -> m Dictionary castDictionary :: MonadFail m => Object -> m Dictionary
castDictionary (Direct (Dictionary aDict)) = return aDict castDictionary (Direct (Dictionary aDict)) = return aDict
castDictionary (Stream {header}) = return header
castDictionary obj = expected "dictionary : " obj castDictionary obj = expected "dictionary : " obj
castObjectId :: MonadFail m => DirectObject -> m ObjectId castObjectId :: MonadFail m => DirectObject -> m ObjectId