Update of /cvsroot/htoolkit/HSQL/HSQL/Database
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13092/Database
Modified Files:
HSQL.hsc
Log Message:
add getFieldValueMB again for backward compatibility
Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/HSQL/Database/HSQL.hsc,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** HSQL.hsc 15 Dec 2005 13:15:23 -0000 1.4
--- HSQL.hsc 15 Dec 2005 20:59:51 -0000 1.5
***************
*** 30,33 ****
--- 30,34 ----
, FieldDef, SqlType(..), SqlBind, toSqlValue
, getFieldValue -- :: SqlBind a => Statement -> String -> IO a
+ , getFieldValueMB
, getFieldValue' -- :: SqlBind a => Statement -> String -> a -> IO a
, getFieldValueType -- :: Statement -> String -> (SqlType, Bool)
***************
*** 548,551 ****
--- 549,556 ----
(sqlType,nullable,colNumber) = findFieldInfo name (stmtFields stmt) 0
+ {-# DEPRECATED getFieldValueMB "Use getFieldValue instead." #-}
+ getFieldValueMB :: SqlBind a => Statement -> String -> IO (Maybe a)
+ getFieldValueMB = getFieldValue
+
-- | Retrieves the value of field with the specified name.
-- If the field value is @null@ then the function will return the default value.
|
