[Gtk2hs-commit] gtk2hs/gtk/multiline TextIter.chs,1.12,1.13 TextTagTable.chs,1.8,1.9

[Duncan C. <dun...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/gtk/multiline
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22901/gtk/multiline

Modified Files:
	TextIter.chs TextTagTable.chs 
Log Message:
Removed support for versions of ghc pre 5.04. ghc 5.04 supports the new FFI
syntax so remove old-style "foreign export dynamic" versions.
Tested with ghc 5.04 & 5.04.3


Index: TextTagTable.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/multiline/TextTagTable.chs,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- TextTagTable.chs	6 Aug 2004 01:48:03 -0000	1.8
+++ TextTagTable.chs	10 Aug 2004 14:51:47 -0000	1.9
@@ -86,18 +86,9 @@
 
 {#pointer TextTagTableForeach#}
 
-#if __GLASGOW_HASKELL__>=600
-
 foreign import ccall "wrapper" mkTextTagTableForeach ::
   (Ptr TextTag -> Ptr () -> IO ()) -> IO TextTagTableForeach
 
-#else
-
-foreign export dynamic mkTextTagTableForeach ::
-  (Ptr TextTag -> Ptr () -> IO ()) -> IO TextTagTableForeach
-
-#endif
-
 -- | Returns the size of the table (the number of tags).
 --
 textTagTableGetSize :: TextTagTableClass obj => obj -> IO Int

Index: TextIter.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/multiline/TextIter.chs,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- TextIter.chs	23 May 2004 16:09:08 -0000	1.12
+++ TextIter.chs	10 Aug 2004 14:51:47 -0000	1.13
@@ -702,18 +702,9 @@
 
 {#pointer TextCharPredicate#}
 
-#if __GLASGOW_HASKELL__>=600
-
 foreign import ccall "wrapper" mkTextCharPredicate ::
   ({#type gunichar#} -> Ptr () -> {#type gboolean#}) -> IO TextCharPredicate
 
-#else
-
-foreign export dynamic mkTextCharPredicate ::
-  ({#type gunichar#} -> Ptr () -> {#type gboolean#}) -> IO TextCharPredicate
-
-#endif
-
 -- | Move 'TextIter' forward until a
 -- predicate function returns True.
 --