[htoolkit-cvs] HSQL/src HSQL.hsc,1.11,1.12

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

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

Modified Files:
	HSQL.hsc 
Log Message:
Added conversion of SqlBigInt to Int. MySQL makes the result of some aggregate functions SqlBigInt, and it seems reasonable that the user should be able to uses those as Int.

Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/src/HSQL.hsc,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** HSQL.hsc	26 Feb 2004 20:52:06 -0000	1.11
--- HSQL.hsc	31 Mar 2004 16:12:46 -0000	1.12
***************
*** 198,201 ****
--- 198,202 ----
  	    if sqlType==SqlInteger || sqlType==SqlMedInt 
  	       || sqlType==SqlTinyInt || sqlType==SqlSmallInt
+ 	       || sqlType==SqlBigInt
  		then do
  		    val <- c_atoi cstr
***************
*** 208,211 ****
--- 209,213 ----
  	fromSqlValue SqlTinyInt s  = Just (read s)
  	fromSqlValue SqlSmallInt s = Just (read s)
+ 	fromSqlValue SqlBigInt s = Just (read s)
  	fromSqlValue _ _           = Nothing