[make it compile with ghc 6.8 at the expense of 6.10 - XXX better fix needed
John Meacham <john@repetae.net>**20090218160829
 Ignore-this: 63cd5342b45dd5cb2cd1f325438f9864
] hunk ./CharIO.hs 25
-flushOut = Control.Exception.catch  (IO.hFlush IO.stdout) (\(e::SomeException) -> return ())
+--flushOut = Control.Exception.catch  (IO.hFlush IO.stdout) (\(e::SomeException) -> return ())
+flushOut = Control.Exception.catch  (IO.hFlush IO.stdout) (\_ -> return ())
hunk ./CharIO.hs 42
-runMain action = Control.Exception.catches (action >> return ())
-                   [ Handler $ \ (e::ExitCode) -> throw e
-                   , Handler $ \ (e::SomeException) -> putErrDie $ show e ]
+runMain action = Control.Exception.catch (action >> return ()) $ \x -> case x of
+        ExitException _ -> throw x
+        _ -> putErrDie $ show x
+--runMain action = Control.Exception.catches (action >> return ())
+--                   [ Handler $ \ (e::ExitCode) -> throw e
+--                   , Handler $ \ (e::SomeException) -> putErrDie $ show e ]
hunk ./Grin/Lint.hs 25
+type SomeException = Exception
+
hunk ./Interactive.hs 48
+type SomeException = Exception
+
hunk ./Main.hs 83
+type SomeException = Exception
+