Update of /cvsroot/htoolkit/HSQL/HSQL/Database/HSQL
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv21420/Database/HSQL
Modified Files:
Types.hs
Log Message:
added getStmtFieldValue to SqlBind type class
Index: Types.hs
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/HSQL/Database/HSQL/Types.hs,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Types.hs 11 Mar 2006 20:32:00 -0000 1.10
--- Types.hs 20 Sep 2006 10:52:36 -0000 1.11
***************
*** 153,156 ****
--- 153,159 ----
fromSqlCStringLen = defaultFromSqlCStringLen
+ getStmtFieldValue :: Statement -> Int -> FieldDef -> IO a
+ getStmtFieldValue = defaultGetStmtFieldValue
+
fromSqlValue :: SqlType -> String -> Maybe a
toSqlValue :: a -> String
***************
*** 164,165 ****
--- 167,171 ----
Nothing -> throwDyn (SqlBadTypeCast name sqlType)
Just v -> return v
+
+ defaultGetStmtFieldValue :: SqlBind a => Statement -> Int -> FieldDef -> IO a
+ defaultGetStmtFieldValue stmt colNumber fieldDef = stmtGetCol stmt colNumber fieldDef fromSqlCStringLen
|
