{-# OPTIONS_HADDOCK ignore-exports#-}
{-# LANGUAGE DataKinds                  #-}
{-# LANGUAGE DeriveDataTypeable         #-}
{-# LANGUAGE DeriveGeneric              #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE PatternSynonyms            #-}
{-# LANGUAGE Strict                     #-}
module Graphics.Vulkan.Types.Enum.CompareOp
       (VkCompareOp(VkCompareOp, VK_COMPARE_OP_NEVER, VK_COMPARE_OP_LESS,
                    VK_COMPARE_OP_EQUAL, VK_COMPARE_OP_LESS_OR_EQUAL,
                    VK_COMPARE_OP_GREATER, VK_COMPARE_OP_NOT_EQUAL,
                    VK_COMPARE_OP_GREATER_OR_EQUAL, VK_COMPARE_OP_ALWAYS))
       where
import           Data.Data                       (Data)
import           Foreign.Storable                (Storable)
import           GHC.Generics                    (Generic)
import           GHC.Read                        (choose, expectP)
import           Graphics.Vulkan.Marshal         (Int32)
import           Text.ParserCombinators.ReadPrec (prec, step, (+++))
import           Text.Read                       (Read (..), parens)
import           Text.Read.Lex                   (Lexeme (..))

-- | type = @enum@
--
--   <https://www.khronos.org/registry/vulkan/specs/1.1-extensions/html/vkspec.html#VkCompareOp VkCompareOp registry at www.khronos.org>
newtype VkCompareOp = VkCompareOp Int32
                        deriving (VkCompareOp -> VkCompareOp -> Bool
(VkCompareOp -> VkCompareOp -> Bool)
-> (VkCompareOp -> VkCompareOp -> Bool) -> Eq VkCompareOp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VkCompareOp -> VkCompareOp -> Bool
$c/= :: VkCompareOp -> VkCompareOp -> Bool
== :: VkCompareOp -> VkCompareOp -> Bool
$c== :: VkCompareOp -> VkCompareOp -> Bool
Eq, Eq VkCompareOp
Eq VkCompareOp
-> (VkCompareOp -> VkCompareOp -> Ordering)
-> (VkCompareOp -> VkCompareOp -> Bool)
-> (VkCompareOp -> VkCompareOp -> Bool)
-> (VkCompareOp -> VkCompareOp -> Bool)
-> (VkCompareOp -> VkCompareOp -> Bool)
-> (VkCompareOp -> VkCompareOp -> VkCompareOp)
-> (VkCompareOp -> VkCompareOp -> VkCompareOp)
-> Ord VkCompareOp
VkCompareOp -> VkCompareOp -> Bool
VkCompareOp -> VkCompareOp -> Ordering
VkCompareOp -> VkCompareOp -> VkCompareOp
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
min :: VkCompareOp -> VkCompareOp -> VkCompareOp
$cmin :: VkCompareOp -> VkCompareOp -> VkCompareOp
max :: VkCompareOp -> VkCompareOp -> VkCompareOp
$cmax :: VkCompareOp -> VkCompareOp -> VkCompareOp
>= :: VkCompareOp -> VkCompareOp -> Bool
$c>= :: VkCompareOp -> VkCompareOp -> Bool
> :: VkCompareOp -> VkCompareOp -> Bool
$c> :: VkCompareOp -> VkCompareOp -> Bool
<= :: VkCompareOp -> VkCompareOp -> Bool
$c<= :: VkCompareOp -> VkCompareOp -> Bool
< :: VkCompareOp -> VkCompareOp -> Bool
$c< :: VkCompareOp -> VkCompareOp -> Bool
compare :: VkCompareOp -> VkCompareOp -> Ordering
$ccompare :: VkCompareOp -> VkCompareOp -> Ordering
$cp1Ord :: Eq VkCompareOp
Ord, Integer -> VkCompareOp
VkCompareOp -> VkCompareOp
VkCompareOp -> VkCompareOp -> VkCompareOp
(VkCompareOp -> VkCompareOp -> VkCompareOp)
-> (VkCompareOp -> VkCompareOp -> VkCompareOp)
-> (VkCompareOp -> VkCompareOp -> VkCompareOp)
-> (VkCompareOp -> VkCompareOp)
-> (VkCompareOp -> VkCompareOp)
-> (VkCompareOp -> VkCompareOp)
-> (Integer -> VkCompareOp)
-> Num VkCompareOp
forall a.
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> a)
-> (a -> a)
-> (Integer -> a)
-> Num a
fromInteger :: Integer -> VkCompareOp
$cfromInteger :: Integer -> VkCompareOp
signum :: VkCompareOp -> VkCompareOp
$csignum :: VkCompareOp -> VkCompareOp
abs :: VkCompareOp -> VkCompareOp
$cabs :: VkCompareOp -> VkCompareOp
negate :: VkCompareOp -> VkCompareOp
$cnegate :: VkCompareOp -> VkCompareOp
* :: VkCompareOp -> VkCompareOp -> VkCompareOp
$c* :: VkCompareOp -> VkCompareOp -> VkCompareOp
- :: VkCompareOp -> VkCompareOp -> VkCompareOp
$c- :: VkCompareOp -> VkCompareOp -> VkCompareOp
+ :: VkCompareOp -> VkCompareOp -> VkCompareOp
$c+ :: VkCompareOp -> VkCompareOp -> VkCompareOp
Num, VkCompareOp
VkCompareOp -> VkCompareOp -> Bounded VkCompareOp
forall a. a -> a -> Bounded a
maxBound :: VkCompareOp
$cmaxBound :: VkCompareOp
minBound :: VkCompareOp
$cminBound :: VkCompareOp
Bounded, Ptr b -> Int -> IO VkCompareOp
Ptr b -> Int -> VkCompareOp -> IO ()
Ptr VkCompareOp -> IO VkCompareOp
Ptr VkCompareOp -> Int -> IO VkCompareOp
Ptr VkCompareOp -> Int -> VkCompareOp -> IO ()
Ptr VkCompareOp -> VkCompareOp -> IO ()
VkCompareOp -> Int
(VkCompareOp -> Int)
-> (VkCompareOp -> Int)
-> (Ptr VkCompareOp -> Int -> IO VkCompareOp)
-> (Ptr VkCompareOp -> Int -> VkCompareOp -> IO ())
-> (forall b. Ptr b -> Int -> IO VkCompareOp)
-> (forall b. Ptr b -> Int -> VkCompareOp -> IO ())
-> (Ptr VkCompareOp -> IO VkCompareOp)
-> (Ptr VkCompareOp -> VkCompareOp -> IO ())
-> Storable VkCompareOp
forall b. Ptr b -> Int -> IO VkCompareOp
forall b. Ptr b -> Int -> VkCompareOp -> 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
poke :: Ptr VkCompareOp -> VkCompareOp -> IO ()
$cpoke :: Ptr VkCompareOp -> VkCompareOp -> IO ()
peek :: Ptr VkCompareOp -> IO VkCompareOp
$cpeek :: Ptr VkCompareOp -> IO VkCompareOp
pokeByteOff :: Ptr b -> Int -> VkCompareOp -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> VkCompareOp -> IO ()
peekByteOff :: Ptr b -> Int -> IO VkCompareOp
$cpeekByteOff :: forall b. Ptr b -> Int -> IO VkCompareOp
pokeElemOff :: Ptr VkCompareOp -> Int -> VkCompareOp -> IO ()
$cpokeElemOff :: Ptr VkCompareOp -> Int -> VkCompareOp -> IO ()
peekElemOff :: Ptr VkCompareOp -> Int -> IO VkCompareOp
$cpeekElemOff :: Ptr VkCompareOp -> Int -> IO VkCompareOp
alignment :: VkCompareOp -> Int
$calignment :: VkCompareOp -> Int
sizeOf :: VkCompareOp -> Int
$csizeOf :: VkCompareOp -> Int
Storable, Int -> VkCompareOp
VkCompareOp -> Int
VkCompareOp -> [VkCompareOp]
VkCompareOp -> VkCompareOp
VkCompareOp -> VkCompareOp -> [VkCompareOp]
VkCompareOp -> VkCompareOp -> VkCompareOp -> [VkCompareOp]
(VkCompareOp -> VkCompareOp)
-> (VkCompareOp -> VkCompareOp)
-> (Int -> VkCompareOp)
-> (VkCompareOp -> Int)
-> (VkCompareOp -> [VkCompareOp])
-> (VkCompareOp -> VkCompareOp -> [VkCompareOp])
-> (VkCompareOp -> VkCompareOp -> [VkCompareOp])
-> (VkCompareOp -> VkCompareOp -> VkCompareOp -> [VkCompareOp])
-> Enum VkCompareOp
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: VkCompareOp -> VkCompareOp -> VkCompareOp -> [VkCompareOp]
$cenumFromThenTo :: VkCompareOp -> VkCompareOp -> VkCompareOp -> [VkCompareOp]
enumFromTo :: VkCompareOp -> VkCompareOp -> [VkCompareOp]
$cenumFromTo :: VkCompareOp -> VkCompareOp -> [VkCompareOp]
enumFromThen :: VkCompareOp -> VkCompareOp -> [VkCompareOp]
$cenumFromThen :: VkCompareOp -> VkCompareOp -> [VkCompareOp]
enumFrom :: VkCompareOp -> [VkCompareOp]
$cenumFrom :: VkCompareOp -> [VkCompareOp]
fromEnum :: VkCompareOp -> Int
$cfromEnum :: VkCompareOp -> Int
toEnum :: Int -> VkCompareOp
$ctoEnum :: Int -> VkCompareOp
pred :: VkCompareOp -> VkCompareOp
$cpred :: VkCompareOp -> VkCompareOp
succ :: VkCompareOp -> VkCompareOp
$csucc :: VkCompareOp -> VkCompareOp
Enum, Typeable VkCompareOp
DataType
Constr
Typeable VkCompareOp
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> VkCompareOp -> c VkCompareOp)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c VkCompareOp)
-> (VkCompareOp -> Constr)
-> (VkCompareOp -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c VkCompareOp))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e))
    -> Maybe (c VkCompareOp))
