From: Peter g. <pg...@co...> - 2009-01-12 05:03:41
|
Sun Jan 11 23:57:57 EST 2009 Peter Gavin <pg...@gm...> * gstreamer: giveStructure should not make the copy of the structure immutable hunk ./gstreamer/Media/Streaming/GStreamer/Core/Types.chs.pp 671 - do structure <- liftIO $ - {# call structure_copy #} structure >>= - peekStructure - action structure + do structure <- liftIO $ liftM Structure $ + {# call structure_copy #} structure >>= newForeignPtr_ + ret <- action structure + liftIO $ {# call structure_free #} structure + return ret |