{-# OPTIONS_HADDOCK ignore-exports#-}
{-# LANGUAGE DataKinds                  #-}
{-# LANGUAGE DeriveDataTypeable         #-}
{-# LANGUAGE DeriveGeneric              #-}
{-# LANGUAGE FlexibleInstances          #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE KindSignatures             #-}
{-# LANGUAGE PatternSynonyms            #-}
{-# LANGUAGE StandaloneDeriving         #-}
{-# LANGUAGE Strict                     #-}
{-# LANGUAGE TypeSynonymInstances       #-}
module Graphics.Vulkan.Types.Enum.CompositeAlphaFlagsKHR
       (VkCompositeAlphaBitmaskKHR(VkCompositeAlphaBitmaskKHR,
                                   VkCompositeAlphaFlagsKHR, VkCompositeAlphaFlagBitsKHR,
                                   VK_COMPOSITE_ALPHA_OPAQUE_BIT_KHR,
                                   VK_COMPOSITE_ALPHA_PRE_MULTIPLIED_BIT_KHR,
                                   VK_COMPOSITE_ALPHA_POST_MULTIPLIED_BIT_KHR,
                                   VK_COMPOSITE_ALPHA_INHERIT_BIT_KHR),
        VkCompositeAlphaFlagsKHR, VkCompositeAlphaFlagBitsKHR)
       where
import           Data.Bits                       (Bits, FiniteBits)
import           Data.Data                       (Data)
import           Foreign.Storable                (Storable)
import           GHC.Generics                    (Generic)
import           GHC.Read                        (choose, expectP)
import           Graphics.Vulkan.Marshal         (FlagBit, FlagMask, FlagType)
import           Graphics.Vulkan.Types.BaseTypes (VkFlags (..))
import           Text.ParserCombinators.ReadPrec (prec, step, (+++))
import           Text.Read                       (Read (..), parens)
import           Text.Read.Lex                   (Lexeme (..))

newtype VkCompositeAlphaBitmaskKHR (a ::
                                      FlagType) = VkCompositeAlphaBitmaskKHR VkFlags
                                                    deriving (VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
(VkCompositeAlphaBitmaskKHR a
 -> VkCompositeAlphaBitmaskKHR a -> Bool)
-> (VkCompositeAlphaBitmaskKHR a
    -> VkCompositeAlphaBitmaskKHR a -> Bool)
-> Eq (VkCompositeAlphaBitmaskKHR a)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
/= :: VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
$c/= :: forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
== :: VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
$c== :: forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
Eq, Eq (VkCompositeAlphaBitmaskKHR a)
Eq (VkCompositeAlphaBitmaskKHR a)
-> (VkCompositeAlphaBitmaskKHR a
    -> VkCompositeAlphaBitmaskKHR a -> Ordering)
-> (VkCompositeAlphaBitmaskKHR a
    -> VkCompositeAlphaBitmaskKHR a -> Bool)
-> (VkCompositeAlphaBitmaskKHR a
    -> VkCompositeAlphaBitmaskKHR a -> Bool)
-> (VkCompositeAlphaBitmaskKHR a
    -> VkCompositeAlphaBitmaskKHR a -> Bool)
-> (VkCompositeAlphaBitmaskKHR a
    -> VkCompositeAlphaBitmaskKHR a -> Bool)
-> (VkCompositeAlphaBitmaskKHR a
    -> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a)
-> (VkCompositeAlphaBitmaskKHR a
    -> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a)
-> Ord (VkCompositeAlphaBitmaskKHR a)
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Ordering
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR 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 (VkCompositeAlphaBitmaskKHR a)
forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Ordering
forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a
min :: VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a
$cmin :: forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a
max :: VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a
$cmax :: forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a
>= :: VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
$c>= :: forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
> :: VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
$c> :: forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
<= :: VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
$c<= :: forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
< :: VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
$c< :: forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Bool
compare :: VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Ordering
$ccompare :: forall (a :: FlagType).
VkCompositeAlphaBitmaskKHR a
-> VkCompositeAlphaBitmaskKHR a -> Ordering
$cp1Ord :: forall (a :: FlagType). Eq (VkCompositeAlphaBitmaskKHR a)
Ord, Ptr b -> Int -> IO (VkCompositeAlphaBitmaskKHR a)
Ptr b -> Int -> VkCompositeAlphaBitmaskKHR a -> IO ()
Ptr (VkCompositeAlphaBitmaskKHR a)
-> IO (VkCompositeAlphaBitmaskKHR a)
Ptr (VkCompositeAlphaBitmaskKHR a)
-> Int -> IO (VkCompositeAlphaBitmaskKHR a)
Ptr (VkCompositeAlphaBitmaskKHR a)
-> Int -> VkCompositeAlphaBitmaskKHR a -> IO ()
Ptr (VkCompositeAlphaBitmaskKHR a)
-> VkCompositeAlphaBitmaskKHR a -> IO ()
VkCompositeAlphaBitmaskKHR a -> Int
(VkCompositeAlphaBitmaskKHR a -> Int)
-> (VkCompositeAlphaBitmaskKHR a -> Int)
-> (Ptr (VkCompositeAlphaBitmaskKHR a)
    -> Int -> IO (VkCompositeAlphaBitmaskKHR a))
-> (Ptr (VkCompositeAlphaBitmaskKHR a)
    -> Int -> VkCompositeAlphaBitmaskKHR a -> IO ())
-> (forall b. Ptr b -> Int -> IO (VkCompositeAlphaBitmaskKHR a))
-> (forall b.
    Ptr b -> Int -> VkCompositeAlphaBitmaskKHR a -> IO ())
-> (Ptr (VkCompositeAlphaBitmaskKHR a)
    -> IO (VkCompositeAlphaBitmaskKHR a))
-> (Ptr (VkCompositeAlphaBitmaskKHR a)
    -> VkCompositeAlphaBitmaskKHR a -> IO ())
-> Storable (VkCompositeAlphaBitmaskKHR a)
forall b. Ptr b -> Int -> IO (VkCompositeAlphaBitmaskKHR a)
forall b. Ptr b -> Int -> VkCompositeAlphaBitmaskKHR 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 (VkCompositeAlphaBitmaskKHR a)
-> IO (VkCompositeAlphaBitmaskKHR a)
forall (a :: FlagType).
Ptr (VkCompositeAlphaBitmaskKHR a)
-> Int -> IO (VkCompositeAlphaBitmaskKHR a)
forall (a :: FlagType).
Ptr (VkCompositeAlphaBitmaskKHR a)
-> Int -> VkCompositeAlphaBitmaskKHR a -> IO ()
forall (a :: FlagType).
Ptr (VkCompositeAlphaBitmaskKHR a)
-> VkCompositeAlphaBitmaskKHR a -> IO ()
forall (a :: FlagType). VkCompositeAlphaBitmaskKHR a -> Int
forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkCompositeAlphaBitmaskKHR a)
forall (a :: FlagType) b.
Ptr b -> Int -> VkCompositeAlphaBitmaskKHR a -> IO ()
poke :: Ptr (VkCompositeAlphaBitmaskKHR a)
-> VkCompositeAlphaBitmaskKHR a -> IO ()
$cpoke :: forall (a :: FlagType).
Ptr (VkCompositeAlphaBitmaskKHR a)
-> VkCompositeAlphaBitmaskKHR a -> IO ()
peek :: Ptr (VkCompositeAlphaBitmaskKHR a)
-> IO (VkCompositeAlphaBitmaskKHR a)
$cpeek :: forall (a :: FlagType).
Ptr (VkCompositeAlphaBitmaskKHR a)
-> IO (VkCompositeAlphaBitmaskKHR a)
pokeByteOff :: Ptr b -> Int -> VkCompositeAlphaBitmaskKHR a -> IO ()
$cpokeByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> VkCompositeAlphaBitmaskKHR a -> IO ()
peekByteOff :: Ptr b -> Int -> IO (VkCompositeAlphaBitmaskKHR a)
$cpeekByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkCompositeAlphaBitmaskKHR a)
pokeElemOff :: Ptr (VkCompositeAlphaBitmaskKHR a)
-> Int -> VkCompositeAlphaBitmaskKHR a -> IO ()
$cpokeElemOff :: forall (a :: FlagType).
Ptr (VkCompositeAlphaBitmaskKHR a)
-> Int -> VkCompositeAlphaBitmaskKHR a -> IO ()
peekElemOff :: Ptr (VkCompositeAlphaBitmaskKHR a)
-> Int -> IO (VkCompositeAlphaBitmaskKHR a)
$cpeekElemOff :: forall (a :: FlagType).
Ptr (VkCompositeAlphaBitmaskKHR a)
-> Int -> IO (VkCompositeAlphaBitmaskKHR a)
alignment :: VkCompositeAlphaBitmaskKHR a -> Int
$calignment :: forall (a :: FlagType). VkCompositeAlphaBitmaskKHR a -> Int
sizeOf :: VkCompositeAlphaBitmaskKHR a -> Int
$csizeOf :: forall (a :: FlagType). VkCompositeAlphaBitmaskKHR a -> Int
Storable, Typeable (VkCompositeAlphaBitmaskKHR a)
DataType
Constr
Typeable (VkCompositeAlphaBitmaskKHR a)
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g)
    -> VkCompositeAlphaBitmaskKHR a
    -> c (VkCompositeAlphaBitmaskKHR a))
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r)
    -> Constr
    -> c (VkCompositeAlphaBitmaskKHR a))
-> (VkCompositeAlphaBitmaskKHR a -> Constr)
-> (VkCompositeAlphaBitmaskKHR a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d))
    -> Maybe (c (VkCompositeAlphaBitmaskKHR a)))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c (VkCompositeAlphaBitmaskKHR a)))
