Remove non-directory stuff (of base), and rename package to "directory"

[haskell-directory.git] / Text / Show.hs

diff --git a/Text/Show.hs b/Text/Show.hs
deleted file mode 100644 (file)
index dc4535e..0000000
--- a/Text/Show.hs
+++ /dev/null
@@ -1,47 +0,0 @@
-{-# OPTIONS_GHC -fno-implicit-prelude #-}
------------------------------------------------------------------------------
--- |
--- 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