[Gtk2hs-commit] gtk2hs/gtk/abstract FileChooser.chs,1.7,1.8

[Duncan C. <dun...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/gtk/abstract
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26699/gtk/abstract

Modified Files:
	FileChooser.chs 
Log Message:
Moved a couple of useful string marshaling functions to a common location.


Index: FileChooser.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/abstract/FileChooser.chs,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- FileChooser.chs	29 Jul 2004 12:14:23 -0000	1.7
+++ FileChooser.chs	3 Aug 2004 02:36:39 -0000	1.8
@@ -353,13 +353,6 @@
 ------------------------------------------------------
 -- Utility functions that really ought to go elsewhere
 
--- like peekCString but then frees the string using g_free
-readCString :: CString -> IO String
-readCString strPtr = do
-  str <- peekCString strPtr
-  {# call unsafe g_free #} (castPtr strPtr)
-  return str
-
 -- convenience functions for GSlists of strings
 fromStringGSList :: GSList -> IO [String]
 fromStringGSList strList = do