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)]
|
