Simulate terminal reading

Read.hs

module Main where

import Control.Exception
import Control.Monad
import System.IO 

main = bracket (hGetEcho stdin) (hSetEcho stdin) $ const $
        bracket (hGetBuffering stdin) (hSetBuffering stdin) $ const $ do
    hSetEcho stdin False
    hSetBuffering stdin NoBuffering
    h <- openFile "/dev/tty" ReadMode
    forever $ getChars h >>= print

getChars h = do
    c <- hGetChar h
    loop [c]
  where
    loop cs = do
        isReady <- hReady h
        if not isReady
            then return $ reverse cs
            else do
                c <- hGetChar h
                loop (c : cs)