[htoolkit-cvs] HSQL/HSQL/Database HSQL.hsc,1.6,1.7

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

Update of /cvsroot/htoolkit/HSQL/HSQL/Database
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14758/Database

Modified Files:
	HSQL.hsc 
Log Message:
- added getColumnValue(') to export list.
- added getColumnValueType function


Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/HSQL/Database/HSQL.hsc,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** HSQL.hsc	3 Jan 2006 22:09:15 -0000	1.6
--- HSQL.hsc	3 Jan 2006 22:14:32 -0000	1.7
***************
*** 30,36 ****
  	, 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)
  	, getFieldsTypes    -- :: Statement -> [(String, SqlType, Bool)]
  	
--- 30,39 ----
  	, FieldDef, SqlType(..), SqlBind, toSqlValue
  	, getFieldValue     -- :: SqlBind a => Statement -> String -> IO a
  	, getFieldValue'    -- :: SqlBind a => Statement -> String -> a -> IO a
+ 	, getColumnValue    -- :: SqlBind a => Statement -> Int    -> IO a
+ 	, getColumnValue'   -- :: SqlBind a => Statement -> Int    -> a -> IO a
+ 	, getFieldValueMB
  	, getFieldValueType -- :: Statement -> String -> (SqlType, Bool)
+ 	, getColumnValueType-- :: Statement -> Int    -> FieldDef
  	, getFieldsTypes    -- :: Statement -> [(String, SqlType, Bool)]
  	
***************
*** 173,176 ****
--- 176,183 ----
  		(sqlType,nullable,colNumber) = findFieldInfo name (stmtFields stmt) 0
  
+ -- | Returns the type and the @nullable@ flag for field with specified name
+ getColumnValueType :: Statement -> Int -> FieldDef
+ getColumnValueType stmt index = findColumnInfo (stmtFields stmt) index
+ 
  -- | Returns the list of fields with their types and @nullable@ flags
  getFieldsTypes :: Statement -> [(String, SqlType, Bool)]