From: <bri...@cs...> - 2006-08-25 09:26:14
|
Thanks, committed. /Bj=F6rn Frederik Eaton wrote: > Hi, >=20 > 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: >=20 > ---------------------------------------------------------------- > 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.000= 000000 +0100 > +++ HSQL-1.7-modified-3/HSQL/Database/HSQL.hsc 2006-08-23 02:15:34.000= 000000 +0100 > @@ -277,6 +277,7 @@ > =20 > instance SqlBind Bool where > fromSqlValue SqlBit s =3D Just (s =3D=3D "t") > + fromSqlValue SqlTinyInt s =3D Just (read s /=3D (0::Int)) > fromSqlValue _ _ =3D Nothing > =20 > toSqlValue True =3D "'t'" > ---------------------------------------------------------------- >=20 > Are these patches making it in? >=20 > Thanks, >=20 > Frederik >=20 |