PreludeText.hs

module PreludeText where

type ShowS = String->String

class Show a where
  show :: a -> String
  showsPrec :: Int -> a -> ShowS
  showList :: [a] -> ShowS

  showsPrec _ x = showString (show x)

  show x        = showsPrec 0 x ""

  showList []       = showString "[]"
  showList (x:xs)   = showChar '[' . shows x . showl xs
		      where showl []     = showChar ']'
			    showl (x:xs) = showChar ',' . shows x .
					   showl xs

shows            :: (Show a) => a -> ShowS
shows            =  showsPrec 0

showString = (++)
showChar c s = c:s