{-# OPTIONS_GHC -fno-warn-missing-pattern-synonym-signatures#-}
{-# OPTIONS_HADDOCK ignore-exports#-}
{-# LANGUAGE DataKinds                  #-}
{-# LANGUAGE FlexibleInstances          #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE KindSignatures             #-}
{-# LANGUAGE PatternSynonyms            #-}
{-# LANGUAGE StandaloneDeriving         #-}
{-# LANGUAGE Strict                     #-}
{-# LANGUAGE TypeSynonymInstances       #-}
module Graphics.Vulkan.Types.Enum.Color
       (VkColorComponentBitmask(VkColorComponentBitmask,
                                VkColorComponentFlags, VkColorComponentFlagBits,
                                VK_COLOR_COMPONENT_R_BIT, VK_COLOR_COMPONENT_G_BIT,
                                VK_COLOR_COMPONENT_B_BIT, VK_COLOR_COMPONENT_A_BIT),
        VkColorComponentFlags, VkColorComponentFlagBits,
        pattern VK_COLORSPACE_SRGB_NONLINEAR_KHR,
        VkColorSpaceKHR(VkColorSpaceKHR,
                        VK_COLOR_SPACE_SRGB_NONLINEAR_KHR))
       where
import Data.Bits                       (Bits, FiniteBits)
import Foreign.Storable                (Storable)
import GHC.Read                        (choose, expectP)
import Graphics.Vulkan.Marshal         (FlagBit, FlagMask, FlagType, Int32)
import Graphics.Vulkan.Types.BaseTypes (VkFlags (..))
import Text.ParserCombinators.ReadPrec (prec, step, (+++))
import Text.Read                       (Read (..), parens)
import Text.Read.Lex                   (Lexeme (..))

newtype VkColorComponentBitmask (a ::
                                   FlagType) = VkColorComponentBitmask VkFlags
                                               deriving (VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
(VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool)
-> (VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool)
-> Eq (VkColorComponentBitmask a)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall (a :: FlagType).
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
/= :: VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
$c/= :: forall (a :: FlagType).
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
== :: VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
$c== :: forall (a :: FlagType).
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
Eq, Eq (VkColorComponentBitmask a)
Eq (VkColorComponentBitmask a)
-> (VkColorComponentBitmask a
    -> VkColorComponentBitmask a -> Ordering)
-> (VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool)
-> (VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool)
-> (VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool)
-> (VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool)
-> (VkColorComponentBitmask a
    -> VkColorComponentBitmask a -> VkColorComponentBitmask a)
-> (VkColorComponentBitmask a
    -> VkColorComponentBitmask a -> VkColorComponentBitmask a)
-> Ord (VkColorComponentBitmask a)
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Ordering
VkColorComponentBitmask a
-> VkColorComponentBitmask a -> VkColorComponentBitmask a
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
forall (a :: FlagType). Eq (VkColorComponentBitmask a)
forall (a :: FlagType).
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
forall (a :: FlagType).
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Ordering
forall (a :: FlagType).
VkColorComponentBitmask a
-> VkColorComponentBitmask a -> VkColorComponentBitmask a
min :: VkColorComponentBitmask a
-> VkColorComponentBitmask a -> VkColorComponentBitmask a
$cmin :: forall (a :: FlagType).
VkColorComponentBitmask a
-> VkColorComponentBitmask a -> VkColorComponentBitmask a
max :: VkColorComponentBitmask a
-> VkColorComponentBitmask a -> VkColorComponentBitmask a
$cmax :: forall (a :: FlagType).
VkColorComponentBitmask a
-> VkColorComponentBitmask a -> VkColorComponentBitmask a
>= :: VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
$c>= :: forall (a :: FlagType).
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
> :: VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
$c> :: forall (a :: FlagType).
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
<= :: VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
$c<= :: forall (a :: FlagType).
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
< :: VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
$c< :: forall (a :: FlagType).
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Bool
compare :: VkColorComponentBitmask a -> VkColorComponentBitmask a -> Ordering
$ccompare :: forall (a :: FlagType).
VkColorComponentBitmask a -> VkColorComponentBitmask a -> Ordering
Ord, Ptr (VkColorComponentBitmask a) -> IO (VkColorComponentBitmask a)
Ptr (VkColorComponentBitmask a)
-> Int -> IO (VkColorComponentBitmask a)
Ptr (VkColorComponentBitmask a)
-> Int -> VkColorComponentBitmask a -> IO ()
Ptr (VkColorComponentBitmask a)
-> VkColorComponentBitmask a -> IO ()
VkColorComponentBitmask a -> Int
(VkColorComponentBitmask a -> Int)
-> (VkColorComponentBitmask a -> Int)
-> (Ptr (VkColorComponentBitmask a)
    -> Int -> IO (VkColorComponentBitmask a))
-> (Ptr (VkColorComponentBitmask a)
    -> Int -> VkColorComponentBitmask a -> IO ())
-> (forall b. Ptr b -> Int -> IO (VkColorComponentBitmask a))
-> (forall b. Ptr b -> Int -> VkColorComponentBitmask a -> IO ())
-> (Ptr (VkColorComponentBitmask a)
    -> IO (VkColorComponentBitmask a))
-> (Ptr (VkColorComponentBitmask a)
    -> VkColorComponentBitmask a -> IO ())
-> Storable (VkColorComponentBitmask a)
forall b. Ptr b -> Int -> IO (VkColorComponentBitmask a)
forall b. Ptr b -> Int -> VkColorComponentBitmask a -> 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
forall (a :: FlagType).
Ptr (VkColorComponentBitmask a) -> IO (VkColorComponentBitmask a)
forall (a :: FlagType).
Ptr (VkColorComponentBitmask a)
-> Int -> IO (VkColorComponentBitmask a)
forall (a :: FlagType).
Ptr (VkColorComponentBitmask a)
-> Int -> VkColorComponentBitmask a -> IO ()
forall (a :: FlagType).
Ptr (VkColorComponentBitmask a)
-> VkColorComponentBitmask a -> IO ()
forall (a :: FlagType). VkColorComponentBitmask a -> Int
forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkColorComponentBitmask a)
forall (a :: FlagType) b.
Ptr b -> Int -> VkColorComponentBitmask a -> IO ()
poke :: Ptr (VkColorComponentBitmask a)
-> VkColorComponentBitmask a -> IO ()
$cpoke :: forall (a :: FlagType).
Ptr (VkColorComponentBitmask a)
-> VkColorComponentBitmask a -> IO ()
peek :: Ptr (VkColorComponentBitmask a) -> IO (VkColorComponentBitmask a)
$cpeek :: forall (a :: FlagType).
Ptr (VkColorComponentBitmask a) -> IO (VkColorComponentBitmask a)
pokeByteOff :: forall b. Ptr b -> Int -> VkColorComponentBitmask a -> IO ()
$cpokeByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> VkColorComponentBitmask a -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO (VkColorComponentBitmask a)
$cpeekByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkColorComponentBitmask a)
pokeElemOff :: Ptr (VkColorComponentBitmask a)
-> Int -> VkColorComponentBitmask a -> IO ()
$cpokeElemOff :: forall (a :: FlagType).
Ptr (VkColorComponentBitmask a)
-> Int -> VkColorComponentBitmask a -> IO ()
peekElemOff :: Ptr (VkColorComponentBitmask a)
-> Int -> IO (VkColorComponentBitmask a)
$cpeekElemOff :: forall (a :: FlagType).
Ptr (VkColorComponentBitmask a)
-> Int -> IO (VkColorComponentBitmask a)
alignment :: VkColorComponentBitmask a -> Int
$calignment :: forall (a :: FlagType). VkColorComponentBitmask a -> Int
sizeOf :: VkColorComponentBitmask a -> Int
$csizeOf :: forall (a :: FlagType). VkColorComponentBitmask a -> Int
Storable)

type VkColorComponentFlags = VkColorComponentBitmask FlagMask

type VkColorComponentFlagBits = VkColorComponentBitmask FlagBit

pattern VkColorComponentFlagBits ::
        VkFlags -> VkColorComponentBitmask FlagBit

pattern $bVkColorComponentFlagBits :: VkFlags -> VkColorComponentBitmask FlagBit
$mVkColorComponentFlagBits :: forall {r}.
VkColorComponentBitmask FlagBit
-> (VkFlags -> r) -> (Void# -> r) -> r
VkColorComponentFlagBits n = VkColorComponentBitmask n

pattern VkColorComponentFlags ::
        VkFlags -> VkColorComponentBitmask FlagMask

pattern $bVkColorComponentFlags :: VkFlags -> VkColorComponentBitmask FlagMask
$mVkColorComponentFlags :: forall {r}.
VkColorComponentBitmask FlagMask
-> (VkFlags -> r) -> (Void# -> r) -> r
VkColorComponentFlags n = VkColorComponentBitmask n

deriving instance Bits (VkColorComponentBitmask FlagMask)

deriving instance FiniteBits (VkColorComponentBitmask FlagMask)

instance Show (VkColorComponentBitmask a) where
    showsPrec :: Int -> VkColorComponentBitmask a -> ShowS
showsPrec Int
_ VkColorComponentBitmask a
VK_COLOR_COMPONENT_R_BIT
      = String -> ShowS
showString String
"VK_COLOR_COMPONENT_R_BIT"
    showsPrec Int
_ VkColorComponentBitmask a
VK_COLOR_COMPONENT_G_BIT
      = String -> ShowS
showString String
"VK_COLOR_COMPONENT_G_BIT"
    showsPrec Int
_ VkColorComponentBitmask a
VK_COLOR_COMPONENT_B_BIT
      = String -> ShowS
showString String
"VK_COLOR_COMPONENT_B_BIT"
    showsPrec Int
_ VkColorComponentBitmask a
VK_COLOR_COMPONENT_A_BIT
      = String -> ShowS
showString String
"VK_COLOR_COMPONENT_A_BIT"
    showsPrec Int
p (VkColorComponentBitmask VkFlags
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
          (String -> ShowS
showString String
"VkColorComponentBitmask " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> VkFlags -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
11 VkFlags
x)

instance Read (VkColorComponentBitmask a) where
    readPrec :: ReadPrec (VkColorComponentBitmask a)
readPrec
      = ReadPrec (VkColorComponentBitmask a)
-> ReadPrec (VkColorComponentBitmask a)
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec (VkColorComponentBitmask a))]
-> ReadPrec (VkColorComponentBitmask a)
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_COLOR_COMPONENT_R_BIT", VkColorComponentBitmask a -> ReadPrec (VkColorComponentBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkColorComponentBitmask a
forall (a :: FlagType). VkColorComponentBitmask a
VK_COLOR_COMPONENT_R_BIT),
              (String
"VK_COLOR_COMPONENT_G_BIT", VkColorComponentBitmask a -> ReadPrec (VkColorComponentBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkColorComponentBitmask a
forall (a :: FlagType). VkColorComponentBitmask a
VK_COLOR_COMPONENT_G_BIT),
              (String
"VK_COLOR_COMPONENT_B_BIT", VkColorComponentBitmask a -> ReadPrec (VkColorComponentBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkColorComponentBitmask a
forall (a :: FlagType). VkColorComponentBitmask a
VK_COLOR_COMPONENT_B_BIT),
              (String
"VK_COLOR_COMPONENT_A_BIT", VkColorComponentBitmask a -> ReadPrec (VkColorComponentBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkColorComponentBitmask a
forall (a :: FlagType). VkColorComponentBitmask a
VK_COLOR_COMPONENT_A_BIT)]
             ReadPrec (VkColorComponentBitmask a)
-> ReadPrec (VkColorComponentBitmask a)
-> ReadPrec (VkColorComponentBitmask a)
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int
-> ReadPrec (VkColorComponentBitmask a)
-> ReadPrec (VkColorComponentBitmask a)
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkColorComponentBitmask") ReadPrec ()
-> ReadPrec (VkColorComponentBitmask a)
-> ReadPrec (VkColorComponentBitmask a)
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
                  (VkFlags -> VkColorComponentBitmask a
forall (a :: FlagType). VkFlags -> VkColorComponentBitmask a
VkColorComponentBitmask (VkFlags -> VkColorComponentBitmask a)
-> ReadPrec VkFlags -> ReadPrec (VkColorComponentBitmask a)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ReadPrec VkFlags -> ReadPrec VkFlags
forall a. ReadPrec a -> ReadPrec a
step ReadPrec VkFlags
forall a. Read a => ReadPrec a
readPrec)))

-- | bitpos = @0@
pattern VK_COLOR_COMPONENT_R_BIT :: VkColorComponentBitmask a

pattern $bVK_COLOR_COMPONENT_R_BIT :: forall (a :: FlagType). VkColorComponentBitmask a
$mVK_COLOR_COMPONENT_R_BIT :: forall {r} {a :: FlagType}.
VkColorComponentBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_COLOR_COMPONENT_R_BIT = VkColorComponentBitmask 1

-- | bitpos = @1@
pattern VK_COLOR_COMPONENT_G_BIT :: VkColorComponentBitmask a

pattern $bVK_COLOR_COMPONENT_G_BIT :: forall (a :: FlagType). VkColorComponentBitmask a
$mVK_COLOR_COMPONENT_G_BIT :: forall {r} {a :: FlagType}.
VkColorComponentBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_COLOR_COMPONENT_G_BIT = VkColorComponentBitmask 2

-- | bitpos = @2@
pattern VK_COLOR_COMPONENT_B_BIT :: VkColorComponentBitmask a

pattern $bVK_COLOR_COMPONENT_B_BIT :: forall (a :: FlagType). VkColorComponentBitmask a
$mVK_COLOR_COMPONENT_B_BIT :: forall {r} {a :: FlagType}.
VkColorComponentBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_COLOR_COMPONENT_B_BIT = VkColorComponentBitmask 4

-- | bitpos = @3@
pattern VK_COLOR_COMPONENT_A_BIT :: VkColorComponentBitmask a

pattern $bVK_COLOR_COMPONENT_A_BIT :: forall (a :: FlagType). VkColorComponentBitmask a
$mVK_COLOR_COMPONENT_A_BIT :: forall {r} {a :: FlagType}.
VkColorComponentBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_COLOR_COMPONENT_A_BIT = VkColorComponentBitmask 8

-- | type = @enum@
--
--   <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkColorSpaceKHR VkColorSpaceKHR registry at www.khronos.org>
newtype VkColorSpaceKHR = VkColorSpaceKHR Int32
                          deriving (VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
(VkColorSpaceKHR -> VkColorSpaceKHR -> Bool)
-> (VkColorSpaceKHR -> VkColorSpaceKHR -> Bool)
-> Eq VkColorSpaceKHR
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
$c/= :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
== :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
$c== :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
Eq, Eq VkColorSpaceKHR
Eq VkColorSpaceKHR
-> (VkColorSpaceKHR -> VkColorSpaceKHR -> Ordering)
-> (VkColorSpaceKHR -> VkColorSpaceKHR -> Bool)
-> (VkColorSpaceKHR -> VkColorSpaceKHR -> Bool)
-> (VkColorSpaceKHR -> VkColorSpaceKHR -> Bool)
-> (VkColorSpaceKHR -> VkColorSpaceKHR -> Bool)
-> (VkColorSpaceKHR -> VkColorSpaceKHR -> VkColorSpaceKHR)
-> (VkColorSpaceKHR -> VkColorSpaceKHR -> VkColorSpaceKHR)
-> Ord VkColorSpaceKHR
VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
VkColorSpaceKHR -> VkColorSpaceKHR -> Ordering
VkColorSpaceKHR -> VkColorSpaceKHR -> VkColorSpaceKHR
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 :: VkColorSpaceKHR -> VkColorSpaceKHR -> VkColorSpaceKHR
$cmin :: VkColorSpaceKHR -> VkColorSpaceKHR -> VkColorSpaceKHR
max :: VkColorSpaceKHR -> VkColorSpaceKHR -> VkColorSpaceKHR
$cmax :: VkColorSpaceKHR -> VkColorSpaceKHR -> VkColorSpaceKHR
>= :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
$c>= :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
> :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
$c> :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
<= :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
$c<= :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
< :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
$c< :: VkColorSpaceKHR -> VkColorSpaceKHR -> Bool
compare :: VkColorSpaceKHR -> VkColorSpaceKHR -> Ordering
$ccompare :: VkColorSpaceKHR -> VkColorSpaceKHR -> Ordering
Ord, Int -> VkColorSpaceKHR
VkColorSpaceKHR -> Int
VkColorSpaceKHR -> [VkColorSpaceKHR]
VkColorSpaceKHR -> VkColorSpaceKHR
VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR]
VkColorSpaceKHR
-> VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR]
(VkColorSpaceKHR -> VkColorSpaceKHR)
-> (VkColorSpaceKHR -> VkColorSpaceKHR)
-> (Int -> VkColorSpaceKHR)
-> (VkColorSpaceKHR -> Int)
-> (VkColorSpaceKHR -> [VkColorSpaceKHR])
-> (VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR])
-> (VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR])
-> (VkColorSpaceKHR
    -> VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR])
-> Enum VkColorSpaceKHR
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 :: VkColorSpaceKHR
-> VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR]
$cenumFromThenTo :: VkColorSpaceKHR
-> VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR]
enumFromTo :: VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR]
$cenumFromTo :: VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR]
enumFromThen :: VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR]
$cenumFromThen :: VkColorSpaceKHR -> VkColorSpaceKHR -> [VkColorSpaceKHR]
enumFrom :: VkColorSpaceKHR -> [VkColorSpaceKHR]
$cenumFrom :: VkColorSpaceKHR -> [VkColorSpaceKHR]
fromEnum :: VkColorSpaceKHR -> Int
$cfromEnum :: VkColorSpaceKHR -> Int
toEnum :: Int -> VkColorSpaceKHR
$ctoEnum :: Int -> VkColorSpaceKHR
pred :: VkColorSpaceKHR -> VkColorSpaceKHR
$cpred :: VkColorSpaceKHR -> VkColorSpaceKHR
succ :: VkColorSpaceKHR -> VkColorSpaceKHR
$csucc :: VkColorSpaceKHR -> VkColorSpaceKHR
Enum, Ptr VkColorSpaceKHR -> IO VkColorSpaceKHR
Ptr VkColorSpaceKHR -> Int -> IO VkColorSpaceKHR
Ptr VkColorSpaceKHR -> Int -> VkColorSpaceKHR -> IO ()
Ptr VkColorSpaceKHR -> VkColorSpaceKHR -> IO ()
VkColorSpaceKHR -> Int
(VkColorSpaceKHR -> Int)
-> (VkColorSpaceKHR -> Int)
-> (Ptr VkColorSpaceKHR -> Int -> IO VkColorSpaceKHR)
-> (Ptr VkColorSpaceKHR -> Int -> VkColorSpaceKHR -> IO ())
-> (forall b. Ptr b -> Int -> IO VkColorSpaceKHR)
-> (forall b. Ptr b -> Int -> VkColorSpaceKHR -> IO ())
-> (Ptr VkColorSpaceKHR -> IO VkColorSpaceKHR)
-> (Ptr VkColorSpaceKHR -> VkColorSpaceKHR -> IO ())
-> Storable VkColorSpaceKHR
forall b. Ptr b -> Int -> IO VkColorSpaceKHR
forall b. Ptr b -> Int -> VkColorSpaceKHR -> 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 VkColorSpaceKHR -> VkColorSpaceKHR -> IO ()
$cpoke :: Ptr VkColorSpaceKHR -> VkColorSpaceKHR -> IO ()
peek :: Ptr VkColorSpaceKHR -> IO VkColorSpaceKHR
$cpeek :: Ptr VkColorSpaceKHR -> IO VkColorSpaceKHR
pokeByteOff :: forall b. Ptr b -> Int -> VkColorSpaceKHR -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> VkColorSpaceKHR -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO VkColorSpaceKHR
$cpeekByteOff :: forall b. Ptr b -> Int -> IO VkColorSpaceKHR
pokeElemOff :: Ptr VkColorSpaceKHR -> Int -> VkColorSpaceKHR -> IO ()
$cpokeElemOff :: Ptr VkColorSpaceKHR -> Int -> VkColorSpaceKHR -> IO ()
peekElemOff :: Ptr VkColorSpaceKHR -> Int -> IO VkColorSpaceKHR
$cpeekElemOff :: Ptr VkColorSpaceKHR -> Int -> IO VkColorSpaceKHR
alignment :: VkColorSpaceKHR -> Int
$calignment :: VkColorSpaceKHR -> Int
sizeOf :: VkColorSpaceKHR -> Int
$csizeOf :: VkColorSpaceKHR -> Int
Storable)

