{-# language CPP #-}
-- No documentation found for Chapter "DescriptorBindingFlagBits"
module Vulkan.Core12.Enums.DescriptorBindingFlagBits  ( DescriptorBindingFlags
                                                      , DescriptorBindingFlagBits( DESCRIPTOR_BINDING_UPDATE_AFTER_BIND_BIT
                                                                                 , DESCRIPTOR_BINDING_UPDATE_UNUSED_WHILE_PENDING_BIT
                                                                                 , DESCRIPTOR_BINDING_PARTIALLY_BOUND_BIT
                                                                                 , DESCRIPTOR_BINDING_VARIABLE_DESCRIPTOR_COUNT_BIT
                                                                                 , ..
                                                                                 )
                                                      ) where

import Data.Bits (Bits)
import Data.Bits (FiniteBits)
import Vulkan.Internal.Utils (enumReadPrec)
import Vulkan.Internal.Utils (enumShowsPrec)
import GHC.Show (showString)
import Numeric (showHex)
import Vulkan.Zero (Zero)
import Foreign.Storable (Storable)
import GHC.Read (Read(readPrec))
import GHC.Show (Show(showsPrec))
import Vulkan.Core10.FundamentalTypes (Flags)
type DescriptorBindingFlags = DescriptorBindingFlagBits

-- | VkDescriptorBindingFlagBits - Bitmask specifying descriptor set layout
-- binding properties
--
-- = Description
--
-- Note
--
-- Note that while 'DESCRIPTOR_BINDING_UPDATE_AFTER_BIND_BIT' and
-- 'DESCRIPTOR_BINDING_UPDATE_UNUSED_WHILE_PENDING_BIT' both involve
-- updates to descriptor sets after they are bound,
-- 'DESCRIPTOR_BINDING_UPDATE_UNUSED_WHILE_PENDING_BIT' is a weaker
-- requirement since it is only about descriptors that are not used,
-- whereas 'DESCRIPTOR_BINDING_UPDATE_AFTER_BIND_BIT' requires the
-- implementation to observe updates to descriptors that are used.
--
-- = See Also
--
-- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_EXT_descriptor_indexing VK_EXT_descriptor_indexing>,
-- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_VERSION_1_2 VK_VERSION_1_2>,
-- 'DescriptorBindingFlags'
newtype DescriptorBindingFlagBits = DescriptorBindingFlagBits Flags
  deriving newtype (DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
(DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool)
-> (DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool)
-> Eq DescriptorBindingFlagBits
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
== :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
$c/= :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
/= :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
Eq, Eq DescriptorBindingFlagBits
Eq DescriptorBindingFlagBits =>
(DescriptorBindingFlagBits
 -> DescriptorBindingFlagBits -> Ordering)
-> (DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool)
-> (DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool)
-> (DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool)
-> (DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool)
-> (DescriptorBindingFlagBits
    -> DescriptorBindingFlagBits -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits
    -> DescriptorBindingFlagBits -> DescriptorBindingFlagBits)
-> Ord DescriptorBindingFlagBits
DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Ordering
DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
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
$ccompare :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Ordering
compare :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Ordering
$c< :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
< :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
$c<= :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
<= :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
$c> :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
> :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
$c>= :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
>= :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> Bool
$cmax :: DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
max :: DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
$cmin :: DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
min :: DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
Ord, Ptr DescriptorBindingFlagBits -> IO DescriptorBindingFlagBits
Ptr DescriptorBindingFlagBits
-> Int -> IO DescriptorBindingFlagBits
Ptr DescriptorBindingFlagBits
-> Int -> DescriptorBindingFlagBits -> IO ()
Ptr DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> IO ()
DescriptorBindingFlagBits -> Int
(DescriptorBindingFlagBits -> Int)
-> (DescriptorBindingFlagBits -> Int)
-> (Ptr DescriptorBindingFlagBits
    -> Int -> IO DescriptorBindingFlagBits)
-> (Ptr DescriptorBindingFlagBits
    -> Int -> DescriptorBindingFlagBits -> IO ())
-> (forall b. Ptr b -> Int -> IO DescriptorBindingFlagBits)
-> (forall b. Ptr b -> Int -> DescriptorBindingFlagBits -> IO ())
-> (Ptr DescriptorBindingFlagBits -> IO DescriptorBindingFlagBits)
-> (Ptr DescriptorBindingFlagBits
    -> DescriptorBindingFlagBits -> IO ())
-> Storable DescriptorBindingFlagBits
forall b. Ptr b -> Int -> IO DescriptorBindingFlagBits
forall b. Ptr b -> Int -> DescriptorBindingFlagBits -> 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
$csizeOf :: DescriptorBindingFlagBits -> Int
sizeOf :: DescriptorBindingFlagBits -> Int
$calignment :: DescriptorBindingFlagBits -> Int
alignment :: DescriptorBindingFlagBits -> Int
$cpeekElemOff :: Ptr DescriptorBindingFlagBits
-> Int -> IO DescriptorBindingFlagBits
peekElemOff :: Ptr DescriptorBindingFlagBits
-> Int -> IO DescriptorBindingFlagBits
$cpokeElemOff :: Ptr DescriptorBindingFlagBits
-> Int -> DescriptorBindingFlagBits -> IO ()
pokeElemOff :: Ptr DescriptorBindingFlagBits
-> Int -> DescriptorBindingFlagBits -> IO ()
$cpeekByteOff :: forall b. Ptr b -> Int -> IO DescriptorBindingFlagBits
peekByteOff :: forall b. Ptr b -> Int -> IO DescriptorBindingFlagBits
$cpokeByteOff :: forall b. Ptr b -> Int -> DescriptorBindingFlagBits -> IO ()
pokeByteOff :: forall b. Ptr b -> Int -> DescriptorBindingFlagBits -> IO ()
$cpeek :: Ptr DescriptorBindingFlagBits -> IO DescriptorBindingFlagBits
peek :: Ptr DescriptorBindingFlagBits -> IO DescriptorBindingFlagBits
$cpoke :: Ptr DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> IO ()
poke :: Ptr DescriptorBindingFlagBits -> DescriptorBindingFlagBits -> IO ()
Storable, DescriptorBindingFlagBits
DescriptorBindingFlagBits -> Zero DescriptorBindingFlagBits
forall a. a -> Zero a
$czero :: DescriptorBindingFlagBits
zero :: DescriptorBindingFlagBits
Zero, Eq DescriptorBindingFlagBits
DescriptorBindingFlagBits
Eq DescriptorBindingFlagBits =>
(DescriptorBindingFlagBits
 -> DescriptorBindingFlagBits -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits
    -> DescriptorBindingFlagBits -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits
    -> DescriptorBindingFlagBits -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> DescriptorBindingFlagBits
-> (Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> Bool)
-> (DescriptorBindingFlagBits -> Maybe Int)
-> (DescriptorBindingFlagBits -> Int)
-> (DescriptorBindingFlagBits -> Bool)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits)
-> (DescriptorBindingFlagBits -> Int)
-> Bits DescriptorBindingFlagBits
Int -> DescriptorBindingFlagBits
DescriptorBindingFlagBits -> Bool
DescriptorBindingFlagBits -> Int
DescriptorBindingFlagBits -> Maybe Int
DescriptorBindingFlagBits -> DescriptorBindingFlagBits
DescriptorBindingFlagBits -> Int -> Bool
DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
forall a.
Eq a =>
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> a
-> (Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> Bool)
-> (a -> Maybe Int)
-> (a -> Int)
-> (a -> Bool)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int)
-> Bits a
$c.&. :: DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
.&. :: DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
$c.|. :: DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
.|. :: DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
$cxor :: DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
xor :: DescriptorBindingFlagBits
-> DescriptorBindingFlagBits -> DescriptorBindingFlagBits
$ccomplement :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits
complement :: DescriptorBindingFlagBits -> DescriptorBindingFlagBits
$cshift :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
shift :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$crotate :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
rotate :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$czeroBits :: DescriptorBindingFlagBits
zeroBits :: DescriptorBindingFlagBits
$cbit :: Int -> DescriptorBindingFlagBits
bit :: Int -> DescriptorBindingFlagBits
$csetBit :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
setBit :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$cclearBit :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
clearBit :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$ccomplementBit :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
complementBit :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$ctestBit :: DescriptorBindingFlagBits -> Int -> Bool
testBit :: DescriptorBindingFlagBits -> Int -> Bool
$cbitSizeMaybe :: DescriptorBindingFlagBits -> Maybe Int
bitSizeMaybe :: DescriptorBindingFlagBits -> Maybe Int
$cbitSize :: DescriptorBindingFlagBits -> Int
bitSize :: DescriptorBindingFlagBits -> Int
$cisSigned :: DescriptorBindingFlagBits -> Bool
isSigned :: DescriptorBindingFlagBits -> Bool
$cshiftL :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
shiftL :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$cunsafeShiftL :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
unsafeShiftL :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$cshiftR :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
shiftR :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$cunsafeShiftR :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
unsafeShiftR :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$crotateL :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
rotateL :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$crotateR :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
rotateR :: DescriptorBindingFlagBits -> Int -> DescriptorBindingFlagBits
$cpopCount :: DescriptorBindingFlagBits -> Int
popCount :: DescriptorBindingFlagBits -> Int
Bits, Bits DescriptorBindingFlagBits
Bits DescriptorBindingFlagBits =>
(DescriptorBindingFlagBits -> Int)
-> (DescriptorBindingFlagBits -> Int)
-> (DescriptorBindingFlagBits -> Int)
-> FiniteBits DescriptorBindingFlagBits
DescriptorBindingFlagBits -> Int
forall b.
Bits b =>
(b -> Int) -> (b -> Int) -> (b -> Int) -> FiniteBits b
$cfiniteBitSize :: DescriptorBindingFlagBits -> Int
finiteBitSize :: DescriptorBindingFlagBits -> Int
$ccountLeadingZeros :: DescriptorBindingFlagBits -> Int
countLeadingZeros :: DescriptorBindingFlagBits -> Int
$ccountTrailingZeros :: DescriptorBindingFlagBits -> Int
countTrailingZeros :: DescriptorBindingFlagBits -> Int
FiniteBits)

