[htoolkit-users] HSQL patch: instance SqlBind Float

[Frederik E. <fre...@a5...>]

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/