Update of /cvsroot/htoolkit/HSQL/HSQL/Database
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7948/Database
Modified Files:
HSQL.hsc
Log Message:
fixed fromSqlValue for (Maybe a)
Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/HSQL/Database/HSQL.hsc,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** HSQL.hsc 12 Dec 2005 15:21:55 -0000 1.3
--- HSQL.hsc 15 Dec 2005 13:15:23 -0000 1.4
***************
*** 199,204 ****
return (Just v)
! fromSqlValue tp "null" = Nothing
! fromSqlValue tp s = fromSqlValue tp s
toSqlValue (Just v) = toSqlValue v
--- 199,203 ----
return (Just v)
! fromSqlValue tp s = Just (fromSqlValue tp s)
toSqlValue (Just v) = toSqlValue v
|
