ghc/tests/io/should_run/io022.hs

   1 module Main(main) where
   2
   3 import IO
   4 import IOExts
   5 import Char
   6
   7 main = do
   8   isT <- hIsTerminalDevice stdin
   9   flg <- if not isT then return False else hGetEcho stdin
  10   print flg
  11   if not isT then hSetEcho stdin False else return ()
  12   hSetBuffering stdin NoBuffering
  13   interact (map toUpper)
  14