编辑代码

main = putStrLn "name:" >>= \_ -> getLine >>= \name -> putStrLn ("hello " ++ name)