X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Text%2FShow.hs;h=4d23e578dff1a4ffb06c4991fffb041c4a39945c;hb=41e8fba828acbae1751628af50849f5352b27873;hp=da7df9b2919eeb06da94bed23ddf2b0bc44b387d;hpb=06bb288c8d7e2f46276f25c3ef16d091de8f3ded;p=ghc-base.git

diff --git a/Text/Show.hs b/Text/Show.hs
index da7df9b..4d23e57 100644
--- a/Text/Show.hs
+++ b/Text/Show.hs
@@ -1,4 +1,5 @@
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Text.Show
@@ -15,26 +16,26 @@
 -----------------------------------------------------------------------------
 
 module Text.Show (
-   ShowS,	 	-- String -> String
+   ShowS,               -- String -> String
    Show(
-      showsPrec,	-- :: Int -> a -> ShowS
-      show,		-- :: a   -> String
-      showList		-- :: [a] -> ShowS 
+      showsPrec,        -- :: Int -> a -> ShowS
+      show,             -- :: a   -> String
+      showList          -- :: [a] -> ShowS 
     ),
-   shows,		-- :: (Show a) => a -> ShowS
-   showChar,		-- :: Char -> ShowS
-   showString,		-- :: String -> ShowS
-   showParen,		-- :: Bool -> ShowS -> ShowS
-   showListWith,	-- :: (a -> ShowS) -> [a] -> ShowS 
+   shows,               -- :: (Show a) => a -> ShowS
+   showChar,            -- :: Char -> ShowS
+   showString,          -- :: String -> ShowS
+   showParen,           -- :: Bool -> ShowS -> ShowS
+   showListWith,        -- :: (a -> ShowS) -> [a] -> ShowS 
  ) where
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Show
-#endif   
+#endif
 
 -- | Show a list (using square brackets and commas), given a function
 -- for showing elements.
-showListWith :: (a -> ShowS) -> [a] -> ShowS 
+showListWith :: (a -> ShowS) -> [a] -> ShowS
 showListWith = showList__
 
 #ifndef __GLASGOW_HASKELL__