Commit 873dc895 authored by Simon Marlow's avatar Simon Marlow

foldl1' was added to Data.List in GHC 6.4.x

parent ed3d36bc
......@@ -39,9 +39,10 @@ import UniqFM
import Unique
import State
import Outputable
import Util
import Data.Maybe
import Data.List
import Data.List ( nub )
-- | Clean out unneeded spill/reloads from this top level thing.
cleanSpills :: LiveCmmTop -> LiveCmmTop
......
......@@ -20,6 +20,7 @@ module Util (
mapFst, mapSnd,
mapAndUnzip, mapAndUnzip3,
nOfThem, filterOut, partitionWith, splitEithers,
foldl1',
lengthExceeds, lengthIs, lengthAtLeast,
listLengthCmp, atLength, equalLength, compareLength,
......@@ -88,8 +89,8 @@ module Util (
import FastTypes
#ifdef DEBUG
import Panic ( panic, trace )
#if defined(DEBUG) || __GLASGOW_HASKELL__ < 604
import Panic
#endif
import Control.Exception ( Exception(..), finally, catchDyn, throw )
......@@ -98,11 +99,10 @@ import Data.Dynamic ( Typeable )
import Data.IORef ( IORef, newIORef )
import System.IO.Unsafe ( unsafePerformIO )
import Data.IORef ( readIORef, writeIORef )
import Data.List hiding (group)
import qualified Data.List as List ( elem )
#ifndef DEBUG
import Data.List ( zipWith4 )
#else
#ifdef DEBUG
import qualified Data.List as List ( notElem )
#endif
......@@ -363,6 +363,16 @@ isn'tIn msg x ys
# endif /* DEBUG */
\end{code}
foldl1' was added in GHC 6.4
\begin{code}
#if __GLASGOW_HASKELL__ < 604
foldl1' :: (a -> a -> a) -> [a] -> a
foldl1' f (x:xs) = foldl' f x xs
foldl1' _ [] = panic "foldl1'"
#endif
\end{code}
%************************************************************************
%* *
\subsubsection[Utils-Carsten-mergesort]{A mergesort from Carsten}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment