[Pkg-haskell-commits] darcs: tools: Correctly prevent haskell-pkg-debcheck-exp.hs from scheduling binNMUs caused by problems in unstable

[Joachim Breitner]

Wed Feb  6 12:01:32 UTC 2013  Joachim Breitner <mail at joachim-breitner.de>
  * Correctly prevent haskell-pkg-debcheck-exp.hs from scheduling binNMUs caused by problems in unstable
  Ignore-this: d4faa6a15ddd4700b42577f0afc29053

    M ./haskell-pkg-debcheck-exp.hs -4 +3

Wed Feb  6 12:01:32 UTC 2013  Joachim Breitner <mail at joachim-breitner.de>
  * Correctly prevent haskell-pkg-debcheck-exp.hs from scheduling binNMUs caused by problems in unstable
  Ignore-this: d4faa6a15ddd4700b42577f0afc29053
diff -rN -u old-tools//haskell-pkg-debcheck-exp.hs new-tools//haskell-pkg-debcheck-exp.hs
--- old-tools//haskell-pkg-debcheck-exp.hs	2013-02-06 12:02:31.846224470 +0000
+++ new-tools//haskell-pkg-debcheck-exp.hs	2013-02-06 12:02:31.874220978 +0000
@@ -113,11 +113,10 @@
         guard $ (p,a) `member` binaryMap
         let s  = bToS ! p :: SrcPkgName
             si = sourcesMap ! s
-            (_,bsv) = binaryMap ! (p,a)
+            (bv,bsv) = binaryMap ! (p,a)
             sv = siVersion si
-        ---- Do not schedule binNMUs for problems in older packages (e.g. in unstable)
-        -- Does not work with binNMUs
-        --guard (bsv == v)
+        -- Do not schedule binNMUs for problems in older packages (e.g. in unstable)
+        guard (bv == v)
         -- Do not schedule binNMUs for outdated sources
         guard (bsv == sv)
         --guard (not (s `member` outdatedSources))