Tissevert
/
Hufflepdf
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Follow previous renaming for a local variable in Navigation for more clarity

This commit is contained in:
Tissevert 2020-02-23 22:15:52 +01:00
parent bcf2e05bfb
commit 36b1782464
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/PDF/Object/Navigation.hs
View File

@ -58,8 +58,8 @@ getField key aDictionary =
objectById :: PDFContent m => ObjectId -> m Object
objectById objectId = do
content <- ask
return (objects content ! objectId)
layer <- ask
return (objects layer ! objectId)
(./) :: PDFContent m => m Object -> String -> m Object
(./) object key = (object >>= getDictionary >>= getField key >>= castObject)