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

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

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.