[commit: containers] master: -Wall police (cde7202)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/containers

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/cde720262463d96b57c14b9974757c129d0a3a7f

>---------------------------------------------------------------

commit cde720262463d96b57c14b9974757c129d0a3a7f
Author: Johan Tibell <johan.tibell at gmail.com>
Date:   Tue Nov 22 10:33:50 2011 -0800

    -Wall police

>---------------------------------------------------------------

 Data/IntSet.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/Data/IntSet.hs b/Data/IntSet.hs
index 61b7e84..e3dfa98 100644
--- a/Data/IntSet.hs
+++ b/Data/IntSet.hs
@@ -1318,7 +1318,7 @@ foldr'Bits prefix f z bm = let lb = lowestBitSet bm
     Derrick Lehmer and published in 1964 in a book edited by Beckenbach.)"
 ----------------------------------------------------------------------}
 bitcount :: Int -> Word -> Int
-bitcount a x = go a x
+bitcount a0 x0 = go a0 x0
   where go a 0 = a
         go a x = go (a + 1) (x .&. (x-1))
 {-# INLINE bitcount #-}