[htoolkit-cvs] HSQL/ODBC/Database/HSQL ODBC.hsc,1.5,1.6

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

Update of /cvsroot/htoolkit/HSQL/ODBC/Database/HSQL
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24722/ODBC/Database/HSQL

Modified Files:
	ODBC.hsc 
Log Message:
The type of execute function is changed. Now it returns the number of the rows affected.


Index: ODBC.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/ODBC/Database/HSQL/ODBC.hsc,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ODBC.hsc	12 Dec 2005 15:21:56 -0000	1.5
--- ODBC.hsc	3 Jan 2006 22:59:46 -0000	1.6
***************
*** 185,189 ****
  			sqlFreeConnect hDBC >>= handleSqlResult (#const SQL_HANDLE_DBC) hDBC
  
! 		execute :: HDBC -> String -> IO ()
  		execute hDBC query = allocaBytes (#const sizeof(HSTMT)) $
                    \pStmt -> do
--- 185,189 ----
  			sqlFreeConnect hDBC >>= handleSqlResult (#const SQL_HANDLE_DBC) hDBC
  
! 		execute :: HDBC -> String -> IO Integer
  		execute hDBC query = allocaBytes (#const sizeof(HSTMT)) $
                    \pStmt -> do
***************
*** 196,199 ****
--- 196,200 ----
  			res <- sqlFreeStmt hSTMT (#const SQL_DROP)
  			handleSqlResult (#const SQL_HANDLE_STMT) hSTMT res
+ 			return (-1)
  
  		stmtBufferSize = 256