[htoolkit-cvs] HSQL/HSQL/Database HSQL.hsc,1.7,1.8

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

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

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


Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/HSQL/Database/HSQL.hsc,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** HSQL.hsc	3 Jan 2006 22:14:32 -0000	1.7
--- HSQL.hsc	3 Jan 2006 22:59:46 -0000	1.8
***************
*** 21,25 ****
  	-- | Once a connection to a database has been successfully established, 
  	-- the functions described here are used to perform SQL queries and commands.
! 	, execute           -- :: Connection -> String -> IO ()
  	, Statement
  	, query             -- :: Connection -> String -> IO Statement
--- 21,25 ----
  	-- | Once a connection to a database has been successfully established, 
  	-- the functions described here are used to perform SQL queries and commands.
! 	, execute           -- :: Connection -> String -> IO Integer
  	, Statement
  	, query             -- :: Connection -> String -> IO Statement
***************
*** 113,117 ****
  execute :: Connection  -- ^ the database connection
          -> String      -- ^ the text of SQL command
!         -> IO ()
  execute conn query = checkHandle (connClosed conn) (connExecute conn query)
  
--- 113,117 ----
  execute :: Connection  -- ^ the database connection
          -> String      -- ^ the text of SQL command
!         -> IO Integer
  execute conn query = checkHandle (connClosed conn) (connExecute conn query)