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