-> ((forall b. Data b => b -> b) -> VkCompareOp -> VkCompareOp)
-> (forall r r'.
    (r -> r' -> r)
    -> r -> (forall d. Data d => d -> r') -> VkCompareOp -> r)
-> (forall r r'.
    (r' -> r -> r)
    -> r -> (forall d. Data d => d -> r') -> VkCompareOp -> r)
-> (forall u. (forall d. Data d => d -> u) -> VkCompareOp -> [u])
-> (forall u.
    Int -> (forall d. Data d => d -> u) -> VkCompareOp -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp)
-> Data VkCompareOp
VkCompareOp -> DataType
VkCompareOp -> Constr
(forall b. Data b => b -> b) -> VkCompareOp -> VkCompareOp
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> VkCompareOp -> c VkCompareOp
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c VkCompareOp
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> VkCompareOp -> u
forall u. (forall d. Data d => d -> u) -> VkCompareOp -> [u]
forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> VkCompareOp -> r
forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> VkCompareOp -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c VkCompareOp
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> VkCompareOp -> c VkCompareOp
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c VkCompareOp)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c VkCompareOp)
$cVkCompareOp :: Constr
$tVkCompareOp :: DataType
gmapMo :: (forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp
gmapMp :: (forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp
gmapM :: (forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> VkCompareOp -> m VkCompareOp
gmapQi :: Int -> (forall d. Data d => d -> u) -> VkCompareOp -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> VkCompareOp -> u
gmapQ :: (forall d. Data d => d -> u) -> VkCompareOp -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> VkCompareOp -> [u]
gmapQr :: (r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> VkCompareOp -> r
$cgmapQr :: forall r r'.
(r' -> r -> r)
-> r -> (forall d. Data d => d -> r') -> VkCompareOp -> r
gmapQl :: (r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> VkCompareOp -> r
$cgmapQl :: forall r r'.
(r -> r' -> r)
-> r -> (forall d. Data d => d -> r') -> VkCompareOp -> r
gmapT :: (forall b. Data b => b -> b) -> VkCompareOp -> VkCompareOp
$cgmapT :: (forall b. Data b => b -> b) -> VkCompareOp -> VkCompareOp
dataCast2 :: (forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c VkCompareOp)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e))
-> Maybe (c VkCompareOp)
dataCast1 :: (forall d. Data d => c (t d)) -> Maybe (c VkCompareOp)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c VkCompareOp)
dataTypeOf :: VkCompareOp -> DataType
$cdataTypeOf :: VkCompareOp -> DataType
toConstr :: VkCompareOp -> Constr
$ctoConstr :: VkCompareOp -> Constr
gunfold :: (forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c VkCompareOp
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c VkCompareOp
gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> VkCompareOp -> c VkCompareOp
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> VkCompareOp -> c VkCompareOp
$cp1Data :: Typeable VkCompareOp
Data, (forall x. VkCompareOp -> Rep VkCompareOp x)
-> (forall x. Rep VkCompareOp x -> VkCompareOp)
-> Generic VkCompareOp
forall x. Rep VkCompareOp x -> VkCompareOp
forall x. VkCompareOp -> Rep VkCompareOp x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep VkCompareOp x -> VkCompareOp
$cfrom :: forall x. VkCompareOp -> Rep VkCompareOp x
Generic)

instance Show VkCompareOp where
        showsPrec :: Int -> VkCompareOp -> ShowS
showsPrec Int
_ VkCompareOp
VK_COMPARE_OP_NEVER = String -> ShowS
showString String
"VK_COMPARE_OP_NEVER"
        showsPrec Int
_ VkCompareOp
VK_COMPARE_OP_LESS = String -> ShowS
showString String
"VK_COMPARE_OP_LESS"
        showsPrec Int
_ VkCompareOp
VK_COMPARE_OP_EQUAL = String -> ShowS
showString String
"VK_COMPARE_OP_EQUAL"
        showsPrec Int
_ VkCompareOp
VK_COMPARE_OP_LESS_OR_EQUAL
          = String -> ShowS
showString String
"VK_COMPARE_OP_LESS_OR_EQUAL"
        showsPrec Int
_ VkCompareOp
VK_COMPARE_OP_GREATER
          = String -> ShowS
showString String
"VK_COMPARE_OP_GREATER"
        showsPrec Int
_ VkCompareOp
VK_COMPARE_OP_NOT_EQUAL
          = String -> ShowS
showString String
"VK_COMPARE_OP_NOT_EQUAL"
        showsPrec Int
_ VkCompareOp
VK_COMPARE_OP_GREATER_OR_EQUAL
          = String -> ShowS
showString String
"VK_COMPARE_OP_GREATER_OR_EQUAL"
        showsPrec Int
_ VkCompareOp
VK_COMPARE_OP_ALWAYS
          = String -> ShowS
showString String
"VK_COMPARE_OP_ALWAYS"
        showsPrec Int
p (VkCompareOp Int32
x)
          = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11) (String -> ShowS
showString String
"VkCompareOp " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Int32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
11 Int32
x)

instance Read VkCompareOp where
        readPrec :: ReadPrec VkCompareOp
readPrec
          = ReadPrec VkCompareOp -> ReadPrec VkCompareOp
forall a. ReadPrec a -> ReadPrec a
parens
              ([(String, ReadPrec VkCompareOp)] -> ReadPrec VkCompareOp
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
                 [(String
"VK_COMPARE_OP_NEVER", VkCompareOp -> ReadPrec VkCompareOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkCompareOp
VK_COMPARE_OP_NEVER),
                  (String
"VK_COMPARE_OP_LESS", VkCompareOp -> ReadPrec VkCompareOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkCompareOp
VK_COMPARE_OP_LESS),
                  (String
"VK_COMPARE_OP_EQUAL", VkCompareOp -> ReadPrec VkCompareOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkCompareOp
VK_COMPARE_OP_EQUAL),
                  (String
"VK_COMPARE_OP_LESS_OR_EQUAL", VkCompareOp -> ReadPrec VkCompareOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkCompareOp
VK_COMPARE_OP_LESS_OR_EQUAL),
                  (String
"VK_COMPARE_OP_GREATER", VkCompareOp -> ReadPrec VkCompareOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkCompareOp
VK_COMPARE_OP_GREATER),
                  (String
"VK_COMPARE_OP_NOT_EQUAL", VkCompareOp -> ReadPrec VkCompareOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkCompareOp
VK_COMPARE_OP_NOT_EQUAL),
                  (String
"VK_COMPARE_OP_GREATER_OR_EQUAL",
                   VkCompareOp -> ReadPrec VkCompareOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkCompareOp
VK_COMPARE_OP_GREATER_OR_EQUAL),
                  (String
"VK_COMPARE_OP_ALWAYS", VkCompareOp -> ReadPrec VkCompareOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkCompareOp
VK_COMPARE_OP_ALWAYS)]
                 ReadPrec VkCompareOp
-> ReadPrec VkCompareOp -> ReadPrec VkCompareOp
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
                 Int -> ReadPrec VkCompareOp -> ReadPrec VkCompareOp
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
                   (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkCompareOp") ReadPrec () -> ReadPrec VkCompareOp -> ReadPrec VkCompareOp
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> (Int32 -> VkCompareOp
VkCompareOp (Int32 -> VkCompareOp) -> ReadPrec Int32 -> ReadPrec VkCompareOp
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ReadPrec Int32 -> ReadPrec Int32
forall a. ReadPrec a -> ReadPrec a
step ReadPrec Int32
forall a. Read a => ReadPrec a
readPrec)))

pattern VK_COMPARE_OP_NEVER :: VkCompareOp

pattern $bVK_COMPARE_OP_NEVER :: VkCompareOp
$mVK_COMPARE_OP_NEVER :: forall r. VkCompareOp -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPARE_OP_NEVER = VkCompareOp 0

pattern VK_COMPARE_OP_LESS :: VkCompareOp

pattern $bVK_COMPARE_OP_LESS :: VkCompareOp
$mVK_COMPARE_OP_LESS :: forall r. VkCompareOp -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPARE_OP_LESS = VkCompareOp 1

pattern VK_COMPARE_OP_EQUAL :: VkCompareOp

pattern $bVK_COMPARE_OP_EQUAL :: VkCompareOp
$mVK_COMPARE_OP_EQUAL :: forall r. VkCompareOp -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPARE_OP_EQUAL = VkCompareOp 2

pattern VK_COMPARE_OP_LESS_OR_EQUAL :: VkCompareOp

pattern $bVK_COMPARE_OP_LESS_OR_EQUAL :: VkCompareOp
$mVK_COMPARE_OP_LESS_OR_EQUAL :: forall r. VkCompareOp -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPARE_OP_LESS_OR_EQUAL = VkCompareOp 3

pattern VK_COMPARE_OP_GREATER :: VkCompareOp

pattern $bVK_COMPARE_OP_GREATER :: VkCompareOp
$mVK_COMPARE_OP_GREATER :: forall r. VkCompareOp -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPARE_OP_GREATER = VkCompareOp 4

pattern VK_COMPARE_OP_NOT_EQUAL :: VkCompareOp

pattern $bVK_COMPARE_OP_NOT_EQUAL :: VkCompareOp
$mVK_COMPARE_OP_NOT_EQUAL :: forall r. VkCompareOp -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPARE_OP_NOT_EQUAL = VkCompareOp 5

pattern VK_COMPARE_OP_GREATER_OR_EQUAL :: VkCompareOp

pattern $bVK_COMPARE_OP_GREATER_OR_EQUAL :: VkCompareOp
$mVK_COMPARE_OP_GREATER_OR_EQUAL :: forall r. VkCompareOp -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPARE_OP_GREATER_OR_EQUAL = VkCompareOp 6

pattern VK_COMPARE_OP_ALWAYS :: VkCompareOp

pattern $bVK_COMPARE_OP_ALWAYS :: VkCompareOp
$mVK_COMPARE_OP_ALWAYS :: forall r. VkCompareOp -> (Void# -> r) -> (Void# -> r) -> r
VK_COMPARE_OP_ALWAYS = VkCompareOp 7