add INLINE toList

In anticipation of the fixing of #2353.

diff --git a/Data/Foldable.hs b/Data/Foldable.hs
index cb573c4..df6e52a 100644 (file)
--- 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