[Gtk2hs-commit] gtk2hs/gconf/System/Gnome/GConf GConfClient.chs,1.3,1.4

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

Update of /cvsroot/gtk2hs/gtk2hs/gconf/System/Gnome/GConf
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22901/gconf/System/Gnome/GConf

Modified Files:
	GConfClient.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: GConfClient.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gconf/System/Gnome/GConf/GConfClient.chs,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- GConfClient.chs	8 Aug 2004 19:09:56 -0000	1.3
+++ GConfClient.chs	10 Aug 2004 14:51:46 -0000	1.4
@@ -175,11 +175,7 @@
 
 {#pointer GFreeFunc#}
 
-#if __GLASGOW_HASKELL__>=504
 foreign import ccall "wrapper" mkDestructor :: IO () -> IO GFreeFunc
-#else
-foreign export dynamic mkDestructor :: IO () -> IO GFreeFunc
-#endif
 
 type GConfClientNotifyFunc = Ptr () ->         --GConfClient *client
                              {#type guint#} -> --guint cnxn_id
@@ -187,13 +183,8 @@
                              Ptr () ->         --gpointer user_data
                              IO ()
 
-#if __GLASGOW_HASKELL__>=504
 foreign import ccall "wrapper" mkHandler_GConfClientNotifyFunc ::
   GConfClientNotifyFunc -> IO (FunPtr GConfClientNotifyFunc)
-#else
-foreign export dynamic mkHandler_GConfClientNotifyFunc ::
-  GConfClientNotifyFunc -> IO (FunPtr GConfClientNotifyFunc)
-#endif
 
 connect_GConfClientNotifyFunc :: 
   GConf ->