[htoolkit-users] HSQL SqlTinyInt patch

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

Hi,

Here is another patch. Many schemata, for instance that of Wikipedia,
use "tinyint" as a synonym for "bit". So I thought it would be good to
support those:

----------------------------------------------------------------
diff -ur HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc HSQL-1.7-modified-3/HSQL/Database/HSQL.hsc
--- HSQL-1.7-modified-2/HSQL/Database/HSQL.hsc  2006-08-23 02:14:59.000000000 +0100
+++ HSQL-1.7-modified-3/HSQL/Database/HSQL.hsc  2006-08-23 02:15:34.000000000 +0100
@@ -277,6 +277,7 @@
 
 instance SqlBind Bool where
        fromSqlValue SqlBit s = Just (s == "t")
+       fromSqlValue SqlTinyInt s = Just (read s /= (0::Int))
        fromSqlValue _ _ = Nothing
 
        toSqlValue True  = "'t'"
----------------------------------------------------------------

Are these patches making it in?

Thanks,

Frederik

-- 
http://ofb.net/~frederik/