From: simonmar <unknown>
Date: Tue, 12 Feb 2002 10:51:06 +0000 (+0000)
Subject: [project @ 2002-02-12 10:51:06 by simonmar]
X-Git-Tag: nhc98-1-18-release~1133
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ae47102dd9cc6a1e3d1edcade7765f589ef21714;p=ghc-base.git

[project @ 2002-02-12 10:51:06 by simonmar]
Export h{Get,Set}Echo, and hIsTerminalDevice
---

diff --git a/System/IO.hs b/System/IO.hs
index 3ea7a51..cb1caab 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -9,7 +9,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: IO.hs,v 1.3 2002/02/05 17:32:27 simonmar Exp $
+-- $Id: IO.hs,v 1.4 2002/02/12 10:51:06 simonmar Exp $
 --
 -- The standard IO library.
 --
@@ -92,6 +92,11 @@ module System.IO (
     hGetBuf,		       -- :: Handle -> Ptr a -> Int -> IO Int
  
     fixIO,		       -- :: (a -> IO a) -> IO a
+
+    hSetEcho,			-- :: Handle -> Bool -> IO ()
+    hGetEcho,			-- :: Handle -> IO Bool
+
+    hIsTerminalDevice,	 	-- :: Handle -> IO Bool
   ) where
 
 #ifdef __GLASGOW_HASKELL__