[htoolkit-cvs] HSQL/HSQL/Database HSQL.hsc,1.15,1.16

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

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.