#include "vulkan/vulkan.h" {-# LANGUAGE DataKinds #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MagicHash #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE Strict #-} {-# LANGUAGE TypeFamilies #-} module Graphics.Vulkan.Types.Struct.VkWin32KeyedMutexAcquireReleaseInfoKHR (VkWin32KeyedMutexAcquireReleaseInfoKHR(..)) where import Foreign.Storable (Storable (..)) import GHC.Prim import Graphics.Vulkan.Marshal import Graphics.Vulkan.Marshal.Internal import Graphics.Vulkan.Types.Enum.VkStructureType (VkStructureType) import Graphics.Vulkan.Types.Handles (VkDeviceMemory) import Graphics.Vulkan.Types.Struct.VkSubmitInfo (VkSubmitInfo) import Graphics.Vulkan.Types.StructMembers import System.IO.Unsafe (unsafeDupablePerformIO) -- | > typedef struct VkWin32KeyedMutexAcquireReleaseInfoKHR { -- > VkStructureType sType; -- > const void* pNext; -- > uint32_t acquireCount; -- > const VkDeviceMemory* pAcquireSyncs; -- > const uint64_t* pAcquireKeys; -- > const uint32_t* pAcquireTimeouts; -- > uint32_t releaseCount; -- > const VkDeviceMemory* pReleaseSyncs; -- > const uint64_t* pReleaseKeys; -- > } VkWin32KeyedMutexAcquireReleaseInfoKHR; -- -- data VkWin32KeyedMutexAcquireReleaseInfoKHR = VkWin32KeyedMutexAcquireReleaseInfoKHR## Addr## ByteArray## instance Eq VkWin32KeyedMutexAcquireReleaseInfoKHR where (VkWin32KeyedMutexAcquireReleaseInfoKHR## a _) == x@(VkWin32KeyedMutexAcquireReleaseInfoKHR## b _) = EQ == cmpBytes## (sizeOf x) a b {-# INLINE (==) #-} instance Ord VkWin32KeyedMutexAcquireReleaseInfoKHR where (VkWin32KeyedMutexAcquireReleaseInfoKHR## a _) `compare` x@(VkWin32KeyedMutexAcquireReleaseInfoKHR## b _) = cmpBytes## (sizeOf x) a b {-# INLINE compare #-} instance Storable VkWin32KeyedMutexAcquireReleaseInfoKHR where sizeOf ~_ = #{size VkWin32KeyedMutexAcquireReleaseInfoKHR} {-# INLINE sizeOf #-} alignment ~_ = #{alignment VkWin32KeyedMutexAcquireReleaseInfoKHR} {-# INLINE alignment #-} peek = peekVkData## {-# INLINE peek #-} poke = pokeVkData## {-# INLINE poke #-} instance VulkanMarshalPrim VkWin32KeyedMutexAcquireReleaseInfoKHR where unsafeAddr (VkWin32KeyedMutexAcquireReleaseInfoKHR## a _) = a {-# INLINE unsafeAddr #-} unsafeByteArray (VkWin32KeyedMutexAcquireReleaseInfoKHR## _ b) = b {-# INLINE unsafeByteArray #-} unsafeFromByteArrayOffset off b = VkWin32KeyedMutexAcquireReleaseInfoKHR## (plusAddr## (byteArrayContents## b) off) b {-# INLINE unsafeFromByteArrayOffset #-} instance VulkanMarshal VkWin32KeyedMutexAcquireReleaseInfoKHR where type StructFields VkWin32KeyedMutexAcquireReleaseInfoKHR = '["sType", "pNext", "acquireCount", "pAcquireSyncs", -- ' closing tick for hsc2hs "pAcquireKeys", "pAcquireTimeouts", "releaseCount", "pReleaseSyncs", "pReleaseKeys"] type CUnionType VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs type ReturnedOnly VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs type StructExtends VkWin32KeyedMutexAcquireReleaseInfoKHR = '[VkSubmitInfo] -- ' closing tick for hsc2hs instance {-# OVERLAPPING #-} HasVkSType VkWin32KeyedMutexAcquireReleaseInfoKHR where type VkSTypeMType VkWin32KeyedMutexAcquireReleaseInfoKHR = VkStructureType {-# NOINLINE vkSType #-} vkSType x = unsafeDupablePerformIO (peekByteOff (unsafePtr x) #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, sType}) {-# INLINE vkSTypeByteOffset #-} vkSTypeByteOffset ~_ = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, sType} {-# INLINE readVkSType #-} readVkSType p = peekByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, sType} {-# INLINE writeVkSType #-} writeVkSType p = pokeByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, sType} instance {-# OVERLAPPING #-} HasField "sType" VkWin32KeyedMutexAcquireReleaseInfoKHR where type FieldType "sType" VkWin32KeyedMutexAcquireReleaseInfoKHR = VkStructureType type FieldOptional "sType" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs type FieldOffset "sType" VkWin32KeyedMutexAcquireReleaseInfoKHR = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, sType} type FieldIsArray "sType" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs {-# INLINE fieldOptional #-} fieldOptional = False {-# INLINE fieldOffset #-} fieldOffset = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, sType} instance CanReadField "sType" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE getField #-} getField = vkSType {-# INLINE readField #-} readField = readVkSType instance CanWriteField "sType" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE writeField #-} writeField = writeVkSType instance {-# OVERLAPPING #-} HasVkPNext VkWin32KeyedMutexAcquireReleaseInfoKHR where type VkPNextMType VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr Void {-# NOINLINE vkPNext #-} vkPNext x = unsafeDupablePerformIO (peekByteOff (unsafePtr x) #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pNext}) {-# INLINE vkPNextByteOffset #-} vkPNextByteOffset ~_ = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pNext} {-# INLINE readVkPNext #-} readVkPNext p = peekByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pNext} {-# INLINE writeVkPNext #-} writeVkPNext p = pokeByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pNext} instance {-# OVERLAPPING #-} HasField "pNext" VkWin32KeyedMutexAcquireReleaseInfoKHR where type FieldType "pNext" VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr Void type FieldOptional "pNext" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs type FieldOffset "pNext" VkWin32KeyedMutexAcquireReleaseInfoKHR = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pNext} type FieldIsArray "pNext" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs {-# INLINE fieldOptional #-} fieldOptional = False {-# INLINE fieldOffset #-} fieldOffset = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pNext} instance CanReadField "pNext" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE getField #-} getField = vkPNext {-# INLINE readField #-} readField = readVkPNext instance CanWriteField "pNext" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE writeField #-} writeField = writeVkPNext instance {-# OVERLAPPING #-} HasVkAcquireCount VkWin32KeyedMutexAcquireReleaseInfoKHR where type VkAcquireCountMType VkWin32KeyedMutexAcquireReleaseInfoKHR = Word32 {-# NOINLINE vkAcquireCount #-} vkAcquireCount x = unsafeDupablePerformIO (peekByteOff (unsafePtr x) #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, acquireCount}) {-# INLINE vkAcquireCountByteOffset #-} vkAcquireCountByteOffset ~_ = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, acquireCount} {-# INLINE readVkAcquireCount #-} readVkAcquireCount p = peekByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, acquireCount} {-# INLINE writeVkAcquireCount #-} writeVkAcquireCount p = pokeByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, acquireCount} instance {-# OVERLAPPING #-} HasField "acquireCount" VkWin32KeyedMutexAcquireReleaseInfoKHR where type FieldType "acquireCount" VkWin32KeyedMutexAcquireReleaseInfoKHR = Word32 type FieldOptional "acquireCount" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'True -- ' closing tick for hsc2hs type FieldOffset "acquireCount" VkWin32KeyedMutexAcquireReleaseInfoKHR = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, acquireCount} type FieldIsArray "acquireCount" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs {-# INLINE fieldOptional #-} fieldOptional = True {-# INLINE fieldOffset #-} fieldOffset = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, acquireCount} instance CanReadField "acquireCount" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE getField #-} getField = vkAcquireCount {-# INLINE readField #-} readField = readVkAcquireCount instance CanWriteField "acquireCount" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE writeField #-} writeField = writeVkAcquireCount instance {-# OVERLAPPING #-} HasVkPAcquireSyncs VkWin32KeyedMutexAcquireReleaseInfoKHR where type VkPAcquireSyncsMType VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr VkDeviceMemory {-# NOINLINE vkPAcquireSyncs #-} vkPAcquireSyncs x = unsafeDupablePerformIO (peekByteOff (unsafePtr x) #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireSyncs}) {-# INLINE vkPAcquireSyncsByteOffset #-} vkPAcquireSyncsByteOffset ~_ = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireSyncs} {-# INLINE readVkPAcquireSyncs #-} readVkPAcquireSyncs p = peekByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireSyncs} {-# INLINE writeVkPAcquireSyncs #-} writeVkPAcquireSyncs p = pokeByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireSyncs} instance {-# OVERLAPPING #-} HasField "pAcquireSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR where type FieldType "pAcquireSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr VkDeviceMemory type FieldOptional "pAcquireSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs type FieldOffset "pAcquireSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireSyncs} type FieldIsArray "pAcquireSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs {-# INLINE fieldOptional #-} fieldOptional = False {-# INLINE fieldOffset #-} fieldOffset = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireSyncs} instance CanReadField "pAcquireSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE getField #-} getField = vkPAcquireSyncs {-# INLINE readField #-} readField = readVkPAcquireSyncs instance CanWriteField "pAcquireSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE writeField #-} writeField = writeVkPAcquireSyncs instance {-# OVERLAPPING #-} HasVkPAcquireKeys VkWin32KeyedMutexAcquireReleaseInfoKHR where type VkPAcquireKeysMType VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr Word64 {-# NOINLINE vkPAcquireKeys #-} vkPAcquireKeys x = unsafeDupablePerformIO (peekByteOff (unsafePtr x) #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireKeys}) {-# INLINE vkPAcquireKeysByteOffset #-} vkPAcquireKeysByteOffset ~_ = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireKeys} {-# INLINE readVkPAcquireKeys #-} readVkPAcquireKeys p = peekByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireKeys} {-# INLINE writeVkPAcquireKeys #-} writeVkPAcquireKeys p = pokeByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireKeys} instance {-# OVERLAPPING #-} HasField "pAcquireKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR where type FieldType "pAcquireKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr Word64 type FieldOptional "pAcquireKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs type FieldOffset "pAcquireKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireKeys} type FieldIsArray "pAcquireKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs {-# INLINE fieldOptional #-} fieldOptional = False {-# INLINE fieldOffset #-} fieldOffset = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireKeys} instance CanReadField "pAcquireKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE getField #-} getField = vkPAcquireKeys {-# INLINE readField #-} readField = readVkPAcquireKeys instance CanWriteField "pAcquireKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE writeField #-} writeField = writeVkPAcquireKeys instance {-# OVERLAPPING #-} HasVkPAcquireTimeouts VkWin32KeyedMutexAcquireReleaseInfoKHR where type VkPAcquireTimeoutsMType VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr Word32 {-# NOINLINE vkPAcquireTimeouts #-} vkPAcquireTimeouts x = unsafeDupablePerformIO (peekByteOff (unsafePtr x) #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireTimeouts}) {-# INLINE vkPAcquireTimeoutsByteOffset #-} vkPAcquireTimeoutsByteOffset ~_ = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireTimeouts} {-# INLINE readVkPAcquireTimeouts #-} readVkPAcquireTimeouts p = peekByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireTimeouts} {-# INLINE writeVkPAcquireTimeouts #-} writeVkPAcquireTimeouts p = pokeByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireTimeouts} instance {-# OVERLAPPING #-} HasField "pAcquireTimeouts" VkWin32KeyedMutexAcquireReleaseInfoKHR where type FieldType "pAcquireTimeouts" VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr Word32 type FieldOptional "pAcquireTimeouts" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs type FieldOffset "pAcquireTimeouts" VkWin32KeyedMutexAcquireReleaseInfoKHR = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireTimeouts} type FieldIsArray "pAcquireTimeouts" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs {-# INLINE fieldOptional #-} fieldOptional = False {-# INLINE fieldOffset #-} fieldOffset = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pAcquireTimeouts} instance CanReadField "pAcquireTimeouts" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE getField #-} getField = vkPAcquireTimeouts {-# INLINE readField #-} readField = readVkPAcquireTimeouts instance CanWriteField "pAcquireTimeouts" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE writeField #-} writeField = writeVkPAcquireTimeouts instance {-# OVERLAPPING #-} HasVkReleaseCount VkWin32KeyedMutexAcquireReleaseInfoKHR where type VkReleaseCountMType VkWin32KeyedMutexAcquireReleaseInfoKHR = Word32 {-# NOINLINE vkReleaseCount #-} vkReleaseCount x = unsafeDupablePerformIO (peekByteOff (unsafePtr x) #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, releaseCount}) {-# INLINE vkReleaseCountByteOffset #-} vkReleaseCountByteOffset ~_ = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, releaseCount} {-# INLINE readVkReleaseCount #-} readVkReleaseCount p = peekByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, releaseCount} {-# INLINE writeVkReleaseCount #-} writeVkReleaseCount p = pokeByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, releaseCount} instance {-# OVERLAPPING #-} HasField "releaseCount" VkWin32KeyedMutexAcquireReleaseInfoKHR where type FieldType "releaseCount" VkWin32KeyedMutexAcquireReleaseInfoKHR = Word32 type FieldOptional "releaseCount" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'True -- ' closing tick for hsc2hs type FieldOffset "releaseCount" VkWin32KeyedMutexAcquireReleaseInfoKHR = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, releaseCount} type FieldIsArray "releaseCount" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs {-# INLINE fieldOptional #-} fieldOptional = True {-# INLINE fieldOffset #-} fieldOffset = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, releaseCount} instance CanReadField "releaseCount" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE getField #-} getField = vkReleaseCount {-# INLINE readField #-} readField = readVkReleaseCount instance CanWriteField "releaseCount" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE writeField #-} writeField = writeVkReleaseCount instance {-# OVERLAPPING #-} HasVkPReleaseSyncs VkWin32KeyedMutexAcquireReleaseInfoKHR where type VkPReleaseSyncsMType VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr VkDeviceMemory {-# NOINLINE vkPReleaseSyncs #-} vkPReleaseSyncs x = unsafeDupablePerformIO (peekByteOff (unsafePtr x) #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseSyncs}) {-# INLINE vkPReleaseSyncsByteOffset #-} vkPReleaseSyncsByteOffset ~_ = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseSyncs} {-# INLINE readVkPReleaseSyncs #-} readVkPReleaseSyncs p = peekByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseSyncs} {-# INLINE writeVkPReleaseSyncs #-} writeVkPReleaseSyncs p = pokeByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseSyncs} instance {-# OVERLAPPING #-} HasField "pReleaseSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR where type FieldType "pReleaseSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr VkDeviceMemory type FieldOptional "pReleaseSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs type FieldOffset "pReleaseSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseSyncs} type FieldIsArray "pReleaseSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs {-# INLINE fieldOptional #-} fieldOptional = False {-# INLINE fieldOffset #-} fieldOffset = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseSyncs} instance CanReadField "pReleaseSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE getField #-} getField = vkPReleaseSyncs {-# INLINE readField #-} readField = readVkPReleaseSyncs instance CanWriteField "pReleaseSyncs" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE writeField #-} writeField = writeVkPReleaseSyncs instance {-# OVERLAPPING #-} HasVkPReleaseKeys VkWin32KeyedMutexAcquireReleaseInfoKHR where type VkPReleaseKeysMType VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr Word64 {-# NOINLINE vkPReleaseKeys #-} vkPReleaseKeys x = unsafeDupablePerformIO (peekByteOff (unsafePtr x) #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseKeys}) {-# INLINE vkPReleaseKeysByteOffset #-} vkPReleaseKeysByteOffset ~_ = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseKeys} {-# INLINE readVkPReleaseKeys #-} readVkPReleaseKeys p = peekByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseKeys} {-# INLINE writeVkPReleaseKeys #-} writeVkPReleaseKeys p = pokeByteOff p #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseKeys} instance {-# OVERLAPPING #-} HasField "pReleaseKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR where type FieldType "pReleaseKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR = Ptr Word64 type FieldOptional "pReleaseKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs type FieldOffset "pReleaseKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseKeys} type FieldIsArray "pReleaseKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR = 'False -- ' closing tick for hsc2hs {-# INLINE fieldOptional #-} fieldOptional = False {-# INLINE fieldOffset #-} fieldOffset = #{offset VkWin32KeyedMutexAcquireReleaseInfoKHR, pReleaseKeys} instance CanReadField "pReleaseKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE getField #-} getField = vkPReleaseKeys {-# INLINE readField #-} readField = readVkPReleaseKeys instance CanWriteField "pReleaseKeys" VkWin32KeyedMutexAcquireReleaseInfoKHR where {-# INLINE writeField #-} writeField = writeVkPReleaseKeys instance Show VkWin32KeyedMutexAcquireReleaseInfoKHR where showsPrec d x = showString "VkWin32KeyedMutexAcquireReleaseInfoKHR {" . showString "vkSType = " . showsPrec d (vkSType x) . showString ", " . showString "vkPNext = " . showsPrec d (vkPNext x) . showString ", " . showString "vkAcquireCount = " . showsPrec d (vkAcquireCount x) . showString ", " . showString "vkPAcquireSyncs = " . showsPrec d (vkPAcquireSyncs x) . showString ", " . showString "vkPAcquireKeys = " . showsPrec d (vkPAcquireKeys x) . showString ", " . showString "vkPAcquireTimeouts = " . showsPrec d (vkPAcquireTimeouts x) . showString ", " . showString "vkReleaseCount = " . showsPrec d (vkReleaseCount x) . showString ", " . showString "vkPReleaseSyncs = " . showsPrec d (vkPReleaseSyncs x) . showString ", " . showString "vkPReleaseKeys = " . showsPrec d (vkPReleaseKeys x) . showChar '}'