[Pkg-haskell-commits] darcs: tools: Fix bug (if it is a bug)

[Joachim Breitner]

Sun Apr 10 08:08:52 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Fix bug (if it is a bug)
  Ignore-this: dc7f82976c0d04cbc28b616da4bc14df

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

Sun Apr 10 08:08:52 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Fix bug (if it is a bug)
  Ignore-this: dc7f82976c0d04cbc28b616da4bc14df
diff -rN -u old-tools/haskell-pkg-debcheck.hs new-tools/haskell-pkg-debcheck.hs
--- old-tools/haskell-pkg-debcheck.hs	2011-04-10 08:09:18.079281673 +0000
+++ new-tools/haskell-pkg-debcheck.hs	2011-04-10 08:09:18.083281883 +0000
@@ -139,6 +139,7 @@
             (do
                 guard $ siName dsi `M.member` nmus
                 guard $ a `S.member` (let (as,_,_) = nmus ! siName dsi in as)
+                guard $ (bdep,a) `M.member` binaryMap
                 let dwv = fst (binaryMap ! (bdep,a))
                 return $ [[(Rel bdep (Just (SGR dwv)) Nothing)]]
              )