fixed the compilation breakage with newer HXT

[Rakka.git] / Rakka / TrackBack.hs

diff --git a/Rakka/TrackBack.hs b/Rakka/TrackBack.hs
index 2ea34cd44ed1118fcee67e9bac5c51ad6f5e843a..8b1d2cbba8f1a614e628ad3f8129de05d7b114eb 100644 (file)
--- 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
+                                }