{-# 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)))