Commit 275a8418 authored by Simon Marlow's avatar Simon Marlow
Browse files

make cg057 compile

parent 85096039
-- For testing +RTS -xc
import Control.Exception
main = try (evaluate (f ()))
main = try (evaluate (f ())) :: IO (Either SomeException ())
f x = g x
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment