Make Foldable.fold be INLINABLE without an argument.
authorMilan Straka <fox@ucw.cz>
Sun, 19 Oct 2014 12:07:13 +0000 (14:07 +0200)
committerMilan Straka <fox@ucw.cz>
Sun, 19 Oct 2014 12:07:13 +0000 (14:07 +0200)
Data/IntMap/Base.hs
Data/Map/Base.hs
Data/Set/Base.hs

index 8f2e32f..c1b2f4d 100644 (file)
@@ -313,7 +313,7 @@ instance Monoid (IntMap a) where
     mconcat = unions
 
 instance Foldable.Foldable IntMap where
-  fold t = go t
+  fold = go
     where go Nil = mempty
           go (Tip _ v) = v
           go (Bin _ _ l r) = go l `mappend` go r
index edcfdb7..781ac3a 100644 (file)
@@ -2647,7 +2647,7 @@ instance Traversable (Map k) where
   {-# INLINE traverse #-}
 
 instance Foldable.Foldable (Map k) where
-  fold t = go t
+  fold = go
     where go Tip = mempty
           go (Bin 1 _ v _ _) = v
           go (Bin _ _ v l r) = go l `mappend` (v `mappend` go r)
index e676a6f..67ade4e 100644 (file)
@@ -255,7 +255,7 @@ instance Ord a => Monoid (Set a) where
     mconcat = unions
 
 instance Foldable.Foldable Set where
-    fold t = go t
+    fold = go
       where go Tip = mempty
             go (Bin 1 k _ _) = k
             go (Bin _ k l r) = go l `mappend` (k `mappend` go r)