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

Allow resources with no /Font field, they won't cause any problem as long as no call to Tf (to load a font) is made

This commit is contained in:
Tissevert 2020-02-10 17:41:44 +01:00
parent 9f1b1afafe
commit 195446e653
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/PDF/Pages.hs
View File

@ -64,8 +64,7 @@ getFontDictionary :: Dictionary -> T Dictionary
getFontDictionary pageDict = getFontDictionary pageDict =
key "Resources" pageDict key "Resources" pageDict
//= getResource //= getResource
\\= key "Font" >>= either (const $ return Map.empty) getResource . key "Font"
>>= getResource
cache :: (ObjectId -> T Font) -> ObjectId -> T Font cache :: (ObjectId -> T Font) -> ObjectId -> T Font
cache loader objectId = cache loader objectId =