Update of /cvsroot/htoolkit/HSQL/src/MySQL
In directory sc8-pr-cvs1:/tmp/cvs-serv12029/src/MySQL
Modified Files:
HSQL.hsc
Log Message:
Basic build system for HSQL
Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/src/MySQL/HSQL.hsc,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** HSQL.hsc 24 Jan 2003 00:08:58 -0000 1.1
--- HSQL.hsc 5 Sep 2003 11:37:55 -0000 1.2
***************
*** 21,27 ****
, forEachRow' -- :: (Statement -> IO ()) -> Statement -> IO ()
, collectRows -- :: (Statement -> IO s) -> Statement -> IO [s]
- #ifdef ENABLED_GUI
- , fillitems -- :: HasItems w => Connection -> String -> Config (w Int)
- #endif
) where
--- 21,24 ----
***************
*** 389,405 ****
return (x:xs)
else closeStatement stmt >> return []
-
-
- -----------------------------------------------------------------------------------------
- -- fillitems
- -----------------------------------------------------------------------------------------
-
- #ifdef ENABLED_GUI
- fillitems :: HasItems w => Connection -> String -> Config (w Int)
- fillitems conn sqlExpr widget = query conn sqlExpr >>= forEachRow' addItemToWidget
- where
- addItemToWidget stmt = do
- (id :: Int) <- getFieldValue stmt "id"
- (title :: Title) <- getFieldValue stmt "Name"
- addItem id title widget
- #endif
\ No newline at end of file
--- 386,387 ----
|
