diff --git a/src/PDF/Pages.hs b/src/PDF/Pages.hs index eef6bdd..035ce43 100755 --- a/src/PDF/Pages.hs +++ b/src/PDF/Pages.hs @@ -78,10 +78,10 @@ cache loader objectId = loadFont :: ObjectId -> T CMap loadFont objectId = - (getObject objectId + getObject objectId \\= dict \\= key "ToUnicode" - >>= follow) + >>= follow \\= stream \\= cMap