[Pkg-haskell-commits] darcs: tools: Do not scheudle experimental binNMUs for problems in unstable

[Joachim Breitner]

Sat Jan  5 21:56:36 UTC 2013  Joachim Breitner <mail at joachim-breitner.de>
  * Do not scheudle experimental binNMUs for problems in unstable
  Ignore-this: ccfb8bdaebe8219fd99eaabebe70a07b

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

Sat Jan  5 21:56:36 UTC 2013  Joachim Breitner <mail at joachim-breitner.de>
  * Do not scheudle experimental binNMUs for problems in unstable
  Ignore-this: ccfb8bdaebe8219fd99eaabebe70a07b
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-01-05 21:59:15.899806869 +0000
+++ new-tools//haskell-pkg-debcheck-exp.hs	2013-01-05 21:59:15.915718088 +0000
@@ -108,12 +108,14 @@
         return (s::SrcPkgName,(S.singleton a, sv, "dummy"))
 
     let nmus = M.fromListWith mergeArches $ do
-        (p,a,_,x) <- problems
+        (p,a,v,x) <- problems
         guard $ (p,a) `member` binaryMap
         let s  = bToS ! p :: SrcPkgName
             si = sourcesMap ! s
             (_,bsv) = binaryMap ! (p,a)
             sv = siVersion si
+        -- Do not schedule binNMUs for problems in older packages (e.g. in unstable)
+        guard (bsv == v)
         -- Do not schedule binNMUs for outdated sources
         guard (bsv == sv)
         --guard (not (s `member` outdatedSources))