Repository : ssh://[email protected]/containers On branch : ghc-head Link : http://git.haskell.org/?p=packages/containers.git;a=commit;h=1f66cb9808b9ff1c90f2021bbd9112fc5637d0ac
>--------------------------------------------------------------- commit 1f66cb9808b9ff1c90f2021bbd9112fc5637d0ac Author: Johan Tibell <[email protected]> Date: Thu Sep 20 11:28:41 2012 +0200 -Wall police >--------------------------------------------------------------- 1f66cb9808b9ff1c90f2021bbd9112fc5637d0ac Data/Map/Base.hs | 4 ++-- Data/Map/Strict.hs | 4 ++-- Data/Set/Base.hs | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/Data/Map/Base.hs b/Data/Map/Base.hs index edf0241..146c5f3 100644 --- a/Data/Map/Base.hs +++ b/Data/Map/Base.hs @@ -1932,11 +1932,11 @@ fromList [(kx, x)] = Bin 1 kx x Tip Tip fromList ((kx0, x0) : xs0) | not_ordered kx0 xs0 = fromList' (Bin 1 kx0 x0 Tip Tip) xs0 | otherwise = go (1::Int) (Bin 1 kx0 x0 Tip Tip) xs0 where - not_ordered kx [] = False + not_ordered _ [] = False not_ordered kx ((ky,_) : _) = kx >= ky {-# INLINE not_ordered #-} - fromList' t xs = foldlStrict ins t xs + fromList' t0 xs = foldlStrict ins t0 xs where ins t (k,x) = insert k x t STRICT_1_OF_3(go) diff --git a/Data/Map/Strict.hs b/Data/Map/Strict.hs index 7bdbc7d..9ecefcc 100644 --- a/Data/Map/Strict.hs +++ b/Data/Map/Strict.hs @@ -1026,11 +1026,11 @@ fromList [(kx, x)] = x `seq` Bin 1 kx x Tip Tip fromList ((kx0, x0) : xs0) | not_ordered kx0 xs0 = x0 `seq` fromList' (Bin 1 kx0 x0 Tip Tip) xs0 | otherwise = x0 `seq` go (1::Int) (Bin 1 kx0 x0 Tip Tip) xs0 where - not_ordered kx [] = False + not_ordered _ [] = False not_ordered kx ((ky,_) : _) = kx >= ky {-# INLINE not_ordered #-} - fromList' t xs = foldlStrict ins t xs + fromList' t0 xs = foldlStrict ins t0 xs where ins t (k,x) = insert k x t STRICT_1_OF_3(go) diff --git a/Data/Set/Base.hs b/Data/Set/Base.hs index a3a49bd..5247261 100644 --- a/Data/Set/Base.hs +++ b/Data/Set/Base.hs @@ -790,11 +790,11 @@ fromList [x] = Bin 1 x Tip Tip fromList (x0 : xs0) | not_ordered x0 xs0 = fromList' (Bin 1 x0 Tip Tip) xs0 | otherwise = go (1::Int) (Bin 1 x0 Tip Tip) xs0 where - not_ordered x [] = False + not_ordered _ [] = False not_ordered x (y : _) = x >= y {-# INLINE not_ordered #-} - fromList' t xs = foldlStrict ins t xs + fromList' t0 xs = foldlStrict ins t0 xs where ins t x = insert x t STRICT_1_OF_3(go) _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
