{-# OPTIONS_HADDOCK ignore-exports#-}
{-# LANGUAGE DataKinds                  #-}
{-# LANGUAGE DeriveDataTypeable         #-}
{-# LANGUAGE DeriveGeneric              #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE PatternSynonyms            #-}
{-# LANGUAGE Strict                     #-}
module Graphics.Vulkan.Types.Enum.BorderColor
       (VkBorderColor(VkBorderColor,
                      VK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK,
                      VK_BORDER_COLOR_INT_TRANSPARENT_BLACK,
                      VK_BORDER_COLOR_FLOAT_OPAQUE_BLACK,
                      VK_BORDER_COLOR_INT_OPAQUE_BLACK,
                      VK_BORDER_COLOR_FLOAT_OPAQUE_WHITE,
                      VK_BORDER_COLOR_INT_OPAQUE_WHITE))
       where
import           Data.Data                       (Data)
import           Foreign.Storable                (Storable)
import           GHC.Generics                    (Generic)
import           GHC.Read                        (choose, expectP)
import           Graphics.Vulkan.Marshal         (Int32)
import           Text.ParserCombinators.ReadPrec (prec, step, (+++))
import           Text.Read                       (Read (..), parens)
import           Text.Read.Lex                   (Lexeme (..))

-- | type = @enum@
--
--   <https://www.khronos.org/registry/vulkan/specs/1.1-extensions/html/vkspec.html#VkBorderColor VkBorderColor registry at www.khronos.org>
newtype VkBorderColor = VkBorderColor Int32
                          deriving (VkBorderColor -> VkBorderColor -> Bool
(VkBorderColor -> VkBorderColor -> Bool)
-> (VkBorderColor -> VkBorderColor -> Bool) -> Eq VkBorderColor
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VkBorderColor -> VkBorderColor -> Bool
$c/= :: VkBorderColor -> VkBorderColor -> Bool
== :: VkBorderColor -> VkBorderColor -> Bool
$c== :: VkBorderColor -> VkBorderColor -> Bool
Eq, Eq VkBorderColor
Eq VkBorderColor
-> (VkBorderColor -> VkBorderColor -> Ordering)
-> (VkBorderColor -> VkBorderColor -> Bool)
-> (VkBorderColor -> VkBorderColor -> Bool)
-> (VkBorderColor -> VkBorderColor -> Bool)
-> (VkBorderColor -> VkBorderColor -> Bool)
-> (VkBorderColor -> VkBorderColor -> VkBorderColor)
-> (VkBorderColor -> VkBorderColor -> VkBorderColor)
-> Ord VkBorderColor
VkBorderColor -> VkBorderColor -> Bool
VkBorderColor -> VkBorderColor -> Ordering
VkBorderColor -> VkBorderColor -> VkBorderColor
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: VkBorderColor -> VkBorderColor -> VkBorderColor
$cmin :: VkBorderColor -> VkBorderColor -> VkBorderColor
max :: VkBorderColor -> VkBorderColor -> VkBorderColor
$cmax :: VkBorderColor -> VkBorderColor -> VkBorderColor
>= :: VkBorderColor -> VkBorderColor -> Bool
$c>= :: VkBorderColor -> VkBorderColor -> Bool
> :: VkBorderColor -> VkBorderColor -> Bool
$c> :: VkBorderColor -> VkBorderColor -> Bool
<= :: VkBorderColor -> VkBorderColor -> Bool
$c<= :: VkBorderColor -> VkBorderColor -> Bool
< :: VkBorderColor -> VkBorderColor -> Bool
$c< :: VkBorderColor -> VkBorderColor -> Bool
compare :: VkBorderColor -> VkBorderColor -> Ordering
$ccompare :: VkBorderColor -> VkBorderColor -> Ordering
$cp1Ord :: Eq VkBorderColor
Ord, Integer -> VkBorderColor
VkBorderColor -> VkBorderColor
VkBorderColor -> VkBorderColor -> VkBorderColor
(VkBorderColor -> VkBorderColor -> VkBorderColor)
-> (VkBorderColor -> VkBorderColor -> VkBorderColor)
-> (VkBorderColor -> VkBorderColor -> VkBorderColor)
-> (VkBorderColor -> VkBorderColor)
-> (VkBorderColor -> VkBorderColor)
-> (VkBorderColor -> VkBorderColor)
-> (Integer -> VkBorderColor)
-> Num VkBorderColor
forall a.
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> a)
-> (a -> a)
-> (Integer -> a)
-> Num a
fromInteger :: Integer -> VkBorderColor
$cfromInteger :: Integer -> VkBorderColor
signum :: VkBorderColor -> VkBorderColor
$csignum :: VkBorderColor -> VkBorderColor
abs :: VkBorderColor -> VkBorderColor
$cabs :: VkBorderColor -> VkBorderColor
negate :: VkBorderColor -> VkBorderColor
$cnegate :: VkBorderColor -> VkBorderColor
* :: VkBorderColor -> VkBorderColor -> VkBorderColor
$c* :: VkBorderColor -> VkBorderColor -> VkBorderColor
- :: VkBorderColor -> VkBorderColor -> VkBorderColor
$c- :: VkBorderColor -> VkBorderColor -> VkBorderColor
+ :: VkBorderColor -> VkBorderColor -> VkBorderColor
$c+ :: VkBorderColor -> VkBorderColor -> VkBorderColor
Num, VkBorderColor
VkBorderColor -> VkBorderColor -> Bounded VkBorderColor
forall a. a -> a -> Bounded a
maxBound :: VkBorderColor
$cmaxBound :: VkBorderColor
minBound :: VkBorderColor
$cminBound :: VkBorderColor
Bounded, Ptr b -> Int -> IO VkBorderColor
Ptr b -> Int -> VkBorderColor -> IO ()
Ptr VkBorderColor -> IO VkBorderColor
Ptr VkBorderColor -> Int -> IO VkBorderColor
Ptr VkBorderColor -> Int -> VkBorderColor -> IO ()
Ptr VkBorderColor -> VkBorderColor -> IO ()
VkBorderColor -> Int
(VkBorderColor -> Int)
-> (VkBorderColor -> Int)
-> (Ptr VkBorderColor -> Int -> IO VkBorderColor)
-> (Ptr VkBorderColor -> Int -> VkBorderColor -> IO ())
-> (forall b. Ptr b -> Int -> IO VkBorderColor)
-> (forall b. Ptr b -> Int -> VkBorderColor -> IO ())
-> (Ptr VkBorderColor -> IO VkBorderColor)
-> (Ptr VkBorderColor -> VkBorderColor -> IO ())
-> Storable VkBorderColor
forall b. Ptr b -> Int -> IO VkBorderColor
forall b. Ptr b -> Int -> VkBorderColor -> IO ()
forall a.
(a -> Int)
-> (a -> Int)
-> (Ptr a -> Int -> IO a)
-> (Ptr a -> Int -> a -> IO ())
-> (forall b. Ptr b -> Int -> IO a)
-> (forall b. Ptr b -> Int -> a -> IO ())
-> (Ptr a -> IO a)
-> (Ptr a -> a -> IO ())
-> Storable a
poke :: Ptr VkBorderColor -> VkBorderColor -> IO ()
$cpoke :: Ptr VkBorderColor -> VkBorderColor -> IO ()
peek :: Ptr VkBorderColor -> IO VkBorderColor
$cpeek :: Ptr VkBorderColor -> IO VkBorderColor
pokeByteOff :: Ptr b -> Int -> VkBorderColor -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> VkBorderColor -> IO ()
peekByteOff :: Ptr b -> Int -> IO VkBorderColor
$cpeekByteOff :: forall b. Ptr b -> Int -> IO VkBorderColor
pokeElemOff :: Ptr VkBorderColor -> Int -> VkBorderColor -> IO ()
$cpokeElemOff :: Ptr VkBorderColor -> Int -> VkBorderColor -> IO ()
peekElemOff :: Ptr VkBorderColor -> Int -> IO VkBorderColor
$cpeekElemOff :: Ptr VkBorderColor -> Int -> IO VkBorderColor
alignment :: VkBorderColor -> Int
$calignment :: VkBorderColor -> Int
sizeOf :: VkBorderColor -> Int
$csizeOf :: VkBorderColor -> Int
Storable, Int -> VkBorderColor
VkBorderColor -> Int
VkBorderColor -> [VkBorderColor]
VkBorderColor -> VkBorderColor
VkBorderColor -> VkBorderColor -> [VkBorderColor]
VkBorderColor -> VkBorderColor -> VkBorderColor -> [VkBorderColor]
(VkBorderColor -> VkBorderColor)
-> (VkBorderColor -> VkBorderColor)
-> (Int -> VkBorderColor)
-> (VkBorderColor -> Int)
-> (VkBorderColor -> [VkBorderColor])
-> (VkBorderColor -> VkBorderColor -> [VkBorderColor])
-> (VkBorderColor -> VkBorderColor -> [VkBorderColor])
-> (VkBorderColor
    -> VkBorderColor -> VkBorderColor -> [VkBorderColor])
-> Enum VkBorderColor
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: VkBorderColor -> VkBorderColor -> VkBorderColor -> [VkBorderColor]
$cenumFromThenTo :: VkBorderColor -> VkBorderColor -> VkBorderColor -> [VkBorderColor]
enumFromTo :: VkBorderColor -> VkBorderColor -> [VkBorderColor]
$cenumFromTo :: VkBorderColor -> VkBorderColor -> [VkBorderColor]
enumFromThen :: VkBorderColor -> VkBorderColor -> [VkBorderColor]
$cenumFromThen :: VkBorderColor -> VkBorderColor -> [VkBorderColor]
enumFrom :: VkBorderColor -> [VkBorderColor]
$cenumFrom :: VkBorderColor -> [VkBorderColor]
fromEnum :: VkBorderColor -> Int
$cfromEnum :: VkBorderColor -> Int
toEnum :: Int -> VkBorderColor
$ctoEnum :: Int -> VkBorderColor
pred :: VkBorderColor -> VkBorderColor
$cpred :: VkBorderColor -> VkBorderColor
succ :: VkBorderColor -> VkBorderColor
$csucc :: VkBorderColor -> VkBorderColor
Enum, Typeable VkBorderColor
DataType
Constr
Typeable VkBorderColor
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> VkBorderColor -> c VkBorderColor)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c VkBorderColor)
-> (VkBorderColor -> Constr)
-> (VkBorderColor -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c VkBorderColor))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c VkBorderColor))
-> ((forall b. Data b => b -> b) -> VkBorderColor -> VkBorderColor)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> VkBorderColor -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> VkBorderColor -> r)
-> (forall u. (forall d. Data d => d -> u) -> VkBorderColor -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> VkBorderColor -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor)
-> Data VkBorderColor
VkBorderColor -> DataType
VkBorderColor -> Constr
(forall b. Data b => b -> b) -> VkBorderColor -> VkBorderColor
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> VkBorderColor -> c VkBorderColor
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c VkBorderColor
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> VkBorderColor -> u
forall u. (forall d. Data d => d -> u) -> VkBorderColor -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> VkBorderColor -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> VkBorderColor -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c VkBorderColor
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> VkBorderColor -> c VkBorderColor
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c VkBorderColor)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c VkBorderColor)
$cVkBorderColor :: Constr
$tVkBorderColor :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor
gmapMp :: (forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor
gmapM :: (forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> VkBorderColor -> m VkBorderColor
gmapQi :: Int -> (forall d. Data d => d -> u) -> VkBorderColor -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> VkBorderColor -> u
gmapQ :: (forall d. Data d => d -> u) -> VkBorderColor -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> VkBorderColor -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> VkBorderColor -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> VkBorderColor -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> VkBorderColor -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> VkBorderColor -> r
gmapT :: (forall b. Data b => b -> b) -> VkBorderColor -> VkBorderColor
$cgmapT :: (forall b. Data b => b -> b) -> VkBorderColor -> VkBorderColor
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c VkBorderColor)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c VkBorderColor)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c VkBorderColor)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c VkBorderColor)
dataTypeOf :: VkBorderColor -> DataType
$cdataTypeOf :: VkBorderColor -> DataType
toConstr :: VkBorderColor -> Constr
$ctoConstr :: VkBorderColor -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c VkBorderColor
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c VkBorderColor
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> VkBorderColor -> c VkBorderColor
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> VkBorderColor -> c VkBorderColor
$cp1Data :: Typeable VkBorderColor
Data, (forall x. VkBorderColor -> Rep VkBorderColor x)
-> (forall x. Rep VkBorderColor x -> VkBorderColor)
-> Generic VkBorderColor
forall x. Rep VkBorderColor x -> VkBorderColor
forall x. VkBorderColor -> Rep VkBorderColor x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep VkBorderColor x -> VkBorderColor
$cfrom :: forall x. VkBorderColor -> Rep VkBorderColor x
Generic)

