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

Generalize the getFont function because some /Resources have a direct dictionary as value for their /Font property

This commit is contained in:
Tissevert 2020-02-04 17:04:42 +01:00
parent cefb08ee50
commit a2b66ac6d6
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

@ -65,8 +65,7 @@ getFont pageDict =
key "Resources" pageDict key "Resources" pageDict
//= getResource //= getResource
\\= key "Font" \\= key "Font"
>>= follow >>= getResource
\\= dict
cache :: (ObjectId -> T CMap) -> ObjectId -> T CMap cache :: (ObjectId -> T CMap) -> ObjectId -> T CMap
cache loader objectId = cache loader objectId =