GHC 4.08 hasn't got catch, so use catchAllIO.
import Util ( global )
import CmdLineOpts ( dynFlag, verbosity )
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 )
import IO
import Directory ( doesFileExist, removeFile )
import IOExts ( IORef, readIORef, writeIORef )