-Wall police
authorJohan Tibell <johan.tibell@gmail.com>
Thu, 20 Sep 2012 09:28:41 +0000 (11:28 +0200)
committerJohan Tibell <johan.tibell@gmail.com>
Thu, 20 Sep 2012 09:28:41 +0000 (11:28 +0200)
Data/Map/Base.hs
Data/Map/Strict.hs
Data/Set/Base.hs

index edf0241..146c5f3 100644 (file)
@@ -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)
index 7bdbc7d..9ecefcc 100644 (file)
@@ -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)
index a3a49bd..5247261 100644 (file)
@@ -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)