lang <- maybeA (getXPathTreesInDoc "/page/@lang/text()" >>> getText) -< tree
fileName <- maybeA (getXPathTreesInDoc "/page/@filename/text()" >>> getText) -< tree
lang <- maybeA (getXPathTreesInDoc "/page/@lang/text()" >>> getText) -< tree
fileName <- maybeA (getXPathTreesInDoc "/page/@filename/text()" >>> getText) -< tree
(Just text, Nothing ) -> (False, L.pack $ UTF8.encode text )
(Nothing , Just binary) -> (True , L.pack $ B64.decode binary)
_ -> error "one of textData or binaryData is required"
(Just text, Nothing ) -> (False, L.pack $ UTF8.encode text )
(Nothing , Just binary) -> (True , L.pack $ B64.decode binary)
_ -> error "one of textData or binaryData is required"