Mixing pure and in-pure functions in Haskell

1_working.hs

import Data.Char

data Request = Request { message :: String }

main = getIt

getIt :: IO()
getIt = do
  msg <- getLine
  let r = Request { message = msg }
  let z = transformIt(r)
  putStrLn z
  return ()

transformIt :: Request -> String
transformIt x = map toUpper $ message x

2_move_put_to_main.hs

import Data.Char

data Request = Request { message :: String }

main = getIt >>= putStrLn

getIt :: IO String
getIt = do
  msg <- getLine
  let r = Request { message = msg }
  let z = transformIt(r)
  return z

transformIt :: Request -> String
transformIt x = map toUpper $ message x