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

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

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

Modified Files:
	SQLite2.hsc 
Log Message:
use strict return.


Index: SQLite2.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/SQLite/Database/HSQL/SQLite2.hsc,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** SQLite2.hsc	4 Jan 2006 08:19:49 -0000	1.3
--- SQLite2.hsc	4 Jan 2006 08:22:35 -0000	1.4
***************
*** 96,100 ****
  				handleSqlResult res ppMsg
  				changes <- sqlite_changes sqlite
! 				return (fromIntegral changes)
  
  		query :: Connection -> SQLite -> String -> IO Statement
--- 96,100 ----
  				handleSqlResult res ppMsg
  				changes <- sqlite_changes sqlite
! 				return $! fromIntegral changes
  
  		query :: Connection -> SQLite -> String -> IO Statement