instance Show VkColorSpaceKHR where
    showsPrec :: Int -> VkColorSpaceKHR -> ShowS
showsPrec Int
_ VkColorSpaceKHR
VK_COLOR_SPACE_SRGB_NONLINEAR_KHR
      = String -> ShowS
showString String
"VK_COLOR_SPACE_SRGB_NONLINEAR_KHR"
    showsPrec Int
_ VkColorSpaceKHR
VK_COLORSPACE_SRGB_NONLINEAR_KHR
      = String -> ShowS
showString String
"VK_COLORSPACE_SRGB_NONLINEAR_KHR"
    showsPrec Int
p (VkColorSpaceKHR Int32
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
          (String -> ShowS
showString String
"VkColorSpaceKHR " 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 VkColorSpaceKHR where
    readPrec :: ReadPrec VkColorSpaceKHR
readPrec
      = ReadPrec VkColorSpaceKHR -> ReadPrec VkColorSpaceKHR
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec VkColorSpaceKHR)] -> ReadPrec VkColorSpaceKHR
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_COLOR_SPACE_SRGB_NONLINEAR_KHR",
               VkColorSpaceKHR -> ReadPrec VkColorSpaceKHR
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkColorSpaceKHR
VK_COLOR_SPACE_SRGB_NONLINEAR_KHR),
              (String
"VK_COLORSPACE_SRGB_NONLINEAR_KHR",
               VkColorSpaceKHR -> ReadPrec VkColorSpaceKHR
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkColorSpaceKHR
VK_COLORSPACE_SRGB_NONLINEAR_KHR)]
             ReadPrec VkColorSpaceKHR
