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