path: root/testsuite/tests/codeGen/should_run/cgrun057.hs

-- For testing +RTS -xc
import Control.Exception
main = try (evaluate (f ())) :: IO (Either SomeException ())

f x = g x

g x = error (show x)