{-# LINE 1 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}


{-# LANGUAGE DataKinds             #-}
{-# LANGUAGE FlexibleInstances     #-}
{-# LANGUAGE MagicHash             #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE Strict                #-}
{-# LANGUAGE TypeApplications      #-}
{-# LANGUAGE TypeFamilies          #-}
module Graphics.Vulkan.Types.Struct.SwapchainC
       (VkSwapchainCounterCreateInfoEXT(..), VkSwapchainCreateInfoKHR(..))
       where
import           Foreign.Storable                                   (Storable (..))
import           GHC.Base                                           (Addr#,
                                                                     ByteArray#,
                                                                     byteArrayContents#,
                                                                     plusAddr#)
import           Graphics.Vulkan.Marshal
import           Graphics.Vulkan.Marshal.Internal
import           Graphics.Vulkan.Types.BaseTypes                    (VkBool32)
import           Graphics.Vulkan.Types.Enum.Color                   (VkColorSpaceKHR)
import           Graphics.Vulkan.Types.Enum.CompositeAlphaFlagsKHR  (VkCompositeAlphaFlagBitsKHR)
import           Graphics.Vulkan.Types.Enum.Format                  (VkFormat)
import           Graphics.Vulkan.Types.Enum.Image                   (VkImageUsageFlags)
import           Graphics.Vulkan.Types.Enum.PresentModeKHR          (VkPresentModeKHR)
import           Graphics.Vulkan.Types.Enum.SharingMode             (VkSharingMode)
import           Graphics.Vulkan.Types.Enum.StructureType           (VkStructureType)
import           Graphics.Vulkan.Types.Enum.Surface                 (VkSurfaceCounterFlagsEXT,
                                                                     VkSurfaceTransformFlagBitsKHR)
import           Graphics.Vulkan.Types.Enum.SwapchainCreateFlagsKHR (VkSwapchainCreateFlagsKHR)
import           Graphics.Vulkan.Types.Handles                      (VkSurfaceKHR,
                                                                     VkSwapchainKHR)
import           Graphics.Vulkan.Types.Struct.Extent                (VkExtent2D)
import           System.IO.Unsafe                                   (unsafeDupablePerformIO)

-- | > typedef struct VkSwapchainCounterCreateInfoEXT {
--   >     VkStructureType sType;
--   >     const void*                      pNext;
--   >     VkSurfaceCounterFlagsEXT         surfaceCounters;
--   > } VkSwapchainCounterCreateInfoEXT;
--
--   <https://www.khronos.org/registry/vulkan/specs/1.1-extensions/html/vkspec.html#VkSwapchainCounterCreateInfoEXT VkSwapchainCounterCreateInfoEXT registry at www.khronos.org>
data VkSwapchainCounterCreateInfoEXT = VkSwapchainCounterCreateInfoEXT# Addr#
                                                                        ByteArray#

instance Eq VkSwapchainCounterCreateInfoEXT where
        (VkSwapchainCounterCreateInfoEXT# Addr#
a ByteArray#
_) == :: VkSwapchainCounterCreateInfoEXT
-> VkSwapchainCounterCreateInfoEXT -> Bool
==
          x :: VkSwapchainCounterCreateInfoEXT
x@(VkSwapchainCounterCreateInfoEXT# Addr#
b ByteArray#
_)
          = Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
== Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkSwapchainCounterCreateInfoEXT -> Int
forall a. Storable a => a -> Int
sizeOf VkSwapchainCounterCreateInfoEXT
x) Addr#
a Addr#
b

        {-# INLINE (==) #-}

instance Ord VkSwapchainCounterCreateInfoEXT where
        (VkSwapchainCounterCreateInfoEXT# Addr#
a ByteArray#
_) compare :: VkSwapchainCounterCreateInfoEXT
-> VkSwapchainCounterCreateInfoEXT -> Ordering
`compare`
          x :: VkSwapchainCounterCreateInfoEXT
x@(VkSwapchainCounterCreateInfoEXT# Addr#
b ByteArray#
_) = Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkSwapchainCounterCreateInfoEXT -> Int
forall a. Storable a => a -> Int
sizeOf VkSwapchainCounterCreateInfoEXT
x) Addr#
a Addr#
b

        {-# INLINE compare #-}

instance Storable VkSwapchainCounterCreateInfoEXT where
        sizeOf :: VkSwapchainCounterCreateInfoEXT -> Int
sizeOf ~VkSwapchainCounterCreateInfoEXT
_ = (Int
24)
{-# LINE 61 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE sizeOf #-}
        alignment :: VkSwapchainCounterCreateInfoEXT -> Int
alignment ~VkSwapchainCounterCreateInfoEXT
_
          = Int
8
{-# LINE 65 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE alignment #-}
        peek :: Ptr VkSwapchainCounterCreateInfoEXT
-> IO VkSwapchainCounterCreateInfoEXT
peek = Ptr VkSwapchainCounterCreateInfoEXT
-> IO VkSwapchainCounterCreateInfoEXT
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> IO a
peekVkData#

        {-# INLINE peek #-}
        poke :: Ptr VkSwapchainCounterCreateInfoEXT
-> VkSwapchainCounterCreateInfoEXT -> IO ()
poke = Ptr VkSwapchainCounterCreateInfoEXT
-> VkSwapchainCounterCreateInfoEXT -> IO ()
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> a -> IO ()
pokeVkData#

        {-# INLINE poke #-}

instance VulkanMarshalPrim VkSwapchainCounterCreateInfoEXT where
        unsafeAddr :: VkSwapchainCounterCreateInfoEXT -> Addr#
unsafeAddr (VkSwapchainCounterCreateInfoEXT# Addr#
a ByteArray#
_) = Addr#
a

        {-# INLINE unsafeAddr #-}
        unsafeByteArray :: VkSwapchainCounterCreateInfoEXT -> ByteArray#
unsafeByteArray (VkSwapchainCounterCreateInfoEXT# Addr#
_ ByteArray#
b) = ByteArray#
b

        {-# INLINE unsafeByteArray #-}
        unsafeFromByteArrayOffset :: Int# -> ByteArray# -> VkSwapchainCounterCreateInfoEXT
unsafeFromByteArrayOffset Int#
off ByteArray#
b
          = Addr# -> ByteArray# -> VkSwapchainCounterCreateInfoEXT
VkSwapchainCounterCreateInfoEXT#
              (Addr# -> Int# -> Addr#
plusAddr# (ByteArray# -> Addr#
byteArrayContents# ByteArray#
b) Int#
off)
              ByteArray#
b

        {-# INLINE unsafeFromByteArrayOffset #-}

instance VulkanMarshal VkSwapchainCounterCreateInfoEXT where
        type StructFields VkSwapchainCounterCreateInfoEXT =
             '["sType", "pNext", "surfaceCounters"] -- ' closing tick for hsc2hs
        type CUnionType VkSwapchainCounterCreateInfoEXT = 'False -- ' closing tick for hsc2hs
        type ReturnedOnly VkSwapchainCounterCreateInfoEXT = 'False -- ' closing tick for hsc2hs
        type StructExtends VkSwapchainCounterCreateInfoEXT =
             '[VkSwapchainCreateInfoKHR] -- ' closing tick for hsc2hs

instance {-# OVERLAPPING #-}
         HasField "sType" VkSwapchainCounterCreateInfoEXT where
        type FieldType "sType" VkSwapchainCounterCreateInfoEXT =
             VkStructureType
        type FieldOptional "sType" VkSwapchainCounterCreateInfoEXT = 'False -- ' closing tick for hsc2hs
        type FieldOffset "sType" VkSwapchainCounterCreateInfoEXT =
             (0)
{-# LINE 103 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "sType" VkSwapchainCounterCreateInfoEXT = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
0)
{-# LINE 111 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "sType" VkSwapchainCounterCreateInfoEXT where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCounterCreateInfoEXT
-> FieldType "sType" VkSwapchainCounterCreateInfoEXT
getField VkSwapchainCounterCreateInfoEXT
x
          = IO VkStructureType -> VkStructureType
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCounterCreateInfoEXT -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCounterCreateInfoEXT
-> Ptr VkSwapchainCounterCreateInfoEXT
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCounterCreateInfoEXT
x) (Int
0))
{-# LINE 118 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCounterCreateInfoEXT
-> IO (FieldType "sType" VkSwapchainCounterCreateInfoEXT)
readField Ptr VkSwapchainCounterCreateInfoEXT
p
          = Ptr VkSwapchainCounterCreateInfoEXT -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCounterCreateInfoEXT
p (Int
0)
{-# LINE 122 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "sType" VkSwapchainCounterCreateInfoEXT where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCounterCreateInfoEXT
-> FieldType "sType" VkSwapchainCounterCreateInfoEXT -> IO ()
writeField Ptr VkSwapchainCounterCreateInfoEXT
p
          = Ptr VkSwapchainCounterCreateInfoEXT
-> Int -> VkStructureType -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCounterCreateInfoEXT
p (Int
0)
{-# LINE 128 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "pNext" VkSwapchainCounterCreateInfoEXT where
        type FieldType "pNext" VkSwapchainCounterCreateInfoEXT = Ptr Void
        type FieldOptional "pNext" VkSwapchainCounterCreateInfoEXT = 'False -- ' closing tick for hsc2hs
        type FieldOffset "pNext" VkSwapchainCounterCreateInfoEXT =
             (8)
{-# LINE 135 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "pNext" VkSwapchainCounterCreateInfoEXT = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
8)
{-# LINE 143 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "pNext" VkSwapchainCounterCreateInfoEXT where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCounterCreateInfoEXT
-> FieldType "pNext" VkSwapchainCounterCreateInfoEXT
getField VkSwapchainCounterCreateInfoEXT
x
          = IO (Ptr Void) -> Ptr Void
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCounterCreateInfoEXT -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCounterCreateInfoEXT
-> Ptr VkSwapchainCounterCreateInfoEXT
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCounterCreateInfoEXT
x) (Int
8))
{-# LINE 150 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCounterCreateInfoEXT
-> IO (FieldType "pNext" VkSwapchainCounterCreateInfoEXT)
readField Ptr VkSwapchainCounterCreateInfoEXT
p
          = Ptr VkSwapchainCounterCreateInfoEXT -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCounterCreateInfoEXT
p (Int
8)
{-# LINE 154 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "pNext" VkSwapchainCounterCreateInfoEXT where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCounterCreateInfoEXT
-> FieldType "pNext" VkSwapchainCounterCreateInfoEXT -> IO ()
writeField Ptr VkSwapchainCounterCreateInfoEXT
p
          = Ptr VkSwapchainCounterCreateInfoEXT -> Int -> Ptr Void -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCounterCreateInfoEXT
p (Int
8)
{-# LINE 160 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "surfaceCounters" VkSwapchainCounterCreateInfoEXT where
        type FieldType "surfaceCounters" VkSwapchainCounterCreateInfoEXT =
             VkSurfaceCounterFlagsEXT
        type FieldOptional "surfaceCounters"
               VkSwapchainCounterCreateInfoEXT
             = 'True -- ' closing tick for hsc2hs
        type FieldOffset "surfaceCounters" VkSwapchainCounterCreateInfoEXT
             =
             (16)
{-# LINE 171 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "surfaceCounters" VkSwapchainCounterCreateInfoEXT
             = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
True

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
16)
{-# LINE 180 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "surfaceCounters" VkSwapchainCounterCreateInfoEXT
         where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCounterCreateInfoEXT
-> FieldType "surfaceCounters" VkSwapchainCounterCreateInfoEXT
getField VkSwapchainCounterCreateInfoEXT
x
          = IO VkSurfaceCounterFlagsEXT -> VkSurfaceCounterFlagsEXT
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCounterCreateInfoEXT
-> Int -> IO VkSurfaceCounterFlagsEXT
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCounterCreateInfoEXT
-> Ptr VkSwapchainCounterCreateInfoEXT
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCounterCreateInfoEXT
x) (Int
16))
{-# LINE 188 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCounterCreateInfoEXT
-> IO (FieldType "surfaceCounters" VkSwapchainCounterCreateInfoEXT)
readField Ptr VkSwapchainCounterCreateInfoEXT
p
          = Ptr VkSwapchainCounterCreateInfoEXT
-> Int -> IO VkSurfaceCounterFlagsEXT
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCounterCreateInfoEXT
p (Int
16)
{-# LINE 192 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "surfaceCounters" VkSwapchainCounterCreateInfoEXT
         where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCounterCreateInfoEXT
-> FieldType "surfaceCounters" VkSwapchainCounterCreateInfoEXT
-> IO ()
writeField Ptr VkSwapchainCounterCreateInfoEXT
p
          = Ptr VkSwapchainCounterCreateInfoEXT
-> Int -> VkSurfaceCounterFlagsEXT -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCounterCreateInfoEXT
p (Int
16)
{-# LINE 199 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance Show VkSwapchainCounterCreateInfoEXT where
        showsPrec :: Int -> VkSwapchainCounterCreateInfoEXT -> ShowS
showsPrec Int
d VkSwapchainCounterCreateInfoEXT
x
          = String -> ShowS
showString String
"VkSwapchainCounterCreateInfoEXT {" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
              String -> ShowS
showString String
"sType = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                Int -> VkStructureType -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCounterCreateInfoEXT
-> FieldType "sType" VkSwapchainCounterCreateInfoEXT
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"sType" VkSwapchainCounterCreateInfoEXT
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                  String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                    String -> ShowS
showString String
"pNext = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                      Int -> Ptr Void -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCounterCreateInfoEXT
-> FieldType "pNext" VkSwapchainCounterCreateInfoEXT
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pNext" VkSwapchainCounterCreateInfoEXT
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                        String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                          String -> ShowS
showString String
"surfaceCounters = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                            Int -> VkSurfaceCounterFlagsEXT -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCounterCreateInfoEXT
-> FieldType "surfaceCounters" VkSwapchainCounterCreateInfoEXT
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"surfaceCounters" VkSwapchainCounterCreateInfoEXT
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
'}'

-- | > typedef struct VkSwapchainCreateInfoKHR {
--   >     VkStructureType sType;
--   >     const void*                      pNext;
--   >     VkSwapchainCreateFlagsKHR        flags;
--   >     VkSurfaceKHR                     surface;
--   >     uint32_t                         minImageCount;
--   >     VkFormat                         imageFormat;
--   >     VkColorSpaceKHR                  imageColorSpace;
--   >     VkExtent2D                       imageExtent;
--   >     uint32_t                         imageArrayLayers;
--   >     VkImageUsageFlags                imageUsage;
--   >     VkSharingMode                    imageSharingMode;
--   >     uint32_t         queueFamilyIndexCount;
--   >     const uint32_t*                  pQueueFamilyIndices;
--   >     VkSurfaceTransformFlagBitsKHR    preTransform;
--   >     VkCompositeAlphaFlagBitsKHR      compositeAlpha;
--   >     VkPresentModeKHR                 presentMode;
--   >     VkBool32                         clipped;
--   >     VkSwapchainKHR   oldSwapchain;
--   > } VkSwapchainCreateInfoKHR;
--
--   <https://www.khronos.org/registry/vulkan/specs/1.1-extensions/html/vkspec.html#VkSwapchainCreateInfoKHR VkSwapchainCreateInfoKHR registry at www.khronos.org>
data VkSwapchainCreateInfoKHR = VkSwapchainCreateInfoKHR# Addr#
                                                          ByteArray#

instance Eq VkSwapchainCreateInfoKHR where
        (VkSwapchainCreateInfoKHR# Addr#
a ByteArray#
_) == :: VkSwapchainCreateInfoKHR -> VkSwapchainCreateInfoKHR -> Bool
==
          x :: VkSwapchainCreateInfoKHR
x@(VkSwapchainCreateInfoKHR# Addr#
b ByteArray#
_) = Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
== Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkSwapchainCreateInfoKHR -> Int
forall a. Storable a => a -> Int
sizeOf VkSwapchainCreateInfoKHR
x) Addr#
a Addr#
b

        {-# INLINE (==) #-}

instance Ord VkSwapchainCreateInfoKHR where
        (VkSwapchainCreateInfoKHR# Addr#
a ByteArray#
_) compare :: VkSwapchainCreateInfoKHR -> VkSwapchainCreateInfoKHR -> Ordering
`compare`
          x :: VkSwapchainCreateInfoKHR
x@(VkSwapchainCreateInfoKHR# Addr#
b ByteArray#
_) = Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkSwapchainCreateInfoKHR -> Int
forall a. Storable a => a -> Int
sizeOf VkSwapchainCreateInfoKHR
x) Addr#
a Addr#
b

        {-# INLINE compare #-}

instance Storable VkSwapchainCreateInfoKHR where
        sizeOf :: VkSwapchainCreateInfoKHR -> Int
sizeOf ~VkSwapchainCreateInfoKHR
_ = (Int
104)
{-# LINE 251 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE sizeOf #-}
        alignment :: VkSwapchainCreateInfoKHR -> Int
alignment ~VkSwapchainCreateInfoKHR
_ = Int
8
{-# LINE 254 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE alignment #-}
        peek :: Ptr VkSwapchainCreateInfoKHR -> IO VkSwapchainCreateInfoKHR
peek = Ptr VkSwapchainCreateInfoKHR -> IO VkSwapchainCreateInfoKHR
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> IO a
peekVkData#

        {-# INLINE peek #-}
        poke :: Ptr VkSwapchainCreateInfoKHR -> VkSwapchainCreateInfoKHR -> IO ()
poke = Ptr VkSwapchainCreateInfoKHR -> VkSwapchainCreateInfoKHR -> IO ()
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> a -> IO ()
pokeVkData#

        {-# INLINE poke #-}

instance VulkanMarshalPrim VkSwapchainCreateInfoKHR where
        unsafeAddr :: VkSwapchainCreateInfoKHR -> Addr#
unsafeAddr (VkSwapchainCreateInfoKHR# Addr#
a ByteArray#
_) = Addr#
a

        {-# INLINE unsafeAddr #-}
        unsafeByteArray :: VkSwapchainCreateInfoKHR -> ByteArray#
unsafeByteArray (VkSwapchainCreateInfoKHR# Addr#
_ ByteArray#
b) = ByteArray#
b

        {-# INLINE unsafeByteArray #-}
        unsafeFromByteArrayOffset :: Int# -> ByteArray# -> VkSwapchainCreateInfoKHR
unsafeFromByteArrayOffset Int#
off ByteArray#
b
          = Addr# -> ByteArray# -> VkSwapchainCreateInfoKHR
VkSwapchainCreateInfoKHR# (Addr# -> Int# -> Addr#
plusAddr# (ByteArray# -> Addr#
byteArrayContents# ByteArray#
b) Int#
off)
              ByteArray#
b

        {-# INLINE unsafeFromByteArrayOffset #-}

instance VulkanMarshal VkSwapchainCreateInfoKHR where
        type StructFields VkSwapchainCreateInfoKHR =
             '["sType", "pNext", "flags", "surface", "minImageCount", -- ' closing tick for hsc2hs
               "imageFormat", "imageColorSpace", "imageExtent",
               "imageArrayLayers", "imageUsage", "imageSharingMode",
               "queueFamilyIndexCount", "pQueueFamilyIndices", "preTransform",
               "compositeAlpha", "presentMode", "clipped", "oldSwapchain"]
        type CUnionType VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type ReturnedOnly VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type StructExtends VkSwapchainCreateInfoKHR = '[] -- ' closing tick for hsc2hs

instance {-# OVERLAPPING #-}
         HasField "sType" VkSwapchainCreateInfoKHR where
        type FieldType "sType" VkSwapchainCreateInfoKHR = VkStructureType
        type FieldOptional "sType" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type FieldOffset "sType" VkSwapchainCreateInfoKHR =
             (0)
{-# LINE 293 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "sType" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset = (Int
0)
{-# LINE 300 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "sType" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "sType" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkStructureType -> VkStructureType
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
0))
{-# LINE 307 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "sType" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
0)
{-# LINE 311 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "sType" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "sType" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> VkStructureType -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
0)
{-# LINE 317 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "pNext" VkSwapchainCreateInfoKHR where
        type FieldType "pNext" VkSwapchainCreateInfoKHR = Ptr Void
        type FieldOptional "pNext" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type FieldOffset "pNext" VkSwapchainCreateInfoKHR =
             (8)
{-# LINE 324 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "pNext" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset = (Int
8)
{-# LINE 331 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "pNext" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "pNext" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO (Ptr Void) -> Ptr Void
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
8))
{-# LINE 338 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "pNext" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
8)
{-# LINE 342 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "pNext" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "pNext" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> Ptr Void -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
8)
{-# LINE 348 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "flags" VkSwapchainCreateInfoKHR where
        type FieldType "flags" VkSwapchainCreateInfoKHR =
             VkSwapchainCreateFlagsKHR
        type FieldOptional "flags" VkSwapchainCreateInfoKHR = 'True -- ' closing tick for hsc2hs
        type FieldOffset "flags" VkSwapchainCreateInfoKHR =
             (16)
{-# LINE 356 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "flags" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
True

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset = (Int
16)
{-# LINE 363 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "flags" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "flags" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkSwapchainCreateFlagsKHR -> VkSwapchainCreateFlagsKHR
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkSwapchainCreateFlagsKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
16))
{-# LINE 370 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "flags" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkSwapchainCreateFlagsKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
16)
{-# LINE 374 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "flags" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "flags" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR
-> Int -> VkSwapchainCreateFlagsKHR -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
16)
{-# LINE 380 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "surface" VkSwapchainCreateInfoKHR where
        type FieldType "surface" VkSwapchainCreateInfoKHR = VkSurfaceKHR
        type FieldOptional "surface" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type FieldOffset "surface" VkSwapchainCreateInfoKHR =
             (24)
{-# LINE 387 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "surface" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
24)
{-# LINE 395 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "surface" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "surface" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkSurfaceKHR -> VkSurfaceKHR
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkSurfaceKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
24))
{-# LINE 402 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "surface" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkSurfaceKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
24)
{-# LINE 406 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "surface" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "surface" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> VkSurfaceKHR -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
24)
{-# LINE 412 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "minImageCount" VkSwapchainCreateInfoKHR where
        type FieldType "minImageCount" VkSwapchainCreateInfoKHR = Word32
        type FieldOptional "minImageCount" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs
        type FieldOffset "minImageCount" VkSwapchainCreateInfoKHR =
             (32)
{-# LINE 420 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "minImageCount" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
32)
{-# LINE 428 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "minImageCount" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "minImageCount" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
32))
{-# LINE 435 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "minImageCount" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
32)
{-# LINE 439 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "minImageCount" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "minImageCount" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
32)
{-# LINE 445 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "imageFormat" VkSwapchainCreateInfoKHR where
        type FieldType "imageFormat" VkSwapchainCreateInfoKHR = VkFormat
        type FieldOptional "imageFormat" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type FieldOffset "imageFormat" VkSwapchainCreateInfoKHR =
             (36)
{-# LINE 452 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "imageFormat" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
36)
{-# LINE 460 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "imageFormat" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "imageFormat" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkFormat -> VkFormat
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkFormat
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
36))
{-# LINE 467 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "imageFormat" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkFormat
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
36)
{-# LINE 471 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "imageFormat" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "imageFormat" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> VkFormat -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
36)
{-# LINE 477 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "imageColorSpace" VkSwapchainCreateInfoKHR where
        type FieldType "imageColorSpace" VkSwapchainCreateInfoKHR =
             VkColorSpaceKHR
        type FieldOptional "imageColorSpace" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs
        type FieldOffset "imageColorSpace" VkSwapchainCreateInfoKHR =
             (40)
{-# LINE 486 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "imageColorSpace" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
40)
{-# LINE 495 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "imageColorSpace" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "imageColorSpace" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkColorSpaceKHR -> VkColorSpaceKHR
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkColorSpaceKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
40))
{-# LINE 502 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "imageColorSpace" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkColorSpaceKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
40)
{-# LINE 506 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "imageColorSpace" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "imageColorSpace" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> VkColorSpaceKHR -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
40)
{-# LINE 512 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "imageExtent" VkSwapchainCreateInfoKHR where
        type FieldType "imageExtent" VkSwapchainCreateInfoKHR = VkExtent2D
        type FieldOptional "imageExtent" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type FieldOffset "imageExtent" VkSwapchainCreateInfoKHR =
             (44)
{-# LINE 519 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "imageExtent" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
44)
{-# LINE 527 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "imageExtent" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "imageExtent" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkExtent2D -> VkExtent2D
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkExtent2D
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
44))
{-# LINE 534 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "imageExtent" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkExtent2D
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
44)
{-# LINE 538 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "imageExtent" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "imageExtent" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> VkExtent2D -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
44)
{-# LINE 544 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "imageArrayLayers" VkSwapchainCreateInfoKHR where
        type FieldType "imageArrayLayers" VkSwapchainCreateInfoKHR = Word32
        type FieldOptional "imageArrayLayers" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs
        type FieldOffset "imageArrayLayers" VkSwapchainCreateInfoKHR =
             (52)
{-# LINE 552 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "imageArrayLayers" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
52)
{-# LINE 561 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "imageArrayLayers" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "imageArrayLayers" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
52))
{-# LINE 568 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "imageArrayLayers" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
52)
{-# LINE 572 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "imageArrayLayers" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "imageArrayLayers" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
52)
{-# LINE 578 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "imageUsage" VkSwapchainCreateInfoKHR where
        type FieldType "imageUsage" VkSwapchainCreateInfoKHR =
             VkImageUsageFlags
        type FieldOptional "imageUsage" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type FieldOffset "imageUsage" VkSwapchainCreateInfoKHR =
             (56)
{-# LINE 586 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "imageUsage" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
56)
{-# LINE 594 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "imageUsage" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "imageUsage" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkImageUsageFlags -> VkImageUsageFlags
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkImageUsageFlags
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
56))
{-# LINE 601 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "imageUsage" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkImageUsageFlags
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
56)
{-# LINE 605 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "imageUsage" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "imageUsage" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> VkImageUsageFlags -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
56)
{-# LINE 611 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "imageSharingMode" VkSwapchainCreateInfoKHR where
        type FieldType "imageSharingMode" VkSwapchainCreateInfoKHR =
             VkSharingMode
        type FieldOptional "imageSharingMode" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs
        type FieldOffset "imageSharingMode" VkSwapchainCreateInfoKHR =
             (60)
{-# LINE 620 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "imageSharingMode" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
60)
{-# LINE 629 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "imageSharingMode" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "imageSharingMode" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkSharingMode -> VkSharingMode
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkSharingMode
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
60))
{-# LINE 636 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "imageSharingMode" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkSharingMode
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
60)
{-# LINE 640 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "imageSharingMode" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "imageSharingMode" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> VkSharingMode -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
60)
{-# LINE 646 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "queueFamilyIndexCount" VkSwapchainCreateInfoKHR where
        type FieldType "queueFamilyIndexCount" VkSwapchainCreateInfoKHR =
             Word32
        type FieldOptional "queueFamilyIndexCount" VkSwapchainCreateInfoKHR
             = 'True -- ' closing tick for hsc2hs
        type FieldOffset "queueFamilyIndexCount" VkSwapchainCreateInfoKHR =
             (64)
{-# LINE 655 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "queueFamilyIndexCount" VkSwapchainCreateInfoKHR
             = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
True

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
64)
{-# LINE 664 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "queueFamilyIndexCount" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "queueFamilyIndexCount" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
64))
{-# LINE 671 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "queueFamilyIndexCount" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
64)
{-# LINE 675 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "queueFamilyIndexCount" VkSwapchainCreateInfoKHR
         where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "queueFamilyIndexCount" VkSwapchainCreateInfoKHR
-> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
64)
{-# LINE 682 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "pQueueFamilyIndices" VkSwapchainCreateInfoKHR where
        type FieldType "pQueueFamilyIndices" VkSwapchainCreateInfoKHR =
             Ptr Word32
        type FieldOptional "pQueueFamilyIndices" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs
        type FieldOffset "pQueueFamilyIndices" VkSwapchainCreateInfoKHR =
             (72)
{-# LINE 691 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "pQueueFamilyIndices" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
72)
{-# LINE 700 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "pQueueFamilyIndices" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "pQueueFamilyIndices" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO (Ptr Word32) -> Ptr Word32
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO (Ptr Word32)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
72))
{-# LINE 707 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "pQueueFamilyIndices" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO (Ptr Word32)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
72)
{-# LINE 711 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "pQueueFamilyIndices" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "pQueueFamilyIndices" VkSwapchainCreateInfoKHR
-> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> Ptr Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
72)
{-# LINE 717 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "preTransform" VkSwapchainCreateInfoKHR where
        type FieldType "preTransform" VkSwapchainCreateInfoKHR =
             VkSurfaceTransformFlagBitsKHR
        type FieldOptional "preTransform" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type FieldOffset "preTransform" VkSwapchainCreateInfoKHR =
             (80)
{-# LINE 725 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "preTransform" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
80)
{-# LINE 733 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "preTransform" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "preTransform" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkSurfaceTransformFlagBitsKHR -> VkSurfaceTransformFlagBitsKHR
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR
-> Int -> IO VkSurfaceTransformFlagBitsKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
80))
{-# LINE 740 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "preTransform" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR
-> Int -> IO VkSurfaceTransformFlagBitsKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
80)
{-# LINE 744 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "preTransform" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "preTransform" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR
-> Int -> VkSurfaceTransformFlagBitsKHR -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
80)
{-# LINE 750 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "compositeAlpha" VkSwapchainCreateInfoKHR where
        type FieldType "compositeAlpha" VkSwapchainCreateInfoKHR =
             VkCompositeAlphaFlagBitsKHR
        type FieldOptional "compositeAlpha" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs
        type FieldOffset "compositeAlpha" VkSwapchainCreateInfoKHR =
             (84)
{-# LINE 759 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "compositeAlpha" VkSwapchainCreateInfoKHR =
             'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
84)
{-# LINE 768 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "compositeAlpha" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "compositeAlpha" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkCompositeAlphaFlagBitsKHR -> VkCompositeAlphaFlagBitsKHR
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR
-> Int -> IO VkCompositeAlphaFlagBitsKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
84))
{-# LINE 775 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "compositeAlpha" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR
-> Int -> IO VkCompositeAlphaFlagBitsKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
84)
{-# LINE 779 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "compositeAlpha" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "compositeAlpha" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR
-> Int -> VkCompositeAlphaFlagBitsKHR -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
84)
{-# LINE 785 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "presentMode" VkSwapchainCreateInfoKHR where
        type FieldType "presentMode" VkSwapchainCreateInfoKHR =
             VkPresentModeKHR
        type FieldOptional "presentMode" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type FieldOffset "presentMode" VkSwapchainCreateInfoKHR =
             (88)
{-# LINE 793 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "presentMode" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
88)
{-# LINE 801 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "presentMode" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "presentMode" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkPresentModeKHR -> VkPresentModeKHR
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkPresentModeKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
88))
{-# LINE 808 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "presentMode" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkPresentModeKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
88)
{-# LINE 812 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "presentMode" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "presentMode" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> VkPresentModeKHR -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
88)
{-# LINE 818 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "clipped" VkSwapchainCreateInfoKHR where
        type FieldType "clipped" VkSwapchainCreateInfoKHR = VkBool32
        type FieldOptional "clipped" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs
        type FieldOffset "clipped" VkSwapchainCreateInfoKHR =
             (92)
{-# LINE 825 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "clipped" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
False

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
92)
{-# LINE 833 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "clipped" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "clipped" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkBool32 -> VkBool32
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkBool32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
92))
{-# LINE 840 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "clipped" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkBool32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
92)
{-# LINE 844 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "clipped" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "clipped" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> VkBool32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
92)
{-# LINE 850 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         HasField "oldSwapchain" VkSwapchainCreateInfoKHR where
        type FieldType "oldSwapchain" VkSwapchainCreateInfoKHR =
             VkSwapchainKHR
        type FieldOptional "oldSwapchain" VkSwapchainCreateInfoKHR = 'True -- ' closing tick for hsc2hs
        type FieldOffset "oldSwapchain" VkSwapchainCreateInfoKHR =
             (96)
{-# LINE 858 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}
        type FieldIsArray "oldSwapchain" VkSwapchainCreateInfoKHR = 'False -- ' closing tick for hsc2hs

        {-# INLINE fieldOptional #-}
        fieldOptional :: Bool
fieldOptional = Bool
True

        {-# INLINE fieldOffset #-}
        fieldOffset :: Int
fieldOffset
          = (Int
96)
{-# LINE 866 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanReadField "oldSwapchain" VkSwapchainCreateInfoKHR where
        {-# NOINLINE getField #-}
        getField :: VkSwapchainCreateInfoKHR
-> FieldType "oldSwapchain" VkSwapchainCreateInfoKHR
getField VkSwapchainCreateInfoKHR
x
          = IO VkSwapchainKHR -> VkSwapchainKHR
forall a. IO a -> a
unsafeDupablePerformIO
              (Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkSwapchainKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkSwapchainCreateInfoKHR -> Ptr VkSwapchainCreateInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkSwapchainCreateInfoKHR
x) (Int
96))
{-# LINE 873 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

        {-# INLINE readField #-}
        readField :: Ptr VkSwapchainCreateInfoKHR
-> IO (FieldType "oldSwapchain" VkSwapchainCreateInfoKHR)
readField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> IO VkSwapchainKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
96)
{-# LINE 877 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance {-# OVERLAPPING #-}
         CanWriteField "oldSwapchain" VkSwapchainCreateInfoKHR where
        {-# INLINE writeField #-}
        writeField :: Ptr VkSwapchainCreateInfoKHR
-> FieldType "oldSwapchain" VkSwapchainCreateInfoKHR -> IO ()
writeField Ptr VkSwapchainCreateInfoKHR
p
          = Ptr VkSwapchainCreateInfoKHR -> Int -> VkSwapchainKHR -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkSwapchainCreateInfoKHR
p (Int
96)
{-# LINE 883 "src-gen/Graphics/Vulkan/Types/Struct/SwapchainC.hsc" #-}

instance Show VkSwapchainCreateInfoKHR where
        showsPrec :: Int -> VkSwapchainCreateInfoKHR -> ShowS
showsPrec Int
d VkSwapchainCreateInfoKHR
x
          = String -> ShowS
showString String
"VkSwapchainCreateInfoKHR {" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
              String -> ShowS
showString String
"sType = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                Int -> VkStructureType -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCreateInfoKHR
-> FieldType "sType" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"sType" VkSwapchainCreateInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                  String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                    String -> ShowS
showString String
"pNext = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                      Int -> Ptr Void -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCreateInfoKHR
-> FieldType "pNext" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pNext" VkSwapchainCreateInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                        String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                          String -> ShowS
showString String
"flags = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                            Int -> VkSwapchainCreateFlagsKHR -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCreateInfoKHR
-> FieldType "flags" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"flags" VkSwapchainCreateInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                              String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                String -> ShowS
showString String
"surface = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                  Int -> VkSurfaceKHR -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCreateInfoKHR
-> FieldType "surface" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"surface" VkSwapchainCreateInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                    String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                      String -> ShowS
showString String
"minImageCount = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                        Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCreateInfoKHR
-> FieldType "minImageCount" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"minImageCount" VkSwapchainCreateInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                          String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                            String -> ShowS
showString String
"imageFormat = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                              Int -> VkFormat -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCreateInfoKHR
-> FieldType "imageFormat" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"imageFormat" VkSwapchainCreateInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                  String -> ShowS
showString String
"imageColorSpace = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                    Int -> VkColorSpaceKHR -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCreateInfoKHR
-> FieldType "imageColorSpace" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"imageColorSpace" VkSwapchainCreateInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                      String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                        String -> ShowS
showString String
"imageExtent = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                          Int -> VkExtent2D -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkSwapchainCreateInfoKHR
-> FieldType "imageExtent" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"imageExtent" VkSwapchainCreateInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                            String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                              String -> ShowS
showString String
"imageArrayLayers = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d
                                                                  (VkSwapchainCreateInfoKHR
-> FieldType "imageArrayLayers" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"imageArrayLayers" VkSwapchainCreateInfoKHR
x)
                                                                  ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                  String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                    String -> ShowS
showString String
"imageUsage = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                      Int -> VkImageUsageFlags -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d
                                                                        (VkSwapchainCreateInfoKHR
-> FieldType "imageUsage" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"imageUsage" VkSwapchainCreateInfoKHR
x)
                                                                        ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                        String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                          String -> ShowS
showString
                                                                            String
"imageSharingMode = "
                                                                            ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                            Int -> VkSharingMode -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d
                                                                              (VkSwapchainCreateInfoKHR
-> FieldType "imageSharingMode" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField
                                                                                 @"imageSharingMode"
                                                                                 VkSwapchainCreateInfoKHR
x)
                                                                              ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                              String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                String -> ShowS
showString
                                                                                  String
"queueFamilyIndexCount = "
                                                                                  ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                  Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d
                                                                                    (VkSwapchainCreateInfoKHR
-> FieldType "queueFamilyIndexCount" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField
                                                                                       @"queueFamilyIndexCount"
                                                                                       VkSwapchainCreateInfoKHR
x)
                                                                                    ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                    String -> ShowS
showString String
", "
                                                                                      ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                      String -> ShowS
showString
                                                                                        String
"pQueueFamilyIndices = "
                                                                                        ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                        Int -> Ptr Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d
                                                                                          (VkSwapchainCreateInfoKHR
-> FieldType "pQueueFamilyIndices" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField
                                                                                             @"pQueueFamilyIndices"
                                                                                             VkSwapchainCreateInfoKHR
x)
                                                                                          ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                          String -> ShowS
showString
                                                                                            String
", "
                                                                                            ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                            String -> ShowS
showString
                                                                                              String
"preTransform = "
                                                                                              ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                              Int -> VkSurfaceTransformFlagBitsKHR -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec
                                                                                                Int
d
                                                                                                (VkSwapchainCreateInfoKHR
-> FieldType "preTransform" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField
                                                                                                   @"preTransform"
                                                                                                   VkSwapchainCreateInfoKHR
x)
                                                                                                ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                String -> ShowS
showString
                                                                                                  String
", "
                                                                                                  ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                  String -> ShowS
showString
                                                                                                    String
"compositeAlpha = "
                                                                                                    ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                    Int -> VkCompositeAlphaFlagBitsKHR -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec
                                                                                                      Int
d
                                                                                                      (VkSwapchainCreateInfoKHR
-> FieldType "compositeAlpha" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField
                                                                                                         @"compositeAlpha"
                                                                                                         VkSwapchainCreateInfoKHR
x)
                                                                                                      ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                      String -> ShowS
showString
                                                                                                        String
", "
                                                                                                        ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                        String -> ShowS
showString
                                                                                                          String
"presentMode = "
                                                                                                          ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                          Int -> VkPresentModeKHR -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec
                                                                                                            Int
d
                                                                                                            (VkSwapchainCreateInfoKHR
-> FieldType "presentMode" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField
                                                                                                               @"presentMode"
                                                                                                               VkSwapchainCreateInfoKHR
x)
                                                                                                            ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                            String -> ShowS
showString
                                                                                                              String
", "
                                                                                                              ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                              String -> ShowS
showString
                                                                                                                String
"clipped = "
                                                                                                                ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                                Int -> VkBool32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec
                                                                                                                  Int
d
                                                                                                                  (VkSwapchainCreateInfoKHR
-> FieldType "clipped" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField
                                                                                                                     @"clipped"
                                                                                                                     VkSwapchainCreateInfoKHR
x)
                                                                                                                  ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                                  String -> ShowS
showString
                                                                                                                    String
", "
                                                                                                                    ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                                    String -> ShowS
showString
                                                                                                                      String
"oldSwapchain = "
                                                                                                                      ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                                      Int -> VkSwapchainKHR -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec
                                                                                                                        Int
d
                                                                                                                        (VkSwapchainCreateInfoKHR
-> FieldType "oldSwapchain" VkSwapchainCreateInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField
                                                                                                                           @"oldSwapchain"
                                                                                                                           VkSwapchainCreateInfoKHR
x)
                                                                                                                        ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
                                                                                                                        Char -> ShowS
showChar
                                                                                                                          Char
'}'