diff options
| author | simonmar <unknown> | 2000-08-09 09:56:08 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-08-09 09:56:08 +0000 |
| commit | 4fce172abd58a402c534d0e9015fb041ed72c98f (patch) | |
| tree | 47c405065bbcb0da5ef80c52ba0157950128fa92 | |
| parent | be9c2869c076af4bf634d7eb5b94d502fb65357e (diff) | |
| download | haskell-4fce172abd58a402c534d0e9015fb041ed72c98f.tar.gz | |
[project @ 2000-08-09 09:56:08 by simonmar]
make this compile with pre-4.09 GHCs.
| -rw-r--r-- | ghc/driver/Main.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs index e0c3a3754a..87d7c81ee5 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 |