Text/Show.hs

{-# OPTIONS_GHC -XNoImplicitPrelude #-}
-----------------------------------------------------------------------------
-- |
-- Module : Text.Show
-- Copyright : (c) The University of Glasgow 2001
-- License : BSD-style (see the file libraries/base/LICENSE)
-- 
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : portable
--
-- Converting values to readable strings:
-- the 'Show' class and associated functions.
--
-----------------------------------------------------------------------------

module Text.Show (
 ShowS, -- String -> String
 Show(
 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 
 ) where

#ifdef __GLASGOW_HASKELL__
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__

#ifndef __GLASGOW_HASKELL__
showList__ :: (a -> ShowS) -> [a] -> ShowS
showList__ _ [] s = "[]" ++ s
showList__ showx (x:xs) s = '[' : showx x (showl xs)
 where
 showl [] = ']' : s
 showl (y:ys) = ',' : showx y (showl ys)
#endif