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" _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
