[hoc-cvs] hoc/HOC HOC.hs,1.12,1.13

[Wolfgang T. <wth...@us...>]

Update of /cvsroot/hoc/hoc/HOC
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12412/HOC

Modified Files:
	HOC.hs 
Log Message:
Add utility function
withExportedArray :: (HOC.Arguments.ObjCArgument a b)
                  => [a] -> (GHC.Ptr.Ptr b -> IO c) -> IO c



Index: HOC.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/HOC/HOC.hs,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- HOC.hs	27 Sep 2005 11:55:22 -0000	1.12
+++ HOC.hs	17 Mar 2006 04:57:36 -0000	1.13
@@ -7,6 +7,7 @@
         ClassAndObject,
         ( # ), ( #* ),
         ObjCArgument(..),
+        withExportedArray,
         castObject,
         declareClass,
         declareSelector,