{-# 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.Display
       (VkDisplayEventTypeEXT(VkDisplayEventTypeEXT,
                              VK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT),
        VkDisplayPlaneAlphaBitmaskKHR(VkDisplayPlaneAlphaBitmaskKHR,
                                      VkDisplayPlaneAlphaFlagsKHR, VkDisplayPlaneAlphaFlagBitsKHR,
                                      VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR,
                                      VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR,
                                      VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR,
                                      VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR),
        VkDisplayPlaneAlphaFlagsKHR, VkDisplayPlaneAlphaFlagBitsKHR,
        VkDisplayPowerStateEXT(VkDisplayPowerStateEXT,
                               VK_DISPLAY_POWER_STATE_OFF_EXT, VK_DISPLAY_POWER_STATE_SUSPEND_EXT,
                               VK_DISPLAY_POWER_STATE_ON_EXT))
       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 (..))

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

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

pattern $bVK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT :: VkDisplayEventTypeEXT
$mVK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT :: forall {r}.
VkDisplayEventTypeEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT =
        VkDisplayEventTypeEXT 0

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

type VkDisplayPlaneAlphaFlagsKHR =
     VkDisplayPlaneAlphaBitmaskKHR FlagMask

type VkDisplayPlaneAlphaFlagBitsKHR =
     VkDisplayPlaneAlphaBitmaskKHR FlagBit

pattern VkDisplayPlaneAlphaFlagBitsKHR ::
        VkFlags -> VkDisplayPlaneAlphaBitmaskKHR FlagBit

