[Gtk2hs-commit] (main branch): gstreamer: remove M.S.G.Core.Buffer.bufferWithDataM

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

Mon Oct 29 09:07:49 PDT 2007  Peter Gavin <pg...@gm...>
  * gstreamer: remove M.S.G.Core.Buffer.bufferWithDataM
  I need to rethink this one

    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Buffer.chs.pp 47
    -  bufferWithDataM,
    hunk ./gstreamer/Media/Streaming/GStreamer/Core/Buffer.chs.pp 174
    -bufferWithDataM :: BufferClass bufferT
    -                => (BS.ByteString -> MiniObjectM bufferT a)
    -                -> MiniObjectM bufferT a
    -bufferWithDataM action =
    -    do bs <- marshalBufferM $ \bufferPtr ->
    -                 do ptr <- {# get GstBuffer->data #} bufferPtr
    -                    size <- {# get GstBuffer->size #} bufferPtr
    -#if __GLASGOW_HASKELL__ < 608
    -                    return $ BS.packCStringLen (castPtr ptr, fromIntegral size)
    -#else
    -                    BS.packCStringLen (castPtr ptr, fromIntegral size)
    -#endif
    -       result <- action bs
    -       MiniObjectM $ \buffer ->
    -           let (Buffer bufferFPtr) = toBuffer buffer
    -           in touchForeignPtr bufferFPtr
    -       return result
    -