From: ross <unknown>
Date: Sat, 23 Aug 2003 10:25:52 +0000 (+0000)
Subject: [project @ 2003-08-23 10:25:52 by ross]
X-Git-Tag: nhc98-1-18-release~529
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=97ba2290a2d8da19481b1c60352e1f5fe6e05cdc;p=ghc-base.git

[project @ 2003-08-23 10:25:52 by ross]
non-GHC only: hide functions defined in the Prelude
---

diff --git a/Data/List.hs b/Data/List.hs
index 0a4bb20..fb1606d 100644
--- a/Data/List.hs
+++ b/Data/List.hs
@@ -722,7 +722,6 @@ product	l	= prod l 1
     prod []     a = a
     prod (x:xs) a = prod xs (a*x)
 #endif
-#endif  /* __GLASGOW_HASKELL__ */
 
 -- -----------------------------------------------------------------------------
 -- Functions on strings
@@ -769,3 +768,4 @@ unwords []		=  ""
 unwords [w]		= w
 unwords (w:ws)		= w ++ ' ' : unwords ws
 #endif
+#endif  /* __GLASGOW_HASKELL__ */