Main.hs

module Main where

import Control.Exception
import GHC.IO.Exception
import System.IO.Error

main :: IO ()
main = do
  result <- tryIOError (readFile "foo") :: IO (Either IOError String)
  case result of
    Left e ->
      case ioeGetErrorType e of
        NoSuchThing -> putStrLn "no such thing?"
        x -> print x
    Right r -> putStrLn r