[Pkg-haskell-commits] darcs: tools: Ignore out-of-date warning for Failed and Not-For-Us packages
Joachim Breitner
mail at joachim-breitner.de
Sun Jul 17 10:59:28 UTC 2011
Sun Jul 17 10:58:46 UTC 2011 Joachim Breitner <mail at joachim-breitner.de>
* Ignore out-of-date warning for Failed and Not-For-Us packages
Ignore-this: a587c7ea516fe71c70b1656d3349d8c9
M ./haskell-pkg-debcheck.hs -6 +10
Sun Jul 17 10:58:46 UTC 2011 Joachim Breitner <mail at joachim-breitner.de>
* Ignore out-of-date warning for Failed and Not-For-Us packages
Ignore-this: a587c7ea516fe71c70b1656d3349d8c9
diff -rN -u old-tools//haskell-pkg-debcheck.hs new-tools//haskell-pkg-debcheck.hs
--- old-tools//haskell-pkg-debcheck.hs 2011-07-17 10:59:28.040618396 +0000
+++ new-tools//haskell-pkg-debcheck.hs 2011-07-17 10:59:28.048595252 +0000
@@ -226,17 +226,21 @@
guard (s `member` sourcesMap)
v <- parseDebianVersion <$>
fieldValue "version" para
+ st <- BS.unpack <$>
+ fieldValue "state" para
-- Consider all the posibilities here: What if wanna-build is newer,
-- what if it is older?
when (v /= siVersion (sourcesMap ! s)) $
- trace (printf "Version difference for %s: wb knows %s and Sources knows %s\n"
- s
- (show v)
- (show (siVersion (sourcesMap ! s)))) $
+ unless (st `elem` ["Failed-Removed", "Not-For-Us"]) $
+ trace (printf "Version difference for %s on %s in state %s: \
+ \wb knows %s and Sources knows %s"
+ s
+ arch
+ st
+ (show v)
+ (show (siVersion (sourcesMap ! s)))) $
return ()
guard (v == siVersion (sourcesMap ! s))
- st <- BS.unpack <$>
- fieldValue "state" para
dw <- (
(either (error.show) id) <$>
parseRelations <$>
More information about the Pkg-haskell-commits
mailing list