Update of /cvsroot/htoolkit/HSQL/HSQL/Database
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14159/HSQL/Database
Modified Files:
HSQL.hsc
Log Message:
Change the type of stmtExecute. This time in order to make it compatible with Oracle.
Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/HSQL/Database/HSQL.hsc,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** HSQL.hsc 9 Jan 2006 12:44:28 -0000 1.15
--- HSQL.hsc 9 Jan 2006 14:49:23 -0000 1.16
***************
*** 170,181 ****
executePrepared :: Statement -> [SqlValue] -> IO Integer
executePrepared stmt values = checkHandle (stmtClosed stmt) $ do
! stmtReset stmt
! setParameters 0 values
! stmtExecute stmt
! where
! setParameters paramNum [] = return ()
! setParameters paramNum (value:values) = paramNum `seq` do
! stmtSetParam stmt paramNum value
! setParameters (paramNum+1) values
-- | 'fetch' fetches the next rowset of data from the result set.
--- 170,174 ----
executePrepared :: Statement -> [SqlValue] -> IO Integer
executePrepared stmt values = checkHandle (stmtClosed stmt) $ do
! stmtExecute stmt values
-- | 'fetch' fetches the next rowset of data from the result set.
|
