[hoc-cvs] hoc/HOC/HOC StdArgumentTypes.hs,1.3,1.4

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

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

Modified Files:
	StdArgumentTypes.hs 
Log Message:
Bool should be marshalled as signed char, not int


Index: StdArgumentTypes.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/HOC/HOC/StdArgumentTypes.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- StdArgumentTypes.hs	1 Nov 2003 16:40:28 -0000	1.3
+++ StdArgumentTypes.hs	26 Jul 2005 01:27:44 -0000	1.4
@@ -19,7 +19,7 @@
 
 $(declareStorableObjCArgument [t| SEL |] ":")
 
-instance ObjCArgument Bool CInt where
+instance ObjCArgument Bool CSChar where
     exportArgument False = return 0
     exportArgument True = return 1
     importArgument 0 = return False