projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
[project @ 2001-05-18 14:18:34 by simonmar]
[ghc-hetmet.git]
/
ghc
/
tests
/
lib
/
IOExts
/
echo001.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