|
From: <kr_...@us...> - 2005-06-14 09:40:04
|
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 = |