[Pkg-haskell-commits] darcs: tools: Print less useless dep-wait lines

[Joachim Breitner]

Sat Jul 31 17:39:24 UTC 2010  Joachim Breitner <mail at joachim-breitner.de>
  * Print less useless dep-wait lines
  Ignore-this: d6a3c2d1271f4e000d3b3aaffbe50ab8

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

Sat Jul 31 17:39:24 UTC 2010  Joachim Breitner <mail at joachim-breitner.de>
  * Print less useless dep-wait lines
  Ignore-this: d6a3c2d1271f4e000d3b3aaffbe50ab8
diff -rN -u old-tools/haskell-pkg-debcheck.hs new-tools/haskell-pkg-debcheck.hs
--- old-tools/haskell-pkg-debcheck.hs	2010-07-31 17:39:57.910002594 +0000
+++ new-tools/haskell-pkg-debcheck.hs	2010-07-31 17:39:57.914002808 +0000
@@ -125,8 +125,12 @@
         let dsi = sourcesMap ! (bToS ! bdep)
         dw <-
             (do
+                -- DepWait upon packages that are yet to be built
                 guard $ siName dsi `M.member` outdatedSources
+                -- on this architecute
                 guard $ a `S.member` (let (as,_,_) = outdatedSources ! siName dsi in as)
+                -- unless this package is non-existant on this architecture
+                guard $ (bdep,a) `M.member` binaryMap
                 let dwv = siVersion dsi
                 return $ [[(Rel bdep (Just (GRE dwv)) Nothing )]]
             ) ++