make this compile with pre-4.09 GHCs.
{-# OPTIONS -W #-}
-----------------------------------------------------------------------------
{-# 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
--
--
-- GHC Driver program
--
remove_spaces :: String -> String
remove_spaces = reverse . dropWhile isSpace . reverse . dropWhile isSpace
remove_spaces :: String -> String
remove_spaces = reverse . dropWhile isSpace . reverse . dropWhile isSpace
+
+-----------------------------------------------------------------------------
+-- compatibility code
+
+#if __GLASGOW_HASKELL__ <= 408
+catchJust = catchIO
+ioErrors = justIoErrors
+#endif