[Gtk2hs-commit] gtk2hs/gtk/abstract Container.chs,1.8,1.9

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

Update of /cvsroot/gtk2hs/gtk2hs/gtk/abstract
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22901/gtk/abstract

Modified Files:
	Container.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: Container.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/abstract/Container.chs,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Container.chs	4 Aug 2004 18:41:43 -0000	1.8
+++ Container.chs	10 Aug 2004 14:51:47 -0000	1.9
@@ -108,18 +108,9 @@
 type ContainerForeachCB = Widget -> IO ()
 {#pointer Callback#}
 
-#if __GLASGOW_HASKELL__>=600
-
 foreign import ccall "wrapper" mkContainerForeachFunc ::
   (Ptr Widget -> Ptr () -> IO ()) -> IO Callback
 
-#else
-
-foreign export dynamic mkContainerForeachFunc ::
-  (Ptr Widget -> Ptr () -> IO ()) -> IO Callback
-
-#endif
-
 -- | Returns the the container's children.
 --
 containerGetChildren :: ContainerClass c => c -> IO [Widget]