ハスケルで次の行に転送せずに読み込む方法は？

Question

私はHaskellでreadlineを次の行に転送カーソルなしで使用しようとしています。

> 1 2 + . <enter> 
3 

しかし、私は がに従う取得する最も簡単な方法を見つけたい：プログラムを起動した後

readEvalPrintLoop :: IO() 
readEvalPrintLoop = do 
    line <- getLine 
    case line of 
      "bye" -> return() 
      line -> do putStrLn $ interpret line 
         readEvalPrintLoop 

：

例えば、私は、次のコードを書いた

> 1 2 + . <enter> 3 

Answer 1

Enterキーを押すと、他のキーを押したときと同じようにy - 画面に印刷されます。あなたがそうするならば、あなたは、これはいくつかの担保ダメージがあるでしょう、しかし

main = do 
    hSetEcho stdin False 
    readEvalPrintLoop 

を：あなたはhSetEchoと、この動作をオフにすることができ、もはやエコーされ入らないし、それが見えますので、どちらも何かあなたは、入力されていませんあなたが入力するすべてのもののように見えない！修正したエコー戦略を手動で実装することでこれを修正できます。 2つのことをする必要があります：hSetBufferingで入力ストリームをバッファなしモードに設定します（行末ではなく入力をすぐに受け取れるように）。受け取ったそれぞれの非入力文字を出力します。だから：

myGetLine :: IO String 
myGetLine = do 
    c <- getChar 
    case c of 
     '\n' -> return "" -- don't echo newlines 
     _ -> do 
      putChar c -- do echo everything else 
      fmap (c:) myGetLine 

readEvalPrintLoop :: IO() 
readEvalPrintLoop = do 
    line <- myGetLine -- getLine changed to myGetLine 
    case line of 
      "bye" -> return() 
      line -> do putStrLn $ interpret line 
         readEvalPrintLoop 

main = do 
    hSetEcho stdin False 
    hSetBuffering stdin NoBuffering 
    readEvalPrintLoop