X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Text%2FShow.hs;h=9c2cabd0c356357ae86ebd5fee49bbc24107ae9b;hb=9c33481176d370dfe9b03ea1a0b803227cc1df7f;hp=6c5d20d7da17ac34dba42b36ec3624f0630994ef;hpb=746ef6a7fd71bb1e9ebe3cd107c5f9f79f3b7a68;p=ghc-base.git

diff --git a/Text/Show.hs b/Text/Show.hs
index 6c5d20d..9c2cabd 100644
--- a/Text/Show.hs
+++ b/Text/Show.hs
@@ -3,7 +3,7 @@
 -- |
 -- Module      :  Text.Show
 -- Copyright   :  (c) The University of Glasgow 2001
--- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
 -- 
 -- Maintainer  :  libraries@haskell.org
 -- Stability   :  provisional
@@ -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)