packages feed

vulkan-3.13: src/Vulkan/Core10/Enums/PipelineInputAssemblyStateCreateFlags.hs

{-# language CPP #-}
-- No documentation found for Chapter "PipelineInputAssemblyStateCreateFlags"
module Vulkan.Core10.Enums.PipelineInputAssemblyStateCreateFlags  (PipelineInputAssemblyStateCreateFlags(..)) where

import Vulkan.Internal.Utils (enumReadPrec)
import Vulkan.Internal.Utils (enumShowsPrec)
import GHC.Show (showString)
import Numeric (showHex)
import Vulkan.Zero (Zero)
import Data.Bits (Bits)
import Data.Bits (FiniteBits)
import Foreign.Storable (Storable)
import GHC.Read (Read(readPrec))
import GHC.Show (Show(showsPrec))
import Vulkan.Core10.FundamentalTypes (Flags)
-- | VkPipelineInputAssemblyStateCreateFlags - Reserved for future use
--
-- = Description
--
-- 'PipelineInputAssemblyStateCreateFlags' is a bitmask type for setting a
-- mask, but is currently reserved for future use.
--
-- = See Also
--
-- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_VERSION_1_0 VK_VERSION_1_0>,
-- 'Vulkan.Core10.Pipeline.PipelineInputAssemblyStateCreateInfo'
newtype PipelineInputAssemblyStateCreateFlags = PipelineInputAssemblyStateCreateFlags Flags
  deriving newtype (Eq, Ord, Storable, Zero, Bits, FiniteBits)



conNamePipelineInputAssemblyStateCreateFlags :: String
conNamePipelineInputAssemblyStateCreateFlags = "PipelineInputAssemblyStateCreateFlags"

enumPrefixPipelineInputAssemblyStateCreateFlags :: String
enumPrefixPipelineInputAssemblyStateCreateFlags = ""

showTablePipelineInputAssemblyStateCreateFlags :: [(PipelineInputAssemblyStateCreateFlags, String)]
showTablePipelineInputAssemblyStateCreateFlags = []

instance Show PipelineInputAssemblyStateCreateFlags where
  showsPrec = enumShowsPrec enumPrefixPipelineInputAssemblyStateCreateFlags
                            showTablePipelineInputAssemblyStateCreateFlags
                            conNamePipelineInputAssemblyStateCreateFlags
                            (\(PipelineInputAssemblyStateCreateFlags x) -> x)
                            (\x -> showString "0x" . showHex x)

instance Read PipelineInputAssemblyStateCreateFlags where
  readPrec = enumReadPrec enumPrefixPipelineInputAssemblyStateCreateFlags
                          showTablePipelineInputAssemblyStateCreateFlags
                          conNamePipelineInputAssemblyStateCreateFlags
                          PipelineInputAssemblyStateCreateFlags