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

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

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.