From: malcolm <unknown>
Date: Tue, 27 May 2003 08:46:38 +0000 (+0000)
Subject: [project @ 2003-05-27 08:46:38 by malcolm]
X-Git-Tag: nhc98-1-18-release~630
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=68b52d03e47eb59f25f9ee954c116d1c65f7aa14;p=ghc-base.git

[project @ 2003-05-27 08:46:38 by malcolm]
For nhc98, like hugs, re-export sum and product from the Prelude.
---

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__ */