From 4fce172abd58a402c534d0e9015fb041ed72c98f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 9 Aug 2000 09:56:08 +0000
Subject: [PATCH] [project @ 2000-08-09 09:56:08 by simonmar] make this compile
with pre-4.09 GHCs.
---
ghc/driver/Main.hs | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index e0c3a3754ad5..87d7c81ee536 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1,6 +1,6 @@
{-# OPTIONS -W #-}
-----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.52 2000/08/07 23:29:46 qrczak Exp $
+-- $Id: Main.hs,v 1.53 2000/08/09 09:56:08 simonmar Exp $
--
-- GHC Driver program
--
@@ -2438,3 +2438,11 @@ newdir dir s = dir ++ '/':drop_longest_prefix s '/'
remove_spaces :: String -> String
remove_spaces = reverse . dropWhile isSpace . reverse . dropWhile isSpace
+
+-----------------------------------------------------------------------------
+-- compatibility code
+
+#if __GLASGOW_HASKELL__ <= 408
+catchJust = catchIO
+ioErrors = justIoErrors
+#endif
--
GitLab