blob: 7c803589bfbf6cb120070543930f28b44da592bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
module Main(main) where
import System.IO
import Data.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)
|
