[htoolkit-cvs] HSQL/SQLite3/Database/HSQL SQLite3.hsc,1.3,1.4

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

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

Modified Files:
	SQLite3.hsc 
Log Message:
fixes for the new execute method.


Index: SQLite3.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/SQLite3/Database/HSQL/SQLite3.hsc,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** SQLite3.hsc	3 Jan 2006 22:59:47 -0000	1.3
--- SQLite3.hsc	4 Jan 2006 08:23:59 -0000	1.4
***************
*** 78,84 ****
  			, connTables     = tables connection sqlite
  			, connDescribe   = describe connection sqlite
! 			, connBeginTransaction = execute sqlite "BEGIN TRANSACTION"
! 			, connCommitTransaction = execute sqlite "COMMIT TRANSACTION"
! 			, connRollbackTransaction = execute sqlite "ROLLBACK TRANSACTION"
  			}
  		return connection
--- 78,84 ----
  			, connTables     = tables connection sqlite
  			, connDescribe   = describe connection sqlite
! 			, connBeginTransaction = execute sqlite "BEGIN TRANSACTION" >> return ()
! 			, connCommitTransaction = execute sqlite "COMMIT TRANSACTION" >> return ()
! 			, connRollbackTransaction = execute sqlite "ROLLBACK TRANSACTION" >> return ()
  			}
  		return connection
***************
*** 96,100 ****
  				res <- sqlite3_exec sqlite pQuery nullFunPtr nullPtr ppMsg
  				handleSqlResult res ppMsg
! 				sqlite3_changes sqlite
  
  		query :: Connection -> SQLite3 -> String -> IO Statement
--- 96,101 ----
  				res <- sqlite3_exec sqlite pQuery nullFunPtr nullPtr ppMsg
  				handleSqlResult res ppMsg
! 				changes <- sqlite3_changes sqlite
! 				return $! fromIntegral changes
  
  		query :: Connection -> SQLite3 -> String -> IO Statement