[htoolkit-cvs] HSQL/src/PostgreSQL HSQL.hsc,1.1,1.2

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

Update of /cvsroot/htoolkit/HSQL/src/PostgreSQL
In directory sc8-pr-cvs1:/tmp/cvs-serv12029/src/PostgreSQL

Modified Files:
	HSQL.hsc 
Log Message:
Basic build system for HSQL


Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/src/PostgreSQL/HSQL.hsc,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** HSQL.hsc	24 Jan 2003 00:18:52 -0000	1.1
--- HSQL.hsc	5 Sep 2003 11:37:56 -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
  		, module Graphics.Data.Geometry
  		)	where
--- 21,24 ----
***************
*** 455,470 ****
  					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
--- 452,453 ----