[project @ 2001-10-18 11:20:19 by rrt]

GHC 4.08 hasn't got catch, so use catchAllIO.

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index a110bb9..fc847b5 100644 (file)
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -56,7 +56,13 @@ import Panic         ( progName, GhcException(..) )
 import Util            ( global )
 import CmdLineOpts     ( dynFlag, verbosity )
 
-import Exception       ( throwDyn, catch )
+import Exception       ( throwDyn )
+#if __GLASGOW_HASKELL__ > 408
+import Exception        ( catch )
+#else
+import Exception        ( catchAllIO )
+#define catch catchAllIO
+#endif
 import IO
 import Directory       ( doesFileExist, removeFile )
 import IOExts          ( IORef, readIORef, writeIORef )