hindent-4.3.10: test/johan-tibell/tests/3.test

sayHello :: IO ()
sayHello = do
    name <- getLine
    putStrLn $ greeting name
    where
        greeting name = "Hello, " ++ name ++ "!"