[Haskell]echoなし1文字入力関数

GHCで、echoなしの1文字キー入力の関数。
hSetEcho関数を使い、echoを無効にする。

import System.IO (hSetEcho, stdin)

getCh :: IO Char
getCh  = do hSetEcho stdin False
            c <- getChar
            hSetEcho stdin True
            return c

参考

• Programming in Haskell -- Errata