hindent-4.5.2: test/johan-tibell/expected/3.exp

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