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 (Direct (Dictionary aDict)) = return aDict
|
||||
getDictionary (Direct (Reference (IndirectObjCoordinates {objectId}))) =
|
||||
objectById objectId >>= getDictionary
|
||||
getDictionary (Direct (Reference ref)) =
|
||||
objectById (objectId ref) >>= getDictionary
|
||||
getDictionary (Stream {header}) = return header
|
||||
getDictionary obj = expected "dictionary : " obj
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user