Haskell Program to convert string to upper case

Program

import Data.Char
main = do
 putStrLn "Enter your name:"
 name <- getLine
 putStrLn "Converted to upper case: "
 putStrLn $ map toUpper name

Output

$ ghc convert_toupper.hs
[1 of 1] Compiling Main             ( convert_toupper.hs, convert_toupper.o )
Linking convert_toupper ...
$ ./convert_toupper 
Enter your name:
oodlescoop
Converted to upper case: 
OODLESCOOP