Fix the build with GHC < 6.4 (foldl1' didn't exist)

diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs
index 6cefad6..eb8595d 100644 (file)
--- a/compiler/utils/Util.lhs
+++ b/compiler/utils/Util.lhs
@@ -14,6 +14,8 @@
 
 module Util (
 
+    foldl1',
+
        -- general list processing
        zipEqual, zipWithEqual, zipWith3Equal, zipWith4Equal,
         zipLazy, stretchZipWith,
@@ -117,6 +119,15 @@ import System.Time ( ClockTime )
 infixr 9 `thenCmp`
 \end{code}
 
+\begin{code}
+#if __GLASGOW_HASKELL__ < 603
+-- foldl1' was introduce in GHC 6.4
+foldl1'                  :: (a -> a -> a) -> [a] -> a
+foldl1' f (x:xs)         =  foldl' f x xs
+foldl1' _ []             =  errorEmptyList "foldl1'"
+#endif
+\end{code}
+
 %************************************************************************
 %*                                                                     *
 \subsection{A for loop}