From 1fce5fa8cc8a19e7c6d3cd6c91d0b07d2ffaf7c3 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sat, 27 Oct 2007 21:05:26 +0000
Subject: [PATCH] Fix the build with GHC < 6.4 (foldl1' didn't exist)

---
 compiler/utils/Util.lhs |   11 -----------
 1 file changed, 11 deletions(-)

diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs
index eb8595d..6cefad6 100644
--- a/compiler/utils/Util.lhs
+++ b/compiler/utils/Util.lhs
@@ -14,8 +14,6 @@
 
 module Util (
 
-    foldl1',
-
 	-- general list processing
 	zipEqual, zipWithEqual, zipWith3Equal, zipWith4Equal,
         zipLazy, stretchZipWith,
@@ -119,15 +117,6 @@ 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}
-- 
1.7.10.4