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 ->
|
