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

[<br...@us...>]

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

Modified Files:
	PostgreSQL.hsc 
Log Message:
Check result of read in PostgreSQL execute.

Index: PostgreSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/PostgreSQL/Database/HSQL/PostgreSQL.hsc,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** PostgreSQL.hsc	4 Jan 2006 18:39:47 -0000	1.5
--- PostgreSQL.hsc	7 Jun 2006 22:06:12 -0000	1.6
***************
*** 113,117 ****
  			  then return (-1)
  			  else do str <- peekCString cstr
! 			          return $! read str
  
  		query :: Connection -> PGconn -> String -> IO Statement
--- 113,119 ----
  			  then return (-1)
  			  else do str <- peekCString cstr
!                                   case reads str of
!                                     (x,_):_ -> return x
!                                     _       -> return (-1)
  
  		query :: Connection -> PGconn -> String -> IO Statement