instance Show VkBorderColor where
        showsPrec :: Int -> VkBorderColor -> ShowS
showsPrec Int
_ VkBorderColor
VK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK
          = String -> ShowS
showString String
"VK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK"
        showsPrec Int
_ VkBorderColor
VK_BORDER_COLOR_INT_TRANSPARENT_BLACK
          = String -> ShowS
showString String
"VK_BORDER_COLOR_INT_TRANSPARENT_BLACK"
        showsPrec Int
_ VkBorderColor
VK_BORDER_COLOR_FLOAT_OPAQUE_BLACK
          = String -> ShowS
showString String
"VK_BORDER_COLOR_FLOAT_OPAQUE_BLACK"
        showsPrec Int
_ VkBorderColor
VK_BORDER_COLOR_INT_OPAQUE_BLACK
          = String -> ShowS
showString String
"VK_BORDER_COLOR_INT_OPAQUE_BLACK"
        showsPrec Int
_ VkBorderColor
VK_BORDER_COLOR_FLOAT_OPAQUE_WHITE
          = String -> ShowS
showString String
"VK_BORDER_COLOR_FLOAT_OPAQUE_WHITE"
        showsPrec Int
_ VkBorderColor
VK_BORDER_COLOR_INT_OPAQUE_WHITE
          = String -> ShowS
