{-# 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.PrivateDataSlotCreateFlagsEXT (VkPrivateDataSlotCreateBitmaskEXT(VkPrivateDataSlotCreateBitmaskEXT, VkPrivateDataSlotCreateFlagsEXT, VkPrivateDataSlotCreateFlagBitsEXT), VkPrivateDataSlotCreateFlagsEXT, VkPrivateDataSlotCreateFlagBitsEXT) where import Data.Bits (Bits, FiniteBits) import Foreign.Storable (Storable) 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 VkPrivateDataSlotCreateBitmaskEXT (a :: FlagType) = VkPrivateDataSlotCreateBitmaskEXT VkFlags deriving (VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool (VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool) -> (VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool) -> Eq (VkPrivateDataSlotCreateBitmaskEXT a) forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool /= :: VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool $c/= :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool == :: VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool $c== :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool Eq, Eq (VkPrivateDataSlotCreateBitmaskEXT a) Eq (VkPrivateDataSlotCreateBitmaskEXT a) -> (VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Ordering) -> (VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool) -> (VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool) -> (VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool) -> (VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool) -> (VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a) -> (VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a) -> Ord (VkPrivateDataSlotCreateBitmaskEXT a) VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Ordering VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT 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 (VkPrivateDataSlotCreateBitmaskEXT a) forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Ordering forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a min :: VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a $cmin :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a max :: VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a $cmax :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a >= :: VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool $c>= :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool > :: VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool $c> :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool <= :: VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool $c<= :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool < :: VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool $c< :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Bool compare :: VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Ordering $ccompare :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> VkPrivateDataSlotCreateBitmaskEXT a -> Ordering Ord, Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> IO (VkPrivateDataSlotCreateBitmaskEXT a) Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> Int -> IO (VkPrivateDataSlotCreateBitmaskEXT a) Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> Int -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () VkPrivateDataSlotCreateBitmaskEXT a -> Int (VkPrivateDataSlotCreateBitmaskEXT a -> Int) -> (VkPrivateDataSlotCreateBitmaskEXT a -> Int) -> (Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> Int -> IO (VkPrivateDataSlotCreateBitmaskEXT a)) -> (Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> Int -> VkPrivateDataSlotCreateBitmaskEXT a -> IO ()) -> (forall b. Ptr b -> Int -> IO (VkPrivateDataSlotCreateBitmaskEXT a)) -> (forall b. Ptr b -> Int -> VkPrivateDataSlotCreateBitmaskEXT a -> IO ()) -> (Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> IO (VkPrivateDataSlotCreateBitmaskEXT a)) -> (Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> VkPrivateDataSlotCreateBitmaskEXT a -> IO ()) -> Storable (VkPrivateDataSlotCreateBitmaskEXT a) forall b. Ptr b -> Int -> IO (VkPrivateDataSlotCreateBitmaskEXT a) forall b. Ptr b -> Int -> VkPrivateDataSlotCreateBitmaskEXT 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 (VkPrivateDataSlotCreateBitmaskEXT a) -> IO (VkPrivateDataSlotCreateBitmaskEXT a) forall (a :: FlagType). Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> Int -> IO (VkPrivateDataSlotCreateBitmaskEXT a) forall (a :: FlagType). Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> Int -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () forall (a :: FlagType). Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> Int forall (a :: FlagType) b. Ptr b -> Int -> IO (VkPrivateDataSlotCreateBitmaskEXT a) forall (a :: FlagType) b. Ptr b -> Int -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () poke :: Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () $cpoke :: forall (a :: FlagType). Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () peek :: Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> IO (VkPrivateDataSlotCreateBitmaskEXT a) $cpeek :: forall (a :: FlagType). Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> IO (VkPrivateDataSlotCreateBitmaskEXT a) pokeByteOff :: forall b. Ptr b -> Int -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () $cpokeByteOff :: forall (a :: FlagType) b. Ptr b -> Int -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () peekByteOff :: forall b. Ptr b -> Int -> IO (VkPrivateDataSlotCreateBitmaskEXT a) $cpeekByteOff :: forall (a :: FlagType) b. Ptr b -> Int -> IO (VkPrivateDataSlotCreateBitmaskEXT a) pokeElemOff :: Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> Int -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () $cpokeElemOff :: forall (a :: FlagType). Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> Int -> VkPrivateDataSlotCreateBitmaskEXT a -> IO () peekElemOff :: Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> Int -> IO (VkPrivateDataSlotCreateBitmaskEXT a) $cpeekElemOff :: forall (a :: FlagType). Ptr (VkPrivateDataSlotCreateBitmaskEXT a) -> Int -> IO (VkPrivateDataSlotCreateBitmaskEXT a) alignment :: VkPrivateDataSlotCreateBitmaskEXT a -> Int $calignment :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> Int sizeOf :: VkPrivateDataSlotCreateBitmaskEXT a -> Int $csizeOf :: forall (a :: FlagType). VkPrivateDataSlotCreateBitmaskEXT a -> Int Storable) type VkPrivateDataSlotCreateFlagsEXT = VkPrivateDataSlotCreateBitmaskEXT FlagMask type VkPrivateDataSlotCreateFlagBitsEXT = VkPrivateDataSlotCreateBitmaskEXT FlagBit pattern VkPrivateDataSlotCreateFlagBitsEXT :: VkFlags -> VkPrivateDataSlotCreateBitmaskEXT FlagBit pattern $bVkPrivateDataSlotCreateFlagBitsEXT :: VkFlags -> VkPrivateDataSlotCreateBitmaskEXT FlagBit $mVkPrivateDataSlotCreateFlagBitsEXT :: forall {r}. VkPrivateDataSlotCreateBitmaskEXT FlagBit -> (VkFlags -> r) -> (Void# -> r) -> r VkPrivateDataSlotCreateFlagBitsEXT n = VkPrivateDataSlotCreateBitmaskEXT n pattern VkPrivateDataSlotCreateFlagsEXT :: VkFlags -> VkPrivateDataSlotCreateBitmaskEXT FlagMask pattern $bVkPrivateDataSlotCreateFlagsEXT :: VkFlags -> VkPrivateDataSlotCreateBitmaskEXT FlagMask $mVkPrivateDataSlotCreateFlagsEXT :: forall {r}. VkPrivateDataSlotCreateBitmaskEXT FlagMask -> (VkFlags -> r) -> (Void# -> r) -> r VkPrivateDataSlotCreateFlagsEXT n = VkPrivateDataSlotCreateBitmaskEXT n deriving instance Bits (VkPrivateDataSlotCreateBitmaskEXT FlagMask) deriving instance FiniteBits (VkPrivateDataSlotCreateBitmaskEXT FlagMask) instance Show (VkPrivateDataSlotCreateBitmaskEXT a) where showsPrec :: Int -> VkPrivateDataSlotCreateBitmaskEXT a -> ShowS showsPrec Int p (VkPrivateDataSlotCreateBitmaskEXT VkFlags x) = Bool -> ShowS -> ShowS showParen (Int p Int -> Int -> Bool forall a. Ord a => a -> a -> Bool >= Int 11) (String -> ShowS showString String "VkPrivateDataSlotCreateBitmaskEXT " 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 (VkPrivateDataSlotCreateBitmaskEXT a) where readPrec :: ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) readPrec = ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) -> ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) forall a. ReadPrec a -> ReadPrec a parens ([(String, ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a))] -> ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) forall a. [(String, ReadPrec a)] -> ReadPrec a choose [] ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) -> ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) -> ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) forall a. ReadPrec a -> ReadPrec a -> ReadPrec a +++ Int -> ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) -> ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) forall a. Int -> ReadPrec a -> ReadPrec a prec Int 10 (Lexeme -> ReadPrec () expectP (String -> Lexeme Ident String "VkPrivateDataSlotCreateBitmaskEXT") ReadPrec () -> ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) -> ReadPrec (VkPrivateDataSlotCreateBitmaskEXT a) forall (m :: * -> *) a b. Monad m => m a -> m b -> m b >> (VkFlags -> VkPrivateDataSlotCreateBitmaskEXT a forall (a :: FlagType). VkFlags -> VkPrivateDataSlotCreateBitmaskEXT a VkPrivateDataSlotCreateBitmaskEXT (VkFlags -> VkPrivateDataSlotCreateBitmaskEXT a) -> ReadPrec VkFlags -> ReadPrec (VkPrivateDataSlotCreateBitmaskEXT 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)))