diff options
Diffstat (limited to 'libraries/base/Data/Foldable.hs')
| -rw-r--r-- | libraries/base/Data/Foldable.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/libraries/base/Data/Foldable.hs b/libraries/base/Data/Foldable.hs index 3bc521481c..de6c0562cb 100644 --- a/libraries/base/Data/Foldable.hs +++ b/libraries/base/Data/Foldable.hs @@ -1,5 +1,4 @@ {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP #-} ----------------------------------------------------------------------------- -- | @@ -69,10 +68,8 @@ import Data.Maybe (fromMaybe, listToMaybe) import Data.Monoid import Data.Proxy -#ifdef __GLASGOW_HASKELL__ import GHC.Exts (build) import GHC.Arr -#endif -- | Data structures that can be folded. -- @@ -260,11 +257,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 -toList = foldr (:) [] -#endif -- | The concatenation of all the elements of a container of lists. concat :: Foldable t => t [a] -> [a] |