[project @ 2003-06-21 20:21:04 by malcolm]

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

diff --git a/System/IO.hs b/System/IO.hs
index c6ba2c9..2e7bdd0 100644 (file)
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -24,6 +24,9 @@ module System.IO (
     stdin, stdout, stderr,   -- :: Handle
 
     openFile,                 -- :: FilePath -> IOMode -> IO Handle
+#if !defined(__NHC__)
+    openBinaryFile,           -- :: FilePath -> IOMode -> IO Handle
+#endif
     hClose,                   -- :: Handle -> IO ()
     hFileSize,                -- :: Handle -> IO Integer
     hIsEOF,                   -- :: Handle -> IO Bool
@@ -31,6 +34,9 @@ module System.IO (
 
     hSetBuffering,            -- :: Handle -> BufferMode -> IO ()
     hGetBuffering,            -- :: Handle -> IO BufferMode
+#if !defined(__HUGS__) && !defined(__NHC__)
+    hSetBinaryMode,           -- :: Handle -> Bool -> IO ()
+#endif
     hFlush,                   -- :: Handle -> IO ()
     hGetPosn,                 -- :: Handle -> IO HandlePosn
     hSetPosn,                 -- :: HandlePosn -> IO ()
@@ -62,12 +68,8 @@ module System.IO (
     ioeGetFileName,           -- :: IOError -> Maybe FilePath
 
     try,                      -- :: IO a -> IO (Either IOError a)
-    bracket,                  -- :: IO a -> (a -> IO b) -> (a -> IO c) -> IO c
-    bracket_,                 -- :: IO a -> (a -> IO b) -> IO c -> IO c
 
-    -- Non-standard extension (but will hopefully become standard with 1.5) is
-    -- to export the Prelude io functions via IO (in addition to exporting them
-    -- from the prelude...for now.) 
+    -- re-exports of Prelude names
     IO,                               -- instance MonadFix
     FilePath,                 -- :: String
     IOError,
@@ -157,9 +159,6 @@ import IO
   , ioeGetErrorString         -- :: IOError -> String
   , ioeGetHandle              -- :: IOError -> Maybe Handle
   , ioeGetFileName            -- :: IOError -> Maybe FilePath
-  , try                       -- :: IO a -> IO (Either IOError a)
-  , bracket                   -- :: IO a -> (a -> IO b) -> (a -> IO c) -> IO c
-  , bracket_                  -- :: IO a -> (a -> IO b) -> IO c -> IO c
 
   , IO ()
   , FilePath                  -- :: String