X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FFoldable.hs;h=df6e52a30f7ed69e9ec8f8824475a51fc6515877;hb=3a6392956bbb1cb908a596bcbb67d7bcc8dbd72f;hp=cb573c4235599a963d6ea1a8a0ebfe6a551a6fe6;hpb=2b2397221c29a275630c62d4982caedc2c7cd987;p=ghc-base.git

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