为什么我的字符回显等待换行符，回显整个字符串而不是char-for-char

Question

因为我使用char get/put方法应该对每个输入字符作出响应，所以我期望得到一小段代码，但是似乎并非如此;而是等待换行符，然后运行整个字符串，这对我来说并不合理......

我在做什么错？我如何得到这个对每个输入字符作出反应？

main = repeatUntilExit stdin stdout putChar "" 

repeatUntilExit :: Handle -> Handle -> (Char -> IO()) -> [Char] -> IO() 
repeatUntilExit hIn hOut f "exit\n" = hPutStrLn hOut "bye\n" 
repeatUntilExit hIn hOut f x = hGetChar hIn >>= \c -> f c >> repeatUntilExit hIn hOut f (appendToLastFive c) 
    where appendToLastFive a = (reverse . (:)a . take 4 . reverse) x 

结果是：

C:\temp>echo.exe 
an entire line of text 
an entire line of text 
exit 
exit 
bye 

C:\temp> 

Answer 1

这是一个buffering问题。

import System.IO 

hSetBuffering stdin NoBuffering 

然而，这并不适用于Windows，仍然是一个未定义的问题，注意到here。