#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstTag.Enums
(
TagDemuxResult(..) ,
TagImageType(..) ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
data TagImageType =
TagImageTypeNone
| TagImageTypeUndefined
| TagImageTypeFrontCover
| TagImageTypeBackCover
| TagImageTypeLeafletPage
| TagImageTypeMedium
| TagImageTypeLeadArtist
| TagImageTypeArtist
| TagImageTypeConductor
| TagImageTypeBandOrchestra
| TagImageTypeComposer
| TagImageTypeLyricist
| TagImageTypeRecordingLocation
| TagImageTypeDuringRecording
| TagImageTypeDuringPerformance
| TagImageTypeVideoCapture
| TagImageTypeFish
| TagImageTypeIllustration
| TagImageTypeBandArtistLogo
| TagImageTypePublisherStudioLogo
| AnotherTagImageType Int
deriving (Int -> TagImageType -> ShowS
[TagImageType] -> ShowS
TagImageType -> String
(Int -> TagImageType -> ShowS)
-> (TagImageType -> String)
-> ([TagImageType] -> ShowS)
-> Show TagImageType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TagImageType -> ShowS
showsPrec :: Int -> TagImageType -> ShowS
$cshow :: TagImageType -> String
show :: TagImageType -> String
$cshowList :: [TagImageType] -> ShowS
showList :: [TagImageType] -> ShowS
Show, TagImageType -> TagImageType -> Bool
(TagImageType -> TagImageType -> Bool)
-> (TagImageType -> TagImageType -> Bool) -> Eq TagImageType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TagImageType -> TagImageType -> Bool
== :: TagImageType -> TagImageType -> Bool
$c/= :: TagImageType -> TagImageType -> Bool
/= :: TagImageType -> TagImageType -> Bool
Eq)
instance P.Enum TagImageType where
fromEnum :: TagImageType -> Int
fromEnum TagImageType
TagImageTypeNone = Int
-1
fromEnum TagImageType
TagImageTypeUndefined = Int
0
fromEnum TagImageType
TagImageTypeFrontCover = Int
1
fromEnum TagImageType
TagImageTypeBackCover = Int
2
fromEnum TagImageType
TagImageTypeLeafletPage = Int
3
fromEnum TagImageType
TagImageTypeMedium = Int
4
fromEnum TagImageType
TagImageTypeLeadArtist = Int
5
fromEnum TagImageType
TagImageTypeArtist = Int
6
fromEnum TagImageType
TagImageTypeConductor = Int
7
fromEnum TagImageType
TagImageTypeBandOrchestra = Int
8
fromEnum TagImageType
TagImageTypeComposer = Int
9
fromEnum TagImageType
TagImageTypeLyricist = Int
10
fromEnum TagImageType
TagImageTypeRecordingLocation = Int
11
fromEnum TagImageType
TagImageTypeDuringRecording = Int
12
fromEnum TagImageType
TagImageTypeDuringPerformance = Int
13
fromEnum TagImageType
TagImageTypeVideoCapture = Int
14
fromEnum TagImageType
TagImageTypeFish = Int
15
fromEnum TagImageType
TagImageTypeIllustration = Int
16
fromEnum TagImageType
TagImageTypeBandArtistLogo = Int
17
fromEnum TagImageType
TagImageTypePublisherStudioLogo = Int
18
fromEnum (AnotherTagImageType Int
k) = Int
k
toEnum :: Int -> TagImageType
toEnum Int
-1 = TagImageType
TagImageTypeNone
toEnum Int
0 = TagImageType
TagImageTypeUndefined
toEnum Int
1 = TagImageType
TagImageTypeFrontCover
toEnum Int
2 = TagImageType
TagImageTypeBackCover
toEnum Int
3 = TagImageType
TagImageTypeLeafletPage
toEnum Int
4 = TagImageType
TagImageTypeMedium
toEnum Int
5 = TagImageType
TagImageTypeLeadArtist
toEnum Int
6 = TagImageType
TagImageTypeArtist
toEnum Int
7 = TagImageType
TagImageTypeConductor
toEnum Int
8 = TagImageType
TagImageTypeBandOrchestra
toEnum Int
9 = TagImageType
TagImageTypeComposer
toEnum Int
10 = TagImageType
TagImageTypeLyricist
toEnum Int
11 = TagImageType
TagImageTypeRecordingLocation
toEnum Int
12 = TagImageType
TagImageTypeDuringRecording
toEnum Int
13 = TagImageType
TagImageTypeDuringPerformance
toEnum Int
14 = TagImageType
TagImageTypeVideoCapture
toEnum Int
15 = TagImageType
TagImageTypeFish
toEnum Int
16 = TagImageType
TagImageTypeIllustration
toEnum Int
17 = TagImageType
TagImageTypeBandArtistLogo
toEnum Int
18 = TagImageType
TagImageTypePublisherStudioLogo
toEnum Int
k = Int -> TagImageType
AnotherTagImageType Int
k
instance P.Ord TagImageType where
compare :: TagImageType -> TagImageType -> Ordering
compare TagImageType
a TagImageType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TagImageType -> Int
forall a. Enum a => a -> Int
P.fromEnum TagImageType
a) (TagImageType -> Int
forall a. Enum a => a -> Int
P.fromEnum TagImageType
b)
type instance O.ParentTypes TagImageType = '[]
instance O.HasParentTypes TagImageType
foreign import ccall "gst_tag_image_type_get_type" c_gst_tag_image_type_get_type ::
IO GType
instance B.Types.TypedObject TagImageType where
glibType :: IO GType
glibType = IO GType
c_gst_tag_image_type_get_type
instance B.Types.BoxedEnum TagImageType
data TagDemuxResult =
TagDemuxResultBrokenTag
| TagDemuxResultAgain
| TagDemuxResultOk
| AnotherTagDemuxResult Int
deriving (Int -> TagDemuxResult -> ShowS
[TagDemuxResult] -> ShowS
TagDemuxResult -> String
(Int -> TagDemuxResult -> ShowS)
-> (TagDemuxResult -> String)
-> ([TagDemuxResult] -> ShowS)
-> Show TagDemuxResult
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TagDemuxResult -> ShowS
showsPrec :: Int -> TagDemuxResult -> ShowS
$cshow :: TagDemuxResult -> String
show :: TagDemuxResult -> String
$cshowList :: [TagDemuxResult] -> ShowS
showList :: [TagDemuxResult] -> ShowS
Show, TagDemuxResult -> TagDemuxResult -> Bool
(TagDemuxResult -> TagDemuxResult -> Bool)
-> (TagDemuxResult -> TagDemuxResult -> Bool) -> Eq TagDemuxResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TagDemuxResult -> TagDemuxResult -> Bool
== :: TagDemuxResult -> TagDemuxResult -> Bool
$c/= :: TagDemuxResult -> TagDemuxResult -> Bool
/= :: TagDemuxResult -> TagDemuxResult -> Bool
Eq)
instance P.Enum TagDemuxResult where
fromEnum :: TagDemuxResult -> Int
fromEnum TagDemuxResult
TagDemuxResultBrokenTag = Int
0
fromEnum TagDemuxResult
TagDemuxResultAgain = Int
1
fromEnum TagDemuxResult
TagDemuxResultOk = Int
2
fromEnum (AnotherTagDemuxResult Int
k) = Int
k
toEnum :: Int -> TagDemuxResult
toEnum Int
0 = TagDemuxResult
TagDemuxResultBrokenTag
toEnum Int
1 = TagDemuxResult
TagDemuxResultAgain
toEnum Int
2 = TagDemuxResult
TagDemuxResultOk
toEnum Int
k = Int -> TagDemuxResult
AnotherTagDemuxResult Int
k
instance P.Ord TagDemuxResult where
compare :: TagDemuxResult -> TagDemuxResult -> Ordering
compare TagDemuxResult
a TagDemuxResult
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TagDemuxResult -> Int
forall a. Enum a => a -> Int
P.fromEnum TagDemuxResult
a) (TagDemuxResult -> Int
forall a. Enum a => a -> Int
P.fromEnum TagDemuxResult
b)
type instance O.ParentTypes TagDemuxResult = '[]
instance O.HasParentTypes TagDemuxResult
foreign import ccall "gst_tag_demux_result_get_type" c_gst_tag_demux_result_get_type ::
IO GType
instance B.Types.TypedObject TagDemuxResult where
glibType :: IO GType
glibType = IO GType
c_gst_tag_demux_result_get_type
instance B.Types.BoxedEnum TagDemuxResult