lhc-0.10: tests/bugs/Exceptions1.hs

module Main where

import Control.Exception
import Prelude hiding (catch)

main :: IO ()
main = (error "Catch me!" `seq` return ()) `catch` \_ -> return ()