Found a nicer way to handle the too long IndirectObjCoordinates for Object Navigation
This commit is contained in:
parent
44125f75a6
commit
1eb1c23053
|
@ -39,8 +39,8 @@ type Component = String
|
||||||
|
|
||||||
getDictionary :: PDFContent m => Object -> m Dictionary
|
getDictionary :: PDFContent m => Object -> m Dictionary
|
||||||
getDictionary (Direct (Dictionary aDict)) = return aDict
|
getDictionary (Direct (Dictionary aDict)) = return aDict
|
||||||
getDictionary (Direct (Reference (IndirectObjCoordinates {objectId}))) =
|
getDictionary (Direct (Reference ref)) =
|
||||||
objectById objectId >>= getDictionary
|
objectById (objectId ref) >>= getDictionary
|
||||||
getDictionary (Stream {header}) = return header
|
getDictionary (Stream {header}) = return header
|
||||||
getDictionary obj = expected "dictionary : " obj
|
getDictionary obj = expected "dictionary : " obj
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue