diff --git a/src/PDF/Pages.hs b/src/PDF/Pages.hs
index 8ed29f8..0500e97 100755
--- a/src/PDF/Pages.hs
+++ b/src/PDF/Pages.hs
@@ -64,8 +64,7 @@ getFontDictionary :: Dictionary -> T Dictionary
 getFontDictionary pageDict =
   key "Resources" pageDict
   //= getResource
-  \\= key "Font"
-  >>= getResource
+  >>= either (const $ return Map.empty) getResource . key "Font"
 
 cache :: (ObjectId -> T Font) -> ObjectId -> T Font
 cache loader objectId =