showString String
"VK_BORDER_COLOR_INT_OPAQUE_WHITE"
        showsPrec Int
p (VkBorderColor Int32
x)
          = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
              (String -> ShowS
showString String
"VkBorderColor " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Int32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
11 Int32
x)

instance Read VkBorderColor where
        readPrec :: ReadPrec VkBorderColor
readPrec
          = ReadPrec VkBorderColor -> ReadPrec VkBorderColor
forall a. ReadPrec a -> ReadPrec a
parens
              ([(String, ReadPrec VkBorderColor)] -> ReadPrec VkBorderColor
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
                 [(String
"VK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK",
                   VkBorderColor -> ReadPrec VkBorderColor
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBorderColor
VK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK),
                  (String
"VK_BORDER_COLOR_INT_TRANSPARENT_BLACK",
                   VkBorderColor -> ReadPrec VkBorderColor
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBorderColor
VK_BORDER_COLOR_INT_TRANSPARENT_BLACK),
                  (String
"VK_BORDER_COLOR_FLOAT_OPAQUE_BLACK",
                   VkBorderColor -> ReadPrec VkBorderColor
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBorderColor
VK_BORDER_COLOR_FLOAT_OPAQUE_BLACK),
                  (String
"VK_BORDER_COLOR_INT_OPAQUE_BLACK",
                   VkBorderColor -> ReadPrec VkBorderColor
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBorderColor
VK_BORDER_COLOR_INT_OPAQUE_BLACK),
                  (String
"VK_BORDER_COLOR_FLOAT_OPAQUE_WHITE",
                   VkBorderColor -> ReadPrec VkBorderColor
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBorderColor
VK_BORDER_COLOR_FLOAT_OPAQUE_WHITE),
                  (String
"VK_BORDER_COLOR_INT_OPAQUE_WHITE",
                   VkBorderColor -> ReadPrec VkBorderColor
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBorderColor
VK_BORDER_COLOR_INT_OPAQUE_WHITE)]
                 ReadPrec VkBorderColor
-> ReadPrec VkBorderColor -> ReadPrec VkBorderColor
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
                 Int -> ReadPrec VkBorderColor -> ReadPrec VkBorderColor
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
                   (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkBorderColor") ReadPrec () -> ReadPrec VkBorderColor -> ReadPrec VkBorderColor
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
                      (Int32 -> VkBorderColor
VkBorderColor (Int32 -> VkBorderColor)
-> ReadPrec Int32 -> ReadPrec VkBorderColor
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ReadPrec Int32 -> ReadPrec Int32
forall a. ReadPrec a -> ReadPrec a
step ReadPrec Int32
forall a. Read a => ReadPrec a
readPrec)))

