[Gtk2hs-commit] gtk2hs/tools/callbackGen HookGenerator.hs,1.2,1.3

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

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