[project @ 2005-01-31 12:57:26 by simonmar]

[ghc-base.git] / System / IO.hs

diff --git a/System/IO.hs b/System/IO.hs
index b47bb42..da1575c 100644 (file)
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.IO
@@ -155,7 +155,12 @@ module System.IO (
     hGetBufNonBlocking,               -- :: Handle -> Ptr a -> Int -> IO Int
 #endif
 
-    module System.IO.Error,
+    -- * Temporary files
+
+#ifdef __GLASGOW_HASKELL__
+    openTempFile,
+    openBinaryTempFile,
+#endif
   ) where
 
 #ifdef __GLASGOW_HASKELL__
@@ -163,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
@@ -217,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