[htoolkit-cvs] HSQL/HSQL/Database HSQL.hsc,1.3,1.4

[<kr_...@us...>]

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