From: Duncan C. <dun...@us...> - 2004-08-10 14:51:58
|
Update of /cvsroot/gtk2hs/gtk2hs/tools/callbackGen In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22901/tools/callbackGen Modified Files: Signal.chs-boot2 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: Signal.chs-boot2 =================================================================== RCS file: /cvsroot/gtk2hs/gtk2hs/tools/callbackGen/Signal.chs-boot2,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- Signal.chs-boot2 17 Jul 2004 04:05:13 -0000 1.2 +++ Signal.chs-boot2 10 Aug 2004 14:51:48 -0000 1.3 @@ -25,16 +25,8 @@ {#pointer GClosureNotify#} -#if __GLASGOW_HASKELL__>=600 - foreign import ccall "wrapper" mkDestructor :: IO () -> IO GClosureNotify -#else - -foreign export dynamic mkDestructor :: IO () -> IO GClosureNotify - -#endif - disconnect :: GObjectClass obj => ConnectId obj -> IO () disconnect (ConnectID handler obj) = withForeignPtr ((unGObject.toGObject) obj) $ \objPtr -> |