-> ReadPrec VkColorSpaceKHR -> ReadPrec VkColorSpaceKHR
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int -> ReadPrec VkColorSpaceKHR -> ReadPrec VkColorSpaceKHR
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkColorSpaceKHR") ReadPrec () -> ReadPrec VkColorSpaceKHR -> ReadPrec VkColorSpaceKHR
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
                  (Int32 -> VkColorSpaceKHR
VkColorSpaceKHR (Int32 -> VkColorSpaceKHR)
-> ReadPrec Int32 -> ReadPrec VkColorSpaceKHR
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_COLOR_SPACE_SRGB_NONLINEAR_KHR :: VkColorSpaceKHR

pattern $bVK_COLOR_SPACE_SRGB_NONLINEAR_KHR :: VkColorSpaceKHR
$mVK_COLOR_SPACE_SRGB_NONLINEAR_KHR :: forall {r}. VkColorSpaceKHR -> (Void# -> r) -> (Void# -> r) -> r
VK_COLOR_SPACE_SRGB_NONLINEAR_KHR = VkColorSpaceKHR 0

-- | Backwards-compatible alias containing a typo
pattern $bVK_COLORSPACE_SRGB_NONLINEAR_KHR :: VkColorSpaceKHR
$mVK_COLORSPACE_SRGB_NONLINEAR_KHR :: forall {r}. VkColorSpaceKHR -> (Void# -> r) -> (Void# -> r) -> r
VK_COLORSPACE_SRGB_NONLINEAR_KHR =
        VK_COLOR_SPACE_SRGB_NONLINEAR_KHR