[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / IOExts / echo001.hs

diff --git a/ghc/tests/lib/IOExts/echo001.hs b/ghc/tests/lib/IOExts/echo001.hs
deleted file mode 100644 (file)
index a00ca35..0000000
--- a/ghc/tests/lib/IOExts/echo001.hs
+++ /dev/null
@@ -1,14 +0,0 @@
-module Main(main) where
-
-import IO
-import IOExts
-import Char
-
-main = do
-  isT <- hIsTerminalDevice stdin
-  flg <- if not isT then return False else hGetEcho stdin
-  print flg
-  if not isT then hSetEcho stdin False else return ()
-  hSetBuffering stdin NoBuffering
-  interact (map toUpper)
-