-> ((forall b. Data b => b -> b)
    -> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a)
-> (forall r r'.
    (r -> r' -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> VkCompositeAlphaBitmaskKHR a
    -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r
    -> (forall d. Data d => d -> r')
    -> VkCompositeAlphaBitmaskKHR a
    -> r)
-> (forall u.
    (forall d. Data d => d -> u)
    -> VkCompositeAlphaBitmaskKHR a -> [u])
-> (forall u.
    Int
    -> (forall d. Data d => d -> u)
    -> VkCompositeAlphaBitmaskKHR a
    -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d)
    -> VkCompositeAlphaBitmaskKHR a
    -> m (VkCompositeAlphaBitmaskKHR a))
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> VkCompositeAlphaBitmaskKHR a
    -> m (VkCompositeAlphaBitmaskKHR a))
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d)
    -> VkCompositeAlphaBitmaskKHR a
    -> m (VkCompositeAlphaBitmaskKHR a))
-> Data (VkCompositeAlphaBitmaskKHR a)
VkCompositeAlphaBitmaskKHR a -> DataType
VkCompositeAlphaBitmaskKHR a -> Constr
(forall b. Data b => b -> b)
-> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> VkCompositeAlphaBitmaskKHR a
-> c (VkCompositeAlphaBitmaskKHR a)
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c (VkCompositeAlphaBitmaskKHR a)
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)
-> VkCompositeAlphaBitmaskKHR a
-> u
forall u.
(forall d. Data d => d -> u) -> VkCompositeAlphaBitmaskKHR a -> [u]
forall r r'.
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> VkCompositeAlphaBitmaskKHR a
-> r
forall r r'.
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> VkCompositeAlphaBitmaskKHR a
-> r
forall (a :: FlagType).
Typeable a =>
Typeable (VkCompositeAlphaBitmaskKHR a)
forall (a :: FlagType).
Typeable a =>
VkCompositeAlphaBitmaskKHR a -> DataType
forall (a :: FlagType).
Typeable a =>
VkCompositeAlphaBitmaskKHR a -> Constr
forall (a :: FlagType).
Typeable a =>
(forall b. Data b => b -> b)
-> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a
forall (a :: FlagType) u.
Typeable a =>
Int
-> (forall d. Data d => d -> u)
-> VkCompositeAlphaBitmaskKHR a
-> u
forall (a :: FlagType) u.
Typeable a =>
(forall d. Data d => d -> u) -> VkCompositeAlphaBitmaskKHR a -> [u]
forall (a :: FlagType) r r'.
Typeable a =>
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> VkCompositeAlphaBitmaskKHR a
-> r
forall (a :: FlagType) r r'.
Typeable a =>
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> VkCompositeAlphaBitmaskKHR a
-> r
forall (a :: FlagType) (m :: * -> *).
(Typeable a, Monad m) =>
(forall d. Data d => d -> m d)
-> VkCompositeAlphaBitmaskKHR a -> m (VkCompositeAlphaBitmaskKHR a)
forall (a :: FlagType) (m :: * -> *).
(Typeable a, MonadPlus m) =>
(forall d. Data d => d -> m d)
-> VkCompositeAlphaBitmaskKHR a -> m (VkCompositeAlphaBitmaskKHR a)
forall (a :: FlagType) (c :: * -> *).
Typeable a =>
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c (VkCompositeAlphaBitmaskKHR a)
forall (a :: FlagType) (c :: * -> *).
Typeable a =>
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> VkCompositeAlphaBitmaskKHR a
-> c (VkCompositeAlphaBitmaskKHR a)
forall (a :: FlagType) (t :: * -> *) (c :: * -> *).
(Typeable a, Typeable t) =>
(forall d. Data d => c (t d))
-> Maybe (c (VkCompositeAlphaBitmaskKHR a))
forall (a :: FlagType) (t :: * -> * -> *) (c :: * -> *).
(Typeable a, Typeable t) =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c (VkCompositeAlphaBitmaskKHR a))
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d)
-> VkCompositeAlphaBitmaskKHR a -> m (VkCompositeAlphaBitmaskKHR a)
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d)
-> VkCompositeAlphaBitmaskKHR a -> m (VkCompositeAlphaBitmaskKHR a)
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c (VkCompositeAlphaBitmaskKHR a)
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> VkCompositeAlphaBitmaskKHR a
-> c (VkCompositeAlphaBitmaskKHR a)
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d))
-> Maybe (c (VkCompositeAlphaBitmaskKHR a))
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c (VkCompositeAlphaBitmaskKHR a))
$cVkCompositeAlphaBitmaskKHR :: Constr
$tVkCompositeAlphaBitmaskKHR :: DataType
gmapMo :: (forall d. Data d => d -> m d)
-> VkCompositeAlphaBitmaskKHR a -> m (VkCompositeAlphaBitmaskKHR a)
$cgmapMo :: forall (a :: FlagType) (m :: * -> *).
(Typeable a, MonadPlus m) =>
(forall d. Data d => d -> m d)
-> VkCompositeAlphaBitmaskKHR a -> m (VkCompositeAlphaBitmaskKHR a)
gmapMp :: (forall d. Data d => d -> m d)
-> VkCompositeAlphaBitmaskKHR a -> m (VkCompositeAlphaBitmaskKHR a)
$cgmapMp :: forall (a :: FlagType) (m :: * -> *).
(Typeable a, MonadPlus m) =>
(forall d. Data d => d -> m d)
-> VkCompositeAlphaBitmaskKHR a -> m (VkCompositeAlphaBitmaskKHR a)
gmapM :: (forall d. Data d => d -> m d)
-> VkCompositeAlphaBitmaskKHR a -> m (VkCompositeAlphaBitmaskKHR a)
$cgmapM :: forall (a :: FlagType) (m :: * -> *).
(Typeable a, Monad m) =>
(forall d. Data d => d -> m d)
-> VkCompositeAlphaBitmaskKHR a -> m (VkCompositeAlphaBitmaskKHR a)
gmapQi :: Int
-> (forall d. Data d => d -> u)
-> VkCompositeAlphaBitmaskKHR a
-> u
$cgmapQi :: forall (a :: FlagType) u.
Typeable a =>
Int
-> (forall d. Data d => d -> u)
-> VkCompositeAlphaBitmaskKHR a
-> u
gmapQ :: (forall d. Data d => d -> u) -> VkCompositeAlphaBitmaskKHR a -> [u]
$cgmapQ :: forall (a :: FlagType) u.
Typeable a =>
(forall d. Data d => d -> u) -> VkCompositeAlphaBitmaskKHR a -> [u]
gmapQr :: (r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> VkCompositeAlphaBitmaskKHR a
-> r
$cgmapQr :: forall (a :: FlagType) r r'.
Typeable a =>
(r' -> r -> r)
-> r
-> (forall d. Data d => d -> r')
-> VkCompositeAlphaBitmaskKHR a
-> r
gmapQl :: (r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> VkCompositeAlphaBitmaskKHR a
-> r
$cgmapQl :: forall (a :: FlagType) r r'.
Typeable a =>
(r -> r' -> r)
-> r
-> (forall d. Data d => d -> r')
-> VkCompositeAlphaBitmaskKHR a
-> r
gmapT :: (forall b. Data b => b -> b)
-> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a
$cgmapT :: forall (a :: FlagType).
Typeable a =>
(forall b. Data b => b -> b)
-> VkCompositeAlphaBitmaskKHR a -> VkCompositeAlphaBitmaskKHR a
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c (VkCompositeAlphaBitmaskKHR a))
$cdataCast2 :: forall (a :: FlagType) (t :: * -> * -> *) (c :: * -> *).
(Typeable a, Typeable t) =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c (VkCompositeAlphaBitmaskKHR a))
dataCast1 :: (forall d. Data d => c (t d))
-> Maybe (c (VkCompositeAlphaBitmaskKHR a))
$cdataCast1 :: forall (a :: FlagType) (t :: * -> *) (c :: * -> *).
(Typeable a, Typeable t) =>
(forall d. Data d => c (t d))
-> Maybe (c (VkCompositeAlphaBitmaskKHR a))
dataTypeOf :: VkCompositeAlphaBitmaskKHR a -> DataType
$cdataTypeOf :: forall (a :: FlagType).
Typeable a =>
VkCompositeAlphaBitmaskKHR a -> DataType
toConstr :: VkCompositeAlphaBitmaskKHR a -> Constr
$ctoConstr :: forall (a :: FlagType).
Typeable a =>
VkCompositeAlphaBitmaskKHR a -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c (VkCompositeAlphaBitmaskKHR a)
$cgunfold :: forall (a :: FlagType) (c :: * -> *).
Typeable a =>
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r)
-> Constr
-> c (VkCompositeAlphaBitmaskKHR a)
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> VkCompositeAlphaBitmaskKHR a
-> c (VkCompositeAlphaBitmaskKHR a)
$cgfoldl :: forall (a :: FlagType) (c :: * -> *).
Typeable a =>
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g)
-> VkCompositeAlphaBitmaskKHR a
-> c (VkCompositeAlphaBitmaskKHR a)
$cp1Data :: forall (a :: FlagType).
Typeable a =>
Typeable (VkCompositeAlphaBitmaskKHR a)
Data, (forall x.
 VkCompositeAlphaBitmaskKHR a
 -> Rep (VkCompositeAlphaBitmaskKHR a) x)
-> (forall x.
    Rep (VkCompositeAlphaBitmaskKHR a) x
    -> VkCompositeAlphaBitmaskKHR a)
-> Generic (VkCompositeAlphaBitmaskKHR a)
forall x.
Rep (VkCompositeAlphaBitmaskKHR a) x
-> VkCompositeAlphaBitmaskKHR a
forall x.
VkCompositeAlphaBitmaskKHR a
-> Rep (VkCompositeAlphaBitmaskKHR a) x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
forall (a :: FlagType) x.
Rep (VkCompositeAlphaBitmaskKHR a) x
-> VkCompositeAlphaBitmaskKHR a
forall (a :: FlagType) x.
VkCompositeAlphaBitmaskKHR a
-> Rep (VkCompositeAlphaBitmaskKHR a) x
$cto :: forall (a :: FlagType) x.
Rep (VkCompositeAlphaBitmaskKHR a) x
-> VkCompositeAlphaBitmaskKHR a
$cfrom :: forall (a :: FlagType) x.
VkCompositeAlphaBitmaskKHR a
-> Rep (VkCompositeAlphaBitmaskKHR a) x
Generic)

type VkCompositeAlphaFlagsKHR = VkCompositeAlphaBitmaskKHR FlagMask

type VkCompositeAlphaFlagBitsKHR =
     VkCompositeAlphaBitmaskKHR FlagBit

pattern VkCompositeAlphaFlagBitsKHR ::
        VkFlags -> VkCompositeAlphaBitmaskKHR FlagBit

pattern $bVkCompositeAlphaFlagBitsKHR :: VkFlags -> VkCompositeAlphaBitmaskKHR FlagBit
$mVkCompositeAlphaFlagBitsKHR :: forall r.
VkCompositeAlphaBitmaskKHR FlagBit
-> (VkFlags -> r) -> (Void# -> r) -> r
VkCompositeAlphaFlagBitsKHR n =
        VkCompositeAlphaBitmaskKHR n

pattern VkCompositeAlphaFlagsKHR ::
        VkFlags -> VkCompositeAlphaBitmaskKHR FlagMask

pattern $bVkCompositeAlphaFlagsKHR :: VkFlags -> VkCompositeAlphaBitmaskKHR FlagMask
$mVkCompositeAlphaFlagsKHR :: forall r.
VkCompositeAlphaBitmaskKHR FlagMask
-> (VkFlags -> r) -> (Void# -> r) -> r
VkCompositeAlphaFlagsKHR n = VkCompositeAlphaBitmaskKHR n

deriving instance Bits (VkCompositeAlphaBitmaskKHR FlagMask)

deriving instance FiniteBits (VkCompositeAlphaBitmaskKHR FlagMask)

deriving instance Integral (VkCompositeAlphaBitmaskKHR FlagMask)

deriving instance Num (VkCompositeAlphaBitmaskKHR FlagMask)

deriving instance Bounded (VkCompositeAlphaBitmaskKHR FlagMask)

deriving instance Enum (VkCompositeAlphaBitmaskKHR FlagMask)

deriving instance Real (VkCompositeAlphaBitmaskKHR FlagMask)

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

pattern $bVK_COMPOSITE_ALPHA_OPAQUE_BIT_KHR :: VkCompositeAlphaBitmaskKHR a
$mVK_COMPOSITE_ALPHA_OPAQUE_BIT_KHR :: forall r (a :: FlagType).
VkCompositeAlphaBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPOSITE_ALPHA_OPAQUE_BIT_KHR =
        VkCompositeAlphaBitmaskKHR 1

-- | bitpos = @1@
pattern VK_COMPOSITE_ALPHA_PRE_MULTIPLIED_BIT_KHR ::
        VkCompositeAlphaBitmaskKHR a

pattern $bVK_COMPOSITE_ALPHA_PRE_MULTIPLIED_BIT_KHR :: VkCompositeAlphaBitmaskKHR a
$mVK_COMPOSITE_ALPHA_PRE_MULTIPLIED_BIT_KHR :: forall r (a :: FlagType).
VkCompositeAlphaBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPOSITE_ALPHA_PRE_MULTIPLIED_BIT_KHR =
        VkCompositeAlphaBitmaskKHR 2

-- | bitpos = @2@
pattern VK_COMPOSITE_ALPHA_POST_MULTIPLIED_BIT_KHR ::
        VkCompositeAlphaBitmaskKHR a

pattern $bVK_COMPOSITE_ALPHA_POST_MULTIPLIED_BIT_KHR :: VkCompositeAlphaBitmaskKHR a
$mVK_COMPOSITE_ALPHA_POST_MULTIPLIED_BIT_KHR :: forall r (a :: FlagType).
VkCompositeAlphaBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPOSITE_ALPHA_POST_MULTIPLIED_BIT_KHR =
        VkCompositeAlphaBitmaskKHR 4

-- | bitpos = @3@
pattern VK_COMPOSITE_ALPHA_INHERIT_BIT_KHR ::
        VkCompositeAlphaBitmaskKHR a

pattern $bVK_COMPOSITE_ALPHA_INHERIT_BIT_KHR :: VkCompositeAlphaBitmaskKHR a
$mVK_COMPOSITE_ALPHA_INHERIT_BIT_KHR :: forall r (a :: FlagType).
VkCompositeAlphaBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPOSITE_ALPHA_INHERIT_BIT_KHR =
        VkCompositeAlphaBitmaskKHR 8