Commit 762cdf36 authored by simonmar's avatar simonmar

[project @ 2003-05-12 14:12:52 by simonmar]

Another bugfix to tryM, this time for GHC 5.00--5.04
parent 6345f29d
......@@ -164,7 +164,7 @@ tryM (TcRn thing) = TcRn (\ env -> tryJust tc_errors (thing env))
#if __GLASGOW_HASKELL__ > 504 || __GLASGOW_HASKELL__ < 500
tc_errors e@(IOException ioe) | isUserError ioe = Just e
#else
tc_errors e | isUserError e = Just e
tc_errors e@(IOException ioe) | isUserError e = Just e
#endif
tc_errors _other = Nothing
-- type checker failures show up as UserErrors only
......
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