[htoolkit-cvs] HSQL/PostgreSQL/Database/HSQL PostgreSQL.hsc,1.3,1.4

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

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

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


Index: PostgreSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/PostgreSQL/Database/HSQL/PostgreSQL.hsc,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** PostgreSQL.hsc	3 Jan 2006 21:01:30 -0000	1.3
--- PostgreSQL.hsc	3 Jan 2006 22:59:47 -0000	1.4
***************
*** 97,101 ****
  	return connection
  	where
! 		execute :: PGconn -> String -> IO ()
  		execute pConn sqlExpr = do
  			pRes <- withCString sqlExpr (pqExec pConn)
--- 97,101 ----
  	return connection
  	where
! 		execute :: PGconn -> String -> IO Integer
  		execute pConn sqlExpr = do
  			pRes <- withCString sqlExpr (pqExec pConn)
***************
*** 107,111 ****
  				errMsg <- pqResultErrorMessage pRes >>= peekCString
  				throwDyn (SqlError {seState="E", seNativeError=fromIntegral status, seErrorMsg=errMsg}))
! 			return ()
  
  		query :: Connection -> PGconn -> String -> IO Statement
--- 107,111 ----
  				errMsg <- pqResultErrorMessage pRes >>= peekCString
  				throwDyn (SqlError {seState="E", seNativeError=fromIntegral status, seErrorMsg=errMsg}))
! 			return (-1)
  
  		query :: Connection -> PGconn -> String -> IO Statement