ghc/interpreter/test/std/ioerror1.hs

   1 --!!! Testing IOError
   2
   3 import IO
   4
   5 -- printing IOError values
   6 a1 = userError "foo"
   7
   8 -- testing IOError values
   9 a2 = isUserError (userError "foo")
  10
  11 -- catching IOErrors
  12 a3 = catch (fail (userError "foo")) (\err -> putStr "Caught error\n")
  13
  14 -- continuing after catching errors
  15 a4 = catch (fail (userError "foo")) (\err -> putStr "Caught error\n") >>
  16      putStr "Continuing\n"
  17
  18 -- raising uncaught errors
  19 a5 :: IO () -- signature required to override "IO a"
  20 a5 = fail (userError "foo")