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

2020-02-04 17:04:42 +01:00 · 2020-02-04 17:04:42 +01:00 · a2b66ac6d6
parent cefb08ee50
commit a2b66ac6d6
1 changed files with 1 additions and 2 deletions
--- a/src/PDF/Pages.hs
+++ b/src/PDF/Pages.hs
@ -65,8 +65,7 @@ getFont pageDict =
  key "Resources" pageDict
  //= getResource
  \\= key "Font"
-  >>= follow
-  \\= dict
+  >>= getResource

 cache :: (ObjectId -> T CMap) -> ObjectId -> T CMap
 cache loader objectId =