#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Cogl.Enums
(
AttributeType(..) ,
BitmapError(..) ,
BlendStringError(..) ,
DepthTestFunction(..) ,
FilterReturn(..) ,
FogMode(..) ,
IndicesType(..) ,
MaterialAlphaFunc(..) ,
MaterialFilter(..) ,
MaterialLayerType(..) ,
MaterialWrapMode(..) ,
PixelFormat(..) ,
RendererError(..) ,
ShaderType(..) ,
StereoMode(..) ,
SystemError(..) ,
TextureComponents(..) ,
TextureError(..) ,
TextureType(..) ,
VerticesMode(..) ,
Winding(..) ,
WinsysFeature(..) ,
) 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.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.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 WinsysFeature =
WinsysFeatureMultipleOnscreen
| WinsysFeatureSwapThrottle
| WinsysFeatureVblankCounter
| WinsysFeatureVblankWait
| WinsysFeatureTextureFromPixmap
| WinsysFeatureSwapBuffersEvent
| WinsysFeatureSwapRegion
| WinsysFeatureSwapRegionThrottle
| WinsysFeatureSwapRegionSynchronized
| WinsysFeatureBufferAge
| WinsysFeatureSyncAndCompleteEvent
| WinsysFeatureNFeatures
| AnotherWinsysFeature Int
deriving (Int -> WinsysFeature -> ShowS
[WinsysFeature] -> ShowS
WinsysFeature -> String
(Int -> WinsysFeature -> ShowS)
-> (WinsysFeature -> String)
-> ([WinsysFeature] -> ShowS)
-> Show WinsysFeature
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WinsysFeature] -> ShowS
$cshowList :: [WinsysFeature] -> ShowS
show :: WinsysFeature -> String
$cshow :: WinsysFeature -> String
showsPrec :: Int -> WinsysFeature -> ShowS
$cshowsPrec :: Int -> WinsysFeature -> ShowS
Show, WinsysFeature -> WinsysFeature -> Bool
(WinsysFeature -> WinsysFeature -> Bool)
-> (WinsysFeature -> WinsysFeature -> Bool) -> Eq WinsysFeature
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WinsysFeature -> WinsysFeature -> Bool
$c/= :: WinsysFeature -> WinsysFeature -> Bool
== :: WinsysFeature -> WinsysFeature -> Bool
$c== :: WinsysFeature -> WinsysFeature -> Bool
Eq)
instance P.Enum WinsysFeature where
fromEnum :: WinsysFeature -> Int
fromEnum WinsysFeature
WinsysFeatureMultipleOnscreen = Int
0
fromEnum WinsysFeature
WinsysFeatureSwapThrottle = Int
1
fromEnum WinsysFeature
WinsysFeatureVblankCounter = Int
2
fromEnum WinsysFeature
WinsysFeatureVblankWait = Int
3
fromEnum WinsysFeature
WinsysFeatureTextureFromPixmap = Int
4
fromEnum WinsysFeature
WinsysFeatureSwapBuffersEvent = Int
5
fromEnum WinsysFeature
WinsysFeatureSwapRegion = Int
6
fromEnum WinsysFeature
WinsysFeatureSwapRegionThrottle = Int
7
fromEnum WinsysFeature
WinsysFeatureSwapRegionSynchronized = Int
8
fromEnum WinsysFeature
WinsysFeatureBufferAge = Int
9
fromEnum WinsysFeature
WinsysFeatureSyncAndCompleteEvent = Int
10
fromEnum WinsysFeature
WinsysFeatureNFeatures = Int
11
fromEnum (AnotherWinsysFeature Int
k) = Int
k
toEnum :: Int -> WinsysFeature
toEnum Int
0 = WinsysFeature
WinsysFeatureMultipleOnscreen
toEnum Int
1 = WinsysFeature
WinsysFeatureSwapThrottle
toEnum Int
2 = WinsysFeature
WinsysFeatureVblankCounter
toEnum Int
3 = WinsysFeature
WinsysFeatureVblankWait
toEnum Int
4 = WinsysFeature
WinsysFeatureTextureFromPixmap
toEnum Int
5 = WinsysFeature
WinsysFeatureSwapBuffersEvent
toEnum Int
6 = WinsysFeature
WinsysFeatureSwapRegion
toEnum Int
7 = WinsysFeature
WinsysFeatureSwapRegionThrottle
toEnum Int
8 = WinsysFeature
WinsysFeatureSwapRegionSynchronized
toEnum Int
9 = WinsysFeature
WinsysFeatureBufferAge
toEnum Int
10 = WinsysFeature
WinsysFeatureSyncAndCompleteEvent
toEnum Int
11 = WinsysFeature
WinsysFeatureNFeatures
toEnum Int
k = Int -> WinsysFeature
AnotherWinsysFeature Int
k
instance P.Ord WinsysFeature where
compare :: WinsysFeature -> WinsysFeature -> Ordering
compare WinsysFeature
a WinsysFeature
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (WinsysFeature -> Int
forall a. Enum a => a -> Int
P.fromEnum WinsysFeature
a) (WinsysFeature -> Int
forall a. Enum a => a -> Int
P.fromEnum WinsysFeature
b)
type instance O.ParentTypes WinsysFeature = '[]
instance O.HasParentTypes WinsysFeature
foreign import ccall "cogl_winsys_feature_get_type" c_cogl_winsys_feature_get_type ::
IO GType
instance B.Types.TypedObject WinsysFeature where
glibType :: IO GType
glibType = IO GType
c_cogl_winsys_feature_get_type
instance B.Types.BoxedEnum WinsysFeature
data Winding =
WindingClockwise
| WindingCounterClockwise
| AnotherWinding Int
deriving (Int -> Winding -> ShowS
[Winding] -> ShowS
Winding -> String
(Int -> Winding -> ShowS)
-> (Winding -> String) -> ([Winding] -> ShowS) -> Show Winding
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Winding] -> ShowS
$cshowList :: [Winding] -> ShowS
show :: Winding -> String
$cshow :: Winding -> String
showsPrec :: Int -> Winding -> ShowS
$cshowsPrec :: Int -> Winding -> ShowS
Show, Winding -> Winding -> Bool
(Winding -> Winding -> Bool)
-> (Winding -> Winding -> Bool) -> Eq Winding
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Winding -> Winding -> Bool
$c/= :: Winding -> Winding -> Bool
== :: Winding -> Winding -> Bool
$c== :: Winding -> Winding -> Bool
Eq)
instance P.Enum Winding where
fromEnum :: Winding -> Int
fromEnum Winding
WindingClockwise = Int
0
fromEnum Winding
WindingCounterClockwise = Int
1
fromEnum (AnotherWinding Int
k) = Int
k
toEnum :: Int -> Winding
toEnum Int
0 = Winding
WindingClockwise
toEnum Int
1 = Winding
WindingCounterClockwise
toEnum Int
k = Int -> Winding
AnotherWinding Int
k
instance P.Ord Winding where
compare :: Winding -> Winding -> Ordering
compare Winding
a Winding
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (Winding -> Int
forall a. Enum a => a -> Int
P.fromEnum Winding
a) (Winding -> Int
forall a. Enum a => a -> Int
P.fromEnum Winding
b)
type instance O.ParentTypes Winding = '[]
instance O.HasParentTypes Winding
foreign import ccall "cogl_winding_get_type" c_cogl_winding_get_type ::
IO GType
instance B.Types.TypedObject Winding where
glibType :: IO GType
glibType = IO GType
c_cogl_winding_get_type
instance B.Types.BoxedEnum Winding
data VerticesMode =
VerticesModePoints
| VerticesModeLines
| VerticesModeLineLoop
| VerticesModeLineStrip
| VerticesModeTriangles
| VerticesModeTriangleStrip
| VerticesModeTriangleFan
| AnotherVerticesMode Int
deriving (Int -> VerticesMode -> ShowS
[VerticesMode] -> ShowS
VerticesMode -> String
(Int -> VerticesMode -> ShowS)
-> (VerticesMode -> String)
-> ([VerticesMode] -> ShowS)
-> Show VerticesMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [VerticesMode] -> ShowS
$cshowList :: [VerticesMode] -> ShowS
show :: VerticesMode -> String
$cshow :: VerticesMode -> String
showsPrec :: Int -> VerticesMode -> ShowS
$cshowsPrec :: Int -> VerticesMode -> ShowS
Show, VerticesMode -> VerticesMode -> Bool
(VerticesMode -> VerticesMode -> Bool)
-> (VerticesMode -> VerticesMode -> Bool) -> Eq VerticesMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VerticesMode -> VerticesMode -> Bool
$c/= :: VerticesMode -> VerticesMode -> Bool
== :: VerticesMode -> VerticesMode -> Bool
$c== :: VerticesMode -> VerticesMode -> Bool
Eq)
instance P.Enum VerticesMode where
fromEnum :: VerticesMode -> Int
fromEnum VerticesMode
VerticesModePoints = Int
0
fromEnum VerticesMode
VerticesModeLines = Int
1
fromEnum VerticesMode
VerticesModeLineLoop = Int
2
fromEnum VerticesMode
VerticesModeLineStrip = Int
3
fromEnum VerticesMode
VerticesModeTriangles = Int
4
fromEnum VerticesMode
VerticesModeTriangleStrip = Int
5
fromEnum VerticesMode
VerticesModeTriangleFan = Int
6
fromEnum (AnotherVerticesMode Int
k) = Int
k
toEnum :: Int -> VerticesMode
toEnum Int
0 = VerticesMode
VerticesModePoints
toEnum Int
1 = VerticesMode
VerticesModeLines
toEnum Int
2 = VerticesMode
VerticesModeLineLoop
toEnum Int
3 = VerticesMode
VerticesModeLineStrip
toEnum Int
4 = VerticesMode
VerticesModeTriangles
toEnum Int
5 = VerticesMode
VerticesModeTriangleStrip
toEnum Int
6 = VerticesMode
VerticesModeTriangleFan
toEnum Int
k = Int -> VerticesMode
AnotherVerticesMode Int
k
instance P.Ord VerticesMode where
compare :: VerticesMode -> VerticesMode -> Ordering
compare VerticesMode
a VerticesMode
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (VerticesMode -> Int
forall a. Enum a => a -> Int
P.fromEnum VerticesMode
a) (VerticesMode -> Int
forall a. Enum a => a -> Int
P.fromEnum VerticesMode
b)
type instance O.ParentTypes VerticesMode = '[]
instance O.HasParentTypes VerticesMode
foreign import ccall "cogl_vertices_mode_get_type" c_cogl_vertices_mode_get_type ::
IO GType
instance B.Types.TypedObject VerticesMode where
glibType :: IO GType
glibType = IO GType
c_cogl_vertices_mode_get_type
instance B.Types.BoxedEnum VerticesMode
data TextureType =
TextureType2d
| TextureType3d
| TextureTypeRectangle
| AnotherTextureType Int
deriving (Int -> TextureType -> ShowS
[TextureType] -> ShowS
TextureType -> String
(Int -> TextureType -> ShowS)
-> (TextureType -> String)
-> ([TextureType] -> ShowS)
-> Show TextureType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TextureType] -> ShowS
$cshowList :: [TextureType] -> ShowS
show :: TextureType -> String
$cshow :: TextureType -> String
showsPrec :: Int -> TextureType -> ShowS
$cshowsPrec :: Int -> TextureType -> ShowS
Show, TextureType -> TextureType -> Bool
(TextureType -> TextureType -> Bool)
-> (TextureType -> TextureType -> Bool) -> Eq TextureType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextureType -> TextureType -> Bool
$c/= :: TextureType -> TextureType -> Bool
== :: TextureType -> TextureType -> Bool
$c== :: TextureType -> TextureType -> Bool
Eq)
instance P.Enum TextureType where
fromEnum :: TextureType -> Int
fromEnum TextureType
TextureType2d = Int
0
fromEnum TextureType
TextureType3d = Int
1
fromEnum TextureType
TextureTypeRectangle = Int
2
fromEnum (AnotherTextureType Int
k) = Int
k
toEnum :: Int -> TextureType
toEnum Int
0 = TextureType
TextureType2d
toEnum Int
1 = TextureType
TextureType3d
toEnum Int
2 = TextureType
TextureTypeRectangle
toEnum Int
k = Int -> TextureType
AnotherTextureType Int
k
instance P.Ord TextureType where
compare :: TextureType -> TextureType -> Ordering
compare TextureType
a TextureType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TextureType -> Int
forall a. Enum a => a -> Int
P.fromEnum TextureType
a) (TextureType -> Int
forall a. Enum a => a -> Int
P.fromEnum TextureType
b)
type instance O.ParentTypes TextureType = '[]
instance O.HasParentTypes TextureType
foreign import ccall "cogl_texture_type_get_type" c_cogl_texture_type_get_type ::
IO GType
instance B.Types.TypedObject TextureType where
glibType :: IO GType
glibType = IO GType
c_cogl_texture_type_get_type
instance B.Types.BoxedEnum TextureType
data TextureError =
TextureErrorSize
| TextureErrorFormat
| TextureErrorBadParameter
| TextureErrorType
| AnotherTextureError Int
deriving (Int -> TextureError -> ShowS
[TextureError] -> ShowS
TextureError -> String
(Int -> TextureError -> ShowS)
-> (TextureError -> String)
-> ([TextureError] -> ShowS)
-> Show TextureError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TextureError] -> ShowS
$cshowList :: [TextureError] -> ShowS
show :: TextureError -> String
$cshow :: TextureError -> String
showsPrec :: Int -> TextureError -> ShowS
$cshowsPrec :: Int -> TextureError -> ShowS
Show, TextureError -> TextureError -> Bool
(TextureError -> TextureError -> Bool)
-> (TextureError -> TextureError -> Bool) -> Eq TextureError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextureError -> TextureError -> Bool
$c/= :: TextureError -> TextureError -> Bool
== :: TextureError -> TextureError -> Bool
$c== :: TextureError -> TextureError -> Bool
Eq)
instance P.Enum TextureError where
fromEnum :: TextureError -> Int
fromEnum TextureError
TextureErrorSize = Int
0
fromEnum TextureError
TextureErrorFormat = Int
1
fromEnum TextureError
TextureErrorBadParameter = Int
2
fromEnum TextureError
TextureErrorType = Int
3
fromEnum (AnotherTextureError Int
k) = Int
k
toEnum :: Int -> TextureError
toEnum Int
0 = TextureError
TextureErrorSize
toEnum Int
1 = TextureError
TextureErrorFormat
toEnum Int
2 = TextureError
TextureErrorBadParameter
toEnum Int
3 = TextureError
TextureErrorType
toEnum Int
k = Int -> TextureError
AnotherTextureError Int
k
instance P.Ord TextureError where
compare :: TextureError -> TextureError -> Ordering
compare TextureError
a TextureError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TextureError -> Int
forall a. Enum a => a -> Int
P.fromEnum TextureError
a) (TextureError -> Int
forall a. Enum a => a -> Int
P.fromEnum TextureError
b)
type instance O.ParentTypes TextureError = '[]
instance O.HasParentTypes TextureError
foreign import ccall "cogl_texture_error_get_type" c_cogl_texture_error_get_type ::
IO GType
instance B.Types.TypedObject TextureError where
glibType :: IO GType
glibType = IO GType
c_cogl_texture_error_get_type
instance B.Types.BoxedEnum TextureError
data TextureComponents =
TextureComponentsA
| TextureComponentsRg
| TextureComponentsRgb
| TextureComponentsRgba
| TextureComponentsDepth
| AnotherTextureComponents Int
deriving (Int -> TextureComponents -> ShowS
[TextureComponents] -> ShowS
TextureComponents -> String
(Int -> TextureComponents -> ShowS)
-> (TextureComponents -> String)
-> ([TextureComponents] -> ShowS)
-> Show TextureComponents
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TextureComponents] -> ShowS
$cshowList :: [TextureComponents] -> ShowS
show :: TextureComponents -> String
$cshow :: TextureComponents -> String
showsPrec :: Int -> TextureComponents -> ShowS
$cshowsPrec :: Int -> TextureComponents -> ShowS
Show, TextureComponents -> TextureComponents -> Bool
(TextureComponents -> TextureComponents -> Bool)
-> (TextureComponents -> TextureComponents -> Bool)
-> Eq TextureComponents
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextureComponents -> TextureComponents -> Bool
$c/= :: TextureComponents -> TextureComponents -> Bool
== :: TextureComponents -> TextureComponents -> Bool
$c== :: TextureComponents -> TextureComponents -> Bool
Eq)
instance P.Enum TextureComponents where
fromEnum :: TextureComponents -> Int
fromEnum TextureComponents
TextureComponentsA = Int
1
fromEnum TextureComponents
TextureComponentsRg = Int
2
fromEnum TextureComponents
TextureComponentsRgb = Int
3
fromEnum TextureComponents
TextureComponentsRgba = Int
4
fromEnum TextureComponents
TextureComponentsDepth = Int
5
fromEnum (AnotherTextureComponents Int
k) = Int
k
toEnum :: Int -> TextureComponents
toEnum Int
1 = TextureComponents
TextureComponentsA
toEnum Int
2 = TextureComponents
TextureComponentsRg
toEnum Int
3 = TextureComponents
TextureComponentsRgb
toEnum Int
4 = TextureComponents
TextureComponentsRgba
toEnum Int
5 = TextureComponents
TextureComponentsDepth
toEnum Int
k = Int -> TextureComponents
AnotherTextureComponents Int
k
instance P.Ord TextureComponents where
compare :: TextureComponents -> TextureComponents -> Ordering
compare TextureComponents
a TextureComponents
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TextureComponents -> Int
forall a. Enum a => a -> Int
P.fromEnum TextureComponents
a) (TextureComponents -> Int
forall a. Enum a => a -> Int
P.fromEnum TextureComponents
b)
type instance O.ParentTypes TextureComponents = '[]
instance O.HasParentTypes TextureComponents
foreign import ccall "cogl_texture_components_get_type" c_cogl_texture_components_get_type ::
IO GType
instance B.Types.TypedObject TextureComponents where
glibType :: IO GType
glibType = IO GType
c_cogl_texture_components_get_type
instance B.Types.BoxedEnum TextureComponents
data SystemError =
SystemErrorCoglSystemErrorUnsupported
| SystemErrorCoglSystemErrorNoMemory
| AnotherSystemError Int
deriving (Int -> SystemError -> ShowS
[SystemError] -> ShowS
SystemError -> String
(Int -> SystemError -> ShowS)
-> (SystemError -> String)
-> ([SystemError] -> ShowS)
-> Show SystemError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SystemError] -> ShowS
$cshowList :: [SystemError] -> ShowS
show :: SystemError -> String
$cshow :: SystemError -> String
showsPrec :: Int -> SystemError -> ShowS
$cshowsPrec :: Int -> SystemError -> ShowS
Show, SystemError -> SystemError -> Bool
(SystemError -> SystemError -> Bool)
-> (SystemError -> SystemError -> Bool) -> Eq SystemError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SystemError -> SystemError -> Bool
$c/= :: SystemError -> SystemError -> Bool
== :: SystemError -> SystemError -> Bool
$c== :: SystemError -> SystemError -> Bool
Eq)
instance P.Enum SystemError where
fromEnum :: SystemError -> Int
fromEnum SystemError
SystemErrorCoglSystemErrorUnsupported = Int
0
fromEnum SystemError
SystemErrorCoglSystemErrorNoMemory = Int
1
fromEnum (AnotherSystemError Int
k) = Int
k
toEnum :: Int -> SystemError
toEnum Int
0 = SystemError
SystemErrorCoglSystemErrorUnsupported
toEnum Int
1 = SystemError
SystemErrorCoglSystemErrorNoMemory
toEnum Int
k = Int -> SystemError
AnotherSystemError Int
k
instance P.Ord SystemError where
compare :: SystemError -> SystemError -> Ordering
compare SystemError
a SystemError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (SystemError -> Int
forall a. Enum a => a -> Int
P.fromEnum SystemError
a) (SystemError -> Int
forall a. Enum a => a -> Int
P.fromEnum SystemError
b)
type instance O.ParentTypes SystemError = '[]
instance O.HasParentTypes SystemError
foreign import ccall "cogl_system_error_get_type" c_cogl_system_error_get_type ::
IO GType
instance B.Types.TypedObject SystemError where
glibType :: IO GType
glibType = IO GType
c_cogl_system_error_get_type
instance B.Types.BoxedEnum SystemError
data StereoMode =
StereoModeBoth
| StereoModeLeft
| StereoModeRight
| AnotherStereoMode Int
deriving (Int -> StereoMode -> ShowS
[StereoMode] -> ShowS
StereoMode -> String
(Int -> StereoMode -> ShowS)
-> (StereoMode -> String)
-> ([StereoMode] -> ShowS)
-> Show StereoMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StereoMode] -> ShowS
$cshowList :: [StereoMode] -> ShowS
show :: StereoMode -> String
$cshow :: StereoMode -> String
showsPrec :: Int -> StereoMode -> ShowS
$cshowsPrec :: Int -> StereoMode -> ShowS
Show, StereoMode -> StereoMode -> Bool
(StereoMode -> StereoMode -> Bool)
-> (StereoMode -> StereoMode -> Bool) -> Eq StereoMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StereoMode -> StereoMode -> Bool
$c/= :: StereoMode -> StereoMode -> Bool
== :: StereoMode -> StereoMode -> Bool
$c== :: StereoMode -> StereoMode -> Bool
Eq)
instance P.Enum StereoMode where
fromEnum :: StereoMode -> Int
fromEnum StereoMode
StereoModeBoth = Int
0
fromEnum StereoMode
StereoModeLeft = Int
1
fromEnum StereoMode
StereoModeRight = Int
2
fromEnum (AnotherStereoMode Int
k) = Int
k
toEnum :: Int -> StereoMode
toEnum Int
0 = StereoMode
StereoModeBoth
toEnum Int
1 = StereoMode
StereoModeLeft
toEnum Int
2 = StereoMode
StereoModeRight
toEnum Int
k = Int -> StereoMode
AnotherStereoMode Int
k
instance P.Ord StereoMode where
compare :: StereoMode -> StereoMode -> Ordering
compare StereoMode
a StereoMode
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (StereoMode -> Int
forall a. Enum a => a -> Int
P.fromEnum StereoMode
a) (StereoMode -> Int
forall a. Enum a => a -> Int
P.fromEnum StereoMode
b)
type instance O.ParentTypes StereoMode = '[]
instance O.HasParentTypes StereoMode
foreign import ccall "cogl_stereo_mode_get_type" c_cogl_stereo_mode_get_type ::
IO GType
instance B.Types.TypedObject StereoMode where
glibType :: IO GType
glibType = IO GType
c_cogl_stereo_mode_get_type
instance B.Types.BoxedEnum StereoMode
data ShaderType =
ShaderTypeVertex
| ShaderTypeFragment
| AnotherShaderType Int
deriving (Int -> ShaderType -> ShowS
[ShaderType] -> ShowS
ShaderType -> String
(Int -> ShaderType -> ShowS)
-> (ShaderType -> String)
-> ([ShaderType] -> ShowS)
-> Show ShaderType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ShaderType] -> ShowS
$cshowList :: [ShaderType] -> ShowS
show :: ShaderType -> String
$cshow :: ShaderType -> String
showsPrec :: Int -> ShaderType -> ShowS
$cshowsPrec :: Int -> ShaderType -> ShowS
Show, ShaderType -> ShaderType -> Bool
(ShaderType -> ShaderType -> Bool)
-> (ShaderType -> ShaderType -> Bool) -> Eq ShaderType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ShaderType -> ShaderType -> Bool
$c/= :: ShaderType -> ShaderType -> Bool
== :: ShaderType -> ShaderType -> Bool
$c== :: ShaderType -> ShaderType -> Bool
Eq)
instance P.Enum ShaderType where
fromEnum :: ShaderType -> Int
fromEnum ShaderType
ShaderTypeVertex = Int
0
fromEnum ShaderType
ShaderTypeFragment = Int
1
fromEnum (AnotherShaderType Int
k) = Int
k
toEnum :: Int -> ShaderType
toEnum Int
0 = ShaderType
ShaderTypeVertex
toEnum Int
1 = ShaderType
ShaderTypeFragment
toEnum Int
k = Int -> ShaderType
AnotherShaderType Int
k
instance P.Ord ShaderType where
compare :: ShaderType -> ShaderType -> Ordering
compare ShaderType
a ShaderType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (ShaderType -> Int
forall a. Enum a => a -> Int
P.fromEnum ShaderType
a) (ShaderType -> Int
forall a. Enum a => a -> Int
P.fromEnum ShaderType
b)
type instance O.ParentTypes ShaderType = '[]
instance O.HasParentTypes ShaderType
foreign import ccall "cogl_shader_type_get_type" c_cogl_shader_type_get_type ::
IO GType
instance B.Types.TypedObject ShaderType where
glibType :: IO GType
glibType = IO GType
c_cogl_shader_type_get_type
instance B.Types.BoxedEnum ShaderType
data RendererError =
RendererErrorXlibDisplayOpen
| RendererErrorBadConstraint
| AnotherRendererError Int
deriving (Int -> RendererError -> ShowS
[RendererError] -> ShowS
RendererError -> String
(Int -> RendererError -> ShowS)
-> (RendererError -> String)
-> ([RendererError] -> ShowS)
-> Show RendererError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RendererError] -> ShowS
$cshowList :: [RendererError] -> ShowS
show :: RendererError -> String
$cshow :: RendererError -> String
showsPrec :: Int -> RendererError -> ShowS
$cshowsPrec :: Int -> RendererError -> ShowS
Show, RendererError -> RendererError -> Bool
(RendererError -> RendererError -> Bool)
-> (RendererError -> RendererError -> Bool) -> Eq RendererError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RendererError -> RendererError -> Bool
$c/= :: RendererError -> RendererError -> Bool
== :: RendererError -> RendererError -> Bool
$c== :: RendererError -> RendererError -> Bool
Eq)
instance P.Enum RendererError where
fromEnum :: RendererError -> Int
fromEnum RendererError
RendererErrorXlibDisplayOpen = Int
0
fromEnum RendererError
RendererErrorBadConstraint = Int
1
fromEnum (AnotherRendererError Int
k) = Int
k
toEnum :: Int -> RendererError
toEnum Int
0 = RendererError
RendererErrorXlibDisplayOpen
toEnum Int
1 = RendererError
RendererErrorBadConstraint
toEnum Int
k = Int -> RendererError
AnotherRendererError Int
k
instance P.Ord RendererError where
compare :: RendererError -> RendererError -> Ordering
compare RendererError
a RendererError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (RendererError -> Int
forall a. Enum a => a -> Int
P.fromEnum RendererError
a) (RendererError -> Int
forall a. Enum a => a -> Int
P.fromEnum RendererError
b)
type instance O.ParentTypes RendererError = '[]
instance O.HasParentTypes RendererError
foreign import ccall "cogl_renderer_error_get_type" c_cogl_renderer_error_get_type ::
IO GType
instance B.Types.TypedObject RendererError where
glibType :: IO GType
glibType = IO GType
c_cogl_renderer_error_get_type
instance B.Types.BoxedEnum RendererError
data PixelFormat =
PixelFormatAny
| PixelFormatA8
| PixelFormatRgb565
| PixelFormatRgba4444
| PixelFormatRgba5551
| PixelFormatYuv
| PixelFormatG8
| PixelFormatRg88
| PixelFormatRgb888
| PixelFormatBgr888
| PixelFormatRgba8888
| PixelFormatBgra8888
| PixelFormatArgb8888
| PixelFormatAbgr8888
| PixelFormatRgba1010102
| PixelFormatBgra1010102
| PixelFormatArgb2101010
| PixelFormatAbgr2101010
| PixelFormatRgba8888Pre
| PixelFormatBgra8888Pre
| PixelFormatArgb8888Pre
| PixelFormatAbgr8888Pre
| PixelFormatRgba4444Pre
| PixelFormatRgba5551Pre
| PixelFormatRgba1010102Pre
| PixelFormatBgra1010102Pre
| PixelFormatArgb2101010Pre
| PixelFormatAbgr2101010Pre
| PixelFormatDepth16
| PixelFormatDepth32
| PixelFormatDepth24Stencil8
| AnotherPixelFormat Int
deriving (Int -> PixelFormat -> ShowS
[PixelFormat] -> ShowS
PixelFormat -> String
(Int -> PixelFormat -> ShowS)
-> (PixelFormat -> String)
-> ([PixelFormat] -> ShowS)
-> Show PixelFormat
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PixelFormat] -> ShowS
$cshowList :: [PixelFormat] -> ShowS
show :: PixelFormat -> String
$cshow :: PixelFormat -> String
showsPrec :: Int -> PixelFormat -> ShowS
$cshowsPrec :: Int -> PixelFormat -> ShowS
Show, PixelFormat -> PixelFormat -> Bool
(PixelFormat -> PixelFormat -> Bool)
-> (PixelFormat -> PixelFormat -> Bool) -> Eq PixelFormat
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PixelFormat -> PixelFormat -> Bool
$c/= :: PixelFormat -> PixelFormat -> Bool
== :: PixelFormat -> PixelFormat -> Bool
$c== :: PixelFormat -> PixelFormat -> Bool
Eq)
instance P.Enum PixelFormat where
fromEnum :: PixelFormat -> Int
fromEnum PixelFormat
PixelFormatAny = Int
0
fromEnum PixelFormat
PixelFormatA8 = Int
17
fromEnum PixelFormat
PixelFormatRgb565 = Int
4
fromEnum PixelFormat
PixelFormatRgba4444 = Int
21
fromEnum PixelFormat
PixelFormatRgba5551 = Int
22
fromEnum PixelFormat
PixelFormatYuv = Int
7
fromEnum PixelFormat
PixelFormatG8 = Int
8
fromEnum PixelFormat
PixelFormatRg88 = Int
9
fromEnum PixelFormat
PixelFormatRgb888 = Int
2
fromEnum PixelFormat
PixelFormatBgr888 = Int
34
fromEnum PixelFormat
PixelFormatRgba8888 = Int
19
fromEnum PixelFormat
PixelFormatBgra8888 = Int
51
fromEnum PixelFormat
PixelFormatArgb8888 = Int
83
fromEnum PixelFormat
PixelFormatAbgr8888 = Int
115
fromEnum PixelFormat
PixelFormatRgba1010102 = Int
29
fromEnum PixelFormat
PixelFormatBgra1010102 = Int
61
fromEnum PixelFormat
PixelFormatArgb2101010 = Int
93
fromEnum PixelFormat
PixelFormatAbgr2101010 = Int
125
fromEnum PixelFormat
PixelFormatRgba8888Pre = Int
147
fromEnum PixelFormat
PixelFormatBgra8888Pre = Int
179
fromEnum PixelFormat
PixelFormatArgb8888Pre = Int
211
fromEnum PixelFormat
PixelFormatAbgr8888Pre = Int
243
fromEnum PixelFormat
PixelFormatRgba4444Pre = Int
149
fromEnum PixelFormat
PixelFormatRgba5551Pre = Int
150
fromEnum PixelFormat
PixelFormatRgba1010102Pre = Int
157
fromEnum PixelFormat
PixelFormatBgra1010102Pre = Int
189
fromEnum PixelFormat
PixelFormatArgb2101010Pre = Int
221
fromEnum PixelFormat
PixelFormatAbgr2101010Pre = Int
253
fromEnum PixelFormat
PixelFormatDepth16 = Int
265
fromEnum PixelFormat
PixelFormatDepth32 = Int
259
fromEnum PixelFormat
PixelFormatDepth24Stencil8 = Int
771
fromEnum (AnotherPixelFormat Int
k) = Int
k
toEnum :: Int -> PixelFormat
toEnum Int
0 = PixelFormat
PixelFormatAny
toEnum Int
17 = PixelFormat
PixelFormatA8
toEnum Int
4 = PixelFormat
PixelFormatRgb565
toEnum Int
21 = PixelFormat
PixelFormatRgba4444
toEnum Int
22 = PixelFormat
PixelFormatRgba5551
toEnum Int
7 = PixelFormat
PixelFormatYuv
toEnum Int
8 = PixelFormat
PixelFormatG8
toEnum Int
9 = PixelFormat
PixelFormatRg88
toEnum Int
2 = PixelFormat
PixelFormatRgb888
toEnum Int
34 = PixelFormat
PixelFormatBgr888
toEnum Int
19 = PixelFormat
PixelFormatRgba8888
toEnum Int
51 = PixelFormat
PixelFormatBgra8888
toEnum Int
83 = PixelFormat
PixelFormatArgb8888
toEnum Int
115 = PixelFormat
PixelFormatAbgr8888
toEnum Int
29 = PixelFormat
PixelFormatRgba1010102
toEnum Int
61 = PixelFormat
PixelFormatBgra1010102
toEnum Int
93 = PixelFormat
PixelFormatArgb2101010
toEnum Int
125 = PixelFormat
PixelFormatAbgr2101010
toEnum Int
147 = PixelFormat
PixelFormatRgba8888Pre
toEnum Int
179 = PixelFormat
PixelFormatBgra8888Pre
toEnum Int
211 = PixelFormat
PixelFormatArgb8888Pre
toEnum Int
243 = PixelFormat
PixelFormatAbgr8888Pre
toEnum Int
149 = PixelFormat
PixelFormatRgba4444Pre
toEnum Int
150 = PixelFormat
PixelFormatRgba5551Pre
toEnum Int
157 = PixelFormat
PixelFormatRgba1010102Pre
toEnum Int
189 = PixelFormat
PixelFormatBgra1010102Pre
toEnum Int
221 = PixelFormat
PixelFormatArgb2101010Pre
toEnum Int
253 = PixelFormat
PixelFormatAbgr2101010Pre
toEnum Int
265 = PixelFormat
PixelFormatDepth16
toEnum Int
259 = PixelFormat
PixelFormatDepth32
toEnum Int
771 = PixelFormat
PixelFormatDepth24Stencil8
toEnum Int
k = Int -> PixelFormat
AnotherPixelFormat Int
k
instance P.Ord PixelFormat where
compare :: PixelFormat -> PixelFormat -> Ordering
compare PixelFormat
a PixelFormat
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (PixelFormat -> Int
forall a. Enum a => a -> Int
P.fromEnum PixelFormat
a) (PixelFormat -> Int
forall a. Enum a => a -> Int
P.fromEnum PixelFormat
b)
type instance O.ParentTypes PixelFormat = '[]
instance O.HasParentTypes PixelFormat
foreign import ccall "cogl_pixel_format_get_type" c_cogl_pixel_format_get_type ::
IO GType
instance B.Types.TypedObject PixelFormat where
glibType :: IO GType
glibType = IO GType
c_cogl_pixel_format_get_type
instance B.Types.BoxedEnum PixelFormat
data MaterialWrapMode =
MaterialWrapModeRepeat
| MaterialWrapModeClampToEdge
| MaterialWrapModeAutomatic
| AnotherMaterialWrapMode Int
deriving (Int -> MaterialWrapMode -> ShowS
[MaterialWrapMode] -> ShowS
MaterialWrapMode -> String
(Int -> MaterialWrapMode -> ShowS)
-> (MaterialWrapMode -> String)
-> ([MaterialWrapMode] -> ShowS)
-> Show MaterialWrapMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MaterialWrapMode] -> ShowS
$cshowList :: [MaterialWrapMode] -> ShowS
show :: MaterialWrapMode -> String
$cshow :: MaterialWrapMode -> String
showsPrec :: Int -> MaterialWrapMode -> ShowS
$cshowsPrec :: Int -> MaterialWrapMode -> ShowS
Show, MaterialWrapMode -> MaterialWrapMode -> Bool
(MaterialWrapMode -> MaterialWrapMode -> Bool)
-> (MaterialWrapMode -> MaterialWrapMode -> Bool)
-> Eq MaterialWrapMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MaterialWrapMode -> MaterialWrapMode -> Bool
$c/= :: MaterialWrapMode -> MaterialWrapMode -> Bool
== :: MaterialWrapMode -> MaterialWrapMode -> Bool
$c== :: MaterialWrapMode -> MaterialWrapMode -> Bool
Eq)
instance P.Enum MaterialWrapMode where
fromEnum :: MaterialWrapMode -> Int
fromEnum MaterialWrapMode
MaterialWrapModeRepeat = Int
10497
fromEnum MaterialWrapMode
MaterialWrapModeClampToEdge = Int
33071
fromEnum MaterialWrapMode
MaterialWrapModeAutomatic = Int
519
fromEnum (AnotherMaterialWrapMode Int
k) = Int
k
toEnum :: Int -> MaterialWrapMode
toEnum Int
10497 = MaterialWrapMode
MaterialWrapModeRepeat
toEnum Int
33071 = MaterialWrapMode
MaterialWrapModeClampToEdge
toEnum Int
519 = MaterialWrapMode
MaterialWrapModeAutomatic
toEnum Int
k = Int -> MaterialWrapMode
AnotherMaterialWrapMode Int
k
instance P.Ord MaterialWrapMode where
compare :: MaterialWrapMode -> MaterialWrapMode -> Ordering
compare MaterialWrapMode
a MaterialWrapMode
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (MaterialWrapMode -> Int
forall a. Enum a => a -> Int
P.fromEnum MaterialWrapMode
a) (MaterialWrapMode -> Int
forall a. Enum a => a -> Int
P.fromEnum MaterialWrapMode
b)
type instance O.ParentTypes MaterialWrapMode = '[]
instance O.HasParentTypes MaterialWrapMode
foreign import ccall "cogl_material_wrap_mode_get_type" c_cogl_material_wrap_mode_get_type ::
IO GType
instance B.Types.TypedObject MaterialWrapMode where
glibType :: IO GType
glibType = IO GType
c_cogl_material_wrap_mode_get_type
instance B.Types.BoxedEnum MaterialWrapMode
data MaterialLayerType =
MaterialLayerTypeTexture
| AnotherMaterialLayerType Int
deriving (Int -> MaterialLayerType -> ShowS
[MaterialLayerType] -> ShowS
MaterialLayerType -> String
(Int -> MaterialLayerType -> ShowS)
-> (MaterialLayerType -> String)
-> ([MaterialLayerType] -> ShowS)
-> Show MaterialLayerType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MaterialLayerType] -> ShowS
$cshowList :: [MaterialLayerType] -> ShowS
show :: MaterialLayerType -> String
$cshow :: MaterialLayerType -> String
showsPrec :: Int -> MaterialLayerType -> ShowS
$cshowsPrec :: Int -> MaterialLayerType -> ShowS
Show, MaterialLayerType -> MaterialLayerType -> Bool
(MaterialLayerType -> MaterialLayerType -> Bool)
-> (MaterialLayerType -> MaterialLayerType -> Bool)
-> Eq MaterialLayerType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MaterialLayerType -> MaterialLayerType -> Bool
$c/= :: MaterialLayerType -> MaterialLayerType -> Bool
== :: MaterialLayerType -> MaterialLayerType -> Bool
$c== :: MaterialLayerType -> MaterialLayerType -> Bool
Eq)
instance P.Enum MaterialLayerType where
fromEnum :: MaterialLayerType -> Int
fromEnum MaterialLayerType
MaterialLayerTypeTexture = Int
0
fromEnum (AnotherMaterialLayerType Int
k) = Int
k
toEnum :: Int -> MaterialLayerType
toEnum Int
0 = MaterialLayerType
MaterialLayerTypeTexture
toEnum Int
k = Int -> MaterialLayerType
AnotherMaterialLayerType Int
k
instance P.Ord MaterialLayerType where
compare :: MaterialLayerType -> MaterialLayerType -> Ordering
compare MaterialLayerType
a MaterialLayerType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (MaterialLayerType -> Int
forall a. Enum a => a -> Int
P.fromEnum MaterialLayerType
a) (MaterialLayerType -> Int
forall a. Enum a => a -> Int
P.fromEnum MaterialLayerType
b)
type instance O.ParentTypes MaterialLayerType = '[]
instance O.HasParentTypes MaterialLayerType
foreign import ccall "cogl_material_layer_type_get_type" c_cogl_material_layer_type_get_type ::
IO GType
instance B.Types.TypedObject MaterialLayerType where
glibType :: IO GType
glibType = IO GType
c_cogl_material_layer_type_get_type
instance B.Types.BoxedEnum MaterialLayerType
data MaterialFilter =
MaterialFilterNearest
| MaterialFilterLinear
| MaterialFilterNearestMipmapNearest
| MaterialFilterLinearMipmapNearest
| MaterialFilterNearestMipmapLinear
| MaterialFilterLinearMipmapLinear
| AnotherMaterialFilter Int
deriving (Int -> MaterialFilter -> ShowS
[MaterialFilter] -> ShowS
MaterialFilter -> String
(Int -> MaterialFilter -> ShowS)
-> (MaterialFilter -> String)
-> ([MaterialFilter] -> ShowS)
-> Show MaterialFilter
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MaterialFilter] -> ShowS
$cshowList :: [MaterialFilter] -> ShowS
show :: MaterialFilter -> String
$cshow :: MaterialFilter -> String
showsPrec :: Int -> MaterialFilter -> ShowS
$cshowsPrec :: Int -> MaterialFilter -> ShowS
Show, MaterialFilter -> MaterialFilter -> Bool
(MaterialFilter -> MaterialFilter -> Bool)
-> (MaterialFilter -> MaterialFilter -> Bool) -> Eq MaterialFilter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MaterialFilter -> MaterialFilter -> Bool
$c/= :: MaterialFilter -> MaterialFilter -> Bool
== :: MaterialFilter -> MaterialFilter -> Bool
$c== :: MaterialFilter -> MaterialFilter -> Bool
Eq)
instance P.Enum MaterialFilter where
fromEnum :: MaterialFilter -> Int
fromEnum MaterialFilter
MaterialFilterNearest = Int
9728
fromEnum MaterialFilter
MaterialFilterLinear = Int
9729
fromEnum MaterialFilter
MaterialFilterNearestMipmapNearest = Int
9984
fromEnum MaterialFilter
MaterialFilterLinearMipmapNearest = Int
9985
fromEnum MaterialFilter
MaterialFilterNearestMipmapLinear = Int
9986
fromEnum MaterialFilter
MaterialFilterLinearMipmapLinear = Int
9987
fromEnum (AnotherMaterialFilter Int
k) = Int
k
toEnum :: Int -> MaterialFilter
toEnum Int
9728 = MaterialFilter
MaterialFilterNearest
toEnum Int
9729 = MaterialFilter
MaterialFilterLinear
toEnum Int
9984 = MaterialFilter
MaterialFilterNearestMipmapNearest
toEnum Int
9985 = MaterialFilter
MaterialFilterLinearMipmapNearest
toEnum Int
9986 = MaterialFilter
MaterialFilterNearestMipmapLinear
toEnum Int
9987 = MaterialFilter
MaterialFilterLinearMipmapLinear
toEnum Int
k = Int -> MaterialFilter
AnotherMaterialFilter Int
k
instance P.Ord MaterialFilter where
compare :: MaterialFilter -> MaterialFilter -> Ordering
compare MaterialFilter
a MaterialFilter
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (MaterialFilter -> Int
forall a. Enum a => a -> Int
P.fromEnum MaterialFilter
a) (MaterialFilter -> Int
forall a. Enum a => a -> Int
P.fromEnum MaterialFilter
b)
type instance O.ParentTypes MaterialFilter = '[]
instance O.HasParentTypes MaterialFilter
foreign import ccall "cogl_material_filter_get_type" c_cogl_material_filter_get_type ::
IO GType
instance B.Types.TypedObject MaterialFilter where
glibType :: IO GType
glibType = IO GType
c_cogl_material_filter_get_type
instance B.Types.BoxedEnum MaterialFilter
data MaterialAlphaFunc =
MaterialAlphaFuncNever
| MaterialAlphaFuncLess
| MaterialAlphaFuncEqual
| MaterialAlphaFuncLequal
| MaterialAlphaFuncGreater
| MaterialAlphaFuncNotequal
| MaterialAlphaFuncGequal
| MaterialAlphaFuncAlways
| AnotherMaterialAlphaFunc Int
deriving (Int -> MaterialAlphaFunc -> ShowS
[MaterialAlphaFunc] -> ShowS
MaterialAlphaFunc -> String
(Int -> MaterialAlphaFunc -> ShowS)
-> (MaterialAlphaFunc -> String)
-> ([MaterialAlphaFunc] -> ShowS)
-> Show MaterialAlphaFunc
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MaterialAlphaFunc] -> ShowS
$cshowList :: [MaterialAlphaFunc] -> ShowS
show :: MaterialAlphaFunc -> String
$cshow :: MaterialAlphaFunc -> String
showsPrec :: Int -> MaterialAlphaFunc -> ShowS
$cshowsPrec :: Int -> MaterialAlphaFunc -> ShowS
Show, MaterialAlphaFunc -> MaterialAlphaFunc -> Bool
(MaterialAlphaFunc -> MaterialAlphaFunc -> Bool)
-> (MaterialAlphaFunc -> MaterialAlphaFunc -> Bool)
-> Eq MaterialAlphaFunc
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MaterialAlphaFunc -> MaterialAlphaFunc -> Bool
$c/= :: MaterialAlphaFunc -> MaterialAlphaFunc -> Bool
== :: MaterialAlphaFunc -> MaterialAlphaFunc -> Bool
$c== :: MaterialAlphaFunc -> MaterialAlphaFunc -> Bool
Eq)
instance P.Enum MaterialAlphaFunc where
fromEnum :: MaterialAlphaFunc -> Int
fromEnum MaterialAlphaFunc
MaterialAlphaFuncNever = Int
512
fromEnum MaterialAlphaFunc
MaterialAlphaFuncLess = Int
513
fromEnum MaterialAlphaFunc
MaterialAlphaFuncEqual = Int
514
fromEnum MaterialAlphaFunc
MaterialAlphaFuncLequal = Int
515
fromEnum MaterialAlphaFunc
MaterialAlphaFuncGreater = Int
516
fromEnum MaterialAlphaFunc
MaterialAlphaFuncNotequal = Int
517
fromEnum MaterialAlphaFunc
MaterialAlphaFuncGequal = Int
518
fromEnum MaterialAlphaFunc
MaterialAlphaFuncAlways = Int
519
fromEnum (AnotherMaterialAlphaFunc Int
k) = Int
k
toEnum :: Int -> MaterialAlphaFunc
toEnum Int
512 = MaterialAlphaFunc
MaterialAlphaFuncNever
toEnum Int
513 = MaterialAlphaFunc
MaterialAlphaFuncLess
toEnum Int
514 = MaterialAlphaFunc
MaterialAlphaFuncEqual
toEnum Int
515 = MaterialAlphaFunc
MaterialAlphaFuncLequal
toEnum Int
516 = MaterialAlphaFunc
MaterialAlphaFuncGreater
toEnum Int
517 = MaterialAlphaFunc
MaterialAlphaFuncNotequal
toEnum Int
518 = MaterialAlphaFunc
MaterialAlphaFuncGequal
toEnum Int
519 = MaterialAlphaFunc
MaterialAlphaFuncAlways
toEnum Int
k = Int -> MaterialAlphaFunc
AnotherMaterialAlphaFunc Int
k
instance P.Ord MaterialAlphaFunc where
compare :: MaterialAlphaFunc -> MaterialAlphaFunc -> Ordering
compare MaterialAlphaFunc
a MaterialAlphaFunc
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (MaterialAlphaFunc -> Int
forall a. Enum a => a -> Int
P.fromEnum MaterialAlphaFunc
a) (MaterialAlphaFunc -> Int
forall a. Enum a => a -> Int
P.fromEnum MaterialAlphaFunc
b)
type instance O.ParentTypes MaterialAlphaFunc = '[]
instance O.HasParentTypes MaterialAlphaFunc
foreign import ccall "cogl_material_alpha_func_get_type" c_cogl_material_alpha_func_get_type ::
IO GType
instance B.Types.TypedObject MaterialAlphaFunc where
glibType :: IO GType
glibType = IO GType
c_cogl_material_alpha_func_get_type
instance B.Types.BoxedEnum MaterialAlphaFunc
data IndicesType =
IndicesTypeByte
| IndicesTypeShort
| IndicesTypeInt
| AnotherIndicesType Int
deriving (Int -> IndicesType -> ShowS
[IndicesType] -> ShowS
IndicesType -> String
(Int -> IndicesType -> ShowS)
-> (IndicesType -> String)
-> ([IndicesType] -> ShowS)
-> Show IndicesType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [IndicesType] -> ShowS
$cshowList :: [IndicesType] -> ShowS
show :: IndicesType -> String
$cshow :: IndicesType -> String
showsPrec :: Int -> IndicesType -> ShowS
$cshowsPrec :: Int -> IndicesType -> ShowS
Show, IndicesType -> IndicesType -> Bool
(IndicesType -> IndicesType -> Bool)
-> (IndicesType -> IndicesType -> Bool) -> Eq IndicesType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IndicesType -> IndicesType -> Bool
$c/= :: IndicesType -> IndicesType -> Bool
== :: IndicesType -> IndicesType -> Bool
$c== :: IndicesType -> IndicesType -> Bool
Eq)
instance P.Enum IndicesType where
fromEnum :: IndicesType -> Int
fromEnum IndicesType
IndicesTypeByte = Int
0
fromEnum IndicesType
IndicesTypeShort = Int
1
fromEnum IndicesType
IndicesTypeInt = Int
2
fromEnum (AnotherIndicesType Int
k) = Int
k
toEnum :: Int -> IndicesType
toEnum Int
0 = IndicesType
IndicesTypeByte
toEnum Int
1 = IndicesType
IndicesTypeShort
toEnum Int
2 = IndicesType
IndicesTypeInt
toEnum Int
k = Int -> IndicesType
AnotherIndicesType Int
k
instance P.Ord IndicesType where
compare :: IndicesType -> IndicesType -> Ordering
compare IndicesType
a IndicesType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (IndicesType -> Int
forall a. Enum a => a -> Int
P.fromEnum IndicesType
a) (IndicesType -> Int
forall a. Enum a => a -> Int
P.fromEnum IndicesType
b)
type instance O.ParentTypes IndicesType = '[]
instance O.HasParentTypes IndicesType
foreign import ccall "cogl_indices_type_get_type" c_cogl_indices_type_get_type ::
IO GType
instance B.Types.TypedObject IndicesType where
glibType :: IO GType
glibType = IO GType
c_cogl_indices_type_get_type
instance B.Types.BoxedEnum IndicesType
data FogMode =
FogModeLinear
| FogModeExponential
| FogModeExponentialSquared
| AnotherFogMode Int
deriving (Int -> FogMode -> ShowS
[FogMode] -> ShowS
FogMode -> String
(Int -> FogMode -> ShowS)
-> (FogMode -> String) -> ([FogMode] -> ShowS) -> Show FogMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FogMode] -> ShowS
$cshowList :: [FogMode] -> ShowS
show :: FogMode -> String
$cshow :: FogMode -> String
showsPrec :: Int -> FogMode -> ShowS
$cshowsPrec :: Int -> FogMode -> ShowS
Show, FogMode -> FogMode -> Bool
(FogMode -> FogMode -> Bool)
-> (FogMode -> FogMode -> Bool) -> Eq FogMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FogMode -> FogMode -> Bool
$c/= :: FogMode -> FogMode -> Bool
== :: FogMode -> FogMode -> Bool
$c== :: FogMode -> FogMode -> Bool
Eq)
instance P.Enum FogMode where
fromEnum :: FogMode -> Int
fromEnum FogMode
FogModeLinear = Int
0
fromEnum FogMode
FogModeExponential = Int
1
fromEnum FogMode
FogModeExponentialSquared = Int
2
fromEnum (AnotherFogMode Int
k) = Int
k
toEnum :: Int -> FogMode
toEnum Int
0 = FogMode
FogModeLinear
toEnum Int
1 = FogMode
FogModeExponential
toEnum Int
2 = FogMode
FogModeExponentialSquared
toEnum Int
k = Int -> FogMode
AnotherFogMode Int
k
instance P.Ord FogMode where
compare :: FogMode -> FogMode -> Ordering
compare FogMode
a FogMode
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (FogMode -> Int
forall a. Enum a => a -> Int
P.fromEnum FogMode
a) (FogMode -> Int
forall a. Enum a => a -> Int
P.fromEnum FogMode
b)
type instance O.ParentTypes FogMode = '[]
instance O.HasParentTypes FogMode
foreign import ccall "cogl_fog_mode_get_type" c_cogl_fog_mode_get_type ::
IO GType
instance B.Types.TypedObject FogMode where
glibType :: IO GType
glibType = IO GType
c_cogl_fog_mode_get_type
instance B.Types.BoxedEnum FogMode
data FilterReturn =
FilterReturnContinue
| FilterReturnRemove
| AnotherFilterReturn Int
deriving (Int -> FilterReturn -> ShowS
[FilterReturn] -> ShowS
FilterReturn -> String
(Int -> FilterReturn -> ShowS)
-> (FilterReturn -> String)
-> ([FilterReturn] -> ShowS)
-> Show FilterReturn
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FilterReturn] -> ShowS
$cshowList :: [FilterReturn] -> ShowS
show :: FilterReturn -> String
$cshow :: FilterReturn -> String
showsPrec :: Int -> FilterReturn -> ShowS
$cshowsPrec :: Int -> FilterReturn -> ShowS
Show, FilterReturn -> FilterReturn -> Bool
(FilterReturn -> FilterReturn -> Bool)
-> (FilterReturn -> FilterReturn -> Bool) -> Eq FilterReturn
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FilterReturn -> FilterReturn -> Bool
$c/= :: FilterReturn -> FilterReturn -> Bool
== :: FilterReturn -> FilterReturn -> Bool
$c== :: FilterReturn -> FilterReturn -> Bool
Eq)
instance P.Enum FilterReturn where
fromEnum :: FilterReturn -> Int
fromEnum FilterReturn
FilterReturnContinue = Int
0
fromEnum FilterReturn
FilterReturnRemove = Int
1
fromEnum (AnotherFilterReturn Int
k) = Int
k
toEnum :: Int -> FilterReturn
toEnum Int
0 = FilterReturn
FilterReturnContinue
toEnum Int
1 = FilterReturn
FilterReturnRemove
toEnum Int
k = Int -> FilterReturn
AnotherFilterReturn Int
k
instance P.Ord FilterReturn where
compare :: FilterReturn -> FilterReturn -> Ordering
compare FilterReturn
a FilterReturn
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (FilterReturn -> Int
forall a. Enum a => a -> Int
P.fromEnum FilterReturn
a) (FilterReturn -> Int
forall a. Enum a => a -> Int
P.fromEnum FilterReturn
b)
type instance O.ParentTypes FilterReturn = '[]
instance O.HasParentTypes FilterReturn
foreign import ccall "cogl_filter_return_get_type" c_cogl_filter_return_get_type ::
IO GType
instance B.Types.TypedObject FilterReturn where
glibType :: IO GType
glibType = IO GType
c_cogl_filter_return_get_type
instance B.Types.BoxedEnum FilterReturn
data DepthTestFunction =
DepthTestFunctionNever
| DepthTestFunctionLess
| DepthTestFunctionEqual
| DepthTestFunctionLequal
| DepthTestFunctionGreater
| DepthTestFunctionNotequal
| DepthTestFunctionGequal
| DepthTestFunctionAlways
| AnotherDepthTestFunction Int
deriving (Int -> DepthTestFunction -> ShowS
[DepthTestFunction] -> ShowS
DepthTestFunction -> String
(Int -> DepthTestFunction -> ShowS)
-> (DepthTestFunction -> String)
-> ([DepthTestFunction] -> ShowS)
-> Show DepthTestFunction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DepthTestFunction] -> ShowS
$cshowList :: [DepthTestFunction] -> ShowS
show :: DepthTestFunction -> String
$cshow :: DepthTestFunction -> String
showsPrec :: Int -> DepthTestFunction -> ShowS
$cshowsPrec :: Int -> DepthTestFunction -> ShowS
Show, DepthTestFunction -> DepthTestFunction -> Bool
(DepthTestFunction -> DepthTestFunction -> Bool)
-> (DepthTestFunction -> DepthTestFunction -> Bool)
-> Eq DepthTestFunction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DepthTestFunction -> DepthTestFunction -> Bool
$c/= :: DepthTestFunction -> DepthTestFunction -> Bool
== :: DepthTestFunction -> DepthTestFunction -> Bool
$c== :: DepthTestFunction -> DepthTestFunction -> Bool
Eq)
instance P.Enum DepthTestFunction where
fromEnum :: DepthTestFunction -> Int
fromEnum DepthTestFunction
DepthTestFunctionNever = Int
512
fromEnum DepthTestFunction
DepthTestFunctionLess = Int
513
fromEnum DepthTestFunction
DepthTestFunctionEqual = Int
514
fromEnum DepthTestFunction
DepthTestFunctionLequal = Int
515
fromEnum DepthTestFunction
DepthTestFunctionGreater = Int
516
fromEnum DepthTestFunction
DepthTestFunctionNotequal = Int
517
fromEnum DepthTestFunction
DepthTestFunctionGequal = Int
518
fromEnum DepthTestFunction
DepthTestFunctionAlways = Int
519
fromEnum (AnotherDepthTestFunction Int
k) = Int
k
toEnum :: Int -> DepthTestFunction
toEnum Int
512 = DepthTestFunction
DepthTestFunctionNever
toEnum Int
513 = DepthTestFunction
DepthTestFunctionLess
toEnum Int
514 = DepthTestFunction
DepthTestFunctionEqual
toEnum Int
515 = DepthTestFunction
DepthTestFunctionLequal
toEnum Int
516 = DepthTestFunction
DepthTestFunctionGreater
toEnum Int
517 = DepthTestFunction
DepthTestFunctionNotequal
toEnum Int
518 = DepthTestFunction
DepthTestFunctionGequal
toEnum Int
519 = DepthTestFunction
DepthTestFunctionAlways
toEnum Int
k = Int -> DepthTestFunction
AnotherDepthTestFunction Int
k
instance P.Ord DepthTestFunction where
compare :: DepthTestFunction -> DepthTestFunction -> Ordering
compare DepthTestFunction
a DepthTestFunction
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (DepthTestFunction -> Int
forall a. Enum a => a -> Int
P.fromEnum DepthTestFunction
a) (DepthTestFunction -> Int
forall a. Enum a => a -> Int
P.fromEnum DepthTestFunction
b)
type instance O.ParentTypes DepthTestFunction = '[]
instance O.HasParentTypes DepthTestFunction
foreign import ccall "cogl_depth_test_function_get_type" c_cogl_depth_test_function_get_type ::
IO GType
instance B.Types.TypedObject DepthTestFunction where
glibType :: IO GType
glibType = IO GType
c_cogl_depth_test_function_get_type
instance B.Types.BoxedEnum DepthTestFunction
data BlendStringError =
BlendStringErrorParseError
| BlendStringErrorArgumentParseError
| BlendStringErrorInvalidError
| BlendStringErrorGpuUnsupportedError
| AnotherBlendStringError Int
deriving (Int -> BlendStringError -> ShowS
[BlendStringError] -> ShowS
BlendStringError -> String
(Int -> BlendStringError -> ShowS)
-> (BlendStringError -> String)
-> ([BlendStringError] -> ShowS)
-> Show BlendStringError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BlendStringError] -> ShowS
$cshowList :: [BlendStringError] -> ShowS
show :: BlendStringError -> String
$cshow :: BlendStringError -> String
showsPrec :: Int -> BlendStringError -> ShowS
$cshowsPrec :: Int -> BlendStringError -> ShowS
Show, BlendStringError -> BlendStringError -> Bool
(BlendStringError -> BlendStringError -> Bool)
-> (BlendStringError -> BlendStringError -> Bool)
-> Eq BlendStringError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BlendStringError -> BlendStringError -> Bool
$c/= :: BlendStringError -> BlendStringError -> Bool
== :: BlendStringError -> BlendStringError -> Bool
$c== :: BlendStringError -> BlendStringError -> Bool
Eq)
instance P.Enum BlendStringError where
fromEnum :: BlendStringError -> Int
fromEnum BlendStringError
BlendStringErrorParseError = Int
0
fromEnum BlendStringError
BlendStringErrorArgumentParseError = Int
1
fromEnum BlendStringError
BlendStringErrorInvalidError = Int
2
fromEnum BlendStringError
BlendStringErrorGpuUnsupportedError = Int
3
fromEnum (AnotherBlendStringError Int
k) = Int
k
toEnum :: Int -> BlendStringError
toEnum Int
0 = BlendStringError
BlendStringErrorParseError
toEnum Int
1 = BlendStringError
BlendStringErrorArgumentParseError
toEnum Int
2 = BlendStringError
BlendStringErrorInvalidError
toEnum Int
3 = BlendStringError
BlendStringErrorGpuUnsupportedError
toEnum Int
k = Int -> BlendStringError
AnotherBlendStringError Int
k
instance P.Ord BlendStringError where
compare :: BlendStringError -> BlendStringError -> Ordering
compare BlendStringError
a BlendStringError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (BlendStringError -> Int
forall a. Enum a => a -> Int
P.fromEnum BlendStringError
a) (BlendStringError -> Int
forall a. Enum a => a -> Int
P.fromEnum BlendStringError
b)
type instance O.ParentTypes BlendStringError = '[]
instance O.HasParentTypes BlendStringError
foreign import ccall "cogl_blend_string_error_get_type" c_cogl_blend_string_error_get_type ::
IO GType
instance B.Types.TypedObject BlendStringError where
glibType :: IO GType
glibType = IO GType
c_cogl_blend_string_error_get_type
instance B.Types.BoxedEnum BlendStringError
data BitmapError =
BitmapErrorFailed
| BitmapErrorUnknownType
| BitmapErrorCorruptImage
| AnotherBitmapError Int
deriving (Int -> BitmapError -> ShowS
[BitmapError] -> ShowS
BitmapError -> String
(Int -> BitmapError -> ShowS)
-> (BitmapError -> String)
-> ([BitmapError] -> ShowS)
-> Show BitmapError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BitmapError] -> ShowS
$cshowList :: [BitmapError] -> ShowS
show :: BitmapError -> String
$cshow :: BitmapError -> String
showsPrec :: Int -> BitmapError -> ShowS
$cshowsPrec :: Int -> BitmapError -> ShowS
Show, BitmapError -> BitmapError -> Bool
(BitmapError -> BitmapError -> Bool)
-> (BitmapError -> BitmapError -> Bool) -> Eq BitmapError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BitmapError -> BitmapError -> Bool
$c/= :: BitmapError -> BitmapError -> Bool
== :: BitmapError -> BitmapError -> Bool
$c== :: BitmapError -> BitmapError -> Bool
Eq)
instance P.Enum BitmapError where
fromEnum :: BitmapError -> Int
fromEnum BitmapError
BitmapErrorFailed = Int
0
fromEnum BitmapError
BitmapErrorUnknownType = Int
1
fromEnum BitmapError
BitmapErrorCorruptImage = Int
2
fromEnum (AnotherBitmapError Int
k) = Int
k
toEnum :: Int -> BitmapError
toEnum Int
0 = BitmapError
BitmapErrorFailed
toEnum Int
1 = BitmapError
BitmapErrorUnknownType
toEnum Int
2 = BitmapError
BitmapErrorCorruptImage
toEnum Int
k = Int -> BitmapError
AnotherBitmapError Int
k
instance P.Ord BitmapError where
compare :: BitmapError -> BitmapError -> Ordering
compare BitmapError
a BitmapError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (BitmapError -> Int
forall a. Enum a => a -> Int
P.fromEnum BitmapError
a) (BitmapError -> Int
forall a. Enum a => a -> Int
P.fromEnum BitmapError
b)
type instance O.ParentTypes BitmapError = '[]
instance O.HasParentTypes BitmapError
foreign import ccall "cogl_bitmap_error_get_type" c_cogl_bitmap_error_get_type ::
IO GType
instance B.Types.TypedObject BitmapError where
glibType :: IO GType
glibType = IO GType
c_cogl_bitmap_error_get_type
instance B.Types.BoxedEnum BitmapError
data AttributeType =
AttributeTypeByte
| AttributeTypeUnsignedByte
| AttributeTypeShort
| AttributeTypeUnsignedShort
| AttributeTypeFloat
| AnotherAttributeType Int
deriving (Int -> AttributeType -> ShowS
[AttributeType] -> ShowS
AttributeType -> String
(Int -> AttributeType -> ShowS)
-> (AttributeType -> String)
-> ([AttributeType] -> ShowS)
-> Show AttributeType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AttributeType] -> ShowS
$cshowList :: [AttributeType] -> ShowS
show :: AttributeType -> String
$cshow :: AttributeType -> String
showsPrec :: Int -> AttributeType -> ShowS
$cshowsPrec :: Int -> AttributeType -> ShowS
Show, AttributeType -> AttributeType -> Bool
(AttributeType -> AttributeType -> Bool)
-> (AttributeType -> AttributeType -> Bool) -> Eq AttributeType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AttributeType -> AttributeType -> Bool
$c/= :: AttributeType -> AttributeType -> Bool
== :: AttributeType -> AttributeType -> Bool
$c== :: AttributeType -> AttributeType -> Bool
Eq)
instance P.Enum AttributeType where
fromEnum :: AttributeType -> Int
fromEnum AttributeType
AttributeTypeByte = Int
5120
fromEnum AttributeType
AttributeTypeUnsignedByte = Int
5121
fromEnum AttributeType
AttributeTypeShort = Int
5122
fromEnum AttributeType
AttributeTypeUnsignedShort = Int
5123
fromEnum AttributeType
AttributeTypeFloat = Int
5126
fromEnum (AnotherAttributeType Int
k) = Int
k
toEnum :: Int -> AttributeType
toEnum Int
5120 = AttributeType
AttributeTypeByte
toEnum Int
5121 = AttributeType
AttributeTypeUnsignedByte
toEnum Int
5122 = AttributeType
AttributeTypeShort
toEnum Int
5123 = AttributeType
AttributeTypeUnsignedShort
toEnum Int
5126 = AttributeType
AttributeTypeFloat
toEnum Int
k = Int -> AttributeType
AnotherAttributeType Int
k
instance P.Ord AttributeType where
compare :: AttributeType -> AttributeType -> Ordering
compare AttributeType
a AttributeType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (AttributeType -> Int
forall a. Enum a => a -> Int
P.fromEnum AttributeType
a) (AttributeType -> Int
forall a. Enum a => a -> Int
P.fromEnum AttributeType
b)
type instance O.ParentTypes AttributeType = '[]
instance O.HasParentTypes AttributeType
foreign import ccall "cogl_attribute_type_get_type" c_cogl_attribute_type_get_type ::
IO GType
instance B.Types.TypedObject AttributeType where
glibType :: IO GType
glibType = IO GType
c_cogl_attribute_type_get_type
instance B.Types.BoxedEnum AttributeType