[Pkg-haskell-commits] darcs: tools: Port haskell-pkg-debcheck to newer HaXML API
Joachim Breitner
mail at joachim-breitner.de
Sat Jun 4 11:55:30 UTC 2011
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")
More information about the Pkg-haskell-commits
mailing list