From: Duncan C. <dun...@us...> - 2004-08-10 14:51:57
|
Update of /cvsroot/gtk2hs/gtk2hs/gtk/entry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22901/gtk/entry Modified Files: EntryCompletion.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: EntryCompletion.chs =================================================================== RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/entry/EntryCompletion.chs,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- EntryCompletion.chs 8 Aug 2004 19:04:38 -0000 1.4 +++ EntryCompletion.chs 10 Aug 2004 14:51:47 -0000 1.5 @@ -124,11 +124,7 @@ -- {#pointer GDestroyNotify#} -#if __GLASGOW_HASKELL__>=504 foreign import ccall "wrapper" mkDestructor :: IO () -> IO GDestroyNotify -#else -foreign export dynamic mkDestructor :: IO () -> IO GDestroyNotify -#endif type GtkEntryCompletionMatchFunc = Ptr EntryCompletion -> --GtkEntryCompletion *completion @@ -137,15 +133,9 @@ Ptr () -> --gpointer user_data IO () -#if __GLASGOW_HASKELL__>=504 foreign import ccall "wrapper" mkHandler_GtkEntryCompletionMatchFunc :: GtkEntryCompletionMatchFunc -> IO (FunPtr GtkEntryCompletionMatchFunc) -#else -foreign export dynamic mkHandler_GtkEntryCompletionMatchFunc :: - GtkEntryCompletionMatchFunc -> - IO (FunPtr GtkEntryCompletionMatchFunc) -#endif connect_GtkEntryCompletionMatchFunc :: EntryCompletion -> (String -> TreeIter -> IO ()) -> |