Reading a whole text file in haskell

Question

import System.IO

import Text.Printf

kodable :: IO()
kodable = do
    printf "Please load a map : "
    file <- getLine
    mapFile <- openFile file