From 6aeee9e07be70505d92218b560036a3220734358 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Wed, 14 Jan 2004 14:19:43 +0000
Subject: [PATCH] [project @ 2004-01-14 14:19:41 by ross] (Hugs only) add
 hIsTerminalDevice, hGetEcho and hSetEcho.

---
 GHC/Handle.hs |    6 +++---
 System/IO.hs  |    2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index d2c2614..8f0e50d 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -1290,7 +1290,7 @@ hIsSeekable handle =
 -- -----------------------------------------------------------------------------
 -- Changing echo status (Non-standard GHC extensions)
 
--- | Set the echoing status of a handle connected to a terminal (GHC only).
+-- | Set the echoing status of a handle connected to a terminal.
 
 hSetEcho :: Handle -> Bool -> IO ()
 hSetEcho handle on = do
@@ -1303,7 +1303,7 @@ hSetEcho handle on = do
          ClosedHandle -> ioe_closedHandle
          _            -> setEcho (haFD handle_) on
 
--- | Get the echoing status of a handle connected to a terminal (GHC only).
+-- | Get the echoing status of a handle connected to a terminal.
 
 hGetEcho :: Handle -> IO Bool
 hGetEcho handle = do
@@ -1316,7 +1316,7 @@ hGetEcho handle = do
          ClosedHandle -> ioe_closedHandle
          _            -> getEcho (haFD handle_)
 
--- | Is the handle connected to a terminal? (GHC only)
+-- | Is the handle connected to a terminal?
 
 hIsTerminalDevice :: Handle -> IO Bool
 hIsTerminalDevice handle = do
diff --git a/System/IO.hs b/System/IO.hs
index d189ac1..460c2bb 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -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 ()
-- 
1.7.10.4