Commit 850fd993 authored by simonmar's avatar simonmar
Browse files

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

tryM again: make it work with GHC 5.02.x (I hope).  Seems we changed
the representation of UserErrors several times in the last few
releases...
parent 69164b87
......@@ -163,7 +163,9 @@ tryM (TcRn thing) = TcRn (\ env -> tryJust tc_errors (thing env))
where
#if __GLASGOW_HASKELL__ > 504 || __GLASGOW_HASKELL__ < 500
tc_errors e@(IOException ioe) | isUserError ioe = Just e
#else
#elif __GLASGOW_HASKELL__ == 502
tc_errors (UserError _) = Just e
#else
tc_errors e@(IOException ioe) | isUserError e = Just e
#endif
tc_errors _other = Nothing
......
Supports Markdown
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