From: ross <unknown>
Date: Tue, 11 Jan 2005 14:36:51 +0000 (+0000)
Subject: [project @ 2005-01-11 14:36:51 by ross]
X-Git-Tag: nhc98-1-18-release~125
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d744fb498fb30fa6e951e2846ce4518a5721938f;p=ghc-base.git

[project @ 2005-01-11 14:36:51 by ross]
System.IO no longer re-exports System.IO.Error
---

diff --git a/System/IO.hs b/System/IO.hs
index 729806f..7468250 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -161,8 +161,6 @@ module System.IO (
     openTempFile,
     openBinaryTempFile,
 #endif
-
-    module System.IO.Error,
   ) where
 
 #ifdef __GLASGOW_HASKELL__
@@ -170,7 +168,6 @@ import GHC.Base
 import GHC.IOBase	-- Together these four Prelude modules define
 import GHC.Handle	-- all the stuff exported by IO for the GHC version
 import GHC.IO
-import GHC.ST		( fixST )
 import GHC.Exception
 import GHC.Num
 import GHC.Read
@@ -224,25 +221,6 @@ import IO
 import NHC.IOExtras (fixIO)
 #endif
 
-import System.IO.Error (
-    isAlreadyExistsError, isDoesNotExistError,  -- :: IOError -> Bool
-    isAlreadyInUseError, isFullError, 
-    isEOFError, isIllegalOperation, 
-    isPermissionError, isUserError, 
- 
-    ioeGetErrorString,         -- :: IOError -> String
-    ioeGetHandle,              -- :: IOError -> Maybe Handle
-    ioeGetFileName,            -- :: IOError -> Maybe FilePath
- 
-    try,                       -- :: IO a -> IO (Either IOError a)
- 
-    -- re-exports of Prelude names
-    IOError,
-    ioError,                   -- :: IOError -> IO a
-    userError,                 -- :: String  -> IOError
-    catch                      -- :: IO a    -> (IOError -> IO a) -> IO a
-  )
-
 -- -----------------------------------------------------------------------------
 -- Standard IO