[Gtk2hs-commit] gtk2hs/gtk/Graphics/UI/Gtk/Selectors FileChooser.chs.pp,1.7,1.8

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

Update of /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Selectors
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5119/gtk/Graphics/UI/Gtk/Selectors

Modified Files:
	FileChooser.chs.pp 
Log Message:
Reminder to self: fix bugs before comitting, not the other way around.


Index: FileChooser.chs.pp
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Selectors/FileChooser.chs.pp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- FileChooser.chs.pp	3 Apr 2005 12:56:07 -0000	1.7
+++ FileChooser.chs.pp	3 Apr 2005 14:15:35 -0000	1.8
@@ -195,8 +195,8 @@
 import Monad (liftM, when)
 
 import System.Glib.FFI
+import System.Glib.UTFString
 import System.Glib.Attributes		(Attr(..))
-import System.Glib.UTFString		(readCString)
 {#import Graphics.UI.Gtk.Types#}
 import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)
 import Graphics.UI.Gtk.Signals
@@ -754,7 +754,7 @@
  -> IO ()
 fileChooserRemoveShortcutFolder self folder =
   propagateGError $ \errorPtr ->
-  withCString folder $ \folderPtr ->
+  withCString folder $ \folderPtr -> do
 #if defined (WIN32) && GTK_CHECK_VERSION(2,6,0)
   {# call gtk_file_chooser_remove_shortcut_folder_utf8 #}
 #else