Update of /cvsroot/gtk2hs/gtk2hs/compat
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23926/compat
Modified Files:
LocalControl.hs LocalData.hs
Log Message:
Removed support for versions of ghc pre 5.04.
Index: LocalData.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/compat/LocalData.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- LocalData.hs 21 Jul 2002 16:59:05 -0000 1.2
+++ LocalData.hs 10 Aug 2004 14:55:24 -0000 1.3
@@ -30,25 +30,13 @@
--- TODO ----------------------------------------------------------------------
module LocalData(
-#if __GLASGOW_HASKELL__>=504
module Data.IORef,
module Data.Bits,
module Data.FiniteMap,
module System.IO.Unsafe
-#else
- module IOExts,
- module Bits,
- module FiniteMap
-#endif
) where
-#if __GLASGOW_HASKELL__>=504
import Data.IORef
import Data.Bits
import Data.FiniteMap
import System.IO.Unsafe
-#else
-import IOExts
-import Bits
-import FiniteMap
-#endif
Index: LocalControl.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/compat/LocalControl.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- LocalControl.hs 9 Jul 2003 22:42:43 -0000 1.2
+++ LocalControl.hs 10 Aug 2004 14:55:24 -0000 1.3
@@ -30,22 +30,14 @@
--- TODO ----------------------------------------------------------------------
module LocalControl(
-#if __GLASGOW_HASKELL__>=504
module Control.Exception,
module Control.Concurrent
-#else
- module Exception,
- module Concurrent
-#endif
) where
#if __GLASGOW_HASKELL__>=600
import Control.Exception
import Control.Concurrent hiding(throwTo)
-#elif __GLASGOW_HASKELL__>=504
+#else
import Control.Exception
import Control.Concurrent
-#else
-import Exception
-import Concurrent
#endif
|
