diff --git a/src/PDF/Pages.hs b/src/PDF/Pages.hs index aaf79e1..45dc5a9 100755 --- a/src/PDF/Pages.hs +++ b/src/PDF/Pages.hs @@ -92,7 +92,6 @@ loadFonts = foldM addFont Map.empty . Map.toList addFont :: FontSet -> (Name, DirectObject) -> T FontSet addFont output (name, Reference (IndirectObjCoordinates {objectId})) = flip (Map.insert name) output <$> cache loadFont objectId - --maybe output (flip (Map.insert name) output) <$> cache loadFont objectId addFont output _ = return output getObject :: ObjectId -> T Object