Haskell : asking for user identity from terminal (small haskell experimentation)

getUserIdentity.hs

import Data.List (intercalate)

main = getIdentity

getIdentity :: IO ()
getIdentity = do
                putStrLn "About to get your identity..."
                putStrLn ""
                nameParts <- traverse id $ map getName ["first", "last"]
                putStrLn $ "You entered: " ++ (intercalate " " nameParts)

getName :: String -> IO String
getName argType = do
        putStrLn $ "Enter " ++ argType  ++  "name : "
        name <- getLine
        putStrLn ""
        return name