Comment by shangaslammi

You need to use curly braces in single-line do-expressions:

    do { line <- getLine; putStrLn line }