[htoolkit-cvs] HSQL/HSQL/Database HSQL.hsc,1.11,1.12

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

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