X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FIOEnv.hs;h=9332a8b36378c2631c31dbe86ea9389817d479a0;hb=1f3a7730cd7f831344d2a3b74a0ce700c382e858;hp=394a1c8f451f81745e441cea0bb6c53a17c04394;hpb=ec197dfef33654dd16b5832905dad2e52f79f7ab;p=ghc-hetmet.git

diff --git a/compiler/utils/IOEnv.hs b/compiler/utils/IOEnv.hs
index 394a1c8..9332a8b 100644
--- a/compiler/utils/IOEnv.hs
+++ b/compiler/utils/IOEnv.hs
@@ -95,11 +95,7 @@ fixM f = IOEnv (\ env -> fixIO (\ r -> unIOEnv (f r) env))
 
 
 ---------------------------
-#if __GLASGOW_HASKELL__ < 609
-tryM :: IOEnv env r -> IOEnv env (Either Exception r)
-#else
 tryM :: IOEnv env r -> IOEnv env (Either IOException r)
-#endif
 -- Reflect UserError exceptions (only) into IOEnv monad
 -- Other exceptions are not caught; they are simply propagated as exns
 --