[Pkg-haskell-commits] darcs: tools: Some fixes

[Joachim Breitner]

Fri Apr  8 11:47:34 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Some fixes
  Ignore-this: 4eb3c7029a10c51639c8660645f2be75

    M ./haskell-pkg-debcheck.hs -4 +6

Fri Apr  8 11:47:34 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Some fixes
  Ignore-this: 4eb3c7029a10c51639c8660645f2be75
diff -rN -u old-tools/haskell-pkg-debcheck.hs new-tools/haskell-pkg-debcheck.hs
--- old-tools/haskell-pkg-debcheck.hs	2011-04-10 05:46:49.118335958 +0000
+++ new-tools/haskell-pkg-debcheck.hs	2011-04-10 05:46:49.130336588 +0000
@@ -28,8 +28,7 @@
 type Arch = String
 
 arches :: [Arch]
---arches = ["amd64","i386"] 
---arches = words "amd64 armel hppa i386 ia64 mips mipsel powerpc s390 sparc kfreebsd-amd64 kfreebsd-i386"
+--arches = ["amd64", "i386"]
 arches = words "alpha amd64 armel hppa i386 mips mipsel powerpc s390 sparc kfreebsd-amd64 kfreebsd-i386"
 
 
@@ -108,9 +107,12 @@
             sv = siVersion si
         -- Do not schedule binNMUs for outdated sources
         guard (bsv == sv)
-        guard (not (s `M.member` outdatedSources)) 
-        return (s,(S.singleton a, sv, formatReason x))
+        --guard (not (s `M.member` outdatedSources)) 
 
+        -- Do not scheulde binNMUs if not in Installed state
+        guard (fst (wbMap ! (s,a)) == "Installed")
+        return (s,(S.singleton a, sv, formatReason x))
+    
     forM (M.toList nmus) $ \(s,(as,sv,exp)) -> putStrLn $ "nmu " ++ s ++ "_" ++ show sv ++ " . " ++ unwords (S.toList as) ++ " . -m '" ++ exp ++ "'"
     
     let buildingSources = M.unionWith mergeArches outdatedSources nmus