Re: [Haskell-cafe] Re: process

h. wrote:

module Main where main :: IO () main = f where f = do a <- getLine if a == "quit" then return () else putStrLn a >> f

This one also needs to switch to line buffering. Add/Change: import System.IO(stdout, hSetBuffering, BufferMode(LineBuffering)) main = hSetBuffering stdout LineBuffering >> f