[htoolkit-cvs] HSQL/HSQL/Database/HSQL Types.hs,1.10,1.11

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

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