Leer hasta el final de la transmisión en haskell

Question

Soy bastante nuevo en Haskell, y me gustaría seguir leyendo líneas desde la consola hasta el final de la transmisión, y generando todo lo que recibo en mayúsculas. Hasta el momento, tengo

import Data.Char 

main = myLoop 

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

Sin embargo, me parece que no puede encontrar la manera de evitar la condición if (inp == "x") y reemplazarlo con un estado de fin de flujo.

En resumen, estoy buscando el equivalente a Haskell while (cin >> line) en C++

Answer 1

Esto va mucho más allá de lo que realmente está pidiendo, pero yo uso este patrón mucho: interact:

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

main = interact (unlines . myFun . lines) 

Su función myFun será ejecutado en contra de cada línea de entrada estándar y la resultado enviado a la salida estándar.

Answer 2

Uso isEOF de 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

También puede confiar en IO perezoso.

import Data.Char 

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

Answer 4

Otra opción es utilizar when cuya documentación se puede encontrar 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 

De lo contrario, la respuesta es idéntica a the one by @dave4420.