[project @ 2003-08-23 10:25:52 by ross]

[ghc-base.git] / Data / List.hs

diff --git a/Data/List.hs b/Data/List.hs
index 0a4bb20..fb1606d 100644 (file)
--- 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__ */