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
|
