Update of /cvsroot/htoolkit/HSQL/ODBC
In directory sc8-pr-cvs1:/tmp/cvs-serv17503/ODBC
Modified Files:
HSQL.hsc
Log Message:
Force strict evaluation in findFieldInfo
Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/ODBC/HSQL.hsc,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** HSQL.hsc 7 Sep 2003 22:57:25 -0000 1.3
--- HSQL.hsc 25 Sep 2003 16:45:30 -0000 1.4
***************
*** 525,529 ****
findFieldInfo name (fieldDef@(name',sqlType,nullable):fields) colNumber
| name == name' = (sqlType,nullable,colNumber)
! | otherwise = findFieldInfo name fields (colNumber+1)
-----------------------------------------------------------------------------------------
--- 525,529 ----
findFieldInfo name (fieldDef@(name',sqlType,nullable):fields) colNumber
| name == name' = (sqlType,nullable,colNumber)
! | otherwise = findFieldInfo name fields $! (colNumber+1)
-----------------------------------------------------------------------------------------
|
