X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FTrackBack.hs;h=8b1d2cbba8f1a614e628ad3f8129de05d7b114eb;hb=0b97160b4d55eca16f3c56b47a908997fc458284;hp=2ea34cd44ed1118fcee67e9bac5c51ad6f5e843a;hpb=e85b652169f502cffe1f6f7f927d8990e9c11499;p=Rakka.git

diff --git a/Rakka/TrackBack.hs b/Rakka/TrackBack.hs
index 2ea34cd..8b1d2cb 100644
--- a/Rakka/TrackBack.hs
+++ b/Rakka/TrackBack.hs
@@ -3,17 +3,13 @@ module Rakka.TrackBack
     )
     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
 
 
@@ -72,10 +68,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 
@@ -100,4 +93,4 @@ instance Attachment [TrackBack] where
                                 , tbURL      = url
                                 , tbBlogName = blogName
                                 , tbTime     = time
-                                }
\ No newline at end of file
+                                }