implemented trackback receiver

[Rakka.git] / Rakka / TrackBack.hs

diff --git a/Rakka/TrackBack.hs b/Rakka/TrackBack.hs
index 2ea34cd44ed1118fcee67e9bac5c51ad6f5e843a..4155e3449af548e5a0013a25f8127b10adaf87f8 100644 (file)
--- a/Rakka/TrackBack.hs
+++ b/Rakka/TrackBack.hs
@@ -72,10 +72,7 @@ instance Attachment [TrackBack] where
                    ) -<< ()
 
     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