From: rrt <unknown>
Date: Thu, 18 Oct 2001 11:20:19 +0000 (+0000)
Subject: [project @ 2001-10-18 11:20:19 by rrt]
X-Git-Tag: Approximately_9120_patches~793
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=124c45542cad85c7891c24661924b0f195db4d9b;p=ghc-hetmet.git

[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
--- 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 )