pattern VK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK :: VkBorderColor

pattern $bVK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK :: VkBorderColor
$mVK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK :: forall r. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK = VkBorderColor 0

pattern VK_BORDER_COLOR_INT_TRANSPARENT_BLACK :: VkBorderColor

pattern $bVK_BORDER_COLOR_INT_TRANSPARENT_BLACK :: VkBorderColor
$mVK_BORDER_COLOR_INT_TRANSPARENT_BLACK :: forall r. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_INT_TRANSPARENT_BLACK = VkBorderColor 1

pattern VK_BORDER_COLOR_FLOAT_OPAQUE_BLACK :: VkBorderColor

pattern $bVK_BORDER_COLOR_FLOAT_OPAQUE_BLACK :: VkBorderColor
$mVK_BORDER_COLOR_FLOAT_OPAQUE_BLACK :: forall r. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_FLOAT_OPAQUE_BLACK = VkBorderColor 2

pattern VK_BORDER_COLOR_INT_OPAQUE_BLACK :: VkBorderColor

pattern $bVK_BORDER_COLOR_INT_OPAQUE_BLACK :: VkBorderColor
$mVK_BORDER_COLOR_INT_OPAQUE_BLACK :: forall r. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_INT_OPAQUE_BLACK = VkBorderColor 3

pattern VK_BORDER_COLOR_FLOAT_OPAQUE_WHITE :: VkBorderColor

pattern $bVK_BORDER_COLOR_FLOAT_OPAQUE_WHITE :: VkBorderColor
$mVK_BORDER_COLOR_FLOAT_OPAQUE_WHITE :: forall r. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_FLOAT_OPAQUE_WHITE = VkBorderColor 4

pattern VK_BORDER_COLOR_INT_OPAQUE_WHITE :: VkBorderColor

pattern $bVK_BORDER_COLOR_INT_OPAQUE_WHITE :: VkBorderColor
$mVK_BORDER_COLOR_INT_OPAQUE_WHITE :: forall r. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_INT_OPAQUE_WHITE = VkBorderColor 5