#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstPbutils.Enums
(
AudioVisualizerShader(..) ,
DiscovererResult(..) ,
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
data InstallPluginsReturn =
InstallPluginsReturnSuccess
| InstallPluginsReturnNotFound
| InstallPluginsReturnError
| InstallPluginsReturnPartialSuccess
| InstallPluginsReturnUserAbort
| InstallPluginsReturnCrashed
| InstallPluginsReturnInvalid
| InstallPluginsReturnStartedOk
| InstallPluginsReturnInternalFailure
| InstallPluginsReturnHelperMissing
| InstallPluginsReturnInstallInProgress
| AnotherInstallPluginsReturn Int
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
data DiscovererResult =
DiscovererResultOk
| DiscovererResultUriInvalid
| DiscovererResultError
| DiscovererResultTimeout
| DiscovererResultBusy
| DiscovererResultMissingPlugins
| AnotherDiscovererResult Int
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
data AudioVisualizerShader =
AudioVisualizerShaderNone
| AudioVisualizerShaderFade
| AudioVisualizerShaderFadeAndMoveUp
| AudioVisualizerShaderFadeAndMoveDown
| AudioVisualizerShaderFadeAndMoveLeft
| AudioVisualizerShaderFadeAndMoveRight
| AudioVisualizerShaderFadeAndMoveHorizOut
| AudioVisualizerShaderFadeAndMoveHorizIn
| AudioVisualizerShaderFadeAndMoveVertOut
| AudioVisualizerShaderFadeAndMoveVertIn
| AnotherAudioVisualizerShader Int
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