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
|
