Fix warnings.
authorMilan Straka <fox@ucw.cz>
Wed, 25 Apr 2012 16:45:59 +0000 (18:45 +0200)
committerMilan Straka <fox@ucw.cz>
Wed, 25 Apr 2012 16:45:59 +0000 (18:45 +0200)
Data/IntMap/Base.hs

index a2f35ed..fb0560e 100644 (file)
@@ -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"