pattern $bVkDisplayPlaneAlphaFlagBitsKHR :: VkFlags -> VkDisplayPlaneAlphaBitmaskKHR FlagBit
$mVkDisplayPlaneAlphaFlagBitsKHR :: forall {r}.
VkDisplayPlaneAlphaBitmaskKHR FlagBit
-> (VkFlags -> r) -> (Void# -> r) -> r
VkDisplayPlaneAlphaFlagBitsKHR n =
        VkDisplayPlaneAlphaBitmaskKHR n

pattern VkDisplayPlaneAlphaFlagsKHR ::
        VkFlags -> VkDisplayPlaneAlphaBitmaskKHR FlagMask

pattern $bVkDisplayPlaneAlphaFlagsKHR :: VkFlags -> VkDisplayPlaneAlphaBitmaskKHR FlagMask
$mVkDisplayPlaneAlphaFlagsKHR :: forall {r}.
VkDisplayPlaneAlphaBitmaskKHR FlagMask
-> (VkFlags -> r) -> (Void# -> r) -> r
VkDisplayPlaneAlphaFlagsKHR n =
        VkDisplayPlaneAlphaBitmaskKHR n

deriving instance Bits (VkDisplayPlaneAlphaBitmaskKHR FlagMask)

deriving instance
         FiniteBits (VkDisplayPlaneAlphaBitmaskKHR FlagMask)

instance Show (VkDisplayPlaneAlphaBitmaskKHR a) where
    showsPrec :: Int -> VkDisplayPlaneAlphaBitmaskKHR a -> ShowS
showsPrec Int
_ VkDisplayPlaneAlphaBitmaskKHR a
VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR
      = String -> ShowS
showString String
"VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR"
    showsPrec Int
_ VkDisplayPlaneAlphaBitmaskKHR a
VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR
      = String -> ShowS
showString String
"VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR"
    showsPrec Int
_ VkDisplayPlaneAlphaBitmaskKHR a
VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR
      = String -> ShowS
showString String
"VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR"
    showsPrec Int
_ VkDisplayPlaneAlphaBitmaskKHR a
VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR
      = String -> ShowS
showString
          String
"VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR"
    showsPrec Int
p (VkDisplayPlaneAlphaBitmaskKHR VkFlags
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
          (String -> ShowS
showString String
"VkDisplayPlaneAlphaBitmaskKHR " 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 (VkDisplayPlaneAlphaBitmaskKHR a) where
    readPrec :: ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
readPrec
      = ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a))]
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR",
               VkDisplayPlaneAlphaBitmaskKHR a
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDisplayPlaneAlphaBitmaskKHR a
forall (a :: FlagType). VkDisplayPlaneAlphaBitmaskKHR a
VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR),
              (String
"VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR",
               VkDisplayPlaneAlphaBitmaskKHR a
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDisplayPlaneAlphaBitmaskKHR a
forall (a :: FlagType). VkDisplayPlaneAlphaBitmaskKHR a
VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR),
              (String
"VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR",
               VkDisplayPlaneAlphaBitmaskKHR a
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDisplayPlaneAlphaBitmaskKHR a
forall (a :: FlagType). VkDisplayPlaneAlphaBitmaskKHR a
VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR),
              (String
"VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR",
               VkDisplayPlaneAlphaBitmaskKHR a
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDisplayPlaneAlphaBitmaskKHR a
forall (a :: FlagType). VkDisplayPlaneAlphaBitmaskKHR a
VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR)]
             ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkDisplayPlaneAlphaBitmaskKHR") ReadPrec ()
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
-> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR a)
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
                  (VkFlags -> VkDisplayPlaneAlphaBitmaskKHR a
forall (a :: FlagType). VkFlags -> VkDisplayPlaneAlphaBitmaskKHR a
VkDisplayPlaneAlphaBitmaskKHR (VkFlags -> VkDisplayPlaneAlphaBitmaskKHR a)
-> ReadPrec VkFlags -> ReadPrec (VkDisplayPlaneAlphaBitmaskKHR 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_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR ::
        VkDisplayPlaneAlphaBitmaskKHR a

pattern $bVK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR :: forall (a :: FlagType). VkDisplayPlaneAlphaBitmaskKHR a
$mVK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR :: forall {r} {a :: FlagType}.
VkDisplayPlaneAlphaBitmaskKHR a
-> (Void# -> r) -> (Void# -> r) -> r
VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR =
        VkDisplayPlaneAlphaBitmaskKHR 1

-- | bitpos = @1@
pattern VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR ::
        VkDisplayPlaneAlphaBitmaskKHR a

pattern $bVK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR :: forall (a :: FlagType). VkDisplayPlaneAlphaBitmaskKHR a
$mVK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR :: forall {r} {a :: FlagType}.
VkDisplayPlaneAlphaBitmaskKHR a
-> (Void# -> r) -> (Void# -> r) -> r
VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR =
        VkDisplayPlaneAlphaBitmaskKHR 2

-- | bitpos = @2@
pattern VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR ::
        VkDisplayPlaneAlphaBitmaskKHR a

pattern $bVK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR :: forall (a :: FlagType). VkDisplayPlaneAlphaBitmaskKHR a
$mVK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR :: forall {r} {a :: FlagType}.
VkDisplayPlaneAlphaBitmaskKHR a
-> (Void# -> r) -> (Void# -> r) -> r
VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR =
        VkDisplayPlaneAlphaBitmaskKHR 4

-- | bitpos = @3@
pattern VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR ::
        VkDisplayPlaneAlphaBitmaskKHR a

pattern $bVK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR :: forall (a :: FlagType). VkDisplayPlaneAlphaBitmaskKHR a
$mVK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR :: forall {r} {a :: FlagType}.
VkDisplayPlaneAlphaBitmaskKHR a
-> (Void# -> r) -> (Void# -> r) -> r
VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR =
        VkDisplayPlaneAlphaBitmaskKHR 8

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

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

pattern $bVK_DISPLAY_POWER_STATE_OFF_EXT :: VkDisplayPowerStateEXT
$mVK_DISPLAY_POWER_STATE_OFF_EXT :: forall {r}.
VkDisplayPowerStateEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_DISPLAY_POWER_STATE_OFF_EXT = VkDisplayPowerStateEXT 0

pattern VK_DISPLAY_POWER_STATE_SUSPEND_EXT ::
        VkDisplayPowerStateEXT

pattern $bVK_DISPLAY_POWER_STATE_SUSPEND_EXT :: VkDisplayPowerStateEXT
$mVK_DISPLAY_POWER_STATE_SUSPEND_EXT :: forall {r}.
VkDisplayPowerStateEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_DISPLAY_POWER_STATE_SUSPEND_EXT =
        VkDisplayPowerStateEXT 1

pattern VK_DISPLAY_POWER_STATE_ON_EXT :: VkDisplayPowerStateEXT

pattern $bVK_DISPLAY_POWER_STATE_ON_EXT :: VkDisplayPowerStateEXT
$mVK_DISPLAY_POWER_STATE_ON_EXT :: forall {r}.
VkDisplayPowerStateEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_DISPLAY_POWER_STATE_ON_EXT = VkDisplayPowerStateEXT 2