[add back support for compiling with GHC 6.10 as well as GHC 6.8
John Meacham <john@repetae.net>**20090219134647
 Ignore-this: 135c0b5e6f42bce1758d5be8e9c30b4e
] hunk ./CharIO.hs 1
+{-# OPTIONS_GHC -cpp #-}
+{-# LANGUAGE CPP  #-}
hunk ./CharIO.hs 20
+import Support.Compat
hunk ./CharIO.hs 28
---flushOut = Control.Exception.catch  (IO.hFlush IO.stdout) (\(e::SomeException) -> return ())
-flushOut = Control.Exception.catch  (IO.hFlush IO.stdout) (\_ -> return ())
+
+flushOut = Control.Exception.catch  (IO.hFlush IO.stdout) (\(e::SomeException) -> return ())
hunk ./CharIO.hs 45
+#if __GLASGOW_HASKELL__ < 610
hunk ./CharIO.hs 49
---runMain action = Control.Exception.catches (action >> return ())
---                   [ Handler $ \ (e::ExitCode) -> throw e
---                   , Handler $ \ (e::SomeException) -> putErrDie $ show e ]
+#else
+runMain action = Control.Exception.catches (action >> return ())
+                   [ Handler $ \ (e::ExitCode) -> throw e
+                   , Handler $ \ (e::SomeException) -> putErrDie $ show e ]
+#endif
hunk ./Grin/Lint.hs 20
+import Support.Compat
hunk ./Grin/Lint.hs 26
-type SomeException = Exception
-
hunk ./Interactive.hs 36
+import Support.Compat
hunk ./Interactive.hs 49
-type SomeException = Exception
hunk ./Main.hs 1
-
hunk ./Main.hs 65
+import Support.Compat
hunk ./Main.hs 83
-type SomeException = Exception
hunk ./Makefile.am 46
-	 StringTable/Atom.hsc Util/Util.hs Support/MD5.hs Ho/Collected.hs
+	 StringTable/Atom.hsc Util/Util.hs Support/MD5.hs Ho/Collected.hs \
+	 Support/Compat.hs