)
where
-import Control.Arrow
-import Control.Arrow.ArrowList
-import Control.Arrow.ArrowTree
import Data.Maybe
import Data.Time
import Network.URI
import Rakka.Attachment
import Rakka.Utils
import Rakka.W3CDateTime
-import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.Arrow.XmlNodeSet
+import Text.XML.HXT.Arrow
import Text.XML.HXT.DOM.TypeDefs
) -<< ()
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
, tbURL = url
, tbBlogName = blogName
, tbTime = time
- }
\ No newline at end of file
+ }