[Pkg-haskell-commits] darcs: tools: Port haskell-pkg-debcheck to newer HaXML API

[Joachim Breitner]

Sat Jun  4 11:54:52 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Port haskell-pkg-debcheck to newer HaXML API
  Ignore-this: e28b3ee6874ebd6e02b825cd43ee1c9e

    M ./haskell-pkg-debcheck.hs -1 +1

Sat Jun  4 11:54:52 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Port haskell-pkg-debcheck to newer HaXML API
  Ignore-this: e28b3ee6874ebd6e02b825cd43ee1c9e
diff -rN -u old-tools//haskell-pkg-debcheck.hs new-tools//haskell-pkg-debcheck.hs
--- old-tools//haskell-pkg-debcheck.hs	2011-06-04 11:55:30.251951112 +0000
+++ new-tools//haskell-pkg-debcheck.hs	2011-06-04 11:55:30.260433603 +0000
@@ -262,7 +262,7 @@
     Document _ _ root  _ <- xmlParse "edos output" <$> hGetContents edosOut
     -- How do you actually use this HaXmL? This can not be the correct way:
     let filter = concatMap ((attributed "package" `x` attributed "architecture" `x` attributed "version" `x` extracted (concat . mapMaybe fst . textlabelled (txt `o` children)) ) keep) . (elm `o` children)
-    return $ map (\((((p,a),v),s),_) -> (p, a, parseDebianVersion v, s)) (filter (CElem root))
+    return $ map (\((((p,a),v),s),_) -> (p, a, parseDebianVersion v, s)) (filter (CElem root noPos))
 
 removeArchAll :: [(PkgName, Arch, DebianVersion, String)] -> [(PkgName, Arch, DebianVersion, String)]
 removeArchAll = filter (\(_,a,_,_) -> a /= "all")