From: Ross Paterson <ross@soi.city.ac.uk>
Date: Thu, 6 Aug 2009 14:28:53 +0000 (+0000)
Subject: add INLINE toList
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=41c93cddd1c6940d9715da299097faf7a4e3d4b8;p=ghc-base.git

add INLINE toList

In anticipation of the fixing of #2353.
---

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