X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FTrackBack.hs;h=4155e3449af548e5a0013a25f8127b10adaf87f8;hp=2ea34cd44ed1118fcee67e9bac5c51ad6f5e843a;hb=51edda81709389f8219ddb45d572de915a2e7553;hpb=dc29dc9081156af3b536b19ffd828cdd67ddd84a

diff --git a/Rakka/TrackBack.hs b/Rakka/TrackBack.hs
index 2ea34cd..4155e34 100644
--- 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