-- School of Haskell "Basics of Haskell" Chapter 3
-- https://www.schoolofhaskell.com/school/starting-with-haskell/basics-of-haskell/3-pure-functions-laziness-io

-- Exercise 3
-- Rewrite the previous exercise to take the input string from the user.

putQStrLn' :: String -> IO ()
putQStrLn' str = do
    putStr "\""
    putStr str
    putStr "\""
    putStr "\n"

main :: IO ()
main = do
  putStrLn "Enter your name:"
  str <- getLine
  putQStrLn' ("Hello, " ++ str)
