) -<< ()
deserializeFromXmlTree
- = proc doc
- -> do tree <- getXPathTreesInDoc "/trackbacks/trackback" -< doc
- tb <- treeToTb -< tree
- listA this -< tb
+ = proc doc -> listA (getXPathTreesInDoc "/trackbacks/trackback" >>> treeToTb) -< doc
where
treeToTb :: (ArrowChoice a, ArrowXml a) => a XmlTree TrackBack
treeToTb