[htoolkit-cvs] HSQL/HSQL/Database HSQL.hsc,1.1,1.2

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

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

Modified Files:
	HSQL.hsc 
Log Message:
Added instance SqlBind Float


Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/HSQL/Database/HSQL.hsc,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** HSQL.hsc	1 Feb 2005 13:04:06 -0000	1.1
--- HSQL.hsc	14 Jun 2005 09:39:56 -0000	1.2
***************
*** 283,286 ****
--- 283,297 ----
  	toSqlValue d = show d
  
+ instance SqlBind Float where
+ 	fromSqlValue (SqlDecimal _ _) s = Just (read s)
+ 	fromSqlValue (SqlNumeric _ _) s = Just (read s)
+ 	fromSqlValue SqlDouble  s = Just (read s)
+ 	fromSqlValue SqlReal s = Just (read s)
+ 	fromSqlValue SqlFloat s = Just (read s)
+ 	fromSqlValue SqlText   s = Just (read s)
+ 	fromSqlValue _ _ = Nothing
+ 
+ 	toSqlValue d = show d
+ 
  mkClockTime :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> ClockTime
  mkClockTime year mon mday hour min sec tz =