-- | 'DESCRIPTOR_BINDING_UPDATE_AFTER_BIND_BIT' indicates that if descriptors
-- in this binding are updated between when the descriptor set is bound in
-- a command buffer and when that command buffer is submitted to a queue,
-- then the submission will use the most recently set descriptors for this
-- binding and the updates do not invalidate the command buffer. Descriptor
-- bindings created with this flag are also partially exempt from the
-- external synchronization requirement in
-- 'Vulkan.Extensions.VK_KHR_descriptor_update_template.updateDescriptorSetWithTemplateKHR'
-- and 'Vulkan.Core10.DescriptorSet.updateDescriptorSets'. Multiple
-- descriptors with this flag set /can/ be updated concurrently in
-- different threads, though the same descriptor /must/ not be updated
-- concurrently by two threads. Descriptors with this flag set /can/ be
-- updated concurrently with the set being bound to a command buffer in
-- another thread, but not concurrently with the set being reset or freed.
pattern $bDESCRIPTOR_BINDING_UPDATE_AFTER_BIND_BIT :: DescriptorBindingFlagBits
$mDESCRIPTOR_BINDING_UPDATE_AFTER_BIND_BIT :: forall {r}.
DescriptorBindingFlagBits -> ((# #) -> r) -> ((# #) -> r) -> r
DESCRIPTOR_BINDING_UPDATE_AFTER_BIND_BIT = DescriptorBindingFlagBits 0x00000001

-- | 'DESCRIPTOR_BINDING_UPDATE_UNUSED_WHILE_PENDING_BIT' indicates that
-- descriptors in this binding /can/ be updated after a command buffer has
-- bound this descriptor set, or while a command buffer that uses this
-- descriptor set is pending execution, as long as the descriptors that are
-- updated are not used by those command buffers. Descriptor bindings
-- created with this flag are also partially exempt from the external
-- synchronization requirement in
-- 'Vulkan.Extensions.VK_KHR_descriptor_update_template.updateDescriptorSetWithTemplateKHR'
-- and 'Vulkan.Core10.DescriptorSet.updateDescriptorSets' in the same way
-- as for 'DESCRIPTOR_BINDING_UPDATE_AFTER_BIND_BIT'. If
-- 'DESCRIPTOR_BINDING_PARTIALLY_BOUND_BIT' is also set, then descriptors
-- /can/ be updated as long as they are not dynamically used by any shader
-- invocations. If 'DESCRIPTOR_BINDING_PARTIALLY_BOUND_BIT' is not set,
-- then descriptors /can/ be updated as long as they are not statically
-- used by any shader invocations.
pattern $bDESCRIPTOR_BINDING_UPDATE_UNUSED_WHILE_PENDING_BIT :: DescriptorBindingFlagBits
$mDESCRIPTOR_BINDING_UPDATE_UNUSED_WHILE_PENDING_BIT :: forall {r}.
DescriptorBindingFlagBits -> ((# #) -> r) -> ((# #) -> r) -> r
DESCRIPTOR_BINDING_UPDATE_UNUSED_WHILE_PENDING_BIT = DescriptorBindingFlagBits 0x00000002

-- | 'DESCRIPTOR_BINDING_PARTIALLY_BOUND_BIT' indicates that descriptors in
-- this binding that are not /dynamically used/ need not contain valid
-- descriptors at the time the descriptors are consumed. A descriptor is
-- dynamically used if any shader invocation executes an instruction that
-- performs any memory access using the descriptor. If a descriptor is not
-- dynamically used, any resource referenced by the descriptor is not
-- considered to be referenced during command execution.
pattern $bDESCRIPTOR_BINDING_PARTIALLY_BOUND_BIT :: DescriptorBindingFlagBits
$mDESCRIPTOR_BINDING_PARTIALLY_BOUND_BIT :: forall {r}.
DescriptorBindingFlagBits -> ((# #) -> r) -> ((# #) -> r) -> r
DESCRIPTOR_BINDING_PARTIALLY_BOUND_BIT = DescriptorBindingFlagBits 0x00000004

-- | 'DESCRIPTOR_BINDING_VARIABLE_DESCRIPTOR_COUNT_BIT' indicates that this
-- is a /variable-sized descriptor binding/ whose size will be specified
-- when a descriptor set is allocated using this layout. The value of
-- @descriptorCount@ is treated as an upper bound on the size of the
-- binding. This /must/ only be used for the last binding in the descriptor
-- set layout (i.e. the binding with the largest value of @binding@). For
-- the purposes of counting against limits such as @maxDescriptorSet@* and
-- @maxPerStageDescriptor@*, the full value of @descriptorCount@ is
-- counted, except for descriptor bindings with a descriptor type of
-- 'Vulkan.Core10.Enums.DescriptorType.DESCRIPTOR_TYPE_INLINE_UNIFORM_BLOCK',
-- when
-- 'Vulkan.Core10.DescriptorSet.DescriptorSetLayoutCreateInfo'::@flags@
-- does not contain
-- 'Vulkan.Core10.Enums.DescriptorSetLayoutCreateFlagBits.DESCRIPTOR_SET_LAYOUT_CREATE_DESCRIPTOR_BUFFER_BIT_EXT'.
-- In this case, @descriptorCount@ specifies the upper bound on the byte
-- size of the binding; thus it counts against the
-- <https://registry.khronos.org/vulkan/specs/1.3-extensions/html/vkspec.html#limits-maxInlineUniformBlockSize maxInlineUniformBlockSize>
-- and
-- <https://registry.khronos.org/vulkan/specs/1.3-extensions/html/vkspec.html#limits-maxInlineUniformTotalSize maxInlineUniformTotalSize>
-- limits instead.
pattern $bDESCRIPTOR_BINDING_VARIABLE_DESCRIPTOR_COUNT_BIT :: DescriptorBindingFlagBits
$mDESCRIPTOR_BINDING_VARIABLE_DESCRIPTOR_COUNT_BIT :: forall {r}.
DescriptorBindingFlagBits -> ((# #) -> r) -> ((# #) -> r) -> r
DESCRIPTOR_BINDING_VARIABLE_DESCRIPTOR_COUNT_BIT = DescriptorBindingFlagBits 0x00000008

conNameDescriptorBindingFlagBits :: String
conNameDescriptorBindingFlagBits :: String
conNameDescriptorBindingFlagBits = String
"DescriptorBindingFlagBits"

enumPrefixDescriptorBindingFlagBits :: String
enumPrefixDescriptorBindingFlagBits :: String
enumPrefixDescriptorBindingFlagBits = String
"DESCRIPTOR_BINDING_"

showTableDescriptorBindingFlagBits :: [(DescriptorBindingFlagBits, String)]
showTableDescriptorBindingFlagBits :: [(DescriptorBindingFlagBits, String)]
showTableDescriptorBindingFlagBits =
  [
    ( DescriptorBindingFlagBits
DESCRIPTOR_BINDING_UPDATE_AFTER_BIND_BIT
    , String
"UPDATE_AFTER_BIND_BIT"
    )
  ,
    ( DescriptorBindingFlagBits
DESCRIPTOR_BINDING_UPDATE_UNUSED_WHILE_PENDING_BIT
    , String
"UPDATE_UNUSED_WHILE_PENDING_BIT"
    )
  ,
    ( DescriptorBindingFlagBits
DESCRIPTOR_BINDING_PARTIALLY_BOUND_BIT
    , String
"PARTIALLY_BOUND_BIT"
    )
  ,
    ( DescriptorBindingFlagBits
DESCRIPTOR_BINDING_VARIABLE_DESCRIPTOR_COUNT_BIT
    , String
"VARIABLE_DESCRIPTOR_COUNT_BIT"
    )
  ]

instance Show DescriptorBindingFlagBits where
  showsPrec :: Int -> DescriptorBindingFlagBits -> ShowS
showsPrec =
    String
-> [(DescriptorBindingFlagBits, String)]
-> String
-> (DescriptorBindingFlagBits -> Flags)
-> (Flags -> ShowS)
-> Int
-> DescriptorBindingFlagBits
-> ShowS
forall a i.
Eq a =>
String
-> [(a, String)]
-> String
-> (a -> i)
-> (i -> ShowS)
-> Int
-> a
-> ShowS
enumShowsPrec
      String
enumPrefixDescriptorBindingFlagBits
      [(DescriptorBindingFlagBits, String)]
showTableDescriptorBindingFlagBits
      String
conNameDescriptorBindingFlagBits
      (\(DescriptorBindingFlagBits Flags
x) -> Flags
x)
      (\Flags
x -> String -> ShowS
showString String
"0x" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Flags -> ShowS
forall a. Integral a => a -> ShowS
showHex Flags
x)

instance Read DescriptorBindingFlagBits where
  readPrec :: ReadPrec DescriptorBindingFlagBits
readPrec =
    String
-> [(DescriptorBindingFlagBits, String)]
-> String
-> (Flags -> DescriptorBindingFlagBits)
-> ReadPrec DescriptorBindingFlagBits
forall i a.
Read i =>
String -> [(a, String)] -> String -> (i -> a) -> ReadPrec a
enumReadPrec
      String
enumPrefixDescriptorBindingFlagBits
      [(DescriptorBindingFlagBits, String)]
showTableDescriptorBindingFlagBits
      String
conNameDescriptorBindingFlagBits
      Flags -> DescriptorBindingFlagBits
DescriptorBindingFlagBits