From 41c93cddd1c6940d9715da299097faf7a4e3d4b8 Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Thu, 6 Aug 2009 14:28:53 +0000 Subject: [PATCH] add INLINE toList In anticipation of the fixing of #2353. --- Data/Foldable.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Data/Foldable.hs b/Data/Foldable.hs index cb573c4..df6e52a 100644 --- a/Data/Foldable.hs +++ b/Data/Foldable.hs @@ -226,6 +226,7 @@ msum = foldr mplus mzero -- | List of elements of a structure. toList :: Foldable t => t a -> [a] +{-# INLINE toList #-} #ifdef __GLASGOW_HASKELL__ toList t = build (\ c n -> foldr c n t) #else -- 1.7.10.4