{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstPbutils.Objects.EncodingVideoProfile
(
EncodingVideoProfile(..) ,
IsEncodingVideoProfile ,
toEncodingVideoProfile ,
noEncodingVideoProfile ,
#if defined(ENABLE_OVERLOADING)
ResolveEncodingVideoProfileMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
EncodingVideoProfileGetPassMethodInfo ,
#endif
encodingVideoProfileGetPass ,
#if defined(ENABLE_OVERLOADING)
EncodingVideoProfileGetVariableframerateMethodInfo,
#endif
encodingVideoProfileGetVariableframerate,
encodingVideoProfileNew ,
#if defined(ENABLE_OVERLOADING)
EncodingVideoProfileSetPassMethodInfo ,
#endif
encodingVideoProfileSetPass ,
#if defined(ENABLE_OVERLOADING)
EncodingVideoProfileSetVariableframerateMethodInfo,
#endif
encodingVideoProfileSetVariableframerate,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gst.Structs.Caps as Gst.Caps
import {-# SOURCE #-} qualified GI.GstPbutils.Objects.EncodingProfile as GstPbutils.EncodingProfile
newtype EncodingVideoProfile = EncodingVideoProfile (ManagedPtr EncodingVideoProfile)
deriving (EncodingVideoProfile -> EncodingVideoProfile -> Bool
(EncodingVideoProfile -> EncodingVideoProfile -> Bool)
-> (EncodingVideoProfile -> EncodingVideoProfile -> Bool)
-> Eq EncodingVideoProfile
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EncodingVideoProfile -> EncodingVideoProfile -> Bool
$c/= :: EncodingVideoProfile -> EncodingVideoProfile -> Bool
== :: EncodingVideoProfile -> EncodingVideoProfile -> Bool
$c== :: EncodingVideoProfile -> EncodingVideoProfile -> Bool
Eq)
foreign import ccall "gst_encoding_video_profile_get_type"
c_gst_encoding_video_profile_get_type :: IO GType
instance GObject EncodingVideoProfile where
gobjectType :: IO GType
gobjectType = IO GType
c_gst_encoding_video_profile_get_type
instance B.GValue.IsGValue EncodingVideoProfile where
toGValue :: EncodingVideoProfile -> IO GValue
toGValue o :: EncodingVideoProfile
o = do
GType
gtype <- IO GType
c_gst_encoding_video_profile_get_type
EncodingVideoProfile
-> (Ptr EncodingVideoProfile -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EncodingVideoProfile
o (GType
-> (GValue -> Ptr EncodingVideoProfile -> IO ())
-> Ptr EncodingVideoProfile
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr EncodingVideoProfile -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO EncodingVideoProfile
fromGValue gv :: GValue
gv = do
Ptr EncodingVideoProfile
ptr <- GValue -> IO (Ptr EncodingVideoProfile)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr EncodingVideoProfile)
(ManagedPtr EncodingVideoProfile -> EncodingVideoProfile)
-> Ptr EncodingVideoProfile -> IO EncodingVideoProfile
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr EncodingVideoProfile -> EncodingVideoProfile
EncodingVideoProfile Ptr EncodingVideoProfile
ptr
class (GObject o, O.IsDescendantOf EncodingVideoProfile o) => IsEncodingVideoProfile o
instance (GObject o, O.IsDescendantOf EncodingVideoProfile o) => IsEncodingVideoProfile o
instance O.HasParentTypes EncodingVideoProfile
type instance O.ParentTypes EncodingVideoProfile = '[GstPbutils.EncodingProfile.EncodingProfile, GObject.Object.Object]
toEncodingVideoProfile :: (MonadIO m, IsEncodingVideoProfile o) => o -> m EncodingVideoProfile
toEncodingVideoProfile :: o -> m EncodingVideoProfile
toEncodingVideoProfile = IO EncodingVideoProfile -> m EncodingVideoProfile
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EncodingVideoProfile -> m EncodingVideoProfile)
-> (o -> IO EncodingVideoProfile) -> o -> m EncodingVideoProfile
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr EncodingVideoProfile -> EncodingVideoProfile)
-> o -> IO EncodingVideoProfile
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr EncodingVideoProfile -> EncodingVideoProfile
EncodingVideoProfile
noEncodingVideoProfile :: Maybe EncodingVideoProfile
noEncodingVideoProfile :: Maybe EncodingVideoProfile
noEncodingVideoProfile = Maybe EncodingVideoProfile
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveEncodingVideoProfileMethod (t :: Symbol) (o :: *) :: * where
ResolveEncodingVideoProfileMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveEncodingVideoProfileMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveEncodingVideoProfileMethod "copy" o = GstPbutils.EncodingProfile.EncodingProfileCopyMethodInfo
ResolveEncodingVideoProfileMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveEncodingVideoProfileMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveEncodingVideoProfileMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveEncodingVideoProfileMethod "isEnabled" o = GstPbutils.EncodingProfile.EncodingProfileIsEnabledMethodInfo
ResolveEncodingVideoProfileMethod "isEqual" o = GstPbutils.EncodingProfile.EncodingProfileIsEqualMethodInfo
ResolveEncodingVideoProfileMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveEncodingVideoProfileMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveEncodingVideoProfileMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveEncodingVideoProfileMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveEncodingVideoProfileMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveEncodingVideoProfileMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveEncodingVideoProfileMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveEncodingVideoProfileMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveEncodingVideoProfileMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveEncodingVideoProfileMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveEncodingVideoProfileMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveEncodingVideoProfileMethod "getAllowDynamicOutput" o = GstPbutils.EncodingProfile.EncodingProfileGetAllowDynamicOutputMethodInfo
ResolveEncodingVideoProfileMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveEncodingVideoProfileMethod "getDescription" o = GstPbutils.EncodingProfile.EncodingProfileGetDescriptionMethodInfo
ResolveEncodingVideoProfileMethod "getFileExtension" o = GstPbutils.EncodingProfile.EncodingProfileGetFileExtensionMethodInfo
ResolveEncodingVideoProfileMethod "getFormat" o = GstPbutils.EncodingProfile.EncodingProfileGetFormatMethodInfo
ResolveEncodingVideoProfileMethod "getInputCaps" o = GstPbutils.EncodingProfile.EncodingProfileGetInputCapsMethodInfo
ResolveEncodingVideoProfileMethod "getName" o = GstPbutils.EncodingProfile.EncodingProfileGetNameMethodInfo
ResolveEncodingVideoProfileMethod "getPass" o = EncodingVideoProfileGetPassMethodInfo
ResolveEncodingVideoProfileMethod "getPresence" o = GstPbutils.EncodingProfile.EncodingProfileGetPresenceMethodInfo
ResolveEncodingVideoProfileMethod "getPreset" o = GstPbutils.EncodingProfile.EncodingProfileGetPresetMethodInfo
ResolveEncodingVideoProfileMethod "getPresetName" o = GstPbutils.EncodingProfile.EncodingProfileGetPresetNameMethodInfo
ResolveEncodingVideoProfileMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveEncodingVideoProfileMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveEncodingVideoProfileMethod "getRestriction" o = GstPbutils.EncodingProfile.EncodingProfileGetRestrictionMethodInfo
ResolveEncodingVideoProfileMethod "getTypeNick" o = GstPbutils.EncodingProfile.EncodingProfileGetTypeNickMethodInfo
ResolveEncodingVideoProfileMethod "getVariableframerate" o = EncodingVideoProfileGetVariableframerateMethodInfo
ResolveEncodingVideoProfileMethod "setAllowDynamicOutput" o = GstPbutils.EncodingProfile.EncodingProfileSetAllowDynamicOutputMethodInfo
ResolveEncodingVideoProfileMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEncodingVideoProfileMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveEncodingVideoProfileMethod "setDescription" o = GstPbutils.EncodingProfile.EncodingProfileSetDescriptionMethodInfo
ResolveEncodingVideoProfileMethod "setEnabled" o = GstPbutils.EncodingProfile.EncodingProfileSetEnabledMethodInfo
ResolveEncodingVideoProfileMethod "setFormat" o = GstPbutils.EncodingProfile.EncodingProfileSetFormatMethodInfo
ResolveEncodingVideoProfileMethod "setName" o = GstPbutils.EncodingProfile.EncodingProfileSetNameMethodInfo
ResolveEncodingVideoProfileMethod "setPass" o = EncodingVideoProfileSetPassMethodInfo
ResolveEncodingVideoProfileMethod "setPresence" o = GstPbutils.EncodingProfile.EncodingProfileSetPresenceMethodInfo
ResolveEncodingVideoProfileMethod "setPreset" o = GstPbutils.EncodingProfile.EncodingProfileSetPresetMethodInfo
ResolveEncodingVideoProfileMethod "setPresetName" o = GstPbutils.EncodingProfile.EncodingProfileSetPresetNameMethodInfo
ResolveEncodingVideoProfileMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveEncodingVideoProfileMethod "setRestriction" o = GstPbutils.EncodingProfile.EncodingProfileSetRestrictionMethodInfo
ResolveEncodingVideoProfileMethod "setVariableframerate" o = EncodingVideoProfileSetVariableframerateMethodInfo
ResolveEncodingVideoProfileMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEncodingVideoProfileMethod t EncodingVideoProfile, O.MethodInfo info EncodingVideoProfile p) => OL.IsLabel t (EncodingVideoProfile -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EncodingVideoProfile
type instance O.AttributeList EncodingVideoProfile = EncodingVideoProfileAttributeList
type EncodingVideoProfileAttributeList = ('[ '("restrictionCaps", GstPbutils.EncodingProfile.EncodingProfileRestrictionCapsPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList EncodingVideoProfile = EncodingVideoProfileSignalList
type EncodingVideoProfileSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_encoding_video_profile_new" gst_encoding_video_profile_new ::
Ptr Gst.Caps.Caps ->
CString ->
Ptr Gst.Caps.Caps ->
Word32 ->
IO (Ptr EncodingVideoProfile)
encodingVideoProfileNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gst.Caps.Caps
-> Maybe (T.Text)
-> Maybe (Gst.Caps.Caps)
-> Word32
-> m EncodingVideoProfile
encodingVideoProfileNew :: Caps
-> Maybe Text -> Maybe Caps -> Word32 -> m EncodingVideoProfile
encodingVideoProfileNew format :: Caps
format preset :: Maybe Text
preset restriction :: Maybe Caps
restriction presence :: Word32
presence = IO EncodingVideoProfile -> m EncodingVideoProfile
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EncodingVideoProfile -> m EncodingVideoProfile)
-> IO EncodingVideoProfile -> m EncodingVideoProfile
forall a b. (a -> b) -> a -> b
$ do
Ptr Caps
format' <- Caps -> IO (Ptr Caps)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Caps
format
Ptr CChar
maybePreset <- case Maybe Text
preset of
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just jPreset :: Text
jPreset -> do
Ptr CChar
jPreset' <- Text -> IO (Ptr CChar)
textToCString Text
jPreset
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jPreset'
Ptr Caps
maybeRestriction <- case Maybe Caps
restriction of
Nothing -> Ptr Caps -> IO (Ptr Caps)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Caps
forall a. Ptr a
nullPtr
Just jRestriction :: Caps
jRestriction -> do
Ptr Caps
jRestriction' <- Caps -> IO (Ptr Caps)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Caps
jRestriction
Ptr Caps -> IO (Ptr Caps)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Caps
jRestriction'
Ptr EncodingVideoProfile
result <- Ptr Caps
-> Ptr CChar -> Ptr Caps -> Word32 -> IO (Ptr EncodingVideoProfile)
gst_encoding_video_profile_new Ptr Caps
format' Ptr CChar
maybePreset Ptr Caps
maybeRestriction Word32
presence
Text -> Ptr EncodingVideoProfile -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "encodingVideoProfileNew" Ptr EncodingVideoProfile
result
EncodingVideoProfile
result' <- ((ManagedPtr EncodingVideoProfile -> EncodingVideoProfile)
-> Ptr EncodingVideoProfile -> IO EncodingVideoProfile
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EncodingVideoProfile -> EncodingVideoProfile
EncodingVideoProfile) Ptr EncodingVideoProfile
result
Caps -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Caps
format
Maybe Caps -> (Caps -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Caps
restriction Caps -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePreset
EncodingVideoProfile -> IO EncodingVideoProfile
forall (m :: * -> *) a. Monad m => a -> m a
return EncodingVideoProfile
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gst_encoding_video_profile_get_pass" gst_encoding_video_profile_get_pass ::
Ptr EncodingVideoProfile ->
IO Word32
encodingVideoProfileGetPass ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingVideoProfile a) =>
a
-> m Word32
encodingVideoProfileGetPass :: a -> m Word32
encodingVideoProfileGetPass prof :: a
prof = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingVideoProfile
prof' <- a -> IO (Ptr EncodingVideoProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
prof
Word32
result <- Ptr EncodingVideoProfile -> IO Word32
gst_encoding_video_profile_get_pass Ptr EncodingVideoProfile
prof'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
prof
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data EncodingVideoProfileGetPassMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsEncodingVideoProfile a) => O.MethodInfo EncodingVideoProfileGetPassMethodInfo a signature where
overloadedMethod = encodingVideoProfileGetPass
#endif
foreign import ccall "gst_encoding_video_profile_get_variableframerate" gst_encoding_video_profile_get_variableframerate ::
Ptr EncodingVideoProfile ->
IO CInt
encodingVideoProfileGetVariableframerate ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingVideoProfile a) =>
a
-> m Bool
encodingVideoProfileGetVariableframerate :: a -> m Bool
encodingVideoProfileGetVariableframerate prof :: a
prof = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingVideoProfile
prof' <- a -> IO (Ptr EncodingVideoProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
prof
CInt
result <- Ptr EncodingVideoProfile -> IO CInt
gst_encoding_video_profile_get_variableframerate Ptr EncodingVideoProfile
prof'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
prof
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data EncodingVideoProfileGetVariableframerateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEncodingVideoProfile a) => O.MethodInfo EncodingVideoProfileGetVariableframerateMethodInfo a signature where
overloadedMethod = encodingVideoProfileGetVariableframerate
#endif
foreign import ccall "gst_encoding_video_profile_set_pass" gst_encoding_video_profile_set_pass ::
Ptr EncodingVideoProfile ->
Word32 ->
IO ()
encodingVideoProfileSetPass ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingVideoProfile a) =>
a
-> Word32
-> m ()
encodingVideoProfileSetPass :: a -> Word32 -> m ()
encodingVideoProfileSetPass prof :: a
prof pass :: Word32
pass = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingVideoProfile
prof' <- a -> IO (Ptr EncodingVideoProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
prof
Ptr EncodingVideoProfile -> Word32 -> IO ()
gst_encoding_video_profile_set_pass Ptr EncodingVideoProfile
prof' Word32
pass
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
prof
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingVideoProfileSetPassMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsEncodingVideoProfile a) => O.MethodInfo EncodingVideoProfileSetPassMethodInfo a signature where
overloadedMethod = encodingVideoProfileSetPass
#endif
foreign import ccall "gst_encoding_video_profile_set_variableframerate" gst_encoding_video_profile_set_variableframerate ::
Ptr EncodingVideoProfile ->
CInt ->
IO ()
encodingVideoProfileSetVariableframerate ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingVideoProfile a) =>
a
-> Bool
-> m ()
encodingVideoProfileSetVariableframerate :: a -> Bool -> m ()
encodingVideoProfileSetVariableframerate prof :: a
prof variableframerate :: Bool
variableframerate = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingVideoProfile
prof' <- a -> IO (Ptr EncodingVideoProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
prof
let variableframerate' :: CInt
variableframerate' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
variableframerate
Ptr EncodingVideoProfile -> CInt -> IO ()
gst_encoding_video_profile_set_variableframerate Ptr EncodingVideoProfile
prof' CInt
variableframerate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
prof
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingVideoProfileSetVariableframerateMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEncodingVideoProfile a) => O.MethodInfo EncodingVideoProfileSetVariableframerateMethodInfo a signature where
overloadedMethod = encodingVideoProfileSetVariableframerate
#endif