Czytaj do końca strumienia w haskell

Question

Jestem całkiem nowy dla Haskella, i chciałbym dalej czytać linie z konsoli do końca strumienia i wypisywać wszystko, co otrzymuję dużymi literami. Do tej pory mam

import Data.Char 

main = myLoop 

myLoop = do inp <- getLine 
      if (inp == "x") 
       then putStrLn "Bye!" 
       else do putStrLn(map toUpper inp) 
         myLoop 

Jednak nie wydaje się dowiedzieć się, jak uniknąć stanu if (inp == "x") i zastąpić go z końcem stanu strumienia.

Krótko mówiąc, szukam odpowiednika Haskell do while (cin >> line) w C++

Answer 1

To wykracza poza to, czego naprawdę prośbą o, ale używam tego wzorca dużo: interact:

myFun :: String -> String 
myFun = ... 

main = interact (unlines . myFun . lines) 

Twoja funkcja myFun będą wykonywane przed każdym wierszu standardowego wejścia, a wynik wysłany na standardowe wyjście.

Answer 2

Korzystanie isEOF z System.IO.

import System.IO (isEOF) 
import Data.Char 

main = myLoop 

myLoop = do done <- isEOF 
      if done 
       then putStrLn "Bye!" 
       else do inp <- getLine 
         putStrLn (map toUpper inp) 
         myLoop 

Answer 3

Można również polegać na leniwym IO.

import Data.Char 

main :: IO() 
main = do 
    inp <- getContents 
    let ls = lines inp 
     upcased = map (map toUpper) ls 
    mapM_ putStrLn upcased 

Answer 4

Inną opcją jest użycie when której dokumentację można znaleźć here:

import System.IO (isEOF) 
import Data.Char (toUpper) 
import Control.Monad (forever, when) 
import System.Exit (exitSuccess) 
main = myLoop 

myLoop = forever $ do 
       done <- isEOF 
       when done $ putStrLn "Bye!" >> exitSuccess 
       inp <- getLine 
       putStrLn (map toUpper inp) 
       myLoop 

przeciwnym razie odpowiedź jest identyczna the one by @dave4420.