-- GENERATED by C->Haskell Compiler, version 0.13.5 (gtk2hs branch) "Bin IO", 13 Nov 2004 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "./Media/Streaming/GStreamer/Core/MiniObject.chs" #-} -- GIMP Toolkit (GTK) Binding for Haskell: binding to gstreamer -*-haskell-*- -- -- Author : Peter Gavin -- Created: 1-Apr-2007 -- -- Copyright (c) 2007 Peter Gavin -- -- This library is free software: you can redistribute it and/or -- modify it under the terms of the GNU Lesser General Public License -- as published by the Free Software Foundation, either version 3 of -- the License, or (at your option) any later version. -- -- This library is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -- Lesser General Public License for more details. -- -- You should have received a copy of the GNU Lesser General Public -- License along with this program. If not, see -- <http://www.gnu.org/licenses/>. -- -- GStreamer, the C library which this Haskell library depends on, is -- available under LGPL Version 2. The documentation included with -- this library is based on the original GStreamer documentation. -- -- | Maintainer : gtk2hs-devel\@lists.sourceforge.net -- Stability : alpha -- Portability : portable (depends on GHC) module Media.Streaming.GStreamer.Core.MiniObject ( MiniObject, MiniObjectClass, MiniObjectFlags, -- deliberately not exporting constructors MiniObjectT, toMiniObject, castToMiniObject, miniObjectGetFlags, miniObjectGetFlagsM, miniObjectSetFlagsM, miniObjectUnsetFlagsM, ) where import Control.Monad (liftM) import Control.Monad.Trans import Media.Streaming.GStreamer.Core.Types {-# LINE 47 "./Media/Streaming/GStreamer/Core/MiniObject.chs" #-} import System.Glib.FFI {-# LINE 50 "./Media/Streaming/GStreamer/Core/MiniObject.chs" #-} miniObjectGetFlags :: MiniObjectClass miniObjectT => miniObjectT -> [MiniObjectFlags] miniObjectGetFlags = mkMiniObjectGetFlags miniObjectGetFlagsM :: (MiniObjectClass miniObjectT, MonadIO m) => MiniObjectT miniObjectT m [MiniObjectFlags] miniObjectGetFlagsM = mkMiniObjectGetFlagsM miniObjectSetFlagsM :: (MiniObjectClass miniObjectT, MonadIO m) => [MiniObjectFlags] -> MiniObjectT miniObjectT m () miniObjectSetFlagsM = mkMiniObjectSetFlagsM miniObjectUnsetFlagsM :: (MiniObjectClass miniObjectT, MonadIO m) => [MiniObjectFlags] -> MiniObjectT miniObjectT m () miniObjectUnsetFlagsM = mkMiniObjectUnsetFlagsM miniObjectCreateCopy :: (MiniObjectClass miniObjectT, MonadIO m) => miniObjectT -> MiniObjectT miniObjectT m a -> m (miniObjectT, a) miniObjectCreateCopy miniObject action = marshalMiniObjectModify (liftIO $ liftM castPtr $ (\(MiniObject arg1) -> withForeignPtr arg1 $ \argPtr1 ->gst_mini_object_copy argPtr1) $ toMiniObject miniObject) action foreign import ccall safe "gst_mini_object_copy" gst_mini_object_copy :: ((Ptr MiniObject) -> (IO (Ptr MiniObject)))