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

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

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

Modified Files:
	MySQL.hsc 
Log Message:
return the number of affected rows


Index: MySQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/MySQL/Database/HSQL/MySQL.hsc,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** MySQL.hsc	3 Jan 2006 22:59:46 -0000	1.5
--- MySQL.hsc	4 Jan 2006 19:59:36 -0000	1.6
***************
*** 49,52 ****
--- 49,53 ----
  foreign import #{CALLCONV} "HsMySQL.h mysql_error" mysql_error :: MYSQL -> IO CString
  foreign import #{CALLCONV} "HsMySQL.h mysql_query" mysql_query :: MYSQL -> CString -> IO CInt
+ foreign import #{CALLCONV} "HsMySQL.h mysql_affected_rows" mysql_affected_rows :: MYSQL -> IO (#type my_ulonglong)
  foreign import #{CALLCONV} "HsMySQL.h mysql_use_result" mysql_use_result :: MYSQL -> IO MYSQL_RES
  foreign import #{CALLCONV} "HsMySQL.h mysql_fetch_field" mysql_fetch_field :: MYSQL_RES -> IO MYSQL_FIELD
***************
*** 99,105 ****
  		, connTables = tables connection pMYSQL
  		, connDescribe = describe connection pMYSQL
! 		, connBeginTransaction = execute pMYSQL "begin"
! 		, connCommitTransaction = execute pMYSQL "commit"
! 		, connRollbackTransaction = execute pMYSQL "rollback"
  		, connClosed = refFalse
  		}
--- 100,106 ----
  		, connTables = tables connection pMYSQL
  		, connDescribe = describe connection pMYSQL
! 		, connBeginTransaction = execute pMYSQL "begin" >> return ()
! 		, connCommitTransaction = execute pMYSQL "commit" >> return ()
! 		, connRollbackTransaction = execute pMYSQL "rollback" >> return ()
  		, connClosed = refFalse
  		}
***************
*** 110,114 ****
  			res <- withCString query (mysql_query pMYSQL)
  			when (res /= 0) (handleSqlError pMYSQL)
! 			return (-1)
  
  		withStatement :: Connection -> MYSQL -> MYSQL_RES -> IO Statement
--- 111,116 ----
  			res <- withCString query (mysql_query pMYSQL)
  			when (res /= 0) (handleSqlError pMYSQL)
! 			nrows <- mysql_affected_rows pMYSQL
! 			return $! fromIntegral nrows
  
  		withStatement :: Connection -> MYSQL -> MYSQL_RES -> IO Statement