putstrで間違ったタイミングでメッセージが表示される

Question

import Control.Monad 
import Data.Char 

main = forever $ do 
    putStr "Give me some input: " 
    l <- getLine 
    putStrLn $ map toUpper l 

私はハスケルを学んだことから、あなたはhaskellを学んでいます。私はこのコードを実行しようとすると、それは必要なように動作しません。

l 
Give me some input: L 
abc 
Give me some input: ABC 

これを実行すると、文字列が最初に印刷されずに入力できます。いくつかの入力を提供した後、この場合はlは、このように私を返します：Give me some input: L。

何をすべきかは、Give me some input:を入力して入力を求め、入力後に入力を大文字に戻します。

どうすればこの問題を解決できますか？ここでの問題はputStrは改行を書き込みませんということです

import Control.Monad 
import Data.Char 

main = forever $ do 
    putStrLn "Give me some input: " 
    l <- getLine 
    putStrLn $ map toUpper l 

：

Answer 1

Michailが指摘するように、それはstdoutためhSetBufferingで解決することができますバッファリングの問題で、次のとおりです。あなたがプログラム全体のためbuffer modeを変更したくない何らかの理由場合

import Control.Monad 
import Data.Char 
import System.IO 

main = do 
    hSetBuffering stdout NoBuffering 
    forever $ do 
    putStr "Give me some input: " 
    l <- getLine 
    putStrLn $ map toUpper l 

、あなたはhFlushを使用すると、必要な場所でバッファを余分にフラッシュすることができます。

import Control.Monad 
import Data.Char 
import System.IO 

main = do 
    forever $ do 
    putStr "Give me some input: " 
    hFlush stdout 
    l <- getLine 
    putStrLn $ map toUpper l 

Answer 2

はこれを試してみてください。出力バッファは改行でのみフラッシュされます。