a mayúsculas con archivos

import Data.Char (toUpper)

main::IO()
main = do
    putStr "Fichero de Entrada? "
    fentrada <- getLine
    putStr "Fichero de Salida? "
    fsalida <- getLine
    cad <- readFile fentrada
    writeFile fsalida (map toUpper cad)
    putStr "Conversion realizada\n"