Fix some more tests on Win64
[packages/base.git] / tests / echo001.hs
1 module Main(main) where
2
3 import System.IO
4 import Data.Char
5
6 main = do
7 isT <- hIsTerminalDevice stdin
8 flg <- if not isT then return False else hGetEcho stdin
9 print flg
10 if not isT then hSetEcho stdin False else return ()
11 hSetBuffering stdin NoBuffering
12 interact (map toUpper)
13