X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Text%2FShow.hs;h=dc4535ebfbcdd77a8a8ca1af0a4692f757941789;hb=696a935b0818ab9cf1a4fbd93faf9add88ead1cd;hp=17e9f44fa0fdb2e0331ca0370c8ed8970e11a388;hpb=4b6fe79a37223d266575147bc23b9478a31788cb;p=ghc-base.git

diff --git a/Text/Show.hs b/Text/Show.hs
index 17e9f44..dc4535e 100644
--- a/Text/Show.hs
+++ b/Text/Show.hs
@@ -1,17 +1,16 @@
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
--- 
+-- |
 -- 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
 -- Portability :  portable
 --
--- $Id: Show.hs,v 1.2 2001/07/04 12:06:33 simonmar Exp $
---
--- The Show class and associated functions.
+-- Converting values to readable strings:
+-- the 'Show' class and associated functions.
 --
 -----------------------------------------------------------------------------
 
@@ -33,10 +32,12 @@ module Text.Show (
 import GHC.Show
 #endif   
 
-#ifdef __GLASGOW_HASKELL__
+-- | Show a list (using square brackets and commas), given a function
+-- for showing elements.
 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)