From a2b66ac6d65166ab556eaffded7110c201c50a35 Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Tue, 4 Feb 2020 17:04:42 +0100
Subject: [PATCH] Generalize the getFont function because some /Resources have
 a direct dictionary as value for their /Font property

---
 src/PDF/Pages.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/PDF/Pages.hs b/src/PDF/Pages.hs
index b882dbf..eef6bdd 100755
--- 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 =