Commit 527a0c8e authored by simonmar's avatar simonmar
Browse files

[project @ 2003-03-14 16:51:59 by simonmar]

Fix tryM for GHC 5.00.x and 5.02.x.
parent 769b415d
......@@ -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@(IOException _) | isUserError e = Just e
tc_errors e | 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