From: sof <unknown>
Date: Mon, 29 Jun 1998 14:56:01 +0000 (+0000)
Subject: [project @ 1998-06-29 14:56:01 by sof]
X-Git-Tag: Approx_2487_patches~554
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7df87d16d6498fd87d96857b61d86a7149f5c906;p=ghc-hetmet.git

[project @ 1998-06-29 14:56:01 by sof]
Re-export h{Get,Set}Echo
---

diff --git a/ghc/lib/exts/IOExts.lhs b/ghc/lib/exts/IOExts.lhs
index 305b151..d74c21a 100644
--- a/ghc/lib/exts/IOExts.lhs
+++ b/ghc/lib/exts/IOExts.lhs
@@ -29,8 +29,8 @@ module IOExts
 	, openFileEx
 	, IOModeEx(..)
 
---        , setEcho
---	, getEcho
+        , hSetEcho
+	, hGetEcho
 
         , trace
         , performGC
@@ -42,7 +42,9 @@ module IOExts
 \begin{code}
 import PrelBase
 import PrelIOBase
-import PrelHandle ( openFileEx, IOModeEx(..) )
+import PrelHandle ( openFileEx, IOModeEx(..),
+		    hSetEcho, hGetEcho
+		  )
 import PrelST
 import PrelArr
 import PrelGHC
@@ -91,9 +93,3 @@ writeIOArray (IOArray arr) ix elt = stToIO (writeArray arr ix elt)
 freezeIOArray (IOArray arr) = stToIO (freezeArray arr)
 \end{code}
 
-begin{code}
-setEcho :: Handle -> Bool -> IO ()
-setEcho 
-
-getEcho :: Handle -> IO Bool
-end{code}