From 68b52d03e47eb59f25f9ee954c116d1c65f7aa14 Mon Sep 17 00:00:00 2001 From: malcolm Date: Tue, 27 May 2003 08:46:38 +0000 Subject: [PATCH] [project @ 2003-05-27 08:46:38 by malcolm] For nhc98, like hugs, re-export sum and product from the Prelude. --- Data/List.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Data/List.hs b/Data/List.hs index f2de14a..856e0e9 100644 --- a/Data/List.hs +++ b/Data/List.hs @@ -599,7 +599,7 @@ foldl' :: (a -> b -> a) -> a -> [b] -> a foldl' f a [] = a foldl' f a (x:xs) = let a' = f a x in a' `seq` foldl' f a' xs -#ifndef __HUGS__ +#ifdef __GLASGOW_HASKELL__ -- ----------------------------------------------------------------------------- -- List sum and product @@ -622,4 +622,4 @@ product l = prod l 1 prod [] a = a prod (x:xs) a = prod xs (a*x) #endif -#endif /* __HUGS__ */ +#endif /* __GLASGOW_HASKELL__ */ -- 1.7.10.4