readFile catch test.

gistfile1.hs

import System.IO (hPutStrLn, stderr)
import Control.Exception (catch, IOException, SomeException)
import Prelude hiding (catch)

readFileWithDefault :: FilePath -> String -> IO String
readFileWithDefault filepath defaultString =
    catch
    (readFile filepath)
    (\e -> do
       return (e::SomeException)
       -- hPutStrLn stderr $ "Warning: " ++ show (e:: SomeException)
       return defaultString)

main :: IO ()
main = do
  test <- readFileWithDefault "test.file" "CANT OPEN"
  print test