X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=System%2FIO.hs;h=877623a54f9cccb1fe04171cb2fc67973fd12ad6;hb=1b8d3f8ad5fd95ce07ae044b69676d5373ed4830;hp=f3e0212fc0f66e7958c3e85b8d56941fd428b69e;hpb=eacefc4ec04b67940c74ab797eee34c9f47b7d75;p=ghc-base.git

diff --git a/System/IO.hs b/System/IO.hs
index f3e0212..877623a 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -6,7 +6,7 @@
 -- License     :  BSD-style (see the file libraries/base/LICENSE)
 -- 
 -- Maintainer  :  libraries@haskell.org
--- Stability   :  provisional
+-- Stability   :  stable
 -- Portability :  portable
 --
 -- The standard IO library.
@@ -93,7 +93,7 @@ module System.IO (
 
     -- ** Terminal operations
 
-#if !defined(__HUGS__) && !defined(__NHC__)
+#if !defined(__NHC__)
     hIsTerminalDevice,	 	-- :: Handle -> IO Bool
 
     hSetEcho,			-- :: Handle -> Bool -> IO ()
@@ -143,13 +143,14 @@ module System.IO (
 
 #if !defined(__NHC__)
     openBinaryFile,	       -- :: FilePath -> IOMode -> IO Handle
-#endif
-
-#if !defined(__HUGS__) && !defined(__NHC__)
     hSetBinaryMode,	       -- :: Handle -> Bool -> IO ()
     hPutBuf,		       -- :: Handle -> Ptr a -> Int -> IO ()
     hGetBuf,		       -- :: Handle -> Ptr a -> Int -> IO Int
 #endif
+#if !defined(__NHC__) && !defined(__HUGS__)
+    hPutBufNonBlocking,	       -- :: Handle -> Ptr a -> Int -> IO Int
+    hGetBufNonBlocking,	       -- :: Handle -> Ptr a -> Int -> IO Int
+#endif
 
     module System.IO.Error,
   ) where
@@ -242,7 +243,7 @@ putChar c       =  hPutChar stdout c
 putStr          :: String -> IO ()
 putStr s        =  hPutStr stdout s
 
--- | The same as 'putStrLn', but adds a newline character.
+-- | The same as 'putStr', but adds a newline character.
 
 putStrLn        :: String -> IO ()
 putStrLn s      =  do putStr s