Update of /cvsroot/htoolkit/HSQL/HSQL/Database
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21065/Database
Modified Files:
HSQL.hsc
Log Message:
the stmtSetParam method needs the param index.
Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/HSQL/Database/HSQL.hsc,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** HSQL.hsc 4 Jan 2006 22:19:57 -0000 1.12
--- HSQL.hsc 5 Jan 2006 20:14:23 -0000 1.13
***************
*** 170,175 ****
executePrepared :: Statement -> [SqlValue] -> IO Integer
executePrepared stmt values = checkHandle (stmtClosed stmt) $ do
! mapM_ (stmtSetParam stmt) values
stmtExecute stmt
-- | 'fetch' fetches the next rowset of data from the result set.
--- 170,180 ----
executePrepared :: Statement -> [SqlValue] -> IO Integer
executePrepared stmt values = checkHandle (stmtClosed stmt) $ do
! 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.
|
