[htoolkit-cvs] HSQL/MySQL/Database/HSQL MySQL.hsc,1.4,1.5

[<kr_...@us...>]

Update of /cvsroot/htoolkit/HSQL/MySQL/Database/HSQL
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24722/MySQL/Database/HSQL

Modified Files:
	MySQL.hsc 
Log Message:
The type of execute function is changed. Now it returns the number of the rows affected.


Index: MySQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/MySQL/Database/HSQL/MySQL.hsc,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MySQL.hsc	12 Dec 2005 21:33:50 -0000	1.4
--- MySQL.hsc	3 Jan 2006 22:59:46 -0000	1.5
***************
*** 106,113 ****
  	return connection
  	where
! 		execute :: MYSQL -> String -> IO ()
  		execute pMYSQL query = do
  			res <- withCString query (mysql_query pMYSQL)
  			when (res /= 0) (handleSqlError pMYSQL)
  
  		withStatement :: Connection -> MYSQL -> MYSQL_RES -> IO Statement
--- 106,114 ----
  	return connection
  	where
! 		execute :: MYSQL -> String -> IO Integer
  		execute pMYSQL query = do
  			res <- withCString query (mysql_query pMYSQL)
  			when (res /= 0) (handleSqlError pMYSQL)
+ 			return (-1)
  
  		withStatement :: Connection -> MYSQL -> MYSQL_RES -> IO Statement