|
From: Frederik E. <fre...@a5...> - 2005-02-22 08:51:51
|
Please apply:
--- HSQL/src/HSQL.hsc 2004-04-10 13:59:07.000000000 -0700
+++ HSQL-modified/src/HSQL.hsc 2005-02-21 17:37:27.000000000 -0800
@@ -275,6 +275,16 @@
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 _ _ = Nothing
+
+ toSqlValue d = show d
+
mkClockTime :: Int -> Int -> Int -> Int -> Int -> Int -> Int -> ClockTime
mkClockTime year mon mday hour min sec tz =
unsafePerformIO $ do
Thanks,
Frederik
--
Frederik Eaton http://ofb.net/~frederik/
|