[commit: containers] master: Fix warnings. (a9b07a6)

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

On branch  : master

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

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

commit a9b07a6e0eff8103564de45785cdc69e6fb0c8f5
Author: Milan Straka <[email protected]>
Date:   Wed Apr 25 18:45:59 2012 +0200

    Fix warnings.

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

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

diff --git a/Data/IntMap/Base.hs b/Data/IntMap/Base.hs
index a2f35ed..fb0560e 100644
--- a/Data/IntMap/Base.hs
+++ b/Data/IntMap/Base.hs
@@ -1689,7 +1689,7 @@ keysSet (Bin p m l r)
   | m .&. IntSet.suffixBitMask == 0 = IntSet.Bin p m (keysSet l) (keysSet r)
   | otherwise = IntSet.Tip (p .&. IntSet.prefixBitMask) (computeBm (computeBm 0 l) r)
   where STRICT_1_OF_2(computeBm)
-        computeBm acc (Bin _ _ l r) = computeBm (computeBm acc l) r
+        computeBm acc (Bin _ _ l' r') = computeBm (computeBm acc l') r'
         computeBm acc (Tip kx _) = acc .|. IntSet.bitmapOf kx
         computeBm _   Nil = error "Data.IntSet.keysSet: Nil"