On 24.09.2010, at 17:05, John Obbele wrote: > """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" > --- a/glib/System/Glib/UTFString.hs 2010-09-06 2010-09-06 > 11:24:42.980482243 +0200 > +++ b/glib/System/Glib/UTFString.hs 2010-09-24 16:10:21.821860119 > +0200 > @@ -149,8 +149,9 @@ > readUTFStringArray0 :: Ptr CString -> IO [String] > readUTFStringArray0 cStrArr = do > cStrs <- peekArray0 nullPtr cStrArr > + strings <- mapM peekUTFString cStrs > g_strfreev cStrArr > - mapM peekUTFString cStrs > + return strings > > foreign import ccall unsafe "g_strfreev" > g_strfreev :: Ptr a -> IO () > """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" > > It's seems wiser to read the array (mapM peekUTFString) *before* > freeing it, laziness considerations apart.
Ups. Fixed. Now in darcs. Axel ------------------------------------------------------------------------------ Start uncovering the many advantages of virtual appliances and start using them to simplify application deployment and accelerate your shift to cloud computing. http://p.sf.net/sfu/novell-sfdev2dev _______________________________________________ Gtk2hs-devel mailing list Gtk2hs-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gtk2hs-devel