Update of /cvsroot/gtk2hs/gtk2hs/tools/callbackGen
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31660/tools/callbackGen
Modified Files:
HookGenerator.hs
Log Message:
Remove support for pre-5.04 ghc.
Index: HookGenerator.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/tools/callbackGen/HookGenerator.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- HookGenerator.hs 17 Jul 2004 04:01:58 -0000 1.2
+++ HookGenerator.hs 20 Dec 2004 03:25:55 -0000 1.3
@@ -1,4 +1,3 @@
-{-# OPTIONS -cpp #-}
-- HookGenerator.hs -*-haskell-*-
-- Takes a type list of possible hooks from the GTK+ distribution and produces
-- Haskell functions to connect to these callbacks.
@@ -440,11 +439,7 @@
indent 1.mkRawtype sig.
indent 0.
(if fakeSignature bs sig then id else indent 0.ss "foreign".
-#if __GLASGOW_HASKELL__>=504
ss " import ccall \"wrapper\" ").ss "mkHandler_".ident.ss " ::".
-#else
- ss " export dynamic ").ss "mkHandler_".ident.ss " ::".
-#endif
indent 1.ss "Tag_".ident.ss " -> ".
indent 1.ss "IO (FunPtr ".ss "Tag_".ident.sc ')'.
(if fakeSignature bs sig then
|
