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

Browse source
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 :: PDFContent m => ObjectId -> m Object
objectById objectId = do objectById objectId = do
content <- ask layer <- ask
return (objects content ! objectId) return (objects layer ! objectId)
(./) :: PDFContent m => m Object -> String -> m Object (./) :: PDFContent m => m Object -> String -> m Object
(./) object key = (object >>= getDictionary >>= getField key >>= castObject) (./) object key = (object >>= getDictionary >>= getField key >>= castObject)