Update of /cvsroot/htoolkit/HSQL/HSQL/Database
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30760/Database
Modified Files:
HSQL.hsc
Log Message:
stmtExecute should return Integer like connExecute
Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/HSQL/Database/HSQL.hsc,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** HSQL.hsc 4 Jan 2006 21:08:49 -0000 1.11
--- HSQL.hsc 4 Jan 2006 22:19:57 -0000 1.12
***************
*** 168,172 ****
-- | 'fetch' fetches the next rowset of data from the result set.
-- The values from columns can be retrieved with 'getFieldValue' function.
! executePrepared :: Statement -> [SqlValue] -> IO ()
executePrepared stmt values = checkHandle (stmtClosed stmt) $ do
mapM_ (stmtSetParam stmt) values
--- 168,172 ----
-- | 'fetch' fetches the next rowset of data from the result set.
-- The values from columns can be retrieved with 'getFieldValue' function.
! executePrepared :: Statement -> [SqlValue] -> IO Integer
executePrepared stmt values = checkHandle (stmtClosed stmt) $ do
mapM_ (stmtSetParam stmt) values
|
