[project @ 2002-07-16 15:47:25 by ross]

[haskell-directory.git] / Text / Show.hs

diff --git a/Text/Show.hs b/Text/Show.hs
index 3f2e1a7..9c2cabd 100644 (file)
--- a/Text/Show.hs
+++ b/Text/Show.hs
@@ -31,10 +31,10 @@ module Text.Show (
 import GHC.Show
 #endif   
 
-#ifdef __GLASGOW_HASKELL__
 showListWith :: (a -> ShowS) -> [a] -> ShowS 
 showListWith = showList__
-#else
+
+#ifndef __GLASGOW_HASKELL__
 showList__ :: (a -> ShowS) ->  [a] -> ShowS
 showList__ _     []     s = "[]" ++ s
 showList__ showx (x:xs) s = '[' : showx x (showl xs)