[project @ 1998-04-07 07:51:07 by simonpj]

[ghc-hetmet.git] / ghc / lib / exts / IOExts.lhs

diff --git a/ghc/lib/exts/IOExts.lhs b/ghc/lib/exts/IOExts.lhs
index 52ecb16..4489ba6 100644 (file)
--- a/ghc/lib/exts/IOExts.lhs
+++ b/ghc/lib/exts/IOExts.lhs
@@ -29,6 +29,9 @@ module IOExts
        , openFileEx
        , IOModeEx(..)
 
+--        , setEcho
+--     , getEcho
+
         , trace
         , performGC
        
@@ -89,3 +92,9 @@ 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}