packages feed

gi-gstpbutils 1.0.17 → 1.0.18

raw patch · 41 files changed

+29/−11734 lines, 41 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

ChangeLog.md view
@@ -1,3 +1,7 @@+### 1.0.18+++ List autogenerated modules in .cabal file+ ### 1.0.17  + Update to haskell-gi(-base) 0.22
− GI/GstPbutils.hs 
@@ -1,58 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils-    (     module GI.GstPbutils.Callbacks          ,-    module GI.GstPbutils.Constants          ,-    module GI.GstPbutils.Enums              ,-    module GI.GstPbutils.Flags              ,-    module GI.GstPbutils.Functions          ,-    module GI.GstPbutils.Objects            ,-    module GI.GstPbutils.Structs            ,----    module Data.GI.Base                     ,---    ) where--import GI.GstPbutils.Callbacks-import GI.GstPbutils.Constants-import GI.GstPbutils.Enums-import GI.GstPbutils.Flags-import GI.GstPbutils.Functions-import GI.GstPbutils.Objects-import GI.GstPbutils.Structs--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.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 Data.GI.Base-
− GI/GstPbutils/Callbacks.hs 
@@ -1,228 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Callbacks-    ( -- -- * Signals--- ** AudioVisualizerShaderFunc #signal:AudioVisualizerShaderFunc#--    AudioVisualizerShaderFunc               ,-    C_AudioVisualizerShaderFunc             ,-    dynamic_AudioVisualizerShaderFunc       ,-    genClosure_AudioVisualizerShaderFunc    ,-    mk_AudioVisualizerShaderFunc            ,-    noAudioVisualizerShaderFunc             ,-    wrap_AudioVisualizerShaderFunc          ,----- ** InstallPluginsResultFunc #signal:InstallPluginsResultFunc#--    C_InstallPluginsResultFunc              ,-    InstallPluginsResultFunc                ,-    InstallPluginsResultFunc_WithClosures   ,-    drop_closures_InstallPluginsResultFunc  ,-    dynamic_InstallPluginsResultFunc        ,-    genClosure_InstallPluginsResultFunc     ,-    mk_InstallPluginsResultFunc             ,-    noInstallPluginsResultFunc              ,-    noInstallPluginsResultFunc_WithClosures ,-    wrap_InstallPluginsResultFunc           ,-----    ) 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.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 {-# SOURCE #-} qualified GI.GstPbutils.Enums as GstPbutils.Enums-import {-# SOURCE #-} qualified GI.GstPbutils.Objects.AudioVisualizer as GstPbutils.AudioVisualizer-import qualified GI.GstVideo.Structs.VideoFrame as GstVideo.VideoFrame---- callback InstallPluginsResultFunc---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "result", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsReturn"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the installation of the requested plugins succeeded or not", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the user data passed to gst_install_plugins_async()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The prototype of the callback function that will be called once the\nexternal plugin installer program has returned. You only need to provide\na callback function if you are using the asynchronous interface.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_InstallPluginsResultFunc =-    CUInt ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "result", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsReturn"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the installation of the requested plugins succeeded or not", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the user data passed to gst_install_plugins_async()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_InstallPluginsResultFunc :: FunPtr C_InstallPluginsResultFunc -> C_InstallPluginsResultFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_InstallPluginsResultFunc ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FunPtr C_InstallPluginsResultFunc-    -> GstPbutils.Enums.InstallPluginsReturn-    {- ^ /@result@/: whether the installation of the requested plugins succeeded or not -}-    -> Ptr ()-    {- ^ /@userData@/: the user data passed to 'GI.GstPbutils.Functions.installPluginsAsync' -}-    -> m ()-dynamic_InstallPluginsResultFunc __funPtr result_ userData = liftIO $ do-    let result_' = (fromIntegral . fromEnum) result_-    (__dynamic_C_InstallPluginsResultFunc __funPtr) result_' userData-    return ()---- | Generate a function pointer callable from C code, from a `C_InstallPluginsResultFunc`.-foreign import ccall "wrapper"-    mk_InstallPluginsResultFunc :: C_InstallPluginsResultFunc -> IO (FunPtr C_InstallPluginsResultFunc)--{- |-The prototype of the callback function that will be called once the-external plugin installer program has returned. You only need to provide-a callback function if you are using the asynchronous interface.--}-type InstallPluginsResultFunc =-    GstPbutils.Enums.InstallPluginsReturn-    {- ^ /@result@/: whether the installation of the requested plugins succeeded or not -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `InstallPluginsResultFunc`@.-noInstallPluginsResultFunc :: Maybe InstallPluginsResultFunc-noInstallPluginsResultFunc = Nothing--{- |-The prototype of the callback function that will be called once the-external plugin installer program has returned. You only need to provide-a callback function if you are using the asynchronous interface.--}-type InstallPluginsResultFunc_WithClosures =-    GstPbutils.Enums.InstallPluginsReturn-    {- ^ /@result@/: whether the installation of the requested plugins succeeded or not -}-    -> Ptr ()-    {- ^ /@userData@/: the user data passed to 'GI.GstPbutils.Functions.installPluginsAsync' -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `InstallPluginsResultFunc_WithClosures`@.-noInstallPluginsResultFunc_WithClosures :: Maybe InstallPluginsResultFunc_WithClosures-noInstallPluginsResultFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_InstallPluginsResultFunc :: InstallPluginsResultFunc -> InstallPluginsResultFunc_WithClosures-drop_closures_InstallPluginsResultFunc _f result_ _ = _f result_---- | Wrap the callback into a `GClosure`.-genClosure_InstallPluginsResultFunc :: MonadIO m => InstallPluginsResultFunc -> m (GClosure C_InstallPluginsResultFunc)-genClosure_InstallPluginsResultFunc cb = liftIO $ do-    let cb' = drop_closures_InstallPluginsResultFunc cb-    let cb'' = wrap_InstallPluginsResultFunc Nothing cb'-    mk_InstallPluginsResultFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `InstallPluginsResultFunc` into a `C_InstallPluginsResultFunc`.-wrap_InstallPluginsResultFunc ::-    Maybe (Ptr (FunPtr C_InstallPluginsResultFunc)) ->-    InstallPluginsResultFunc_WithClosures ->-    C_InstallPluginsResultFunc-wrap_InstallPluginsResultFunc funptrptr _cb result_ userData = do-    let result_' = (toEnum . fromIntegral) result_-    _cb  result_' userData-    maybeReleaseFunPtr funptrptr----- callback AudioVisualizerShaderFunc---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "scope", argType = TInterface (Name {namespace = "GstPbutils", name = "AudioVisualizer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TInterface (Name {namespace = "GstVideo", name = "VideoFrame"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "d", argType = TInterface (Name {namespace = "GstVideo", name = "VideoFrame"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_AudioVisualizerShaderFunc =-    Ptr GstPbutils.AudioVisualizer.AudioVisualizer ->-    Ptr GstVideo.VideoFrame.VideoFrame ->-    Ptr GstVideo.VideoFrame.VideoFrame ->-    IO ()---- Args : [Arg {argCName = "scope", argType = TInterface (Name {namespace = "GstPbutils", name = "AudioVisualizer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TInterface (Name {namespace = "GstVideo", name = "VideoFrame"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "d", argType = TInterface (Name {namespace = "GstVideo", name = "VideoFrame"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_AudioVisualizerShaderFunc :: FunPtr C_AudioVisualizerShaderFunc -> C_AudioVisualizerShaderFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_AudioVisualizerShaderFunc ::-    (B.CallStack.HasCallStack, MonadIO m, GstPbutils.AudioVisualizer.IsAudioVisualizer a) =>-    FunPtr C_AudioVisualizerShaderFunc-    -> a-    -> GstVideo.VideoFrame.VideoFrame-    -> GstVideo.VideoFrame.VideoFrame-    -> m ()-dynamic_AudioVisualizerShaderFunc __funPtr scope s d = liftIO $ do-    scope' <- unsafeManagedPtrCastPtr scope-    s' <- unsafeManagedPtrGetPtr s-    d' <- unsafeManagedPtrGetPtr d-    (__dynamic_C_AudioVisualizerShaderFunc __funPtr) scope' s' d'-    touchManagedPtr scope-    touchManagedPtr s-    touchManagedPtr d-    return ()---- | Generate a function pointer callable from C code, from a `C_AudioVisualizerShaderFunc`.-foreign import ccall "wrapper"-    mk_AudioVisualizerShaderFunc :: C_AudioVisualizerShaderFunc -> IO (FunPtr C_AudioVisualizerShaderFunc)--{- |-/No description available in the introspection data./--}-type AudioVisualizerShaderFunc =-    GstPbutils.AudioVisualizer.AudioVisualizer-    -> GstVideo.VideoFrame.VideoFrame-    -> GstVideo.VideoFrame.VideoFrame-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `AudioVisualizerShaderFunc`@.-noAudioVisualizerShaderFunc :: Maybe AudioVisualizerShaderFunc-noAudioVisualizerShaderFunc = Nothing---- | Wrap the callback into a `GClosure`.-genClosure_AudioVisualizerShaderFunc :: MonadIO m => AudioVisualizerShaderFunc -> m (GClosure C_AudioVisualizerShaderFunc)-genClosure_AudioVisualizerShaderFunc cb = liftIO $ do-    let cb' = wrap_AudioVisualizerShaderFunc Nothing cb-    mk_AudioVisualizerShaderFunc cb' >>= B.GClosure.newGClosure----- | Wrap a `AudioVisualizerShaderFunc` into a `C_AudioVisualizerShaderFunc`.-wrap_AudioVisualizerShaderFunc ::-    Maybe (Ptr (FunPtr C_AudioVisualizerShaderFunc)) ->-    AudioVisualizerShaderFunc ->-    C_AudioVisualizerShaderFunc-wrap_AudioVisualizerShaderFunc funptrptr _cb scope s d = do-    scope' <- (newObject GstPbutils.AudioVisualizer.AudioVisualizer) scope-    s' <- (newPtr GstVideo.VideoFrame.VideoFrame) s-    d' <- (newPtr GstVideo.VideoFrame.VideoFrame) d-    _cb  scope' s' d'-    maybeReleaseFunPtr funptrptr---
− GI/GstPbutils/Constants.hs 
@@ -1,107 +0,0 @@-{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Constants-    ( -    pattern PLUGINS_BASE_VERSION_NANO       ,-    pattern PLUGINS_BASE_VERSION_MINOR      ,-    pattern PLUGINS_BASE_VERSION_MICRO      ,-    pattern PLUGINS_BASE_VERSION_MAJOR      ,-    pattern ENCODING_CATEGORY_STORAGE_EDITING,-    pattern ENCODING_CATEGORY_ONLINE_SERVICE,-    pattern ENCODING_CATEGORY_FILE_EXTENSION,-    pattern ENCODING_CATEGORY_DEVICE        ,-    pattern ENCODING_CATEGORY_CAPTURE       ,--    ) 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.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---{- |-The nano version of GStreamer\'s gst-plugins-base libraries at compile time.-Actual releases have 0, GIT versions have 1, prerelease versions have 2-...--}-pattern PLUGINS_BASE_VERSION_NANO = 0 :: Int32--{- |-The minor version of GStreamer\'s gst-plugins-base libraries at compile time.--}-pattern PLUGINS_BASE_VERSION_MINOR = 16 :: Int32--{- |-The micro version of GStreamer\'s gst-plugins-base libraries at compile time.--}-pattern PLUGINS_BASE_VERSION_MICRO = 0 :: Int32--{- |-The major version of GStreamer\'s gst-plugins-base libraries at compile time.--}-pattern PLUGINS_BASE_VERSION_MAJOR = 1 :: Int32--{- |-'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' category for storage, archiving and editing targets.-Those targets can be lossless and\/or provide very fast random access content.-The name of the target will usually be the container type or editing target,-and that target will contain @/GstEncodingProfiles/@ suitable for editing or-storage.--}-pattern ENCODING_CATEGORY_STORAGE_EDITING = "storage-editing" :: T.Text--{- |-'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' category for online-services.-The name of the target will usually be the name of the online service-and that target will contain @/GstEncodingProfiles/@ suitable for that online-service.--}-pattern ENCODING_CATEGORY_ONLINE_SERVICE = "online-service" :: T.Text--{- |-'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' category for file extensions.-The name of the target will be the name of the file extensions possible-for a particular target. Those targets are defining like \'default\' formats-usually used for a particular file extension.--}-pattern ENCODING_CATEGORY_FILE_EXTENSION = "file-extension" :: T.Text--{- |-'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' category for device-specific targets.-The name of the target will usually be the constructor and model of the device,-and that target will contain @/GstEncodingProfiles/@ suitable for that device.--}-pattern ENCODING_CATEGORY_DEVICE = "device" :: T.Text--{- |-'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' category for recording and capture.-Targets within this category are optimized for low latency encoding.--}-pattern ENCODING_CATEGORY_CAPTURE = "capture" :: T.Text--
− GI/GstPbutils/Enums.hs 
@@ -1,305 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Enums-    ( -- -- * Enumerations--- ** AudioVisualizerShader #enum:AudioVisualizerShader#--    AudioVisualizerShader(..)               ,----- ** DiscovererResult #enum:DiscovererResult#--    DiscovererResult(..)                    ,----- ** InstallPluginsReturn #enum:InstallPluginsReturn#--    InstallPluginsReturn(..)                ,-----    ) 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.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----- Enum InstallPluginsReturn-{- |-Result codes returned by 'GI.GstPbutils.Functions.installPluginsAsync' and-'GI.GstPbutils.Functions.installPluginsSync', and also the result code passed to the-'GI.GstPbutils.Callbacks.InstallPluginsResultFunc' specified with 'GI.GstPbutils.Functions.installPluginsAsync'.--These codes indicate success or failure of starting an external installer-program and to what extent the requested plugins could be installed.--}-data InstallPluginsReturn = -      InstallPluginsReturnSuccess-    {- ^-    all of the requested plugins could be-        installed-    -}-    | InstallPluginsReturnNotFound-    {- ^-    no appropriate installation candidate for-        any of the requested plugins could be found. Only return this if nothing-        has been installed. Return @/GST_INSTALL_PLUGINS_PARTIAL_SUCCESS/@ if-        some (but not all) of the requested plugins could be installed.-    -}-    | InstallPluginsReturnError-    {- ^-    an error occured during the installation. If-        this happens, the  user has already seen an error message and another-        one should not be displayed-    -}-    | InstallPluginsReturnPartialSuccess-    {- ^-    some of the requested plugins could-        be installed, but not all-    -}-    | InstallPluginsReturnUserAbort-    {- ^-    the user has aborted the installation-    -}-    | InstallPluginsReturnCrashed-    {- ^-    the installer had an unclean exit code-        (ie. death by signal)-    -}-    | InstallPluginsReturnInvalid-    {- ^-    the helper returned an invalid status code-    -}-    | InstallPluginsReturnStartedOk-    {- ^-    returned by 'GI.GstPbutils.Functions.installPluginsAsync' to-        indicate that everything went fine so far and the provided callback-        will be called with the result of the installation later-    -}-    | InstallPluginsReturnInternalFailure-    {- ^-    some internal failure has-        occured when trying to start the installer-    -}-    | InstallPluginsReturnHelperMissing-    {- ^-    the helper script to call the-        actual installer is not installed-    -}-    | InstallPluginsReturnInstallInProgress-    {- ^-    a previously-started plugin-        installation is still in progress, try again later-    -}-    | AnotherInstallPluginsReturn Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum InstallPluginsReturn where-    fromEnum InstallPluginsReturnSuccess = 0-    fromEnum InstallPluginsReturnNotFound = 1-    fromEnum InstallPluginsReturnError = 2-    fromEnum InstallPluginsReturnPartialSuccess = 3-    fromEnum InstallPluginsReturnUserAbort = 4-    fromEnum InstallPluginsReturnCrashed = 100-    fromEnum InstallPluginsReturnInvalid = 101-    fromEnum InstallPluginsReturnStartedOk = 200-    fromEnum InstallPluginsReturnInternalFailure = 201-    fromEnum InstallPluginsReturnHelperMissing = 202-    fromEnum InstallPluginsReturnInstallInProgress = 203-    fromEnum (AnotherInstallPluginsReturn k) = k--    toEnum 0 = InstallPluginsReturnSuccess-    toEnum 1 = InstallPluginsReturnNotFound-    toEnum 2 = InstallPluginsReturnError-    toEnum 3 = InstallPluginsReturnPartialSuccess-    toEnum 4 = InstallPluginsReturnUserAbort-    toEnum 100 = InstallPluginsReturnCrashed-    toEnum 101 = InstallPluginsReturnInvalid-    toEnum 200 = InstallPluginsReturnStartedOk-    toEnum 201 = InstallPluginsReturnInternalFailure-    toEnum 202 = InstallPluginsReturnHelperMissing-    toEnum 203 = InstallPluginsReturnInstallInProgress-    toEnum k = AnotherInstallPluginsReturn k--instance P.Ord InstallPluginsReturn where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "gst_install_plugins_return_get_type" c_gst_install_plugins_return_get_type :: -    IO GType--instance BoxedEnum InstallPluginsReturn where-    boxedEnumType _ = c_gst_install_plugins_return_get_type---- Enum DiscovererResult-{- |-Result values for the discovery process.--}-data DiscovererResult = -      DiscovererResultOk-    {- ^-    The discovery was successful-    -}-    | DiscovererResultUriInvalid-    {- ^-    the URI is invalid-    -}-    | DiscovererResultError-    {- ^-    an error happened and the GError is set-    -}-    | DiscovererResultTimeout-    {- ^-    the discovery timed-out-    -}-    | DiscovererResultBusy-    {- ^-    the discoverer was already discovering a file-    -}-    | DiscovererResultMissingPlugins-    {- ^-    Some plugins are missing for full discovery-    -}-    | AnotherDiscovererResult Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DiscovererResult where-    fromEnum DiscovererResultOk = 0-    fromEnum DiscovererResultUriInvalid = 1-    fromEnum DiscovererResultError = 2-    fromEnum DiscovererResultTimeout = 3-    fromEnum DiscovererResultBusy = 4-    fromEnum DiscovererResultMissingPlugins = 5-    fromEnum (AnotherDiscovererResult k) = k--    toEnum 0 = DiscovererResultOk-    toEnum 1 = DiscovererResultUriInvalid-    toEnum 2 = DiscovererResultError-    toEnum 3 = DiscovererResultTimeout-    toEnum 4 = DiscovererResultBusy-    toEnum 5 = DiscovererResultMissingPlugins-    toEnum k = AnotherDiscovererResult k--instance P.Ord DiscovererResult where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "gst_discoverer_result_get_type" c_gst_discoverer_result_get_type :: -    IO GType--instance BoxedEnum DiscovererResult where-    boxedEnumType _ = c_gst_discoverer_result_get_type---- Enum AudioVisualizerShader-{- |-Different types of supported background shading functions.--}-data AudioVisualizerShader = -      AudioVisualizerShaderNone-    {- ^-    no shading-    -}-    | AudioVisualizerShaderFade-    {- ^-    plain fading-    -}-    | AudioVisualizerShaderFadeAndMoveUp-    {- ^-    fade and move up-    -}-    | AudioVisualizerShaderFadeAndMoveDown-    {- ^-    fade and move down-    -}-    | AudioVisualizerShaderFadeAndMoveLeft-    {- ^-    fade and move left-    -}-    | AudioVisualizerShaderFadeAndMoveRight-    {- ^-    fade and move right-    -}-    | AudioVisualizerShaderFadeAndMoveHorizOut-    {- ^-    fade and move horizontally out-    -}-    | AudioVisualizerShaderFadeAndMoveHorizIn-    {- ^-    fade and move horizontally in-    -}-    | AudioVisualizerShaderFadeAndMoveVertOut-    {- ^-    fade and move vertically out-    -}-    | AudioVisualizerShaderFadeAndMoveVertIn-    {- ^-    fade and move vertically in-    -}-    | AnotherAudioVisualizerShader Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum AudioVisualizerShader where-    fromEnum AudioVisualizerShaderNone = 0-    fromEnum AudioVisualizerShaderFade = 1-    fromEnum AudioVisualizerShaderFadeAndMoveUp = 2-    fromEnum AudioVisualizerShaderFadeAndMoveDown = 3-    fromEnum AudioVisualizerShaderFadeAndMoveLeft = 4-    fromEnum AudioVisualizerShaderFadeAndMoveRight = 5-    fromEnum AudioVisualizerShaderFadeAndMoveHorizOut = 6-    fromEnum AudioVisualizerShaderFadeAndMoveHorizIn = 7-    fromEnum AudioVisualizerShaderFadeAndMoveVertOut = 8-    fromEnum AudioVisualizerShaderFadeAndMoveVertIn = 9-    fromEnum (AnotherAudioVisualizerShader k) = k--    toEnum 0 = AudioVisualizerShaderNone-    toEnum 1 = AudioVisualizerShaderFade-    toEnum 2 = AudioVisualizerShaderFadeAndMoveUp-    toEnum 3 = AudioVisualizerShaderFadeAndMoveDown-    toEnum 4 = AudioVisualizerShaderFadeAndMoveLeft-    toEnum 5 = AudioVisualizerShaderFadeAndMoveRight-    toEnum 6 = AudioVisualizerShaderFadeAndMoveHorizOut-    toEnum 7 = AudioVisualizerShaderFadeAndMoveHorizIn-    toEnum 8 = AudioVisualizerShaderFadeAndMoveVertOut-    toEnum 9 = AudioVisualizerShaderFadeAndMoveVertIn-    toEnum k = AnotherAudioVisualizerShader k--instance P.Ord AudioVisualizerShader where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "gst_audio_visualizer_shader_get_type" c_gst_audio_visualizer_shader_get_type :: -    IO GType--instance BoxedEnum AudioVisualizerShader where-    boxedEnumType _ = c_gst_audio_visualizer_shader_get_type--
− GI/GstPbutils/Enums.hs-boot 
@@ -1,33 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Enums 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.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--data InstallPluginsReturn-instance P.Enum InstallPluginsReturn where-instance BoxedEnum InstallPluginsReturn where-data DiscovererResult-instance P.Enum DiscovererResult where-instance BoxedEnum DiscovererResult where-data AudioVisualizerShader-instance P.Enum AudioVisualizerShader where-instance BoxedEnum AudioVisualizerShader where
− GI/GstPbutils/Flags.hs 
@@ -1,106 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Flags-    ( -- -- * Flags--- ** DiscovererSerializeFlags #flag:DiscovererSerializeFlags#--    DiscovererSerializeFlags(..)            ,-----    ) 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.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----- Flags DiscovererSerializeFlags-{- |-You can use these flags to control what is serialized by-'GI.GstPbutils.Objects.DiscovererInfo.discovererInfoToVariant'--/Since: 1.6/--}-data DiscovererSerializeFlags = -      DiscovererSerializeFlagsBasic-    {- ^-    Serialize only basic information, excluding-    caps, tags and miscellaneous information-    -}-    | DiscovererSerializeFlagsCaps-    {- ^-    Serialize the caps for each stream-    -}-    | DiscovererSerializeFlagsTags-    {- ^-    Serialize the tags for each stream-    -}-    | DiscovererSerializeFlagsMisc-    {- ^-    Serialize miscellaneous information for each stream-    -}-    | DiscovererSerializeFlagsAll-    {- ^-    Serialize all the available info, including-    caps, tags and miscellaneous information-    -}-    | AnotherDiscovererSerializeFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DiscovererSerializeFlags where-    fromEnum DiscovererSerializeFlagsBasic = 0-    fromEnum DiscovererSerializeFlagsCaps = 1-    fromEnum DiscovererSerializeFlagsTags = 2-    fromEnum DiscovererSerializeFlagsMisc = 4-    fromEnum DiscovererSerializeFlagsAll = 7-    fromEnum (AnotherDiscovererSerializeFlags k) = k--    toEnum 0 = DiscovererSerializeFlagsBasic-    toEnum 1 = DiscovererSerializeFlagsCaps-    toEnum 2 = DiscovererSerializeFlagsTags-    toEnum 4 = DiscovererSerializeFlagsMisc-    toEnum 7 = DiscovererSerializeFlagsAll-    toEnum k = AnotherDiscovererSerializeFlags k--instance P.Ord DiscovererSerializeFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "gst_discoverer_serialize_flags_get_type" c_gst_discoverer_serialize_flags_get_type :: -    IO GType--instance BoxedFlags DiscovererSerializeFlags where-    boxedFlagsType _ = c_gst_discoverer_serialize_flags_get_type--instance IsGFlag DiscovererSerializeFlags--
− GI/GstPbutils/Flags.hs-boot 
@@ -1,28 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Flags 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.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--data DiscovererSerializeFlags-instance P.Enum DiscovererSerializeFlags where-instance BoxedFlags DiscovererSerializeFlags where-instance IsGFlag DiscovererSerializeFlags
− GI/GstPbutils/Functions.hs 
@@ -1,2316 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Functions-    ( -- -- * Methods--- ** codecUtilsAacCapsSetLevelAndProfile #method:codecUtilsAacCapsSetLevelAndProfile#--    codecUtilsAacCapsSetLevelAndProfile     ,----- ** codecUtilsAacGetChannels #method:codecUtilsAacGetChannels#--    codecUtilsAacGetChannels                ,----- ** codecUtilsAacGetIndexFromSampleRate #method:codecUtilsAacGetIndexFromSampleRate#--    codecUtilsAacGetIndexFromSampleRate     ,----- ** codecUtilsAacGetLevel #method:codecUtilsAacGetLevel#--    codecUtilsAacGetLevel                   ,----- ** codecUtilsAacGetProfile #method:codecUtilsAacGetProfile#--    codecUtilsAacGetProfile                 ,----- ** codecUtilsAacGetSampleRate #method:codecUtilsAacGetSampleRate#--    codecUtilsAacGetSampleRate              ,----- ** codecUtilsAacGetSampleRateFromIndex #method:codecUtilsAacGetSampleRateFromIndex#--    codecUtilsAacGetSampleRateFromIndex     ,----- ** codecUtilsH264CapsSetLevelAndProfile #method:codecUtilsH264CapsSetLevelAndProfile#--    codecUtilsH264CapsSetLevelAndProfile    ,----- ** codecUtilsH264GetLevel #method:codecUtilsH264GetLevel#--    codecUtilsH264GetLevel                  ,----- ** codecUtilsH264GetLevelIdc #method:codecUtilsH264GetLevelIdc#--    codecUtilsH264GetLevelIdc               ,----- ** codecUtilsH264GetProfile #method:codecUtilsH264GetProfile#--    codecUtilsH264GetProfile                ,----- ** codecUtilsH265CapsSetLevelTierAndProfile #method:codecUtilsH265CapsSetLevelTierAndProfile#--    codecUtilsH265CapsSetLevelTierAndProfile,----- ** codecUtilsH265GetLevel #method:codecUtilsH265GetLevel#--    codecUtilsH265GetLevel                  ,----- ** codecUtilsH265GetLevelIdc #method:codecUtilsH265GetLevelIdc#--    codecUtilsH265GetLevelIdc               ,----- ** codecUtilsH265GetProfile #method:codecUtilsH265GetProfile#--    codecUtilsH265GetProfile                ,----- ** codecUtilsH265GetTier #method:codecUtilsH265GetTier#--    codecUtilsH265GetTier                   ,----- ** codecUtilsMpeg4videoCapsSetLevelAndProfile #method:codecUtilsMpeg4videoCapsSetLevelAndProfile#--    codecUtilsMpeg4videoCapsSetLevelAndProfile,----- ** codecUtilsMpeg4videoGetLevel #method:codecUtilsMpeg4videoGetLevel#--    codecUtilsMpeg4videoGetLevel            ,----- ** codecUtilsMpeg4videoGetProfile #method:codecUtilsMpeg4videoGetProfile#--    codecUtilsMpeg4videoGetProfile          ,----- ** codecUtilsOpusCreateCaps #method:codecUtilsOpusCreateCaps#--    codecUtilsOpusCreateCaps                ,----- ** codecUtilsOpusCreateCapsFromHeader #method:codecUtilsOpusCreateCapsFromHeader#--    codecUtilsOpusCreateCapsFromHeader      ,----- ** codecUtilsOpusCreateHeader #method:codecUtilsOpusCreateHeader#--    codecUtilsOpusCreateHeader              ,----- ** codecUtilsOpusParseCaps #method:codecUtilsOpusParseCaps#--    codecUtilsOpusParseCaps                 ,----- ** codecUtilsOpusParseHeader #method:codecUtilsOpusParseHeader#--    codecUtilsOpusParseHeader               ,----- ** encodingListAllTargets #method:encodingListAllTargets#--    encodingListAllTargets                  ,----- ** encodingListAvailableCategories #method:encodingListAvailableCategories#--    encodingListAvailableCategories         ,----- ** installPluginsAsync #method:installPluginsAsync#--    installPluginsAsync                     ,----- ** installPluginsInstallationInProgress #method:installPluginsInstallationInProgress#--    installPluginsInstallationInProgress    ,----- ** installPluginsSupported #method:installPluginsSupported#--    installPluginsSupported                 ,----- ** installPluginsSync #method:installPluginsSync#--    installPluginsSync                      ,----- ** isMissingPluginMessage #method:isMissingPluginMessage#--    isMissingPluginMessage                  ,----- ** missingDecoderInstallerDetailNew #method:missingDecoderInstallerDetailNew#--    missingDecoderInstallerDetailNew        ,----- ** missingDecoderMessageNew #method:missingDecoderMessageNew#--    missingDecoderMessageNew                ,----- ** missingElementInstallerDetailNew #method:missingElementInstallerDetailNew#--    missingElementInstallerDetailNew        ,----- ** missingElementMessageNew #method:missingElementMessageNew#--    missingElementMessageNew                ,----- ** missingEncoderInstallerDetailNew #method:missingEncoderInstallerDetailNew#--    missingEncoderInstallerDetailNew        ,----- ** missingEncoderMessageNew #method:missingEncoderMessageNew#--    missingEncoderMessageNew                ,----- ** missingPluginMessageGetDescription #method:missingPluginMessageGetDescription#--    missingPluginMessageGetDescription      ,----- ** missingPluginMessageGetInstallerDetail #method:missingPluginMessageGetInstallerDetail#--    missingPluginMessageGetInstallerDetail  ,----- ** missingUriSinkInstallerDetailNew #method:missingUriSinkInstallerDetailNew#--    missingUriSinkInstallerDetailNew        ,----- ** missingUriSinkMessageNew #method:missingUriSinkMessageNew#--    missingUriSinkMessageNew                ,----- ** missingUriSourceInstallerDetailNew #method:missingUriSourceInstallerDetailNew#--    missingUriSourceInstallerDetailNew      ,----- ** missingUriSourceMessageNew #method:missingUriSourceMessageNew#--    missingUriSourceMessageNew              ,----- ** pbUtilsAddCodecDescriptionToTagList #method:pbUtilsAddCodecDescriptionToTagList#--    pbUtilsAddCodecDescriptionToTagList     ,----- ** pbUtilsGetCodecDescription #method:pbUtilsGetCodecDescription#--    pbUtilsGetCodecDescription              ,----- ** pbUtilsGetDecoderDescription #method:pbUtilsGetDecoderDescription#--    pbUtilsGetDecoderDescription            ,----- ** pbUtilsGetElementDescription #method:pbUtilsGetElementDescription#--    pbUtilsGetElementDescription            ,----- ** pbUtilsGetEncoderDescription #method:pbUtilsGetEncoderDescription#--    pbUtilsGetEncoderDescription            ,----- ** pbUtilsGetSinkDescription #method:pbUtilsGetSinkDescription#--    pbUtilsGetSinkDescription               ,----- ** pbUtilsGetSourceDescription #method:pbUtilsGetSourceDescription#--    pbUtilsGetSourceDescription             ,----- ** pbUtilsInit #method:pbUtilsInit#--    pbUtilsInit                             ,----- ** pluginsBaseVersion #method:pluginsBaseVersion#--    pluginsBaseVersion                      ,----- ** pluginsBaseVersionString #method:pluginsBaseVersionString#--    pluginsBaseVersionString                ,-----    ) 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.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.Gst.Objects.Element as Gst.Element-import qualified GI.Gst.Structs.Buffer as Gst.Buffer-import qualified GI.Gst.Structs.Caps as Gst.Caps-import qualified GI.Gst.Structs.Message as Gst.Message-import qualified GI.Gst.Structs.TagList as Gst.TagList-import qualified GI.GstPbutils.Callbacks as GstPbutils.Callbacks-import {-# SOURCE #-} qualified GI.GstPbutils.Enums as GstPbutils.Enums-import {-# SOURCE #-} qualified GI.GstPbutils.Objects.EncodingTarget as GstPbutils.EncodingTarget-import {-# SOURCE #-} qualified GI.GstPbutils.Structs.InstallPluginsContext as GstPbutils.InstallPluginsContext---- function gst_plugins_base_version_string--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_plugins_base_version_string" gst_plugins_base_version_string :: -    IO CString--{- |-This function returns a string that is useful for describing this version-of GStreamer\'s gst-plugins-base libraries to the outside world: user agent-strings, logging, about dialogs ...--}-pluginsBaseVersionString ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m T.Text-    {- ^ __Returns:__ a newly allocated string describing this version of gst-plugins-base -}-pluginsBaseVersionString  = liftIO $ do-    result <- gst_plugins_base_version_string-    checkUnexpectedReturnNULL "pluginsBaseVersionString" result-    result' <- cstringToText result-    freeMem result-    return result'----- function gst_plugins_base_version--- Args : [Arg {argCName = "major", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to a guint to store the major version number, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to a guint to store the minor version number, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "micro", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to a guint to store the micro version number, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "nano", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to a guint to store the nano version number, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_plugins_base_version" gst_plugins_base_version :: -    Ptr Word32 ->                           -- major : TBasicType TUInt-    Ptr Word32 ->                           -- minor : TBasicType TUInt-    Ptr Word32 ->                           -- micro : TBasicType TUInt-    Ptr Word32 ->                           -- nano : TBasicType TUInt-    IO ()--{- |-Gets the version number of the GStreamer Plugins Base libraries.--}-pluginsBaseVersion ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m ((Word32, Word32, Word32, Word32))-pluginsBaseVersion  = liftIO $ do-    major <- allocMem :: IO (Ptr Word32)-    minor <- allocMem :: IO (Ptr Word32)-    micro <- allocMem :: IO (Ptr Word32)-    nano <- allocMem :: IO (Ptr Word32)-    gst_plugins_base_version major minor micro nano-    major' <- peek major-    minor' <- peek minor-    micro' <- peek micro-    nano' <- peek nano-    freeMem major-    freeMem minor-    freeMem micro-    freeMem nano-    return (major', minor', micro', nano')----- function gst_pb_utils_init--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_pb_utils_init" gst_pb_utils_init :: -    IO ()--{- |-Initialises the base utils support library. This function is not-thread-safe. Applications should call it after calling 'GI.Gst.Functions.init',-plugins should call it from their plugin_init function.--This function may be called multiple times. It will do nothing if the-library has already been initialised.--}-pbUtilsInit ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m ()-pbUtilsInit  = liftIO $ do-    gst_pb_utils_init-    return ()----- function gst_pb_utils_get_source_description--- Args : [Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the protocol the source element needs to handle, e.g. \"http\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_pb_utils_get_source_description" gst_pb_utils_get_source_description :: -    CString ->                              -- protocol : TBasicType TUTF8-    IO CString--{- |-Returns a localised string describing a source element handling the protocol-specified in /@protocol@/, for use in error dialogs or other messages to be-seen by the user. Should never return NULL unless /@protocol@/ is invalid.--This function is mainly for internal use, applications would typically-use 'GI.GstPbutils.Functions.missingPluginMessageGetDescription' to get a description of-a missing feature from a missing-plugin message.--}-pbUtilsGetSourceDescription ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@protocol@/: the protocol the source element needs to handle, e.g. \"http\" -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated description string, or NULL on error. Free-         string with 'GI.GLib.Functions.free' when not needed any longer. -}-pbUtilsGetSourceDescription protocol = liftIO $ do-    protocol' <- textToCString protocol-    result <- gst_pb_utils_get_source_description protocol'-    checkUnexpectedReturnNULL "pbUtilsGetSourceDescription" result-    result' <- cstringToText result-    freeMem result-    freeMem protocol'-    return result'----- function gst_pb_utils_get_sink_description--- Args : [Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the protocol the sink element needs to handle, e.g. \"http\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_pb_utils_get_sink_description" gst_pb_utils_get_sink_description :: -    CString ->                              -- protocol : TBasicType TUTF8-    IO CString--{- |-Returns a localised string describing a sink element handling the protocol-specified in /@protocol@/, for use in error dialogs or other messages to be-seen by the user. Should never return NULL unless /@protocol@/ is invalid.--This function is mainly for internal use, applications would typically-use 'GI.GstPbutils.Functions.missingPluginMessageGetDescription' to get a description of-a missing feature from a missing-plugin message.--}-pbUtilsGetSinkDescription ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@protocol@/: the protocol the sink element needs to handle, e.g. \"http\" -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated description string, or NULL on error. Free-         string with 'GI.GLib.Functions.free' when not needed any longer. -}-pbUtilsGetSinkDescription protocol = liftIO $ do-    protocol' <- textToCString protocol-    result <- gst_pb_utils_get_sink_description protocol'-    checkUnexpectedReturnNULL "pbUtilsGetSinkDescription" result-    result' <- cstringToText result-    freeMem result-    freeMem protocol'-    return result'----- function gst_pb_utils_get_encoder_description--- Args : [Arg {argCName = "caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the (fixed) #GstCaps for which an encoder description is needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_pb_utils_get_encoder_description" gst_pb_utils_get_encoder_description :: -    Ptr Gst.Caps.Caps ->                    -- caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    IO CString--{- |-Returns a localised string describing an encoder for the format specified-in /@caps@/, for use in error dialogs or other messages to be seen by the user.-Should never return NULL unless /@factoryName@/ or /@caps@/ are invalid.--This function is mainly for internal use, applications would typically-use 'GI.GstPbutils.Functions.missingPluginMessageGetDescription' to get a description of-a missing feature from a missing-plugin message.--}-pbUtilsGetEncoderDescription ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@caps@/: the (fixed) 'GI.Gst.Structs.Caps.Caps' for which an encoder description is needed -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated description string, or NULL on error. Free-         string with 'GI.GLib.Functions.free' when not needed any longer. -}-pbUtilsGetEncoderDescription caps = liftIO $ do-    caps' <- unsafeManagedPtrGetPtr caps-    result <- gst_pb_utils_get_encoder_description caps'-    checkUnexpectedReturnNULL "pbUtilsGetEncoderDescription" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr caps-    return result'----- function gst_pb_utils_get_element_description--- Args : [Arg {argCName = "factory_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the element, e.g. \"giosrc\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_pb_utils_get_element_description" gst_pb_utils_get_element_description :: -    CString ->                              -- factory_name : TBasicType TUTF8-    IO CString--{- |-Returns a localised string describing the given element, for use in-error dialogs or other messages to be seen by the user. Should never-return NULL unless /@factoryName@/ is invalid.--This function is mainly for internal use, applications would typically-use 'GI.GstPbutils.Functions.missingPluginMessageGetDescription' to get a description of-a missing feature from a missing-plugin message.--}-pbUtilsGetElementDescription ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@factoryName@/: the name of the element, e.g. \"giosrc\" -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated description string, or NULL on error. Free-         string with 'GI.GLib.Functions.free' when not needed any longer. -}-pbUtilsGetElementDescription factoryName = liftIO $ do-    factoryName' <- textToCString factoryName-    result <- gst_pb_utils_get_element_description factoryName'-    checkUnexpectedReturnNULL "pbUtilsGetElementDescription" result-    result' <- cstringToText result-    freeMem result-    freeMem factoryName'-    return result'----- function gst_pb_utils_get_decoder_description--- Args : [Arg {argCName = "caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the (fixed) #GstCaps for which an decoder description is needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_pb_utils_get_decoder_description" gst_pb_utils_get_decoder_description :: -    Ptr Gst.Caps.Caps ->                    -- caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    IO CString--{- |-Returns a localised string describing an decoder for the format specified-in /@caps@/, for use in error dialogs or other messages to be seen by the user.-Should never return NULL unless /@factoryName@/ or /@caps@/ are invalid.--This function is mainly for internal use, applications would typically-use 'GI.GstPbutils.Functions.missingPluginMessageGetDescription' to get a description of-a missing feature from a missing-plugin message.--}-pbUtilsGetDecoderDescription ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@caps@/: the (fixed) 'GI.Gst.Structs.Caps.Caps' for which an decoder description is needed -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated description string, or NULL on error. Free-         string with 'GI.GLib.Functions.free' when not needed any longer. -}-pbUtilsGetDecoderDescription caps = liftIO $ do-    caps' <- unsafeManagedPtrGetPtr caps-    result <- gst_pb_utils_get_decoder_description caps'-    checkUnexpectedReturnNULL "pbUtilsGetDecoderDescription" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr caps-    return result'----- function gst_pb_utils_get_codec_description--- Args : [Arg {argCName = "caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the (fixed) #GstCaps for which an format description is needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_pb_utils_get_codec_description" gst_pb_utils_get_codec_description :: -    Ptr Gst.Caps.Caps ->                    -- caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    IO CString--{- |-Returns a localised (as far as this is possible) string describing the-media format specified in /@caps@/, for use in error dialogs or other messages-to be seen by the user. Should never return NULL unless /@caps@/ is invalid.--Also see the convenience function-'GI.GstPbutils.Functions.pbUtilsAddCodecDescriptionToTagList'.--}-pbUtilsGetCodecDescription ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@caps@/: the (fixed) 'GI.Gst.Structs.Caps.Caps' for which an format description is needed -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated description string, or NULL on error. Free-         string with 'GI.GLib.Functions.free' when not needed any longer. -}-pbUtilsGetCodecDescription caps = liftIO $ do-    caps' <- unsafeManagedPtrGetPtr caps-    result <- gst_pb_utils_get_codec_description caps'-    checkUnexpectedReturnNULL "pbUtilsGetCodecDescription" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr caps-    return result'----- function gst_pb_utils_add_codec_description_to_tag_list--- Args : [Arg {argCName = "taglist", argType = TInterface (Name {namespace = "Gst", name = "TagList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstTagList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "codec_tag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a GStreamer codec tag such as #GST_TAG_AUDIO_CODEC,\n            #GST_TAG_VIDEO_CODEC or #GST_TAG_CODEC. If none is specified,\n            the function will attempt to detect the appropriate category.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the (fixed) #GstCaps for which a codec tag should be added.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_pb_utils_add_codec_description_to_tag_list" gst_pb_utils_add_codec_description_to_tag_list :: -    Ptr Gst.TagList.TagList ->              -- taglist : TInterface (Name {namespace = "Gst", name = "TagList"})-    CString ->                              -- codec_tag : TBasicType TUTF8-    Ptr Gst.Caps.Caps ->                    -- caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    IO CInt--{- |-Adds a codec tag describing the format specified by /@caps@/ to /@taglist@/.--}-pbUtilsAddCodecDescriptionToTagList ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.TagList.TagList-    {- ^ /@taglist@/: a 'GI.Gst.Structs.TagList.TagList' -}-    -> Maybe (T.Text)-    {- ^ /@codecTag@/: a GStreamer codec tag such as 'GI.Gst.Constants.TAG_AUDIO_CODEC',-            'GI.Gst.Constants.TAG_VIDEO_CODEC' or 'GI.Gst.Constants.TAG_CODEC'. If none is specified,-            the function will attempt to detect the appropriate category. -}-    -> Gst.Caps.Caps-    {- ^ /@caps@/: the (fixed) 'GI.Gst.Structs.Caps.Caps' for which a codec tag should be added. -}-    -> m Bool-    {- ^ __Returns:__ TRUE if a codec tag was added, FALSE otherwise. -}-pbUtilsAddCodecDescriptionToTagList taglist codecTag caps = liftIO $ do-    taglist' <- unsafeManagedPtrGetPtr taglist-    maybeCodecTag <- case codecTag of-        Nothing -> return nullPtr-        Just jCodecTag -> do-            jCodecTag' <- textToCString jCodecTag-            return jCodecTag'-    caps' <- unsafeManagedPtrGetPtr caps-    result <- gst_pb_utils_add_codec_description_to_tag_list taglist' maybeCodecTag caps'-    let result' = (/= 0) result-    touchManagedPtr taglist-    touchManagedPtr caps-    freeMem maybeCodecTag-    return result'----- function gst_missing_uri_source_message_new--- Args : [Arg {argCName = "element", argType = TInterface (Name {namespace = "Gst", name = "Element"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstElement posting the message", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI protocol the missing source needs to implement,\n           e.g. \"http\" or \"mms\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Message"}))--- throws : False--- Skip return : False--foreign import ccall "gst_missing_uri_source_message_new" gst_missing_uri_source_message_new :: -    Ptr Gst.Element.Element ->              -- element : TInterface (Name {namespace = "Gst", name = "Element"})-    CString ->                              -- protocol : TBasicType TUTF8-    IO (Ptr Gst.Message.Message)--{- |-Creates a missing-plugin message for /@element@/ to notify the application-that a source element for a particular URI protocol is missing. This-function is mainly for use in plugins.--}-missingUriSourceMessageNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gst.Element.IsElement a) =>-    a-    {- ^ /@element@/: the 'GI.Gst.Objects.Element.Element' posting the message -}-    -> T.Text-    {- ^ /@protocol@/: the URI protocol the missing source needs to implement,-           e.g. \"http\" or \"mms\" -}-    -> m Gst.Message.Message-    {- ^ __Returns:__ a new 'GI.Gst.Structs.Message.Message', or NULL on error -}-missingUriSourceMessageNew element protocol = liftIO $ do-    element' <- unsafeManagedPtrCastPtr element-    protocol' <- textToCString protocol-    result <- gst_missing_uri_source_message_new element' protocol'-    checkUnexpectedReturnNULL "missingUriSourceMessageNew" result-    result' <- (wrapBoxed Gst.Message.Message) result-    touchManagedPtr element-    freeMem protocol'-    return result'----- function gst_missing_uri_source_installer_detail_new--- Args : [Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI protocol the missing source needs to implement,\n           e.g. \"http\" or \"mms\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_missing_uri_source_installer_detail_new" gst_missing_uri_source_installer_detail_new :: -    CString ->                              -- protocol : TBasicType TUTF8-    IO CString--{- |-Returns an opaque string containing all the details about the missing-element to be passed to an external installer called via-'GI.GstPbutils.Functions.installPluginsAsync' or 'GI.GstPbutils.Functions.installPluginsSync'.--This function is mainly for applications that call external plugin-installation mechanisms using one of the two above-mentioned functions in-the case where the application knows exactly what kind of plugin it is-missing.--}-missingUriSourceInstallerDetailNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@protocol@/: the URI protocol the missing source needs to implement,-           e.g. \"http\" or \"mms\" -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated detail string, or NULL on error. Free string-         with 'GI.GLib.Functions.free' when not needed any longer. -}-missingUriSourceInstallerDetailNew protocol = liftIO $ do-    protocol' <- textToCString protocol-    result <- gst_missing_uri_source_installer_detail_new protocol'-    checkUnexpectedReturnNULL "missingUriSourceInstallerDetailNew" result-    result' <- cstringToText result-    freeMem result-    freeMem protocol'-    return result'----- function gst_missing_uri_sink_message_new--- Args : [Arg {argCName = "element", argType = TInterface (Name {namespace = "Gst", name = "Element"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstElement posting the message", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI protocol the missing sink needs to implement,\n           e.g. \"http\" or \"smb\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Message"}))--- throws : False--- Skip return : False--foreign import ccall "gst_missing_uri_sink_message_new" gst_missing_uri_sink_message_new :: -    Ptr Gst.Element.Element ->              -- element : TInterface (Name {namespace = "Gst", name = "Element"})-    CString ->                              -- protocol : TBasicType TUTF8-    IO (Ptr Gst.Message.Message)--{- |-Creates a missing-plugin message for /@element@/ to notify the application-that a sink element for a particular URI protocol is missing. This-function is mainly for use in plugins.--}-missingUriSinkMessageNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gst.Element.IsElement a) =>-    a-    {- ^ /@element@/: the 'GI.Gst.Objects.Element.Element' posting the message -}-    -> T.Text-    {- ^ /@protocol@/: the URI protocol the missing sink needs to implement,-           e.g. \"http\" or \"smb\" -}-    -> m Gst.Message.Message-    {- ^ __Returns:__ a new 'GI.Gst.Structs.Message.Message', or NULL on error -}-missingUriSinkMessageNew element protocol = liftIO $ do-    element' <- unsafeManagedPtrCastPtr element-    protocol' <- textToCString protocol-    result <- gst_missing_uri_sink_message_new element' protocol'-    checkUnexpectedReturnNULL "missingUriSinkMessageNew" result-    result' <- (wrapBoxed Gst.Message.Message) result-    touchManagedPtr element-    freeMem protocol'-    return result'----- function gst_missing_uri_sink_installer_detail_new--- Args : [Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI protocol the missing source needs to implement,\n           e.g. \"http\" or \"mms\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_missing_uri_sink_installer_detail_new" gst_missing_uri_sink_installer_detail_new :: -    CString ->                              -- protocol : TBasicType TUTF8-    IO CString--{- |-Returns an opaque string containing all the details about the missing-element to be passed to an external installer called via-'GI.GstPbutils.Functions.installPluginsAsync' or 'GI.GstPbutils.Functions.installPluginsSync'.--This function is mainly for applications that call external plugin-installation mechanisms using one of the two above-mentioned functions in-the case where the application knows exactly what kind of plugin it is-missing.--}-missingUriSinkInstallerDetailNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@protocol@/: the URI protocol the missing source needs to implement,-           e.g. \"http\" or \"mms\" -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated detail string, or NULL on error. Free string-         with 'GI.GLib.Functions.free' when not needed any longer. -}-missingUriSinkInstallerDetailNew protocol = liftIO $ do-    protocol' <- textToCString protocol-    result <- gst_missing_uri_sink_installer_detail_new protocol'-    checkUnexpectedReturnNULL "missingUriSinkInstallerDetailNew" result-    result' <- cstringToText result-    freeMem result-    freeMem protocol'-    return result'----- function gst_missing_plugin_message_get_installer_detail--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Gst", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a missing-plugin #GstMessage of type #GST_MESSAGE_ELEMENT", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_missing_plugin_message_get_installer_detail" gst_missing_plugin_message_get_installer_detail :: -    Ptr Gst.Message.Message ->              -- msg : TInterface (Name {namespace = "Gst", name = "Message"})-    IO CString--{- |-Returns an opaque string containing all the details about the missing-element to be passed to an external installer called via-'GI.GstPbutils.Functions.installPluginsAsync' or 'GI.GstPbutils.Functions.installPluginsSync'.--This function is mainly for applications that call external plugin-installation mechanisms using one of the two above-mentioned functions.--}-missingPluginMessageGetInstallerDetail ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Message.Message-    {- ^ /@msg@/: a missing-plugin 'GI.Gst.Structs.Message.Message' of type @/GST_MESSAGE_ELEMENT/@ -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated detail string, or NULL on error. Free string-         with 'GI.GLib.Functions.free' when not needed any longer. -}-missingPluginMessageGetInstallerDetail msg = liftIO $ do-    msg' <- unsafeManagedPtrGetPtr msg-    result <- gst_missing_plugin_message_get_installer_detail msg'-    checkUnexpectedReturnNULL "missingPluginMessageGetInstallerDetail" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr msg-    return result'----- function gst_missing_plugin_message_get_description--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Gst", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a missing-plugin #GstMessage of type #GST_MESSAGE_ELEMENT", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_missing_plugin_message_get_description" gst_missing_plugin_message_get_description :: -    Ptr Gst.Message.Message ->              -- msg : TInterface (Name {namespace = "Gst", name = "Message"})-    IO CString--{- |-Returns a localised string describing the missing feature, for use in-error dialogs and the like. Should never return NULL unless /@msg@/ is not-a valid missing-plugin message.--This function is mainly for applications that need a human-readable string-describing a missing plugin, given a previously collected missing-plugin-message--}-missingPluginMessageGetDescription ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Message.Message-    {- ^ /@msg@/: a missing-plugin 'GI.Gst.Structs.Message.Message' of type @/GST_MESSAGE_ELEMENT/@ -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated description string, or NULL on error. Free-         string with 'GI.GLib.Functions.free' when not needed any longer. -}-missingPluginMessageGetDescription msg = liftIO $ do-    msg' <- unsafeManagedPtrGetPtr msg-    result <- gst_missing_plugin_message_get_description msg'-    checkUnexpectedReturnNULL "missingPluginMessageGetDescription" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr msg-    return result'----- function gst_missing_encoder_message_new--- Args : [Arg {argCName = "element", argType = TInterface (Name {namespace = "Gst", name = "Element"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstElement posting the message", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encode_caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the (fixed) caps for which an encoder element is needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Message"}))--- throws : False--- Skip return : False--foreign import ccall "gst_missing_encoder_message_new" gst_missing_encoder_message_new :: -    Ptr Gst.Element.Element ->              -- element : TInterface (Name {namespace = "Gst", name = "Element"})-    Ptr Gst.Caps.Caps ->                    -- encode_caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    IO (Ptr Gst.Message.Message)--{- |-Creates a missing-plugin message for /@element@/ to notify the application-that an encoder element for a particular set of (fixed) caps is missing.-This function is mainly for use in plugins.--}-missingEncoderMessageNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gst.Element.IsElement a) =>-    a-    {- ^ /@element@/: the 'GI.Gst.Objects.Element.Element' posting the message -}-    -> Gst.Caps.Caps-    {- ^ /@encodeCaps@/: the (fixed) caps for which an encoder element is needed -}-    -> m Gst.Message.Message-    {- ^ __Returns:__ a new 'GI.Gst.Structs.Message.Message', or NULL on error -}-missingEncoderMessageNew element encodeCaps = liftIO $ do-    element' <- unsafeManagedPtrCastPtr element-    encodeCaps' <- unsafeManagedPtrGetPtr encodeCaps-    result <- gst_missing_encoder_message_new element' encodeCaps'-    checkUnexpectedReturnNULL "missingEncoderMessageNew" result-    result' <- (wrapBoxed Gst.Message.Message) result-    touchManagedPtr element-    touchManagedPtr encodeCaps-    return result'----- function gst_missing_encoder_installer_detail_new--- Args : [Arg {argCName = "encode_caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the (fixed) caps for which an encoder element is needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_missing_encoder_installer_detail_new" gst_missing_encoder_installer_detail_new :: -    Ptr Gst.Caps.Caps ->                    -- encode_caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    IO CString--{- |-Returns an opaque string containing all the details about the missing-element to be passed to an external installer called via-'GI.GstPbutils.Functions.installPluginsAsync' or 'GI.GstPbutils.Functions.installPluginsSync'.--This function is mainly for applications that call external plugin-installation mechanisms using one of the two above-mentioned functions in-the case where the application knows exactly what kind of plugin it is-missing.--}-missingEncoderInstallerDetailNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@encodeCaps@/: the (fixed) caps for which an encoder element is needed -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated detail string, or NULL on error. Free string-         with 'GI.GLib.Functions.free' when not needed any longer. -}-missingEncoderInstallerDetailNew encodeCaps = liftIO $ do-    encodeCaps' <- unsafeManagedPtrGetPtr encodeCaps-    result <- gst_missing_encoder_installer_detail_new encodeCaps'-    checkUnexpectedReturnNULL "missingEncoderInstallerDetailNew" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr encodeCaps-    return result'----- function gst_missing_element_message_new--- Args : [Arg {argCName = "element", argType = TInterface (Name {namespace = "Gst", name = "Element"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstElement posting the message", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factory_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the missing element (element factory),\n           e.g. \"videoscale\" or \"cdparanoiasrc\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Message"}))--- throws : False--- Skip return : False--foreign import ccall "gst_missing_element_message_new" gst_missing_element_message_new :: -    Ptr Gst.Element.Element ->              -- element : TInterface (Name {namespace = "Gst", name = "Element"})-    CString ->                              -- factory_name : TBasicType TUTF8-    IO (Ptr Gst.Message.Message)--{- |-Creates a missing-plugin message for /@element@/ to notify the application-that a certain required element is missing. This function is mainly for-use in plugins.--}-missingElementMessageNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gst.Element.IsElement a) =>-    a-    {- ^ /@element@/: the 'GI.Gst.Objects.Element.Element' posting the message -}-    -> T.Text-    {- ^ /@factoryName@/: the name of the missing element (element factory),-           e.g. \"videoscale\" or \"cdparanoiasrc\" -}-    -> m Gst.Message.Message-    {- ^ __Returns:__ a new 'GI.Gst.Structs.Message.Message', or NULL on error -}-missingElementMessageNew element factoryName = liftIO $ do-    element' <- unsafeManagedPtrCastPtr element-    factoryName' <- textToCString factoryName-    result <- gst_missing_element_message_new element' factoryName'-    checkUnexpectedReturnNULL "missingElementMessageNew" result-    result' <- (wrapBoxed Gst.Message.Message) result-    touchManagedPtr element-    freeMem factoryName'-    return result'----- function gst_missing_element_installer_detail_new--- Args : [Arg {argCName = "factory_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the missing element (element factory),\n           e.g. \"videoscale\" or \"cdparanoiasrc\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_missing_element_installer_detail_new" gst_missing_element_installer_detail_new :: -    CString ->                              -- factory_name : TBasicType TUTF8-    IO CString--{- |-Returns an opaque string containing all the details about the missing-element to be passed to an external installer called via-'GI.GstPbutils.Functions.installPluginsAsync' or 'GI.GstPbutils.Functions.installPluginsSync'.--This function is mainly for applications that call external plugin-installation mechanisms using one of the two above-mentioned functions in-the case where the application knows exactly what kind of plugin it is-missing.--}-missingElementInstallerDetailNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@factoryName@/: the name of the missing element (element factory),-           e.g. \"videoscale\" or \"cdparanoiasrc\" -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated detail string, or NULL on error. Free string-         with 'GI.GLib.Functions.free' when not needed any longer. -}-missingElementInstallerDetailNew factoryName = liftIO $ do-    factoryName' <- textToCString factoryName-    result <- gst_missing_element_installer_detail_new factoryName'-    checkUnexpectedReturnNULL "missingElementInstallerDetailNew" result-    result' <- cstringToText result-    freeMem result-    freeMem factoryName'-    return result'----- function gst_missing_decoder_message_new--- Args : [Arg {argCName = "element", argType = TInterface (Name {namespace = "Gst", name = "Element"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstElement posting the message", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "decode_caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the (fixed) caps for which a decoder element is needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Message"}))--- throws : False--- Skip return : False--foreign import ccall "gst_missing_decoder_message_new" gst_missing_decoder_message_new :: -    Ptr Gst.Element.Element ->              -- element : TInterface (Name {namespace = "Gst", name = "Element"})-    Ptr Gst.Caps.Caps ->                    -- decode_caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    IO (Ptr Gst.Message.Message)--{- |-Creates a missing-plugin message for /@element@/ to notify the application-that a decoder element for a particular set of (fixed) caps is missing.-This function is mainly for use in plugins.--}-missingDecoderMessageNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gst.Element.IsElement a) =>-    a-    {- ^ /@element@/: the 'GI.Gst.Objects.Element.Element' posting the message -}-    -> Gst.Caps.Caps-    {- ^ /@decodeCaps@/: the (fixed) caps for which a decoder element is needed -}-    -> m Gst.Message.Message-    {- ^ __Returns:__ a new 'GI.Gst.Structs.Message.Message', or NULL on error -}-missingDecoderMessageNew element decodeCaps = liftIO $ do-    element' <- unsafeManagedPtrCastPtr element-    decodeCaps' <- unsafeManagedPtrGetPtr decodeCaps-    result <- gst_missing_decoder_message_new element' decodeCaps'-    checkUnexpectedReturnNULL "missingDecoderMessageNew" result-    result' <- (wrapBoxed Gst.Message.Message) result-    touchManagedPtr element-    touchManagedPtr decodeCaps-    return result'----- function gst_missing_decoder_installer_detail_new--- Args : [Arg {argCName = "decode_caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the (fixed) caps for which a decoder element is needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_missing_decoder_installer_detail_new" gst_missing_decoder_installer_detail_new :: -    Ptr Gst.Caps.Caps ->                    -- decode_caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    IO CString--{- |-Returns an opaque string containing all the details about the missing-element to be passed to an external installer called via-'GI.GstPbutils.Functions.installPluginsAsync' or 'GI.GstPbutils.Functions.installPluginsSync'.--This function is mainly for applications that call external plugin-installation mechanisms using one of the two above-mentioned functions in-the case where the application knows exactly what kind of plugin it is-missing.--}-missingDecoderInstallerDetailNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@decodeCaps@/: the (fixed) caps for which a decoder element is needed -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated detail string, or NULL on error. Free string-         with 'GI.GLib.Functions.free' when not needed any longer. -}-missingDecoderInstallerDetailNew decodeCaps = liftIO $ do-    decodeCaps' <- unsafeManagedPtrGetPtr decodeCaps-    result <- gst_missing_decoder_installer_detail_new decodeCaps'-    checkUnexpectedReturnNULL "missingDecoderInstallerDetailNew" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr decodeCaps-    return result'----- function gst_is_missing_plugin_message--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Gst", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_is_missing_plugin_message" gst_is_missing_plugin_message :: -    Ptr Gst.Message.Message ->              -- msg : TInterface (Name {namespace = "Gst", name = "Message"})-    IO CInt--{- |-Checks whether /@msg@/ is a missing plugins message.--}-isMissingPluginMessage ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Message.Message-    {- ^ /@msg@/: a 'GI.Gst.Structs.Message.Message' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@msg@/ is a missing-plugins message, otherwise 'False'. -}-isMissingPluginMessage msg = liftIO $ do-    msg' <- unsafeManagedPtrGetPtr msg-    result <- gst_is_missing_plugin_message msg'-    let result' = (/= 0) result-    touchManagedPtr msg-    return result'----- function gst_install_plugins_sync--- Args : [Arg {argCName = "details", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "NULL-terminated array\n    of installer string details", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctx", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GstInstallPluginsContext, or NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsReturn"}))--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_sync" gst_install_plugins_sync :: -    Ptr CString ->                          -- details : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr GstPbutils.InstallPluginsContext.InstallPluginsContext -> -- ctx : TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"})-    IO CUInt--{- |-Requests plugin installation and block until the plugins have been-installed or installation has failed.--This function should almost never be used, it only exists for cases where-a non-GLib main loop is running and the user wants to run it in a separate-thread and marshal the result back asynchronously into the main thread-using the other non-GLib main loop. You should almost always use-'GI.GstPbutils.Functions.installPluginsAsync' instead of this function.--}-installPluginsSync ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [T.Text]-    {- ^ /@details@/: NULL-terminated array-    of installer string details -}-    -> Maybe (GstPbutils.InstallPluginsContext.InstallPluginsContext)-    {- ^ /@ctx@/: a 'GI.GstPbutils.Structs.InstallPluginsContext.InstallPluginsContext', or NULL -}-    -> m GstPbutils.Enums.InstallPluginsReturn-    {- ^ __Returns:__ the result of the installation. -}-installPluginsSync details ctx = liftIO $ do-    details' <- packZeroTerminatedUTF8CArray details-    maybeCtx <- case ctx of-        Nothing -> return nullPtr-        Just jCtx -> do-            jCtx' <- unsafeManagedPtrGetPtr jCtx-            return jCtx'-    result <- gst_install_plugins_sync details' maybeCtx-    let result' = (toEnum . fromIntegral) result-    whenJust ctx touchManagedPtr-    mapZeroTerminatedCArray freeMem details'-    freeMem details'-    return result'----- function gst_install_plugins_supported--- Args : []--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_supported" gst_install_plugins_supported :: -    IO CInt--{- |-Checks whether plugin installation is likely to be supported by the-current environment. This currently only checks whether the helper script-that is to be provided by the distribution or operating system vendor-exists.--}-installPluginsSupported ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Bool-    {- ^ __Returns:__ TRUE if plugin installation is likely to be supported. -}-installPluginsSupported  = liftIO $ do-    result <- gst_install_plugins_supported-    let result' = (/= 0) result-    return result'----- function gst_install_plugins_installation_in_progress--- Args : []--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_installation_in_progress" gst_install_plugins_installation_in_progress :: -    IO CInt--{- |-Checks whether plugin installation (initiated by this application only)-is currently in progress.--}-installPluginsInstallationInProgress ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Bool-    {- ^ __Returns:__ TRUE if plugin installation is in progress, otherwise FALSE -}-installPluginsInstallationInProgress  = liftIO $ do-    result <- gst_install_plugins_installation_in_progress-    let result' = (/= 0) result-    return result'----- function gst_install_plugins_async--- Args : [Arg {argCName = "details", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "NULL-terminated array\n    of installer string details (see below)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctx", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GstInstallPluginsContext, or NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsResultFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the function to call when the installer program returns", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the user data to pass to @func when called, or NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsReturn"}))--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_async" gst_install_plugins_async :: -    Ptr CString ->                          -- details : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr GstPbutils.InstallPluginsContext.InstallPluginsContext -> -- ctx : TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"})-    FunPtr GstPbutils.Callbacks.C_InstallPluginsResultFunc -> -- func : TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsResultFunc"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO CUInt--{- |-Requests plugin installation without blocking. Once the plugins have been-installed or installation has failed, /@func@/ will be called with the result-of the installation and your provided /@userData@/ pointer.--This function requires a running GLib\/Gtk main loop. If you are not-running a GLib\/Gtk main loop, make sure to regularly call-g_main_context_iteration(NULL,FALSE).--The installer strings that make up /@detail@/ are typically obtained by-calling 'GI.GstPbutils.Functions.missingPluginMessageGetInstallerDetail' on missing-plugin-messages that have been caught on a pipeline\'s bus or created by the-application via the provided API, such as 'GI.GstPbutils.Functions.missingElementMessageNew'.--It is possible to request the installation of multiple missing plugins in-one go (as might be required if there is a demuxer for a certain format-installed but no suitable video decoder and no suitable audio decoder).--}-installPluginsAsync ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [T.Text]-    {- ^ /@details@/: NULL-terminated array-    of installer string details (see below) -}-    -> Maybe (GstPbutils.InstallPluginsContext.InstallPluginsContext)-    {- ^ /@ctx@/: a 'GI.GstPbutils.Structs.InstallPluginsContext.InstallPluginsContext', or NULL -}-    -> GstPbutils.Callbacks.InstallPluginsResultFunc-    {- ^ /@func@/: the function to call when the installer program returns -}-    -> m GstPbutils.Enums.InstallPluginsReturn-    {- ^ __Returns:__ result code whether an external installer could be started -}-installPluginsAsync details ctx func = liftIO $ do-    details' <- packZeroTerminatedUTF8CArray details-    maybeCtx <- case ctx of-        Nothing -> return nullPtr-        Just jCtx -> do-            jCtx' <- unsafeManagedPtrGetPtr jCtx-            return jCtx'-    ptrfunc <- callocMem :: IO (Ptr (FunPtr GstPbutils.Callbacks.C_InstallPluginsResultFunc))-    func' <- GstPbutils.Callbacks.mk_InstallPluginsResultFunc (GstPbutils.Callbacks.wrap_InstallPluginsResultFunc (Just ptrfunc) (GstPbutils.Callbacks.drop_closures_InstallPluginsResultFunc func))-    poke ptrfunc func'-    let userData = nullPtr-    result <- gst_install_plugins_async details' maybeCtx func' userData-    let result' = (toEnum . fromIntegral) result-    whenJust ctx touchManagedPtr-    mapZeroTerminatedCArray freeMem details'-    freeMem details'-    return result'----- function gst_encoding_list_available_categories--- Args : []--- Lengths : []--- returnType : Just (TGList (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_list_available_categories" gst_encoding_list_available_categories :: -    IO (Ptr (GList CString))--{- |-Lists all 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' categories present on disk.--}-encodingListAvailableCategories ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m [T.Text]-    {- ^ __Returns:__ A list-of 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' categories. -}-encodingListAvailableCategories  = liftIO $ do-    result <- gst_encoding_list_available_categories-    result' <- unpackGList result-    result'' <- mapM cstringToText result'-    mapGList freeMem result-    g_list_free result-    return result''----- function gst_encoding_list_all_targets--- Args : [Arg {argCName = "categoryname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The category, for ex: #GST_ENCODING_CATEGORY_DEVICE.\nCan be %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"})))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_list_all_targets" gst_encoding_list_all_targets :: -    CString ->                              -- categoryname : TBasicType TUTF8-    IO (Ptr (GList (Ptr GstPbutils.EncodingTarget.EncodingTarget)))--{- |-List all available 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' for the specified category, or all categories-if /@categoryname@/ is 'Nothing'.--}-encodingListAllTargets ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe (T.Text)-    {- ^ /@categoryname@/: The category, for ex: 'GI.GstPbutils.Constants.ENCODING_CATEGORY_DEVICE'.-Can be 'Nothing'. -}-    -> m [GstPbutils.EncodingTarget.EncodingTarget]-    {- ^ __Returns:__ The list of 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' -}-encodingListAllTargets categoryname = liftIO $ do-    maybeCategoryname <- case categoryname of-        Nothing -> return nullPtr-        Just jCategoryname -> do-            jCategoryname' <- textToCString jCategoryname-            return jCategoryname'-    result <- gst_encoding_list_all_targets maybeCategoryname-    result' <- unpackGList result-    result'' <- mapM (wrapObject GstPbutils.EncodingTarget.EncodingTarget) result'-    g_list_free result-    freeMem maybeCategoryname-    return result''----- function gst_codec_utils_opus_parse_header--- Args : [Arg {argCName = "header", argType = TInterface (Name {namespace = "Gst", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the OpusHead #GstBuffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rate", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the sample rate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "channels", argType = TBasicType TUInt8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of channels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "channel_mapping_family", argType = TBasicType TUInt8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the channel mapping family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stream_count", argType = TBasicType TUInt8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of independent streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "coupled_count", argType = TBasicType TUInt8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of stereo streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "channel_mapping", argType = TCArray False 256 (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the mapping between the streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pre_skip", argType = TBasicType TUInt16, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pre-skip in 48kHz samples or 0", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "output_gain", argType = TBasicType TInt16, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Output gain or 0", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_opus_parse_header" gst_codec_utils_opus_parse_header :: -    Ptr Gst.Buffer.Buffer ->                -- header : TInterface (Name {namespace = "Gst", name = "Buffer"})-    Ptr Word32 ->                           -- rate : TBasicType TUInt32-    Ptr Word8 ->                            -- channels : TBasicType TUInt8-    Ptr Word8 ->                            -- channel_mapping_family : TBasicType TUInt8-    Ptr Word8 ->                            -- stream_count : TBasicType TUInt8-    Ptr Word8 ->                            -- coupled_count : TBasicType TUInt8-    Ptr (Ptr Word8) ->                      -- channel_mapping : TCArray False 256 (-1) (TBasicType TUInt8)-    Ptr Word16 ->                           -- pre_skip : TBasicType TUInt16-    Ptr Int16 ->                            -- output_gain : TBasicType TInt16-    IO CInt--{- |-Parses the OpusHead header.--/Since: 1.8/--}-codecUtilsOpusParseHeader ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Buffer.Buffer-    {- ^ /@header@/: the OpusHead 'GI.Gst.Structs.Buffer.Buffer' -}-    -> m ((Bool, Word32, Word8, Word8, Word8, Word8, ByteString, Word16, Int16))-    {- ^ __Returns:__ 'True' if parsing was successful, 'False' otherwise. -}-codecUtilsOpusParseHeader header = liftIO $ do-    header' <- unsafeManagedPtrGetPtr header-    rate <- allocMem :: IO (Ptr Word32)-    channels <- allocMem :: IO (Ptr Word8)-    channelMappingFamily <- allocMem :: IO (Ptr Word8)-    streamCount <- allocMem :: IO (Ptr Word8)-    coupledCount <- allocMem :: IO (Ptr Word8)-    channelMapping <- allocMem :: IO (Ptr (Ptr Word8))-    preSkip <- allocMem :: IO (Ptr Word16)-    outputGain <- allocMem :: IO (Ptr Int16)-    result <- gst_codec_utils_opus_parse_header header' rate channels channelMappingFamily streamCount coupledCount channelMapping preSkip outputGain-    let result' = (/= 0) result-    rate' <- peek rate-    channels' <- peek channels-    channelMappingFamily' <- peek channelMappingFamily-    streamCount' <- peek streamCount-    coupledCount' <- peek coupledCount-    channelMapping' <- peek channelMapping-    channelMapping'' <- (unpackByteStringWithLength 256) channelMapping'-    freeMem channelMapping'-    preSkip' <- peek preSkip-    outputGain' <- peek outputGain-    touchManagedPtr header-    freeMem rate-    freeMem channels-    freeMem channelMappingFamily-    freeMem streamCount-    freeMem coupledCount-    freeMem channelMapping-    freeMem preSkip-    freeMem outputGain-    return (result', rate', channels', channelMappingFamily', streamCount', coupledCount', channelMapping'', preSkip', outputGain')----- function gst_codec_utils_opus_parse_caps--- Args : [Arg {argCName = "caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstCaps to parse the data from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rate", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the sample rate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "channels", argType = TBasicType TUInt8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of channels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "channel_mapping_family", argType = TBasicType TUInt8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the channel mapping family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stream_count", argType = TBasicType TUInt8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of independent streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "coupled_count", argType = TBasicType TUInt8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of stereo streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "channel_mapping", argType = TCArray False 256 (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the mapping between the streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_opus_parse_caps" gst_codec_utils_opus_parse_caps :: -    Ptr Gst.Caps.Caps ->                    -- caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    Ptr Word32 ->                           -- rate : TBasicType TUInt32-    Ptr Word8 ->                            -- channels : TBasicType TUInt8-    Ptr Word8 ->                            -- channel_mapping_family : TBasicType TUInt8-    Ptr Word8 ->                            -- stream_count : TBasicType TUInt8-    Ptr Word8 ->                            -- coupled_count : TBasicType TUInt8-    Ptr (Ptr Word8) ->                      -- channel_mapping : TCArray False 256 (-1) (TBasicType TUInt8)-    IO CInt--{- |-Parses Opus caps and fills the different fields with defaults if possible.--/Since: 1.8/--}-codecUtilsOpusParseCaps ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@caps@/: the 'GI.Gst.Structs.Caps.Caps' to parse the data from -}-    -> m ((Bool, Word32, Word8, Word8, Word8, Word8, ByteString))-    {- ^ __Returns:__ 'True' if parsing was successful, 'False' otherwise. -}-codecUtilsOpusParseCaps caps = liftIO $ do-    caps' <- unsafeManagedPtrGetPtr caps-    rate <- allocMem :: IO (Ptr Word32)-    channels <- allocMem :: IO (Ptr Word8)-    channelMappingFamily <- allocMem :: IO (Ptr Word8)-    streamCount <- allocMem :: IO (Ptr Word8)-    coupledCount <- allocMem :: IO (Ptr Word8)-    channelMapping <- allocMem :: IO (Ptr (Ptr Word8))-    result <- gst_codec_utils_opus_parse_caps caps' rate channels channelMappingFamily streamCount coupledCount channelMapping-    let result' = (/= 0) result-    rate' <- peek rate-    channels' <- peek channels-    channelMappingFamily' <- peek channelMappingFamily-    streamCount' <- peek streamCount-    coupledCount' <- peek coupledCount-    channelMapping' <- peek channelMapping-    channelMapping'' <- (unpackByteStringWithLength 256) channelMapping'-    freeMem channelMapping'-    touchManagedPtr caps-    freeMem rate-    freeMem channels-    freeMem channelMappingFamily-    freeMem streamCount-    freeMem coupledCount-    freeMem channelMapping-    return (result', rate', channels', channelMappingFamily', streamCount', coupledCount', channelMapping'')----- function gst_codec_utils_opus_create_header--- Args : [Arg {argCName = "rate", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the sample rate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "channels", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of channels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "channel_mapping_family", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the channel mapping family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream_count", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of independent streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coupled_count", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of stereo streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "channel_mapping", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the mapping between the streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pre_skip", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pre-skip in 48kHz samples or 0", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "output_gain", argType = TBasicType TInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Output gain or 0", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Buffer"}))--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_opus_create_header" gst_codec_utils_opus_create_header :: -    Word32 ->                               -- rate : TBasicType TUInt32-    Word8 ->                                -- channels : TBasicType TUInt8-    Word8 ->                                -- channel_mapping_family : TBasicType TUInt8-    Word8 ->                                -- stream_count : TBasicType TUInt8-    Word8 ->                                -- coupled_count : TBasicType TUInt8-    Ptr Word8 ->                            -- channel_mapping : TCArray False (-1) (-1) (TBasicType TUInt8)-    Word16 ->                               -- pre_skip : TBasicType TUInt16-    Int16 ->                                -- output_gain : TBasicType TInt16-    IO (Ptr Gst.Buffer.Buffer)--{- |-Creates OpusHead header from the given parameters.--/Since: 1.8/--}-codecUtilsOpusCreateHeader ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word32-    {- ^ /@rate@/: the sample rate -}-    -> Word8-    {- ^ /@channels@/: the number of channels -}-    -> Word8-    {- ^ /@channelMappingFamily@/: the channel mapping family -}-    -> Word8-    {- ^ /@streamCount@/: the number of independent streams -}-    -> Word8-    {- ^ /@coupledCount@/: the number of stereo streams -}-    -> Maybe (Ptr Word8)-    {- ^ /@channelMapping@/: the mapping between the streams -}-    -> Word16-    {- ^ /@preSkip@/: Pre-skip in 48kHz samples or 0 -}-    -> Int16-    {- ^ /@outputGain@/: Output gain or 0 -}-    -> m Gst.Buffer.Buffer-    {- ^ __Returns:__ The 'GI.Gst.Structs.Buffer.Buffer' containing the OpusHead. -}-codecUtilsOpusCreateHeader rate channels channelMappingFamily streamCount coupledCount channelMapping preSkip outputGain = liftIO $ do-    maybeChannelMapping <- case channelMapping of-        Nothing -> return nullPtr-        Just jChannelMapping -> do-            return jChannelMapping-    result <- gst_codec_utils_opus_create_header rate channels channelMappingFamily streamCount coupledCount maybeChannelMapping preSkip outputGain-    checkUnexpectedReturnNULL "codecUtilsOpusCreateHeader" result-    result' <- (wrapBoxed Gst.Buffer.Buffer) result-    return result'----- function gst_codec_utils_opus_create_caps_from_header--- Args : [Arg {argCName = "header", argType = TInterface (Name {namespace = "Gst", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "OpusHead header", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "comments", argType = TInterface (Name {namespace = "Gst", name = "Buffer"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Comment header or NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Caps"}))--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_opus_create_caps_from_header" gst_codec_utils_opus_create_caps_from_header :: -    Ptr Gst.Buffer.Buffer ->                -- header : TInterface (Name {namespace = "Gst", name = "Buffer"})-    Ptr Gst.Buffer.Buffer ->                -- comments : TInterface (Name {namespace = "Gst", name = "Buffer"})-    IO (Ptr Gst.Caps.Caps)--{- |-Creates Opus caps from the given OpusHead /@header@/ and comment header-/@comments@/.--/Since: 1.8/--}-codecUtilsOpusCreateCapsFromHeader ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Buffer.Buffer-    {- ^ /@header@/: OpusHead header -}-    -> Maybe (Gst.Buffer.Buffer)-    {- ^ /@comments@/: Comment header or NULL -}-    -> m Gst.Caps.Caps-    {- ^ __Returns:__ The 'GI.Gst.Structs.Caps.Caps'. -}-codecUtilsOpusCreateCapsFromHeader header comments = liftIO $ do-    header' <- unsafeManagedPtrGetPtr header-    maybeComments <- case comments of-        Nothing -> return nullPtr-        Just jComments -> do-            jComments' <- unsafeManagedPtrGetPtr jComments-            return jComments'-    result <- gst_codec_utils_opus_create_caps_from_header header' maybeComments-    checkUnexpectedReturnNULL "codecUtilsOpusCreateCapsFromHeader" result-    result' <- (wrapBoxed Gst.Caps.Caps) result-    touchManagedPtr header-    whenJust comments touchManagedPtr-    return result'----- function gst_codec_utils_opus_create_caps--- Args : [Arg {argCName = "rate", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the sample rate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "channels", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of channels", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "channel_mapping_family", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the channel mapping family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream_count", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of independent streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coupled_count", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of stereo streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "channel_mapping", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the mapping between the streams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Caps"}))--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_opus_create_caps" gst_codec_utils_opus_create_caps :: -    Word32 ->                               -- rate : TBasicType TUInt32-    Word8 ->                                -- channels : TBasicType TUInt8-    Word8 ->                                -- channel_mapping_family : TBasicType TUInt8-    Word8 ->                                -- stream_count : TBasicType TUInt8-    Word8 ->                                -- coupled_count : TBasicType TUInt8-    Ptr Word8 ->                            -- channel_mapping : TCArray False (-1) (-1) (TBasicType TUInt8)-    IO (Ptr Gst.Caps.Caps)--{- |-Creates Opus caps from the given parameters.--/Since: 1.8/--}-codecUtilsOpusCreateCaps ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word32-    {- ^ /@rate@/: the sample rate -}-    -> Word8-    {- ^ /@channels@/: the number of channels -}-    -> Word8-    {- ^ /@channelMappingFamily@/: the channel mapping family -}-    -> Word8-    {- ^ /@streamCount@/: the number of independent streams -}-    -> Word8-    {- ^ /@coupledCount@/: the number of stereo streams -}-    -> Maybe (Ptr Word8)-    {- ^ /@channelMapping@/: the mapping between the streams -}-    -> m Gst.Caps.Caps-    {- ^ __Returns:__ The 'GI.Gst.Structs.Caps.Caps', or 'Nothing' if the parameters would lead to-invalid Opus caps. -}-codecUtilsOpusCreateCaps rate channels channelMappingFamily streamCount coupledCount channelMapping = liftIO $ do-    maybeChannelMapping <- case channelMapping of-        Nothing -> return nullPtr-        Just jChannelMapping -> do-            return jChannelMapping-    result <- gst_codec_utils_opus_create_caps rate channels channelMappingFamily streamCount coupledCount maybeChannelMapping-    checkUnexpectedReturnNULL "codecUtilsOpusCreateCaps" result-    result' <- (wrapBoxed Gst.Caps.Caps) result-    return result'----- function gst_codec_utils_mpeg4video_get_profile--- Args : [Arg {argCName = "vis_obj_seq", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer to the visual object\n  sequence for the stream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_mpeg4video_get_profile" gst_codec_utils_mpeg4video_get_profile :: -    Ptr Word8 ->                            -- vis_obj_seq : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CString--{- |-Converts the profile indication in the stream\'s visual object sequence into-a string. /@visObjSeq@/ is expected to be the data following the visual-object sequence start code. Only the first byte-(profile_and_level_indication) is used.--}-codecUtilsMpeg4videoGetProfile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@visObjSeq@/: Pointer to the visual object-  sequence for the stream. -}-    -> m T.Text-    {- ^ __Returns:__ The profile as a const string, or NULL if there is an error. -}-codecUtilsMpeg4videoGetProfile visObjSeq = liftIO $ do-    let len = fromIntegral $ B.length visObjSeq-    visObjSeq' <- packByteString visObjSeq-    result <- gst_codec_utils_mpeg4video_get_profile visObjSeq' len-    checkUnexpectedReturnNULL "codecUtilsMpeg4videoGetProfile" result-    result' <- cstringToText result-    freeMem visObjSeq'-    return result'----- function gst_codec_utils_mpeg4video_get_level--- Args : [Arg {argCName = "vis_obj_seq", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer to the visual object\n  sequence for the stream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_mpeg4video_get_level" gst_codec_utils_mpeg4video_get_level :: -    Ptr Word8 ->                            -- vis_obj_seq : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CString--{- |-Converts the level indication in the stream\'s visual object sequence into-a string. /@visObjSeq@/ is expected to be the data following the visual-object sequence start code. Only the first byte-(profile_and_level_indication) is used.--}-codecUtilsMpeg4videoGetLevel ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@visObjSeq@/: Pointer to the visual object-  sequence for the stream. -}-    -> m T.Text-    {- ^ __Returns:__ The level as a const string, or NULL if there is an error. -}-codecUtilsMpeg4videoGetLevel visObjSeq = liftIO $ do-    let len = fromIntegral $ B.length visObjSeq-    visObjSeq' <- packByteString visObjSeq-    result <- gst_codec_utils_mpeg4video_get_level visObjSeq' len-    checkUnexpectedReturnNULL "codecUtilsMpeg4videoGetLevel" result-    result' <- cstringToText result-    freeMem visObjSeq'-    return result'----- function gst_codec_utils_mpeg4video_caps_set_level_and_profile--- Args : [Arg {argCName = "caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstCaps to which the level and profile are to be added", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vis_obj_seq", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer to the visual object\n  sequence for the stream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_mpeg4video_caps_set_level_and_profile" gst_codec_utils_mpeg4video_caps_set_level_and_profile :: -    Ptr Gst.Caps.Caps ->                    -- caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    Ptr Word8 ->                            -- vis_obj_seq : TCArray False (-1) 2 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CInt--{- |-Sets the level and profile in /@caps@/ if it can be determined from-/@visObjSeq@/. See 'GI.GstPbutils.Functions.codecUtilsMpeg4videoGetLevel' and-'GI.GstPbutils.Functions.codecUtilsMpeg4videoGetProfile' for more details on the-parameters.--}-codecUtilsMpeg4videoCapsSetLevelAndProfile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@caps@/: the 'GI.Gst.Structs.Caps.Caps' to which the level and profile are to be added -}-    -> ByteString-    {- ^ /@visObjSeq@/: Pointer to the visual object-  sequence for the stream. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the level and profile could be set, 'False' otherwise. -}-codecUtilsMpeg4videoCapsSetLevelAndProfile caps visObjSeq = liftIO $ do-    let len = fromIntegral $ B.length visObjSeq-    caps' <- unsafeManagedPtrGetPtr caps-    visObjSeq' <- packByteString visObjSeq-    result <- gst_codec_utils_mpeg4video_caps_set_level_and_profile caps' visObjSeq' len-    let result' = (/= 0) result-    touchManagedPtr caps-    freeMem visObjSeq'-    return result'----- function gst_codec_utils_h265_get_tier--- Args : [Arg {argCName = "profile_tier_level", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer to the profile_tier_level\n  for the stream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @profile_tier_level.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @profile_tier_level.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_h265_get_tier" gst_codec_utils_h265_get_tier :: -    Ptr Word8 ->                            -- profile_tier_level : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CString--{- |-Converts the tier indication (general_tier_flag) in the stream\'s-profile_tier_level structure into a string. The profile_tier_level-is expected to have the same format as for 'GI.GstPbutils.Functions.codecUtilsH264GetProfile'.--}-codecUtilsH265GetTier ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@profileTierLevel@/: Pointer to the profile_tier_level-  for the stream. -}-    -> m T.Text-    {- ^ __Returns:__ The tier as a const string, or 'Nothing' if there is an error.--Since 1.4 -}-codecUtilsH265GetTier profileTierLevel = liftIO $ do-    let len = fromIntegral $ B.length profileTierLevel-    profileTierLevel' <- packByteString profileTierLevel-    result <- gst_codec_utils_h265_get_tier profileTierLevel' len-    checkUnexpectedReturnNULL "codecUtilsH265GetTier" result-    result' <- cstringToText result-    freeMem profileTierLevel'-    return result'----- function gst_codec_utils_h265_get_profile--- Args : [Arg {argCName = "profile_tier_level", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer to the profile_tier_level\n  structure for the stream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @profile_tier_level", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @profile_tier_level", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_h265_get_profile" gst_codec_utils_h265_get_profile :: -    Ptr Word8 ->                            -- profile_tier_level : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CString--{- |-Converts the profile indication (general_profile_idc) in the stream\'s-profile_level_tier structure into a string. The profile_tier_level is-expected to have the following format, as defined in the H.265-specification. The profile_tier_level is viewed as a bitstream here,-with bit 0 being the most significant bit of the first byte.--* Bit 0:1   - general_profile_space-* Bit 2     - general_tier_flag-* Bit 3:7   - general_profile_idc-* Bit 8:39  - gernal_profile_compatibility_flags-* Bit 40    - general_progressive_source_flag-* Bit 41    - general_interlaced_source_flag-* Bit 42    - general_non_packed_constraint_flag-* Bit 43    - general_frame_only_constraint_flag-* Bit 44:87 - general_reserved_zero_44bits-* Bit 88:95 - general_level_idc--}-codecUtilsH265GetProfile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@profileTierLevel@/: Pointer to the profile_tier_level-  structure for the stream. -}-    -> m T.Text-    {- ^ __Returns:__ The profile as a const string, or 'Nothing' if there is an error.--Since 1.4 -}-codecUtilsH265GetProfile profileTierLevel = liftIO $ do-    let len = fromIntegral $ B.length profileTierLevel-    profileTierLevel' <- packByteString profileTierLevel-    result <- gst_codec_utils_h265_get_profile profileTierLevel' len-    checkUnexpectedReturnNULL "codecUtilsH265GetProfile" result-    result' <- cstringToText result-    freeMem profileTierLevel'-    return result'----- function gst_codec_utils_h265_get_level_idc--- Args : [Arg {argCName = "level", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A level string from caps", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_h265_get_level_idc" gst_codec_utils_h265_get_level_idc :: -    CString ->                              -- level : TBasicType TUTF8-    IO Word8--{- |-Transform a level string from the caps into the level_idc--}-codecUtilsH265GetLevelIdc ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@level@/: A level string from caps -}-    -> m Word8-    {- ^ __Returns:__ the level_idc or 0 if the level is unknown--Since 1.4 -}-codecUtilsH265GetLevelIdc level = liftIO $ do-    level' <- textToCString level-    result <- gst_codec_utils_h265_get_level_idc level'-    freeMem level'-    return result----- function gst_codec_utils_h265_get_level--- Args : [Arg {argCName = "profile_tier_level", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer to the profile_tier_level\n  for the stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @profile_tier_level.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @profile_tier_level.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_h265_get_level" gst_codec_utils_h265_get_level :: -    Ptr Word8 ->                            -- profile_tier_level : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CString--{- |-Converts the level indication (general_level_idc) in the stream\'s-profile_tier_level structure into a string. The profiel_tier_level is-expected to have the same format as for 'GI.GstPbutils.Functions.codecUtilsH264GetProfile'.--}-codecUtilsH265GetLevel ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@profileTierLevel@/: Pointer to the profile_tier_level-  for the stream -}-    -> m T.Text-    {- ^ __Returns:__ The level as a const string, or 'Nothing' if there is an error.--Since 1.4 -}-codecUtilsH265GetLevel profileTierLevel = liftIO $ do-    let len = fromIntegral $ B.length profileTierLevel-    profileTierLevel' <- packByteString profileTierLevel-    result <- gst_codec_utils_h265_get_level profileTierLevel' len-    checkUnexpectedReturnNULL "codecUtilsH265GetLevel" result-    result' <- cstringToText result-    freeMem profileTierLevel'-    return result'----- function gst_codec_utils_h265_caps_set_level_tier_and_profile--- Args : [Arg {argCName = "caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstCaps to which the level, tier and profile are to be added", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "profile_tier_level", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer to the profile_tier_level\n  struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @profile_tier_level.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @profile_tier_level.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_h265_caps_set_level_tier_and_profile" gst_codec_utils_h265_caps_set_level_tier_and_profile :: -    Ptr Gst.Caps.Caps ->                    -- caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    Ptr Word8 ->                            -- profile_tier_level : TCArray False (-1) 2 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CInt--{- |-Sets the level, tier and profile in /@caps@/ if it can be determined from-/@profileTierLevel@/. See 'GI.GstPbutils.Functions.codecUtilsH265GetLevel',-'GI.GstPbutils.Functions.codecUtilsH265GetTier' and 'GI.GstPbutils.Functions.codecUtilsH265GetProfile'-for more details on the parameters.--}-codecUtilsH265CapsSetLevelTierAndProfile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@caps@/: the 'GI.Gst.Structs.Caps.Caps' to which the level, tier and profile are to be added -}-    -> ByteString-    {- ^ /@profileTierLevel@/: Pointer to the profile_tier_level-  struct -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the level, tier, profile could be set, 'False' otherwise.--Since 1.4 -}-codecUtilsH265CapsSetLevelTierAndProfile caps profileTierLevel = liftIO $ do-    let len = fromIntegral $ B.length profileTierLevel-    caps' <- unsafeManagedPtrGetPtr caps-    profileTierLevel' <- packByteString profileTierLevel-    result <- gst_codec_utils_h265_caps_set_level_tier_and_profile caps' profileTierLevel' len-    let result' = (/= 0) result-    touchManagedPtr caps-    freeMem profileTierLevel'-    return result'----- function gst_codec_utils_h264_get_profile--- Args : [Arg {argCName = "sps", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer to the sequence parameter set for the stream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_h264_get_profile" gst_codec_utils_h264_get_profile :: -    Ptr Word8 ->                            -- sps : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CString--{- |-Converts the profile indication (profile_idc) in the stream\'s-sequence parameter set into a string. The SPS is expected to have the-following format, as defined in the H.264 specification. The SPS is viewed-as a bitstream here, with bit 0 being the most significant bit of the first-byte.--* Bit 0:7   - Profile indication-* Bit 8     - constraint_set0_flag-* Bit 9     - constraint_set1_flag-* Bit 10    - constraint_set2_flag-* Bit 11    - constraint_set3_flag-* Bit 12    - constraint_set3_flag-* Bit 13:15 - Reserved-* Bit 16:24 - Level indication--}-codecUtilsH264GetProfile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@sps@/: Pointer to the sequence parameter set for the stream. -}-    -> m T.Text-    {- ^ __Returns:__ The profile as a const string, or 'Nothing' if there is an error. -}-codecUtilsH264GetProfile sps = liftIO $ do-    let len = fromIntegral $ B.length sps-    sps' <- packByteString sps-    result <- gst_codec_utils_h264_get_profile sps' len-    checkUnexpectedReturnNULL "codecUtilsH264GetProfile" result-    result' <- cstringToText result-    freeMem sps'-    return result'----- function gst_codec_utils_h264_get_level_idc--- Args : [Arg {argCName = "level", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A level string from caps", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_h264_get_level_idc" gst_codec_utils_h264_get_level_idc :: -    CString ->                              -- level : TBasicType TUTF8-    IO Word8--{- |-Transform a level string from the caps into the level_idc--}-codecUtilsH264GetLevelIdc ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@level@/: A level string from caps -}-    -> m Word8-    {- ^ __Returns:__ the level_idc or 0 if the level is unknown -}-codecUtilsH264GetLevelIdc level = liftIO $ do-    level' <- textToCString level-    result <- gst_codec_utils_h264_get_level_idc level'-    freeMem level'-    return result----- function gst_codec_utils_h264_get_level--- Args : [Arg {argCName = "sps", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer to the sequence parameter set for the stream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_h264_get_level" gst_codec_utils_h264_get_level :: -    Ptr Word8 ->                            -- sps : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CString--{- |-Converts the level indication (level_idc) in the stream\'s-sequence parameter set into a string. The SPS is expected to have the-same format as for 'GI.GstPbutils.Functions.codecUtilsH264GetProfile'.--}-codecUtilsH264GetLevel ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@sps@/: Pointer to the sequence parameter set for the stream. -}-    -> m T.Text-    {- ^ __Returns:__ The level as a const string, or 'Nothing' if there is an error. -}-codecUtilsH264GetLevel sps = liftIO $ do-    let len = fromIntegral $ B.length sps-    sps' <- packByteString sps-    result <- gst_codec_utils_h264_get_level sps' len-    checkUnexpectedReturnNULL "codecUtilsH264GetLevel" result-    result' <- cstringToText result-    freeMem sps'-    return result'----- function gst_codec_utils_h264_caps_set_level_and_profile--- Args : [Arg {argCName = "caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstCaps to which the level and profile are to be added", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sps", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer to the sequence parameter set for the stream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of the data available in @sps.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_h264_caps_set_level_and_profile" gst_codec_utils_h264_caps_set_level_and_profile :: -    Ptr Gst.Caps.Caps ->                    -- caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    Ptr Word8 ->                            -- sps : TCArray False (-1) 2 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CInt--{- |-Sets the level and profile in /@caps@/ if it can be determined from /@sps@/. See-'GI.GstPbutils.Functions.codecUtilsH264GetLevel' and 'GI.GstPbutils.Functions.codecUtilsH264GetProfile'-for more details on the parameters.--}-codecUtilsH264CapsSetLevelAndProfile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@caps@/: the 'GI.Gst.Structs.Caps.Caps' to which the level and profile are to be added -}-    -> ByteString-    {- ^ /@sps@/: Pointer to the sequence parameter set for the stream. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the level and profile could be set, 'False' otherwise. -}-codecUtilsH264CapsSetLevelAndProfile caps sps = liftIO $ do-    let len = fromIntegral $ B.length sps-    caps' <- unsafeManagedPtrGetPtr caps-    sps' <- packByteString sps-    result <- gst_codec_utils_h264_caps_set_level_and_profile caps' sps' len-    let result' = (/= 0) result-    touchManagedPtr caps-    freeMem sps'-    return result'----- function gst_codec_utils_aac_get_sample_rate_from_index--- Args : [Arg {argCName = "sr_idx", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Sample rate index as from the AudioSpecificConfig (MPEG-4\n         container) or ADTS frame header", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_aac_get_sample_rate_from_index" gst_codec_utils_aac_get_sample_rate_from_index :: -    Word32 ->                               -- sr_idx : TBasicType TUInt-    IO Word32--{- |-Translates the sample rate index found in AAC headers to the actual sample-rate.--}-codecUtilsAacGetSampleRateFromIndex ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word32-    {- ^ /@srIdx@/: Sample rate index as from the AudioSpecificConfig (MPEG-4-         container) or ADTS frame header -}-    -> m Word32-    {- ^ __Returns:__ The sample rate if /@srIdx@/ is valid, 0 otherwise. -}-codecUtilsAacGetSampleRateFromIndex srIdx = liftIO $ do-    result <- gst_codec_utils_aac_get_sample_rate_from_index srIdx-    return result----- function gst_codec_utils_aac_get_sample_rate--- Args : [Arg {argCName = "audio_config", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to the AudioSpecificConfig\n               as specified in the Elementary Stream Descriptor (esds)\n               in ISO/IEC 14496-1.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of @audio_config", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of @audio_config", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_aac_get_sample_rate" gst_codec_utils_aac_get_sample_rate :: -    Ptr Word8 ->                            -- audio_config : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO Word32--{- |-Translates the sample rate index found in AAC headers to the actual sample-rate.--}-codecUtilsAacGetSampleRate ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@audioConfig@/: a pointer to the AudioSpecificConfig-               as specified in the Elementary Stream Descriptor (esds)-               in ISO\/IEC 14496-1. -}-    -> m Word32-    {- ^ __Returns:__ The sample rate if sr_idx is valid, 0 otherwise.--Since 1.10 -}-codecUtilsAacGetSampleRate audioConfig = liftIO $ do-    let len = fromIntegral $ B.length audioConfig-    audioConfig' <- packByteString audioConfig-    result <- gst_codec_utils_aac_get_sample_rate audioConfig' len-    freeMem audioConfig'-    return result----- function gst_codec_utils_aac_get_profile--- Args : [Arg {argCName = "audio_config", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to the AudioSpecificConfig\n               as specified in the Elementary Stream Descriptor (esds)\n               in ISO/IEC 14496-1.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of @audio_config in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of @audio_config in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_aac_get_profile" gst_codec_utils_aac_get_profile :: -    Ptr Word8 ->                            -- audio_config : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CString--{- |-Returns the profile of the given AAC stream as a string. The profile is-normally determined using the AudioObjectType field which is in the first-5 bits of /@audioConfig@/--}-codecUtilsAacGetProfile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@audioConfig@/: a pointer to the AudioSpecificConfig-               as specified in the Elementary Stream Descriptor (esds)-               in ISO\/IEC 14496-1. -}-    -> m T.Text-    {- ^ __Returns:__ The profile as a const string and 'Nothing' if the profile could not be-determined. -}-codecUtilsAacGetProfile audioConfig = liftIO $ do-    let len = fromIntegral $ B.length audioConfig-    audioConfig' <- packByteString audioConfig-    result <- gst_codec_utils_aac_get_profile audioConfig' len-    checkUnexpectedReturnNULL "codecUtilsAacGetProfile" result-    result' <- cstringToText result-    freeMem audioConfig'-    return result'----- function gst_codec_utils_aac_get_level--- Args : [Arg {argCName = "audio_config", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to the AudioSpecificConfig\n               as specified in the Elementary Stream Descriptor (esds)\n               in ISO/IEC 14496-1.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of @audio_config in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of @audio_config in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_aac_get_level" gst_codec_utils_aac_get_level :: -    Ptr Word8 ->                            -- audio_config : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CString--{- |-Determines the level of a stream as defined in ISO\/IEC 14496-3. For AAC LC-streams, the constraints from the AAC audio profile are applied. For AAC-Main, LTP, SSR and others, the Main profile is used.--The /@audioConfig@/ parameter follows the following format, starting from the-most significant bit of the first byte:--  * Bit 0:4 contains the AudioObjectType (if this is 0x5, then the-    real AudioObjectType is carried after the rate and channel data)-  * Bit 5:8 contains the sample frequency index (if this is 0xf, then the-    next 24 bits define the actual sample frequency, and subsequent-    fields are appropriately shifted).-  * Bit 9:12 contains the channel configuration--}-codecUtilsAacGetLevel ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@audioConfig@/: a pointer to the AudioSpecificConfig-               as specified in the Elementary Stream Descriptor (esds)-               in ISO\/IEC 14496-1. -}-    -> m T.Text-    {- ^ __Returns:__ The level as a const string and 'Nothing' if the level could not be-determined. -}-codecUtilsAacGetLevel audioConfig = liftIO $ do-    let len = fromIntegral $ B.length audioConfig-    audioConfig' <- packByteString audioConfig-    result <- gst_codec_utils_aac_get_level audioConfig' len-    checkUnexpectedReturnNULL "codecUtilsAacGetLevel" result-    result' <- cstringToText result-    freeMem audioConfig'-    return result'----- function gst_codec_utils_aac_get_index_from_sample_rate--- Args : [Arg {argCName = "rate", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Sample rate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_aac_get_index_from_sample_rate" gst_codec_utils_aac_get_index_from_sample_rate :: -    Word32 ->                               -- rate : TBasicType TUInt-    IO Int32--{- |-Translates the sample rate to the index corresponding to it in AAC spec.--}-codecUtilsAacGetIndexFromSampleRate ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word32-    {- ^ /@rate@/: Sample rate -}-    -> m Int32-    {- ^ __Returns:__ The AAC index for this sample rate, -1 if the rate is not a-valid AAC sample rate. -}-codecUtilsAacGetIndexFromSampleRate rate = liftIO $ do-    result <- gst_codec_utils_aac_get_index_from_sample_rate rate-    return result----- function gst_codec_utils_aac_get_channels--- Args : [Arg {argCName = "audio_config", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to the AudioSpecificConfig\n               as specified in the Elementary Stream Descriptor (esds)\n               in ISO/IEC 14496-1.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of @audio_config in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of @audio_config in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_aac_get_channels" gst_codec_utils_aac_get_channels :: -    Ptr Word8 ->                            -- audio_config : TCArray False (-1) 1 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO Word32--{- |-Returns the channels of the given AAC stream.--}-codecUtilsAacGetChannels ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@audioConfig@/: a pointer to the AudioSpecificConfig-               as specified in the Elementary Stream Descriptor (esds)-               in ISO\/IEC 14496-1. -}-    -> m Word32-    {- ^ __Returns:__ The channels or 0 if the channel could not be determined.--Since 1.10 -}-codecUtilsAacGetChannels audioConfig = liftIO $ do-    let len = fromIntegral $ B.length audioConfig-    audioConfig' <- packByteString audioConfig-    result <- gst_codec_utils_aac_get_channels audioConfig' len-    freeMem audioConfig'-    return result----- function gst_codec_utils_aac_caps_set_level_and_profile--- Args : [Arg {argCName = "caps", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstCaps to which level and profile fields are to be added", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "audio_config", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to the AudioSpecificConfig\n               as specified in the Elementary Stream Descriptor (esds)\n               in ISO/IEC 14496-1. (See below for more details)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of @audio_config in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of @audio_config in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_codec_utils_aac_caps_set_level_and_profile" gst_codec_utils_aac_caps_set_level_and_profile :: -    Ptr Gst.Caps.Caps ->                    -- caps : TInterface (Name {namespace = "Gst", name = "Caps"})-    Ptr Word8 ->                            -- audio_config : TCArray False (-1) 2 (TBasicType TUInt8)-    Word32 ->                               -- len : TBasicType TUInt-    IO CInt--{- |-Sets the level and profile on /@caps@/ if it can be determined from-/@audioConfig@/. See 'GI.GstPbutils.Functions.codecUtilsAacGetLevel' and-'GI.GstPbutils.Functions.codecUtilsAacGetProfile' for more details on the parameters.-/@caps@/ must be audio\/mpeg caps with an \"mpegversion\" field of either 2 or 4.-If mpegversion is 4, the \"base-profile\" field is also set in /@caps@/.--}-codecUtilsAacCapsSetLevelAndProfile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@caps@/: the 'GI.Gst.Structs.Caps.Caps' to which level and profile fields are to be added -}-    -> ByteString-    {- ^ /@audioConfig@/: a pointer to the AudioSpecificConfig-               as specified in the Elementary Stream Descriptor (esds)-               in ISO\/IEC 14496-1. (See below for more details) -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the level and profile could be set, 'False' otherwise. -}-codecUtilsAacCapsSetLevelAndProfile caps audioConfig = liftIO $ do-    let len = fromIntegral $ B.length audioConfig-    caps' <- unsafeManagedPtrGetPtr caps-    audioConfig' <- packByteString audioConfig-    result <- gst_codec_utils_aac_caps_set_level_and_profile caps' audioConfig' len-    let result' = (/= 0) result-    touchManagedPtr caps-    freeMem audioConfig'-    return result'---
− GI/GstPbutils/Objects.hs 
@@ -1,65 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects-    (     module GI.GstPbutils.Objects.AudioVisualizer,-    module GI.GstPbutils.Objects.Discoverer ,-    module GI.GstPbutils.Objects.DiscovererAudioInfo,-    module GI.GstPbutils.Objects.DiscovererContainerInfo,-    module GI.GstPbutils.Objects.DiscovererInfo,-    module GI.GstPbutils.Objects.DiscovererStreamInfo,-    module GI.GstPbutils.Objects.DiscovererSubtitleInfo,-    module GI.GstPbutils.Objects.DiscovererVideoInfo,-    module GI.GstPbutils.Objects.EncodingAudioProfile,-    module GI.GstPbutils.Objects.EncodingContainerProfile,-    module GI.GstPbutils.Objects.EncodingProfile,-    module GI.GstPbutils.Objects.EncodingTarget,-    module GI.GstPbutils.Objects.EncodingVideoProfile,---    ) where--import GI.GstPbutils.Objects.AudioVisualizer-import GI.GstPbutils.Objects.Discoverer-import GI.GstPbutils.Objects.DiscovererAudioInfo-import GI.GstPbutils.Objects.DiscovererContainerInfo-import GI.GstPbutils.Objects.DiscovererInfo-import GI.GstPbutils.Objects.DiscovererStreamInfo-import GI.GstPbutils.Objects.DiscovererSubtitleInfo-import GI.GstPbutils.Objects.DiscovererVideoInfo-import GI.GstPbutils.Objects.EncodingAudioProfile-import GI.GstPbutils.Objects.EncodingContainerProfile-import GI.GstPbutils.Objects.EncodingProfile-import GI.GstPbutils.Objects.EncodingTarget-import GI.GstPbutils.Objects.EncodingVideoProfile--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.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---
− GI/GstPbutils/Objects/AudioVisualizer.hs 
@@ -1,348 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A baseclass for scopes (visualizers). It takes care of re-fitting the-audio-rate to video-rate and handles renegotiation (downstream video size-changes).--It also provides several background shading effects. These effects are-applied to a previous picture before the @/render()/@ implementation can draw a-new frame.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.AudioVisualizer-    ( ---- * Exported types-    AudioVisualizer(..)                     ,-    IsAudioVisualizer                       ,-    toAudioVisualizer                       ,-    noAudioVisualizer                       ,--- -- * Properties--- ** shadeAmount #attr:shadeAmount#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AudioVisualizerShadeAmountPropertyInfo  ,-#endif-#if ENABLE_OVERLOADING-    audioVisualizerShadeAmount              ,-#endif-    constructAudioVisualizerShadeAmount     ,-    getAudioVisualizerShadeAmount           ,-    setAudioVisualizerShadeAmount           ,----- ** shader #attr:shader#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AudioVisualizerShaderPropertyInfo       ,-#endif-#if ENABLE_OVERLOADING-    audioVisualizerShader                   ,-#endif-    constructAudioVisualizerShader          ,-    getAudioVisualizerShader                ,-    setAudioVisualizerShader                ,-----    ) 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.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.Objects.Element as Gst.Element-import qualified GI.Gst.Objects.Object as Gst.Object-import {-# SOURCE #-} qualified GI.GstPbutils.Enums as GstPbutils.Enums---- | Memory-managed wrapper type.-newtype AudioVisualizer = AudioVisualizer (ManagedPtr AudioVisualizer)-foreign import ccall "gst_audio_visualizer_get_type"-    c_gst_audio_visualizer_get_type :: IO GType--instance GObject AudioVisualizer where-    gobjectType = c_gst_audio_visualizer_get_type-    ---- | Type class for types which can be safely cast to `AudioVisualizer`, for instance with `toAudioVisualizer`.-class (GObject o, O.IsDescendantOf AudioVisualizer o) => IsAudioVisualizer o-instance (GObject o, O.IsDescendantOf AudioVisualizer o) => IsAudioVisualizer o--instance O.HasParentTypes AudioVisualizer-type instance O.ParentTypes AudioVisualizer = '[Gst.Element.Element, Gst.Object.Object, GObject.Object.Object]---- | Cast to `AudioVisualizer`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAudioVisualizer :: (MonadIO m, IsAudioVisualizer o) => o -> m AudioVisualizer-toAudioVisualizer = liftIO . unsafeCastTo AudioVisualizer---- | A convenience alias for `Nothing` :: `Maybe` `AudioVisualizer`.-noAudioVisualizer :: Maybe AudioVisualizer-noAudioVisualizer = Nothing--#if ENABLE_OVERLOADING-type family ResolveAudioVisualizerMethod (t :: Symbol) (o :: *) :: * where-    ResolveAudioVisualizerMethod "abortState" o = Gst.Element.ElementAbortStateMethodInfo-    ResolveAudioVisualizerMethod "addControlBinding" o = Gst.Object.ObjectAddControlBindingMethodInfo-    ResolveAudioVisualizerMethod "addPad" o = Gst.Element.ElementAddPadMethodInfo-    ResolveAudioVisualizerMethod "addPropertyDeepNotifyWatch" o = Gst.Element.ElementAddPropertyDeepNotifyWatchMethodInfo-    ResolveAudioVisualizerMethod "addPropertyNotifyWatch" o = Gst.Element.ElementAddPropertyNotifyWatchMethodInfo-    ResolveAudioVisualizerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAudioVisualizerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAudioVisualizerMethod "callAsync" o = Gst.Element.ElementCallAsyncMethodInfo-    ResolveAudioVisualizerMethod "changeState" o = Gst.Element.ElementChangeStateMethodInfo-    ResolveAudioVisualizerMethod "continueState" o = Gst.Element.ElementContinueStateMethodInfo-    ResolveAudioVisualizerMethod "createAllPads" o = Gst.Element.ElementCreateAllPadsMethodInfo-    ResolveAudioVisualizerMethod "defaultError" o = Gst.Object.ObjectDefaultErrorMethodInfo-    ResolveAudioVisualizerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAudioVisualizerMethod "foreachPad" o = Gst.Element.ElementForeachPadMethodInfo-    ResolveAudioVisualizerMethod "foreachSinkPad" o = Gst.Element.ElementForeachSinkPadMethodInfo-    ResolveAudioVisualizerMethod "foreachSrcPad" o = Gst.Element.ElementForeachSrcPadMethodInfo-    ResolveAudioVisualizerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAudioVisualizerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAudioVisualizerMethod "hasActiveControlBindings" o = Gst.Object.ObjectHasActiveControlBindingsMethodInfo-    ResolveAudioVisualizerMethod "hasAncestor" o = Gst.Object.ObjectHasAncestorMethodInfo-    ResolveAudioVisualizerMethod "hasAsAncestor" o = Gst.Object.ObjectHasAsAncestorMethodInfo-    ResolveAudioVisualizerMethod "hasAsParent" o = Gst.Object.ObjectHasAsParentMethodInfo-    ResolveAudioVisualizerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAudioVisualizerMethod "isLockedState" o = Gst.Element.ElementIsLockedStateMethodInfo-    ResolveAudioVisualizerMethod "iteratePads" o = Gst.Element.ElementIteratePadsMethodInfo-    ResolveAudioVisualizerMethod "iterateSinkPads" o = Gst.Element.ElementIterateSinkPadsMethodInfo-    ResolveAudioVisualizerMethod "iterateSrcPads" o = Gst.Element.ElementIterateSrcPadsMethodInfo-    ResolveAudioVisualizerMethod "link" o = Gst.Element.ElementLinkMethodInfo-    ResolveAudioVisualizerMethod "linkFiltered" o = Gst.Element.ElementLinkFilteredMethodInfo-    ResolveAudioVisualizerMethod "linkPads" o = Gst.Element.ElementLinkPadsMethodInfo-    ResolveAudioVisualizerMethod "linkPadsFiltered" o = Gst.Element.ElementLinkPadsFilteredMethodInfo-    ResolveAudioVisualizerMethod "linkPadsFull" o = Gst.Element.ElementLinkPadsFullMethodInfo-    ResolveAudioVisualizerMethod "lostState" o = Gst.Element.ElementLostStateMethodInfo-    ResolveAudioVisualizerMethod "messageFull" o = Gst.Element.ElementMessageFullMethodInfo-    ResolveAudioVisualizerMethod "messageFullWithDetails" o = Gst.Element.ElementMessageFullWithDetailsMethodInfo-    ResolveAudioVisualizerMethod "noMorePads" o = Gst.Element.ElementNoMorePadsMethodInfo-    ResolveAudioVisualizerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAudioVisualizerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAudioVisualizerMethod "postMessage" o = Gst.Element.ElementPostMessageMethodInfo-    ResolveAudioVisualizerMethod "provideClock" o = Gst.Element.ElementProvideClockMethodInfo-    ResolveAudioVisualizerMethod "query" o = Gst.Element.ElementQueryMethodInfo-    ResolveAudioVisualizerMethod "queryConvert" o = Gst.Element.ElementQueryConvertMethodInfo-    ResolveAudioVisualizerMethod "queryDuration" o = Gst.Element.ElementQueryDurationMethodInfo-    ResolveAudioVisualizerMethod "queryPosition" o = Gst.Element.ElementQueryPositionMethodInfo-    ResolveAudioVisualizerMethod "ref" o = Gst.Object.ObjectRefMethodInfo-    ResolveAudioVisualizerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAudioVisualizerMethod "releaseRequestPad" o = Gst.Element.ElementReleaseRequestPadMethodInfo-    ResolveAudioVisualizerMethod "removeControlBinding" o = Gst.Object.ObjectRemoveControlBindingMethodInfo-    ResolveAudioVisualizerMethod "removePad" o = Gst.Element.ElementRemovePadMethodInfo-    ResolveAudioVisualizerMethod "removePropertyNotifyWatch" o = Gst.Element.ElementRemovePropertyNotifyWatchMethodInfo-    ResolveAudioVisualizerMethod "requestPad" o = Gst.Element.ElementRequestPadMethodInfo-    ResolveAudioVisualizerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAudioVisualizerMethod "seek" o = Gst.Element.ElementSeekMethodInfo-    ResolveAudioVisualizerMethod "seekSimple" o = Gst.Element.ElementSeekSimpleMethodInfo-    ResolveAudioVisualizerMethod "sendEvent" o = Gst.Element.ElementSendEventMethodInfo-    ResolveAudioVisualizerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAudioVisualizerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAudioVisualizerMethod "suggestNextSync" o = Gst.Object.ObjectSuggestNextSyncMethodInfo-    ResolveAudioVisualizerMethod "syncStateWithParent" o = Gst.Element.ElementSyncStateWithParentMethodInfo-    ResolveAudioVisualizerMethod "syncValues" o = Gst.Object.ObjectSyncValuesMethodInfo-    ResolveAudioVisualizerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAudioVisualizerMethod "unlink" o = Gst.Element.ElementUnlinkMethodInfo-    ResolveAudioVisualizerMethod "unlinkPads" o = Gst.Element.ElementUnlinkPadsMethodInfo-    ResolveAudioVisualizerMethod "unparent" o = Gst.Object.ObjectUnparentMethodInfo-    ResolveAudioVisualizerMethod "unref" o = Gst.Object.ObjectUnrefMethodInfo-    ResolveAudioVisualizerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAudioVisualizerMethod "getBaseTime" o = Gst.Element.ElementGetBaseTimeMethodInfo-    ResolveAudioVisualizerMethod "getBus" o = Gst.Element.ElementGetBusMethodInfo-    ResolveAudioVisualizerMethod "getClock" o = Gst.Element.ElementGetClockMethodInfo-    ResolveAudioVisualizerMethod "getCompatiblePad" o = Gst.Element.ElementGetCompatiblePadMethodInfo-    ResolveAudioVisualizerMethod "getCompatiblePadTemplate" o = Gst.Element.ElementGetCompatiblePadTemplateMethodInfo-    ResolveAudioVisualizerMethod "getContext" o = Gst.Element.ElementGetContextMethodInfo-    ResolveAudioVisualizerMethod "getContextUnlocked" o = Gst.Element.ElementGetContextUnlockedMethodInfo-    ResolveAudioVisualizerMethod "getContexts" o = Gst.Element.ElementGetContextsMethodInfo-    ResolveAudioVisualizerMethod "getControlBinding" o = Gst.Object.ObjectGetControlBindingMethodInfo-    ResolveAudioVisualizerMethod "getControlRate" o = Gst.Object.ObjectGetControlRateMethodInfo-    ResolveAudioVisualizerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAudioVisualizerMethod "getFactory" o = Gst.Element.ElementGetFactoryMethodInfo-    ResolveAudioVisualizerMethod "getGValueArray" o = Gst.Object.ObjectGetGValueArrayMethodInfo-    ResolveAudioVisualizerMethod "getMetadata" o = Gst.Element.ElementGetMetadataMethodInfo-    ResolveAudioVisualizerMethod "getName" o = Gst.Object.ObjectGetNameMethodInfo-    ResolveAudioVisualizerMethod "getPadTemplate" o = Gst.Element.ElementGetPadTemplateMethodInfo-    ResolveAudioVisualizerMethod "getPadTemplateList" o = Gst.Element.ElementGetPadTemplateListMethodInfo-    ResolveAudioVisualizerMethod "getParent" o = Gst.Object.ObjectGetParentMethodInfo-    ResolveAudioVisualizerMethod "getPathString" o = Gst.Object.ObjectGetPathStringMethodInfo-    ResolveAudioVisualizerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAudioVisualizerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAudioVisualizerMethod "getRequestPad" o = Gst.Element.ElementGetRequestPadMethodInfo-    ResolveAudioVisualizerMethod "getStartTime" o = Gst.Element.ElementGetStartTimeMethodInfo-    ResolveAudioVisualizerMethod "getState" o = Gst.Element.ElementGetStateMethodInfo-    ResolveAudioVisualizerMethod "getStaticPad" o = Gst.Element.ElementGetStaticPadMethodInfo-    ResolveAudioVisualizerMethod "getValue" o = Gst.Object.ObjectGetValueMethodInfo-    ResolveAudioVisualizerMethod "setBaseTime" o = Gst.Element.ElementSetBaseTimeMethodInfo-    ResolveAudioVisualizerMethod "setBus" o = Gst.Element.ElementSetBusMethodInfo-    ResolveAudioVisualizerMethod "setClock" o = Gst.Element.ElementSetClockMethodInfo-    ResolveAudioVisualizerMethod "setContext" o = Gst.Element.ElementSetContextMethodInfo-    ResolveAudioVisualizerMethod "setControlBindingDisabled" o = Gst.Object.ObjectSetControlBindingDisabledMethodInfo-    ResolveAudioVisualizerMethod "setControlBindingsDisabled" o = Gst.Object.ObjectSetControlBindingsDisabledMethodInfo-    ResolveAudioVisualizerMethod "setControlRate" o = Gst.Object.ObjectSetControlRateMethodInfo-    ResolveAudioVisualizerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAudioVisualizerMethod "setLockedState" o = Gst.Element.ElementSetLockedStateMethodInfo-    ResolveAudioVisualizerMethod "setName" o = Gst.Object.ObjectSetNameMethodInfo-    ResolveAudioVisualizerMethod "setParent" o = Gst.Object.ObjectSetParentMethodInfo-    ResolveAudioVisualizerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAudioVisualizerMethod "setStartTime" o = Gst.Element.ElementSetStartTimeMethodInfo-    ResolveAudioVisualizerMethod "setState" o = Gst.Element.ElementSetStateMethodInfo-    ResolveAudioVisualizerMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAudioVisualizerMethod t AudioVisualizer, O.MethodInfo info AudioVisualizer p) => OL.IsLabel t (AudioVisualizer -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "shade-amount"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@shade-amount@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' audioVisualizer #shadeAmount-@--}-getAudioVisualizerShadeAmount :: (MonadIO m, IsAudioVisualizer o) => o -> m Word32-getAudioVisualizerShadeAmount obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "shade-amount"--{- |-Set the value of the “@shade-amount@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' audioVisualizer [ #shadeAmount 'Data.GI.Base.Attributes.:=' value ]-@--}-setAudioVisualizerShadeAmount :: (MonadIO m, IsAudioVisualizer o) => o -> Word32 -> m ()-setAudioVisualizerShadeAmount obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "shade-amount" val--{- |-Construct a `GValueConstruct` with valid value for the “@shade-amount@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAudioVisualizerShadeAmount :: (IsAudioVisualizer o) => Word32 -> IO (GValueConstruct o)-constructAudioVisualizerShadeAmount val = B.Properties.constructObjectPropertyUInt32 "shade-amount" val--#if ENABLE_OVERLOADING-data AudioVisualizerShadeAmountPropertyInfo-instance AttrInfo AudioVisualizerShadeAmountPropertyInfo where-    type AttrAllowedOps AudioVisualizerShadeAmountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AudioVisualizerShadeAmountPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint AudioVisualizerShadeAmountPropertyInfo = IsAudioVisualizer-    type AttrGetType AudioVisualizerShadeAmountPropertyInfo = Word32-    type AttrLabel AudioVisualizerShadeAmountPropertyInfo = "shade-amount"-    type AttrOrigin AudioVisualizerShadeAmountPropertyInfo = AudioVisualizer-    attrGet _ = getAudioVisualizerShadeAmount-    attrSet _ = setAudioVisualizerShadeAmount-    attrConstruct _ = constructAudioVisualizerShadeAmount-    attrClear _ = undefined-#endif---- VVV Prop "shader"-   -- Type: TInterface (Name {namespace = "GstPbutils", name = "AudioVisualizerShader"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@shader@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' audioVisualizer #shader-@--}-getAudioVisualizerShader :: (MonadIO m, IsAudioVisualizer o) => o -> m GstPbutils.Enums.AudioVisualizerShader-getAudioVisualizerShader obj = liftIO $ B.Properties.getObjectPropertyEnum obj "shader"--{- |-Set the value of the “@shader@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' audioVisualizer [ #shader 'Data.GI.Base.Attributes.:=' value ]-@--}-setAudioVisualizerShader :: (MonadIO m, IsAudioVisualizer o) => o -> GstPbutils.Enums.AudioVisualizerShader -> m ()-setAudioVisualizerShader obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "shader" val--{- |-Construct a `GValueConstruct` with valid value for the “@shader@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAudioVisualizerShader :: (IsAudioVisualizer o) => GstPbutils.Enums.AudioVisualizerShader -> IO (GValueConstruct o)-constructAudioVisualizerShader val = B.Properties.constructObjectPropertyEnum "shader" val--#if ENABLE_OVERLOADING-data AudioVisualizerShaderPropertyInfo-instance AttrInfo AudioVisualizerShaderPropertyInfo where-    type AttrAllowedOps AudioVisualizerShaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AudioVisualizerShaderPropertyInfo = (~) GstPbutils.Enums.AudioVisualizerShader-    type AttrBaseTypeConstraint AudioVisualizerShaderPropertyInfo = IsAudioVisualizer-    type AttrGetType AudioVisualizerShaderPropertyInfo = GstPbutils.Enums.AudioVisualizerShader-    type AttrLabel AudioVisualizerShaderPropertyInfo = "shader"-    type AttrOrigin AudioVisualizerShaderPropertyInfo = AudioVisualizer-    attrGet _ = getAudioVisualizerShader-    attrSet _ = setAudioVisualizerShader-    attrConstruct _ = constructAudioVisualizerShader-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList AudioVisualizer-type instance O.AttributeList AudioVisualizer = AudioVisualizerAttributeList-type AudioVisualizerAttributeList = ('[ '("name", Gst.Object.ObjectNamePropertyInfo), '("parent", Gst.Object.ObjectParentPropertyInfo), '("shadeAmount", AudioVisualizerShadeAmountPropertyInfo), '("shader", AudioVisualizerShaderPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-audioVisualizerShadeAmount :: AttrLabelProxy "shadeAmount"-audioVisualizerShadeAmount = AttrLabelProxy--audioVisualizerShader :: AttrLabelProxy "shader"-audioVisualizerShader = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList AudioVisualizer = AudioVisualizerSignalList-type AudioVisualizerSignalList = ('[ '("deepNotify", Gst.Object.ObjectDeepNotifySignalInfo), '("noMorePads", Gst.Element.ElementNoMorePadsSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("padAdded", Gst.Element.ElementPadAddedSignalInfo), '("padRemoved", Gst.Element.ElementPadRemovedSignalInfo)] :: [(Symbol, *)])--#endif--
− GI/GstPbutils/Objects/AudioVisualizer.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.AudioVisualizer 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.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--newtype AudioVisualizer = AudioVisualizer (ManagedPtr AudioVisualizer)-instance GObject AudioVisualizer where-class (GObject o, O.IsDescendantOf AudioVisualizer o) => IsAudioVisualizer o-instance (GObject o, O.IsDescendantOf AudioVisualizer o) => IsAudioVisualizer o-instance O.HasParentTypes AudioVisualizer-#if ENABLE_OVERLOADING-data AudioVisualizerShadeAmountPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AudioVisualizerShaderPropertyInfo-#endif
− GI/GstPbutils/Objects/Discoverer.hs 
@@ -1,909 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.GstPbutils.Objects.Discoverer.Discoverer' is a utility object which allows to get as much-information as possible from one or many URIs.--It provides two APIs, allowing usage in blocking or non-blocking mode.--The blocking mode just requires calling 'GI.GstPbutils.Objects.Discoverer.discovererDiscoverUri'-with the URI one wishes to discover.--The non-blocking mode requires a running 'GI.GLib.Structs.MainLoop.MainLoop' iterating a-'GI.GLib.Structs.MainContext.MainContext', where one connects to the various signals, appends the-URIs to be processed (through 'GI.GstPbutils.Objects.Discoverer.discovererDiscoverUriAsync') and then-asks for the discovery to begin (through 'GI.GstPbutils.Objects.Discoverer.discovererStart').-By default this will use the GLib default main context unless you have-set a custom context using 'GI.GLib.Structs.MainContext.mainContextPushThreadDefault'.--All the information is returned in a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' structure.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.Discoverer-    ( ---- * Exported types-    Discoverer(..)                          ,-    IsDiscoverer                            ,-    toDiscoverer                            ,-    noDiscoverer                            ,--- -- * Methods--- ** discoverUri #method:discoverUri#--#if ENABLE_OVERLOADING-    DiscovererDiscoverUriMethodInfo         ,-#endif-    discovererDiscoverUri                   ,----- ** discoverUriAsync #method:discoverUriAsync#--#if ENABLE_OVERLOADING-    DiscovererDiscoverUriAsyncMethodInfo    ,-#endif-    discovererDiscoverUriAsync              ,----- ** new #method:new#--    discovererNew                           ,----- ** start #method:start#--#if ENABLE_OVERLOADING-    DiscovererStartMethodInfo               ,-#endif-    discovererStart                         ,----- ** stop #method:stop#--#if ENABLE_OVERLOADING-    DiscovererStopMethodInfo                ,-#endif-    discovererStop                          ,----- -- * Properties--- ** timeout #attr:timeout#-{- | The duration (in nanoseconds) after which the discovery of an individual-URI will timeout.--If the discovery of a URI times out, the 'GI.GstPbutils.Enums.DiscovererResultTimeout' will be-set on the result flags.--}-#if ENABLE_OVERLOADING-    DiscovererTimeoutPropertyInfo           ,-#endif-    constructDiscovererTimeout              ,-#if ENABLE_OVERLOADING-    discovererTimeout                       ,-#endif-    getDiscovererTimeout                    ,-    setDiscovererTimeout                    ,----- ** useCache #attr:useCache#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    DiscovererUseCachePropertyInfo          ,-#endif-    constructDiscovererUseCache             ,-#if ENABLE_OVERLOADING-    discovererUseCache                      ,-#endif-    getDiscovererUseCache                   ,-    setDiscovererUseCache                   ,----- -- * Signals--- ** discovered #signal:discovered#--    C_DiscovererDiscoveredCallback          ,-    DiscovererDiscoveredCallback            ,-#if ENABLE_OVERLOADING-    DiscovererDiscoveredSignalInfo          ,-#endif-    afterDiscovererDiscovered               ,-    genClosure_DiscovererDiscovered         ,-    mk_DiscovererDiscoveredCallback         ,-    noDiscovererDiscoveredCallback          ,-    onDiscovererDiscovered                  ,-    wrap_DiscovererDiscoveredCallback       ,----- ** finished #signal:finished#--    C_DiscovererFinishedCallback            ,-    DiscovererFinishedCallback              ,-#if ENABLE_OVERLOADING-    DiscovererFinishedSignalInfo            ,-#endif-    afterDiscovererFinished                 ,-    genClosure_DiscovererFinished           ,-    mk_DiscovererFinishedCallback           ,-    noDiscovererFinishedCallback            ,-    onDiscovererFinished                    ,-    wrap_DiscovererFinishedCallback         ,----- ** sourceSetup #signal:sourceSetup#--    C_DiscovererSourceSetupCallback         ,-    DiscovererSourceSetupCallback           ,-#if ENABLE_OVERLOADING-    DiscovererSourceSetupSignalInfo         ,-#endif-    afterDiscovererSourceSetup              ,-    genClosure_DiscovererSourceSetup        ,-    mk_DiscovererSourceSetupCallback        ,-    noDiscovererSourceSetupCallback         ,-    onDiscovererSourceSetup                 ,-    wrap_DiscovererSourceSetupCallback      ,----- ** starting #signal:starting#--    C_DiscovererStartingCallback            ,-    DiscovererStartingCallback              ,-#if ENABLE_OVERLOADING-    DiscovererStartingSignalInfo            ,-#endif-    afterDiscovererStarting                 ,-    genClosure_DiscovererStarting           ,-    mk_DiscovererStartingCallback           ,-    noDiscovererStartingCallback            ,-    onDiscovererStarting                    ,-    wrap_DiscovererStartingCallback         ,-----    ) 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.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.Objects.Element as Gst.Element-import {-# SOURCE #-} qualified GI.GstPbutils.Objects.DiscovererInfo as GstPbutils.DiscovererInfo---- | Memory-managed wrapper type.-newtype Discoverer = Discoverer (ManagedPtr Discoverer)-foreign import ccall "gst_discoverer_get_type"-    c_gst_discoverer_get_type :: IO GType--instance GObject Discoverer where-    gobjectType = c_gst_discoverer_get_type-    ---- | Type class for types which can be safely cast to `Discoverer`, for instance with `toDiscoverer`.-class (GObject o, O.IsDescendantOf Discoverer o) => IsDiscoverer o-instance (GObject o, O.IsDescendantOf Discoverer o) => IsDiscoverer o--instance O.HasParentTypes Discoverer-type instance O.ParentTypes Discoverer = '[GObject.Object.Object]---- | Cast to `Discoverer`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDiscoverer :: (MonadIO m, IsDiscoverer o) => o -> m Discoverer-toDiscoverer = liftIO . unsafeCastTo Discoverer---- | A convenience alias for `Nothing` :: `Maybe` `Discoverer`.-noDiscoverer :: Maybe Discoverer-noDiscoverer = Nothing--#if ENABLE_OVERLOADING-type family ResolveDiscovererMethod (t :: Symbol) (o :: *) :: * where-    ResolveDiscovererMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDiscovererMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDiscovererMethod "discoverUri" o = DiscovererDiscoverUriMethodInfo-    ResolveDiscovererMethod "discoverUriAsync" o = DiscovererDiscoverUriAsyncMethodInfo-    ResolveDiscovererMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDiscovererMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDiscovererMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDiscovererMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDiscovererMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDiscovererMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDiscovererMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDiscovererMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDiscovererMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDiscovererMethod "start" o = DiscovererStartMethodInfo-    ResolveDiscovererMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDiscovererMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDiscovererMethod "stop" o = DiscovererStopMethodInfo-    ResolveDiscovererMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDiscovererMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDiscovererMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDiscovererMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDiscovererMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDiscovererMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDiscovererMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDiscovererMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDiscovererMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDiscovererMethod t Discoverer, O.MethodInfo info Discoverer p) => OL.IsLabel t (Discoverer -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- signal Discoverer::discovered-{- |-Will be emitted in async mode when all information on a URI could be-discovered, or an error occurred.--When an error occurs, /@info@/ might still contain some partial information,-depending on the circumstances of the error.--}-type DiscovererDiscoveredCallback =-    GstPbutils.DiscovererInfo.DiscovererInfo-    {- ^ /@info@/: the results 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> Maybe GError-    {- ^ /@error@/: 'GError', which will be non-NULL-                                        if an error occurred during-                                        discovery. You must not free-                                        this 'GError', it will be freed by-                                        the discoverer. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DiscovererDiscoveredCallback`@.-noDiscovererDiscoveredCallback :: Maybe DiscovererDiscoveredCallback-noDiscovererDiscoveredCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DiscovererDiscoveredCallback =-    Ptr () ->                               -- object-    Ptr GstPbutils.DiscovererInfo.DiscovererInfo ->-    Ptr GError ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DiscovererDiscoveredCallback`.-foreign import ccall "wrapper"-    mk_DiscovererDiscoveredCallback :: C_DiscovererDiscoveredCallback -> IO (FunPtr C_DiscovererDiscoveredCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DiscovererDiscovered :: MonadIO m => DiscovererDiscoveredCallback -> m (GClosure C_DiscovererDiscoveredCallback)-genClosure_DiscovererDiscovered cb = liftIO $ do-    let cb' = wrap_DiscovererDiscoveredCallback cb-    mk_DiscovererDiscoveredCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DiscovererDiscoveredCallback` into a `C_DiscovererDiscoveredCallback`.-wrap_DiscovererDiscoveredCallback ::-    DiscovererDiscoveredCallback ->-    C_DiscovererDiscoveredCallback-wrap_DiscovererDiscoveredCallback _cb _ info error_ _ = do-    info' <- (newObject GstPbutils.DiscovererInfo.DiscovererInfo) info-    maybeError_ <--        if error_ == nullPtr-        then return Nothing-        else do-            error_' <- (newBoxed GError) error_-            return $ Just error_'-    _cb  info' maybeError_---{- |-Connect a signal handler for the “@discovered@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' discoverer #discovered callback-@--}-onDiscovererDiscovered :: (IsDiscoverer a, MonadIO m) => a -> DiscovererDiscoveredCallback -> m SignalHandlerId-onDiscovererDiscovered obj cb = liftIO $ do-    let cb' = wrap_DiscovererDiscoveredCallback cb-    cb'' <- mk_DiscovererDiscoveredCallback cb'-    connectSignalFunPtr obj "discovered" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@discovered@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' discoverer #discovered callback-@--}-afterDiscovererDiscovered :: (IsDiscoverer a, MonadIO m) => a -> DiscovererDiscoveredCallback -> m SignalHandlerId-afterDiscovererDiscovered obj cb = liftIO $ do-    let cb' = wrap_DiscovererDiscoveredCallback cb-    cb'' <- mk_DiscovererDiscoveredCallback cb'-    connectSignalFunPtr obj "discovered" cb'' SignalConnectAfter----- signal Discoverer::finished-{- |-Will be emitted in async mode when all pending URIs have been processed.--}-type DiscovererFinishedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DiscovererFinishedCallback`@.-noDiscovererFinishedCallback :: Maybe DiscovererFinishedCallback-noDiscovererFinishedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DiscovererFinishedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DiscovererFinishedCallback`.-foreign import ccall "wrapper"-    mk_DiscovererFinishedCallback :: C_DiscovererFinishedCallback -> IO (FunPtr C_DiscovererFinishedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DiscovererFinished :: MonadIO m => DiscovererFinishedCallback -> m (GClosure C_DiscovererFinishedCallback)-genClosure_DiscovererFinished cb = liftIO $ do-    let cb' = wrap_DiscovererFinishedCallback cb-    mk_DiscovererFinishedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DiscovererFinishedCallback` into a `C_DiscovererFinishedCallback`.-wrap_DiscovererFinishedCallback ::-    DiscovererFinishedCallback ->-    C_DiscovererFinishedCallback-wrap_DiscovererFinishedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@finished@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' discoverer #finished callback-@--}-onDiscovererFinished :: (IsDiscoverer a, MonadIO m) => a -> DiscovererFinishedCallback -> m SignalHandlerId-onDiscovererFinished obj cb = liftIO $ do-    let cb' = wrap_DiscovererFinishedCallback cb-    cb'' <- mk_DiscovererFinishedCallback cb'-    connectSignalFunPtr obj "finished" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@finished@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' discoverer #finished callback-@--}-afterDiscovererFinished :: (IsDiscoverer a, MonadIO m) => a -> DiscovererFinishedCallback -> m SignalHandlerId-afterDiscovererFinished obj cb = liftIO $ do-    let cb' = wrap_DiscovererFinishedCallback cb-    cb'' <- mk_DiscovererFinishedCallback cb'-    connectSignalFunPtr obj "finished" cb'' SignalConnectAfter----- signal Discoverer::source-setup-{- |-This signal is emitted after the source element has been created for, so-the URI being discovered, so it can be configured by setting additional-properties (e.g. set a proxy server for an http source, or set the device-and read speed for an audio cd source).--This signal is usually emitted from the context of a GStreamer streaming-thread.--}-type DiscovererSourceSetupCallback =-    Gst.Element.Element-    {- ^ /@source@/: source element -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DiscovererSourceSetupCallback`@.-noDiscovererSourceSetupCallback :: Maybe DiscovererSourceSetupCallback-noDiscovererSourceSetupCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DiscovererSourceSetupCallback =-    Ptr () ->                               -- object-    Ptr Gst.Element.Element ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DiscovererSourceSetupCallback`.-foreign import ccall "wrapper"-    mk_DiscovererSourceSetupCallback :: C_DiscovererSourceSetupCallback -> IO (FunPtr C_DiscovererSourceSetupCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DiscovererSourceSetup :: MonadIO m => DiscovererSourceSetupCallback -> m (GClosure C_DiscovererSourceSetupCallback)-genClosure_DiscovererSourceSetup cb = liftIO $ do-    let cb' = wrap_DiscovererSourceSetupCallback cb-    mk_DiscovererSourceSetupCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DiscovererSourceSetupCallback` into a `C_DiscovererSourceSetupCallback`.-wrap_DiscovererSourceSetupCallback ::-    DiscovererSourceSetupCallback ->-    C_DiscovererSourceSetupCallback-wrap_DiscovererSourceSetupCallback _cb _ source _ = do-    source' <- (newObject Gst.Element.Element) source-    _cb  source'---{- |-Connect a signal handler for the “@source-setup@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' discoverer #sourceSetup callback-@--}-onDiscovererSourceSetup :: (IsDiscoverer a, MonadIO m) => a -> DiscovererSourceSetupCallback -> m SignalHandlerId-onDiscovererSourceSetup obj cb = liftIO $ do-    let cb' = wrap_DiscovererSourceSetupCallback cb-    cb'' <- mk_DiscovererSourceSetupCallback cb'-    connectSignalFunPtr obj "source-setup" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@source-setup@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' discoverer #sourceSetup callback-@--}-afterDiscovererSourceSetup :: (IsDiscoverer a, MonadIO m) => a -> DiscovererSourceSetupCallback -> m SignalHandlerId-afterDiscovererSourceSetup obj cb = liftIO $ do-    let cb' = wrap_DiscovererSourceSetupCallback cb-    cb'' <- mk_DiscovererSourceSetupCallback cb'-    connectSignalFunPtr obj "source-setup" cb'' SignalConnectAfter----- signal Discoverer::starting-{- |-Will be emitted when the discover starts analyzing the pending URIs--}-type DiscovererStartingCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DiscovererStartingCallback`@.-noDiscovererStartingCallback :: Maybe DiscovererStartingCallback-noDiscovererStartingCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DiscovererStartingCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DiscovererStartingCallback`.-foreign import ccall "wrapper"-    mk_DiscovererStartingCallback :: C_DiscovererStartingCallback -> IO (FunPtr C_DiscovererStartingCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DiscovererStarting :: MonadIO m => DiscovererStartingCallback -> m (GClosure C_DiscovererStartingCallback)-genClosure_DiscovererStarting cb = liftIO $ do-    let cb' = wrap_DiscovererStartingCallback cb-    mk_DiscovererStartingCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DiscovererStartingCallback` into a `C_DiscovererStartingCallback`.-wrap_DiscovererStartingCallback ::-    DiscovererStartingCallback ->-    C_DiscovererStartingCallback-wrap_DiscovererStartingCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@starting@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' discoverer #starting callback-@--}-onDiscovererStarting :: (IsDiscoverer a, MonadIO m) => a -> DiscovererStartingCallback -> m SignalHandlerId-onDiscovererStarting obj cb = liftIO $ do-    let cb' = wrap_DiscovererStartingCallback cb-    cb'' <- mk_DiscovererStartingCallback cb'-    connectSignalFunPtr obj "starting" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@starting@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' discoverer #starting callback-@--}-afterDiscovererStarting :: (IsDiscoverer a, MonadIO m) => a -> DiscovererStartingCallback -> m SignalHandlerId-afterDiscovererStarting obj cb = liftIO $ do-    let cb' = wrap_DiscovererStartingCallback cb-    cb'' <- mk_DiscovererStartingCallback cb'-    connectSignalFunPtr obj "starting" cb'' SignalConnectAfter----- VVV Prop "timeout"-   -- Type: TBasicType TUInt64-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' discoverer #timeout-@--}-getDiscovererTimeout :: (MonadIO m, IsDiscoverer o) => o -> m Word64-getDiscovererTimeout obj = liftIO $ B.Properties.getObjectPropertyUInt64 obj "timeout"--{- |-Set the value of the “@timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' discoverer [ #timeout 'Data.GI.Base.Attributes.:=' value ]-@--}-setDiscovererTimeout :: (MonadIO m, IsDiscoverer o) => o -> Word64 -> m ()-setDiscovererTimeout obj val = liftIO $ B.Properties.setObjectPropertyUInt64 obj "timeout" val--{- |-Construct a `GValueConstruct` with valid value for the “@timeout@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDiscovererTimeout :: (IsDiscoverer o) => Word64 -> IO (GValueConstruct o)-constructDiscovererTimeout val = B.Properties.constructObjectPropertyUInt64 "timeout" val--#if ENABLE_OVERLOADING-data DiscovererTimeoutPropertyInfo-instance AttrInfo DiscovererTimeoutPropertyInfo where-    type AttrAllowedOps DiscovererTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DiscovererTimeoutPropertyInfo = (~) Word64-    type AttrBaseTypeConstraint DiscovererTimeoutPropertyInfo = IsDiscoverer-    type AttrGetType DiscovererTimeoutPropertyInfo = Word64-    type AttrLabel DiscovererTimeoutPropertyInfo = "timeout"-    type AttrOrigin DiscovererTimeoutPropertyInfo = Discoverer-    attrGet _ = getDiscovererTimeout-    attrSet _ = setDiscovererTimeout-    attrConstruct _ = constructDiscovererTimeout-    attrClear _ = undefined-#endif---- VVV Prop "use-cache"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@use-cache@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' discoverer #useCache-@--}-getDiscovererUseCache :: (MonadIO m, IsDiscoverer o) => o -> m Bool-getDiscovererUseCache obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-cache"--{- |-Set the value of the “@use-cache@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' discoverer [ #useCache 'Data.GI.Base.Attributes.:=' value ]-@--}-setDiscovererUseCache :: (MonadIO m, IsDiscoverer o) => o -> Bool -> m ()-setDiscovererUseCache obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-cache" val--{- |-Construct a `GValueConstruct` with valid value for the “@use-cache@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDiscovererUseCache :: (IsDiscoverer o) => Bool -> IO (GValueConstruct o)-constructDiscovererUseCache val = B.Properties.constructObjectPropertyBool "use-cache" val--#if ENABLE_OVERLOADING-data DiscovererUseCachePropertyInfo-instance AttrInfo DiscovererUseCachePropertyInfo where-    type AttrAllowedOps DiscovererUseCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DiscovererUseCachePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint DiscovererUseCachePropertyInfo = IsDiscoverer-    type AttrGetType DiscovererUseCachePropertyInfo = Bool-    type AttrLabel DiscovererUseCachePropertyInfo = "use-cache"-    type AttrOrigin DiscovererUseCachePropertyInfo = Discoverer-    attrGet _ = getDiscovererUseCache-    attrSet _ = setDiscovererUseCache-    attrConstruct _ = constructDiscovererUseCache-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Discoverer-type instance O.AttributeList Discoverer = DiscovererAttributeList-type DiscovererAttributeList = ('[ '("timeout", DiscovererTimeoutPropertyInfo), '("useCache", DiscovererUseCachePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-discovererTimeout :: AttrLabelProxy "timeout"-discovererTimeout = AttrLabelProxy--discovererUseCache :: AttrLabelProxy "useCache"-discovererUseCache = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data DiscovererDiscoveredSignalInfo-instance SignalInfo DiscovererDiscoveredSignalInfo where-    type HaskellCallbackType DiscovererDiscoveredSignalInfo = DiscovererDiscoveredCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DiscovererDiscoveredCallback cb-        cb'' <- mk_DiscovererDiscoveredCallback cb'-        connectSignalFunPtr obj "discovered" cb'' connectMode--data DiscovererFinishedSignalInfo-instance SignalInfo DiscovererFinishedSignalInfo where-    type HaskellCallbackType DiscovererFinishedSignalInfo = DiscovererFinishedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DiscovererFinishedCallback cb-        cb'' <- mk_DiscovererFinishedCallback cb'-        connectSignalFunPtr obj "finished" cb'' connectMode--data DiscovererSourceSetupSignalInfo-instance SignalInfo DiscovererSourceSetupSignalInfo where-    type HaskellCallbackType DiscovererSourceSetupSignalInfo = DiscovererSourceSetupCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DiscovererSourceSetupCallback cb-        cb'' <- mk_DiscovererSourceSetupCallback cb'-        connectSignalFunPtr obj "source-setup" cb'' connectMode--data DiscovererStartingSignalInfo-instance SignalInfo DiscovererStartingSignalInfo where-    type HaskellCallbackType DiscovererStartingSignalInfo = DiscovererStartingCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DiscovererStartingCallback cb-        cb'' <- mk_DiscovererStartingCallback cb'-        connectSignalFunPtr obj "starting" cb'' connectMode--type instance O.SignalList Discoverer = DiscovererSignalList-type DiscovererSignalList = ('[ '("discovered", DiscovererDiscoveredSignalInfo), '("finished", DiscovererFinishedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("sourceSetup", DiscovererSourceSetupSignalInfo), '("starting", DiscovererStartingSignalInfo)] :: [(Symbol, *)])--#endif---- method Discoverer::new--- method type : Constructor--- Args : [Arg {argCName = "timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "timeout per file, in nanoseconds. Allowed are values between\n    one second (#GST_SECOND) and one hour (3600 * #GST_SECOND)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "Discoverer"}))--- throws : True--- Skip return : False--foreign import ccall "gst_discoverer_new" gst_discoverer_new :: -    Word64 ->                               -- timeout : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Discoverer)--{- |-Creates a new 'GI.GstPbutils.Objects.Discoverer.Discoverer' with the provided timeout.--}-discovererNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word64-    {- ^ /@timeout@/: timeout per file, in nanoseconds. Allowed are values between-    one second ('GI.Gst.Constants.SECOND') and one hour (3600 * 'GI.Gst.Constants.SECOND') -}-    -> m Discoverer-    {- ^ __Returns:__ The new 'GI.GstPbutils.Objects.Discoverer.Discoverer'.-If an error occurred when creating the discoverer, /@err@/ will be set-accordingly and 'Nothing' will be returned. If /@err@/ is set, the caller must-free it when no longer needed using 'GI.GLib.Structs.Error.errorFree'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-discovererNew timeout = liftIO $ do-    onException (do-        result <- propagateGError $ gst_discoverer_new timeout-        checkUnexpectedReturnNULL "discovererNew" result-        result' <- (wrapObject Discoverer) result-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method Discoverer::discover_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "discoverer", argType = TInterface (Name {namespace = "GstPbutils", name = "Discoverer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GstDiscoverer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The URI to run on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}))--- throws : True--- Skip return : False--foreign import ccall "gst_discoverer_discover_uri" gst_discoverer_discover_uri :: -    Ptr Discoverer ->                       -- discoverer : TInterface (Name {namespace = "GstPbutils", name = "Discoverer"})-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GstPbutils.DiscovererInfo.DiscovererInfo)--{- |-Synchronously discovers the given /@uri@/.--A copy of /@uri@/ will be made internally, so the caller can safely 'GI.GLib.Functions.free'-afterwards.--}-discovererDiscoverUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscoverer a) =>-    a-    {- ^ /@discoverer@/: A 'GI.GstPbutils.Objects.Discoverer.Discoverer' -}-    -> T.Text-    {- ^ /@uri@/: The URI to run on. -}-    -> m GstPbutils.DiscovererInfo.DiscovererInfo-    {- ^ __Returns:__ the result of the scanning. Can be 'Nothing' if an-error occurred. /(Can throw 'Data.GI.Base.GError.GError')/ -}-discovererDiscoverUri discoverer uri = liftIO $ do-    discoverer' <- unsafeManagedPtrCastPtr discoverer-    uri' <- textToCString uri-    onException (do-        result <- propagateGError $ gst_discoverer_discover_uri discoverer' uri'-        checkUnexpectedReturnNULL "discovererDiscoverUri" result-        result' <- (wrapObject GstPbutils.DiscovererInfo.DiscovererInfo) result-        touchManagedPtr discoverer-        freeMem uri'-        return result'-     ) (do-        freeMem uri'-     )--#if ENABLE_OVERLOADING-data DiscovererDiscoverUriMethodInfo-instance (signature ~ (T.Text -> m GstPbutils.DiscovererInfo.DiscovererInfo), MonadIO m, IsDiscoverer a) => O.MethodInfo DiscovererDiscoverUriMethodInfo a signature where-    overloadedMethod _ = discovererDiscoverUri--#endif---- method Discoverer::discover_uri_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "discoverer", argType = TInterface (Name {namespace = "GstPbutils", name = "Discoverer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GstDiscoverer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to add.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_discover_uri_async" gst_discoverer_discover_uri_async :: -    Ptr Discoverer ->                       -- discoverer : TInterface (Name {namespace = "GstPbutils", name = "Discoverer"})-    CString ->                              -- uri : TBasicType TUTF8-    IO CInt--{- |-Appends the given /@uri@/ to the list of URIs to discoverer. The actual-discovery of the /@uri@/ will only take place if 'GI.GstPbutils.Objects.Discoverer.discovererStart' has-been called.--A copy of /@uri@/ will be made internally, so the caller can safely 'GI.GLib.Functions.free'-afterwards.--}-discovererDiscoverUriAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscoverer a) =>-    a-    {- ^ /@discoverer@/: A 'GI.GstPbutils.Objects.Discoverer.Discoverer' -}-    -> T.Text-    {- ^ /@uri@/: the URI to add. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@uri@/ was successfully appended to the list of pending-uris, else 'False' -}-discovererDiscoverUriAsync discoverer uri = liftIO $ do-    discoverer' <- unsafeManagedPtrCastPtr discoverer-    uri' <- textToCString uri-    result <- gst_discoverer_discover_uri_async discoverer' uri'-    let result' = (/= 0) result-    touchManagedPtr discoverer-    freeMem uri'-    return result'--#if ENABLE_OVERLOADING-data DiscovererDiscoverUriAsyncMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDiscoverer a) => O.MethodInfo DiscovererDiscoverUriAsyncMethodInfo a signature where-    overloadedMethod _ = discovererDiscoverUriAsync--#endif---- method Discoverer::start--- method type : OrdinaryMethod--- Args : [Arg {argCName = "discoverer", argType = TInterface (Name {namespace = "GstPbutils", name = "Discoverer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GstDiscoverer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_start" gst_discoverer_start :: -    Ptr Discoverer ->                       -- discoverer : TInterface (Name {namespace = "GstPbutils", name = "Discoverer"})-    IO ()--{- |-Allow asynchronous discovering of URIs to take place.-A 'GI.GLib.Structs.MainLoop.MainLoop' must be available for 'GI.GstPbutils.Objects.Discoverer.Discoverer' to properly work in-asynchronous mode.--}-discovererStart ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscoverer a) =>-    a-    {- ^ /@discoverer@/: A 'GI.GstPbutils.Objects.Discoverer.Discoverer' -}-    -> m ()-discovererStart discoverer = liftIO $ do-    discoverer' <- unsafeManagedPtrCastPtr discoverer-    gst_discoverer_start discoverer'-    touchManagedPtr discoverer-    return ()--#if ENABLE_OVERLOADING-data DiscovererStartMethodInfo-instance (signature ~ (m ()), MonadIO m, IsDiscoverer a) => O.MethodInfo DiscovererStartMethodInfo a signature where-    overloadedMethod _ = discovererStart--#endif---- method Discoverer::stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "discoverer", argType = TInterface (Name {namespace = "GstPbutils", name = "Discoverer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GstDiscoverer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_stop" gst_discoverer_stop :: -    Ptr Discoverer ->                       -- discoverer : TInterface (Name {namespace = "GstPbutils", name = "Discoverer"})-    IO ()--{- |-Stop the discovery of any pending URIs and clears the list of-pending URIS (if any).--}-discovererStop ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscoverer a) =>-    a-    {- ^ /@discoverer@/: A 'GI.GstPbutils.Objects.Discoverer.Discoverer' -}-    -> m ()-discovererStop discoverer = liftIO $ do-    discoverer' <- unsafeManagedPtrCastPtr discoverer-    gst_discoverer_stop discoverer'-    touchManagedPtr discoverer-    return ()--#if ENABLE_OVERLOADING-data DiscovererStopMethodInfo-instance (signature ~ (m ()), MonadIO m, IsDiscoverer a) => O.MethodInfo DiscovererStopMethodInfo a signature where-    overloadedMethod _ = discovererStop--#endif--
− GI/GstPbutils/Objects/Discoverer.hs-boot 
@@ -1,59 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.Discoverer 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.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--newtype Discoverer = Discoverer (ManagedPtr Discoverer)-instance GObject Discoverer where-class (GObject o, O.IsDescendantOf Discoverer o) => IsDiscoverer o-instance (GObject o, O.IsDescendantOf Discoverer o) => IsDiscoverer o-instance O.HasParentTypes Discoverer-#if ENABLE_OVERLOADING-data DiscovererTimeoutPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererUseCachePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererDiscoveredSignalInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererFinishedSignalInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererSourceSetupSignalInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererStartingSignalInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererDiscoverUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererDiscoverUriAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererStartMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererStopMethodInfo-#endif
− GI/GstPbutils/Objects/DiscovererAudioInfo.hs 
@@ -1,440 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' specific to audio streams.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.DiscovererAudioInfo-    ( ---- * Exported types-    DiscovererAudioInfo(..)                 ,-    IsDiscovererAudioInfo                   ,-    toDiscovererAudioInfo                   ,-    noDiscovererAudioInfo                   ,--- -- * Methods--- ** getBitrate #method:getBitrate#--#if ENABLE_OVERLOADING-    DiscovererAudioInfoGetBitrateMethodInfo ,-#endif-    discovererAudioInfoGetBitrate           ,----- ** getChannelMask #method:getChannelMask#--#if ENABLE_OVERLOADING-    DiscovererAudioInfoGetChannelMaskMethodInfo,-#endif-    discovererAudioInfoGetChannelMask       ,----- ** getChannels #method:getChannels#--#if ENABLE_OVERLOADING-    DiscovererAudioInfoGetChannelsMethodInfo,-#endif-    discovererAudioInfoGetChannels          ,----- ** getDepth #method:getDepth#--#if ENABLE_OVERLOADING-    DiscovererAudioInfoGetDepthMethodInfo   ,-#endif-    discovererAudioInfoGetDepth             ,----- ** getLanguage #method:getLanguage#--#if ENABLE_OVERLOADING-    DiscovererAudioInfoGetLanguageMethodInfo,-#endif-    discovererAudioInfoGetLanguage          ,----- ** getMaxBitrate #method:getMaxBitrate#--#if ENABLE_OVERLOADING-    DiscovererAudioInfoGetMaxBitrateMethodInfo,-#endif-    discovererAudioInfoGetMaxBitrate        ,----- ** getSampleRate #method:getSampleRate#--#if ENABLE_OVERLOADING-    DiscovererAudioInfoGetSampleRateMethodInfo,-#endif-    discovererAudioInfoGetSampleRate        ,-----    ) 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.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 {-# SOURCE #-} qualified GI.GstPbutils.Objects.DiscovererStreamInfo as GstPbutils.DiscovererStreamInfo---- | Memory-managed wrapper type.-newtype DiscovererAudioInfo = DiscovererAudioInfo (ManagedPtr DiscovererAudioInfo)-foreign import ccall "gst_discoverer_audio_info_get_type"-    c_gst_discoverer_audio_info_get_type :: IO GType--instance GObject DiscovererAudioInfo where-    gobjectType = c_gst_discoverer_audio_info_get_type-    ---- | Type class for types which can be safely cast to `DiscovererAudioInfo`, for instance with `toDiscovererAudioInfo`.-class (GObject o, O.IsDescendantOf DiscovererAudioInfo o) => IsDiscovererAudioInfo o-instance (GObject o, O.IsDescendantOf DiscovererAudioInfo o) => IsDiscovererAudioInfo o--instance O.HasParentTypes DiscovererAudioInfo-type instance O.ParentTypes DiscovererAudioInfo = '[GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo, GObject.Object.Object]---- | Cast to `DiscovererAudioInfo`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDiscovererAudioInfo :: (MonadIO m, IsDiscovererAudioInfo o) => o -> m DiscovererAudioInfo-toDiscovererAudioInfo = liftIO . unsafeCastTo DiscovererAudioInfo---- | A convenience alias for `Nothing` :: `Maybe` `DiscovererAudioInfo`.-noDiscovererAudioInfo :: Maybe DiscovererAudioInfo-noDiscovererAudioInfo = Nothing--#if ENABLE_OVERLOADING-type family ResolveDiscovererAudioInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDiscovererAudioInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDiscovererAudioInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDiscovererAudioInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDiscovererAudioInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDiscovererAudioInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDiscovererAudioInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDiscovererAudioInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDiscovererAudioInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDiscovererAudioInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDiscovererAudioInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDiscovererAudioInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDiscovererAudioInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDiscovererAudioInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDiscovererAudioInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDiscovererAudioInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDiscovererAudioInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDiscovererAudioInfoMethod "getBitrate" o = DiscovererAudioInfoGetBitrateMethodInfo-    ResolveDiscovererAudioInfoMethod "getCaps" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetCapsMethodInfo-    ResolveDiscovererAudioInfoMethod "getChannelMask" o = DiscovererAudioInfoGetChannelMaskMethodInfo-    ResolveDiscovererAudioInfoMethod "getChannels" o = DiscovererAudioInfoGetChannelsMethodInfo-    ResolveDiscovererAudioInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDiscovererAudioInfoMethod "getDepth" o = DiscovererAudioInfoGetDepthMethodInfo-    ResolveDiscovererAudioInfoMethod "getLanguage" o = DiscovererAudioInfoGetLanguageMethodInfo-    ResolveDiscovererAudioInfoMethod "getMaxBitrate" o = DiscovererAudioInfoGetMaxBitrateMethodInfo-    ResolveDiscovererAudioInfoMethod "getMisc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetMiscMethodInfo-    ResolveDiscovererAudioInfoMethod "getNext" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetNextMethodInfo-    ResolveDiscovererAudioInfoMethod "getPrevious" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetPreviousMethodInfo-    ResolveDiscovererAudioInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDiscovererAudioInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDiscovererAudioInfoMethod "getSampleRate" o = DiscovererAudioInfoGetSampleRateMethodInfo-    ResolveDiscovererAudioInfoMethod "getStreamId" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamIdMethodInfo-    ResolveDiscovererAudioInfoMethod "getStreamTypeNick" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamTypeNickMethodInfo-    ResolveDiscovererAudioInfoMethod "getTags" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTagsMethodInfo-    ResolveDiscovererAudioInfoMethod "getToc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTocMethodInfo-    ResolveDiscovererAudioInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDiscovererAudioInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDiscovererAudioInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDiscovererAudioInfoMethod t DiscovererAudioInfo, O.MethodInfo info DiscovererAudioInfo p) => OL.IsLabel t (DiscovererAudioInfo -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DiscovererAudioInfo-type instance O.AttributeList DiscovererAudioInfo = DiscovererAudioInfoAttributeList-type DiscovererAudioInfoAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DiscovererAudioInfo = DiscovererAudioInfoSignalList-type DiscovererAudioInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DiscovererAudioInfo::get_bitrate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererAudioInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_audio_info_get_bitrate" gst_discoverer_audio_info_get_bitrate :: -    Ptr DiscovererAudioInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererAudioInfoGetBitrate ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererAudioInfo.DiscovererAudioInfo' -}-    -> m Word32-    {- ^ __Returns:__ the average or nominal bitrate of the stream in bits\/second. -}-discovererAudioInfoGetBitrate info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_audio_info_get_bitrate info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetBitrateMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererAudioInfo a) => O.MethodInfo DiscovererAudioInfoGetBitrateMethodInfo a signature where-    overloadedMethod _ = discovererAudioInfoGetBitrate--#endif---- method DiscovererAudioInfo::get_channel_mask--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererAudioInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt64)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_audio_info_get_channel_mask" gst_discoverer_audio_info_get_channel_mask :: -    Ptr DiscovererAudioInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"})-    IO Word64--{- |-/No description available in the introspection data./--/Since: 1.14/--}-discovererAudioInfoGetChannelMask ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererAudioInfo.DiscovererAudioInfo' -}-    -> m Word64-    {- ^ __Returns:__ the channel-mask of the stream, refer to-'GI.GstAudio.Functions.audioChannelPositionsFromMask' for more-information. -}-discovererAudioInfoGetChannelMask info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_audio_info_get_channel_mask info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetChannelMaskMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsDiscovererAudioInfo a) => O.MethodInfo DiscovererAudioInfoGetChannelMaskMethodInfo a signature where-    overloadedMethod _ = discovererAudioInfoGetChannelMask--#endif---- method DiscovererAudioInfo::get_channels--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererAudioInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_audio_info_get_channels" gst_discoverer_audio_info_get_channels :: -    Ptr DiscovererAudioInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererAudioInfoGetChannels ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererAudioInfo.DiscovererAudioInfo' -}-    -> m Word32-    {- ^ __Returns:__ the number of channels in the stream. -}-discovererAudioInfoGetChannels info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_audio_info_get_channels info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetChannelsMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererAudioInfo a) => O.MethodInfo DiscovererAudioInfoGetChannelsMethodInfo a signature where-    overloadedMethod _ = discovererAudioInfoGetChannels--#endif---- method DiscovererAudioInfo::get_depth--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererAudioInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_audio_info_get_depth" gst_discoverer_audio_info_get_depth :: -    Ptr DiscovererAudioInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererAudioInfoGetDepth ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererAudioInfo.DiscovererAudioInfo' -}-    -> m Word32-    {- ^ __Returns:__ the number of bits used per sample in each channel. -}-discovererAudioInfoGetDepth info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_audio_info_get_depth info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetDepthMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererAudioInfo a) => O.MethodInfo DiscovererAudioInfoGetDepthMethodInfo a signature where-    overloadedMethod _ = discovererAudioInfoGetDepth--#endif---- method DiscovererAudioInfo::get_language--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererAudioInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_audio_info_get_language" gst_discoverer_audio_info_get_language :: -    Ptr DiscovererAudioInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"})-    IO CString--{- |-/No description available in the introspection data./--}-discovererAudioInfoGetLanguage ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererAudioInfo.DiscovererAudioInfo' -}-    -> m T.Text-    {- ^ __Returns:__ the language of the stream, or NULL if unknown. -}-discovererAudioInfoGetLanguage info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_audio_info_get_language info'-    checkUnexpectedReturnNULL "discovererAudioInfoGetLanguage" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetLanguageMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDiscovererAudioInfo a) => O.MethodInfo DiscovererAudioInfoGetLanguageMethodInfo a signature where-    overloadedMethod _ = discovererAudioInfoGetLanguage--#endif---- method DiscovererAudioInfo::get_max_bitrate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererAudioInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_audio_info_get_max_bitrate" gst_discoverer_audio_info_get_max_bitrate :: -    Ptr DiscovererAudioInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererAudioInfoGetMaxBitrate ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererAudioInfo.DiscovererAudioInfo' -}-    -> m Word32-    {- ^ __Returns:__ the maximum bitrate of the stream in bits\/second. -}-discovererAudioInfoGetMaxBitrate info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_audio_info_get_max_bitrate info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetMaxBitrateMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererAudioInfo a) => O.MethodInfo DiscovererAudioInfoGetMaxBitrateMethodInfo a signature where-    overloadedMethod _ = discovererAudioInfoGetMaxBitrate--#endif---- method DiscovererAudioInfo::get_sample_rate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererAudioInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_audio_info_get_sample_rate" gst_discoverer_audio_info_get_sample_rate :: -    Ptr DiscovererAudioInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererAudioInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererAudioInfoGetSampleRate ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererAudioInfo.DiscovererAudioInfo' -}-    -> m Word32-    {- ^ __Returns:__ the sample rate of the stream in Hertz. -}-discovererAudioInfoGetSampleRate info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_audio_info_get_sample_rate info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetSampleRateMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererAudioInfo a) => O.MethodInfo DiscovererAudioInfoGetSampleRateMethodInfo a signature where-    overloadedMethod _ = discovererAudioInfoGetSampleRate--#endif--
− GI/GstPbutils/Objects/DiscovererAudioInfo.hs-boot 
@@ -1,50 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.DiscovererAudioInfo 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.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--newtype DiscovererAudioInfo = DiscovererAudioInfo (ManagedPtr DiscovererAudioInfo)-instance GObject DiscovererAudioInfo where-class (GObject o, O.IsDescendantOf DiscovererAudioInfo o) => IsDiscovererAudioInfo o-instance (GObject o, O.IsDescendantOf DiscovererAudioInfo o) => IsDiscovererAudioInfo o-instance O.HasParentTypes DiscovererAudioInfo-#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetBitrateMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetChannelMaskMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetChannelsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetDepthMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetLanguageMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetMaxBitrateMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererAudioInfoGetSampleRateMethodInfo-#endif
− GI/GstPbutils/Objects/DiscovererContainerInfo.hs 
@@ -1,181 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' specific to container streams.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.DiscovererContainerInfo-    ( ---- * Exported types-    DiscovererContainerInfo(..)             ,-    IsDiscovererContainerInfo               ,-    toDiscovererContainerInfo               ,-    noDiscovererContainerInfo               ,--- -- * Methods--- ** getStreams #method:getStreams#--#if ENABLE_OVERLOADING-    DiscovererContainerInfoGetStreamsMethodInfo,-#endif-    discovererContainerInfoGetStreams       ,-----    ) 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.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 {-# SOURCE #-} qualified GI.GstPbutils.Objects.DiscovererStreamInfo as GstPbutils.DiscovererStreamInfo---- | Memory-managed wrapper type.-newtype DiscovererContainerInfo = DiscovererContainerInfo (ManagedPtr DiscovererContainerInfo)-foreign import ccall "gst_discoverer_container_info_get_type"-    c_gst_discoverer_container_info_get_type :: IO GType--instance GObject DiscovererContainerInfo where-    gobjectType = c_gst_discoverer_container_info_get_type-    ---- | Type class for types which can be safely cast to `DiscovererContainerInfo`, for instance with `toDiscovererContainerInfo`.-class (GObject o, O.IsDescendantOf DiscovererContainerInfo o) => IsDiscovererContainerInfo o-instance (GObject o, O.IsDescendantOf DiscovererContainerInfo o) => IsDiscovererContainerInfo o--instance O.HasParentTypes DiscovererContainerInfo-type instance O.ParentTypes DiscovererContainerInfo = '[GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo, GObject.Object.Object]---- | Cast to `DiscovererContainerInfo`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDiscovererContainerInfo :: (MonadIO m, IsDiscovererContainerInfo o) => o -> m DiscovererContainerInfo-toDiscovererContainerInfo = liftIO . unsafeCastTo DiscovererContainerInfo---- | A convenience alias for `Nothing` :: `Maybe` `DiscovererContainerInfo`.-noDiscovererContainerInfo :: Maybe DiscovererContainerInfo-noDiscovererContainerInfo = Nothing--#if ENABLE_OVERLOADING-type family ResolveDiscovererContainerInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDiscovererContainerInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDiscovererContainerInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDiscovererContainerInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDiscovererContainerInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDiscovererContainerInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDiscovererContainerInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDiscovererContainerInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDiscovererContainerInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDiscovererContainerInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDiscovererContainerInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDiscovererContainerInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDiscovererContainerInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDiscovererContainerInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDiscovererContainerInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDiscovererContainerInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDiscovererContainerInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDiscovererContainerInfoMethod "getCaps" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetCapsMethodInfo-    ResolveDiscovererContainerInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDiscovererContainerInfoMethod "getMisc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetMiscMethodInfo-    ResolveDiscovererContainerInfoMethod "getNext" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetNextMethodInfo-    ResolveDiscovererContainerInfoMethod "getPrevious" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetPreviousMethodInfo-    ResolveDiscovererContainerInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDiscovererContainerInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDiscovererContainerInfoMethod "getStreamId" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamIdMethodInfo-    ResolveDiscovererContainerInfoMethod "getStreamTypeNick" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamTypeNickMethodInfo-    ResolveDiscovererContainerInfoMethod "getStreams" o = DiscovererContainerInfoGetStreamsMethodInfo-    ResolveDiscovererContainerInfoMethod "getTags" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTagsMethodInfo-    ResolveDiscovererContainerInfoMethod "getToc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTocMethodInfo-    ResolveDiscovererContainerInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDiscovererContainerInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDiscovererContainerInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDiscovererContainerInfoMethod t DiscovererContainerInfo, O.MethodInfo info DiscovererContainerInfo p) => OL.IsLabel t (DiscovererContainerInfo -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DiscovererContainerInfo-type instance O.AttributeList DiscovererContainerInfo = DiscovererContainerInfoAttributeList-type DiscovererContainerInfoAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DiscovererContainerInfo = DiscovererContainerInfoSignalList-type DiscovererContainerInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DiscovererContainerInfo::get_streams--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererContainerInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_container_info_get_streams" gst_discoverer_container_info_get_streams :: -    Ptr DiscovererContainerInfo ->          -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererContainerInfo"})-    IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))--{- |-/No description available in the introspection data./--}-discovererContainerInfoGetStreams ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererContainerInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]-    {- ^ __Returns:__ the list of-'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' this container stream offers.-Free with 'GI.GstPbutils.Objects.DiscovererStreamInfo.discovererStreamInfoListFree' after usage. -}-discovererContainerInfoGetStreams info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_container_info_get_streams info'-    result' <- unpackGList result-    result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'-    g_list_free result-    touchManagedPtr info-    return result''--#if ENABLE_OVERLOADING-data DiscovererContainerInfoGetStreamsMethodInfo-instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererContainerInfo a) => O.MethodInfo DiscovererContainerInfoGetStreamsMethodInfo a signature where-    overloadedMethod _ = discovererContainerInfoGetStreams--#endif--
− GI/GstPbutils/Objects/DiscovererContainerInfo.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.DiscovererContainerInfo 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.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--newtype DiscovererContainerInfo = DiscovererContainerInfo (ManagedPtr DiscovererContainerInfo)-instance GObject DiscovererContainerInfo where-class (GObject o, O.IsDescendantOf DiscovererContainerInfo o) => IsDiscovererContainerInfo o-instance (GObject o, O.IsDescendantOf DiscovererContainerInfo o) => IsDiscovererContainerInfo o-instance O.HasParentTypes DiscovererContainerInfo-#if ENABLE_OVERLOADING-data DiscovererContainerInfoGetStreamsMethodInfo-#endif
− GI/GstPbutils/Objects/DiscovererInfo.hs 
@@ -1,1026 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Structure containing the information of a URI analyzed by 'GI.GstPbutils.Objects.Discoverer.Discoverer'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.DiscovererInfo-    ( ---- * Exported types-    DiscovererInfo(..)                      ,-    IsDiscovererInfo                        ,-    toDiscovererInfo                        ,-    noDiscovererInfo                        ,--- -- * Methods--- ** copy #method:copy#--#if ENABLE_OVERLOADING-    DiscovererInfoCopyMethodInfo            ,-#endif-    discovererInfoCopy                      ,----- ** fromVariant #method:fromVariant#--    discovererInfoFromVariant               ,----- ** getAudioStreams #method:getAudioStreams#--#if ENABLE_OVERLOADING-    DiscovererInfoGetAudioStreamsMethodInfo ,-#endif-    discovererInfoGetAudioStreams           ,----- ** getContainerStreams #method:getContainerStreams#--#if ENABLE_OVERLOADING-    DiscovererInfoGetContainerStreamsMethodInfo,-#endif-    discovererInfoGetContainerStreams       ,----- ** getDuration #method:getDuration#--#if ENABLE_OVERLOADING-    DiscovererInfoGetDurationMethodInfo     ,-#endif-    discovererInfoGetDuration               ,----- ** getLive #method:getLive#--#if ENABLE_OVERLOADING-    DiscovererInfoGetLiveMethodInfo         ,-#endif-    discovererInfoGetLive                   ,----- ** getMisc #method:getMisc#--#if ENABLE_OVERLOADING-    DiscovererInfoGetMiscMethodInfo         ,-#endif-    discovererInfoGetMisc                   ,----- ** getMissingElementsInstallerDetails #method:getMissingElementsInstallerDetails#--#if ENABLE_OVERLOADING-    DiscovererInfoGetMissingElementsInstallerDetailsMethodInfo,-#endif-    discovererInfoGetMissingElementsInstallerDetails,----- ** getResult #method:getResult#--#if ENABLE_OVERLOADING-    DiscovererInfoGetResultMethodInfo       ,-#endif-    discovererInfoGetResult                 ,----- ** getSeekable #method:getSeekable#--#if ENABLE_OVERLOADING-    DiscovererInfoGetSeekableMethodInfo     ,-#endif-    discovererInfoGetSeekable               ,----- ** getStreamInfo #method:getStreamInfo#--#if ENABLE_OVERLOADING-    DiscovererInfoGetStreamInfoMethodInfo   ,-#endif-    discovererInfoGetStreamInfo             ,----- ** getStreamList #method:getStreamList#--#if ENABLE_OVERLOADING-    DiscovererInfoGetStreamListMethodInfo   ,-#endif-    discovererInfoGetStreamList             ,----- ** getStreams #method:getStreams#--#if ENABLE_OVERLOADING-    DiscovererInfoGetStreamsMethodInfo      ,-#endif-    discovererInfoGetStreams                ,----- ** getSubtitleStreams #method:getSubtitleStreams#--#if ENABLE_OVERLOADING-    DiscovererInfoGetSubtitleStreamsMethodInfo,-#endif-    discovererInfoGetSubtitleStreams        ,----- ** getTags #method:getTags#--#if ENABLE_OVERLOADING-    DiscovererInfoGetTagsMethodInfo         ,-#endif-    discovererInfoGetTags                   ,----- ** getToc #method:getToc#--#if ENABLE_OVERLOADING-    DiscovererInfoGetTocMethodInfo          ,-#endif-    discovererInfoGetToc                    ,----- ** getUri #method:getUri#--#if ENABLE_OVERLOADING-    DiscovererInfoGetUriMethodInfo          ,-#endif-    discovererInfoGetUri                    ,----- ** getVideoStreams #method:getVideoStreams#--#if ENABLE_OVERLOADING-    DiscovererInfoGetVideoStreamsMethodInfo ,-#endif-    discovererInfoGetVideoStreams           ,----- ** toVariant #method:toVariant#--#if ENABLE_OVERLOADING-    DiscovererInfoToVariantMethodInfo       ,-#endif-    discovererInfoToVariant                 ,-----    ) 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.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.Structure as Gst.Structure-import qualified GI.Gst.Structs.TagList as Gst.TagList-import qualified GI.Gst.Structs.Toc as Gst.Toc-import {-# SOURCE #-} qualified GI.GstPbutils.Enums as GstPbutils.Enums-import {-# SOURCE #-} qualified GI.GstPbutils.Flags as GstPbutils.Flags-import {-# SOURCE #-} qualified GI.GstPbutils.Objects.DiscovererStreamInfo as GstPbutils.DiscovererStreamInfo---- | Memory-managed wrapper type.-newtype DiscovererInfo = DiscovererInfo (ManagedPtr DiscovererInfo)-foreign import ccall "gst_discoverer_info_get_type"-    c_gst_discoverer_info_get_type :: IO GType--instance GObject DiscovererInfo where-    gobjectType = c_gst_discoverer_info_get_type-    ---- | Type class for types which can be safely cast to `DiscovererInfo`, for instance with `toDiscovererInfo`.-class (GObject o, O.IsDescendantOf DiscovererInfo o) => IsDiscovererInfo o-instance (GObject o, O.IsDescendantOf DiscovererInfo o) => IsDiscovererInfo o--instance O.HasParentTypes DiscovererInfo-type instance O.ParentTypes DiscovererInfo = '[GObject.Object.Object]---- | Cast to `DiscovererInfo`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDiscovererInfo :: (MonadIO m, IsDiscovererInfo o) => o -> m DiscovererInfo-toDiscovererInfo = liftIO . unsafeCastTo DiscovererInfo---- | A convenience alias for `Nothing` :: `Maybe` `DiscovererInfo`.-noDiscovererInfo :: Maybe DiscovererInfo-noDiscovererInfo = Nothing--#if ENABLE_OVERLOADING-type family ResolveDiscovererInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDiscovererInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDiscovererInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDiscovererInfoMethod "copy" o = DiscovererInfoCopyMethodInfo-    ResolveDiscovererInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDiscovererInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDiscovererInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDiscovererInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDiscovererInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDiscovererInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDiscovererInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDiscovererInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDiscovererInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDiscovererInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDiscovererInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDiscovererInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDiscovererInfoMethod "toVariant" o = DiscovererInfoToVariantMethodInfo-    ResolveDiscovererInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDiscovererInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDiscovererInfoMethod "getAudioStreams" o = DiscovererInfoGetAudioStreamsMethodInfo-    ResolveDiscovererInfoMethod "getContainerStreams" o = DiscovererInfoGetContainerStreamsMethodInfo-    ResolveDiscovererInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDiscovererInfoMethod "getDuration" o = DiscovererInfoGetDurationMethodInfo-    ResolveDiscovererInfoMethod "getLive" o = DiscovererInfoGetLiveMethodInfo-    ResolveDiscovererInfoMethod "getMisc" o = DiscovererInfoGetMiscMethodInfo-    ResolveDiscovererInfoMethod "getMissingElementsInstallerDetails" o = DiscovererInfoGetMissingElementsInstallerDetailsMethodInfo-    ResolveDiscovererInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDiscovererInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDiscovererInfoMethod "getResult" o = DiscovererInfoGetResultMethodInfo-    ResolveDiscovererInfoMethod "getSeekable" o = DiscovererInfoGetSeekableMethodInfo-    ResolveDiscovererInfoMethod "getStreamInfo" o = DiscovererInfoGetStreamInfoMethodInfo-    ResolveDiscovererInfoMethod "getStreamList" o = DiscovererInfoGetStreamListMethodInfo-    ResolveDiscovererInfoMethod "getStreams" o = DiscovererInfoGetStreamsMethodInfo-    ResolveDiscovererInfoMethod "getSubtitleStreams" o = DiscovererInfoGetSubtitleStreamsMethodInfo-    ResolveDiscovererInfoMethod "getTags" o = DiscovererInfoGetTagsMethodInfo-    ResolveDiscovererInfoMethod "getToc" o = DiscovererInfoGetTocMethodInfo-    ResolveDiscovererInfoMethod "getUri" o = DiscovererInfoGetUriMethodInfo-    ResolveDiscovererInfoMethod "getVideoStreams" o = DiscovererInfoGetVideoStreamsMethodInfo-    ResolveDiscovererInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDiscovererInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDiscovererInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDiscovererInfoMethod t DiscovererInfo, O.MethodInfo info DiscovererInfo p) => OL.IsLabel t (DiscovererInfo -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DiscovererInfo-type instance O.AttributeList DiscovererInfo = DiscovererInfoAttributeList-type DiscovererInfoAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DiscovererInfo = DiscovererInfoSignalList-type DiscovererInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DiscovererInfo::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ptr", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_copy" gst_discoverer_info_copy :: -    Ptr DiscovererInfo ->                   -- ptr : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr DiscovererInfo)--{- |-/No description available in the introspection data./--}-discovererInfoCopy ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@ptr@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m DiscovererInfo-    {- ^ __Returns:__ A copy of the 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-discovererInfoCopy ptr = liftIO $ do-    ptr' <- unsafeManagedPtrCastPtr ptr-    result <- gst_discoverer_info_copy ptr'-    checkUnexpectedReturnNULL "discovererInfoCopy" result-    result' <- (wrapObject DiscovererInfo) result-    touchManagedPtr ptr-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoCopyMethodInfo-instance (signature ~ (m DiscovererInfo), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoCopyMethodInfo a signature where-    overloadedMethod _ = discovererInfoCopy--#endif---- method DiscovererInfo::get_audio_streams--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_audio_streams" gst_discoverer_info_get_audio_streams :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))--{- |-Finds all the 'GI.GstPbutils.Objects.DiscovererAudioInfo.DiscovererAudioInfo' contained in /@info@/--}-discovererInfoGetAudioStreams ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]-    {- ^ __Returns:__ A 'GI.GLib.Structs.List.List' of-matching 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo'. The caller should free it with-'GI.GstPbutils.Objects.DiscovererStreamInfo.discovererStreamInfoListFree'. -}-discovererInfoGetAudioStreams info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_audio_streams info'-    result' <- unpackGList result-    result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'-    g_list_free result-    touchManagedPtr info-    return result''--#if ENABLE_OVERLOADING-data DiscovererInfoGetAudioStreamsMethodInfo-instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetAudioStreamsMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetAudioStreams--#endif---- method DiscovererInfo::get_container_streams--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_container_streams" gst_discoverer_info_get_container_streams :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))--{- |-Finds all the 'GI.GstPbutils.Objects.DiscovererContainerInfo.DiscovererContainerInfo' contained in /@info@/--}-discovererInfoGetContainerStreams ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]-    {- ^ __Returns:__ A 'GI.GLib.Structs.List.List' of-matching 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo'. The caller should free it with-'GI.GstPbutils.Objects.DiscovererStreamInfo.discovererStreamInfoListFree'. -}-discovererInfoGetContainerStreams info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_container_streams info'-    result' <- unpackGList result-    result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'-    g_list_free result-    touchManagedPtr info-    return result''--#if ENABLE_OVERLOADING-data DiscovererInfoGetContainerStreamsMethodInfo-instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetContainerStreamsMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetContainerStreams--#endif---- method DiscovererInfo::get_duration--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt64)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_duration" gst_discoverer_info_get_duration :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO Word64--{- |-/No description available in the introspection data./--}-discovererInfoGetDuration ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m Word64-    {- ^ __Returns:__ the duration of the URI in @/GstClockTime/@ (nanoseconds). -}-discovererInfoGetDuration info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_duration info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererInfoGetDurationMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetDurationMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetDuration--#endif---- method DiscovererInfo::get_live--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_live" gst_discoverer_info_get_live :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO CInt--{- |-/No description available in the introspection data./--/Since: 1.14/--}-discovererInfoGetLive ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m Bool-    {- ^ __Returns:__ whether the URI is live. -}-discovererInfoGetLive info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_live info'-    let result' = (/= 0) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoGetLiveMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetLiveMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetLive--#endif---- method DiscovererInfo::get_misc--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Structure"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_misc" gst_discoverer_info_get_misc :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr Gst.Structure.Structure)--{-# DEPRECATED discovererInfoGetMisc ["This functions is deprecated since version 1.4, use","@/gst_discoverer_info_get_missing_elements_installer_details/@"] #-}-{- |-/No description available in the introspection data./--}-discovererInfoGetMisc ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m Gst.Structure.Structure-    {- ^ __Returns:__ Miscellaneous information stored as a 'GI.Gst.Structs.Structure.Structure'-(for example: information about missing plugins). If you wish to use the-'GI.Gst.Structs.Structure.Structure' after the life-time of /@info@/, you will need to copy it. -}-discovererInfoGetMisc info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_misc info'-    checkUnexpectedReturnNULL "discovererInfoGetMisc" result-    result' <- (newBoxed Gst.Structure.Structure) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoGetMiscMethodInfo-instance (signature ~ (m Gst.Structure.Structure), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetMiscMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetMisc--#endif---- method DiscovererInfo::get_missing_elements_installer_details--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererStreamInfo to retrieve installer detail\nfor the missing element", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_missing_elements_installer_details" gst_discoverer_info_get_missing_elements_installer_details :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr CString)--{- |-Get the installer details for missing elements--/Since: 1.4/--}-discovererInfoGetMissingElementsInstallerDetails ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' to retrieve installer detail-for the missing element -}-    -> m [T.Text]-    {- ^ __Returns:__ An array of strings-containing informations about how to install the various missing elements-for /@info@/ to be usable. If you wish to use the strings after the life-time-of /@info@/, you will need to copy them. -}-discovererInfoGetMissingElementsInstallerDetails info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_missing_elements_installer_details info'-    checkUnexpectedReturnNULL "discovererInfoGetMissingElementsInstallerDetails" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoGetMissingElementsInstallerDetailsMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetMissingElementsInstallerDetailsMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetMissingElementsInstallerDetails--#endif---- method DiscovererInfo::get_result--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "DiscovererResult"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_result" gst_discoverer_info_get_result :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO CUInt--{- |-/No description available in the introspection data./--}-discovererInfoGetResult ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m GstPbutils.Enums.DiscovererResult-    {- ^ __Returns:__ the result of the discovery as a 'GI.GstPbutils.Enums.DiscovererResult'. -}-discovererInfoGetResult info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_result info'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoGetResultMethodInfo-instance (signature ~ (m GstPbutils.Enums.DiscovererResult), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetResultMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetResult--#endif---- method DiscovererInfo::get_seekable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_seekable" gst_discoverer_info_get_seekable :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO CInt--{- |-/No description available in the introspection data./--}-discovererInfoGetSeekable ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m Bool-    {- ^ __Returns:__ the whether the URI is seekable. -}-discovererInfoGetSeekable info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_seekable info'-    let result' = (/= 0) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoGetSeekableMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetSeekableMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetSeekable--#endif---- method DiscovererInfo::get_stream_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_stream_info" gst_discoverer_info_get_stream_info :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)--{- |-/No description available in the introspection data./--}-discovererInfoGetStreamInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo-    {- ^ __Returns:__ the structure (or topology) of the URI as a-'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo'.-This structure can be traversed to see the original hierarchy. Unref with-@/gst_discoverer_stream_info_unref()/@ after usage. -}-discovererInfoGetStreamInfo info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_stream_info info'-    checkUnexpectedReturnNULL "discovererInfoGetStreamInfo" result-    result' <- (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoGetStreamInfoMethodInfo-instance (signature ~ (m GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetStreamInfoMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetStreamInfo--#endif---- method DiscovererInfo::get_stream_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_stream_list" gst_discoverer_info_get_stream_list :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))--{- |-/No description available in the introspection data./--}-discovererInfoGetStreamList ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]-    {- ^ __Returns:__ the list of-all streams contained in the @/info/@. Free after usage-with 'GI.GstPbutils.Objects.DiscovererStreamInfo.discovererStreamInfoListFree'. -}-discovererInfoGetStreamList info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_stream_list info'-    result' <- unpackGList result-    result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'-    g_list_free result-    touchManagedPtr info-    return result''--#if ENABLE_OVERLOADING-data DiscovererInfoGetStreamListMethodInfo-instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetStreamListMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetStreamList--#endif---- method DiscovererInfo::get_streams--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "streamtype", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GType derived from #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_streams" gst_discoverer_info_get_streams :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    CGType ->                               -- streamtype : TBasicType TGType-    IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))--{- |-Finds the 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' contained in /@info@/ that match the-given /@streamtype@/.--}-discovererInfoGetStreams ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> GType-    {- ^ /@streamtype@/: a 'GType' derived from 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]-    {- ^ __Returns:__ A 'GI.GLib.Structs.List.List' of-matching 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo'. The caller should free it with-'GI.GstPbutils.Objects.DiscovererStreamInfo.discovererStreamInfoListFree'. -}-discovererInfoGetStreams info streamtype = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    let streamtype' = gtypeToCGType streamtype-    result <- gst_discoverer_info_get_streams info' streamtype'-    result' <- unpackGList result-    result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'-    g_list_free result-    touchManagedPtr info-    return result''--#if ENABLE_OVERLOADING-data DiscovererInfoGetStreamsMethodInfo-instance (signature ~ (GType -> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetStreamsMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetStreams--#endif---- method DiscovererInfo::get_subtitle_streams--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_subtitle_streams" gst_discoverer_info_get_subtitle_streams :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))--{- |-Finds all the 'GI.GstPbutils.Objects.DiscovererSubtitleInfo.DiscovererSubtitleInfo' contained in /@info@/--}-discovererInfoGetSubtitleStreams ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]-    {- ^ __Returns:__ A 'GI.GLib.Structs.List.List' of-matching 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo'. The caller should free it with-'GI.GstPbutils.Objects.DiscovererStreamInfo.discovererStreamInfoListFree'. -}-discovererInfoGetSubtitleStreams info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_subtitle_streams info'-    result' <- unpackGList result-    result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'-    g_list_free result-    touchManagedPtr info-    return result''--#if ENABLE_OVERLOADING-data DiscovererInfoGetSubtitleStreamsMethodInfo-instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetSubtitleStreamsMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetSubtitleStreams--#endif---- method DiscovererInfo::get_tags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "TagList"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_tags" gst_discoverer_info_get_tags :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr Gst.TagList.TagList)--{- |-/No description available in the introspection data./--}-discovererInfoGetTags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m Gst.TagList.TagList-    {- ^ __Returns:__ all tags contained in the URI. If you wish to use-the tags after the life-time of /@info@/, you will need to copy them. -}-discovererInfoGetTags info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_tags info'-    checkUnexpectedReturnNULL "discovererInfoGetTags" result-    result' <- (newBoxed Gst.TagList.TagList) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoGetTagsMethodInfo-instance (signature ~ (m Gst.TagList.TagList), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetTagsMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetTags--#endif---- method DiscovererInfo::get_toc--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Toc"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_toc" gst_discoverer_info_get_toc :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr Gst.Toc.Toc)--{- |-/No description available in the introspection data./--}-discovererInfoGetToc ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m Gst.Toc.Toc-    {- ^ __Returns:__ TOC contained in the URI. If you wish to use-the TOC after the life-time of /@info@/, you will need to copy it. -}-discovererInfoGetToc info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_toc info'-    checkUnexpectedReturnNULL "discovererInfoGetToc" result-    result' <- (newBoxed Gst.Toc.Toc) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoGetTocMethodInfo-instance (signature ~ (m Gst.Toc.Toc), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetTocMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetToc--#endif---- method DiscovererInfo::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_uri" gst_discoverer_info_get_uri :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO CString--{- |-/No description available in the introspection data./--}-discovererInfoGetUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m T.Text-    {- ^ __Returns:__ the URI to which this information corresponds to.-Copy it if you wish to use it after the life-time of /@info@/. -}-discovererInfoGetUri info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_uri info'-    checkUnexpectedReturnNULL "discovererInfoGetUri" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoGetUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetUriMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetUri--#endif---- method DiscovererInfo::get_video_streams--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_get_video_streams" gst_discoverer_info_get_video_streams :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))--{- |-Finds all the 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' contained in /@info@/--}-discovererInfoGetVideoStreams ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]-    {- ^ __Returns:__ A 'GI.GLib.Structs.List.List' of-matching 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo'. The caller should free it with-'GI.GstPbutils.Objects.DiscovererStreamInfo.discovererStreamInfoListFree'. -}-discovererInfoGetVideoStreams info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_info_get_video_streams info'-    result' <- unpackGList result-    result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'-    g_list_free result-    touchManagedPtr info-    return result''--#if ENABLE_OVERLOADING-data DiscovererInfoGetVideoStreamsMethodInfo-instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetVideoStreamsMethodInfo a signature where-    overloadedMethod _ = discovererInfoGetVideoStreams--#endif---- method DiscovererInfo::to_variant--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GstDiscovererInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererSerializeFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A combination of #GstDiscovererSerializeFlags to specify\nwhat needs to be serialized.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_to_variant" gst_discoverer_info_to_variant :: -    Ptr DiscovererInfo ->                   -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "GstPbutils", name = "DiscovererSerializeFlags"})-    IO (Ptr GVariant)--{- |-Serializes /@info@/ to a 'GVariant' that can be parsed again-through 'GI.GstPbutils.Objects.DiscovererInfo.discovererInfoFromVariant'.--Note that any 'GI.Gst.Structs.Toc.Toc' (s) that might have been discovered will not be serialized-for now.--/Since: 1.6/--}-discovererInfoToVariant ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: A 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' -}-    -> [GstPbutils.Flags.DiscovererSerializeFlags]-    {- ^ /@flags@/: A combination of 'GI.GstPbutils.Flags.DiscovererSerializeFlags' to specify-what needs to be serialized. -}-    -> m GVariant-    {- ^ __Returns:__ A newly-allocated 'GVariant' representing /@info@/. -}-discovererInfoToVariant info flags = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    let flags' = gflagsToWord flags-    result <- gst_discoverer_info_to_variant info' flags'-    checkUnexpectedReturnNULL "discovererInfoToVariant" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererInfoToVariantMethodInfo-instance (signature ~ ([GstPbutils.Flags.DiscovererSerializeFlags] -> m GVariant), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoToVariantMethodInfo a signature where-    overloadedMethod _ = discovererInfoToVariant--#endif---- method DiscovererInfo::from_variant--- method type : MemberFunction--- Args : [Arg {argCName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GVariant to deserialize into a #GstDiscovererInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_info_from_variant" gst_discoverer_info_from_variant :: -    Ptr GVariant ->                         -- variant : TVariant-    IO (Ptr DiscovererInfo)--{- |-Parses a 'GVariant' as produced by 'GI.GstPbutils.Objects.DiscovererInfo.discovererInfoToVariant'-back to a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo'.--/Since: 1.6/--}-discovererInfoFromVariant ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GVariant-    {- ^ /@variant@/: A 'GVariant' to deserialize into a 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo'. -}-    -> m DiscovererInfo-    {- ^ __Returns:__ A newly-allocated 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo'. -}-discovererInfoFromVariant variant = liftIO $ do-    variant' <- unsafeManagedPtrGetPtr variant-    result <- gst_discoverer_info_from_variant variant'-    checkUnexpectedReturnNULL "discovererInfoFromVariant" result-    result' <- (wrapObject DiscovererInfo) result-    touchManagedPtr variant-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/GstPbutils/Objects/DiscovererInfo.hs-boot 
@@ -1,83 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.DiscovererInfo 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.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--newtype DiscovererInfo = DiscovererInfo (ManagedPtr DiscovererInfo)-instance GObject DiscovererInfo where-class (GObject o, O.IsDescendantOf DiscovererInfo o) => IsDiscovererInfo o-instance (GObject o, O.IsDescendantOf DiscovererInfo o) => IsDiscovererInfo o-instance O.HasParentTypes DiscovererInfo-#if ENABLE_OVERLOADING-data DiscovererInfoCopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetAudioStreamsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetContainerStreamsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetDurationMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetLiveMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetMiscMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetMissingElementsInstallerDetailsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetResultMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetSeekableMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetStreamInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetStreamListMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetStreamsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetSubtitleStreamsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetTagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetTocMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoGetVideoStreamsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererInfoToVariantMethodInfo-#endif
− GI/GstPbutils/Objects/DiscovererStreamInfo.hs 
@@ -1,551 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Base structure for information concerning a media stream. Depending on the-stream type, one can find more media-specific information in-'GI.GstPbutils.Objects.DiscovererAudioInfo.DiscovererAudioInfo', 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo', and-'GI.GstPbutils.Objects.DiscovererContainerInfo.DiscovererContainerInfo'.--The 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' represents the topology of the stream. Siblings-can be iterated over with 'GI.GstPbutils.Objects.DiscovererStreamInfo.discovererStreamInfoGetNext' and-'GI.GstPbutils.Objects.DiscovererStreamInfo.discovererStreamInfoGetPrevious'. Children (sub-streams) of a-stream can be accessed using the 'GI.GstPbutils.Objects.DiscovererContainerInfo.DiscovererContainerInfo' API.--As a simple example, if you run 'GI.GstPbutils.Objects.Discoverer.Discoverer' on an AVI file with one audio-and one video stream, you will get a 'GI.GstPbutils.Objects.DiscovererContainerInfo.DiscovererContainerInfo'-corresponding to the AVI container, which in turn will have a-'GI.GstPbutils.Objects.DiscovererAudioInfo.DiscovererAudioInfo' sub-stream and a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' sub-stream-for the audio and video streams respectively.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.DiscovererStreamInfo-    ( ---- * Exported types-    DiscovererStreamInfo(..)                ,-    IsDiscovererStreamInfo                  ,-    toDiscovererStreamInfo                  ,-    noDiscovererStreamInfo                  ,--- -- * Methods--- ** getCaps #method:getCaps#--#if ENABLE_OVERLOADING-    DiscovererStreamInfoGetCapsMethodInfo   ,-#endif-    discovererStreamInfoGetCaps             ,----- ** getMisc #method:getMisc#--#if ENABLE_OVERLOADING-    DiscovererStreamInfoGetMiscMethodInfo   ,-#endif-    discovererStreamInfoGetMisc             ,----- ** getNext #method:getNext#--#if ENABLE_OVERLOADING-    DiscovererStreamInfoGetNextMethodInfo   ,-#endif-    discovererStreamInfoGetNext             ,----- ** getPrevious #method:getPrevious#--#if ENABLE_OVERLOADING-    DiscovererStreamInfoGetPreviousMethodInfo,-#endif-    discovererStreamInfoGetPrevious         ,----- ** getStreamId #method:getStreamId#--#if ENABLE_OVERLOADING-    DiscovererStreamInfoGetStreamIdMethodInfo,-#endif-    discovererStreamInfoGetStreamId         ,----- ** getStreamTypeNick #method:getStreamTypeNick#--#if ENABLE_OVERLOADING-    DiscovererStreamInfoGetStreamTypeNickMethodInfo,-#endif-    discovererStreamInfoGetStreamTypeNick   ,----- ** getTags #method:getTags#--#if ENABLE_OVERLOADING-    DiscovererStreamInfoGetTagsMethodInfo   ,-#endif-    discovererStreamInfoGetTags             ,----- ** getToc #method:getToc#--#if ENABLE_OVERLOADING-    DiscovererStreamInfoGetTocMethodInfo    ,-#endif-    discovererStreamInfoGetToc              ,----- ** listFree #method:listFree#--    discovererStreamInfoListFree            ,-----    ) 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.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 qualified GI.Gst.Structs.Structure as Gst.Structure-import qualified GI.Gst.Structs.TagList as Gst.TagList-import qualified GI.Gst.Structs.Toc as Gst.Toc---- | Memory-managed wrapper type.-newtype DiscovererStreamInfo = DiscovererStreamInfo (ManagedPtr DiscovererStreamInfo)-foreign import ccall "gst_discoverer_stream_info_get_type"-    c_gst_discoverer_stream_info_get_type :: IO GType--instance GObject DiscovererStreamInfo where-    gobjectType = c_gst_discoverer_stream_info_get_type-    ---- | Type class for types which can be safely cast to `DiscovererStreamInfo`, for instance with `toDiscovererStreamInfo`.-class (GObject o, O.IsDescendantOf DiscovererStreamInfo o) => IsDiscovererStreamInfo o-instance (GObject o, O.IsDescendantOf DiscovererStreamInfo o) => IsDiscovererStreamInfo o--instance O.HasParentTypes DiscovererStreamInfo-type instance O.ParentTypes DiscovererStreamInfo = '[GObject.Object.Object]---- | Cast to `DiscovererStreamInfo`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDiscovererStreamInfo :: (MonadIO m, IsDiscovererStreamInfo o) => o -> m DiscovererStreamInfo-toDiscovererStreamInfo = liftIO . unsafeCastTo DiscovererStreamInfo---- | A convenience alias for `Nothing` :: `Maybe` `DiscovererStreamInfo`.-noDiscovererStreamInfo :: Maybe DiscovererStreamInfo-noDiscovererStreamInfo = Nothing--#if ENABLE_OVERLOADING-type family ResolveDiscovererStreamInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDiscovererStreamInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDiscovererStreamInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDiscovererStreamInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDiscovererStreamInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDiscovererStreamInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDiscovererStreamInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDiscovererStreamInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDiscovererStreamInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDiscovererStreamInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDiscovererStreamInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDiscovererStreamInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDiscovererStreamInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDiscovererStreamInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDiscovererStreamInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDiscovererStreamInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDiscovererStreamInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDiscovererStreamInfoMethod "getCaps" o = DiscovererStreamInfoGetCapsMethodInfo-    ResolveDiscovererStreamInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDiscovererStreamInfoMethod "getMisc" o = DiscovererStreamInfoGetMiscMethodInfo-    ResolveDiscovererStreamInfoMethod "getNext" o = DiscovererStreamInfoGetNextMethodInfo-    ResolveDiscovererStreamInfoMethod "getPrevious" o = DiscovererStreamInfoGetPreviousMethodInfo-    ResolveDiscovererStreamInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDiscovererStreamInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDiscovererStreamInfoMethod "getStreamId" o = DiscovererStreamInfoGetStreamIdMethodInfo-    ResolveDiscovererStreamInfoMethod "getStreamTypeNick" o = DiscovererStreamInfoGetStreamTypeNickMethodInfo-    ResolveDiscovererStreamInfoMethod "getTags" o = DiscovererStreamInfoGetTagsMethodInfo-    ResolveDiscovererStreamInfoMethod "getToc" o = DiscovererStreamInfoGetTocMethodInfo-    ResolveDiscovererStreamInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDiscovererStreamInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDiscovererStreamInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDiscovererStreamInfoMethod t DiscovererStreamInfo, O.MethodInfo info DiscovererStreamInfo p) => OL.IsLabel t (DiscovererStreamInfo -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DiscovererStreamInfo-type instance O.AttributeList DiscovererStreamInfo = DiscovererStreamInfoAttributeList-type DiscovererStreamInfoAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DiscovererStreamInfo = DiscovererStreamInfoSignalList-type DiscovererStreamInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DiscovererStreamInfo::get_caps--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Caps"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_stream_info_get_caps" gst_discoverer_stream_info_get_caps :: -    Ptr DiscovererStreamInfo ->             -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})-    IO (Ptr Gst.Caps.Caps)--{- |-/No description available in the introspection data./--}-discovererStreamInfoGetCaps ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m Gst.Caps.Caps-    {- ^ __Returns:__ the 'GI.Gst.Structs.Caps.Caps' of the stream. Unref with-@/gst_caps_unref/@ after usage. -}-discovererStreamInfoGetCaps info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_stream_info_get_caps info'-    checkUnexpectedReturnNULL "discovererStreamInfoGetCaps" result-    result' <- (wrapBoxed Gst.Caps.Caps) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetCapsMethodInfo-instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetCapsMethodInfo a signature where-    overloadedMethod _ = discovererStreamInfoGetCaps--#endif---- method DiscovererStreamInfo::get_misc--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Structure"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_stream_info_get_misc" gst_discoverer_stream_info_get_misc :: -    Ptr DiscovererStreamInfo ->             -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})-    IO (Ptr Gst.Structure.Structure)--{-# DEPRECATED discovererStreamInfoGetMisc ["This functions is deprecated since version 1.4, use","@/gst_discoverer_info_get_missing_elements_installer_details/@"] #-}-{- |-/No description available in the introspection data./--}-discovererStreamInfoGetMisc ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m Gst.Structure.Structure-    {- ^ __Returns:__ additional information regarding the stream (for-example codec version, profile, etc..). If you wish to use the 'GI.Gst.Structs.Structure.Structure'-after the life-time of /@info@/ you will need to copy it. -}-discovererStreamInfoGetMisc info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_stream_info_get_misc info'-    checkUnexpectedReturnNULL "discovererStreamInfoGetMisc" result-    result' <- (newBoxed Gst.Structure.Structure) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetMiscMethodInfo-instance (signature ~ (m Gst.Structure.Structure), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetMiscMethodInfo a signature where-    overloadedMethod _ = discovererStreamInfoGetMisc--#endif---- method DiscovererStreamInfo::get_next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_stream_info_get_next" gst_discoverer_stream_info_get_next :: -    Ptr DiscovererStreamInfo ->             -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})-    IO (Ptr DiscovererStreamInfo)--{- |-/No description available in the introspection data./--}-discovererStreamInfoGetNext ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m DiscovererStreamInfo-    {- ^ __Returns:__ the next 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' in a chain. 'Nothing'-for final streams.-Unref with @/gst_discoverer_stream_info_unref/@ after usage. -}-discovererStreamInfoGetNext info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_stream_info_get_next info'-    checkUnexpectedReturnNULL "discovererStreamInfoGetNext" result-    result' <- (wrapObject DiscovererStreamInfo) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetNextMethodInfo-instance (signature ~ (m DiscovererStreamInfo), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetNextMethodInfo a signature where-    overloadedMethod _ = discovererStreamInfoGetNext--#endif---- method DiscovererStreamInfo::get_previous--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_stream_info_get_previous" gst_discoverer_stream_info_get_previous :: -    Ptr DiscovererStreamInfo ->             -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})-    IO (Ptr DiscovererStreamInfo)--{- |-/No description available in the introspection data./--}-discovererStreamInfoGetPrevious ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m DiscovererStreamInfo-    {- ^ __Returns:__ the previous 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' in a chain.-'Nothing' for starting points. Unref with @/gst_discoverer_stream_info_unref/@-after usage. -}-discovererStreamInfoGetPrevious info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_stream_info_get_previous info'-    checkUnexpectedReturnNULL "discovererStreamInfoGetPrevious" result-    result' <- (wrapObject DiscovererStreamInfo) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetPreviousMethodInfo-instance (signature ~ (m DiscovererStreamInfo), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetPreviousMethodInfo a signature where-    overloadedMethod _ = discovererStreamInfoGetPrevious--#endif---- method DiscovererStreamInfo::get_stream_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_stream_info_get_stream_id" gst_discoverer_stream_info_get_stream_id :: -    Ptr DiscovererStreamInfo ->             -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})-    IO CString--{- |-/No description available in the introspection data./--}-discovererStreamInfoGetStreamId ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m T.Text-    {- ^ __Returns:__ the stream ID of this stream. If you wish to-use the stream ID after the life-time of /@info@/ you will need to copy it. -}-discovererStreamInfoGetStreamId info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_stream_info_get_stream_id info'-    checkUnexpectedReturnNULL "discovererStreamInfoGetStreamId" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetStreamIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetStreamIdMethodInfo a signature where-    overloadedMethod _ = discovererStreamInfoGetStreamId--#endif---- method DiscovererStreamInfo::get_stream_type_nick--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_stream_info_get_stream_type_nick" gst_discoverer_stream_info_get_stream_type_nick :: -    Ptr DiscovererStreamInfo ->             -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})-    IO CString--{- |-/No description available in the introspection data./--}-discovererStreamInfoGetStreamTypeNick ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m T.Text-    {- ^ __Returns:__ a human readable name for the stream type of the given /@info@/ (ex : \"audio\",-\"container\",...). -}-discovererStreamInfoGetStreamTypeNick info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_stream_info_get_stream_type_nick info'-    checkUnexpectedReturnNULL "discovererStreamInfoGetStreamTypeNick" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetStreamTypeNickMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetStreamTypeNickMethodInfo a signature where-    overloadedMethod _ = discovererStreamInfoGetStreamTypeNick--#endif---- method DiscovererStreamInfo::get_tags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "TagList"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_stream_info_get_tags" gst_discoverer_stream_info_get_tags :: -    Ptr DiscovererStreamInfo ->             -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})-    IO (Ptr Gst.TagList.TagList)--{- |-/No description available in the introspection data./--}-discovererStreamInfoGetTags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m Gst.TagList.TagList-    {- ^ __Returns:__ the tags contained in this stream. If you wish to-use the tags after the life-time of /@info@/ you will need to copy them. -}-discovererStreamInfoGetTags info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_stream_info_get_tags info'-    checkUnexpectedReturnNULL "discovererStreamInfoGetTags" result-    result' <- (newBoxed Gst.TagList.TagList) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetTagsMethodInfo-instance (signature ~ (m Gst.TagList.TagList), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetTagsMethodInfo a signature where-    overloadedMethod _ = discovererStreamInfoGetTags--#endif---- method DiscovererStreamInfo::get_toc--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Toc"}))--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_stream_info_get_toc" gst_discoverer_stream_info_get_toc :: -    Ptr DiscovererStreamInfo ->             -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})-    IO (Ptr Gst.Toc.Toc)--{- |-/No description available in the introspection data./--}-discovererStreamInfoGetToc ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m Gst.Toc.Toc-    {- ^ __Returns:__ the TOC contained in this stream. If you wish to-use the TOC after the life-time of /@info@/ you will need to copy it. -}-discovererStreamInfoGetToc info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_stream_info_get_toc info'-    checkUnexpectedReturnNULL "discovererStreamInfoGetToc" result-    result' <- (newBoxed Gst.Toc.Toc) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetTocMethodInfo-instance (signature ~ (m Gst.Toc.Toc), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetTocMethodInfo a signature where-    overloadedMethod _ = discovererStreamInfoGetToc--#endif---- method DiscovererStreamInfo::list_free--- method type : MemberFunction--- Args : [Arg {argCName = "infos", argType = TGList (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GList of #GstDiscovererStreamInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_stream_info_list_free" gst_discoverer_stream_info_list_free :: -    Ptr (GList (Ptr DiscovererStreamInfo)) -> -- infos : TGList (TInterface (Name {namespace = "GstPbutils", name = "DiscovererStreamInfo"}))-    IO ()--{- |-Decrements the reference count of all contained 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo'-and fress the 'GI.GLib.Structs.List.List'.--}-discovererStreamInfoListFree ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>-    [a]-    {- ^ /@infos@/: a 'GI.GLib.Structs.List.List' of 'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' -}-    -> m ()-discovererStreamInfoListFree infos = liftIO $ do-    infos' <- mapM unsafeManagedPtrCastPtr infos-    infos'' <- packGList infos'-    gst_discoverer_stream_info_list_free infos''-    mapM_ touchManagedPtr infos-    g_list_free infos''-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/GstPbutils/Objects/DiscovererStreamInfo.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.DiscovererStreamInfo 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.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--newtype DiscovererStreamInfo = DiscovererStreamInfo (ManagedPtr DiscovererStreamInfo)-instance GObject DiscovererStreamInfo where-class (GObject o, O.IsDescendantOf DiscovererStreamInfo o) => IsDiscovererStreamInfo o-instance (GObject o, O.IsDescendantOf DiscovererStreamInfo o) => IsDiscovererStreamInfo o-instance O.HasParentTypes DiscovererStreamInfo-#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetCapsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetMiscMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetNextMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetPreviousMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetStreamIdMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetStreamTypeNickMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetTagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererStreamInfoGetTocMethodInfo-#endif
− GI/GstPbutils/Objects/DiscovererSubtitleInfo.hs 
@@ -1,179 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' specific to subtitle streams (this includes text and-image based ones).--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.DiscovererSubtitleInfo-    ( ---- * Exported types-    DiscovererSubtitleInfo(..)              ,-    IsDiscovererSubtitleInfo                ,-    toDiscovererSubtitleInfo                ,-    noDiscovererSubtitleInfo                ,--- -- * Methods--- ** getLanguage #method:getLanguage#--#if ENABLE_OVERLOADING-    DiscovererSubtitleInfoGetLanguageMethodInfo,-#endif-    discovererSubtitleInfoGetLanguage       ,-----    ) 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.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 {-# SOURCE #-} qualified GI.GstPbutils.Objects.DiscovererStreamInfo as GstPbutils.DiscovererStreamInfo---- | Memory-managed wrapper type.-newtype DiscovererSubtitleInfo = DiscovererSubtitleInfo (ManagedPtr DiscovererSubtitleInfo)-foreign import ccall "gst_discoverer_subtitle_info_get_type"-    c_gst_discoverer_subtitle_info_get_type :: IO GType--instance GObject DiscovererSubtitleInfo where-    gobjectType = c_gst_discoverer_subtitle_info_get_type-    ---- | Type class for types which can be safely cast to `DiscovererSubtitleInfo`, for instance with `toDiscovererSubtitleInfo`.-class (GObject o, O.IsDescendantOf DiscovererSubtitleInfo o) => IsDiscovererSubtitleInfo o-instance (GObject o, O.IsDescendantOf DiscovererSubtitleInfo o) => IsDiscovererSubtitleInfo o--instance O.HasParentTypes DiscovererSubtitleInfo-type instance O.ParentTypes DiscovererSubtitleInfo = '[GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo, GObject.Object.Object]---- | Cast to `DiscovererSubtitleInfo`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDiscovererSubtitleInfo :: (MonadIO m, IsDiscovererSubtitleInfo o) => o -> m DiscovererSubtitleInfo-toDiscovererSubtitleInfo = liftIO . unsafeCastTo DiscovererSubtitleInfo---- | A convenience alias for `Nothing` :: `Maybe` `DiscovererSubtitleInfo`.-noDiscovererSubtitleInfo :: Maybe DiscovererSubtitleInfo-noDiscovererSubtitleInfo = Nothing--#if ENABLE_OVERLOADING-type family ResolveDiscovererSubtitleInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDiscovererSubtitleInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDiscovererSubtitleInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDiscovererSubtitleInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDiscovererSubtitleInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDiscovererSubtitleInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDiscovererSubtitleInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDiscovererSubtitleInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDiscovererSubtitleInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDiscovererSubtitleInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDiscovererSubtitleInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDiscovererSubtitleInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDiscovererSubtitleInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDiscovererSubtitleInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDiscovererSubtitleInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDiscovererSubtitleInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getCaps" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetCapsMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getLanguage" o = DiscovererSubtitleInfoGetLanguageMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getMisc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetMiscMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getNext" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetNextMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getPrevious" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetPreviousMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getStreamId" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamIdMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getStreamTypeNick" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamTypeNickMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getTags" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTagsMethodInfo-    ResolveDiscovererSubtitleInfoMethod "getToc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTocMethodInfo-    ResolveDiscovererSubtitleInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDiscovererSubtitleInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDiscovererSubtitleInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDiscovererSubtitleInfoMethod t DiscovererSubtitleInfo, O.MethodInfo info DiscovererSubtitleInfo p) => OL.IsLabel t (DiscovererSubtitleInfo -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DiscovererSubtitleInfo-type instance O.AttributeList DiscovererSubtitleInfo = DiscovererSubtitleInfoAttributeList-type DiscovererSubtitleInfoAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DiscovererSubtitleInfo = DiscovererSubtitleInfoSignalList-type DiscovererSubtitleInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DiscovererSubtitleInfo::get_language--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererSubtitleInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererSubtitleInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_subtitle_info_get_language" gst_discoverer_subtitle_info_get_language :: -    Ptr DiscovererSubtitleInfo ->           -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererSubtitleInfo"})-    IO CString--{- |-/No description available in the introspection data./--}-discovererSubtitleInfoGetLanguage ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererSubtitleInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererSubtitleInfo.DiscovererSubtitleInfo' -}-    -> m T.Text-    {- ^ __Returns:__ the language of the stream, or NULL if unknown. -}-discovererSubtitleInfoGetLanguage info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_subtitle_info_get_language info'-    checkUnexpectedReturnNULL "discovererSubtitleInfoGetLanguage" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererSubtitleInfoGetLanguageMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDiscovererSubtitleInfo a) => O.MethodInfo DiscovererSubtitleInfoGetLanguageMethodInfo a signature where-    overloadedMethod _ = discovererSubtitleInfoGetLanguage--#endif--
− GI/GstPbutils/Objects/DiscovererSubtitleInfo.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.DiscovererSubtitleInfo 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.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--newtype DiscovererSubtitleInfo = DiscovererSubtitleInfo (ManagedPtr DiscovererSubtitleInfo)-instance GObject DiscovererSubtitleInfo where-class (GObject o, O.IsDescendantOf DiscovererSubtitleInfo o) => IsDiscovererSubtitleInfo o-instance (GObject o, O.IsDescendantOf DiscovererSubtitleInfo o) => IsDiscovererSubtitleInfo o-instance O.HasParentTypes DiscovererSubtitleInfo-#if ENABLE_OVERLOADING-data DiscovererSubtitleInfoGetLanguageMethodInfo-#endif
− GI/GstPbutils/Objects/DiscovererVideoInfo.hs 
@@ -1,609 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.GstPbutils.Objects.DiscovererStreamInfo.DiscovererStreamInfo' specific to video streams (this includes images).--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.DiscovererVideoInfo-    ( ---- * Exported types-    DiscovererVideoInfo(..)                 ,-    IsDiscovererVideoInfo                   ,-    toDiscovererVideoInfo                   ,-    noDiscovererVideoInfo                   ,--- -- * Methods--- ** getBitrate #method:getBitrate#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoGetBitrateMethodInfo ,-#endif-    discovererVideoInfoGetBitrate           ,----- ** getDepth #method:getDepth#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoGetDepthMethodInfo   ,-#endif-    discovererVideoInfoGetDepth             ,----- ** getFramerateDenom #method:getFramerateDenom#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoGetFramerateDenomMethodInfo,-#endif-    discovererVideoInfoGetFramerateDenom    ,----- ** getFramerateNum #method:getFramerateNum#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoGetFramerateNumMethodInfo,-#endif-    discovererVideoInfoGetFramerateNum      ,----- ** getHeight #method:getHeight#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoGetHeightMethodInfo  ,-#endif-    discovererVideoInfoGetHeight            ,----- ** getMaxBitrate #method:getMaxBitrate#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoGetMaxBitrateMethodInfo,-#endif-    discovererVideoInfoGetMaxBitrate        ,----- ** getParDenom #method:getParDenom#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoGetParDenomMethodInfo,-#endif-    discovererVideoInfoGetParDenom          ,----- ** getParNum #method:getParNum#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoGetParNumMethodInfo  ,-#endif-    discovererVideoInfoGetParNum            ,----- ** getWidth #method:getWidth#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoGetWidthMethodInfo   ,-#endif-    discovererVideoInfoGetWidth             ,----- ** isImage #method:isImage#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoIsImageMethodInfo    ,-#endif-    discovererVideoInfoIsImage              ,----- ** isInterlaced #method:isInterlaced#--#if ENABLE_OVERLOADING-    DiscovererVideoInfoIsInterlacedMethodInfo,-#endif-    discovererVideoInfoIsInterlaced         ,-----    ) 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.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 {-# SOURCE #-} qualified GI.GstPbutils.Objects.DiscovererStreamInfo as GstPbutils.DiscovererStreamInfo---- | Memory-managed wrapper type.-newtype DiscovererVideoInfo = DiscovererVideoInfo (ManagedPtr DiscovererVideoInfo)-foreign import ccall "gst_discoverer_video_info_get_type"-    c_gst_discoverer_video_info_get_type :: IO GType--instance GObject DiscovererVideoInfo where-    gobjectType = c_gst_discoverer_video_info_get_type-    ---- | Type class for types which can be safely cast to `DiscovererVideoInfo`, for instance with `toDiscovererVideoInfo`.-class (GObject o, O.IsDescendantOf DiscovererVideoInfo o) => IsDiscovererVideoInfo o-instance (GObject o, O.IsDescendantOf DiscovererVideoInfo o) => IsDiscovererVideoInfo o--instance O.HasParentTypes DiscovererVideoInfo-type instance O.ParentTypes DiscovererVideoInfo = '[GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo, GObject.Object.Object]---- | Cast to `DiscovererVideoInfo`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDiscovererVideoInfo :: (MonadIO m, IsDiscovererVideoInfo o) => o -> m DiscovererVideoInfo-toDiscovererVideoInfo = liftIO . unsafeCastTo DiscovererVideoInfo---- | A convenience alias for `Nothing` :: `Maybe` `DiscovererVideoInfo`.-noDiscovererVideoInfo :: Maybe DiscovererVideoInfo-noDiscovererVideoInfo = Nothing--#if ENABLE_OVERLOADING-type family ResolveDiscovererVideoInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDiscovererVideoInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDiscovererVideoInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDiscovererVideoInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDiscovererVideoInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDiscovererVideoInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDiscovererVideoInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDiscovererVideoInfoMethod "isImage" o = DiscovererVideoInfoIsImageMethodInfo-    ResolveDiscovererVideoInfoMethod "isInterlaced" o = DiscovererVideoInfoIsInterlacedMethodInfo-    ResolveDiscovererVideoInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDiscovererVideoInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDiscovererVideoInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDiscovererVideoInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDiscovererVideoInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDiscovererVideoInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDiscovererVideoInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDiscovererVideoInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDiscovererVideoInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDiscovererVideoInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDiscovererVideoInfoMethod "getBitrate" o = DiscovererVideoInfoGetBitrateMethodInfo-    ResolveDiscovererVideoInfoMethod "getCaps" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetCapsMethodInfo-    ResolveDiscovererVideoInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDiscovererVideoInfoMethod "getDepth" o = DiscovererVideoInfoGetDepthMethodInfo-    ResolveDiscovererVideoInfoMethod "getFramerateDenom" o = DiscovererVideoInfoGetFramerateDenomMethodInfo-    ResolveDiscovererVideoInfoMethod "getFramerateNum" o = DiscovererVideoInfoGetFramerateNumMethodInfo-    ResolveDiscovererVideoInfoMethod "getHeight" o = DiscovererVideoInfoGetHeightMethodInfo-    ResolveDiscovererVideoInfoMethod "getMaxBitrate" o = DiscovererVideoInfoGetMaxBitrateMethodInfo-    ResolveDiscovererVideoInfoMethod "getMisc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetMiscMethodInfo-    ResolveDiscovererVideoInfoMethod "getNext" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetNextMethodInfo-    ResolveDiscovererVideoInfoMethod "getParDenom" o = DiscovererVideoInfoGetParDenomMethodInfo-    ResolveDiscovererVideoInfoMethod "getParNum" o = DiscovererVideoInfoGetParNumMethodInfo-    ResolveDiscovererVideoInfoMethod "getPrevious" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetPreviousMethodInfo-    ResolveDiscovererVideoInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDiscovererVideoInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDiscovererVideoInfoMethod "getStreamId" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamIdMethodInfo-    ResolveDiscovererVideoInfoMethod "getStreamTypeNick" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamTypeNickMethodInfo-    ResolveDiscovererVideoInfoMethod "getTags" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTagsMethodInfo-    ResolveDiscovererVideoInfoMethod "getToc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTocMethodInfo-    ResolveDiscovererVideoInfoMethod "getWidth" o = DiscovererVideoInfoGetWidthMethodInfo-    ResolveDiscovererVideoInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDiscovererVideoInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDiscovererVideoInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDiscovererVideoInfoMethod t DiscovererVideoInfo, O.MethodInfo info DiscovererVideoInfo p) => OL.IsLabel t (DiscovererVideoInfo -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DiscovererVideoInfo-type instance O.AttributeList DiscovererVideoInfo = DiscovererVideoInfoAttributeList-type DiscovererVideoInfoAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DiscovererVideoInfo = DiscovererVideoInfoSignalList-type DiscovererVideoInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DiscovererVideoInfo::get_bitrate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_get_bitrate" gst_discoverer_video_info_get_bitrate :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererVideoInfoGetBitrate ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Word32-    {- ^ __Returns:__ the average or nominal bitrate of the video stream in bits\/second. -}-discovererVideoInfoGetBitrate info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_get_bitrate info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetBitrateMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetBitrateMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoGetBitrate--#endif---- method DiscovererVideoInfo::get_depth--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_get_depth" gst_discoverer_video_info_get_depth :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererVideoInfoGetDepth ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Word32-    {- ^ __Returns:__ the depth in bits of the video stream. -}-discovererVideoInfoGetDepth info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_get_depth info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetDepthMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetDepthMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoGetDepth--#endif---- method DiscovererVideoInfo::get_framerate_denom--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_get_framerate_denom" gst_discoverer_video_info_get_framerate_denom :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererVideoInfoGetFramerateDenom ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Word32-    {- ^ __Returns:__ the framerate of the video stream (denominator). -}-discovererVideoInfoGetFramerateDenom info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_get_framerate_denom info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetFramerateDenomMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetFramerateDenomMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoGetFramerateDenom--#endif---- method DiscovererVideoInfo::get_framerate_num--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_get_framerate_num" gst_discoverer_video_info_get_framerate_num :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererVideoInfoGetFramerateNum ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Word32-    {- ^ __Returns:__ the framerate of the video stream (numerator). -}-discovererVideoInfoGetFramerateNum info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_get_framerate_num info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetFramerateNumMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetFramerateNumMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoGetFramerateNum--#endif---- method DiscovererVideoInfo::get_height--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_get_height" gst_discoverer_video_info_get_height :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererVideoInfoGetHeight ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Word32-    {- ^ __Returns:__ the height of the video stream in pixels. -}-discovererVideoInfoGetHeight info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_get_height info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetHeightMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetHeightMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoGetHeight--#endif---- method DiscovererVideoInfo::get_max_bitrate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_get_max_bitrate" gst_discoverer_video_info_get_max_bitrate :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererVideoInfoGetMaxBitrate ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Word32-    {- ^ __Returns:__ the maximum bitrate of the video stream in bits\/second. -}-discovererVideoInfoGetMaxBitrate info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_get_max_bitrate info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetMaxBitrateMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetMaxBitrateMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoGetMaxBitrate--#endif---- method DiscovererVideoInfo::get_par_denom--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_get_par_denom" gst_discoverer_video_info_get_par_denom :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererVideoInfoGetParDenom ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Word32-    {- ^ __Returns:__ the Pixel Aspect Ratio (PAR) of the video stream (denominator). -}-discovererVideoInfoGetParDenom info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_get_par_denom info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetParDenomMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetParDenomMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoGetParDenom--#endif---- method DiscovererVideoInfo::get_par_num--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_get_par_num" gst_discoverer_video_info_get_par_num :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererVideoInfoGetParNum ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Word32-    {- ^ __Returns:__ the Pixel Aspect Ratio (PAR) of the video stream (numerator). -}-discovererVideoInfoGetParNum info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_get_par_num info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetParNumMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetParNumMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoGetParNum--#endif---- method DiscovererVideoInfo::get_width--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_get_width" gst_discoverer_video_info_get_width :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO Word32--{- |-/No description available in the introspection data./--}-discovererVideoInfoGetWidth ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Word32-    {- ^ __Returns:__ the width of the video stream in pixels. -}-discovererVideoInfoGetWidth info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_get_width info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetWidthMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetWidthMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoGetWidth--#endif---- method DiscovererVideoInfo::is_image--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_is_image" gst_discoverer_video_info_is_image :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO CInt--{- |-/No description available in the introspection data./--}-discovererVideoInfoIsImage ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the video stream corresponds to an image (i.e. only contains-one frame). -}-discovererVideoInfoIsImage info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_is_image info'-    let result' = (/= 0) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererVideoInfoIsImageMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoIsImageMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoIsImage--#endif---- method DiscovererVideoInfo::is_interlaced--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstDiscovererVideoInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_discoverer_video_info_is_interlaced" gst_discoverer_video_info_is_interlaced :: -    Ptr DiscovererVideoInfo ->              -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererVideoInfo"})-    IO CInt--{- |-/No description available in the introspection data./--}-discovererVideoInfoIsInterlaced ::-    (B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>-    a-    {- ^ /@info@/: a 'GI.GstPbutils.Objects.DiscovererVideoInfo.DiscovererVideoInfo' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the stream is interlaced, else 'False'. -}-discovererVideoInfoIsInterlaced info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_discoverer_video_info_is_interlaced info'-    let result' = (/= 0) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DiscovererVideoInfoIsInterlacedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoIsInterlacedMethodInfo a signature where-    overloadedMethod _ = discovererVideoInfoIsInterlaced--#endif--
− GI/GstPbutils/Objects/DiscovererVideoInfo.hs-boot 
@@ -1,62 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.DiscovererVideoInfo 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.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--newtype DiscovererVideoInfo = DiscovererVideoInfo (ManagedPtr DiscovererVideoInfo)-instance GObject DiscovererVideoInfo where-class (GObject o, O.IsDescendantOf DiscovererVideoInfo o) => IsDiscovererVideoInfo o-instance (GObject o, O.IsDescendantOf DiscovererVideoInfo o) => IsDiscovererVideoInfo o-instance O.HasParentTypes DiscovererVideoInfo-#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetBitrateMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetDepthMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetFramerateDenomMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetFramerateNumMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetHeightMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetMaxBitrateMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetParDenomMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetParNumMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererVideoInfoGetWidthMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererVideoInfoIsImageMethodInfo-#endif-#if ENABLE_OVERLOADING-data DiscovererVideoInfoIsInterlacedMethodInfo-#endif
− GI/GstPbutils/Objects/EncodingAudioProfile.hs 
@@ -1,212 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Variant of 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' for audio streams.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.EncodingAudioProfile-    ( ---- * Exported types-    EncodingAudioProfile(..)                ,-    IsEncodingAudioProfile                  ,-    toEncodingAudioProfile                  ,-    noEncodingAudioProfile                  ,--- -- * Methods--- ** new #method:new#--    encodingAudioProfileNew                 ,-----    ) 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.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---- | Memory-managed wrapper type.-newtype EncodingAudioProfile = EncodingAudioProfile (ManagedPtr EncodingAudioProfile)-foreign import ccall "gst_encoding_audio_profile_get_type"-    c_gst_encoding_audio_profile_get_type :: IO GType--instance GObject EncodingAudioProfile where-    gobjectType = c_gst_encoding_audio_profile_get_type-    ---- | Type class for types which can be safely cast to `EncodingAudioProfile`, for instance with `toEncodingAudioProfile`.-class (GObject o, O.IsDescendantOf EncodingAudioProfile o) => IsEncodingAudioProfile o-instance (GObject o, O.IsDescendantOf EncodingAudioProfile o) => IsEncodingAudioProfile o--instance O.HasParentTypes EncodingAudioProfile-type instance O.ParentTypes EncodingAudioProfile = '[GstPbutils.EncodingProfile.EncodingProfile, GObject.Object.Object]---- | Cast to `EncodingAudioProfile`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toEncodingAudioProfile :: (MonadIO m, IsEncodingAudioProfile o) => o -> m EncodingAudioProfile-toEncodingAudioProfile = liftIO . unsafeCastTo EncodingAudioProfile---- | A convenience alias for `Nothing` :: `Maybe` `EncodingAudioProfile`.-noEncodingAudioProfile :: Maybe EncodingAudioProfile-noEncodingAudioProfile = Nothing--#if ENABLE_OVERLOADING-type family ResolveEncodingAudioProfileMethod (t :: Symbol) (o :: *) :: * where-    ResolveEncodingAudioProfileMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveEncodingAudioProfileMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveEncodingAudioProfileMethod "copy" o = GstPbutils.EncodingProfile.EncodingProfileCopyMethodInfo-    ResolveEncodingAudioProfileMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveEncodingAudioProfileMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveEncodingAudioProfileMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveEncodingAudioProfileMethod "isEnabled" o = GstPbutils.EncodingProfile.EncodingProfileIsEnabledMethodInfo-    ResolveEncodingAudioProfileMethod "isEqual" o = GstPbutils.EncodingProfile.EncodingProfileIsEqualMethodInfo-    ResolveEncodingAudioProfileMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveEncodingAudioProfileMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveEncodingAudioProfileMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveEncodingAudioProfileMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveEncodingAudioProfileMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveEncodingAudioProfileMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveEncodingAudioProfileMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveEncodingAudioProfileMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveEncodingAudioProfileMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveEncodingAudioProfileMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveEncodingAudioProfileMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveEncodingAudioProfileMethod "getAllowDynamicOutput" o = GstPbutils.EncodingProfile.EncodingProfileGetAllowDynamicOutputMethodInfo-    ResolveEncodingAudioProfileMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveEncodingAudioProfileMethod "getDescription" o = GstPbutils.EncodingProfile.EncodingProfileGetDescriptionMethodInfo-    ResolveEncodingAudioProfileMethod "getFileExtension" o = GstPbutils.EncodingProfile.EncodingProfileGetFileExtensionMethodInfo-    ResolveEncodingAudioProfileMethod "getFormat" o = GstPbutils.EncodingProfile.EncodingProfileGetFormatMethodInfo-    ResolveEncodingAudioProfileMethod "getInputCaps" o = GstPbutils.EncodingProfile.EncodingProfileGetInputCapsMethodInfo-    ResolveEncodingAudioProfileMethod "getName" o = GstPbutils.EncodingProfile.EncodingProfileGetNameMethodInfo-    ResolveEncodingAudioProfileMethod "getPresence" o = GstPbutils.EncodingProfile.EncodingProfileGetPresenceMethodInfo-    ResolveEncodingAudioProfileMethod "getPreset" o = GstPbutils.EncodingProfile.EncodingProfileGetPresetMethodInfo-    ResolveEncodingAudioProfileMethod "getPresetName" o = GstPbutils.EncodingProfile.EncodingProfileGetPresetNameMethodInfo-    ResolveEncodingAudioProfileMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveEncodingAudioProfileMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveEncodingAudioProfileMethod "getRestriction" o = GstPbutils.EncodingProfile.EncodingProfileGetRestrictionMethodInfo-    ResolveEncodingAudioProfileMethod "getTypeNick" o = GstPbutils.EncodingProfile.EncodingProfileGetTypeNickMethodInfo-    ResolveEncodingAudioProfileMethod "setAllowDynamicOutput" o = GstPbutils.EncodingProfile.EncodingProfileSetAllowDynamicOutputMethodInfo-    ResolveEncodingAudioProfileMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveEncodingAudioProfileMethod "setDescription" o = GstPbutils.EncodingProfile.EncodingProfileSetDescriptionMethodInfo-    ResolveEncodingAudioProfileMethod "setEnabled" o = GstPbutils.EncodingProfile.EncodingProfileSetEnabledMethodInfo-    ResolveEncodingAudioProfileMethod "setFormat" o = GstPbutils.EncodingProfile.EncodingProfileSetFormatMethodInfo-    ResolveEncodingAudioProfileMethod "setName" o = GstPbutils.EncodingProfile.EncodingProfileSetNameMethodInfo-    ResolveEncodingAudioProfileMethod "setPresence" o = GstPbutils.EncodingProfile.EncodingProfileSetPresenceMethodInfo-    ResolveEncodingAudioProfileMethod "setPreset" o = GstPbutils.EncodingProfile.EncodingProfileSetPresetMethodInfo-    ResolveEncodingAudioProfileMethod "setPresetName" o = GstPbutils.EncodingProfile.EncodingProfileSetPresetNameMethodInfo-    ResolveEncodingAudioProfileMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveEncodingAudioProfileMethod "setRestriction" o = GstPbutils.EncodingProfile.EncodingProfileSetRestrictionMethodInfo-    ResolveEncodingAudioProfileMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveEncodingAudioProfileMethod t EncodingAudioProfile, O.MethodInfo info EncodingAudioProfile p) => OL.IsLabel t (EncodingAudioProfile -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList EncodingAudioProfile-type instance O.AttributeList EncodingAudioProfile = EncodingAudioProfileAttributeList-type EncodingAudioProfileAttributeList = ('[ '("restrictionCaps", GstPbutils.EncodingProfile.EncodingProfileRestrictionCapsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList EncodingAudioProfile = EncodingAudioProfileSignalList-type EncodingAudioProfileSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method EncodingAudioProfile::new--- method type : Constructor--- Args : [Arg {argCName = "format", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstCaps", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the preset(s) to use on the encoder, can be %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "restriction", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GstCaps used to restrict the input to the encoder, can be\nNULL. See gst_encoding_profile_get_restriction() for more details.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "presence", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of time this stream must be used. 0 means any number of\n times (including never)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "EncodingAudioProfile"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_audio_profile_new" gst_encoding_audio_profile_new :: -    Ptr Gst.Caps.Caps ->                    -- format : TInterface (Name {namespace = "Gst", name = "Caps"})-    CString ->                              -- preset : TBasicType TUTF8-    Ptr Gst.Caps.Caps ->                    -- restriction : TInterface (Name {namespace = "Gst", name = "Caps"})-    Word32 ->                               -- presence : TBasicType TUInt-    IO (Ptr EncodingAudioProfile)--{- |-Creates a new 'GI.GstPbutils.Objects.EncodingAudioProfile.EncodingAudioProfile'--All provided allocatable arguments will be internally copied, so can be-safely freed\/unreferenced after calling this method.--}-encodingAudioProfileNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@format@/: the 'GI.Gst.Structs.Caps.Caps' -}-    -> Maybe (T.Text)-    {- ^ /@preset@/: the preset(s) to use on the encoder, can be 'Nothing' -}-    -> Maybe (Gst.Caps.Caps)-    {- ^ /@restriction@/: the 'GI.Gst.Structs.Caps.Caps' used to restrict the input to the encoder, can be-NULL. See 'GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetRestriction' for more details. -}-    -> Word32-    {- ^ /@presence@/: the number of time this stream must be used. 0 means any number of- times (including never) -}-    -> m EncodingAudioProfile-    {- ^ __Returns:__ the newly created 'GI.GstPbutils.Objects.EncodingAudioProfile.EncodingAudioProfile'. -}-encodingAudioProfileNew format preset restriction presence = liftIO $ do-    format' <- unsafeManagedPtrGetPtr format-    maybePreset <- case preset of-        Nothing -> return nullPtr-        Just jPreset -> do-            jPreset' <- textToCString jPreset-            return jPreset'-    maybeRestriction <- case restriction of-        Nothing -> return nullPtr-        Just jRestriction -> do-            jRestriction' <- unsafeManagedPtrGetPtr jRestriction-            return jRestriction'-    result <- gst_encoding_audio_profile_new format' maybePreset maybeRestriction presence-    checkUnexpectedReturnNULL "encodingAudioProfileNew" result-    result' <- (wrapObject EncodingAudioProfile) result-    touchManagedPtr format-    whenJust restriction touchManagedPtr-    freeMem maybePreset-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/GstPbutils/Objects/EncodingAudioProfile.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.EncodingAudioProfile 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.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--newtype EncodingAudioProfile = EncodingAudioProfile (ManagedPtr EncodingAudioProfile)-instance GObject EncodingAudioProfile where-class (GObject o, O.IsDescendantOf EncodingAudioProfile o) => IsEncodingAudioProfile o-instance (GObject o, O.IsDescendantOf EncodingAudioProfile o) => IsEncodingAudioProfile o-instance O.HasParentTypes EncodingAudioProfile
− GI/GstPbutils/Objects/EncodingContainerProfile.hs 
@@ -1,363 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Encoding profiles for containers. Keeps track of a list of 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile'--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.EncodingContainerProfile-    ( ---- * Exported types-    EncodingContainerProfile(..)            ,-    IsEncodingContainerProfile              ,-    toEncodingContainerProfile              ,-    noEncodingContainerProfile              ,--- -- * Methods--- ** addProfile #method:addProfile#--#if ENABLE_OVERLOADING-    EncodingContainerProfileAddProfileMethodInfo,-#endif-    encodingContainerProfileAddProfile      ,----- ** containsProfile #method:containsProfile#--#if ENABLE_OVERLOADING-    EncodingContainerProfileContainsProfileMethodInfo,-#endif-    encodingContainerProfileContainsProfile ,----- ** getProfiles #method:getProfiles#--#if ENABLE_OVERLOADING-    EncodingContainerProfileGetProfilesMethodInfo,-#endif-    encodingContainerProfileGetProfiles     ,----- ** new #method:new#--    encodingContainerProfileNew             ,-----    ) 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.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---- | Memory-managed wrapper type.-newtype EncodingContainerProfile = EncodingContainerProfile (ManagedPtr EncodingContainerProfile)-foreign import ccall "gst_encoding_container_profile_get_type"-    c_gst_encoding_container_profile_get_type :: IO GType--instance GObject EncodingContainerProfile where-    gobjectType = c_gst_encoding_container_profile_get_type-    ---- | Type class for types which can be safely cast to `EncodingContainerProfile`, for instance with `toEncodingContainerProfile`.-class (GObject o, O.IsDescendantOf EncodingContainerProfile o) => IsEncodingContainerProfile o-instance (GObject o, O.IsDescendantOf EncodingContainerProfile o) => IsEncodingContainerProfile o--instance O.HasParentTypes EncodingContainerProfile-type instance O.ParentTypes EncodingContainerProfile = '[GstPbutils.EncodingProfile.EncodingProfile, GObject.Object.Object]---- | Cast to `EncodingContainerProfile`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toEncodingContainerProfile :: (MonadIO m, IsEncodingContainerProfile o) => o -> m EncodingContainerProfile-toEncodingContainerProfile = liftIO . unsafeCastTo EncodingContainerProfile---- | A convenience alias for `Nothing` :: `Maybe` `EncodingContainerProfile`.-noEncodingContainerProfile :: Maybe EncodingContainerProfile-noEncodingContainerProfile = Nothing--#if ENABLE_OVERLOADING-type family ResolveEncodingContainerProfileMethod (t :: Symbol) (o :: *) :: * where-    ResolveEncodingContainerProfileMethod "addProfile" o = EncodingContainerProfileAddProfileMethodInfo-    ResolveEncodingContainerProfileMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveEncodingContainerProfileMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveEncodingContainerProfileMethod "containsProfile" o = EncodingContainerProfileContainsProfileMethodInfo-    ResolveEncodingContainerProfileMethod "copy" o = GstPbutils.EncodingProfile.EncodingProfileCopyMethodInfo-    ResolveEncodingContainerProfileMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveEncodingContainerProfileMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveEncodingContainerProfileMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveEncodingContainerProfileMethod "isEnabled" o = GstPbutils.EncodingProfile.EncodingProfileIsEnabledMethodInfo-    ResolveEncodingContainerProfileMethod "isEqual" o = GstPbutils.EncodingProfile.EncodingProfileIsEqualMethodInfo-    ResolveEncodingContainerProfileMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveEncodingContainerProfileMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveEncodingContainerProfileMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveEncodingContainerProfileMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveEncodingContainerProfileMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveEncodingContainerProfileMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveEncodingContainerProfileMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveEncodingContainerProfileMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveEncodingContainerProfileMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveEncodingContainerProfileMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveEncodingContainerProfileMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveEncodingContainerProfileMethod "getAllowDynamicOutput" o = GstPbutils.EncodingProfile.EncodingProfileGetAllowDynamicOutputMethodInfo-    ResolveEncodingContainerProfileMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveEncodingContainerProfileMethod "getDescription" o = GstPbutils.EncodingProfile.EncodingProfileGetDescriptionMethodInfo-    ResolveEncodingContainerProfileMethod "getFileExtension" o = GstPbutils.EncodingProfile.EncodingProfileGetFileExtensionMethodInfo-    ResolveEncodingContainerProfileMethod "getFormat" o = GstPbutils.EncodingProfile.EncodingProfileGetFormatMethodInfo-    ResolveEncodingContainerProfileMethod "getInputCaps" o = GstPbutils.EncodingProfile.EncodingProfileGetInputCapsMethodInfo-    ResolveEncodingContainerProfileMethod "getName" o = GstPbutils.EncodingProfile.EncodingProfileGetNameMethodInfo-    ResolveEncodingContainerProfileMethod "getPresence" o = GstPbutils.EncodingProfile.EncodingProfileGetPresenceMethodInfo-    ResolveEncodingContainerProfileMethod "getPreset" o = GstPbutils.EncodingProfile.EncodingProfileGetPresetMethodInfo-    ResolveEncodingContainerProfileMethod "getPresetName" o = GstPbutils.EncodingProfile.EncodingProfileGetPresetNameMethodInfo-    ResolveEncodingContainerProfileMethod "getProfiles" o = EncodingContainerProfileGetProfilesMethodInfo-    ResolveEncodingContainerProfileMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveEncodingContainerProfileMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveEncodingContainerProfileMethod "getRestriction" o = GstPbutils.EncodingProfile.EncodingProfileGetRestrictionMethodInfo-    ResolveEncodingContainerProfileMethod "getTypeNick" o = GstPbutils.EncodingProfile.EncodingProfileGetTypeNickMethodInfo-    ResolveEncodingContainerProfileMethod "setAllowDynamicOutput" o = GstPbutils.EncodingProfile.EncodingProfileSetAllowDynamicOutputMethodInfo-    ResolveEncodingContainerProfileMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveEncodingContainerProfileMethod "setDescription" o = GstPbutils.EncodingProfile.EncodingProfileSetDescriptionMethodInfo-    ResolveEncodingContainerProfileMethod "setEnabled" o = GstPbutils.EncodingProfile.EncodingProfileSetEnabledMethodInfo-    ResolveEncodingContainerProfileMethod "setFormat" o = GstPbutils.EncodingProfile.EncodingProfileSetFormatMethodInfo-    ResolveEncodingContainerProfileMethod "setName" o = GstPbutils.EncodingProfile.EncodingProfileSetNameMethodInfo-    ResolveEncodingContainerProfileMethod "setPresence" o = GstPbutils.EncodingProfile.EncodingProfileSetPresenceMethodInfo-    ResolveEncodingContainerProfileMethod "setPreset" o = GstPbutils.EncodingProfile.EncodingProfileSetPresetMethodInfo-    ResolveEncodingContainerProfileMethod "setPresetName" o = GstPbutils.EncodingProfile.EncodingProfileSetPresetNameMethodInfo-    ResolveEncodingContainerProfileMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveEncodingContainerProfileMethod "setRestriction" o = GstPbutils.EncodingProfile.EncodingProfileSetRestrictionMethodInfo-    ResolveEncodingContainerProfileMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveEncodingContainerProfileMethod t EncodingContainerProfile, O.MethodInfo info EncodingContainerProfile p) => OL.IsLabel t (EncodingContainerProfile -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList EncodingContainerProfile-type instance O.AttributeList EncodingContainerProfile = EncodingContainerProfileAttributeList-type EncodingContainerProfileAttributeList = ('[ '("restrictionCaps", GstPbutils.EncodingProfile.EncodingProfileRestrictionCapsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList EncodingContainerProfile = EncodingContainerProfileSignalList-type EncodingContainerProfileSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method EncodingContainerProfile::new--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The name of the container profile, can be %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The description of the container profile,\n    can be %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The format to use for this profile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The preset to use for this profile.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "EncodingContainerProfile"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_container_profile_new" gst_encoding_container_profile_new :: -    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- description : TBasicType TUTF8-    Ptr Gst.Caps.Caps ->                    -- format : TInterface (Name {namespace = "Gst", name = "Caps"})-    CString ->                              -- preset : TBasicType TUTF8-    IO (Ptr EncodingContainerProfile)--{- |-Creates a new 'GI.GstPbutils.Objects.EncodingContainerProfile.EncodingContainerProfile'.--}-encodingContainerProfileNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe (T.Text)-    {- ^ /@name@/: The name of the container profile, can be 'Nothing' -}-    -> Maybe (T.Text)-    {- ^ /@description@/: The description of the container profile,-    can be 'Nothing' -}-    -> Gst.Caps.Caps-    {- ^ /@format@/: The format to use for this profile -}-    -> Maybe (T.Text)-    {- ^ /@preset@/: The preset to use for this profile. -}-    -> m EncodingContainerProfile-    {- ^ __Returns:__ The newly created 'GI.GstPbutils.Objects.EncodingContainerProfile.EncodingContainerProfile'. -}-encodingContainerProfileNew name description format preset = liftIO $ do-    maybeName <- case name of-        Nothing -> return nullPtr-        Just jName -> do-            jName' <- textToCString jName-            return jName'-    maybeDescription <- case description of-        Nothing -> return nullPtr-        Just jDescription -> do-            jDescription' <- textToCString jDescription-            return jDescription'-    format' <- unsafeManagedPtrGetPtr format-    maybePreset <- case preset of-        Nothing -> return nullPtr-        Just jPreset -> do-            jPreset' <- textToCString jPreset-            return jPreset'-    result <- gst_encoding_container_profile_new maybeName maybeDescription format' maybePreset-    checkUnexpectedReturnNULL "encodingContainerProfileNew" result-    result' <- (wrapObject EncodingContainerProfile) result-    touchManagedPtr format-    freeMem maybeName-    freeMem maybeDescription-    freeMem maybePreset-    return result'--#if ENABLE_OVERLOADING-#endif---- method EncodingContainerProfile::add_profile--- method type : OrdinaryMethod--- Args : [Arg {argCName = "container", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingContainerProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstEncodingContainerProfile to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstEncodingProfile to add.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_container_profile_add_profile" gst_encoding_container_profile_add_profile :: -    Ptr EncodingContainerProfile ->         -- container : TInterface (Name {namespace = "GstPbutils", name = "EncodingContainerProfile"})-    Ptr GstPbutils.EncodingProfile.EncodingProfile -> -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CInt--{- |-Add a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' to the list of profiles handled by /@container@/.--No copy of /@profile@/ will be made, if you wish to use it elsewhere after this-method you should increment its reference count.--}-encodingContainerProfileAddProfile ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingContainerProfile a, GstPbutils.EncodingProfile.IsEncodingProfile b) =>-    a-    {- ^ /@container@/: the 'GI.GstPbutils.Objects.EncodingContainerProfile.EncodingContainerProfile' to use -}-    -> b-    {- ^ /@profile@/: the 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' to add. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@stream@/ was properly added, else 'False'. -}-encodingContainerProfileAddProfile container profile = liftIO $ do-    container' <- unsafeManagedPtrCastPtr container-    profile' <- B.ManagedPtr.disownObject profile-    result <- gst_encoding_container_profile_add_profile container' profile'-    let result' = (/= 0) result-    touchManagedPtr container-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingContainerProfileAddProfileMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsEncodingContainerProfile a, GstPbutils.EncodingProfile.IsEncodingProfile b) => O.MethodInfo EncodingContainerProfileAddProfileMethodInfo a signature where-    overloadedMethod _ = encodingContainerProfileAddProfile--#endif---- method EncodingContainerProfile::contains_profile--- method type : OrdinaryMethod--- Args : [Arg {argCName = "container", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingContainerProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingContainerProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_container_profile_contains_profile" gst_encoding_container_profile_contains_profile :: -    Ptr EncodingContainerProfile ->         -- container : TInterface (Name {namespace = "GstPbutils", name = "EncodingContainerProfile"})-    Ptr GstPbutils.EncodingProfile.EncodingProfile -> -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CInt--{- |-Checks if /@container@/ contains a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' identical to-/@profile@/.--}-encodingContainerProfileContainsProfile ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingContainerProfile a, GstPbutils.EncodingProfile.IsEncodingProfile b) =>-    a-    {- ^ /@container@/: a 'GI.GstPbutils.Objects.EncodingContainerProfile.EncodingContainerProfile' -}-    -> b-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@container@/ contains a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' identical-to /@profile@/, else 'False'. -}-encodingContainerProfileContainsProfile container profile = liftIO $ do-    container' <- unsafeManagedPtrCastPtr container-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_container_profile_contains_profile container' profile'-    let result' = (/= 0) result-    touchManagedPtr container-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingContainerProfileContainsProfileMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsEncodingContainerProfile a, GstPbutils.EncodingProfile.IsEncodingProfile b) => O.MethodInfo EncodingContainerProfileContainsProfileMethodInfo a signature where-    overloadedMethod _ = encodingContainerProfileContainsProfile--#endif---- method EncodingContainerProfile::get_profiles--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingContainerProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingContainerProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_container_profile_get_profiles" gst_encoding_container_profile_get_profiles :: -    Ptr EncodingContainerProfile ->         -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingContainerProfile"})-    IO (Ptr (GList (Ptr GstPbutils.EncodingProfile.EncodingProfile)))--{- |-/No description available in the introspection data./--}-encodingContainerProfileGetProfiles ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingContainerProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingContainerProfile.EncodingContainerProfile' -}-    -> m [GstPbutils.EncodingProfile.EncodingProfile]-    {- ^ __Returns:__ -the list of contained 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile'. -}-encodingContainerProfileGetProfiles profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_container_profile_get_profiles profile'-    result' <- unpackGList result-    result'' <- mapM (newObject GstPbutils.EncodingProfile.EncodingProfile) result'-    touchManagedPtr profile-    return result''--#if ENABLE_OVERLOADING-data EncodingContainerProfileGetProfilesMethodInfo-instance (signature ~ (m [GstPbutils.EncodingProfile.EncodingProfile]), MonadIO m, IsEncodingContainerProfile a) => O.MethodInfo EncodingContainerProfileGetProfilesMethodInfo a signature where-    overloadedMethod _ = encodingContainerProfileGetProfiles--#endif--
− GI/GstPbutils/Objects/EncodingContainerProfile.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.EncodingContainerProfile 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.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--newtype EncodingContainerProfile = EncodingContainerProfile (ManagedPtr EncodingContainerProfile)-instance GObject EncodingContainerProfile where-class (GObject o, O.IsDescendantOf EncodingContainerProfile o) => IsEncodingContainerProfile o-instance (GObject o, O.IsDescendantOf EncodingContainerProfile o) => IsEncodingContainerProfile o-instance O.HasParentTypes EncodingContainerProfile-#if ENABLE_OVERLOADING-data EncodingContainerProfileAddProfileMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingContainerProfileContainsProfileMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingContainerProfileGetProfilesMethodInfo-#endif
− GI/GstPbutils/Objects/EncodingProfile.hs 
@@ -1,1391 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The opaque base class object for all encoding profiles. This contains generic-information like name, description, format and preset.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.EncodingProfile-    ( ---- * Exported types-    EncodingProfile(..)                     ,-    IsEncodingProfile                       ,-    toEncodingProfile                       ,-    noEncodingProfile                       ,--- -- * Methods--- ** copy #method:copy#--#if ENABLE_OVERLOADING-    EncodingProfileCopyMethodInfo           ,-#endif-    encodingProfileCopy                     ,----- ** find #method:find#--    encodingProfileFind                     ,----- ** fromDiscoverer #method:fromDiscoverer#--    encodingProfileFromDiscoverer           ,----- ** getAllowDynamicOutput #method:getAllowDynamicOutput#--#if ENABLE_OVERLOADING-    EncodingProfileGetAllowDynamicOutputMethodInfo,-#endif-    encodingProfileGetAllowDynamicOutput    ,----- ** getDescription #method:getDescription#--#if ENABLE_OVERLOADING-    EncodingProfileGetDescriptionMethodInfo ,-#endif-    encodingProfileGetDescription           ,----- ** getFileExtension #method:getFileExtension#--#if ENABLE_OVERLOADING-    EncodingProfileGetFileExtensionMethodInfo,-#endif-    encodingProfileGetFileExtension         ,----- ** getFormat #method:getFormat#--#if ENABLE_OVERLOADING-    EncodingProfileGetFormatMethodInfo      ,-#endif-    encodingProfileGetFormat                ,----- ** getInputCaps #method:getInputCaps#--#if ENABLE_OVERLOADING-    EncodingProfileGetInputCapsMethodInfo   ,-#endif-    encodingProfileGetInputCaps             ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    EncodingProfileGetNameMethodInfo        ,-#endif-    encodingProfileGetName                  ,----- ** getPresence #method:getPresence#--#if ENABLE_OVERLOADING-    EncodingProfileGetPresenceMethodInfo    ,-#endif-    encodingProfileGetPresence              ,----- ** getPreset #method:getPreset#--#if ENABLE_OVERLOADING-    EncodingProfileGetPresetMethodInfo      ,-#endif-    encodingProfileGetPreset                ,----- ** getPresetName #method:getPresetName#--#if ENABLE_OVERLOADING-    EncodingProfileGetPresetNameMethodInfo  ,-#endif-    encodingProfileGetPresetName            ,----- ** getRestriction #method:getRestriction#--#if ENABLE_OVERLOADING-    EncodingProfileGetRestrictionMethodInfo ,-#endif-    encodingProfileGetRestriction           ,----- ** getTypeNick #method:getTypeNick#--#if ENABLE_OVERLOADING-    EncodingProfileGetTypeNickMethodInfo    ,-#endif-    encodingProfileGetTypeNick              ,----- ** isEnabled #method:isEnabled#--#if ENABLE_OVERLOADING-    EncodingProfileIsEnabledMethodInfo      ,-#endif-    encodingProfileIsEnabled                ,----- ** isEqual #method:isEqual#--#if ENABLE_OVERLOADING-    EncodingProfileIsEqualMethodInfo        ,-#endif-    encodingProfileIsEqual                  ,----- ** setAllowDynamicOutput #method:setAllowDynamicOutput#--#if ENABLE_OVERLOADING-    EncodingProfileSetAllowDynamicOutputMethodInfo,-#endif-    encodingProfileSetAllowDynamicOutput    ,----- ** setDescription #method:setDescription#--#if ENABLE_OVERLOADING-    EncodingProfileSetDescriptionMethodInfo ,-#endif-    encodingProfileSetDescription           ,----- ** setEnabled #method:setEnabled#--#if ENABLE_OVERLOADING-    EncodingProfileSetEnabledMethodInfo     ,-#endif-    encodingProfileSetEnabled               ,----- ** setFormat #method:setFormat#--#if ENABLE_OVERLOADING-    EncodingProfileSetFormatMethodInfo      ,-#endif-    encodingProfileSetFormat                ,----- ** setName #method:setName#--#if ENABLE_OVERLOADING-    EncodingProfileSetNameMethodInfo        ,-#endif-    encodingProfileSetName                  ,----- ** setPresence #method:setPresence#--#if ENABLE_OVERLOADING-    EncodingProfileSetPresenceMethodInfo    ,-#endif-    encodingProfileSetPresence              ,----- ** setPreset #method:setPreset#--#if ENABLE_OVERLOADING-    EncodingProfileSetPresetMethodInfo      ,-#endif-    encodingProfileSetPreset                ,----- ** setPresetName #method:setPresetName#--#if ENABLE_OVERLOADING-    EncodingProfileSetPresetNameMethodInfo  ,-#endif-    encodingProfileSetPresetName            ,----- ** setRestriction #method:setRestriction#--#if ENABLE_OVERLOADING-    EncodingProfileSetRestrictionMethodInfo ,-#endif-    encodingProfileSetRestriction           ,----- -- * Properties--- ** restrictionCaps #attr:restrictionCaps#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    EncodingProfileRestrictionCapsPropertyInfo,-#endif-    clearEncodingProfileRestrictionCaps     ,-    constructEncodingProfileRestrictionCaps ,-#if ENABLE_OVERLOADING-    encodingProfileRestrictionCaps          ,-#endif-    getEncodingProfileRestrictionCaps       ,-    setEncodingProfileRestrictionCaps       ,-----    ) 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.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.DiscovererInfo as GstPbutils.DiscovererInfo---- | Memory-managed wrapper type.-newtype EncodingProfile = EncodingProfile (ManagedPtr EncodingProfile)-foreign import ccall "gst_encoding_profile_get_type"-    c_gst_encoding_profile_get_type :: IO GType--instance GObject EncodingProfile where-    gobjectType = c_gst_encoding_profile_get_type-    ---- | Type class for types which can be safely cast to `EncodingProfile`, for instance with `toEncodingProfile`.-class (GObject o, O.IsDescendantOf EncodingProfile o) => IsEncodingProfile o-instance (GObject o, O.IsDescendantOf EncodingProfile o) => IsEncodingProfile o--instance O.HasParentTypes EncodingProfile-type instance O.ParentTypes EncodingProfile = '[GObject.Object.Object]---- | Cast to `EncodingProfile`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toEncodingProfile :: (MonadIO m, IsEncodingProfile o) => o -> m EncodingProfile-toEncodingProfile = liftIO . unsafeCastTo EncodingProfile---- | A convenience alias for `Nothing` :: `Maybe` `EncodingProfile`.-noEncodingProfile :: Maybe EncodingProfile-noEncodingProfile = Nothing--#if ENABLE_OVERLOADING-type family ResolveEncodingProfileMethod (t :: Symbol) (o :: *) :: * where-    ResolveEncodingProfileMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveEncodingProfileMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveEncodingProfileMethod "copy" o = EncodingProfileCopyMethodInfo-    ResolveEncodingProfileMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveEncodingProfileMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveEncodingProfileMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveEncodingProfileMethod "isEnabled" o = EncodingProfileIsEnabledMethodInfo-    ResolveEncodingProfileMethod "isEqual" o = EncodingProfileIsEqualMethodInfo-    ResolveEncodingProfileMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveEncodingProfileMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveEncodingProfileMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveEncodingProfileMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveEncodingProfileMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveEncodingProfileMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveEncodingProfileMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveEncodingProfileMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveEncodingProfileMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveEncodingProfileMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveEncodingProfileMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveEncodingProfileMethod "getAllowDynamicOutput" o = EncodingProfileGetAllowDynamicOutputMethodInfo-    ResolveEncodingProfileMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveEncodingProfileMethod "getDescription" o = EncodingProfileGetDescriptionMethodInfo-    ResolveEncodingProfileMethod "getFileExtension" o = EncodingProfileGetFileExtensionMethodInfo-    ResolveEncodingProfileMethod "getFormat" o = EncodingProfileGetFormatMethodInfo-    ResolveEncodingProfileMethod "getInputCaps" o = EncodingProfileGetInputCapsMethodInfo-    ResolveEncodingProfileMethod "getName" o = EncodingProfileGetNameMethodInfo-    ResolveEncodingProfileMethod "getPresence" o = EncodingProfileGetPresenceMethodInfo-    ResolveEncodingProfileMethod "getPreset" o = EncodingProfileGetPresetMethodInfo-    ResolveEncodingProfileMethod "getPresetName" o = EncodingProfileGetPresetNameMethodInfo-    ResolveEncodingProfileMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveEncodingProfileMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveEncodingProfileMethod "getRestriction" o = EncodingProfileGetRestrictionMethodInfo-    ResolveEncodingProfileMethod "getTypeNick" o = EncodingProfileGetTypeNickMethodInfo-    ResolveEncodingProfileMethod "setAllowDynamicOutput" o = EncodingProfileSetAllowDynamicOutputMethodInfo-    ResolveEncodingProfileMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveEncodingProfileMethod "setDescription" o = EncodingProfileSetDescriptionMethodInfo-    ResolveEncodingProfileMethod "setEnabled" o = EncodingProfileSetEnabledMethodInfo-    ResolveEncodingProfileMethod "setFormat" o = EncodingProfileSetFormatMethodInfo-    ResolveEncodingProfileMethod "setName" o = EncodingProfileSetNameMethodInfo-    ResolveEncodingProfileMethod "setPresence" o = EncodingProfileSetPresenceMethodInfo-    ResolveEncodingProfileMethod "setPreset" o = EncodingProfileSetPresetMethodInfo-    ResolveEncodingProfileMethod "setPresetName" o = EncodingProfileSetPresetNameMethodInfo-    ResolveEncodingProfileMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveEncodingProfileMethod "setRestriction" o = EncodingProfileSetRestrictionMethodInfo-    ResolveEncodingProfileMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveEncodingProfileMethod t EncodingProfile, O.MethodInfo info EncodingProfile p) => OL.IsLabel t (EncodingProfile -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "restriction-caps"-   -- Type: TInterface (Name {namespace = "Gst", name = "Caps"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@restriction-caps@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' encodingProfile #restrictionCaps-@--}-getEncodingProfileRestrictionCaps :: (MonadIO m, IsEncodingProfile o) => o -> m (Maybe Gst.Caps.Caps)-getEncodingProfileRestrictionCaps obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "restriction-caps" Gst.Caps.Caps--{- |-Set the value of the “@restriction-caps@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' encodingProfile [ #restrictionCaps 'Data.GI.Base.Attributes.:=' value ]-@--}-setEncodingProfileRestrictionCaps :: (MonadIO m, IsEncodingProfile o) => o -> Gst.Caps.Caps -> m ()-setEncodingProfileRestrictionCaps obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "restriction-caps" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@restriction-caps@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructEncodingProfileRestrictionCaps :: (IsEncodingProfile o) => Gst.Caps.Caps -> IO (GValueConstruct o)-constructEncodingProfileRestrictionCaps val = B.Properties.constructObjectPropertyBoxed "restriction-caps" (Just val)--{- |-Set the value of the “@restriction-caps@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #restrictionCaps-@--}-clearEncodingProfileRestrictionCaps :: (MonadIO m, IsEncodingProfile o) => o -> m ()-clearEncodingProfileRestrictionCaps obj = liftIO $ B.Properties.setObjectPropertyBoxed obj "restriction-caps" (Nothing :: Maybe Gst.Caps.Caps)--#if ENABLE_OVERLOADING-data EncodingProfileRestrictionCapsPropertyInfo-instance AttrInfo EncodingProfileRestrictionCapsPropertyInfo where-    type AttrAllowedOps EncodingProfileRestrictionCapsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EncodingProfileRestrictionCapsPropertyInfo = (~) Gst.Caps.Caps-    type AttrBaseTypeConstraint EncodingProfileRestrictionCapsPropertyInfo = IsEncodingProfile-    type AttrGetType EncodingProfileRestrictionCapsPropertyInfo = (Maybe Gst.Caps.Caps)-    type AttrLabel EncodingProfileRestrictionCapsPropertyInfo = "restriction-caps"-    type AttrOrigin EncodingProfileRestrictionCapsPropertyInfo = EncodingProfile-    attrGet _ = getEncodingProfileRestrictionCaps-    attrSet _ = setEncodingProfileRestrictionCaps-    attrConstruct _ = constructEncodingProfileRestrictionCaps-    attrClear _ = clearEncodingProfileRestrictionCaps-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList EncodingProfile-type instance O.AttributeList EncodingProfile = EncodingProfileAttributeList-type EncodingProfileAttributeList = ('[ '("restrictionCaps", EncodingProfileRestrictionCapsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-encodingProfileRestrictionCaps :: AttrLabelProxy "restrictionCaps"-encodingProfileRestrictionCaps = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList EncodingProfile = EncodingProfileSignalList-type EncodingProfileSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method EncodingProfile::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GstEncodingProfile to copy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_copy" gst_encoding_profile_copy :: -    Ptr EncodingProfile ->                  -- self : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO (Ptr EncodingProfile)--{- |-Makes a deep copy of /@self@/--}-encodingProfileCopy ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@self@/: The 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' to copy -}-    -> m EncodingProfile-    {- ^ __Returns:__ The copy of /@self@/--Since 1.12 -}-encodingProfileCopy self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- gst_encoding_profile_copy self'-    checkUnexpectedReturnNULL "encodingProfileCopy" result-    result' <- (wrapObject EncodingProfile) result-    touchManagedPtr self-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileCopyMethodInfo-instance (signature ~ (m EncodingProfile), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileCopyMethodInfo a signature where-    overloadedMethod _ = encodingProfileCopy--#endif---- method EncodingProfile::get_allow_dynamic_output--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_allow_dynamic_output" gst_encoding_profile_get_allow_dynamic_output :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CInt--{- |-Get whether the format that has been negotiated in at some point can be renegotiated-later during the encoding.--}-encodingProfileGetAllowDynamicOutput ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m Bool-encodingProfileGetAllowDynamicOutput profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_allow_dynamic_output profile'-    let result' = (/= 0) result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileGetAllowDynamicOutputMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetAllowDynamicOutputMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetAllowDynamicOutput--#endif---- method EncodingProfile::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_description" gst_encoding_profile_get_description :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CString--{- |-/No description available in the introspection data./--}-encodingProfileGetDescription ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m T.Text-    {- ^ __Returns:__ the description of the profile, can be 'Nothing'. -}-encodingProfileGetDescription profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_description profile'-    checkUnexpectedReturnNULL "encodingProfileGetDescription" result-    result' <- cstringToText result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetDescriptionMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetDescription--#endif---- method EncodingProfile::get_file_extension--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_file_extension" gst_encoding_profile_get_file_extension :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CString--{- |-/No description available in the introspection data./--}-encodingProfileGetFileExtension ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m T.Text-    {- ^ __Returns:__ a suitable file extension for /@profile@/, or NULL. -}-encodingProfileGetFileExtension profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_file_extension profile'-    checkUnexpectedReturnNULL "encodingProfileGetFileExtension" result-    result' <- cstringToText result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileGetFileExtensionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetFileExtensionMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetFileExtension--#endif---- method EncodingProfile::get_format--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Caps"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_format" gst_encoding_profile_get_format :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO (Ptr Gst.Caps.Caps)--{- |-/No description available in the introspection data./--}-encodingProfileGetFormat ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m Gst.Caps.Caps-    {- ^ __Returns:__ the 'GI.Gst.Structs.Caps.Caps' corresponding to the media format used-in the profile. Unref after usage. -}-encodingProfileGetFormat profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_format profile'-    checkUnexpectedReturnNULL "encodingProfileGetFormat" result-    result' <- (wrapBoxed Gst.Caps.Caps) result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileGetFormatMethodInfo-instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetFormatMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetFormat--#endif---- method EncodingProfile::get_input_caps--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Caps"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_input_caps" gst_encoding_profile_get_input_caps :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO (Ptr Gst.Caps.Caps)--{- |-Computes the full output caps that this /@profile@/ will be able to consume.--}-encodingProfileGetInputCaps ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m Gst.Caps.Caps-    {- ^ __Returns:__ The full caps the given /@profile@/ can consume. Call-@/gst_caps_unref()/@ when you are done with the caps. -}-encodingProfileGetInputCaps profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_input_caps profile'-    checkUnexpectedReturnNULL "encodingProfileGetInputCaps" result-    result' <- (wrapBoxed Gst.Caps.Caps) result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileGetInputCapsMethodInfo-instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetInputCapsMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetInputCaps--#endif---- method EncodingProfile::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_name" gst_encoding_profile_get_name :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CString--{- |-/No description available in the introspection data./--}-encodingProfileGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m T.Text-    {- ^ __Returns:__ the name of the profile, can be 'Nothing'. -}-encodingProfileGetName profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_name profile'-    checkUnexpectedReturnNULL "encodingProfileGetName" result-    result' <- cstringToText result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetNameMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetName--#endif---- method EncodingProfile::get_presence--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_presence" gst_encoding_profile_get_presence :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO Word32--{- |-/No description available in the introspection data./--}-encodingProfileGetPresence ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m Word32-    {- ^ __Returns:__ The number of times the profile is used in its parent-container profile. If 0, it is not a mandatory stream. -}-encodingProfileGetPresence profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_presence profile'-    touchManagedPtr profile-    return result--#if ENABLE_OVERLOADING-data EncodingProfileGetPresenceMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetPresenceMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetPresence--#endif---- method EncodingProfile::get_preset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_preset" gst_encoding_profile_get_preset :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CString--{- |-/No description available in the introspection data./--}-encodingProfileGetPreset ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m T.Text-    {- ^ __Returns:__ the name of the 'GI.Gst.Interfaces.Preset.Preset' to be used in the profile.-This is the name that has been set when saving the preset. -}-encodingProfileGetPreset profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_preset profile'-    checkUnexpectedReturnNULL "encodingProfileGetPreset" result-    result' <- cstringToText result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileGetPresetMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetPresetMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetPreset--#endif---- method EncodingProfile::get_preset_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_preset_name" gst_encoding_profile_get_preset_name :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CString--{- |-/No description available in the introspection data./--}-encodingProfileGetPresetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m T.Text-    {- ^ __Returns:__ the name of the 'GI.Gst.Interfaces.Preset.Preset' factory to be used in the profile. -}-encodingProfileGetPresetName profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_preset_name profile'-    checkUnexpectedReturnNULL "encodingProfileGetPresetName" result-    result' <- cstringToText result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileGetPresetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetPresetNameMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetPresetName--#endif---- method EncodingProfile::get_restriction--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gst", name = "Caps"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_restriction" gst_encoding_profile_get_restriction :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO (Ptr Gst.Caps.Caps)--{- |-/No description available in the introspection data./--}-encodingProfileGetRestriction ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m Gst.Caps.Caps-    {- ^ __Returns:__ The restriction 'GI.Gst.Structs.Caps.Caps' to apply before the encoder-that will be used in the profile. The fields present in restriction caps are-properties of the raw stream (that is before encoding), such as height and-width for video and depth and sampling rate for audio. Does not apply to-'GI.GstPbutils.Objects.EncodingContainerProfile.EncodingContainerProfile' (since there is no corresponding raw stream).-Can be 'Nothing'. Unref after usage. -}-encodingProfileGetRestriction profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_restriction profile'-    checkUnexpectedReturnNULL "encodingProfileGetRestriction" result-    result' <- (wrapBoxed Gst.Caps.Caps) result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileGetRestrictionMethodInfo-instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetRestrictionMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetRestriction--#endif---- method EncodingProfile::get_type_nick--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_get_type_nick" gst_encoding_profile_get_type_nick :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CString--{- |-/No description available in the introspection data./--}-encodingProfileGetTypeNick ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m T.Text-    {- ^ __Returns:__ the human-readable name of the type of /@profile@/. -}-encodingProfileGetTypeNick profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_get_type_nick profile'-    checkUnexpectedReturnNULL "encodingProfileGetTypeNick" result-    result' <- cstringToText result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileGetTypeNickMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetTypeNickMethodInfo a signature where-    overloadedMethod _ = encodingProfileGetTypeNick--#endif---- method EncodingProfile::is_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_is_enabled" gst_encoding_profile_is_enabled :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CInt--{- |-/No description available in the introspection data./--}-encodingProfileIsEnabled ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    -> m Bool-encodingProfileIsEnabled profile = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    result <- gst_encoding_profile_is_enabled profile'-    let result' = (/= 0) result-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileIsEnabledMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileIsEnabledMethodInfo a signature where-    overloadedMethod _ = encodingProfileIsEnabled--#endif---- method EncodingProfile::is_equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "a", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_is_equal" gst_encoding_profile_is_equal :: -    Ptr EncodingProfile ->                  -- a : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    Ptr EncodingProfile ->                  -- b : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CInt--{- |-Checks whether the two 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' are equal--}-encodingProfileIsEqual ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a, IsEncodingProfile b) =>-    a-    {- ^ /@a@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> b-    {- ^ /@b@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@a@/ and /@b@/ are equal, else 'False'. -}-encodingProfileIsEqual a b = liftIO $ do-    a' <- unsafeManagedPtrCastPtr a-    b' <- unsafeManagedPtrCastPtr b-    result <- gst_encoding_profile_is_equal a' b'-    let result' = (/= 0) result-    touchManagedPtr a-    touchManagedPtr b-    return result'--#if ENABLE_OVERLOADING-data EncodingProfileIsEqualMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsEncodingProfile a, IsEncodingProfile b) => O.MethodInfo EncodingProfileIsEqualMethodInfo a signature where-    overloadedMethod _ = encodingProfileIsEqual--#endif---- method EncodingProfile::set_allow_dynamic_output--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allow_dynamic_output", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Whether the format that has been negotiated first can be renegotiated\nduring the encoding", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_set_allow_dynamic_output" gst_encoding_profile_set_allow_dynamic_output :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    CInt ->                                 -- allow_dynamic_output : TBasicType TBoolean-    IO ()--{- |-Sets whether the format that has been negotiated in at some point can be renegotiated-later during the encoding.--}-encodingProfileSetAllowDynamicOutput ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> Bool-    {- ^ /@allowDynamicOutput@/: Whether the format that has been negotiated first can be renegotiated-during the encoding -}-    -> m ()-encodingProfileSetAllowDynamicOutput profile allowDynamicOutput = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    let allowDynamicOutput' = (fromIntegral . fromEnum) allowDynamicOutput-    gst_encoding_profile_set_allow_dynamic_output profile' allowDynamicOutput'-    touchManagedPtr profile-    return ()--#if ENABLE_OVERLOADING-data EncodingProfileSetAllowDynamicOutputMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetAllowDynamicOutputMethodInfo a signature where-    overloadedMethod _ = encodingProfileSetAllowDynamicOutput--#endif---- method EncodingProfile::set_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the description to set on the profile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_set_description" gst_encoding_profile_set_description :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    CString ->                              -- description : TBasicType TUTF8-    IO ()--{- |-Set /@description@/ as the given description for the /@profile@/. A copy of-/@description@/ will be made internally.--}-encodingProfileSetDescription ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> Maybe (T.Text)-    {- ^ /@description@/: the description to set on the profile -}-    -> m ()-encodingProfileSetDescription profile description = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    maybeDescription <- case description of-        Nothing -> return nullPtr-        Just jDescription -> do-            jDescription' <- textToCString jDescription-            return jDescription'-    gst_encoding_profile_set_description profile' maybeDescription-    touchManagedPtr profile-    freeMem maybeDescription-    return ()--#if ENABLE_OVERLOADING-data EncodingProfileSetDescriptionMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetDescriptionMethodInfo a signature where-    overloadedMethod _ = encodingProfileSetDescription--#endif---- method EncodingProfile::set_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%FALSE to disable #profile, %TRUE to enable it", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_set_enabled" gst_encoding_profile_set_enabled :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()--{- |-Set whether the profile should be used or not.--Since 1.6--}-encodingProfileSetEnabled ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> Bool-    {- ^ /@enabled@/: 'False' to disable @/profile/@, 'True' to enable it -}-    -> m ()-encodingProfileSetEnabled profile enabled = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    let enabled' = (fromIntegral . fromEnum) enabled-    gst_encoding_profile_set_enabled profile' enabled'-    touchManagedPtr profile-    return ()--#if ENABLE_OVERLOADING-data EncodingProfileSetEnabledMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetEnabledMethodInfo a signature where-    overloadedMethod _ = encodingProfileSetEnabled--#endif---- method EncodingProfile::set_format--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the media format to use in the profile.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_set_format" gst_encoding_profile_set_format :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    Ptr Gst.Caps.Caps ->                    -- format : TInterface (Name {namespace = "Gst", name = "Caps"})-    IO ()--{- |-Sets the media format used in the profile.--}-encodingProfileSetFormat ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> Gst.Caps.Caps-    {- ^ /@format@/: the media format to use in the profile. -}-    -> m ()-encodingProfileSetFormat profile format = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    format' <- unsafeManagedPtrGetPtr format-    gst_encoding_profile_set_format profile' format'-    touchManagedPtr profile-    touchManagedPtr format-    return ()--#if ENABLE_OVERLOADING-data EncodingProfileSetFormatMethodInfo-instance (signature ~ (Gst.Caps.Caps -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetFormatMethodInfo a signature where-    overloadedMethod _ = encodingProfileSetFormat--#endif---- method EncodingProfile::set_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the name to set on the profile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_set_name" gst_encoding_profile_set_name :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    CString ->                              -- name : TBasicType TUTF8-    IO ()--{- |-Set /@name@/ as the given name for the /@profile@/. A copy of /@name@/ will be made-internally.--}-encodingProfileSetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> Maybe (T.Text)-    {- ^ /@name@/: the name to set on the profile -}-    -> m ()-encodingProfileSetName profile name = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    maybeName <- case name of-        Nothing -> return nullPtr-        Just jName -> do-            jName' <- textToCString jName-            return jName'-    gst_encoding_profile_set_name profile' maybeName-    touchManagedPtr profile-    freeMem maybeName-    return ()--#if ENABLE_OVERLOADING-data EncodingProfileSetNameMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetNameMethodInfo a signature where-    overloadedMethod _ = encodingProfileSetName--#endif---- method EncodingProfile::set_presence--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "presence", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of time the profile can be used", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_set_presence" gst_encoding_profile_set_presence :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    Word32 ->                               -- presence : TBasicType TUInt-    IO ()--{- |-Set the number of time the profile is used in its parent-container profile. If 0, it is not a mandatory stream--}-encodingProfileSetPresence ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> Word32-    {- ^ /@presence@/: the number of time the profile can be used -}-    -> m ()-encodingProfileSetPresence profile presence = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    gst_encoding_profile_set_presence profile' presence-    touchManagedPtr profile-    return ()--#if ENABLE_OVERLOADING-data EncodingProfileSetPresenceMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetPresenceMethodInfo a signature where-    overloadedMethod _ = encodingProfileSetPresence--#endif---- method EncodingProfile::set_preset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the element preset to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_set_preset" gst_encoding_profile_set_preset :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    CString ->                              -- preset : TBasicType TUTF8-    IO ()--{- |-Sets the name of the 'GI.Gst.Objects.Element.Element' that implements the 'GI.Gst.Interfaces.Preset.Preset' interface-to use for the profile.-This is the name that has been set when saving the preset.--}-encodingProfileSetPreset ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> Maybe (T.Text)-    {- ^ /@preset@/: the element preset to use -}-    -> m ()-encodingProfileSetPreset profile preset = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    maybePreset <- case preset of-        Nothing -> return nullPtr-        Just jPreset -> do-            jPreset' <- textToCString jPreset-            return jPreset'-    gst_encoding_profile_set_preset profile' maybePreset-    touchManagedPtr profile-    freeMem maybePreset-    return ()--#if ENABLE_OVERLOADING-data EncodingProfileSetPresetMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetPresetMethodInfo a signature where-    overloadedMethod _ = encodingProfileSetPreset--#endif---- method EncodingProfile::set_preset_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The name of the preset to use in this @profile.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_set_preset_name" gst_encoding_profile_set_preset_name :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    CString ->                              -- preset_name : TBasicType TUTF8-    IO ()--{- |-Sets the name of the 'GI.Gst.Interfaces.Preset.Preset'\'s factory to be used in the profile.--}-encodingProfileSetPresetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> Maybe (T.Text)-    {- ^ /@presetName@/: The name of the preset to use in this /@profile@/. -}-    -> m ()-encodingProfileSetPresetName profile presetName = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    maybePresetName <- case presetName of-        Nothing -> return nullPtr-        Just jPresetName -> do-            jPresetName' <- textToCString jPresetName-            return jPresetName'-    gst_encoding_profile_set_preset_name profile' maybePresetName-    touchManagedPtr profile-    freeMem maybePresetName-    return ()--#if ENABLE_OVERLOADING-data EncodingProfileSetPresetNameMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetPresetNameMethodInfo a signature where-    overloadedMethod _ = encodingProfileSetPresetName--#endif---- method EncodingProfile::set_restriction--- method type : OrdinaryMethod--- Args : [Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "restriction", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the restriction to apply", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_set_restriction" gst_encoding_profile_set_restriction :: -    Ptr EncodingProfile ->                  -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    Ptr Gst.Caps.Caps ->                    -- restriction : TInterface (Name {namespace = "Gst", name = "Caps"})-    IO ()--{- |-Set the restriction 'GI.Gst.Structs.Caps.Caps' to apply before the encoder-that will be used in the profile. See 'GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetRestriction'-for more about restrictions. Does not apply to 'GI.GstPbutils.Objects.EncodingContainerProfile.EncodingContainerProfile'.--}-encodingProfileSetRestriction ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>-    a-    {- ^ /@profile@/: a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' -}-    -> Maybe (Gst.Caps.Caps)-    {- ^ /@restriction@/: the restriction to apply -}-    -> m ()-encodingProfileSetRestriction profile restriction = liftIO $ do-    profile' <- unsafeManagedPtrCastPtr profile-    maybeRestriction <- case restriction of-        Nothing -> return nullPtr-        Just jRestriction -> do-            jRestriction' <- B.ManagedPtr.disownBoxed jRestriction-            return jRestriction'-    gst_encoding_profile_set_restriction profile' maybeRestriction-    touchManagedPtr profile-    whenJust restriction touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data EncodingProfileSetRestrictionMethodInfo-instance (signature ~ (Maybe (Gst.Caps.Caps) -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetRestrictionMethodInfo a signature where-    overloadedMethod _ = encodingProfileSetRestriction--#endif---- method EncodingProfile::find--- method type : MemberFunction--- Args : [Arg {argCName = "targetname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the target", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "profilename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The name of the profile, if %NULL\nprovided, it will default to the encoding profile called `default`.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The target category. Can be %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_find" gst_encoding_profile_find :: -    CString ->                              -- targetname : TBasicType TUTF8-    CString ->                              -- profilename : TBasicType TUTF8-    CString ->                              -- category : TBasicType TUTF8-    IO (Ptr EncodingProfile)--{- |-Find the 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' with the specified name and category.--}-encodingProfileFind ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@targetname@/: The name of the target -}-    -> Maybe (T.Text)-    {- ^ /@profilename@/: The name of the profile, if 'Nothing'-provided, it will default to the encoding profile called @default@. -}-    -> Maybe (T.Text)-    {- ^ /@category@/: The target category. Can be 'Nothing' -}-    -> m EncodingProfile-    {- ^ __Returns:__ The matching 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' or 'Nothing'. -}-encodingProfileFind targetname profilename category = liftIO $ do-    targetname' <- textToCString targetname-    maybeProfilename <- case profilename of-        Nothing -> return nullPtr-        Just jProfilename -> do-            jProfilename' <- textToCString jProfilename-            return jProfilename'-    maybeCategory <- case category of-        Nothing -> return nullPtr-        Just jCategory -> do-            jCategory' <- textToCString jCategory-            return jCategory'-    result <- gst_encoding_profile_find targetname' maybeProfilename maybeCategory-    checkUnexpectedReturnNULL "encodingProfileFind" result-    result' <- (wrapObject EncodingProfile) result-    freeMem targetname'-    freeMem maybeProfilename-    freeMem maybeCategory-    return result'--#if ENABLE_OVERLOADING-#endif---- method EncodingProfile::from_discoverer--- method type : MemberFunction--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GstDiscovererInfo to read from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_profile_from_discoverer" gst_encoding_profile_from_discoverer :: -    Ptr GstPbutils.DiscovererInfo.DiscovererInfo -> -- info : TInterface (Name {namespace = "GstPbutils", name = "DiscovererInfo"})-    IO (Ptr EncodingProfile)--{- |-Creates a 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' matching the formats from the given-'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo'. Streams other than audio or video (eg,-subtitles), are currently ignored.--}-encodingProfileFromDiscoverer ::-    (B.CallStack.HasCallStack, MonadIO m, GstPbutils.DiscovererInfo.IsDiscovererInfo a) =>-    a-    {- ^ /@info@/: The 'GI.GstPbutils.Objects.DiscovererInfo.DiscovererInfo' to read from -}-    -> m EncodingProfile-    {- ^ __Returns:__ The new 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' or 'Nothing'. -}-encodingProfileFromDiscoverer info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- gst_encoding_profile_from_discoverer info'-    checkUnexpectedReturnNULL "encodingProfileFromDiscoverer" result-    result' <- (wrapObject EncodingProfile) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/GstPbutils/Objects/EncodingProfile.hs-boot 
@@ -1,101 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.EncodingProfile 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.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--newtype EncodingProfile = EncodingProfile (ManagedPtr EncodingProfile)-instance GObject EncodingProfile where-class (GObject o, O.IsDescendantOf EncodingProfile o) => IsEncodingProfile o-instance (GObject o, O.IsDescendantOf EncodingProfile o) => IsEncodingProfile o-instance O.HasParentTypes EncodingProfile-#if ENABLE_OVERLOADING-data EncodingProfileRestrictionCapsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileCopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetAllowDynamicOutputMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetDescriptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetFileExtensionMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetFormatMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetInputCapsMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetPresenceMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetPresetMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetPresetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetRestrictionMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileGetTypeNickMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileIsEnabledMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileIsEqualMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileSetAllowDynamicOutputMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileSetDescriptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileSetEnabledMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileSetFormatMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileSetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileSetPresenceMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileSetPresetMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileSetPresetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingProfileSetRestrictionMethodInfo-#endif
− GI/GstPbutils/Objects/EncodingTarget.hs 
@@ -1,684 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Collection of 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' for a specific target or use-case.--When being stored\/loaded, targets come from a specific category, like-'GI.GstPbutils.Constants.ENCODING_CATEGORY_DEVICE'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.EncodingTarget-    ( ---- * Exported types-    EncodingTarget(..)                      ,-    IsEncodingTarget                        ,-    toEncodingTarget                        ,-    noEncodingTarget                        ,--- -- * Methods--- ** addProfile #method:addProfile#--#if ENABLE_OVERLOADING-    EncodingTargetAddProfileMethodInfo      ,-#endif-    encodingTargetAddProfile                ,----- ** getCategory #method:getCategory#--#if ENABLE_OVERLOADING-    EncodingTargetGetCategoryMethodInfo     ,-#endif-    encodingTargetGetCategory               ,----- ** getDescription #method:getDescription#--#if ENABLE_OVERLOADING-    EncodingTargetGetDescriptionMethodInfo  ,-#endif-    encodingTargetGetDescription            ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    EncodingTargetGetNameMethodInfo         ,-#endif-    encodingTargetGetName                   ,----- ** getProfile #method:getProfile#--#if ENABLE_OVERLOADING-    EncodingTargetGetProfileMethodInfo      ,-#endif-    encodingTargetGetProfile                ,----- ** getProfiles #method:getProfiles#--#if ENABLE_OVERLOADING-    EncodingTargetGetProfilesMethodInfo     ,-#endif-    encodingTargetGetProfiles               ,----- ** load #method:load#--    encodingTargetLoad                      ,----- ** loadFromFile #method:loadFromFile#--    encodingTargetLoadFromFile              ,----- ** new #method:new#--    encodingTargetNew                       ,----- ** save #method:save#--#if ENABLE_OVERLOADING-    EncodingTargetSaveMethodInfo            ,-#endif-    encodingTargetSave                      ,----- ** saveToFile #method:saveToFile#--#if ENABLE_OVERLOADING-    EncodingTargetSaveToFileMethodInfo      ,-#endif-    encodingTargetSaveToFile                ,-----    ) 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.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 {-# SOURCE #-} qualified GI.GstPbutils.Objects.EncodingProfile as GstPbutils.EncodingProfile---- | Memory-managed wrapper type.-newtype EncodingTarget = EncodingTarget (ManagedPtr EncodingTarget)-foreign import ccall "gst_encoding_target_get_type"-    c_gst_encoding_target_get_type :: IO GType--instance GObject EncodingTarget where-    gobjectType = c_gst_encoding_target_get_type-    ---- | Type class for types which can be safely cast to `EncodingTarget`, for instance with `toEncodingTarget`.-class (GObject o, O.IsDescendantOf EncodingTarget o) => IsEncodingTarget o-instance (GObject o, O.IsDescendantOf EncodingTarget o) => IsEncodingTarget o--instance O.HasParentTypes EncodingTarget-type instance O.ParentTypes EncodingTarget = '[GObject.Object.Object]---- | Cast to `EncodingTarget`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toEncodingTarget :: (MonadIO m, IsEncodingTarget o) => o -> m EncodingTarget-toEncodingTarget = liftIO . unsafeCastTo EncodingTarget---- | A convenience alias for `Nothing` :: `Maybe` `EncodingTarget`.-noEncodingTarget :: Maybe EncodingTarget-noEncodingTarget = Nothing--#if ENABLE_OVERLOADING-type family ResolveEncodingTargetMethod (t :: Symbol) (o :: *) :: * where-    ResolveEncodingTargetMethod "addProfile" o = EncodingTargetAddProfileMethodInfo-    ResolveEncodingTargetMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveEncodingTargetMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveEncodingTargetMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveEncodingTargetMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveEncodingTargetMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveEncodingTargetMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveEncodingTargetMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveEncodingTargetMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveEncodingTargetMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveEncodingTargetMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveEncodingTargetMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveEncodingTargetMethod "save" o = EncodingTargetSaveMethodInfo-    ResolveEncodingTargetMethod "saveToFile" o = EncodingTargetSaveToFileMethodInfo-    ResolveEncodingTargetMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveEncodingTargetMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveEncodingTargetMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveEncodingTargetMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveEncodingTargetMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveEncodingTargetMethod "getCategory" o = EncodingTargetGetCategoryMethodInfo-    ResolveEncodingTargetMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveEncodingTargetMethod "getDescription" o = EncodingTargetGetDescriptionMethodInfo-    ResolveEncodingTargetMethod "getName" o = EncodingTargetGetNameMethodInfo-    ResolveEncodingTargetMethod "getProfile" o = EncodingTargetGetProfileMethodInfo-    ResolveEncodingTargetMethod "getProfiles" o = EncodingTargetGetProfilesMethodInfo-    ResolveEncodingTargetMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveEncodingTargetMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveEncodingTargetMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveEncodingTargetMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveEncodingTargetMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveEncodingTargetMethod t EncodingTarget, O.MethodInfo info EncodingTarget p) => OL.IsLabel t (EncodingTarget -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList EncodingTarget-type instance O.AttributeList EncodingTarget = EncodingTargetAttributeList-type EncodingTargetAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList EncodingTarget = EncodingTargetSignalList-type EncodingTargetSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method EncodingTarget::new--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the target.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the category to which this @target\nbelongs. For example: #GST_ENCODING_CATEGORY_DEVICE.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A description of #GstEncodingTarget in the\ncurrent locale.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "profiles", argType = TGList (TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GList of\n#GstEncodingProfile.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_target_new" gst_encoding_target_new :: -    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- category : TBasicType TUTF8-    CString ->                              -- description : TBasicType TUTF8-    Ptr (GList (Ptr GstPbutils.EncodingProfile.EncodingProfile)) -> -- profiles : TGList (TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}))-    IO (Ptr EncodingTarget)--{- |-Creates a new 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget'.--The name and category can only consist of lowercase ASCII letters for the-first character, followed by either lowercase ASCII letters, digits or-hyphens (\'-\').--The /@category@/ \<emphasis>should\<\/emphasis> be one of the existing-well-defined categories, like 'GI.GstPbutils.Constants.ENCODING_CATEGORY_DEVICE', but it-\<emphasis>can\<\/emphasis> be a application or user specific category if-needed.--}-encodingTargetNew ::-    (B.CallStack.HasCallStack, MonadIO m, GstPbutils.EncodingProfile.IsEncodingProfile a) =>-    T.Text-    {- ^ /@name@/: The name of the target. -}-    -> T.Text-    {- ^ /@category@/: The name of the category to which this /@target@/-belongs. For example: 'GI.GstPbutils.Constants.ENCODING_CATEGORY_DEVICE'. -}-    -> T.Text-    {- ^ /@description@/: A description of 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' in the-current locale. -}-    -> [a]-    {- ^ /@profiles@/: A 'GI.GLib.Structs.List.List' of-'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile'. -}-    -> m EncodingTarget-    {- ^ __Returns:__ The newly created 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' or 'Nothing' if-there was an error. -}-encodingTargetNew name category description profiles = liftIO $ do-    name' <- textToCString name-    category' <- textToCString category-    description' <- textToCString description-    profiles' <- mapM unsafeManagedPtrCastPtr profiles-    profiles'' <- packGList profiles'-    result <- gst_encoding_target_new name' category' description' profiles''-    checkUnexpectedReturnNULL "encodingTargetNew" result-    result' <- (wrapObject EncodingTarget) result-    mapM_ touchManagedPtr profiles-    freeMem name'-    freeMem category'-    freeMem description'-    g_list_free profiles''-    return result'--#if ENABLE_OVERLOADING-#endif---- method EncodingTarget::add_profile--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstEncodingTarget to add a profile to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "profile", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstEncodingProfile to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_target_add_profile" gst_encoding_target_add_profile :: -    Ptr EncodingTarget ->                   -- target : TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"})-    Ptr GstPbutils.EncodingProfile.EncodingProfile -> -- profile : TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})-    IO CInt--{- |-Adds the given /@profile@/ to the /@target@/. Each added profile must have-a unique name within the profile.--The /@target@/ will steal a reference to the /@profile@/. If you wish to use-the profile after calling this method, you should increase its reference-count.--}-encodingTargetAddProfile ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingTarget a, GstPbutils.EncodingProfile.IsEncodingProfile b) =>-    a-    {- ^ /@target@/: the 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' to add a profile to -}-    -> b-    {- ^ /@profile@/: the 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' to add -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the profile was added, else 'False'. -}-encodingTargetAddProfile target profile = liftIO $ do-    target' <- unsafeManagedPtrCastPtr target-    profile' <- B.ManagedPtr.disownObject profile-    result <- gst_encoding_target_add_profile target' profile'-    let result' = (/= 0) result-    touchManagedPtr target-    touchManagedPtr profile-    return result'--#if ENABLE_OVERLOADING-data EncodingTargetAddProfileMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsEncodingTarget a, GstPbutils.EncodingProfile.IsEncodingProfile b) => O.MethodInfo EncodingTargetAddProfileMethodInfo a signature where-    overloadedMethod _ = encodingTargetAddProfile--#endif---- method EncodingTarget::get_category--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_target_get_category" gst_encoding_target_get_category :: -    Ptr EncodingTarget ->                   -- target : TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"})-    IO CString--{- |-/No description available in the introspection data./--}-encodingTargetGetCategory ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingTarget a) =>-    a-    {- ^ /@target@/: a 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' -}-    -> m T.Text-    {- ^ __Returns:__ The category of the /@target@/. For example:-'GI.GstPbutils.Constants.ENCODING_CATEGORY_DEVICE'. -}-encodingTargetGetCategory target = liftIO $ do-    target' <- unsafeManagedPtrCastPtr target-    result <- gst_encoding_target_get_category target'-    checkUnexpectedReturnNULL "encodingTargetGetCategory" result-    result' <- cstringToText result-    touchManagedPtr target-    return result'--#if ENABLE_OVERLOADING-data EncodingTargetGetCategoryMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsEncodingTarget a) => O.MethodInfo EncodingTargetGetCategoryMethodInfo a signature where-    overloadedMethod _ = encodingTargetGetCategory--#endif---- method EncodingTarget::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_target_get_description" gst_encoding_target_get_description :: -    Ptr EncodingTarget ->                   -- target : TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"})-    IO CString--{- |-/No description available in the introspection data./--}-encodingTargetGetDescription ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingTarget a) =>-    a-    {- ^ /@target@/: a 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' -}-    -> m T.Text-    {- ^ __Returns:__ The description of the /@target@/. -}-encodingTargetGetDescription target = liftIO $ do-    target' <- unsafeManagedPtrCastPtr target-    result <- gst_encoding_target_get_description target'-    checkUnexpectedReturnNULL "encodingTargetGetDescription" result-    result' <- cstringToText result-    touchManagedPtr target-    return result'--#if ENABLE_OVERLOADING-data EncodingTargetGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsEncodingTarget a) => O.MethodInfo EncodingTargetGetDescriptionMethodInfo a signature where-    overloadedMethod _ = encodingTargetGetDescription--#endif---- method EncodingTarget::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_target_get_name" gst_encoding_target_get_name :: -    Ptr EncodingTarget ->                   -- target : TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"})-    IO CString--{- |-/No description available in the introspection data./--}-encodingTargetGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingTarget a) =>-    a-    {- ^ /@target@/: a 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' -}-    -> m T.Text-    {- ^ __Returns:__ The name of the /@target@/. -}-encodingTargetGetName target = liftIO $ do-    target' <- unsafeManagedPtrCastPtr target-    result <- gst_encoding_target_get_name target'-    checkUnexpectedReturnNULL "encodingTargetGetName" result-    result' <- cstringToText result-    touchManagedPtr target-    return result'--#if ENABLE_OVERLOADING-data EncodingTargetGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsEncodingTarget a) => O.MethodInfo EncodingTargetGetNameMethodInfo a signature where-    overloadedMethod _ = encodingTargetGetName--#endif---- method EncodingTarget::get_profile--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the profile to retrieve", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_target_get_profile" gst_encoding_target_get_profile :: -    Ptr EncodingTarget ->                   -- target : TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"})-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr GstPbutils.EncodingProfile.EncodingProfile)--{- |-/No description available in the introspection data./--}-encodingTargetGetProfile ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingTarget a) =>-    a-    {- ^ /@target@/: a 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' -}-    -> T.Text-    {- ^ /@name@/: the name of the profile to retrieve -}-    -> m GstPbutils.EncodingProfile.EncodingProfile-    {- ^ __Returns:__ The matching 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile', or 'Nothing'. -}-encodingTargetGetProfile target name = liftIO $ do-    target' <- unsafeManagedPtrCastPtr target-    name' <- textToCString name-    result <- gst_encoding_target_get_profile target' name'-    checkUnexpectedReturnNULL "encodingTargetGetProfile" result-    result' <- (wrapObject GstPbutils.EncodingProfile.EncodingProfile) result-    touchManagedPtr target-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data EncodingTargetGetProfileMethodInfo-instance (signature ~ (T.Text -> m GstPbutils.EncodingProfile.EncodingProfile), MonadIO m, IsEncodingTarget a) => O.MethodInfo EncodingTargetGetProfileMethodInfo a signature where-    overloadedMethod _ = encodingTargetGetProfile--#endif---- method EncodingTarget::get_profiles--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "GstPbutils", name = "EncodingProfile"})))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_target_get_profiles" gst_encoding_target_get_profiles :: -    Ptr EncodingTarget ->                   -- target : TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"})-    IO (Ptr (GList (Ptr GstPbutils.EncodingProfile.EncodingProfile)))--{- |-/No description available in the introspection data./--}-encodingTargetGetProfiles ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingTarget a) =>-    a-    {- ^ /@target@/: a 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' -}-    -> m [GstPbutils.EncodingProfile.EncodingProfile]-    {- ^ __Returns:__ A list of-'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile'(s) this /@target@/ handles. -}-encodingTargetGetProfiles target = liftIO $ do-    target' <- unsafeManagedPtrCastPtr target-    result <- gst_encoding_target_get_profiles target'-    result' <- unpackGList result-    result'' <- mapM (newObject GstPbutils.EncodingProfile.EncodingProfile) result'-    touchManagedPtr target-    return result''--#if ENABLE_OVERLOADING-data EncodingTargetGetProfilesMethodInfo-instance (signature ~ (m [GstPbutils.EncodingProfile.EncodingProfile]), MonadIO m, IsEncodingTarget a) => O.MethodInfo EncodingTargetGetProfilesMethodInfo a signature where-    overloadedMethod _ = encodingTargetGetProfiles--#endif---- method EncodingTarget::save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "gst_encoding_target_save" gst_encoding_target_save :: -    Ptr EncodingTarget ->                   -- target : TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Saves the /@target@/ to a default user-local directory.--}-encodingTargetSave ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingTarget a) =>-    a-    {- ^ /@target@/: a 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-encodingTargetSave target = liftIO $ do-    target' <- unsafeManagedPtrCastPtr target-    onException (do-        _ <- propagateGError $ gst_encoding_target_save target'-        touchManagedPtr target-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data EncodingTargetSaveMethodInfo-instance (signature ~ (m ()), MonadIO m, IsEncodingTarget a) => O.MethodInfo EncodingTargetSaveMethodInfo a signature where-    overloadedMethod _ = encodingTargetSave--#endif---- method EncodingTarget::save_to_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filepath", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the location to store the @target at.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "gst_encoding_target_save_to_file" gst_encoding_target_save_to_file :: -    Ptr EncodingTarget ->                   -- target : TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"})-    CString ->                              -- filepath : TBasicType TFileName-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Saves the /@target@/ to the provided file location.--}-encodingTargetSaveToFile ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingTarget a) =>-    a-    {- ^ /@target@/: a 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' -}-    -> [Char]-    {- ^ /@filepath@/: the location to store the /@target@/ at. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-encodingTargetSaveToFile target filepath = liftIO $ do-    target' <- unsafeManagedPtrCastPtr target-    filepath' <- stringToCString filepath-    onException (do-        _ <- propagateGError $ gst_encoding_target_save_to_file target' filepath'-        touchManagedPtr target-        freeMem filepath'-        return ()-     ) (do-        freeMem filepath'-     )--#if ENABLE_OVERLOADING-data EncodingTargetSaveToFileMethodInfo-instance (signature ~ ([Char] -> m ()), MonadIO m, IsEncodingTarget a) => O.MethodInfo EncodingTargetSaveToFileMethodInfo a signature where-    overloadedMethod _ = encodingTargetSaveToFile--#endif---- method EncodingTarget::load--- method type : MemberFunction--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the #GstEncodingTarget to load (automatically\nconverted to lower case internally as capital letters are not\nvalid for target names).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the name of the target category, like\n#GST_ENCODING_CATEGORY_DEVICE. Can be %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}))--- throws : True--- Skip return : False--foreign import ccall "gst_encoding_target_load" gst_encoding_target_load :: -    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- category : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr EncodingTarget)--{- |-Searches for the 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' with the given name, loads it-and returns it.--If the category name is specified only targets from that category will be-searched for.--}-encodingTargetLoad ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@name@/: the name of the 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' to load (automatically-converted to lower case internally as capital letters are not-valid for target names). -}-    -> Maybe (T.Text)-    {- ^ /@category@/: the name of the target category, like-'GI.GstPbutils.Constants.ENCODING_CATEGORY_DEVICE'. Can be 'Nothing' -}-    -> m EncodingTarget-    {- ^ __Returns:__ The 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' if available, else 'Nothing'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-encodingTargetLoad name category = liftIO $ do-    name' <- textToCString name-    maybeCategory <- case category of-        Nothing -> return nullPtr-        Just jCategory -> do-            jCategory' <- textToCString jCategory-            return jCategory'-    onException (do-        result <- propagateGError $ gst_encoding_target_load name' maybeCategory-        checkUnexpectedReturnNULL "encodingTargetLoad" result-        result' <- (wrapObject EncodingTarget) result-        freeMem name'-        freeMem maybeCategory-        return result'-     ) (do-        freeMem name'-        freeMem maybeCategory-     )--#if ENABLE_OVERLOADING-#endif---- method EncodingTarget::load_from_file--- method type : MemberFunction--- Args : [Arg {argCName = "filepath", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The file location to load the #GstEncodingTarget from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "EncodingTarget"}))--- throws : True--- Skip return : False--foreign import ccall "gst_encoding_target_load_from_file" gst_encoding_target_load_from_file :: -    CString ->                              -- filepath : TBasicType TFileName-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr EncodingTarget)--{- |-Opens the provided file and returns the contained 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget'.--}-encodingTargetLoadFromFile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@filepath@/: The file location to load the 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' from -}-    -> m EncodingTarget-    {- ^ __Returns:__ The 'GI.GstPbutils.Objects.EncodingTarget.EncodingTarget' contained in the file, else-'Nothing' /(Can throw 'Data.GI.Base.GError.GError')/ -}-encodingTargetLoadFromFile filepath = liftIO $ do-    filepath' <- stringToCString filepath-    onException (do-        result <- propagateGError $ gst_encoding_target_load_from_file filepath'-        checkUnexpectedReturnNULL "encodingTargetLoadFromFile" result-        result' <- (wrapObject EncodingTarget) result-        freeMem filepath'-        return result'-     ) (do-        freeMem filepath'-     )--#if ENABLE_OVERLOADING-#endif--
− GI/GstPbutils/Objects/EncodingTarget.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.EncodingTarget 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.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--newtype EncodingTarget = EncodingTarget (ManagedPtr EncodingTarget)-instance GObject EncodingTarget where-class (GObject o, O.IsDescendantOf EncodingTarget o) => IsEncodingTarget o-instance (GObject o, O.IsDescendantOf EncodingTarget o) => IsEncodingTarget o-instance O.HasParentTypes EncodingTarget-#if ENABLE_OVERLOADING-data EncodingTargetAddProfileMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingTargetGetCategoryMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingTargetGetDescriptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingTargetGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingTargetGetProfileMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingTargetGetProfilesMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingTargetSaveMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingTargetSaveToFileMethodInfo-#endif
− GI/GstPbutils/Objects/EncodingVideoProfile.hs 
@@ -1,402 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Variant of 'GI.GstPbutils.Objects.EncodingProfile.EncodingProfile' for video streams, allows specifying the /@pass@/.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Objects.EncodingVideoProfile-    ( ---- * Exported types-    EncodingVideoProfile(..)                ,-    IsEncodingVideoProfile                  ,-    toEncodingVideoProfile                  ,-    noEncodingVideoProfile                  ,--- -- * Methods--- ** getPass #method:getPass#--#if ENABLE_OVERLOADING-    EncodingVideoProfileGetPassMethodInfo   ,-#endif-    encodingVideoProfileGetPass             ,----- ** getVariableframerate #method:getVariableframerate#--#if ENABLE_OVERLOADING-    EncodingVideoProfileGetVariableframerateMethodInfo,-#endif-    encodingVideoProfileGetVariableframerate,----- ** new #method:new#--    encodingVideoProfileNew                 ,----- ** setPass #method:setPass#--#if ENABLE_OVERLOADING-    EncodingVideoProfileSetPassMethodInfo   ,-#endif-    encodingVideoProfileSetPass             ,----- ** setVariableframerate #method:setVariableframerate#--#if 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.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---- | Memory-managed wrapper type.-newtype EncodingVideoProfile = EncodingVideoProfile (ManagedPtr EncodingVideoProfile)-foreign import ccall "gst_encoding_video_profile_get_type"-    c_gst_encoding_video_profile_get_type :: IO GType--instance GObject EncodingVideoProfile where-    gobjectType = c_gst_encoding_video_profile_get_type-    ---- | Type class for types which can be safely cast to `EncodingVideoProfile`, for instance with `toEncodingVideoProfile`.-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]---- | Cast to `EncodingVideoProfile`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toEncodingVideoProfile :: (MonadIO m, IsEncodingVideoProfile o) => o -> m EncodingVideoProfile-toEncodingVideoProfile = liftIO . unsafeCastTo EncodingVideoProfile---- | A convenience alias for `Nothing` :: `Maybe` `EncodingVideoProfile`.-noEncodingVideoProfile :: Maybe EncodingVideoProfile-noEncodingVideoProfile = Nothing--#if 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 "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 (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList EncodingVideoProfile-type instance O.AttributeList EncodingVideoProfile = EncodingVideoProfileAttributeList-type EncodingVideoProfileAttributeList = ('[ '("restrictionCaps", GstPbutils.EncodingProfile.EncodingProfileRestrictionCapsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList EncodingVideoProfile = EncodingVideoProfileSignalList-type EncodingVideoProfileSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method EncodingVideoProfile::new--- method type : Constructor--- Args : [Arg {argCName = "format", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GstCaps", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the preset(s) to use on the encoder, can be %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "restriction", argType = TInterface (Name {namespace = "Gst", name = "Caps"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GstCaps used to restrict the input to the encoder, can be\nNULL. See gst_encoding_profile_get_restriction() for more details.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "presence", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of time this stream must be used. 0 means any number of\n times (including never)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "EncodingVideoProfile"}))--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_video_profile_new" gst_encoding_video_profile_new :: -    Ptr Gst.Caps.Caps ->                    -- format : TInterface (Name {namespace = "Gst", name = "Caps"})-    CString ->                              -- preset : TBasicType TUTF8-    Ptr Gst.Caps.Caps ->                    -- restriction : TInterface (Name {namespace = "Gst", name = "Caps"})-    Word32 ->                               -- presence : TBasicType TUInt-    IO (Ptr EncodingVideoProfile)--{- |-Creates a new 'GI.GstPbutils.Objects.EncodingVideoProfile.EncodingVideoProfile'--All provided allocatable arguments will be internally copied, so can be-safely freed\/unreferenced after calling this method.--If you wish to control the pass number (in case of multi-pass scenarios),-please refer to the 'GI.GstPbutils.Objects.EncodingVideoProfile.encodingVideoProfileSetPass' documentation.--If you wish to use\/force a constant framerate please refer to the-'GI.GstPbutils.Objects.EncodingVideoProfile.encodingVideoProfileSetVariableframerate' documentation.--}-encodingVideoProfileNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gst.Caps.Caps-    {- ^ /@format@/: the 'GI.Gst.Structs.Caps.Caps' -}-    -> Maybe (T.Text)-    {- ^ /@preset@/: the preset(s) to use on the encoder, can be 'Nothing' -}-    -> Maybe (Gst.Caps.Caps)-    {- ^ /@restriction@/: the 'GI.Gst.Structs.Caps.Caps' used to restrict the input to the encoder, can be-NULL. See 'GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetRestriction' for more details. -}-    -> Word32-    {- ^ /@presence@/: the number of time this stream must be used. 0 means any number of- times (including never) -}-    -> m EncodingVideoProfile-    {- ^ __Returns:__ the newly created 'GI.GstPbutils.Objects.EncodingVideoProfile.EncodingVideoProfile'. -}-encodingVideoProfileNew format preset restriction presence = liftIO $ do-    format' <- unsafeManagedPtrGetPtr format-    maybePreset <- case preset of-        Nothing -> return nullPtr-        Just jPreset -> do-            jPreset' <- textToCString jPreset-            return jPreset'-    maybeRestriction <- case restriction of-        Nothing -> return nullPtr-        Just jRestriction -> do-            jRestriction' <- unsafeManagedPtrGetPtr jRestriction-            return jRestriction'-    result <- gst_encoding_video_profile_new format' maybePreset maybeRestriction presence-    checkUnexpectedReturnNULL "encodingVideoProfileNew" result-    result' <- (wrapObject EncodingVideoProfile) result-    touchManagedPtr format-    whenJust restriction touchManagedPtr-    freeMem maybePreset-    return result'--#if ENABLE_OVERLOADING-#endif---- method EncodingVideoProfile::get_pass--- method type : OrdinaryMethod--- Args : [Arg {argCName = "prof", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingVideoProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingVideoProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_video_profile_get_pass" gst_encoding_video_profile_get_pass :: -    Ptr EncodingVideoProfile ->             -- prof : TInterface (Name {namespace = "GstPbutils", name = "EncodingVideoProfile"})-    IO Word32--{- |-Get the pass number if this is part of a multi-pass profile.--}-encodingVideoProfileGetPass ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingVideoProfile a) =>-    a-    {- ^ /@prof@/: a 'GI.GstPbutils.Objects.EncodingVideoProfile.EncodingVideoProfile' -}-    -> m Word32-    {- ^ __Returns:__ The pass number. Starts at 1 for multi-pass. 0 if this is-not a multi-pass profile -}-encodingVideoProfileGetPass prof = liftIO $ do-    prof' <- unsafeManagedPtrCastPtr prof-    result <- gst_encoding_video_profile_get_pass prof'-    touchManagedPtr prof-    return result--#if ENABLE_OVERLOADING-data EncodingVideoProfileGetPassMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsEncodingVideoProfile a) => O.MethodInfo EncodingVideoProfileGetPassMethodInfo a signature where-    overloadedMethod _ = encodingVideoProfileGetPass--#endif---- method EncodingVideoProfile::get_variableframerate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "prof", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingVideoProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingVideoProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_video_profile_get_variableframerate" gst_encoding_video_profile_get_variableframerate :: -    Ptr EncodingVideoProfile ->             -- prof : TInterface (Name {namespace = "GstPbutils", name = "EncodingVideoProfile"})-    IO CInt--{- |-/No description available in the introspection data./--}-encodingVideoProfileGetVariableframerate ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingVideoProfile a) =>-    a-    {- ^ /@prof@/: a 'GI.GstPbutils.Objects.EncodingVideoProfile.EncodingVideoProfile' -}-    -> m Bool-    {- ^ __Returns:__ Whether non-constant video framerate is allowed for encoding. -}-encodingVideoProfileGetVariableframerate prof = liftIO $ do-    prof' <- unsafeManagedPtrCastPtr prof-    result <- gst_encoding_video_profile_get_variableframerate prof'-    let result' = (/= 0) result-    touchManagedPtr prof-    return result'--#if ENABLE_OVERLOADING-data EncodingVideoProfileGetVariableframerateMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsEncodingVideoProfile a) => O.MethodInfo EncodingVideoProfileGetVariableframerateMethodInfo a signature where-    overloadedMethod _ = encodingVideoProfileGetVariableframerate--#endif---- method EncodingVideoProfile::set_pass--- method type : OrdinaryMethod--- Args : [Arg {argCName = "prof", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingVideoProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingVideoProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pass", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the pass number for this profile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_video_profile_set_pass" gst_encoding_video_profile_set_pass :: -    Ptr EncodingVideoProfile ->             -- prof : TInterface (Name {namespace = "GstPbutils", name = "EncodingVideoProfile"})-    Word32 ->                               -- pass : TBasicType TUInt-    IO ()--{- |-Sets the pass number of this video profile. The first pass profile should have-this value set to 1. If this video profile isn\'t part of a multi-pass profile,-you may set it to 0 (the default value).--}-encodingVideoProfileSetPass ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingVideoProfile a) =>-    a-    {- ^ /@prof@/: a 'GI.GstPbutils.Objects.EncodingVideoProfile.EncodingVideoProfile' -}-    -> Word32-    {- ^ /@pass@/: the pass number for this profile -}-    -> m ()-encodingVideoProfileSetPass prof pass = liftIO $ do-    prof' <- unsafeManagedPtrCastPtr prof-    gst_encoding_video_profile_set_pass prof' pass-    touchManagedPtr prof-    return ()--#if ENABLE_OVERLOADING-data EncodingVideoProfileSetPassMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsEncodingVideoProfile a) => O.MethodInfo EncodingVideoProfileSetPassMethodInfo a signature where-    overloadedMethod _ = encodingVideoProfileSetPass--#endif---- method EncodingVideoProfile::set_variableframerate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "prof", argType = TInterface (Name {namespace = "GstPbutils", name = "EncodingVideoProfile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstEncodingVideoProfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variableframerate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a boolean", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_encoding_video_profile_set_variableframerate" gst_encoding_video_profile_set_variableframerate :: -    Ptr EncodingVideoProfile ->             -- prof : TInterface (Name {namespace = "GstPbutils", name = "EncodingVideoProfile"})-    CInt ->                                 -- variableframerate : TBasicType TBoolean-    IO ()--{- |-If set to 'True', then the incoming stream will be allowed to have non-constant-framerate. If set to 'False' (default value), then the incoming stream will-be normalized by dropping\/duplicating frames in order to produce a-constance framerate.--}-encodingVideoProfileSetVariableframerate ::-    (B.CallStack.HasCallStack, MonadIO m, IsEncodingVideoProfile a) =>-    a-    {- ^ /@prof@/: a 'GI.GstPbutils.Objects.EncodingVideoProfile.EncodingVideoProfile' -}-    -> Bool-    {- ^ /@variableframerate@/: a boolean -}-    -> m ()-encodingVideoProfileSetVariableframerate prof variableframerate = liftIO $ do-    prof' <- unsafeManagedPtrCastPtr prof-    let variableframerate' = (fromIntegral . fromEnum) variableframerate-    gst_encoding_video_profile_set_variableframerate prof' variableframerate'-    touchManagedPtr prof-    return ()--#if ENABLE_OVERLOADING-data EncodingVideoProfileSetVariableframerateMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsEncodingVideoProfile a) => O.MethodInfo EncodingVideoProfileSetVariableframerateMethodInfo a signature where-    overloadedMethod _ = encodingVideoProfileSetVariableframerate--#endif--
− GI/GstPbutils/Objects/EncodingVideoProfile.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Objects.EncodingVideoProfile 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.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--newtype EncodingVideoProfile = EncodingVideoProfile (ManagedPtr EncodingVideoProfile)-instance GObject EncodingVideoProfile where-class (GObject o, O.IsDescendantOf EncodingVideoProfile o) => IsEncodingVideoProfile o-instance (GObject o, O.IsDescendantOf EncodingVideoProfile o) => IsEncodingVideoProfile o-instance O.HasParentTypes EncodingVideoProfile-#if ENABLE_OVERLOADING-data EncodingVideoProfileGetPassMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingVideoProfileGetVariableframerateMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingVideoProfileSetPassMethodInfo-#endif-#if ENABLE_OVERLOADING-data EncodingVideoProfileSetVariableframerateMethodInfo-#endif
− GI/GstPbutils/Structs.hs 
@@ -1,41 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Structs-    (     module GI.GstPbutils.Structs.InstallPluginsContext,---    ) where--import GI.GstPbutils.Structs.InstallPluginsContext--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.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---
− GI/GstPbutils/Structs/InstallPluginsContext.hs 
@@ -1,438 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Opaque context structure for the plugin installation. Use the provided-API to set details on it.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.GstPbutils.Structs.InstallPluginsContext-    ( ---- * Exported types-    InstallPluginsContext(..)               ,-    noInstallPluginsContext                 ,--- -- * Methods--- ** copy #method:copy#--#if ENABLE_OVERLOADING-    InstallPluginsContextCopyMethodInfo     ,-#endif-    installPluginsContextCopy               ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    InstallPluginsContextFreeMethodInfo     ,-#endif-    installPluginsContextFree               ,----- ** new #method:new#--    installPluginsContextNew                ,----- ** setConfirmSearch #method:setConfirmSearch#--#if ENABLE_OVERLOADING-    InstallPluginsContextSetConfirmSearchMethodInfo,-#endif-    installPluginsContextSetConfirmSearch   ,----- ** setDesktopId #method:setDesktopId#--#if ENABLE_OVERLOADING-    InstallPluginsContextSetDesktopIdMethodInfo,-#endif-    installPluginsContextSetDesktopId       ,----- ** setStartupNotificationId #method:setStartupNotificationId#--#if ENABLE_OVERLOADING-    InstallPluginsContextSetStartupNotificationIdMethodInfo,-#endif-    installPluginsContextSetStartupNotificationId,----- ** setXid #method:setXid#--#if ENABLE_OVERLOADING-    InstallPluginsContextSetXidMethodInfo   ,-#endif-    installPluginsContextSetXid             ,-----    ) 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.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----- | Memory-managed wrapper type.-newtype InstallPluginsContext = InstallPluginsContext (ManagedPtr InstallPluginsContext)-foreign import ccall "gst_install_plugins_context_get_type" c_gst_install_plugins_context_get_type :: -    IO GType--instance BoxedObject InstallPluginsContext where-    boxedType _ = c_gst_install_plugins_context_get_type---- | A convenience alias for `Nothing` :: `Maybe` `InstallPluginsContext`.-noInstallPluginsContext :: Maybe InstallPluginsContext-noInstallPluginsContext = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList InstallPluginsContext-type instance O.AttributeList InstallPluginsContext = InstallPluginsContextAttributeList-type InstallPluginsContextAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method InstallPluginsContext::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"}))--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_context_new" gst_install_plugins_context_new :: -    IO (Ptr InstallPluginsContext)--{- |-Creates a new 'GI.GstPbutils.Structs.InstallPluginsContext.InstallPluginsContext'.--}-installPluginsContextNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m InstallPluginsContext-    {- ^ __Returns:__ a new 'GI.GstPbutils.Structs.InstallPluginsContext.InstallPluginsContext'. Free with-'GI.GstPbutils.Structs.InstallPluginsContext.installPluginsContextFree' when no longer needed -}-installPluginsContextNew  = liftIO $ do-    result <- gst_install_plugins_context_new-    checkUnexpectedReturnNULL "installPluginsContextNew" result-    result' <- (wrapBoxed InstallPluginsContext) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method InstallPluginsContext::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ctx", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"}))--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_context_copy" gst_install_plugins_context_copy :: -    Ptr InstallPluginsContext ->            -- ctx : TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"})-    IO (Ptr InstallPluginsContext)--{- |-/No description available in the introspection data./--}-installPluginsContextCopy ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    InstallPluginsContext-    -> m InstallPluginsContext-installPluginsContextCopy ctx = liftIO $ do-    ctx' <- unsafeManagedPtrGetPtr ctx-    result <- gst_install_plugins_context_copy ctx'-    checkUnexpectedReturnNULL "installPluginsContextCopy" result-    result' <- (wrapBoxed InstallPluginsContext) result-    touchManagedPtr ctx-    return result'--#if ENABLE_OVERLOADING-data InstallPluginsContextCopyMethodInfo-instance (signature ~ (m InstallPluginsContext), MonadIO m) => O.MethodInfo InstallPluginsContextCopyMethodInfo InstallPluginsContext signature where-    overloadedMethod _ = installPluginsContextCopy--#endif---- method InstallPluginsContext::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ctx", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstInstallPluginsContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_context_free" gst_install_plugins_context_free :: -    Ptr InstallPluginsContext ->            -- ctx : TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"})-    IO ()--{- |-Frees a 'GI.GstPbutils.Structs.InstallPluginsContext.InstallPluginsContext'.--}-installPluginsContextFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    InstallPluginsContext-    {- ^ /@ctx@/: a 'GI.GstPbutils.Structs.InstallPluginsContext.InstallPluginsContext' -}-    -> m ()-installPluginsContextFree ctx = liftIO $ do-    ctx' <- unsafeManagedPtrGetPtr ctx-    gst_install_plugins_context_free ctx'-    touchManagedPtr ctx-    return ()--#if ENABLE_OVERLOADING-data InstallPluginsContextFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo InstallPluginsContextFreeMethodInfo InstallPluginsContext signature where-    overloadedMethod _ = installPluginsContextFree--#endif---- method InstallPluginsContext::set_confirm_search--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ctx", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstInstallPluginsContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "confirm_search", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to ask for confirmation before searching for plugins", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_context_set_confirm_search" gst_install_plugins_context_set_confirm_search :: -    Ptr InstallPluginsContext ->            -- ctx : TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"})-    CInt ->                                 -- confirm_search : TBasicType TBoolean-    IO ()--{- |-This function is used to tell the external installer process whether it-should ask for confirmation or not before searching for missing plugins.--If set, this option will be passed to the installer via a---interaction=[show-confirm-search|hide-confirm-search] command line option.--/Since: 1.6/--}-installPluginsContextSetConfirmSearch ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    InstallPluginsContext-    {- ^ /@ctx@/: a 'GI.GstPbutils.Structs.InstallPluginsContext.InstallPluginsContext' -}-    -> Bool-    {- ^ /@confirmSearch@/: whether to ask for confirmation before searching for plugins -}-    -> m ()-installPluginsContextSetConfirmSearch ctx confirmSearch = liftIO $ do-    ctx' <- unsafeManagedPtrGetPtr ctx-    let confirmSearch' = (fromIntegral . fromEnum) confirmSearch-    gst_install_plugins_context_set_confirm_search ctx' confirmSearch'-    touchManagedPtr ctx-    return ()--#if ENABLE_OVERLOADING-data InstallPluginsContextSetConfirmSearchMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m) => O.MethodInfo InstallPluginsContextSetConfirmSearchMethodInfo InstallPluginsContext signature where-    overloadedMethod _ = installPluginsContextSetConfirmSearch--#endif---- method InstallPluginsContext::set_desktop_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ctx", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstInstallPluginsContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desktop_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the desktop file ID of the calling application", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_context_set_desktop_id" gst_install_plugins_context_set_desktop_id :: -    Ptr InstallPluginsContext ->            -- ctx : TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"})-    CString ->                              -- desktop_id : TBasicType TUTF8-    IO ()--{- |-This function is used to pass the calling application\'s desktop file ID to-the external installer process.--A desktop file ID is the basename of the desktop file, including the-.desktop extension.--If set, the desktop file ID will be passed to the installer via a---desktop-id= command line option.--/Since: 1.6/--}-installPluginsContextSetDesktopId ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    InstallPluginsContext-    {- ^ /@ctx@/: a 'GI.GstPbutils.Structs.InstallPluginsContext.InstallPluginsContext' -}-    -> T.Text-    {- ^ /@desktopId@/: the desktop file ID of the calling application -}-    -> m ()-installPluginsContextSetDesktopId ctx desktopId = liftIO $ do-    ctx' <- unsafeManagedPtrGetPtr ctx-    desktopId' <- textToCString desktopId-    gst_install_plugins_context_set_desktop_id ctx' desktopId'-    touchManagedPtr ctx-    freeMem desktopId'-    return ()--#if ENABLE_OVERLOADING-data InstallPluginsContextSetDesktopIdMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo InstallPluginsContextSetDesktopIdMethodInfo InstallPluginsContext signature where-    overloadedMethod _ = installPluginsContextSetDesktopId--#endif---- method InstallPluginsContext::set_startup_notification_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ctx", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstInstallPluginsContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the startup notification ID", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_context_set_startup_notification_id" gst_install_plugins_context_set_startup_notification_id :: -    Ptr InstallPluginsContext ->            -- ctx : TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"})-    CString ->                              -- startup_id : TBasicType TUTF8-    IO ()--{- |-Sets the startup notification ID for the launched process.--This is typically used to to pass the current X11 event timestamp to the-external installer process.--Startup notification IDs are defined in the-<http://standards.freedesktop.org/startup-notification-spec/startup-notification-latest.txt FreeDesktop.Org Startup Notifications standard>.--If set, the ID will be passed to the installer via a---startup-notification-id= command line option.--GTK+\/GNOME applications should be able to create a startup notification ID-like this:->->  timestamp = gtk_get_current_event_time ();->  startup_id = g_strdup_printf ("_TIME%u", timestamp);->...---/Since: 1.6/--}-installPluginsContextSetStartupNotificationId ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    InstallPluginsContext-    {- ^ /@ctx@/: a 'GI.GstPbutils.Structs.InstallPluginsContext.InstallPluginsContext' -}-    -> T.Text-    {- ^ /@startupId@/: the startup notification ID -}-    -> m ()-installPluginsContextSetStartupNotificationId ctx startupId = liftIO $ do-    ctx' <- unsafeManagedPtrGetPtr ctx-    startupId' <- textToCString startupId-    gst_install_plugins_context_set_startup_notification_id ctx' startupId'-    touchManagedPtr ctx-    freeMem startupId'-    return ()--#if ENABLE_OVERLOADING-data InstallPluginsContextSetStartupNotificationIdMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo InstallPluginsContextSetStartupNotificationIdMethodInfo InstallPluginsContext signature where-    overloadedMethod _ = installPluginsContextSetStartupNotificationId--#endif---- method InstallPluginsContext::set_xid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ctx", argType = TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GstInstallPluginsContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xid", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the XWindow ID (XID) of the top-level application", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gst_install_plugins_context_set_xid" gst_install_plugins_context_set_xid :: -    Ptr InstallPluginsContext ->            -- ctx : TInterface (Name {namespace = "GstPbutils", name = "InstallPluginsContext"})-    Word32 ->                               -- xid : TBasicType TUInt-    IO ()--{- |-This function is for X11-based applications (such as most Gtk\/Qt-applications on linux\/unix) only. You can use it to tell the external-installer the XID of your main application window. That way the installer-can make its own window transient to your application window during the-installation.--If set, the XID will be passed to the installer via a --transient-for=XID-command line option.--Gtk+\/Gnome application should be able to obtain the XID of the top-level-window like this:->->##include &lt;gtk/gtk.h&gt;->##ifdef GDK_WINDOWING_X11->##include &lt;gdk/gdkx.h&gt;->##endif->...->##ifdef GDK_WINDOWING_X11->  xid = GDK_WINDOW_XWINDOW (GTK_WIDGET (application_window)-&gt;window);->##endif->...--}-installPluginsContextSetXid ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    InstallPluginsContext-    {- ^ /@ctx@/: a 'GI.GstPbutils.Structs.InstallPluginsContext.InstallPluginsContext' -}-    -> Word32-    {- ^ /@xid@/: the XWindow ID (XID) of the top-level application -}-    -> m ()-installPluginsContextSetXid ctx xid = liftIO $ do-    ctx' <- unsafeManagedPtrGetPtr ctx-    gst_install_plugins_context_set_xid ctx' xid-    touchManagedPtr ctx-    return ()--#if ENABLE_OVERLOADING-data InstallPluginsContextSetXidMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m) => O.MethodInfo InstallPluginsContextSetXidMethodInfo InstallPluginsContext signature where-    overloadedMethod _ = installPluginsContextSetXid--#endif--#if ENABLE_OVERLOADING-type family ResolveInstallPluginsContextMethod (t :: Symbol) (o :: *) :: * where-    ResolveInstallPluginsContextMethod "copy" o = InstallPluginsContextCopyMethodInfo-    ResolveInstallPluginsContextMethod "free" o = InstallPluginsContextFreeMethodInfo-    ResolveInstallPluginsContextMethod "setConfirmSearch" o = InstallPluginsContextSetConfirmSearchMethodInfo-    ResolveInstallPluginsContextMethod "setDesktopId" o = InstallPluginsContextSetDesktopIdMethodInfo-    ResolveInstallPluginsContextMethod "setStartupNotificationId" o = InstallPluginsContextSetStartupNotificationIdMethodInfo-    ResolveInstallPluginsContextMethod "setXid" o = InstallPluginsContextSetXidMethodInfo-    ResolveInstallPluginsContextMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveInstallPluginsContextMethod t InstallPluginsContext, O.MethodInfo info InstallPluginsContext p) => OL.IsLabel t (InstallPluginsContext -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/GstPbutils/Structs/InstallPluginsContext.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.GstPbutils.Structs.InstallPluginsContext 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.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--newtype InstallPluginsContext = InstallPluginsContext (ManagedPtr InstallPluginsContext)-instance BoxedObject InstallPluginsContext where-#if ENABLE_OVERLOADING-data InstallPluginsContextCopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data InstallPluginsContextFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data InstallPluginsContextSetConfirmSearchMethodInfo-#endif-#if ENABLE_OVERLOADING-data InstallPluginsContextSetDesktopIdMethodInfo-#endif-#if ENABLE_OVERLOADING-data InstallPluginsContextSetStartupNotificationIdMethodInfo-#endif-#if ENABLE_OVERLOADING-data InstallPluginsContextSetXidMethodInfo-#endif
README.md view
@@ -1,6 +1,6 @@ # Documentation Autogenerated documentation for this package can be found at -[https://hackage.haskell.org/package/gi-gstpbutils-1.0.17/docs/GI-GstPbutils.html](https://hackage.haskell.org/package/gi-gstpbutils-1.0.17/docs/GI-GstPbutils.html)+[https://hackage.haskell.org/package/gi-gstpbutils-1.0.18/docs/GI-GstPbutils.html](https://hackage.haskell.org/package/gi-gstpbutils-1.0.18/docs/GI-GstPbutils.html)  For general documentation on using [haskell-gi](https://github.com/haskell-gi/haskell-gi) based bindings, see [the project page](https://github.com/haskell-gi/haskell-gi) or [the Wiki](https://github.com/haskell-gi/haskell-gi/wiki).
gi-gstpbutils.cabal view
@@ -1,5 +1,5 @@ name:                 gi-gstpbutils-version:              1.0.17+version:              1.0.18 synopsis:             GStreamer Plugins Base Utils bindings description:          Bindings for GStreamer Plugins Base Utils, autogenerated by haskell-gi. homepage:             https://github.com/haskell-gi/haskell-gi@@ -46,6 +46,29 @@               build-depends: haskell-gi-overloading == 0.0        exposed-modules: GI.GstPbutils,+                       GI.GstPbutils.Callbacks,+                       GI.GstPbutils.Constants,+                       GI.GstPbutils.Enums,+                       GI.GstPbutils.Flags,+                       GI.GstPbutils.Functions,+                       GI.GstPbutils.Objects,+                       GI.GstPbutils.Objects.AudioVisualizer,+                       GI.GstPbutils.Objects.Discoverer,+                       GI.GstPbutils.Objects.DiscovererAudioInfo,+                       GI.GstPbutils.Objects.DiscovererContainerInfo,+                       GI.GstPbutils.Objects.DiscovererInfo,+                       GI.GstPbutils.Objects.DiscovererStreamInfo,+                       GI.GstPbutils.Objects.DiscovererSubtitleInfo,+                       GI.GstPbutils.Objects.DiscovererVideoInfo,+                       GI.GstPbutils.Objects.EncodingAudioProfile,+                       GI.GstPbutils.Objects.EncodingContainerProfile,+                       GI.GstPbutils.Objects.EncodingProfile,+                       GI.GstPbutils.Objects.EncodingTarget,+                       GI.GstPbutils.Objects.EncodingVideoProfile,+                       GI.GstPbutils.Structs,+                       GI.GstPbutils.Structs.InstallPluginsContext++      autogen-modules: GI.GstPbutils,                        GI.GstPbutils.Callbacks,                        GI.GstPbutils.Constants,                        GI.GstPbutils.Enums,