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

f x = g x

g x = error (show x)