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

Reply via email to