X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Text%2FShow.hs;h=dc4535ebfbcdd77a8a8ca1af0a4692f757941789;hb=3457025838609e26918bb0cf5c16393d3bb5b69b;hp=9c2cabd0c356357ae86ebd5fee49bbc24107ae9b;hpb=2b09d1369ead1a675a916a3c928e0b72c169c3fe;p=ghc-base.git

diff --git a/Text/Show.hs b/Text/Show.hs
index 9c2cabd..dc4535e 100644
--- a/Text/Show.hs
+++ b/Text/Show.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Text.Show
@@ -9,7 +9,8 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- The Show class and associated functions.
+-- Converting values to readable strings:
+-- the 'Show' class and associated functions.
 --
 -----------------------------------------------------------------------------
 
@@ -31,6 +32,8 @@ module Text.Show (
 import GHC.Show
 #endif   
 
+-- | Show a list (using square brackets and commas), given a function
+-- for showing elements.
 showListWith :: (a -> ShowS) -> [a] -> ShowS 
 showListWith = showList__