[Pkg-haskell-commits] darcs: tools: Ignore out-of-date warning for Failed and Not-For-Us packages

[Joachim Breitner]

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 <$>