packages feed

vulkan 3.13.3 → 3.13.4

raw patch · 143 files changed

+1082/−801 lines, 143 files

Files

changelog.md view
@@ -2,6 +2,10 @@  ## WIP +## [3.13.4] - 2021-11-17+- Support ghc-9.3.20211111+- No more warnings under 9.2+ ## [3.13.3] - 2021-11-17 - Bump API version to v1.2.199
package.yaml view
@@ -1,5 +1,5 @@ name: vulkan-version: "3.13.3"+version: "3.13.4" synopsis: Bindings to the Vulkan graphics API. description: Please see [the readme](https://github.com/expipiplus1/vulkan/#readme) category: Graphics@@ -97,6 +97,7 @@ - InstanceSigs - LambdaCase - MagicHash+- NamedFieldPuns - NoMonomorphismRestriction - OverloadedStrings - PartialTypeSignatures
src/Vulkan/CStruct/Extends.hs view
@@ -1371,9 +1371,9 @@   else do     baseOut <- peek p     join-      $ peekChainHead @a (sType (baseOut :: BaseOutStructure))+      $ peekChainHead @a (case baseOut of BaseOutStructure{sType} -> sType)                          (castPtr @BaseOutStructure @() p)-      $ \head' -> peekSomeChain @a (next (baseOut :: BaseOutStructure))+      $ \head' -> peekSomeChain @a (case baseOut of BaseOutStructure{next} -> next)                                   (\tail' -> c (head', tail'))  peekChainHead
src/Vulkan/Core10/Buffer.hs view
@@ -65,6 +65,7 @@ import {-# SOURCE #-} Vulkan.Extensions.VK_NV_dedicated_allocation (DedicatedAllocationBufferCreateInfoNV) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateBuffer)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyBuffer)) import Vulkan.Core10.FundamentalTypes (DeviceSize)@@ -167,7 +168,7 @@                 ("allocator" ::: Maybe AllocationCallbacks)              -> io (Buffer) createBuffer device createInfo allocator = liftIO . evalContT $ do-  let vkCreateBufferPtr = pVkCreateBuffer (deviceCmds (device :: Device))+  let vkCreateBufferPtr = pVkCreateBuffer (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateBufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateBuffer is null" Nothing Nothing   let vkCreateBuffer' = mkVkCreateBuffer vkCreateBufferPtr@@ -256,7 +257,7 @@                  ("allocator" ::: Maybe AllocationCallbacks)               -> io () destroyBuffer device buffer allocator = liftIO . evalContT $ do-  let vkDestroyBufferPtr = pVkDestroyBuffer (deviceCmds (device :: Device))+  let vkDestroyBufferPtr = pVkDestroyBuffer (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyBufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyBuffer is null" Nothing Nothing   let vkDestroyBuffer' = mkVkDestroyBuffer vkDestroyBufferPtr@@ -452,7 +453,7 @@  instance Extensible BufferCreateInfo where   extensibleTypeName = "BufferCreateInfo"-  setNext x next = x{next = next}+  setNext BufferCreateInfo{..} next' = BufferCreateInfo{next = next', ..}   getNext BufferCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends BufferCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/BufferView.hs view
@@ -48,6 +48,7 @@ import Vulkan.Core10.Enums.BufferViewCreateFlags (BufferViewCreateFlags) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateBufferView)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyBufferView)) import Vulkan.Core10.FundamentalTypes (DeviceSize)@@ -116,7 +117,7 @@                     ("allocator" ::: Maybe AllocationCallbacks)                  -> io (BufferView) createBufferView device createInfo allocator = liftIO . evalContT $ do-  let vkCreateBufferViewPtr = pVkCreateBufferView (deviceCmds (device :: Device))+  let vkCreateBufferViewPtr = pVkCreateBufferView (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateBufferViewPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateBufferView is null" Nothing Nothing   let vkCreateBufferView' = mkVkCreateBufferView vkCreateBufferViewPtr@@ -206,7 +207,7 @@                      ("allocator" ::: Maybe AllocationCallbacks)                   -> io () destroyBufferView device bufferView allocator = liftIO . evalContT $ do-  let vkDestroyBufferViewPtr = pVkDestroyBufferView (deviceCmds (device :: Device))+  let vkDestroyBufferViewPtr = pVkDestroyBufferView (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyBufferViewPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyBufferView is null" Nothing Nothing   let vkDestroyBufferView' = mkVkDestroyBufferView vkDestroyBufferViewPtr
src/Vulkan/Core10/CommandBuffer.hs view
@@ -87,6 +87,7 @@ import Vulkan.Core10.Handles (CommandPool(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkAllocateCommandBuffers)) import Vulkan.Dynamic (DeviceCmds(pVkBeginCommandBuffer)) import Vulkan.Dynamic (DeviceCmds(pVkEndCommandBuffer))@@ -198,7 +199,7 @@                           CommandBufferAllocateInfo                        -> io (("commandBuffers" ::: Vector CommandBuffer)) allocateCommandBuffers device allocateInfo = liftIO . evalContT $ do-  let cmds = deviceCmds (device :: Device)+  let cmds = case device of Device{deviceCmds} -> deviceCmds   let vkAllocateCommandBuffersPtr = pVkAllocateCommandBuffers cmds   lift $ unless (vkAllocateCommandBuffersPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAllocateCommandBuffers is null" Nothing Nothing@@ -295,7 +296,7 @@                       ("commandBuffers" ::: Vector CommandBuffer)                    -> io () freeCommandBuffers device commandPool commandBuffers = liftIO . evalContT $ do-  let vkFreeCommandBuffersPtr = pVkFreeCommandBuffers (deviceCmds (device :: Device))+  let vkFreeCommandBuffersPtr = pVkFreeCommandBuffers (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkFreeCommandBuffersPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkFreeCommandBuffers is null" Nothing Nothing   let vkFreeCommandBuffers' = mkVkFreeCommandBuffers vkFreeCommandBuffersPtr@@ -390,7 +391,7 @@                       (CommandBufferBeginInfo a)                    -> io () beginCommandBuffer commandBuffer beginInfo = liftIO . evalContT $ do-  let vkBeginCommandBufferPtr = pVkBeginCommandBuffer (deviceCmds (commandBuffer :: CommandBuffer))+  let vkBeginCommandBufferPtr = pVkBeginCommandBuffer (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkBeginCommandBufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkBeginCommandBuffer is null" Nothing Nothing   let vkBeginCommandBuffer' = mkVkBeginCommandBuffer vkBeginCommandBufferPtr@@ -496,7 +497,7 @@                     CommandBuffer                  -> io () endCommandBuffer commandBuffer = liftIO $ do-  let vkEndCommandBufferPtr = pVkEndCommandBuffer (deviceCmds (commandBuffer :: CommandBuffer))+  let vkEndCommandBufferPtr = pVkEndCommandBuffer (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkEndCommandBufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkEndCommandBuffer is null" Nothing Nothing   let vkEndCommandBuffer' = mkVkEndCommandBuffer vkEndCommandBufferPtr@@ -576,7 +577,7 @@                       CommandBufferResetFlags                    -> io () resetCommandBuffer commandBuffer flags = liftIO $ do-  let vkResetCommandBufferPtr = pVkResetCommandBuffer (deviceCmds (commandBuffer :: CommandBuffer))+  let vkResetCommandBufferPtr = pVkResetCommandBuffer (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkResetCommandBufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkResetCommandBuffer is null" Nothing Nothing   let vkResetCommandBuffer' = mkVkResetCommandBuffer vkResetCommandBufferPtr@@ -792,7 +793,7 @@  instance Extensible CommandBufferInheritanceInfo where   extensibleTypeName = "CommandBufferInheritanceInfo"-  setNext x next = x{next = next}+  setNext CommandBufferInheritanceInfo{..} next' = CommandBufferInheritanceInfo{next = next', ..}   getNext CommandBufferInheritanceInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends CommandBufferInheritanceInfo e => b) -> Maybe b   extends _ f@@ -939,7 +940,7 @@  instance Extensible CommandBufferBeginInfo where   extensibleTypeName = "CommandBufferBeginInfo"-  setNext x next = x{next = next}+  setNext CommandBufferBeginInfo{..} next' = CommandBufferBeginInfo{next = next', ..}   getNext CommandBufferBeginInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends CommandBufferBeginInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/CommandBufferBuilding.hs view
@@ -121,6 +121,7 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Core10.Enums.DependencyFlagBits (DependencyFlagBits(..)) import Vulkan.Core10.Enums.DependencyFlagBits (DependencyFlags)@@ -484,7 +485,7 @@                    Pipeline                 -> io () cmdBindPipeline commandBuffer pipelineBindPoint pipeline = liftIO $ do-  let vkCmdBindPipelinePtr = pVkCmdBindPipeline (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBindPipelinePtr = pVkCmdBindPipeline (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdBindPipelinePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBindPipeline is null" Nothing Nothing   let vkCmdBindPipeline' = mkVkCmdBindPipeline vkCmdBindPipelinePtr@@ -591,7 +592,7 @@                   ("viewports" ::: Vector Viewport)                -> io () cmdSetViewport commandBuffer firstViewport viewports = liftIO . evalContT $ do-  let vkCmdSetViewportPtr = pVkCmdSetViewport (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetViewportPtr = pVkCmdSetViewport (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetViewportPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetViewport is null" Nothing Nothing   let vkCmdSetViewport' = mkVkCmdSetViewport vkCmdSetViewportPtr@@ -714,7 +715,7 @@                  ("scissors" ::: Vector Rect2D)               -> io () cmdSetScissor commandBuffer firstScissor scissors = liftIO . evalContT $ do-  let vkCmdSetScissorPtr = pVkCmdSetScissor (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetScissorPtr = pVkCmdSetScissor (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetScissorPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetScissor is null" Nothing Nothing   let vkCmdSetScissor' = mkVkCmdSetScissor vkCmdSetScissorPtr@@ -793,7 +794,7 @@                    ("lineWidth" ::: Float)                 -> io () cmdSetLineWidth commandBuffer lineWidth = liftIO $ do-  let vkCmdSetLineWidthPtr = pVkCmdSetLineWidth (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetLineWidthPtr = pVkCmdSetLineWidth (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetLineWidthPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetLineWidth is null" Nothing Nothing   let vkCmdSetLineWidth' = mkVkCmdSetLineWidth vkCmdSetLineWidthPtr@@ -878,7 +879,7 @@                    ("depthBiasSlopeFactor" ::: Float)                 -> io () cmdSetDepthBias commandBuffer depthBiasConstantFactor depthBiasClamp depthBiasSlopeFactor = liftIO $ do-  let vkCmdSetDepthBiasPtr = pVkCmdSetDepthBias (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetDepthBiasPtr = pVkCmdSetDepthBias (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetDepthBiasPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetDepthBias is null" Nothing Nothing   let vkCmdSetDepthBias' = mkVkCmdSetDepthBias vkCmdSetDepthBiasPtr@@ -953,7 +954,7 @@                         ("blendConstants" ::: (Float, Float, Float, Float))                      -> io () cmdSetBlendConstants commandBuffer blendConstants = liftIO . evalContT $ do-  let vkCmdSetBlendConstantsPtr = pVkCmdSetBlendConstants (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetBlendConstantsPtr = pVkCmdSetBlendConstants (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetBlendConstantsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetBlendConstants is null" Nothing Nothing   let vkCmdSetBlendConstants' = mkVkCmdSetBlendConstants vkCmdSetBlendConstantsPtr@@ -1047,7 +1048,7 @@                      ("maxDepthBounds" ::: Float)                   -> io () cmdSetDepthBounds commandBuffer minDepthBounds maxDepthBounds = liftIO $ do-  let vkCmdSetDepthBoundsPtr = pVkCmdSetDepthBounds (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetDepthBoundsPtr = pVkCmdSetDepthBounds (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetDepthBoundsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetDepthBounds is null" Nothing Nothing   let vkCmdSetDepthBounds' = mkVkCmdSetDepthBounds vkCmdSetDepthBoundsPtr@@ -1134,7 +1135,7 @@                             ("compareMask" ::: Word32)                          -> io () cmdSetStencilCompareMask commandBuffer faceMask compareMask = liftIO $ do-  let vkCmdSetStencilCompareMaskPtr = pVkCmdSetStencilCompareMask (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetStencilCompareMaskPtr = pVkCmdSetStencilCompareMask (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetStencilCompareMaskPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetStencilCompareMask is null" Nothing Nothing   let vkCmdSetStencilCompareMask' = mkVkCmdSetStencilCompareMask vkCmdSetStencilCompareMaskPtr@@ -1222,7 +1223,7 @@                           ("writeMask" ::: Word32)                        -> io () cmdSetStencilWriteMask commandBuffer faceMask writeMask = liftIO $ do-  let vkCmdSetStencilWriteMaskPtr = pVkCmdSetStencilWriteMask (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetStencilWriteMaskPtr = pVkCmdSetStencilWriteMask (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetStencilWriteMaskPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetStencilWriteMask is null" Nothing Nothing   let vkCmdSetStencilWriteMask' = mkVkCmdSetStencilWriteMask vkCmdSetStencilWriteMaskPtr@@ -1310,7 +1311,7 @@                           ("reference" ::: Word32)                        -> io () cmdSetStencilReference commandBuffer faceMask reference = liftIO $ do-  let vkCmdSetStencilReferencePtr = pVkCmdSetStencilReference (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetStencilReferencePtr = pVkCmdSetStencilReference (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetStencilReferencePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetStencilReference is null" Nothing Nothing   let vkCmdSetStencilReference' = mkVkCmdSetStencilReference vkCmdSetStencilReferencePtr@@ -1530,7 +1531,7 @@                          ("dynamicOffsets" ::: Vector Word32)                       -> io () cmdBindDescriptorSets commandBuffer pipelineBindPoint layout firstSet descriptorSets dynamicOffsets = liftIO . evalContT $ do-  let vkCmdBindDescriptorSetsPtr = pVkCmdBindDescriptorSets (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBindDescriptorSetsPtr = pVkCmdBindDescriptorSets (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBindDescriptorSetsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBindDescriptorSets is null" Nothing Nothing   let vkCmdBindDescriptorSets' = mkVkCmdBindDescriptorSets vkCmdBindDescriptorSetsPtr@@ -1640,7 +1641,7 @@                       IndexType                    -> io () cmdBindIndexBuffer commandBuffer buffer offset indexType = liftIO $ do-  let vkCmdBindIndexBufferPtr = pVkCmdBindIndexBuffer (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBindIndexBufferPtr = pVkCmdBindIndexBuffer (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdBindIndexBufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBindIndexBuffer is null" Nothing Nothing   let vkCmdBindIndexBuffer' = mkVkCmdBindIndexBuffer vkCmdBindIndexBufferPtr@@ -1775,7 +1776,7 @@                         ("offsets" ::: Vector DeviceSize)                      -> io () cmdBindVertexBuffers commandBuffer firstBinding buffers offsets = liftIO . evalContT $ do-  let vkCmdBindVertexBuffersPtr = pVkCmdBindVertexBuffers (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBindVertexBuffersPtr = pVkCmdBindVertexBuffers (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBindVertexBuffersPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBindVertexBuffers is null" Nothing Nothing   let vkCmdBindVertexBuffers' = mkVkCmdBindVertexBuffers vkCmdBindVertexBuffersPtr@@ -2644,7 +2645,7 @@            ("firstInstance" ::: Word32)         -> io () cmdDraw commandBuffer vertexCount instanceCount firstVertex firstInstance = liftIO $ do-  let vkCmdDrawPtr = pVkCmdDraw (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawPtr = pVkCmdDraw (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDrawPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDraw is null" Nothing Nothing   let vkCmdDraw' = mkVkCmdDraw vkCmdDrawPtr@@ -3537,7 +3538,7 @@                   ("firstInstance" ::: Word32)                -> io () cmdDrawIndexed commandBuffer indexCount instanceCount firstIndex vertexOffset firstInstance = liftIO $ do-  let vkCmdDrawIndexedPtr = pVkCmdDrawIndexed (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawIndexedPtr = pVkCmdDrawIndexed (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDrawIndexedPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawIndexed is null" Nothing Nothing   let vkCmdDrawIndexed' = mkVkCmdDrawIndexed vkCmdDrawIndexedPtr@@ -4436,7 +4437,7 @@                    ("stride" ::: Word32)                 -> io () cmdDrawIndirect commandBuffer buffer offset drawCount stride = liftIO $ do-  let vkCmdDrawIndirectPtr = pVkCmdDrawIndirect (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawIndirectPtr = pVkCmdDrawIndirect (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDrawIndirectPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawIndirect is null" Nothing Nothing   let vkCmdDrawIndirect' = mkVkCmdDrawIndirect vkCmdDrawIndirectPtr@@ -5338,7 +5339,7 @@                           ("stride" ::: Word32)                        -> io () cmdDrawIndexedIndirect commandBuffer buffer offset drawCount stride = liftIO $ do-  let vkCmdDrawIndexedIndirectPtr = pVkCmdDrawIndexedIndirect (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawIndexedIndirectPtr = pVkCmdDrawIndexedIndirect (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDrawIndexedIndirectPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawIndexedIndirect is null" Nothing Nothing   let vkCmdDrawIndexedIndirect' = mkVkCmdDrawIndexedIndirect vkCmdDrawIndexedIndirectPtr@@ -5688,7 +5689,7 @@                ("groupCountZ" ::: Word32)             -> io () cmdDispatch commandBuffer groupCountX groupCountY groupCountZ = liftIO $ do-  let vkCmdDispatchPtr = pVkCmdDispatch (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDispatchPtr = pVkCmdDispatch (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDispatchPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDispatch is null" Nothing Nothing   let vkCmdDispatch' = mkVkCmdDispatch vkCmdDispatchPtr@@ -6030,7 +6031,7 @@                        ("offset" ::: DeviceSize)                     -> io () cmdDispatchIndirect commandBuffer buffer offset = liftIO $ do-  let vkCmdDispatchIndirectPtr = pVkCmdDispatchIndirect (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDispatchIndirectPtr = pVkCmdDispatchIndirect (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDispatchIndirectPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDispatchIndirect is null" Nothing Nothing   let vkCmdDispatchIndirect' = mkVkCmdDispatchIndirect vkCmdDispatchIndirectPtr@@ -6181,7 +6182,7 @@                  ("regions" ::: Vector BufferCopy)               -> io () cmdCopyBuffer commandBuffer srcBuffer dstBuffer regions = liftIO . evalContT $ do-  let vkCmdCopyBufferPtr = pVkCmdCopyBuffer (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyBufferPtr = pVkCmdCopyBuffer (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyBufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyBuffer is null" Nothing Nothing   let vkCmdCopyBuffer' = mkVkCmdCopyBuffer vkCmdCopyBufferPtr@@ -6730,7 +6731,7 @@                 ("regions" ::: Vector ImageCopy)              -> io () cmdCopyImage commandBuffer srcImage srcImageLayout dstImage dstImageLayout regions = liftIO . evalContT $ do-  let vkCmdCopyImagePtr = pVkCmdCopyImage (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyImagePtr = pVkCmdCopyImage (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyImagePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyImage is null" Nothing Nothing   let vkCmdCopyImage' = mkVkCmdCopyImage vkCmdCopyImagePtr@@ -7178,7 +7179,7 @@                 Filter              -> io () cmdBlitImage commandBuffer srcImage srcImageLayout dstImage dstImageLayout regions filter' = liftIO . evalContT $ do-  let vkCmdBlitImagePtr = pVkCmdBlitImage (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBlitImagePtr = pVkCmdBlitImage (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBlitImagePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBlitImage is null" Nothing Nothing   let vkCmdBlitImage' = mkVkCmdBlitImage vkCmdBlitImagePtr@@ -7529,7 +7530,7 @@                         ("regions" ::: Vector BufferImageCopy)                      -> io () cmdCopyBufferToImage commandBuffer srcBuffer dstImage dstImageLayout regions = liftIO . evalContT $ do-  let vkCmdCopyBufferToImagePtr = pVkCmdCopyBufferToImage (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyBufferToImagePtr = pVkCmdCopyBufferToImage (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyBufferToImagePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyBufferToImage is null" Nothing Nothing   let vkCmdCopyBufferToImage' = mkVkCmdCopyBufferToImage vkCmdCopyBufferToImagePtr@@ -7871,7 +7872,7 @@                         ("regions" ::: Vector BufferImageCopy)                      -> io () cmdCopyImageToBuffer commandBuffer srcImage srcImageLayout dstBuffer regions = liftIO . evalContT $ do-  let vkCmdCopyImageToBufferPtr = pVkCmdCopyImageToBuffer (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyImageToBufferPtr = pVkCmdCopyImageToBuffer (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyImageToBufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyImageToBuffer is null" Nothing Nothing   let vkCmdCopyImageToBuffer' = mkVkCmdCopyImageToBuffer vkCmdCopyImageToBufferPtr@@ -8032,7 +8033,7 @@                    ("data" ::: Ptr ())                 -> io () cmdUpdateBuffer commandBuffer dstBuffer dstOffset dataSize data' = liftIO $ do-  let vkCmdUpdateBufferPtr = pVkCmdUpdateBuffer (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdUpdateBufferPtr = pVkCmdUpdateBuffer (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdUpdateBufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdUpdateBuffer is null" Nothing Nothing   let vkCmdUpdateBuffer' = mkVkCmdUpdateBuffer vkCmdUpdateBufferPtr@@ -8168,7 +8169,7 @@                  ("data" ::: Word32)               -> io () cmdFillBuffer commandBuffer dstBuffer dstOffset size data' = liftIO $ do-  let vkCmdFillBufferPtr = pVkCmdFillBuffer (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdFillBufferPtr = pVkCmdFillBuffer (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdFillBufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdFillBuffer is null" Nothing Nothing   let vkCmdFillBuffer' = mkVkCmdFillBuffer vkCmdFillBufferPtr@@ -8356,7 +8357,7 @@                       ("ranges" ::: Vector ImageSubresourceRange)                    -> io () cmdClearColorImage commandBuffer image imageLayout color ranges = liftIO . evalContT $ do-  let vkCmdClearColorImagePtr = pVkCmdClearColorImage (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdClearColorImagePtr = pVkCmdClearColorImage (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdClearColorImagePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdClearColorImage is null" Nothing Nothing   let vkCmdClearColorImage' = mkVkCmdClearColorImage vkCmdClearColorImagePtr@@ -8577,7 +8578,7 @@                              ("ranges" ::: Vector ImageSubresourceRange)                           -> io () cmdClearDepthStencilImage commandBuffer image imageLayout depthStencil ranges = liftIO . evalContT $ do-  let vkCmdClearDepthStencilImagePtr = pVkCmdClearDepthStencilImage (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdClearDepthStencilImagePtr = pVkCmdClearDepthStencilImage (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdClearDepthStencilImagePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdClearDepthStencilImage is null" Nothing Nothing   let vkCmdClearDepthStencilImage' = mkVkCmdClearDepthStencilImage vkCmdClearDepthStencilImagePtr@@ -8759,7 +8760,7 @@                        ("rects" ::: Vector ClearRect)                     -> io () cmdClearAttachments commandBuffer attachments rects = liftIO . evalContT $ do-  let vkCmdClearAttachmentsPtr = pVkCmdClearAttachments (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdClearAttachmentsPtr = pVkCmdClearAttachments (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdClearAttachmentsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdClearAttachments is null" Nothing Nothing   let vkCmdClearAttachments' = mkVkCmdClearAttachments vkCmdClearAttachmentsPtr@@ -9040,7 +9041,7 @@                    ("regions" ::: Vector ImageResolve)                 -> io () cmdResolveImage commandBuffer srcImage srcImageLayout dstImage dstImageLayout regions = liftIO . evalContT $ do-  let vkCmdResolveImagePtr = pVkCmdResolveImage (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdResolveImagePtr = pVkCmdResolveImage (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdResolveImagePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdResolveImage is null" Nothing Nothing   let vkCmdResolveImage' = mkVkCmdResolveImage vkCmdResolveImagePtr@@ -9194,7 +9195,7 @@                ("stageMask" ::: PipelineStageFlags)             -> io () cmdSetEvent commandBuffer event stageMask = liftIO $ do-  let vkCmdSetEventPtr = pVkCmdSetEvent (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetEventPtr = pVkCmdSetEvent (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetEventPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetEvent is null" Nothing Nothing   let vkCmdSetEvent' = mkVkCmdSetEvent vkCmdSetEventPtr@@ -9354,7 +9355,7 @@                  ("stageMask" ::: PipelineStageFlags)               -> io () cmdResetEvent commandBuffer event stageMask = liftIO $ do-  let vkCmdResetEventPtr = pVkCmdResetEvent (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdResetEventPtr = pVkCmdResetEvent (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdResetEventPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdResetEvent is null" Nothing Nothing   let vkCmdResetEvent' = mkVkCmdResetEvent vkCmdResetEventPtr@@ -9403,7 +9404,7 @@                              ("imageMemoryBarriers" ::: Vector (SomeStruct ImageMemoryBarrier))                           -> io () cmdWaitEventsSafeOrUnsafe mkVkCmdWaitEvents commandBuffer events srcStageMask dstStageMask memoryBarriers bufferMemoryBarriers imageMemoryBarriers = liftIO . evalContT $ do-  let vkCmdWaitEventsPtr = pVkCmdWaitEvents (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdWaitEventsPtr = pVkCmdWaitEvents (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdWaitEventsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdWaitEvents is null" Nothing Nothing   let vkCmdWaitEvents' = mkVkCmdWaitEvents vkCmdWaitEventsPtr@@ -10200,7 +10201,7 @@                       ("imageMemoryBarriers" ::: Vector (SomeStruct ImageMemoryBarrier))                    -> io () cmdPipelineBarrier commandBuffer srcStageMask dstStageMask dependencyFlags memoryBarriers bufferMemoryBarriers imageMemoryBarriers = liftIO . evalContT $ do-  let vkCmdPipelineBarrierPtr = pVkCmdPipelineBarrier (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdPipelineBarrierPtr = pVkCmdPipelineBarrier (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdPipelineBarrierPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdPipelineBarrier is null" Nothing Nothing   let vkCmdPipelineBarrier' = mkVkCmdPipelineBarrier vkCmdPipelineBarrierPtr@@ -10427,7 +10428,7 @@                  QueryControlFlags               -> io () cmdBeginQuery commandBuffer queryPool query flags = liftIO $ do-  let vkCmdBeginQueryPtr = pVkCmdBeginQuery (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBeginQueryPtr = pVkCmdBeginQuery (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdBeginQueryPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBeginQuery is null" Nothing Nothing   let vkCmdBeginQuery' = mkVkCmdBeginQuery vkCmdBeginQueryPtr@@ -10556,7 +10557,7 @@                ("query" ::: Word32)             -> io () cmdEndQuery commandBuffer queryPool query = liftIO $ do-  let vkCmdEndQueryPtr = pVkCmdEndQuery (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdEndQueryPtr = pVkCmdEndQuery (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdEndQueryPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdEndQuery is null" Nothing Nothing   let vkCmdEndQuery' = mkVkCmdEndQuery vkCmdEndQueryPtr@@ -10676,7 +10677,7 @@                      ("queryCount" ::: Word32)                   -> io () cmdResetQueryPool commandBuffer queryPool firstQuery queryCount = liftIO $ do-  let vkCmdResetQueryPoolPtr = pVkCmdResetQueryPool (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdResetQueryPoolPtr = pVkCmdResetQueryPool (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdResetQueryPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdResetQueryPool is null" Nothing Nothing   let vkCmdResetQueryPool' = mkVkCmdResetQueryPool vkCmdResetQueryPoolPtr@@ -10872,7 +10873,7 @@                      ("query" ::: Word32)                   -> io () cmdWriteTimestamp commandBuffer pipelineStage queryPool query = liftIO $ do-  let vkCmdWriteTimestampPtr = pVkCmdWriteTimestamp (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdWriteTimestampPtr = pVkCmdWriteTimestamp (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdWriteTimestampPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdWriteTimestamp is null" Nothing Nothing   let vkCmdWriteTimestamp' = mkVkCmdWriteTimestamp vkCmdWriteTimestampPtr@@ -11107,7 +11108,7 @@                            QueryResultFlags                         -> io () cmdCopyQueryPoolResults commandBuffer queryPool firstQuery queryCount dstBuffer dstOffset stride flags = liftIO $ do-  let vkCmdCopyQueryPoolResultsPtr = pVkCmdCopyQueryPoolResults (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyQueryPoolResultsPtr = pVkCmdCopyQueryPoolResults (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdCopyQueryPoolResultsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyQueryPoolResults is null" Nothing Nothing   let vkCmdCopyQueryPoolResults' = mkVkCmdCopyQueryPoolResults vkCmdCopyQueryPoolResultsPtr@@ -11256,7 +11257,7 @@                     ("values" ::: Ptr ())                  -> io () cmdPushConstants commandBuffer layout stageFlags offset size values = liftIO $ do-  let vkCmdPushConstantsPtr = pVkCmdPushConstants (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdPushConstantsPtr = pVkCmdPushConstants (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdPushConstantsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdPushConstants is null" Nothing Nothing   let vkCmdPushConstants' = mkVkCmdPushConstants vkCmdPushConstantsPtr@@ -11472,7 +11473,7 @@                       SubpassContents                    -> io () cmdBeginRenderPass commandBuffer renderPassBegin contents = liftIO . evalContT $ do-  let vkCmdBeginRenderPassPtr = pVkCmdBeginRenderPass (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBeginRenderPassPtr = pVkCmdBeginRenderPass (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBeginRenderPassPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBeginRenderPass is null" Nothing Nothing   let vkCmdBeginRenderPass' = mkVkCmdBeginRenderPass vkCmdBeginRenderPassPtr@@ -11585,7 +11586,7 @@                   SubpassContents                -> io () cmdNextSubpass commandBuffer contents = liftIO $ do-  let vkCmdNextSubpassPtr = pVkCmdNextSubpass (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdNextSubpassPtr = pVkCmdNextSubpass (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdNextSubpassPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdNextSubpass is null" Nothing Nothing   let vkCmdNextSubpass' = mkVkCmdNextSubpass vkCmdNextSubpassPtr@@ -11667,7 +11668,7 @@                     CommandBuffer                  -> io () cmdEndRenderPass commandBuffer = liftIO $ do-  let vkCmdEndRenderPassPtr = pVkCmdEndRenderPass (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdEndRenderPassPtr = pVkCmdEndRenderPass (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdEndRenderPassPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdEndRenderPass is null" Nothing Nothing   let vkCmdEndRenderPass' = mkVkCmdEndRenderPass vkCmdEndRenderPassPtr@@ -12158,7 +12159,7 @@                       ("commandBuffers" ::: Vector CommandBuffer)                    -> io () cmdExecuteCommands commandBuffer commandBuffers = liftIO . evalContT $ do-  let vkCmdExecuteCommandsPtr = pVkCmdExecuteCommands (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdExecuteCommandsPtr = pVkCmdExecuteCommands (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdExecuteCommandsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdExecuteCommands is null" Nothing Nothing   let vkCmdExecuteCommands' = mkVkCmdExecuteCommands vkCmdExecuteCommandsPtr@@ -13199,7 +13200,7 @@  instance Extensible RenderPassBeginInfo where   extensibleTypeName = "RenderPassBeginInfo"-  setNext x next = x{next = next}+  setNext RenderPassBeginInfo{..} next' = RenderPassBeginInfo{next = next', ..}   getNext RenderPassBeginInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends RenderPassBeginInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/CommandPool.hs view
@@ -54,6 +54,7 @@ import Vulkan.Core10.Enums.CommandPoolResetFlagBits (CommandPoolResetFlags) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateCommandPool)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyCommandPool)) import Vulkan.Dynamic (DeviceCmds(pVkResetCommandPool))@@ -132,7 +133,7 @@                      ("allocator" ::: Maybe AllocationCallbacks)                   -> io (CommandPool) createCommandPool device createInfo allocator = liftIO . evalContT $ do-  let vkCreateCommandPoolPtr = pVkCreateCommandPool (deviceCmds (device :: Device))+  let vkCreateCommandPoolPtr = pVkCreateCommandPool (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateCommandPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateCommandPool is null" Nothing Nothing   let vkCreateCommandPool' = mkVkCreateCommandPool vkCreateCommandPoolPtr@@ -236,7 +237,7 @@                       ("allocator" ::: Maybe AllocationCallbacks)                    -> io () destroyCommandPool device commandPool allocator = liftIO . evalContT $ do-  let vkDestroyCommandPoolPtr = pVkDestroyCommandPool (deviceCmds (device :: Device))+  let vkDestroyCommandPoolPtr = pVkDestroyCommandPool (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyCommandPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyCommandPool is null" Nothing Nothing   let vkDestroyCommandPool' = mkVkDestroyCommandPool vkDestroyCommandPoolPtr@@ -326,7 +327,7 @@                     CommandPoolResetFlags                  -> io () resetCommandPool device commandPool flags = liftIO $ do-  let vkResetCommandPoolPtr = pVkResetCommandPool (deviceCmds (device :: Device))+  let vkResetCommandPoolPtr = pVkResetCommandPool (case device of Device{deviceCmds} -> deviceCmds)   unless (vkResetCommandPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkResetCommandPool is null" Nothing Nothing   let vkResetCommandPool' = mkVkResetCommandPool vkResetCommandPoolPtr
src/Vulkan/Core10/DescriptorSet.hs view
@@ -96,6 +96,7 @@ import Vulkan.Core10.Enums.DescriptorType (DescriptorType) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkAllocateDescriptorSets)) import Vulkan.Dynamic (DeviceCmds(pVkCreateDescriptorPool)) import Vulkan.Dynamic (DeviceCmds(pVkCreateDescriptorSetLayout))@@ -199,7 +200,7 @@                              ("allocator" ::: Maybe AllocationCallbacks)                           -> io (DescriptorSetLayout) createDescriptorSetLayout device createInfo allocator = liftIO . evalContT $ do-  let vkCreateDescriptorSetLayoutPtr = pVkCreateDescriptorSetLayout (deviceCmds (device :: Device))+  let vkCreateDescriptorSetLayoutPtr = pVkCreateDescriptorSetLayout (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateDescriptorSetLayoutPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateDescriptorSetLayout is null" Nothing Nothing   let vkCreateDescriptorSetLayout' = mkVkCreateDescriptorSetLayout vkCreateDescriptorSetLayoutPtr@@ -290,7 +291,7 @@                               ("allocator" ::: Maybe AllocationCallbacks)                            -> io () destroyDescriptorSetLayout device descriptorSetLayout allocator = liftIO . evalContT $ do-  let vkDestroyDescriptorSetLayoutPtr = pVkDestroyDescriptorSetLayout (deviceCmds (device :: Device))+  let vkDestroyDescriptorSetLayoutPtr = pVkDestroyDescriptorSetLayout (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyDescriptorSetLayoutPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyDescriptorSetLayout is null" Nothing Nothing   let vkDestroyDescriptorSetLayout' = mkVkDestroyDescriptorSetLayout vkDestroyDescriptorSetLayoutPtr@@ -364,7 +365,7 @@                         ("allocator" ::: Maybe AllocationCallbacks)                      -> io (DescriptorPool) createDescriptorPool device createInfo allocator = liftIO . evalContT $ do-  let vkCreateDescriptorPoolPtr = pVkCreateDescriptorPool (deviceCmds (device :: Device))+  let vkCreateDescriptorPoolPtr = pVkCreateDescriptorPool (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateDescriptorPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateDescriptorPool is null" Nothing Nothing   let vkCreateDescriptorPool' = mkVkCreateDescriptorPool vkCreateDescriptorPoolPtr@@ -463,7 +464,7 @@                          ("allocator" ::: Maybe AllocationCallbacks)                       -> io () destroyDescriptorPool device descriptorPool allocator = liftIO . evalContT $ do-  let vkDestroyDescriptorPoolPtr = pVkDestroyDescriptorPool (deviceCmds (device :: Device))+  let vkDestroyDescriptorPoolPtr = pVkDestroyDescriptorPool (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyDescriptorPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyDescriptorPool is null" Nothing Nothing   let vkDestroyDescriptorPool' = mkVkDestroyDescriptorPool vkDestroyDescriptorPoolPtr@@ -538,7 +539,7 @@                        DescriptorPoolResetFlags                     -> io () resetDescriptorPool device descriptorPool flags = liftIO $ do-  let vkResetDescriptorPoolPtr = pVkResetDescriptorPool (deviceCmds (device :: Device))+  let vkResetDescriptorPoolPtr = pVkResetDescriptorPool (case device of Device{deviceCmds} -> deviceCmds)   unless (vkResetDescriptorPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkResetDescriptorPool is null" Nothing Nothing   let vkResetDescriptorPool' = mkVkResetDescriptorPool vkResetDescriptorPoolPtr@@ -666,7 +667,7 @@                           (DescriptorSetAllocateInfo a)                        -> io (("descriptorSets" ::: Vector DescriptorSet)) allocateDescriptorSets device allocateInfo = liftIO . evalContT $ do-  let vkAllocateDescriptorSetsPtr = pVkAllocateDescriptorSets (deviceCmds (device :: Device))+  let vkAllocateDescriptorSetsPtr = pVkAllocateDescriptorSets (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkAllocateDescriptorSetsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAllocateDescriptorSets is null" Nothing Nothing   let vkAllocateDescriptorSets' = mkVkAllocateDescriptorSets vkAllocateDescriptorSetsPtr@@ -771,7 +772,7 @@                       ("descriptorSets" ::: Vector DescriptorSet)                    -> io () freeDescriptorSets device descriptorPool descriptorSets = liftIO . evalContT $ do-  let vkFreeDescriptorSetsPtr = pVkFreeDescriptorSets (deviceCmds (device :: Device))+  let vkFreeDescriptorSetsPtr = pVkFreeDescriptorSets (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkFreeDescriptorSetsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkFreeDescriptorSets is null" Nothing Nothing   let vkFreeDescriptorSets' = mkVkFreeDescriptorSets vkFreeDescriptorSetsPtr@@ -920,7 +921,7 @@                         ("descriptorCopies" ::: Vector CopyDescriptorSet)                      -> io () updateDescriptorSets device descriptorWrites descriptorCopies = liftIO . evalContT $ do-  let vkUpdateDescriptorSetsPtr = pVkUpdateDescriptorSets (deviceCmds (device :: Device))+  let vkUpdateDescriptorSetsPtr = pVkUpdateDescriptorSets (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkUpdateDescriptorSetsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkUpdateDescriptorSets is null" Nothing Nothing   let vkUpdateDescriptorSets' = mkVkUpdateDescriptorSets vkUpdateDescriptorSetsPtr@@ -1673,7 +1674,7 @@  instance Extensible WriteDescriptorSet where   extensibleTypeName = "WriteDescriptorSet"-  setNext x next = x{next = next}+  setNext WriteDescriptorSet{..} next' = WriteDescriptorSet{next = next', ..}   getNext WriteDescriptorSet{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends WriteDescriptorSet e => b) -> Maybe b   extends _ f@@ -2365,7 +2366,7 @@  instance Extensible DescriptorSetLayoutCreateInfo where   extensibleTypeName = "DescriptorSetLayoutCreateInfo"-  setNext x next = x{next = next}+  setNext DescriptorSetLayoutCreateInfo{..} next' = DescriptorSetLayoutCreateInfo{next = next', ..}   getNext DescriptorSetLayoutCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends DescriptorSetLayoutCreateInfo e => b) -> Maybe b   extends _ f@@ -2661,7 +2662,7 @@  instance Extensible DescriptorPoolCreateInfo where   extensibleTypeName = "DescriptorPoolCreateInfo"-  setNext x next = x{next = next}+  setNext DescriptorPoolCreateInfo{..} next' = DescriptorPoolCreateInfo{next = next', ..}   getNext DescriptorPoolCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends DescriptorPoolCreateInfo e => b) -> Maybe b   extends _ f@@ -2789,7 +2790,7 @@  instance Extensible DescriptorSetAllocateInfo where   extensibleTypeName = "DescriptorSetAllocateInfo"-  setNext x next = x{next = next}+  setNext DescriptorSetAllocateInfo{..} next' = DescriptorSetAllocateInfo{next = next', ..}   getNext DescriptorSetAllocateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends DescriptorSetAllocateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/Device.hs view
@@ -87,6 +87,7 @@ import Vulkan.CStruct.Extends (PeekChain(..)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import {-# SOURCE #-} Vulkan.Core11.Promoted_From_VK_KHR_16bit_storage (PhysicalDevice16BitStorageFeatures) import {-# SOURCE #-} Vulkan.Extensions.VK_EXT_4444_formats (PhysicalDevice4444FormatsFeaturesEXT) import {-# SOURCE #-} Vulkan.Core12.Promoted_From_VK_KHR_8bit_storage (PhysicalDevice8BitStorageFeatures)@@ -307,7 +308,7 @@                 ("allocator" ::: Maybe AllocationCallbacks)              -> io (Device) createDevice physicalDevice createInfo allocator = liftIO . evalContT $ do-  let cmds = instanceCmds (physicalDevice :: PhysicalDevice)+  let cmds = case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds   let vkCreateDevicePtr = pVkCreateDevice cmds   lift $ unless (vkCreateDevicePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateDevice is null" Nothing Nothing@@ -407,7 +408,7 @@                  ("allocator" ::: Maybe AllocationCallbacks)               -> io () destroyDevice device allocator = liftIO . evalContT $ do-  let vkDestroyDevicePtr = pVkDestroyDevice (deviceCmds (device :: Device))+  let vkDestroyDevicePtr = pVkDestroyDevice (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyDevicePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyDevice is null" Nothing Nothing   let vkDestroyDevice' = mkVkDestroyDevice vkDestroyDevicePtr@@ -506,7 +507,7 @@  instance Extensible DeviceQueueCreateInfo where   extensibleTypeName = "DeviceQueueCreateInfo"-  setNext x next = x{next = next}+  setNext DeviceQueueCreateInfo{..} next' = DeviceQueueCreateInfo{next = next', ..}   getNext DeviceQueueCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends DeviceQueueCreateInfo e => b) -> Maybe b   extends _ f@@ -925,7 +926,7 @@  instance Extensible DeviceCreateInfo where   extensibleTypeName = "DeviceCreateInfo"-  setNext x next = x{next = next}+  setNext DeviceCreateInfo{..} next' = DeviceCreateInfo{next = next', ..}   getNext DeviceCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends DeviceCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/DeviceInitialization.hs view
@@ -139,6 +139,7 @@ import {-# SOURCE #-} Vulkan.Extensions.VK_EXT_debug_utils (DebugUtilsMessengerCreateInfoEXT) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetDeviceProcAddr)) import Vulkan.Core10.FundamentalTypes (DeviceSize) import Vulkan.Core10.Handles (Device_T)@@ -402,7 +403,7 @@                    ("allocator" ::: Maybe AllocationCallbacks)                 -> io () destroyInstance instance' allocator = liftIO . evalContT $ do-  let vkDestroyInstancePtr = pVkDestroyInstance (instanceCmds (instance' :: Instance))+  let vkDestroyInstancePtr = pVkDestroyInstance (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkDestroyInstancePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyInstance is null" Nothing Nothing   let vkDestroyInstance' = mkVkDestroyInstance vkDestroyInstancePtr@@ -478,7 +479,7 @@                             Instance                          -> io (Result, ("physicalDevices" ::: Vector PhysicalDevice)) enumeratePhysicalDevices instance' = liftIO . evalContT $ do-  let cmds = instanceCmds (instance' :: Instance)+  let cmds = case instance' of Instance{instanceCmds} -> instanceCmds   let vkEnumeratePhysicalDevicesPtr = pVkEnumeratePhysicalDevices cmds   lift $ unless (vkEnumeratePhysicalDevicesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkEnumeratePhysicalDevices is null" Nothing Nothing@@ -580,7 +581,7 @@                      ("name" ::: ByteString)                   -> io (PFN_vkVoidFunction) getDeviceProcAddr device name = liftIO . evalContT $ do-  let vkGetDeviceProcAddrPtr = pVkGetDeviceProcAddr (deviceCmds (device :: Device))+  let vkGetDeviceProcAddrPtr = pVkGetDeviceProcAddr (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceProcAddrPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceProcAddr is null" Nothing Nothing   let vkGetDeviceProcAddr' = mkVkGetDeviceProcAddr vkGetDeviceProcAddrPtr@@ -698,7 +699,7 @@                        ("name" ::: ByteString)                     -> io (PFN_vkVoidFunction) getInstanceProcAddr instance' name = liftIO . evalContT $ do-  let vkGetInstanceProcAddrPtr = pVkGetInstanceProcAddr (instanceCmds (instance' :: Instance))+  let vkGetInstanceProcAddrPtr = pVkGetInstanceProcAddr (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkGetInstanceProcAddrPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetInstanceProcAddr is null" Nothing Nothing   let vkGetInstanceProcAddr' = mkVkGetInstanceProcAddr vkGetInstanceProcAddrPtr@@ -733,7 +734,7 @@                                PhysicalDevice                             -> io (PhysicalDeviceProperties) getPhysicalDeviceProperties physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDevicePropertiesPtr = pVkGetPhysicalDeviceProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDevicePropertiesPtr = pVkGetPhysicalDeviceProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDevicePropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceProperties is null" Nothing Nothing   let vkGetPhysicalDeviceProperties' = mkVkGetPhysicalDeviceProperties vkGetPhysicalDevicePropertiesPtr@@ -793,7 +794,7 @@                                           PhysicalDevice                                        -> io (("queueFamilyProperties" ::: Vector QueueFamilyProperties)) getPhysicalDeviceQueueFamilyProperties physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceQueueFamilyPropertiesPtr = pVkGetPhysicalDeviceQueueFamilyProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceQueueFamilyPropertiesPtr = pVkGetPhysicalDeviceQueueFamilyProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceQueueFamilyPropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceQueueFamilyProperties is null" Nothing Nothing   let vkGetPhysicalDeviceQueueFamilyProperties' = mkVkGetPhysicalDeviceQueueFamilyProperties vkGetPhysicalDeviceQueueFamilyPropertiesPtr@@ -835,7 +836,7 @@                                      PhysicalDevice                                   -> io (PhysicalDeviceMemoryProperties) getPhysicalDeviceMemoryProperties physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceMemoryPropertiesPtr = pVkGetPhysicalDeviceMemoryProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceMemoryPropertiesPtr = pVkGetPhysicalDeviceMemoryProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceMemoryPropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceMemoryProperties is null" Nothing Nothing   let vkGetPhysicalDeviceMemoryProperties' = mkVkGetPhysicalDeviceMemoryProperties vkGetPhysicalDeviceMemoryPropertiesPtr@@ -871,7 +872,7 @@                              PhysicalDevice                           -> io (PhysicalDeviceFeatures) getPhysicalDeviceFeatures physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceFeaturesPtr = pVkGetPhysicalDeviceFeatures (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceFeaturesPtr = pVkGetPhysicalDeviceFeatures (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceFeaturesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceFeatures is null" Nothing Nothing   let vkGetPhysicalDeviceFeatures' = mkVkGetPhysicalDeviceFeatures vkGetPhysicalDeviceFeaturesPtr@@ -914,7 +915,7 @@                                      Format                                   -> io (FormatProperties) getPhysicalDeviceFormatProperties physicalDevice format = liftIO . evalContT $ do-  let vkGetPhysicalDeviceFormatPropertiesPtr = pVkGetPhysicalDeviceFormatProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceFormatPropertiesPtr = pVkGetPhysicalDeviceFormatProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceFormatPropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceFormatProperties is null" Nothing Nothing   let vkGetPhysicalDeviceFormatProperties' = mkVkGetPhysicalDeviceFormatProperties vkGetPhysicalDeviceFormatPropertiesPtr@@ -1042,7 +1043,7 @@                                           ImageCreateFlags                                        -> io (ImageFormatProperties) getPhysicalDeviceImageFormatProperties physicalDevice format type' tiling usage flags = liftIO . evalContT $ do-  let vkGetPhysicalDeviceImageFormatPropertiesPtr = pVkGetPhysicalDeviceImageFormatProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceImageFormatPropertiesPtr = pVkGetPhysicalDeviceImageFormatProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceImageFormatPropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceImageFormatProperties is null" Nothing Nothing   let vkGetPhysicalDeviceImageFormatProperties' = mkVkGetPhysicalDeviceImageFormatProperties vkGetPhysicalDeviceImageFormatPropertiesPtr@@ -1507,7 +1508,7 @@  instance Extensible InstanceCreateInfo where   extensibleTypeName = "InstanceCreateInfo"-  setNext x next = x{next = next}+  setNext InstanceCreateInfo{..} next' = InstanceCreateInfo{next = next', ..}   getNext InstanceCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends InstanceCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/Event.hs view
@@ -48,6 +48,7 @@ import Vulkan.Core10.AllocationCallbacks (AllocationCallbacks) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateEvent)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyEvent)) import Vulkan.Dynamic (DeviceCmds(pVkGetEventStatus))@@ -135,7 +136,7 @@                ("allocator" ::: Maybe AllocationCallbacks)             -> io (Event) createEvent device createInfo allocator = liftIO . evalContT $ do-  let vkCreateEventPtr = pVkCreateEvent (deviceCmds (device :: Device))+  let vkCreateEventPtr = pVkCreateEvent (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateEventPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateEvent is null" Nothing Nothing   let vkCreateEvent' = mkVkCreateEvent vkCreateEventPtr@@ -223,7 +224,7 @@                 ("allocator" ::: Maybe AllocationCallbacks)              -> io () destroyEvent device event allocator = liftIO . evalContT $ do-  let vkDestroyEventPtr = pVkDestroyEvent (deviceCmds (device :: Device))+  let vkDestroyEventPtr = pVkDestroyEvent (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyEventPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyEvent is null" Nothing Nothing   let vkDestroyEvent' = mkVkDestroyEvent vkDestroyEventPtr@@ -313,7 +314,7 @@                   Event                -> io (Result) getEventStatus device event = liftIO $ do-  let vkGetEventStatusPtr = pVkGetEventStatus (deviceCmds (device :: Device))+  let vkGetEventStatusPtr = pVkGetEventStatus (case device of Device{deviceCmds} -> deviceCmds)   unless (vkGetEventStatusPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetEventStatus is null" Nothing Nothing   let vkGetEventStatus' = mkVkGetEventStatus vkGetEventStatusPtr@@ -384,7 +385,7 @@             Event          -> io () setEvent device event = liftIO $ do-  let vkSetEventPtr = pVkSetEvent (deviceCmds (device :: Device))+  let vkSetEventPtr = pVkSetEvent (case device of Device{deviceCmds} -> deviceCmds)   unless (vkSetEventPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSetEvent is null" Nothing Nothing   let vkSetEvent' = mkVkSetEvent vkSetEventPtr@@ -463,7 +464,7 @@               Event            -> io () resetEvent device event = liftIO $ do-  let vkResetEventPtr = pVkResetEvent (deviceCmds (device :: Device))+  let vkResetEventPtr = pVkResetEvent (case device of Device{deviceCmds} -> deviceCmds)   unless (vkResetEventPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkResetEvent is null" Nothing Nothing   let vkResetEvent' = mkVkResetEvent vkResetEventPtr
src/Vulkan/Core10/ExtensionDiscovery.hs view
@@ -57,6 +57,7 @@ import Vulkan.Core10.APIConstants (MAX_EXTENSION_NAME_SIZE) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -230,7 +231,7 @@                                       ("layerName" ::: Maybe ByteString)                                    -> io (Result, ("properties" ::: Vector ExtensionProperties)) enumerateDeviceExtensionProperties physicalDevice layerName = liftIO . evalContT $ do-  let vkEnumerateDeviceExtensionPropertiesPtr = pVkEnumerateDeviceExtensionProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkEnumerateDeviceExtensionPropertiesPtr = pVkEnumerateDeviceExtensionProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkEnumerateDeviceExtensionPropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkEnumerateDeviceExtensionProperties is null" Nothing Nothing   let vkEnumerateDeviceExtensionProperties' = mkVkEnumerateDeviceExtensionProperties vkEnumerateDeviceExtensionPropertiesPtr
src/Vulkan/Core10/Fence.hs view
@@ -60,6 +60,7 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateFence)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyFence)) import Vulkan.Dynamic (DeviceCmds(pVkGetFenceStatus))@@ -143,7 +144,7 @@                ("allocator" ::: Maybe AllocationCallbacks)             -> io (Fence) createFence device createInfo allocator = liftIO . evalContT $ do-  let vkCreateFencePtr = pVkCreateFence (deviceCmds (device :: Device))+  let vkCreateFencePtr = pVkCreateFence (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateFencePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateFence is null" Nothing Nothing   let vkCreateFence' = mkVkCreateFence vkCreateFencePtr@@ -232,7 +233,7 @@                 ("allocator" ::: Maybe AllocationCallbacks)              -> io () destroyFence device fence allocator = liftIO . evalContT $ do-  let vkDestroyFencePtr = pVkDestroyFence (deviceCmds (device :: Device))+  let vkDestroyFencePtr = pVkDestroyFence (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyFencePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyFence is null" Nothing Nothing   let vkDestroyFence' = mkVkDestroyFence vkDestroyFencePtr@@ -316,7 +317,7 @@                ("fences" ::: Vector Fence)             -> io () resetFences device fences = liftIO . evalContT $ do-  let vkResetFencesPtr = pVkResetFences (deviceCmds (device :: Device))+  let vkResetFencesPtr = pVkResetFences (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkResetFencesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkResetFences is null" Nothing Nothing   let vkResetFences' = mkVkResetFences vkResetFencesPtr@@ -402,7 +403,7 @@                   Fence                -> io (Result) getFenceStatus device fence = liftIO $ do-  let vkGetFenceStatusPtr = pVkGetFenceStatus (deviceCmds (device :: Device))+  let vkGetFenceStatusPtr = pVkGetFenceStatus (case device of Device{deviceCmds} -> deviceCmds)   unless (vkGetFenceStatusPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetFenceStatus is null" Nothing Nothing   let vkGetFenceStatus' = mkVkGetFenceStatus vkGetFenceStatusPtr@@ -443,7 +444,7 @@                              ("timeout" ::: Word64)                           -> io (Result) waitForFencesSafeOrUnsafe mkVkWaitForFences device fences waitAll timeout = liftIO . evalContT $ do-  let vkWaitForFencesPtr = pVkWaitForFences (deviceCmds (device :: Device))+  let vkWaitForFencesPtr = pVkWaitForFences (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkWaitForFencesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkWaitForFences is null" Nothing Nothing   let vkWaitForFences' = mkVkWaitForFences vkWaitForFencesPtr@@ -609,7 +610,7 @@  instance Extensible FenceCreateInfo where   extensibleTypeName = "FenceCreateInfo"-  setNext x next = x{next = next}+  setNext FenceCreateInfo{..} next' = FenceCreateInfo{next = next', ..}   getNext FenceCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends FenceCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/Image.hs view
@@ -59,6 +59,7 @@ import {-# SOURCE #-} Vulkan.Extensions.VK_NV_dedicated_allocation (DedicatedAllocationImageCreateInfoNV) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateImage)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyImage)) import Vulkan.Dynamic (DeviceCmds(pVkGetImageSubresourceLayout))@@ -172,7 +173,7 @@                ("allocator" ::: Maybe AllocationCallbacks)             -> io (Image) createImage device createInfo allocator = liftIO . evalContT $ do-  let vkCreateImagePtr = pVkCreateImage (deviceCmds (device :: Device))+  let vkCreateImagePtr = pVkCreateImage (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateImagePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateImage is null" Nothing Nothing   let vkCreateImage' = mkVkCreateImage vkCreateImagePtr@@ -265,7 +266,7 @@                 ("allocator" ::: Maybe AllocationCallbacks)              -> io () destroyImage device image allocator = liftIO . evalContT $ do-  let vkDestroyImagePtr = pVkDestroyImage (deviceCmds (device :: Device))+  let vkDestroyImagePtr = pVkDestroyImage (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyImagePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyImage is null" Nothing Nothing   let vkDestroyImage' = mkVkDestroyImage vkDestroyImagePtr@@ -427,7 +428,7 @@                              ImageSubresource                           -> io (SubresourceLayout) getImageSubresourceLayout device image subresource = liftIO . evalContT $ do-  let vkGetImageSubresourceLayoutPtr = pVkGetImageSubresourceLayout (deviceCmds (device :: Device))+  let vkGetImageSubresourceLayoutPtr = pVkGetImageSubresourceLayout (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetImageSubresourceLayoutPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetImageSubresourceLayout is null" Nothing Nothing   let vkGetImageSubresourceLayout' = mkVkGetImageSubresourceLayout vkGetImageSubresourceLayoutPtr@@ -1486,7 +1487,7 @@  instance Extensible ImageCreateInfo where   extensibleTypeName = "ImageCreateInfo"-  setNext x next = x{next = next}+  setNext ImageCreateInfo{..} next' = ImageCreateInfo{next = next', ..}   getNext ImageCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends ImageCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/ImageView.hs view
@@ -56,6 +56,7 @@ import Vulkan.Core10.Enums.ComponentSwizzle (ComponentSwizzle) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateImageView)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyImageView)) import Vulkan.Core10.Handles (Device_T)@@ -144,7 +145,7 @@                    ("allocator" ::: Maybe AllocationCallbacks)                 -> io (ImageView) createImageView device createInfo allocator = liftIO . evalContT $ do-  let vkCreateImageViewPtr = pVkCreateImageView (deviceCmds (device :: Device))+  let vkCreateImageViewPtr = pVkCreateImageView (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateImageViewPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateImageView is null" Nothing Nothing   let vkCreateImageView' = mkVkCreateImageView vkCreateImageViewPtr@@ -233,7 +234,7 @@                     ("allocator" ::: Maybe AllocationCallbacks)                  -> io () destroyImageView device imageView allocator = liftIO . evalContT $ do-  let vkDestroyImageViewPtr = pVkDestroyImageView (deviceCmds (device :: Device))+  let vkDestroyImageViewPtr = pVkDestroyImageView (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyImageViewPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyImageView is null" Nothing Nothing   let vkDestroyImageView' = mkVkDestroyImageView vkDestroyImageViewPtr@@ -1193,7 +1194,7 @@  instance Extensible ImageViewCreateInfo where   extensibleTypeName = "ImageViewCreateInfo"-  setNext x next = x{next = next}+  setNext ImageViewCreateInfo{..} next' = ImageViewCreateInfo{next = next', ..}   getNext ImageViewCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends ImageViewCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/LayerDiscovery.hs view
@@ -56,6 +56,7 @@ import Vulkan.Core10.APIConstants (MAX_EXTENSION_NAME_SIZE) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -209,7 +210,7 @@                                   PhysicalDevice                                -> io (Result, ("properties" ::: Vector LayerProperties)) enumerateDeviceLayerProperties physicalDevice = liftIO . evalContT $ do-  let vkEnumerateDeviceLayerPropertiesPtr = pVkEnumerateDeviceLayerProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkEnumerateDeviceLayerPropertiesPtr = pVkEnumerateDeviceLayerProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkEnumerateDeviceLayerPropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkEnumerateDeviceLayerProperties is null" Nothing Nothing   let vkEnumerateDeviceLayerProperties' = mkVkEnumerateDeviceLayerProperties vkEnumerateDeviceLayerPropertiesPtr
src/Vulkan/Core10/Memory.hs view
@@ -60,6 +60,7 @@ import {-# SOURCE #-} Vulkan.Extensions.VK_NV_dedicated_allocation (DedicatedAllocationMemoryAllocateInfoNV) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkAllocateMemory)) import Vulkan.Dynamic (DeviceCmds(pVkFlushMappedMemoryRanges)) import Vulkan.Dynamic (DeviceCmds(pVkFreeMemory))@@ -289,7 +290,7 @@                   ("allocator" ::: Maybe AllocationCallbacks)                -> io (DeviceMemory) allocateMemory device allocateInfo allocator = liftIO . evalContT $ do-  let vkAllocateMemoryPtr = pVkAllocateMemory (deviceCmds (device :: Device))+  let vkAllocateMemoryPtr = pVkAllocateMemory (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkAllocateMemoryPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAllocateMemory is null" Nothing Nothing   let vkAllocateMemory' = mkVkAllocateMemory vkAllocateMemoryPtr@@ -397,7 +398,7 @@               ("allocator" ::: Maybe AllocationCallbacks)            -> io () freeMemory device memory allocator = liftIO . evalContT $ do-  let vkFreeMemoryPtr = pVkFreeMemory (deviceCmds (device :: Device))+  let vkFreeMemoryPtr = pVkFreeMemory (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkFreeMemoryPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkFreeMemory is null" Nothing Nothing   let vkFreeMemory' = mkVkFreeMemory vkFreeMemoryPtr@@ -546,7 +547,7 @@              MemoryMapFlags           -> io (("data" ::: Ptr ())) mapMemory device memory offset size flags = liftIO . evalContT $ do-  let vkMapMemoryPtr = pVkMapMemory (deviceCmds (device :: Device))+  let vkMapMemoryPtr = pVkMapMemory (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkMapMemoryPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkMapMemory is null" Nothing Nothing   let vkMapMemory' = mkVkMapMemory vkMapMemoryPtr@@ -611,7 +612,7 @@                DeviceMemory             -> io () unmapMemory device memory = liftIO $ do-  let vkUnmapMemoryPtr = pVkUnmapMemory (deviceCmds (device :: Device))+  let vkUnmapMemoryPtr = pVkUnmapMemory (case device of Device{deviceCmds} -> deviceCmds)   unless (vkUnmapMemoryPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkUnmapMemory is null" Nothing Nothing   let vkUnmapMemory' = mkVkUnmapMemory vkUnmapMemoryPtr@@ -690,7 +691,7 @@                            ("memoryRanges" ::: Vector MappedMemoryRange)                         -> io () flushMappedMemoryRanges device memoryRanges = liftIO . evalContT $ do-  let vkFlushMappedMemoryRangesPtr = pVkFlushMappedMemoryRanges (deviceCmds (device :: Device))+  let vkFlushMappedMemoryRangesPtr = pVkFlushMappedMemoryRanges (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkFlushMappedMemoryRangesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkFlushMappedMemoryRanges is null" Nothing Nothing   let vkFlushMappedMemoryRanges' = mkVkFlushMappedMemoryRanges vkFlushMappedMemoryRangesPtr@@ -763,7 +764,7 @@                                 ("memoryRanges" ::: Vector MappedMemoryRange)                              -> io () invalidateMappedMemoryRanges device memoryRanges = liftIO . evalContT $ do-  let vkInvalidateMappedMemoryRangesPtr = pVkInvalidateMappedMemoryRanges (deviceCmds (device :: Device))+  let vkInvalidateMappedMemoryRangesPtr = pVkInvalidateMappedMemoryRanges (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkInvalidateMappedMemoryRangesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkInvalidateMappedMemoryRanges is null" Nothing Nothing   let vkInvalidateMappedMemoryRanges' = mkVkInvalidateMappedMemoryRanges vkInvalidateMappedMemoryRangesPtr@@ -820,7 +821,7 @@                              DeviceMemory                           -> io (("committedMemoryInBytes" ::: DeviceSize)) getDeviceMemoryCommitment device memory = liftIO . evalContT $ do-  let vkGetDeviceMemoryCommitmentPtr = pVkGetDeviceMemoryCommitment (deviceCmds (device :: Device))+  let vkGetDeviceMemoryCommitmentPtr = pVkGetDeviceMemoryCommitment (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceMemoryCommitmentPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceMemoryCommitment is null" Nothing Nothing   let vkGetDeviceMemoryCommitment' = mkVkGetDeviceMemoryCommitment vkGetDeviceMemoryCommitmentPtr@@ -1314,7 +1315,7 @@  instance Extensible MemoryAllocateInfo where   extensibleTypeName = "MemoryAllocateInfo"-  setNext x next = x{next = next}+  setNext MemoryAllocateInfo{..} next' = MemoryAllocateInfo{next = next', ..}   getNext MemoryAllocateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends MemoryAllocateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/MemoryManagement.hs view
@@ -42,6 +42,7 @@ import Vulkan.Core10.Handles (Buffer(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkBindBufferMemory)) import Vulkan.Dynamic (DeviceCmds(pVkBindImageMemory)) import Vulkan.Dynamic (DeviceCmds(pVkGetBufferMemoryRequirements))@@ -91,7 +92,7 @@                                Buffer                             -> io (MemoryRequirements) getBufferMemoryRequirements device buffer = liftIO . evalContT $ do-  let vkGetBufferMemoryRequirementsPtr = pVkGetBufferMemoryRequirements (deviceCmds (device :: Device))+  let vkGetBufferMemoryRequirementsPtr = pVkGetBufferMemoryRequirements (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetBufferMemoryRequirementsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetBufferMemoryRequirements is null" Nothing Nothing   let vkGetBufferMemoryRequirements' = mkVkGetBufferMemoryRequirements vkGetBufferMemoryRequirementsPtr@@ -280,7 +281,7 @@                     ("memoryOffset" ::: DeviceSize)                  -> io () bindBufferMemory device buffer memory memoryOffset = liftIO $ do-  let vkBindBufferMemoryPtr = pVkBindBufferMemory (deviceCmds (device :: Device))+  let vkBindBufferMemoryPtr = pVkBindBufferMemory (case device of Device{deviceCmds} -> deviceCmds)   unless (vkBindBufferMemoryPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkBindBufferMemory is null" Nothing Nothing   let vkBindBufferMemory' = mkVkBindBufferMemory vkBindBufferMemoryPtr@@ -338,7 +339,7 @@                               Image                            -> io (MemoryRequirements) getImageMemoryRequirements device image = liftIO . evalContT $ do-  let vkGetImageMemoryRequirementsPtr = pVkGetImageMemoryRequirements (deviceCmds (device :: Device))+  let vkGetImageMemoryRequirementsPtr = pVkGetImageMemoryRequirements (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetImageMemoryRequirementsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetImageMemoryRequirements is null" Nothing Nothing   let vkGetImageMemoryRequirements' = mkVkGetImageMemoryRequirements vkGetImageMemoryRequirementsPtr@@ -542,7 +543,7 @@                    ("memoryOffset" ::: DeviceSize)                 -> io () bindImageMemory device image memory memoryOffset = liftIO $ do-  let vkBindImageMemoryPtr = pVkBindImageMemory (deviceCmds (device :: Device))+  let vkBindImageMemoryPtr = pVkBindImageMemory (case device of Device{deviceCmds} -> deviceCmds)   unless (vkBindImageMemoryPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkBindImageMemory is null" Nothing Nothing   let vkBindImageMemory' = mkVkBindImageMemory vkBindImageMemoryPtr
src/Vulkan/Core10/OtherTypes.hs view
@@ -760,7 +760,7 @@  instance Extensible ImageMemoryBarrier where   extensibleTypeName = "ImageMemoryBarrier"-  setNext x next = x{next = next}+  setNext ImageMemoryBarrier{..} next' = ImageMemoryBarrier{next = next', ..}   getNext ImageMemoryBarrier{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends ImageMemoryBarrier e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/Pass.hs view
@@ -86,6 +86,7 @@ import Vulkan.Core10.Enums.DependencyFlagBits (DependencyFlags) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateFramebuffer)) import Vulkan.Dynamic (DeviceCmds(pVkCreateRenderPass)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyFramebuffer))@@ -207,7 +208,7 @@                      ("allocator" ::: Maybe AllocationCallbacks)                   -> io (Framebuffer) createFramebuffer device createInfo allocator = liftIO . evalContT $ do-  let vkCreateFramebufferPtr = pVkCreateFramebuffer (deviceCmds (device :: Device))+  let vkCreateFramebufferPtr = pVkCreateFramebuffer (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateFramebufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateFramebuffer is null" Nothing Nothing   let vkCreateFramebuffer' = mkVkCreateFramebuffer vkCreateFramebufferPtr@@ -297,7 +298,7 @@                       ("allocator" ::: Maybe AllocationCallbacks)                    -> io () destroyFramebuffer device framebuffer allocator = liftIO . evalContT $ do-  let vkDestroyFramebufferPtr = pVkDestroyFramebuffer (deviceCmds (device :: Device))+  let vkDestroyFramebufferPtr = pVkDestroyFramebuffer (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyFramebufferPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyFramebuffer is null" Nothing Nothing   let vkDestroyFramebuffer' = mkVkDestroyFramebuffer vkDestroyFramebufferPtr@@ -363,7 +364,7 @@                     ("allocator" ::: Maybe AllocationCallbacks)                  -> io (RenderPass) createRenderPass device createInfo allocator = liftIO . evalContT $ do-  let vkCreateRenderPassPtr = pVkCreateRenderPass (deviceCmds (device :: Device))+  let vkCreateRenderPassPtr = pVkCreateRenderPass (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateRenderPassPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateRenderPass is null" Nothing Nothing   let vkCreateRenderPass' = mkVkCreateRenderPass vkCreateRenderPassPtr@@ -453,7 +454,7 @@                      ("allocator" ::: Maybe AllocationCallbacks)                   -> io () destroyRenderPass device renderPass allocator = liftIO . evalContT $ do-  let vkDestroyRenderPassPtr = pVkDestroyRenderPass (deviceCmds (device :: Device))+  let vkDestroyRenderPassPtr = pVkDestroyRenderPass (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyRenderPassPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyRenderPass is null" Nothing Nothing   let vkDestroyRenderPass' = mkVkDestroyRenderPass vkDestroyRenderPassPtr@@ -532,7 +533,7 @@                             RenderPass                          -> io (("granularity" ::: Extent2D)) getRenderAreaGranularity device renderPass = liftIO . evalContT $ do-  let vkGetRenderAreaGranularityPtr = pVkGetRenderAreaGranularity (deviceCmds (device :: Device))+  let vkGetRenderAreaGranularityPtr = pVkGetRenderAreaGranularity (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetRenderAreaGranularityPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetRenderAreaGranularity is null" Nothing Nothing   let vkGetRenderAreaGranularity' = mkVkGetRenderAreaGranularity vkGetRenderAreaGranularityPtr@@ -1978,7 +1979,7 @@  instance Extensible RenderPassCreateInfo where   extensibleTypeName = "RenderPassCreateInfo"-  setNext x next = x{next = next}+  setNext RenderPassCreateInfo{..} next' = RenderPassCreateInfo{next = next', ..}   getNext RenderPassCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends RenderPassCreateInfo e => b) -> Maybe b   extends _ f@@ -2609,7 +2610,7 @@  instance Extensible FramebufferCreateInfo where   extensibleTypeName = "FramebufferCreateInfo"-  setNext x next = x{next = next}+  setNext FramebufferCreateInfo{..} next' = FramebufferCreateInfo{next = next', ..}   getNext FramebufferCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends FramebufferCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/Pipeline.hs view
@@ -136,6 +136,7 @@ import Vulkan.Core10.Enums.CullModeFlagBits (CullModeFlags) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateComputePipelines)) import Vulkan.Dynamic (DeviceCmds(pVkCreateGraphicsPipelines)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyPipeline))@@ -376,7 +377,7 @@                            ("allocator" ::: Maybe AllocationCallbacks)                         -> io (Result, ("pipelines" ::: Vector Pipeline)) createGraphicsPipelines device pipelineCache createInfos allocator = liftIO . evalContT $ do-  let vkCreateGraphicsPipelinesPtr = pVkCreateGraphicsPipelines (deviceCmds (device :: Device))+  let vkCreateGraphicsPipelinesPtr = pVkCreateGraphicsPipelines (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateGraphicsPipelinesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateGraphicsPipelines is null" Nothing Nothing   let vkCreateGraphicsPipelines' = mkVkCreateGraphicsPipelines vkCreateGraphicsPipelinesPtr@@ -506,7 +507,7 @@                           ("allocator" ::: Maybe AllocationCallbacks)                        -> io (Result, ("pipelines" ::: Vector Pipeline)) createComputePipelines device pipelineCache createInfos allocator = liftIO . evalContT $ do-  let vkCreateComputePipelinesPtr = pVkCreateComputePipelines (deviceCmds (device :: Device))+  let vkCreateComputePipelinesPtr = pVkCreateComputePipelines (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateComputePipelinesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateComputePipelines is null" Nothing Nothing   let vkCreateComputePipelines' = mkVkCreateComputePipelines vkCreateComputePipelinesPtr@@ -596,7 +597,7 @@                    ("allocator" ::: Maybe AllocationCallbacks)                 -> io () destroyPipeline device pipeline allocator = liftIO . evalContT $ do-  let vkDestroyPipelinePtr = pVkDestroyPipeline (deviceCmds (device :: Device))+  let vkDestroyPipelinePtr = pVkDestroyPipeline (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyPipelinePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyPipeline is null" Nothing Nothing   let vkDestroyPipeline' = mkVkDestroyPipeline vkDestroyPipelinePtr@@ -1204,7 +1205,7 @@  instance Extensible PipelineShaderStageCreateInfo where   extensibleTypeName = "PipelineShaderStageCreateInfo"-  setNext x next = x{next = next}+  setNext PipelineShaderStageCreateInfo{..} next' = PipelineShaderStageCreateInfo{next = next', ..}   getNext PipelineShaderStageCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PipelineShaderStageCreateInfo e => b) -> Maybe b   extends _ f@@ -1434,7 +1435,7 @@  instance Extensible ComputePipelineCreateInfo where   extensibleTypeName = "ComputePipelineCreateInfo"-  setNext x next = x{next = next}+  setNext ComputePipelineCreateInfo{..} next' = ComputePipelineCreateInfo{next = next', ..}   getNext ComputePipelineCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends ComputePipelineCreateInfo e => b) -> Maybe b   extends _ f@@ -1754,7 +1755,7 @@  instance Extensible PipelineVertexInputStateCreateInfo where   extensibleTypeName = "PipelineVertexInputStateCreateInfo"-  setNext x next = x{next = next}+  setNext PipelineVertexInputStateCreateInfo{..} next' = PipelineVertexInputStateCreateInfo{next = next', ..}   getNext PipelineVertexInputStateCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PipelineVertexInputStateCreateInfo e => b) -> Maybe b   extends _ f@@ -2007,7 +2008,7 @@  instance Extensible PipelineTessellationStateCreateInfo where   extensibleTypeName = "PipelineTessellationStateCreateInfo"-  setNext x next = x{next = next}+  setNext PipelineTessellationStateCreateInfo{..} next' = PipelineTessellationStateCreateInfo{next = next', ..}   getNext PipelineTessellationStateCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PipelineTessellationStateCreateInfo e => b) -> Maybe b   extends _ f@@ -2170,7 +2171,7 @@  instance Extensible PipelineViewportStateCreateInfo where   extensibleTypeName = "PipelineViewportStateCreateInfo"-  setNext x next = x{next = next}+  setNext PipelineViewportStateCreateInfo{..} next' = PipelineViewportStateCreateInfo{next = next', ..}   getNext PipelineViewportStateCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PipelineViewportStateCreateInfo e => b) -> Maybe b   extends _ f@@ -2387,7 +2388,7 @@  instance Extensible PipelineRasterizationStateCreateInfo where   extensibleTypeName = "PipelineRasterizationStateCreateInfo"-  setNext x next = x{next = next}+  setNext PipelineRasterizationStateCreateInfo{..} next' = PipelineRasterizationStateCreateInfo{next = next', ..}   getNext PipelineRasterizationStateCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PipelineRasterizationStateCreateInfo e => b) -> Maybe b   extends _ f@@ -2585,7 +2586,7 @@  instance Extensible PipelineMultisampleStateCreateInfo where   extensibleTypeName = "PipelineMultisampleStateCreateInfo"-  setNext x next = x{next = next}+  setNext PipelineMultisampleStateCreateInfo{..} next' = PipelineMultisampleStateCreateInfo{next = next', ..}   getNext PipelineMultisampleStateCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PipelineMultisampleStateCreateInfo e => b) -> Maybe b   extends _ f@@ -3007,7 +3008,7 @@  instance Extensible PipelineColorBlendStateCreateInfo where   extensibleTypeName = "PipelineColorBlendStateCreateInfo"-  setNext x next = x{next = next}+  setNext PipelineColorBlendStateCreateInfo{..} next' = PipelineColorBlendStateCreateInfo{next = next', ..}   getNext PipelineColorBlendStateCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PipelineColorBlendStateCreateInfo e => b) -> Maybe b   extends _ f@@ -4861,7 +4862,7 @@  instance Extensible GraphicsPipelineCreateInfo where   extensibleTypeName = "GraphicsPipelineCreateInfo"-  setNext x next = x{next = next}+  setNext GraphicsPipelineCreateInfo{..} next' = GraphicsPipelineCreateInfo{next = next', ..}   getNext GraphicsPipelineCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends GraphicsPipelineCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/PipelineCache.hs view
@@ -61,6 +61,7 @@ import Vulkan.Core10.AllocationCallbacks (AllocationCallbacks) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreatePipelineCache)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyPipelineCache)) import Vulkan.Dynamic (DeviceCmds(pVkGetPipelineCacheData))@@ -170,7 +171,7 @@                        ("allocator" ::: Maybe AllocationCallbacks)                     -> io (PipelineCache) createPipelineCache device createInfo allocator = liftIO . evalContT $ do-  let vkCreatePipelineCachePtr = pVkCreatePipelineCache (deviceCmds (device :: Device))+  let vkCreatePipelineCachePtr = pVkCreatePipelineCache (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreatePipelineCachePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreatePipelineCache is null" Nothing Nothing   let vkCreatePipelineCache' = mkVkCreatePipelineCache vkCreatePipelineCachePtr@@ -258,7 +259,7 @@                         ("allocator" ::: Maybe AllocationCallbacks)                      -> io () destroyPipelineCache device pipelineCache allocator = liftIO . evalContT $ do-  let vkDestroyPipelineCachePtr = pVkDestroyPipelineCache (deviceCmds (device :: Device))+  let vkDestroyPipelineCachePtr = pVkDestroyPipelineCache (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyPipelineCachePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyPipelineCache is null" Nothing Nothing   let vkDestroyPipelineCache' = mkVkDestroyPipelineCache vkDestroyPipelineCachePtr@@ -353,7 +354,7 @@                         PipelineCache                      -> io (Result, ("data" ::: ByteString)) getPipelineCacheData device pipelineCache = liftIO . evalContT $ do-  let vkGetPipelineCacheDataPtr = pVkGetPipelineCacheData (deviceCmds (device :: Device))+  let vkGetPipelineCacheDataPtr = pVkGetPipelineCacheData (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetPipelineCacheDataPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPipelineCacheData is null" Nothing Nothing   let vkGetPipelineCacheData' = mkVkGetPipelineCacheData vkGetPipelineCacheDataPtr@@ -446,7 +447,7 @@                        ("srcCaches" ::: Vector PipelineCache)                     -> io () mergePipelineCaches device dstCache srcCaches = liftIO . evalContT $ do-  let vkMergePipelineCachesPtr = pVkMergePipelineCaches (deviceCmds (device :: Device))+  let vkMergePipelineCachesPtr = pVkMergePipelineCaches (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkMergePipelineCachesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkMergePipelineCaches is null" Nothing Nothing   let vkMergePipelineCaches' = mkVkMergePipelineCaches vkMergePipelineCachesPtr
src/Vulkan/Core10/PipelineLayout.hs view
@@ -51,6 +51,7 @@ import Vulkan.Core10.Handles (DescriptorSetLayout) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreatePipelineLayout)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyPipelineLayout)) import Vulkan.Core10.Handles (Device_T)@@ -122,7 +123,7 @@                         ("allocator" ::: Maybe AllocationCallbacks)                      -> io (PipelineLayout) createPipelineLayout device createInfo allocator = liftIO . evalContT $ do-  let vkCreatePipelineLayoutPtr = pVkCreatePipelineLayout (deviceCmds (device :: Device))+  let vkCreatePipelineLayoutPtr = pVkCreatePipelineLayout (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreatePipelineLayoutPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreatePipelineLayout is null" Nothing Nothing   let vkCreatePipelineLayout' = mkVkCreatePipelineLayout vkCreatePipelineLayoutPtr@@ -216,7 +217,7 @@                          ("allocator" ::: Maybe AllocationCallbacks)                       -> io () destroyPipelineLayout device pipelineLayout allocator = liftIO . evalContT $ do-  let vkDestroyPipelineLayoutPtr = pVkDestroyPipelineLayout (deviceCmds (device :: Device))+  let vkDestroyPipelineLayoutPtr = pVkDestroyPipelineLayout (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyPipelineLayoutPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyPipelineLayout is null" Nothing Nothing   let vkDestroyPipelineLayout' = mkVkDestroyPipelineLayout vkDestroyPipelineLayoutPtr
src/Vulkan/Core10/Query.hs view
@@ -58,6 +58,7 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateQueryPool)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyQueryPool)) import Vulkan.Dynamic (DeviceCmds(pVkGetQueryPoolResults))@@ -148,7 +149,7 @@                    ("allocator" ::: Maybe AllocationCallbacks)                 -> io (QueryPool) createQueryPool device createInfo allocator = liftIO . evalContT $ do-  let vkCreateQueryPoolPtr = pVkCreateQueryPool (deviceCmds (device :: Device))+  let vkCreateQueryPoolPtr = pVkCreateQueryPool (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateQueryPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateQueryPool is null" Nothing Nothing   let vkCreateQueryPool' = mkVkCreateQueryPool vkCreateQueryPoolPtr@@ -245,7 +246,7 @@                     ("allocator" ::: Maybe AllocationCallbacks)                  -> io () destroyQueryPool device queryPool allocator = liftIO . evalContT $ do-  let vkDestroyQueryPoolPtr = pVkDestroyQueryPool (deviceCmds (device :: Device))+  let vkDestroyQueryPoolPtr = pVkDestroyQueryPool (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyQueryPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyQueryPool is null" Nothing Nothing   let vkDestroyQueryPool' = mkVkDestroyQueryPool vkDestroyQueryPoolPtr@@ -494,7 +495,7 @@                        QueryResultFlags                     -> io (Result) getQueryPoolResults device queryPool firstQuery queryCount dataSize data' stride flags = liftIO $ do-  let vkGetQueryPoolResultsPtr = pVkGetQueryPoolResults (deviceCmds (device :: Device))+  let vkGetQueryPoolResultsPtr = pVkGetQueryPoolResults (case device of Device{deviceCmds} -> deviceCmds)   unless (vkGetQueryPoolResultsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetQueryPoolResults is null" Nothing Nothing   let vkGetQueryPoolResults' = mkVkGetQueryPoolResults vkGetQueryPoolResultsPtr@@ -590,7 +591,7 @@  instance Extensible QueryPoolCreateInfo where   extensibleTypeName = "QueryPoolCreateInfo"-  setNext x next = x{next = next}+  setNext QueryPoolCreateInfo{..} next' = QueryPoolCreateInfo{next = next', ..}   getNext QueryPoolCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends QueryPoolCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/Queue.hs view
@@ -58,6 +58,7 @@ import {-# SOURCE #-} Vulkan.Extensions.VK_KHR_external_semaphore_win32 (D3D12FenceSubmitInfoKHR) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkDeviceWaitIdle)) import Vulkan.Dynamic (DeviceCmds(pVkGetDeviceQueue)) import Vulkan.Dynamic (DeviceCmds(pVkQueueSubmit))@@ -152,7 +153,7 @@                   ("queueIndex" ::: Word32)                -> io (Queue) getDeviceQueue device queueFamilyIndex queueIndex = liftIO . evalContT $ do-  let cmds = deviceCmds (device :: Device)+  let cmds = case device of Device{deviceCmds} -> deviceCmds   let vkGetDeviceQueuePtr = pVkGetDeviceQueue cmds   lift $ unless (vkGetDeviceQueuePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceQueue is null" Nothing Nothing@@ -415,7 +416,7 @@                Fence             -> io () queueSubmit queue submits fence = liftIO . evalContT $ do-  let vkQueueSubmitPtr = pVkQueueSubmit (deviceCmds (queue :: Queue))+  let vkQueueSubmitPtr = pVkQueueSubmit (case queue of Queue{deviceCmds} -> deviceCmds)   lift $ unless (vkQueueSubmitPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkQueueSubmit is null" Nothing Nothing   let vkQueueSubmit' = mkVkQueueSubmit vkQueueSubmitPtr@@ -444,7 +445,7 @@                              Queue                           -> io () queueWaitIdleSafeOrUnsafe mkVkQueueWaitIdle queue = liftIO $ do-  let vkQueueWaitIdlePtr = pVkQueueWaitIdle (deviceCmds (queue :: Queue))+  let vkQueueWaitIdlePtr = pVkQueueWaitIdle (case queue of Queue{deviceCmds} -> deviceCmds)   unless (vkQueueWaitIdlePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkQueueWaitIdle is null" Nothing Nothing   let vkQueueWaitIdle' = mkVkQueueWaitIdle vkQueueWaitIdlePtr@@ -534,7 +535,7 @@                               Device                            -> io () deviceWaitIdleSafeOrUnsafe mkVkDeviceWaitIdle device = liftIO $ do-  let vkDeviceWaitIdlePtr = pVkDeviceWaitIdle (deviceCmds (device :: Device))+  let vkDeviceWaitIdlePtr = pVkDeviceWaitIdle (case device of Device{deviceCmds} -> deviceCmds)   unless (vkDeviceWaitIdlePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDeviceWaitIdle is null" Nothing Nothing   let vkDeviceWaitIdle' = mkVkDeviceWaitIdle vkDeviceWaitIdlePtr@@ -855,7 +856,7 @@  instance Extensible SubmitInfo where   extensibleTypeName = "SubmitInfo"-  setNext x next = x{next = next}+  setNext SubmitInfo{..} next' = SubmitInfo{next = next', ..}   getNext SubmitInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends SubmitInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/QueueSemaphore.hs view
@@ -47,6 +47,7 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateSemaphore)) import Vulkan.Dynamic (DeviceCmds(pVkDestroySemaphore)) import Vulkan.Core10.Handles (Device_T)@@ -127,7 +128,7 @@                    ("allocator" ::: Maybe AllocationCallbacks)                 -> io (Semaphore) createSemaphore device createInfo allocator = liftIO . evalContT $ do-  let vkCreateSemaphorePtr = pVkCreateSemaphore (deviceCmds (device :: Device))+  let vkCreateSemaphorePtr = pVkCreateSemaphore (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateSemaphorePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateSemaphore is null" Nothing Nothing   let vkCreateSemaphore' = mkVkCreateSemaphore vkCreateSemaphorePtr@@ -216,7 +217,7 @@                     ("allocator" ::: Maybe AllocationCallbacks)                  -> io () destroySemaphore device semaphore allocator = liftIO . evalContT $ do-  let vkDestroySemaphorePtr = pVkDestroySemaphore (deviceCmds (device :: Device))+  let vkDestroySemaphorePtr = pVkDestroySemaphore (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroySemaphorePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroySemaphore is null" Nothing Nothing   let vkDestroySemaphore' = mkVkDestroySemaphore vkDestroySemaphorePtr@@ -267,7 +268,7 @@  instance Extensible SemaphoreCreateInfo where   extensibleTypeName = "SemaphoreCreateInfo"-  setNext x next = x{next = next}+  setNext SemaphoreCreateInfo{..} next' = SemaphoreCreateInfo{next = next', ..}   getNext SemaphoreCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends SemaphoreCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/Sampler.hs view
@@ -61,6 +61,7 @@ import Vulkan.Core10.Enums.CompareOp (CompareOp) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateSampler)) import Vulkan.Dynamic (DeviceCmds(pVkDestroySampler)) import Vulkan.Core10.Handles (Device_T)@@ -158,7 +159,7 @@                  ("allocator" ::: Maybe AllocationCallbacks)               -> io (Sampler) createSampler device createInfo allocator = liftIO . evalContT $ do-  let vkCreateSamplerPtr = pVkCreateSampler (deviceCmds (device :: Device))+  let vkCreateSamplerPtr = pVkCreateSampler (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateSamplerPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateSampler is null" Nothing Nothing   let vkCreateSampler' = mkVkCreateSampler vkCreateSamplerPtr@@ -247,7 +248,7 @@                   ("allocator" ::: Maybe AllocationCallbacks)                -> io () destroySampler device sampler allocator = liftIO . evalContT $ do-  let vkDestroySamplerPtr = pVkDestroySampler (deviceCmds (device :: Device))+  let vkDestroySamplerPtr = pVkDestroySampler (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroySamplerPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroySampler is null" Nothing Nothing   let vkDestroySampler' = mkVkDestroySampler vkDestroySamplerPtr@@ -644,7 +645,7 @@  instance Extensible SamplerCreateInfo where   extensibleTypeName = "SamplerCreateInfo"-  setNext x next = x{next = next}+  setNext SamplerCreateInfo{..} next' = SamplerCreateInfo{next = next', ..}   getNext SamplerCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends SamplerCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/Shader.hs view
@@ -60,6 +60,7 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateShaderModule)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyShaderModule)) import Vulkan.Core10.Handles (Device_T)@@ -149,7 +150,7 @@                       ("allocator" ::: Maybe AllocationCallbacks)                    -> io (ShaderModule) createShaderModule device createInfo allocator = liftIO . evalContT $ do-  let vkCreateShaderModulePtr = pVkCreateShaderModule (deviceCmds (device :: Device))+  let vkCreateShaderModulePtr = pVkCreateShaderModule (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateShaderModulePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateShaderModule is null" Nothing Nothing   let vkCreateShaderModule' = mkVkCreateShaderModule vkCreateShaderModulePtr@@ -242,7 +243,7 @@                        ("allocator" ::: Maybe AllocationCallbacks)                     -> io () destroyShaderModule device shaderModule allocator = liftIO . evalContT $ do-  let vkDestroyShaderModulePtr = pVkDestroyShaderModule (deviceCmds (device :: Device))+  let vkDestroyShaderModulePtr = pVkDestroyShaderModule (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyShaderModulePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyShaderModule is null" Nothing Nothing   let vkDestroyShaderModule' = mkVkDestroyShaderModule vkDestroyShaderModulePtr@@ -353,7 +354,7 @@  instance Extensible ShaderModuleCreateInfo where   extensibleTypeName = "ShaderModuleCreateInfo"-  setNext x next = x{next = next}+  setNext ShaderModuleCreateInfo{..} next' = ShaderModuleCreateInfo{next = next', ..}   getNext ShaderModuleCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends ShaderModuleCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core10/SparseResourceMemoryManagement.hs view
@@ -68,6 +68,7 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetImageSparseMemoryRequirements)) import Vulkan.Dynamic (DeviceCmds(pVkQueueBindSparse)) import {-# SOURCE #-} Vulkan.Core11.Promoted_From_VK_KHR_device_group (DeviceGroupBindSparseInfo)@@ -97,11 +98,13 @@ import Vulkan.CStruct.Extends (PeekChain(..)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.CStruct.Extends (PokeChain) import Vulkan.CStruct.Extends (PokeChain(..)) import Vulkan.Core10.Handles (Queue) import Vulkan.Core10.Handles (Queue(..))+import Vulkan.Core10.Handles (Queue(Queue)) import Vulkan.Core10.Handles (Queue_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -196,7 +199,7 @@                                     Image                                  -> io (("sparseMemoryRequirements" ::: Vector SparseImageMemoryRequirements)) getImageSparseMemoryRequirements device image = liftIO . evalContT $ do-  let vkGetImageSparseMemoryRequirementsPtr = pVkGetImageSparseMemoryRequirements (deviceCmds (device :: Device))+  let vkGetImageSparseMemoryRequirementsPtr = pVkGetImageSparseMemoryRequirements (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetImageSparseMemoryRequirementsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetImageSparseMemoryRequirements is null" Nothing Nothing   let vkGetImageSparseMemoryRequirements' = mkVkGetImageSparseMemoryRequirements vkGetImageSparseMemoryRequirementsPtr@@ -325,7 +328,7 @@                                                 ImageTiling                                              -> io (("properties" ::: Vector SparseImageFormatProperties)) getPhysicalDeviceSparseImageFormatProperties physicalDevice format type' samples usage tiling = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSparseImageFormatPropertiesPtr = pVkGetPhysicalDeviceSparseImageFormatProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSparseImageFormatPropertiesPtr = pVkGetPhysicalDeviceSparseImageFormatProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSparseImageFormatPropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSparseImageFormatProperties is null" Nothing Nothing   let vkGetPhysicalDeviceSparseImageFormatProperties' = mkVkGetPhysicalDeviceSparseImageFormatProperties vkGetPhysicalDeviceSparseImageFormatPropertiesPtr@@ -489,7 +492,7 @@                    Fence                 -> io () queueBindSparse queue bindInfo fence = liftIO . evalContT $ do-  let vkQueueBindSparsePtr = pVkQueueBindSparse (deviceCmds (queue :: Queue))+  let vkQueueBindSparsePtr = pVkQueueBindSparse (case queue of Queue{deviceCmds} -> deviceCmds)   lift $ unless (vkQueueBindSparsePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkQueueBindSparse is null" Nothing Nothing   let vkQueueBindSparse' = mkVkQueueBindSparse vkQueueBindSparsePtr@@ -1385,7 +1388,7 @@  instance Extensible BindSparseInfo where   extensibleTypeName = "BindSparseInfo"-  setNext x next = x{next = next}+  setNext BindSparseInfo{..} next' = BindSparseInfo{next = next', ..}   getNext BindSparseInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends BindSparseInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core11/Originally_Based_On_VK_KHR_protected_memory.hs view
@@ -57,6 +57,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetDeviceQueue2)) import Vulkan.Core10.Enums.DeviceQueueCreateFlagBits (DeviceQueueCreateFlags) import Vulkan.Core10.Handles (Device_T)@@ -112,7 +113,7 @@                    DeviceQueueInfo2                 -> io (Queue) getDeviceQueue2 device queueInfo = liftIO . evalContT $ do-  let cmds = deviceCmds (device :: Device)+  let cmds = case device of Device{deviceCmds} -> deviceCmds   let vkGetDeviceQueue2Ptr = pVkGetDeviceQueue2 cmds   lift $ unless (vkGetDeviceQueue2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceQueue2 is null" Nothing Nothing
src/Vulkan/Core11/Promoted_From_VK_KHR_bind_memory2.hs view
@@ -53,6 +53,7 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkBindBufferMemory2)) import Vulkan.Dynamic (DeviceCmds(pVkBindImageMemory2)) import Vulkan.Core10.Handles (DeviceMemory)@@ -125,7 +126,7 @@                      ("bindInfos" ::: Vector (SomeStruct BindBufferMemoryInfo))                   -> io () bindBufferMemory2 device bindInfos = liftIO . evalContT $ do-  let vkBindBufferMemory2Ptr = pVkBindBufferMemory2 (deviceCmds (device :: Device))+  let vkBindBufferMemory2Ptr = pVkBindBufferMemory2 (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkBindBufferMemory2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkBindBufferMemory2 is null" Nothing Nothing   let vkBindBufferMemory2' = mkVkBindBufferMemory2 vkBindBufferMemory2Ptr@@ -197,7 +198,7 @@                     ("bindInfos" ::: Vector (SomeStruct BindImageMemoryInfo))                  -> io () bindImageMemory2 device bindInfos = liftIO . evalContT $ do-  let vkBindImageMemory2Ptr = pVkBindImageMemory2 (deviceCmds (device :: Device))+  let vkBindImageMemory2Ptr = pVkBindImageMemory2 (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkBindImageMemory2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkBindImageMemory2 is null" Nothing Nothing   let vkBindImageMemory2' = mkVkBindImageMemory2 vkBindImageMemory2Ptr@@ -385,7 +386,7 @@  instance Extensible BindBufferMemoryInfo where   extensibleTypeName = "BindBufferMemoryInfo"-  setNext x next = x{next = next}+  setNext BindBufferMemoryInfo{..} next' = BindBufferMemoryInfo{next = next', ..}   getNext BindBufferMemoryInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends BindBufferMemoryInfo e => b) -> Maybe b   extends _ f@@ -724,7 +725,7 @@  instance Extensible BindImageMemoryInfo where   extensibleTypeName = "BindImageMemoryInfo"-  setNext x next = x{next = next}+  setNext BindImageMemoryInfo{..} next' = BindImageMemoryInfo{next = next', ..}   getNext BindImageMemoryInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends BindImageMemoryInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core11/Promoted_From_VK_KHR_descriptor_update_template.hs view
@@ -68,6 +68,7 @@ import Vulkan.Core11.Enums.DescriptorUpdateTemplateType (DescriptorUpdateTemplateType) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateDescriptorUpdateTemplate)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyDescriptorUpdateTemplate)) import Vulkan.Dynamic (DeviceCmds(pVkUpdateDescriptorSetWithTemplate))@@ -148,7 +149,7 @@                                   ("allocator" ::: Maybe AllocationCallbacks)                                -> io (DescriptorUpdateTemplate) createDescriptorUpdateTemplate device createInfo allocator = liftIO . evalContT $ do-  let vkCreateDescriptorUpdateTemplatePtr = pVkCreateDescriptorUpdateTemplate (deviceCmds (device :: Device))+  let vkCreateDescriptorUpdateTemplatePtr = pVkCreateDescriptorUpdateTemplate (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateDescriptorUpdateTemplatePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateDescriptorUpdateTemplate is null" Nothing Nothing   let vkCreateDescriptorUpdateTemplate' = mkVkCreateDescriptorUpdateTemplate vkCreateDescriptorUpdateTemplatePtr@@ -242,7 +243,7 @@                                    ("allocator" ::: Maybe AllocationCallbacks)                                 -> io () destroyDescriptorUpdateTemplate device descriptorUpdateTemplate allocator = liftIO . evalContT $ do-  let vkDestroyDescriptorUpdateTemplatePtr = pVkDestroyDescriptorUpdateTemplate (deviceCmds (device :: Device))+  let vkDestroyDescriptorUpdateTemplatePtr = pVkDestroyDescriptorUpdateTemplate (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyDescriptorUpdateTemplatePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyDescriptorUpdateTemplate is null" Nothing Nothing   let vkDestroyDescriptorUpdateTemplate' = mkVkDestroyDescriptorUpdateTemplate vkDestroyDescriptorUpdateTemplatePtr@@ -396,7 +397,7 @@                                    ("data" ::: Ptr ())                                 -> io () updateDescriptorSetWithTemplate device descriptorSet descriptorUpdateTemplate data' = liftIO $ do-  let vkUpdateDescriptorSetWithTemplatePtr = pVkUpdateDescriptorSetWithTemplate (deviceCmds (device :: Device))+  let vkUpdateDescriptorSetWithTemplatePtr = pVkUpdateDescriptorSetWithTemplate (case device of Device{deviceCmds} -> deviceCmds)   unless (vkUpdateDescriptorSetWithTemplatePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkUpdateDescriptorSetWithTemplate is null" Nothing Nothing   let vkUpdateDescriptorSetWithTemplate' = mkVkUpdateDescriptorSetWithTemplate vkUpdateDescriptorSetWithTemplatePtr
src/Vulkan/Core11/Promoted_From_VK_KHR_device_group.hs view
@@ -60,9 +60,11 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCmdDispatchBase)) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetDeviceMask)) import Vulkan.Dynamic (DeviceCmds(pVkGetDeviceGroupPeerMemoryFeatures))@@ -135,7 +137,7 @@                                     ("remoteDeviceIndex" ::: Word32)                                  -> io (("peerMemoryFeatures" ::: PeerMemoryFeatureFlags)) getDeviceGroupPeerMemoryFeatures device heapIndex localDeviceIndex remoteDeviceIndex = liftIO . evalContT $ do-  let vkGetDeviceGroupPeerMemoryFeaturesPtr = pVkGetDeviceGroupPeerMemoryFeatures (deviceCmds (device :: Device))+  let vkGetDeviceGroupPeerMemoryFeaturesPtr = pVkGetDeviceGroupPeerMemoryFeatures (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceGroupPeerMemoryFeaturesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceGroupPeerMemoryFeatures is null" Nothing Nothing   let vkGetDeviceGroupPeerMemoryFeatures' = mkVkGetDeviceGroupPeerMemoryFeatures vkGetDeviceGroupPeerMemoryFeaturesPtr@@ -229,7 +231,7 @@                     ("deviceMask" ::: Word32)                  -> io () cmdSetDeviceMask commandBuffer deviceMask = liftIO $ do-  let vkCmdSetDeviceMaskPtr = pVkCmdSetDeviceMask (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetDeviceMaskPtr = pVkCmdSetDeviceMask (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetDeviceMaskPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetDeviceMask is null" Nothing Nothing   let vkCmdSetDeviceMask' = mkVkCmdSetDeviceMask vkCmdSetDeviceMaskPtr@@ -611,7 +613,7 @@                    ("groupCountZ" ::: Word32)                 -> io () cmdDispatchBase commandBuffer baseGroupX baseGroupY baseGroupZ groupCountX groupCountY groupCountZ = liftIO $ do-  let vkCmdDispatchBasePtr = pVkCmdDispatchBase (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDispatchBasePtr = pVkCmdDispatchBase (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDispatchBasePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDispatchBase is null" Nothing Nothing   let vkCmdDispatchBase' = mkVkCmdDispatchBase vkCmdDispatchBasePtr
src/Vulkan/Core11/Promoted_From_VK_KHR_device_group_creation.hs view
@@ -56,6 +56,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkEnumeratePhysicalDeviceGroups)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.APIConstants (MAX_DEVICE_GROUP_SIZE)@@ -142,7 +143,7 @@                                  Instance                               -> io (Result, ("physicalDeviceGroupProperties" ::: Vector PhysicalDeviceGroupProperties)) enumeratePhysicalDeviceGroups instance' = liftIO . evalContT $ do-  let vkEnumeratePhysicalDeviceGroupsPtr = pVkEnumeratePhysicalDeviceGroups (instanceCmds (instance' :: Instance))+  let vkEnumeratePhysicalDeviceGroupsPtr = pVkEnumeratePhysicalDeviceGroups (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkEnumeratePhysicalDeviceGroupsPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkEnumeratePhysicalDeviceGroups is null" Nothing Nothing   let vkEnumeratePhysicalDeviceGroups' = mkVkEnumeratePhysicalDeviceGroups vkEnumeratePhysicalDeviceGroupsPtr
src/Vulkan/Core11/Promoted_From_VK_KHR_external_fence_capabilities.hs view
@@ -44,6 +44,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceExternalFenceProperties)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.StructureType (StructureType) import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_EXTERNAL_FENCE_PROPERTIES))@@ -89,7 +90,7 @@                                             PhysicalDeviceExternalFenceInfo                                          -> io (ExternalFenceProperties) getPhysicalDeviceExternalFenceProperties physicalDevice externalFenceInfo = liftIO . evalContT $ do-  let vkGetPhysicalDeviceExternalFencePropertiesPtr = pVkGetPhysicalDeviceExternalFenceProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceExternalFencePropertiesPtr = pVkGetPhysicalDeviceExternalFenceProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceExternalFencePropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceExternalFenceProperties is null" Nothing Nothing   let vkGetPhysicalDeviceExternalFenceProperties' = mkVkGetPhysicalDeviceExternalFenceProperties vkGetPhysicalDeviceExternalFencePropertiesPtr
src/Vulkan/Core11/Promoted_From_VK_KHR_external_memory_capabilities.hs view
@@ -62,6 +62,7 @@ import Vulkan.Core10.APIConstants (LUID_SIZE) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.StructureType (StructureType) import Vulkan.Core10.APIConstants (UUID_SIZE)@@ -113,7 +114,7 @@                                              PhysicalDeviceExternalBufferInfo                                           -> io (ExternalBufferProperties) getPhysicalDeviceExternalBufferProperties physicalDevice externalBufferInfo = liftIO . evalContT $ do-  let vkGetPhysicalDeviceExternalBufferPropertiesPtr = pVkGetPhysicalDeviceExternalBufferProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceExternalBufferPropertiesPtr = pVkGetPhysicalDeviceExternalBufferProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceExternalBufferPropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceExternalBufferProperties is null" Nothing Nothing   let vkGetPhysicalDeviceExternalBufferProperties' = mkVkGetPhysicalDeviceExternalBufferProperties vkGetPhysicalDeviceExternalBufferPropertiesPtr
src/Vulkan/Core11/Promoted_From_VK_KHR_external_semaphore_capabilities.hs view
@@ -54,6 +54,7 @@ import Vulkan.CStruct.Extends (PeekChain(..)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.CStruct.Extends (PokeChain) import Vulkan.CStruct.Extends (PokeChain(..))@@ -104,7 +105,7 @@                                                 (PhysicalDeviceExternalSemaphoreInfo a)                                              -> io (ExternalSemaphoreProperties) getPhysicalDeviceExternalSemaphoreProperties physicalDevice externalSemaphoreInfo = liftIO . evalContT $ do-  let vkGetPhysicalDeviceExternalSemaphorePropertiesPtr = pVkGetPhysicalDeviceExternalSemaphoreProperties (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceExternalSemaphorePropertiesPtr = pVkGetPhysicalDeviceExternalSemaphoreProperties (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceExternalSemaphorePropertiesPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceExternalSemaphoreProperties is null" Nothing Nothing   let vkGetPhysicalDeviceExternalSemaphoreProperties' = mkVkGetPhysicalDeviceExternalSemaphoreProperties vkGetPhysicalDeviceExternalSemaphorePropertiesPtr@@ -160,7 +161,7 @@  instance Extensible PhysicalDeviceExternalSemaphoreInfo where   extensibleTypeName = "PhysicalDeviceExternalSemaphoreInfo"-  setNext x next = x{next = next}+  setNext PhysicalDeviceExternalSemaphoreInfo{..} next' = PhysicalDeviceExternalSemaphoreInfo{next = next', ..}   getNext PhysicalDeviceExternalSemaphoreInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PhysicalDeviceExternalSemaphoreInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core11/Promoted_From_VK_KHR_get_memory_requirements2.hs view
@@ -55,6 +55,7 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetBufferMemoryRequirements2)) import Vulkan.Dynamic (DeviceCmds(pVkGetImageMemoryRequirements2)) import Vulkan.Dynamic (DeviceCmds(pVkGetImageSparseMemoryRequirements2))@@ -111,7 +112,7 @@                                 BufferMemoryRequirementsInfo2                              -> io (MemoryRequirements2 a) getBufferMemoryRequirements2 device info = liftIO . evalContT $ do-  let vkGetBufferMemoryRequirements2Ptr = pVkGetBufferMemoryRequirements2 (deviceCmds (device :: Device))+  let vkGetBufferMemoryRequirements2Ptr = pVkGetBufferMemoryRequirements2 (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetBufferMemoryRequirements2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetBufferMemoryRequirements2 is null" Nothing Nothing   let vkGetBufferMemoryRequirements2' = mkVkGetBufferMemoryRequirements2 vkGetBufferMemoryRequirements2Ptr@@ -154,7 +155,7 @@                                (ImageMemoryRequirementsInfo2 a)                             -> io (MemoryRequirements2 b) getImageMemoryRequirements2 device info = liftIO . evalContT $ do-  let vkGetImageMemoryRequirements2Ptr = pVkGetImageMemoryRequirements2 (deviceCmds (device :: Device))+  let vkGetImageMemoryRequirements2Ptr = pVkGetImageMemoryRequirements2 (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetImageMemoryRequirements2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetImageMemoryRequirements2 is null" Nothing Nothing   let vkGetImageMemoryRequirements2' = mkVkGetImageMemoryRequirements2 vkGetImageMemoryRequirements2Ptr@@ -209,7 +210,7 @@                                      ImageSparseMemoryRequirementsInfo2                                   -> io (("sparseMemoryRequirements" ::: Vector SparseImageMemoryRequirements2)) getImageSparseMemoryRequirements2 device info = liftIO . evalContT $ do-  let vkGetImageSparseMemoryRequirements2Ptr = pVkGetImageSparseMemoryRequirements2 (deviceCmds (device :: Device))+  let vkGetImageSparseMemoryRequirements2Ptr = pVkGetImageSparseMemoryRequirements2 (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetImageSparseMemoryRequirements2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetImageSparseMemoryRequirements2 is null" Nothing Nothing   let vkGetImageSparseMemoryRequirements2' = mkVkGetImageSparseMemoryRequirements2 vkGetImageSparseMemoryRequirements2Ptr@@ -360,7 +361,7 @@  instance Extensible ImageMemoryRequirementsInfo2 where   extensibleTypeName = "ImageMemoryRequirementsInfo2"-  setNext x next = x{next = next}+  setNext ImageMemoryRequirementsInfo2{..} next' = ImageMemoryRequirementsInfo2{next = next', ..}   getNext ImageMemoryRequirementsInfo2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends ImageMemoryRequirementsInfo2 e => b) -> Maybe b   extends _ f@@ -496,7 +497,7 @@  instance Extensible MemoryRequirements2 where   extensibleTypeName = "MemoryRequirements2"-  setNext x next = x{next = next}+  setNext MemoryRequirements2{..} next' = MemoryRequirements2{next = next', ..}   getNext MemoryRequirements2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends MemoryRequirements2 e => b) -> Maybe b   extends _ f
src/Vulkan/Core11/Promoted_From_VK_KHR_get_physical_device_properties2.hs view
@@ -91,6 +91,7 @@ import Vulkan.CStruct.Extends (PeekChain(..)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import {-# SOURCE #-} Vulkan.Core11.Promoted_From_VK_KHR_16bit_storage (PhysicalDevice16BitStorageFeatures) import {-# SOURCE #-} Vulkan.Extensions.VK_EXT_4444_formats (PhysicalDevice4444FormatsFeaturesEXT) import {-# SOURCE #-} Vulkan.Core12.Promoted_From_VK_KHR_8bit_storage (PhysicalDevice8BitStorageFeatures)@@ -314,7 +315,7 @@                               PhysicalDevice                            -> io (PhysicalDeviceFeatures2 a) getPhysicalDeviceFeatures2 physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceFeatures2Ptr = pVkGetPhysicalDeviceFeatures2 (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceFeatures2Ptr = pVkGetPhysicalDeviceFeatures2 (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceFeatures2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceFeatures2 is null" Nothing Nothing   let vkGetPhysicalDeviceFeatures2' = mkVkGetPhysicalDeviceFeatures2 vkGetPhysicalDeviceFeatures2Ptr@@ -357,7 +358,7 @@                                 PhysicalDevice                              -> io (PhysicalDeviceProperties2 a) getPhysicalDeviceProperties2 physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceProperties2Ptr = pVkGetPhysicalDeviceProperties2 (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceProperties2Ptr = pVkGetPhysicalDeviceProperties2 (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceProperties2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceProperties2 is null" Nothing Nothing   let vkGetPhysicalDeviceProperties2' = mkVkGetPhysicalDeviceProperties2 vkGetPhysicalDeviceProperties2Ptr@@ -407,7 +408,7 @@                                       Format                                    -> io (FormatProperties2 a) getPhysicalDeviceFormatProperties2 physicalDevice format = liftIO . evalContT $ do-  let vkGetPhysicalDeviceFormatProperties2Ptr = pVkGetPhysicalDeviceFormatProperties2 (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceFormatProperties2Ptr = pVkGetPhysicalDeviceFormatProperties2 (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceFormatProperties2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceFormatProperties2 is null" Nothing Nothing   let vkGetPhysicalDeviceFormatProperties2' = mkVkGetPhysicalDeviceFormatProperties2 vkGetPhysicalDeviceFormatProperties2Ptr@@ -488,7 +489,7 @@                                            (PhysicalDeviceImageFormatInfo2 a)                                         -> io (ImageFormatProperties2 b) getPhysicalDeviceImageFormatProperties2 physicalDevice imageFormatInfo = liftIO . evalContT $ do-  let vkGetPhysicalDeviceImageFormatProperties2Ptr = pVkGetPhysicalDeviceImageFormatProperties2 (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceImageFormatProperties2Ptr = pVkGetPhysicalDeviceImageFormatProperties2 (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceImageFormatProperties2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceImageFormatProperties2 is null" Nothing Nothing   let vkGetPhysicalDeviceImageFormatProperties2' = mkVkGetPhysicalDeviceImageFormatProperties2 vkGetPhysicalDeviceImageFormatProperties2Ptr@@ -544,7 +545,7 @@                                            PhysicalDevice                                         -> io (("queueFamilyProperties" ::: Vector (QueueFamilyProperties2 a))) getPhysicalDeviceQueueFamilyProperties2 physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceQueueFamilyProperties2Ptr = pVkGetPhysicalDeviceQueueFamilyProperties2 (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceQueueFamilyProperties2Ptr = pVkGetPhysicalDeviceQueueFamilyProperties2 (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceQueueFamilyProperties2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceQueueFamilyProperties2 is null" Nothing Nothing   let vkGetPhysicalDeviceQueueFamilyProperties2' = mkVkGetPhysicalDeviceQueueFamilyProperties2 vkGetPhysicalDeviceQueueFamilyProperties2Ptr@@ -594,7 +595,7 @@                                       PhysicalDevice                                    -> io (PhysicalDeviceMemoryProperties2 a) getPhysicalDeviceMemoryProperties2 physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceMemoryProperties2Ptr = pVkGetPhysicalDeviceMemoryProperties2 (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceMemoryProperties2Ptr = pVkGetPhysicalDeviceMemoryProperties2 (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceMemoryProperties2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceMemoryProperties2 is null" Nothing Nothing   let vkGetPhysicalDeviceMemoryProperties2' = mkVkGetPhysicalDeviceMemoryProperties2 vkGetPhysicalDeviceMemoryProperties2Ptr@@ -655,7 +656,7 @@                                                  PhysicalDeviceSparseImageFormatInfo2                                               -> io (("properties" ::: Vector SparseImageFormatProperties2)) getPhysicalDeviceSparseImageFormatProperties2 physicalDevice formatInfo = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSparseImageFormatProperties2Ptr = pVkGetPhysicalDeviceSparseImageFormatProperties2 (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSparseImageFormatProperties2Ptr = pVkGetPhysicalDeviceSparseImageFormatProperties2 (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSparseImageFormatProperties2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSparseImageFormatProperties2 is null" Nothing Nothing   let vkGetPhysicalDeviceSparseImageFormatProperties2' = mkVkGetPhysicalDeviceSparseImageFormatProperties2 vkGetPhysicalDeviceSparseImageFormatProperties2Ptr@@ -709,7 +710,7 @@  instance Extensible PhysicalDeviceFeatures2 where   extensibleTypeName = "PhysicalDeviceFeatures2"-  setNext x next = x{next = next}+  setNext PhysicalDeviceFeatures2{..} next' = PhysicalDeviceFeatures2{next = next', ..}   getNext PhysicalDeviceFeatures2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PhysicalDeviceFeatures2 e => b) -> Maybe b   extends _ f@@ -947,7 +948,7 @@  instance Extensible PhysicalDeviceProperties2 where   extensibleTypeName = "PhysicalDeviceProperties2"-  setNext x next = x{next = next}+  setNext PhysicalDeviceProperties2{..} next' = PhysicalDeviceProperties2{next = next', ..}   getNext PhysicalDeviceProperties2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PhysicalDeviceProperties2 e => b) -> Maybe b   extends _ f@@ -1083,7 +1084,7 @@  instance Extensible FormatProperties2 where   extensibleTypeName = "FormatProperties2"-  setNext x next = x{next = next}+  setNext FormatProperties2{..} next' = FormatProperties2{next = next', ..}   getNext FormatProperties2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends FormatProperties2 e => b) -> Maybe b   extends _ f@@ -1186,7 +1187,7 @@  instance Extensible ImageFormatProperties2 where   extensibleTypeName = "ImageFormatProperties2"-  setNext x next = x{next = next}+  setNext ImageFormatProperties2{..} next' = ImageFormatProperties2{next = next', ..}   getNext ImageFormatProperties2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends ImageFormatProperties2 e => b) -> Maybe b   extends _ f@@ -1342,7 +1343,7 @@  instance Extensible PhysicalDeviceImageFormatInfo2 where   extensibleTypeName = "PhysicalDeviceImageFormatInfo2"-  setNext x next = x{next = next}+  setNext PhysicalDeviceImageFormatInfo2{..} next' = PhysicalDeviceImageFormatInfo2{next = next', ..}   getNext PhysicalDeviceImageFormatInfo2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PhysicalDeviceImageFormatInfo2 e => b) -> Maybe b   extends _ f@@ -1443,7 +1444,7 @@  instance Extensible QueueFamilyProperties2 where   extensibleTypeName = "QueueFamilyProperties2"-  setNext x next = x{next = next}+  setNext QueueFamilyProperties2{..} next' = QueueFamilyProperties2{next = next', ..}   getNext QueueFamilyProperties2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends QueueFamilyProperties2 e => b) -> Maybe b   extends _ f@@ -1523,7 +1524,7 @@  instance Extensible PhysicalDeviceMemoryProperties2 where   extensibleTypeName = "PhysicalDeviceMemoryProperties2"-  setNext x next = x{next = next}+  setNext PhysicalDeviceMemoryProperties2{..} next' = PhysicalDeviceMemoryProperties2{next = next', ..}   getNext PhysicalDeviceMemoryProperties2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PhysicalDeviceMemoryProperties2 e => b) -> Maybe b   extends _ f
src/Vulkan/Core11/Promoted_From_VK_KHR_maintenance1.hs view
@@ -25,6 +25,7 @@ import Vulkan.Core11.Enums.CommandPoolTrimFlags (CommandPoolTrimFlags(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkTrimCommandPool)) import Vulkan.Core10.Handles (Device_T) import Vulkan.Core11.Enums.CommandPoolTrimFlags (CommandPoolTrimFlags(..))@@ -116,7 +117,7 @@                    CommandPoolTrimFlags                 -> io () trimCommandPool device commandPool flags = liftIO $ do-  let vkTrimCommandPoolPtr = pVkTrimCommandPool (deviceCmds (device :: Device))+  let vkTrimCommandPoolPtr = pVkTrimCommandPool (case device of Device{deviceCmds} -> deviceCmds)   unless (vkTrimCommandPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkTrimCommandPool is null" Nothing Nothing   let vkTrimCommandPool' = mkVkTrimCommandPool vkTrimCommandPoolPtr
src/Vulkan/Core11/Promoted_From_VK_KHR_maintenance3.hs view
@@ -47,6 +47,7 @@ import {-# SOURCE #-} Vulkan.Core12.Promoted_From_VK_EXT_descriptor_indexing (DescriptorSetVariableDescriptorCountLayoutSupport) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetDescriptorSetLayoutSupport)) import Vulkan.Core10.FundamentalTypes (DeviceSize) import Vulkan.Core10.Handles (Device_T)@@ -127,7 +128,7 @@                                  (DescriptorSetLayoutCreateInfo a)                               -> io (DescriptorSetLayoutSupport b) getDescriptorSetLayoutSupport device createInfo = liftIO . evalContT $ do-  let vkGetDescriptorSetLayoutSupportPtr = pVkGetDescriptorSetLayoutSupport (deviceCmds (device :: Device))+  let vkGetDescriptorSetLayoutSupportPtr = pVkGetDescriptorSetLayoutSupport (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDescriptorSetLayoutSupportPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDescriptorSetLayoutSupport is null" Nothing Nothing   let vkGetDescriptorSetLayoutSupport' = mkVkGetDescriptorSetLayoutSupport vkGetDescriptorSetLayoutSupportPtr@@ -256,7 +257,7 @@  instance Extensible DescriptorSetLayoutSupport where   extensibleTypeName = "DescriptorSetLayoutSupport"-  setNext x next = x{next = next}+  setNext DescriptorSetLayoutSupport{..} next' = DescriptorSetLayoutSupport{next = next', ..}   getNext DescriptorSetLayoutSupport{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends DescriptorSetLayoutSupport e => b) -> Maybe b   extends _ f
src/Vulkan/Core11/Promoted_From_VK_KHR_sampler_ycbcr_conversion.hs view
@@ -71,6 +71,7 @@ import Vulkan.Core10.ImageView (ComponentMapping) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateSamplerYcbcrConversion)) import Vulkan.Dynamic (DeviceCmds(pVkDestroySamplerYcbcrConversion)) import Vulkan.Core10.Handles (Device_T)@@ -189,7 +190,7 @@                                 ("allocator" ::: Maybe AllocationCallbacks)                              -> io (SamplerYcbcrConversion) createSamplerYcbcrConversion device createInfo allocator = liftIO . evalContT $ do-  let vkCreateSamplerYcbcrConversionPtr = pVkCreateSamplerYcbcrConversion (deviceCmds (device :: Device))+  let vkCreateSamplerYcbcrConversionPtr = pVkCreateSamplerYcbcrConversion (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateSamplerYcbcrConversionPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateSamplerYcbcrConversion is null" Nothing Nothing   let vkCreateSamplerYcbcrConversion' = mkVkCreateSamplerYcbcrConversion vkCreateSamplerYcbcrConversionPtr@@ -267,7 +268,7 @@                                  ("allocator" ::: Maybe AllocationCallbacks)                               -> io () destroySamplerYcbcrConversion device ycbcrConversion allocator = liftIO . evalContT $ do-  let vkDestroySamplerYcbcrConversionPtr = pVkDestroySamplerYcbcrConversion (deviceCmds (device :: Device))+  let vkDestroySamplerYcbcrConversionPtr = pVkDestroySamplerYcbcrConversion (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroySamplerYcbcrConversionPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroySamplerYcbcrConversion is null" Nothing Nothing   let vkDestroySamplerYcbcrConversion' = mkVkDestroySamplerYcbcrConversion vkDestroySamplerYcbcrConversionPtr@@ -565,7 +566,7 @@  instance Extensible SamplerYcbcrConversionCreateInfo where   extensibleTypeName = "SamplerYcbcrConversionCreateInfo"-  setNext x next = x{next = next}+  setNext SamplerYcbcrConversionCreateInfo{..} next' = SamplerYcbcrConversionCreateInfo{next = next', ..}   getNext SamplerYcbcrConversionCreateInfo{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends SamplerYcbcrConversionCreateInfo e => b) -> Maybe b   extends _ f
src/Vulkan/Core12/Promoted_From_VK_EXT_host_query_reset.hs view
@@ -37,6 +37,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkResetQueryPool)) import Vulkan.Core10.Handles (Device_T) import Vulkan.Core10.Handles (QueryPool)@@ -114,7 +115,7 @@                   ("queryCount" ::: Word32)                -> io () resetQueryPool device queryPool firstQuery queryCount = liftIO $ do-  let vkResetQueryPoolPtr = pVkResetQueryPool (deviceCmds (device :: Device))+  let vkResetQueryPoolPtr = pVkResetQueryPool (case device of Device{deviceCmds} -> deviceCmds)   unless (vkResetQueryPoolPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkResetQueryPool is null" Nothing Nothing   let vkResetQueryPool' = mkVkResetQueryPool vkResetQueryPoolPtr
src/Vulkan/Core12/Promoted_From_VK_KHR_buffer_device_address.hs view
@@ -53,6 +53,7 @@ import Vulkan.Core10.Handles (Buffer) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Core10.FundamentalTypes (DeviceAddress) import Vulkan.Dynamic (DeviceCmds(pVkGetBufferDeviceAddress)) import Vulkan.Dynamic (DeviceCmds(pVkGetBufferOpaqueCaptureAddress))@@ -126,7 +127,7 @@                                  BufferDeviceAddressInfo                               -> io (Word64) getBufferOpaqueCaptureAddress device info = liftIO . evalContT $ do-  let vkGetBufferOpaqueCaptureAddressPtr = pVkGetBufferOpaqueCaptureAddress (deviceCmds (device :: Device))+  let vkGetBufferOpaqueCaptureAddressPtr = pVkGetBufferOpaqueCaptureAddress (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetBufferOpaqueCaptureAddressPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetBufferOpaqueCaptureAddress is null" Nothing Nothing   let vkGetBufferOpaqueCaptureAddress' = mkVkGetBufferOpaqueCaptureAddress vkGetBufferOpaqueCaptureAddressPtr@@ -202,7 +203,7 @@                           BufferDeviceAddressInfo                        -> io (DeviceAddress) getBufferDeviceAddress device info = liftIO . evalContT $ do-  let vkGetBufferDeviceAddressPtr = pVkGetBufferDeviceAddress (deviceCmds (device :: Device))+  let vkGetBufferDeviceAddressPtr = pVkGetBufferDeviceAddress (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetBufferDeviceAddressPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetBufferDeviceAddress is null" Nothing Nothing   let vkGetBufferDeviceAddress' = mkVkGetBufferDeviceAddress vkGetBufferDeviceAddressPtr@@ -270,7 +271,7 @@                                        DeviceMemoryOpaqueCaptureAddressInfo                                     -> io (Word64) getDeviceMemoryOpaqueCaptureAddress device info = liftIO . evalContT $ do-  let vkGetDeviceMemoryOpaqueCaptureAddressPtr = pVkGetDeviceMemoryOpaqueCaptureAddress (deviceCmds (device :: Device))+  let vkGetDeviceMemoryOpaqueCaptureAddressPtr = pVkGetDeviceMemoryOpaqueCaptureAddress (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceMemoryOpaqueCaptureAddressPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceMemoryOpaqueCaptureAddress is null" Nothing Nothing   let vkGetDeviceMemoryOpaqueCaptureAddress' = mkVkGetDeviceMemoryOpaqueCaptureAddress vkGetDeviceMemoryOpaqueCaptureAddressPtr
src/Vulkan/Core12/Promoted_From_VK_KHR_create_renderpass2.hs view
@@ -74,10 +74,12 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Core10.Enums.DependencyFlagBits (DependencyFlags) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCmdBeginRenderPass2)) import Vulkan.Dynamic (DeviceCmds(pVkCmdEndRenderPass2)) import Vulkan.Dynamic (DeviceCmds(pVkCmdNextSubpass2))@@ -185,7 +187,7 @@                      ("allocator" ::: Maybe AllocationCallbacks)                   -> io (RenderPass) createRenderPass2 device createInfo allocator = liftIO . evalContT $ do-  let vkCreateRenderPass2Ptr = pVkCreateRenderPass2 (deviceCmds (device :: Device))+  let vkCreateRenderPass2Ptr = pVkCreateRenderPass2 (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateRenderPass2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateRenderPass2 is null" Nothing Nothing   let vkCreateRenderPass2' = mkVkCreateRenderPass2 vkCreateRenderPass2Ptr@@ -418,7 +420,7 @@                        SubpassBeginInfo                     -> io () cmdBeginRenderPass2 commandBuffer renderPassBegin subpassBeginInfo = liftIO . evalContT $ do-  let vkCmdBeginRenderPass2Ptr = pVkCmdBeginRenderPass2 (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBeginRenderPass2Ptr = pVkCmdBeginRenderPass2 (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBeginRenderPass2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBeginRenderPass2 is null" Nothing Nothing   let vkCmdBeginRenderPass2' = mkVkCmdBeginRenderPass2 vkCmdBeginRenderPass2Ptr@@ -523,7 +525,7 @@                    SubpassEndInfo                 -> io () cmdNextSubpass2 commandBuffer subpassBeginInfo subpassEndInfo = liftIO . evalContT $ do-  let vkCmdNextSubpass2Ptr = pVkCmdNextSubpass2 (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdNextSubpass2Ptr = pVkCmdNextSubpass2 (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdNextSubpass2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdNextSubpass2 is null" Nothing Nothing   let vkCmdNextSubpass2' = mkVkCmdNextSubpass2 vkCmdNextSubpass2Ptr@@ -616,7 +618,7 @@                      SubpassEndInfo                   -> io () cmdEndRenderPass2 commandBuffer subpassEndInfo = liftIO . evalContT $ do-  let vkCmdEndRenderPass2Ptr = pVkCmdEndRenderPass2 (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdEndRenderPass2Ptr = pVkCmdEndRenderPass2 (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdEndRenderPass2Ptr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdEndRenderPass2 is null" Nothing Nothing   let vkCmdEndRenderPass2' = mkVkCmdEndRenderPass2 vkCmdEndRenderPass2Ptr@@ -882,7 +884,7 @@  instance Extensible AttachmentDescription2 where   extensibleTypeName = "AttachmentDescription2"-  setNext x next = x{next = next}+  setNext AttachmentDescription2{..} next' = AttachmentDescription2{next = next', ..}   getNext AttachmentDescription2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends AttachmentDescription2 e => b) -> Maybe b   extends _ f@@ -1080,7 +1082,7 @@  instance Extensible AttachmentReference2 where   extensibleTypeName = "AttachmentReference2"-  setNext x next = x{next = next}+  setNext AttachmentReference2{..} next' = AttachmentReference2{next = next', ..}   getNext AttachmentReference2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends AttachmentReference2 e => b) -> Maybe b   extends _ f@@ -1395,7 +1397,7 @@  instance Extensible SubpassDescription2 where   extensibleTypeName = "SubpassDescription2"-  setNext x next = x{next = next}+  setNext SubpassDescription2{..} next' = SubpassDescription2{next = next', ..}   getNext SubpassDescription2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends SubpassDescription2 e => b) -> Maybe b   extends _ f@@ -1742,7 +1744,7 @@  instance Extensible SubpassDependency2 where   extensibleTypeName = "SubpassDependency2"-  setNext x next = x{next = next}+  setNext SubpassDependency2{..} next' = SubpassDependency2{next = next', ..}   getNext SubpassDependency2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends SubpassDependency2 e => b) -> Maybe b   extends _ f@@ -2058,7 +2060,7 @@  instance Extensible RenderPassCreateInfo2 where   extensibleTypeName = "RenderPassCreateInfo2"-  setNext x next = x{next = next}+  setNext RenderPassCreateInfo2{..} next' = RenderPassCreateInfo2{next = next', ..}   getNext RenderPassCreateInfo2{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends RenderPassCreateInfo2 e => b) -> Maybe b   extends _ f
src/Vulkan/Core12/Promoted_From_VK_KHR_draw_indirect_count.hs view
@@ -20,6 +20,7 @@ import Vulkan.Core10.Handles (Buffer(..)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdDrawIndexedIndirectCount)) import Vulkan.Dynamic (DeviceCmds(pVkCmdDrawIndirectCount))@@ -942,7 +943,7 @@                         ("stride" ::: Word32)                      -> io () cmdDrawIndirectCount commandBuffer buffer offset countBuffer countBufferOffset maxDrawCount stride = liftIO $ do-  let vkCmdDrawIndirectCountPtr = pVkCmdDrawIndirectCount (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawIndirectCountPtr = pVkCmdDrawIndirectCount (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDrawIndirectCountPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawIndirectCount is null" Nothing Nothing   let vkCmdDrawIndirectCount' = mkVkCmdDrawIndirectCount vkCmdDrawIndirectCountPtr@@ -1875,7 +1876,7 @@                                ("stride" ::: Word32)                             -> io () cmdDrawIndexedIndirectCount commandBuffer buffer offset countBuffer countBufferOffset maxDrawCount stride = liftIO $ do-  let vkCmdDrawIndexedIndirectCountPtr = pVkCmdDrawIndexedIndirectCount (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawIndexedIndirectCountPtr = pVkCmdDrawIndexedIndirectCount (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDrawIndexedIndirectCountPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawIndexedIndirectCount is null" Nothing Nothing   let vkCmdDrawIndexedIndirectCount' = mkVkCmdDrawIndexedIndirectCount vkCmdDrawIndexedIndirectCountPtr
src/Vulkan/Core12/Promoted_From_VK_KHR_timeline_semaphore.hs view
@@ -62,6 +62,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetSemaphoreCounterValue)) import Vulkan.Dynamic (DeviceCmds(pVkSignalSemaphore)) import Vulkan.Dynamic (DeviceCmds(pVkWaitSemaphores))@@ -145,7 +146,7 @@                             Semaphore                          -> io (("value" ::: Word64)) getSemaphoreCounterValue device semaphore = liftIO . evalContT $ do-  let vkGetSemaphoreCounterValuePtr = pVkGetSemaphoreCounterValue (deviceCmds (device :: Device))+  let vkGetSemaphoreCounterValuePtr = pVkGetSemaphoreCounterValue (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetSemaphoreCounterValuePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetSemaphoreCounterValue is null" Nothing Nothing   let vkGetSemaphoreCounterValue' = mkVkGetSemaphoreCounterValue vkGetSemaphoreCounterValuePtr@@ -189,7 +190,7 @@                               ("timeout" ::: Word64)                            -> io (Result) waitSemaphoresSafeOrUnsafe mkVkWaitSemaphores device waitInfo timeout = liftIO . evalContT $ do-  let vkWaitSemaphoresPtr = pVkWaitSemaphores (deviceCmds (device :: Device))+  let vkWaitSemaphoresPtr = pVkWaitSemaphores (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkWaitSemaphoresPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkWaitSemaphores is null" Nothing Nothing   let vkWaitSemaphores' = mkVkWaitSemaphores vkWaitSemaphoresPtr@@ -344,7 +345,7 @@                    SemaphoreSignalInfo                 -> io () signalSemaphore device signalInfo = liftIO . evalContT $ do-  let vkSignalSemaphorePtr = pVkSignalSemaphore (deviceCmds (device :: Device))+  let vkSignalSemaphorePtr = pVkSignalSemaphore (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkSignalSemaphorePtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSignalSemaphore is null" Nothing Nothing   let vkSignalSemaphore' = mkVkSignalSemaphore vkSignalSemaphorePtr
src/Vulkan/Extensions/VK_AMD_buffer_marker.hs view
@@ -110,6 +110,7 @@ import Vulkan.Core10.Handles (Buffer(..)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdWriteBufferMarkerAMD)) import Vulkan.Core10.FundamentalTypes (DeviceSize)@@ -289,7 +290,7 @@                            ("marker" ::: Word32)                         -> io () cmdWriteBufferMarkerAMD commandBuffer pipelineStage dstBuffer dstOffset marker = liftIO $ do-  let vkCmdWriteBufferMarkerAMDPtr = pVkCmdWriteBufferMarkerAMD (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdWriteBufferMarkerAMDPtr = pVkCmdWriteBufferMarkerAMD (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdWriteBufferMarkerAMDPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdWriteBufferMarkerAMD is null" Nothing Nothing   let vkCmdWriteBufferMarkerAMD' = mkVkCmdWriteBufferMarkerAMD vkCmdWriteBufferMarkerAMDPtr
src/Vulkan/Extensions/VK_AMD_display_native_hdr.hs view
@@ -168,6 +168,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkSetLocalDimmingAMD)) import Vulkan.Core10.Handles (Device_T) import Vulkan.Core10.Enums.StructureType (StructureType)@@ -220,7 +221,7 @@                       ("localDimmingEnable" ::: Bool)                    -> io () setLocalDimmingAMD device swapChain localDimmingEnable = liftIO $ do-  let vkSetLocalDimmingAMDPtr = pVkSetLocalDimmingAMD (deviceCmds (device :: Device))+  let vkSetLocalDimmingAMDPtr = pVkSetLocalDimmingAMD (case device of Device{deviceCmds} -> deviceCmds)   unless (vkSetLocalDimmingAMDPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSetLocalDimmingAMD is null" Nothing Nothing   let vkSetLocalDimmingAMD' = mkVkSetLocalDimmingAMD vkSetLocalDimmingAMDPtr
src/Vulkan/Extensions/VK_AMD_shader_info.hs view
@@ -223,6 +223,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetShaderInfoAMD)) import Vulkan.Core10.Handles (Device_T) import Vulkan.Core10.Handles (Pipeline)@@ -340,7 +341,7 @@                     ShaderInfoTypeAMD                  -> io (Result, ("info" ::: ByteString)) getShaderInfoAMD device pipeline shaderStage infoType = liftIO . evalContT $ do-  let vkGetShaderInfoAMDPtr = pVkGetShaderInfoAMD (deviceCmds (device :: Device))+  let vkGetShaderInfoAMDPtr = pVkGetShaderInfoAMD (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetShaderInfoAMDPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetShaderInfoAMD is null" Nothing Nothing   let vkGetShaderInfoAMD' = mkVkGetShaderInfoAMD vkGetShaderInfoAMDPtr
src/Vulkan/Extensions/VK_ANDROID_external_memory_android_hardware_buffer.hs view
@@ -338,6 +338,7 @@ import Vulkan.Core10.ImageView (ComponentMapping) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetAndroidHardwareBufferPropertiesANDROID)) import Vulkan.Dynamic (DeviceCmds(pVkGetMemoryAndroidHardwareBufferANDROID)) import Vulkan.Core10.Handles (DeviceMemory)@@ -416,7 +417,7 @@                                              (Ptr AHardwareBuffer)                                           -> io (AndroidHardwareBufferPropertiesANDROID a) getAndroidHardwareBufferPropertiesANDROID device buffer = liftIO . evalContT $ do-  let vkGetAndroidHardwareBufferPropertiesANDROIDPtr = pVkGetAndroidHardwareBufferPropertiesANDROID (deviceCmds (device :: Device))+  let vkGetAndroidHardwareBufferPropertiesANDROIDPtr = pVkGetAndroidHardwareBufferPropertiesANDROID (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetAndroidHardwareBufferPropertiesANDROIDPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetAndroidHardwareBufferPropertiesANDROID is null" Nothing Nothing   let vkGetAndroidHardwareBufferPropertiesANDROID' = mkVkGetAndroidHardwareBufferPropertiesANDROID vkGetAndroidHardwareBufferPropertiesANDROIDPtr@@ -485,7 +486,7 @@                                          MemoryGetAndroidHardwareBufferInfoANDROID                                       -> io (Ptr AHardwareBuffer) getMemoryAndroidHardwareBufferANDROID device info = liftIO . evalContT $ do-  let vkGetMemoryAndroidHardwareBufferANDROIDPtr = pVkGetMemoryAndroidHardwareBufferANDROID (deviceCmds (device :: Device))+  let vkGetMemoryAndroidHardwareBufferANDROIDPtr = pVkGetMemoryAndroidHardwareBufferANDROID (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetMemoryAndroidHardwareBufferANDROIDPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetMemoryAndroidHardwareBufferANDROID is null" Nothing Nothing   let vkGetMemoryAndroidHardwareBufferANDROID' = mkVkGetMemoryAndroidHardwareBufferANDROID vkGetMemoryAndroidHardwareBufferANDROIDPtr@@ -692,7 +693,7 @@  instance Extensible AndroidHardwareBufferPropertiesANDROID where   extensibleTypeName = "AndroidHardwareBufferPropertiesANDROID"-  setNext x next = x{next = next}+  setNext AndroidHardwareBufferPropertiesANDROID{..} next' = AndroidHardwareBufferPropertiesANDROID{next = next', ..}   getNext AndroidHardwareBufferPropertiesANDROID{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends AndroidHardwareBufferPropertiesANDROID e => b) -> Maybe b   extends _ f
src/Vulkan/Extensions/VK_EXT_acquire_drm_display.hs view
@@ -116,6 +116,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkGetDrmDisplayEXT)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -179,7 +180,7 @@                         DisplayKHR                      -> io () acquireDrmDisplayEXT physicalDevice drmFd display = liftIO $ do-  let vkAcquireDrmDisplayEXTPtr = pVkAcquireDrmDisplayEXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkAcquireDrmDisplayEXTPtr = pVkAcquireDrmDisplayEXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   unless (vkAcquireDrmDisplayEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAcquireDrmDisplayEXT is null" Nothing Nothing   let vkAcquireDrmDisplayEXT' = mkVkAcquireDrmDisplayEXT vkAcquireDrmDisplayEXTPtr@@ -242,7 +243,7 @@                     ("connectorId" ::: Word32)                  -> io (DisplayKHR) getDrmDisplayEXT physicalDevice drmFd connectorId = liftIO . evalContT $ do-  let vkGetDrmDisplayEXTPtr = pVkGetDrmDisplayEXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetDrmDisplayEXTPtr = pVkGetDrmDisplayEXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetDrmDisplayEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDrmDisplayEXT is null" Nothing Nothing   let vkGetDrmDisplayEXT' = mkVkGetDrmDisplayEXT vkGetDrmDisplayEXTPtr
src/Vulkan/Extensions/VK_EXT_acquire_xlib_display.hs view
@@ -151,6 +151,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkGetRandROutputDisplayEXT)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -225,7 +226,7 @@                          DisplayKHR                       -> io () acquireXlibDisplayEXT physicalDevice dpy display = liftIO $ do-  let vkAcquireXlibDisplayEXTPtr = pVkAcquireXlibDisplayEXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkAcquireXlibDisplayEXTPtr = pVkAcquireXlibDisplayEXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   unless (vkAcquireXlibDisplayEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAcquireXlibDisplayEXT is null" Nothing Nothing   let vkAcquireXlibDisplayEXT' = mkVkAcquireXlibDisplayEXT vkAcquireXlibDisplayEXTPtr@@ -281,7 +282,7 @@                             RROutput                          -> io (DisplayKHR) getRandROutputDisplayEXT physicalDevice dpy rrOutput = liftIO . evalContT $ do-  let vkGetRandROutputDisplayEXTPtr = pVkGetRandROutputDisplayEXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetRandROutputDisplayEXTPtr = pVkGetRandROutputDisplayEXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetRandROutputDisplayEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetRandROutputDisplayEXT is null" Nothing Nothing   let vkGetRandROutputDisplayEXT' = mkVkGetRandROutputDisplayEXT vkGetRandROutputDisplayEXTPtr
src/Vulkan/Extensions/VK_EXT_calibrated_timestamps.hs view
@@ -241,11 +241,13 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetCalibratedTimestampsEXT)) import Vulkan.Core10.Handles (Device_T) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceCalibrateableTimeDomainsEXT)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -316,7 +318,7 @@                                                 PhysicalDevice                                              -> io (Result, ("timeDomains" ::: Vector TimeDomainEXT)) getPhysicalDeviceCalibrateableTimeDomainsEXT physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceCalibrateableTimeDomainsEXTPtr = pVkGetPhysicalDeviceCalibrateableTimeDomainsEXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceCalibrateableTimeDomainsEXTPtr = pVkGetPhysicalDeviceCalibrateableTimeDomainsEXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceCalibrateableTimeDomainsEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceCalibrateableTimeDomainsEXT is null" Nothing Nothing   let vkGetPhysicalDeviceCalibrateableTimeDomainsEXT' = mkVkGetPhysicalDeviceCalibrateableTimeDomainsEXT vkGetPhysicalDeviceCalibrateableTimeDomainsEXTPtr@@ -394,7 +396,7 @@                               ("timestampInfos" ::: Vector CalibratedTimestampInfoEXT)                            -> io (("timestamps" ::: Vector Word64), ("maxDeviation" ::: Word64)) getCalibratedTimestampsEXT device timestampInfos = liftIO . evalContT $ do-  let vkGetCalibratedTimestampsEXTPtr = pVkGetCalibratedTimestampsEXT (deviceCmds (device :: Device))+  let vkGetCalibratedTimestampsEXTPtr = pVkGetCalibratedTimestampsEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetCalibratedTimestampsEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetCalibratedTimestampsEXT is null" Nothing Nothing   let vkGetCalibratedTimestampsEXT' = mkVkGetCalibratedTimestampsEXT vkGetCalibratedTimestampsEXTPtr
src/Vulkan/Extensions/VK_EXT_color_write_enable.hs view
@@ -162,6 +162,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32(..)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetColorWriteEnableEXT)) import Vulkan.Core10.Enums.StructureType (StructureType)@@ -254,7 +255,7 @@                              ("colorWriteEnables" ::: Vector Bool)                           -> io () cmdSetColorWriteEnableEXT commandBuffer colorWriteEnables = liftIO . evalContT $ do-  let vkCmdSetColorWriteEnableEXTPtr = pVkCmdSetColorWriteEnableEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetColorWriteEnableEXTPtr = pVkCmdSetColorWriteEnableEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetColorWriteEnableEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetColorWriteEnableEXT is null" Nothing Nothing   let vkCmdSetColorWriteEnableEXT' = mkVkCmdSetColorWriteEnableEXT vkCmdSetColorWriteEnableEXTPtr
src/Vulkan/Extensions/VK_EXT_conditional_rendering.hs view
@@ -220,6 +220,7 @@ import Vulkan.Core10.Handles (Buffer) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdBeginConditionalRenderingEXT)) import Vulkan.Dynamic (DeviceCmds(pVkCmdEndConditionalRenderingEXT))@@ -297,7 +298,7 @@                                    ConditionalRenderingBeginInfoEXT                                 -> io () cmdBeginConditionalRenderingEXT commandBuffer conditionalRenderingBegin = liftIO . evalContT $ do-  let vkCmdBeginConditionalRenderingEXTPtr = pVkCmdBeginConditionalRenderingEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBeginConditionalRenderingEXTPtr = pVkCmdBeginConditionalRenderingEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBeginConditionalRenderingEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBeginConditionalRenderingEXT is null" Nothing Nothing   let vkCmdBeginConditionalRenderingEXT' = mkVkCmdBeginConditionalRenderingEXT vkCmdBeginConditionalRenderingEXTPtr@@ -389,7 +390,7 @@                                  CommandBuffer                               -> io () cmdEndConditionalRenderingEXT commandBuffer = liftIO $ do-  let vkCmdEndConditionalRenderingEXTPtr = pVkCmdEndConditionalRenderingEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdEndConditionalRenderingEXTPtr = pVkCmdEndConditionalRenderingEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdEndConditionalRenderingEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdEndConditionalRenderingEXT is null" Nothing Nothing   let vkCmdEndConditionalRenderingEXT' = mkVkCmdEndConditionalRenderingEXT vkCmdEndConditionalRenderingEXTPtr
src/Vulkan/Extensions/VK_EXT_debug_marker.hs view
@@ -334,10 +334,12 @@ import Vulkan.CStruct.Utils (lowerArrayPtr) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Extensions.VK_EXT_debug_report (DebugReportObjectTypeEXT) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCmdDebugMarkerBeginEXT)) import Vulkan.Dynamic (DeviceCmds(pVkCmdDebugMarkerEndEXT)) import Vulkan.Dynamic (DeviceCmds(pVkCmdDebugMarkerInsertEXT))@@ -400,7 +402,7 @@                                DebugMarkerObjectNameInfoEXT                             -> io () debugMarkerSetObjectNameEXT device nameInfo = liftIO . evalContT $ do-  let vkDebugMarkerSetObjectNameEXTPtr = pVkDebugMarkerSetObjectNameEXT (deviceCmds (device :: Device))+  let vkDebugMarkerSetObjectNameEXTPtr = pVkDebugMarkerSetObjectNameEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDebugMarkerSetObjectNameEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDebugMarkerSetObjectNameEXT is null" Nothing Nothing   let vkDebugMarkerSetObjectNameEXT' = mkVkDebugMarkerSetObjectNameEXT vkDebugMarkerSetObjectNameEXTPtr@@ -456,7 +458,7 @@                               DebugMarkerObjectTagInfoEXT                            -> io () debugMarkerSetObjectTagEXT device tagInfo = liftIO . evalContT $ do-  let vkDebugMarkerSetObjectTagEXTPtr = pVkDebugMarkerSetObjectTagEXT (deviceCmds (device :: Device))+  let vkDebugMarkerSetObjectTagEXTPtr = pVkDebugMarkerSetObjectTagEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDebugMarkerSetObjectTagEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDebugMarkerSetObjectTagEXT is null" Nothing Nothing   let vkDebugMarkerSetObjectTagEXT' = mkVkDebugMarkerSetObjectTagEXT vkDebugMarkerSetObjectTagEXTPtr@@ -524,7 +526,7 @@                           DebugMarkerMarkerInfoEXT                        -> io () cmdDebugMarkerBeginEXT commandBuffer markerInfo = liftIO . evalContT $ do-  let vkCmdDebugMarkerBeginEXTPtr = pVkCmdDebugMarkerBeginEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDebugMarkerBeginEXTPtr = pVkCmdDebugMarkerBeginEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdDebugMarkerBeginEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDebugMarkerBeginEXT is null" Nothing Nothing   let vkCmdDebugMarkerBeginEXT' = mkVkCmdDebugMarkerBeginEXT vkCmdDebugMarkerBeginEXTPtr@@ -606,7 +608,7 @@                         CommandBuffer                      -> io () cmdDebugMarkerEndEXT commandBuffer = liftIO $ do-  let vkCmdDebugMarkerEndEXTPtr = pVkCmdDebugMarkerEndEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDebugMarkerEndEXTPtr = pVkCmdDebugMarkerEndEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDebugMarkerEndEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDebugMarkerEndEXT is null" Nothing Nothing   let vkCmdDebugMarkerEndEXT' = mkVkCmdDebugMarkerEndEXT vkCmdDebugMarkerEndEXTPtr@@ -673,7 +675,7 @@                            DebugMarkerMarkerInfoEXT                         -> io () cmdDebugMarkerInsertEXT commandBuffer markerInfo = liftIO . evalContT $ do-  let vkCmdDebugMarkerInsertEXTPtr = pVkCmdDebugMarkerInsertEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDebugMarkerInsertEXTPtr = pVkCmdDebugMarkerInsertEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdDebugMarkerInsertEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDebugMarkerInsertEXT is null" Nothing Nothing   let vkCmdDebugMarkerInsertEXT' = mkVkCmdDebugMarkerInsertEXT vkCmdDebugMarkerInsertEXTPtr
src/Vulkan/Extensions/VK_EXT_debug_report.hs view
@@ -452,6 +452,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateDebugReportCallbackEXT)) import Vulkan.Dynamic (InstanceCmds(pVkDebugReportMessageEXT)) import Vulkan.Dynamic (InstanceCmds(pVkDestroyDebugReportCallbackEXT))@@ -521,7 +522,7 @@                                 ("allocator" ::: Maybe AllocationCallbacks)                              -> io (DebugReportCallbackEXT) createDebugReportCallbackEXT instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateDebugReportCallbackEXTPtr = pVkCreateDebugReportCallbackEXT (instanceCmds (instance' :: Instance))+  let vkCreateDebugReportCallbackEXTPtr = pVkCreateDebugReportCallbackEXT (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateDebugReportCallbackEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateDebugReportCallbackEXT is null" Nothing Nothing   let vkCreateDebugReportCallbackEXT' = mkVkCreateDebugReportCallbackEXT vkCreateDebugReportCallbackEXTPtr@@ -614,7 +615,7 @@                                  ("allocator" ::: Maybe AllocationCallbacks)                               -> io () destroyDebugReportCallbackEXT instance' callback allocator = liftIO . evalContT $ do-  let vkDestroyDebugReportCallbackEXTPtr = pVkDestroyDebugReportCallbackEXT (instanceCmds (instance' :: Instance))+  let vkDestroyDebugReportCallbackEXTPtr = pVkDestroyDebugReportCallbackEXT (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkDestroyDebugReportCallbackEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyDebugReportCallbackEXT is null" Nothing Nothing   let vkDestroyDebugReportCallbackEXT' = mkVkDestroyDebugReportCallbackEXT vkDestroyDebugReportCallbackEXTPtr@@ -703,7 +704,7 @@                          ("message" ::: ByteString)                       -> io () debugReportMessageEXT instance' flags objectType object location messageCode layerPrefix message = liftIO . evalContT $ do-  let vkDebugReportMessageEXTPtr = pVkDebugReportMessageEXT (instanceCmds (instance' :: Instance))+  let vkDebugReportMessageEXTPtr = pVkDebugReportMessageEXT (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkDebugReportMessageEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDebugReportMessageEXT is null" Nothing Nothing   let vkDebugReportMessageEXT' = mkVkDebugReportMessageEXT vkDebugReportMessageEXTPtr
src/Vulkan/Extensions/VK_EXT_debug_utils.hs view
@@ -594,11 +594,13 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Extensions.Handles (DebugUtilsMessengerEXT) import Vulkan.Extensions.Handles (DebugUtilsMessengerEXT(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCmdBeginDebugUtilsLabelEXT)) import Vulkan.Dynamic (DeviceCmds(pVkCmdEndDebugUtilsLabelEXT)) import Vulkan.Dynamic (DeviceCmds(pVkCmdInsertDebugUtilsLabelEXT))@@ -611,6 +613,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateDebugUtilsMessengerEXT)) import Vulkan.Dynamic (InstanceCmds(pVkDestroyDebugUtilsMessengerEXT)) import Vulkan.Dynamic (InstanceCmds(pVkSubmitDebugUtilsMessageEXT))@@ -618,6 +621,7 @@ import Vulkan.Core10.Enums.ObjectType (ObjectType) import Vulkan.Core10.Handles (Queue) import Vulkan.Core10.Handles (Queue(..))+import Vulkan.Core10.Handles (Queue(Queue)) import Vulkan.Core10.Handles (Queue_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -688,7 +692,7 @@                               DebugUtilsObjectNameInfoEXT                            -> io () setDebugUtilsObjectNameEXT device nameInfo = liftIO . evalContT $ do-  let vkSetDebugUtilsObjectNameEXTPtr = pVkSetDebugUtilsObjectNameEXT (deviceCmds (device :: Device))+  let vkSetDebugUtilsObjectNameEXTPtr = pVkSetDebugUtilsObjectNameEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkSetDebugUtilsObjectNameEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSetDebugUtilsObjectNameEXT is null" Nothing Nothing   let vkSetDebugUtilsObjectNameEXT' = mkVkSetDebugUtilsObjectNameEXT vkSetDebugUtilsObjectNameEXTPtr@@ -745,7 +749,7 @@                              DebugUtilsObjectTagInfoEXT                           -> io () setDebugUtilsObjectTagEXT device tagInfo = liftIO . evalContT $ do-  let vkSetDebugUtilsObjectTagEXTPtr = pVkSetDebugUtilsObjectTagEXT (deviceCmds (device :: Device))+  let vkSetDebugUtilsObjectTagEXTPtr = pVkSetDebugUtilsObjectTagEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkSetDebugUtilsObjectTagEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSetDebugUtilsObjectTagEXT is null" Nothing Nothing   let vkSetDebugUtilsObjectTagEXT' = mkVkSetDebugUtilsObjectTagEXT vkSetDebugUtilsObjectTagEXTPtr@@ -792,7 +796,7 @@                                 ("labelInfo" ::: DebugUtilsLabelEXT)                              -> io () queueBeginDebugUtilsLabelEXT queue labelInfo = liftIO . evalContT $ do-  let vkQueueBeginDebugUtilsLabelEXTPtr = pVkQueueBeginDebugUtilsLabelEXT (deviceCmds (queue :: Queue))+  let vkQueueBeginDebugUtilsLabelEXTPtr = pVkQueueBeginDebugUtilsLabelEXT (case queue of Queue{deviceCmds} -> deviceCmds)   lift $ unless (vkQueueBeginDebugUtilsLabelEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkQueueBeginDebugUtilsLabelEXT is null" Nothing Nothing   let vkQueueBeginDebugUtilsLabelEXT' = mkVkQueueBeginDebugUtilsLabelEXT vkQueueBeginDebugUtilsLabelEXTPtr@@ -846,7 +850,7 @@                               Queue                            -> io () queueEndDebugUtilsLabelEXT queue = liftIO $ do-  let vkQueueEndDebugUtilsLabelEXTPtr = pVkQueueEndDebugUtilsLabelEXT (deviceCmds (queue :: Queue))+  let vkQueueEndDebugUtilsLabelEXTPtr = pVkQueueEndDebugUtilsLabelEXT (case queue of Queue{deviceCmds} -> deviceCmds)   unless (vkQueueEndDebugUtilsLabelEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkQueueEndDebugUtilsLabelEXT is null" Nothing Nothing   let vkQueueEndDebugUtilsLabelEXT' = mkVkQueueEndDebugUtilsLabelEXT vkQueueEndDebugUtilsLabelEXTPtr@@ -892,7 +896,7 @@                                  ("labelInfo" ::: DebugUtilsLabelEXT)                               -> io () queueInsertDebugUtilsLabelEXT queue labelInfo = liftIO . evalContT $ do-  let vkQueueInsertDebugUtilsLabelEXTPtr = pVkQueueInsertDebugUtilsLabelEXT (deviceCmds (queue :: Queue))+  let vkQueueInsertDebugUtilsLabelEXTPtr = pVkQueueInsertDebugUtilsLabelEXT (case queue of Queue{deviceCmds} -> deviceCmds)   lift $ unless (vkQueueInsertDebugUtilsLabelEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkQueueInsertDebugUtilsLabelEXT is null" Nothing Nothing   let vkQueueInsertDebugUtilsLabelEXT' = mkVkQueueInsertDebugUtilsLabelEXT vkQueueInsertDebugUtilsLabelEXTPtr@@ -960,7 +964,7 @@                               ("labelInfo" ::: DebugUtilsLabelEXT)                            -> io () cmdBeginDebugUtilsLabelEXT commandBuffer labelInfo = liftIO . evalContT $ do-  let vkCmdBeginDebugUtilsLabelEXTPtr = pVkCmdBeginDebugUtilsLabelEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBeginDebugUtilsLabelEXTPtr = pVkCmdBeginDebugUtilsLabelEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBeginDebugUtilsLabelEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBeginDebugUtilsLabelEXT is null" Nothing Nothing   let vkCmdBeginDebugUtilsLabelEXT' = mkVkCmdBeginDebugUtilsLabelEXT vkCmdBeginDebugUtilsLabelEXTPtr@@ -1063,7 +1067,7 @@                             CommandBuffer                          -> io () cmdEndDebugUtilsLabelEXT commandBuffer = liftIO $ do-  let vkCmdEndDebugUtilsLabelEXTPtr = pVkCmdEndDebugUtilsLabelEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdEndDebugUtilsLabelEXTPtr = pVkCmdEndDebugUtilsLabelEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdEndDebugUtilsLabelEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdEndDebugUtilsLabelEXT is null" Nothing Nothing   let vkCmdEndDebugUtilsLabelEXT' = mkVkCmdEndDebugUtilsLabelEXT vkCmdEndDebugUtilsLabelEXTPtr@@ -1129,7 +1133,7 @@                                ("labelInfo" ::: DebugUtilsLabelEXT)                             -> io () cmdInsertDebugUtilsLabelEXT commandBuffer labelInfo = liftIO . evalContT $ do-  let vkCmdInsertDebugUtilsLabelEXTPtr = pVkCmdInsertDebugUtilsLabelEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdInsertDebugUtilsLabelEXTPtr = pVkCmdInsertDebugUtilsLabelEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdInsertDebugUtilsLabelEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdInsertDebugUtilsLabelEXT is null" Nothing Nothing   let vkCmdInsertDebugUtilsLabelEXT' = mkVkCmdInsertDebugUtilsLabelEXT vkCmdInsertDebugUtilsLabelEXTPtr@@ -1200,7 +1204,7 @@                                 ("allocator" ::: Maybe AllocationCallbacks)                              -> io (DebugUtilsMessengerEXT) createDebugUtilsMessengerEXT instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateDebugUtilsMessengerEXTPtr = pVkCreateDebugUtilsMessengerEXT (instanceCmds (instance' :: Instance))+  let vkCreateDebugUtilsMessengerEXTPtr = pVkCreateDebugUtilsMessengerEXT (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateDebugUtilsMessengerEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateDebugUtilsMessengerEXT is null" Nothing Nothing   let vkCreateDebugUtilsMessengerEXT' = mkVkCreateDebugUtilsMessengerEXT vkCreateDebugUtilsMessengerEXTPtr@@ -1297,7 +1301,7 @@                                  ("allocator" ::: Maybe AllocationCallbacks)                               -> io () destroyDebugUtilsMessengerEXT instance' messenger allocator = liftIO . evalContT $ do-  let vkDestroyDebugUtilsMessengerEXTPtr = pVkDestroyDebugUtilsMessengerEXT (instanceCmds (instance' :: Instance))+  let vkDestroyDebugUtilsMessengerEXTPtr = pVkDestroyDebugUtilsMessengerEXT (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkDestroyDebugUtilsMessengerEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyDebugUtilsMessengerEXT is null" Nothing Nothing   let vkDestroyDebugUtilsMessengerEXT' = mkVkDestroyDebugUtilsMessengerEXT vkDestroyDebugUtilsMessengerEXTPtr@@ -1370,7 +1374,7 @@                               DebugUtilsMessengerCallbackDataEXT                            -> io () submitDebugUtilsMessageEXT instance' messageSeverity messageTypes callbackData = liftIO . evalContT $ do-  let vkSubmitDebugUtilsMessageEXTPtr = pVkSubmitDebugUtilsMessageEXT (instanceCmds (instance' :: Instance))+  let vkSubmitDebugUtilsMessageEXTPtr = pVkSubmitDebugUtilsMessageEXT (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkSubmitDebugUtilsMessageEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSubmitDebugUtilsMessageEXT is null" Nothing Nothing   let vkSubmitDebugUtilsMessageEXT' = mkVkSubmitDebugUtilsMessageEXT vkSubmitDebugUtilsMessageEXTPtr
src/Vulkan/Extensions/VK_EXT_direct_mode_display.hs view
@@ -127,6 +127,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkReleaseDisplayEXT)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -168,7 +169,7 @@                      DisplayKHR                   -> io () releaseDisplayEXT physicalDevice display = liftIO $ do-  let vkReleaseDisplayEXTPtr = pVkReleaseDisplayEXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkReleaseDisplayEXTPtr = pVkReleaseDisplayEXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   unless (vkReleaseDisplayEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkReleaseDisplayEXT is null" Nothing Nothing   let vkReleaseDisplayEXT' = mkVkReleaseDisplayEXT vkReleaseDisplayEXTPtr
src/Vulkan/Extensions/VK_EXT_directfb_surface.hs view
@@ -155,11 +155,13 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateDirectFBSurfaceEXT)) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceDirectFBPresentationSupportEXT)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -229,7 +231,7 @@                             ("allocator" ::: Maybe AllocationCallbacks)                          -> io (SurfaceKHR) createDirectFBSurfaceEXT instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateDirectFBSurfaceEXTPtr = pVkCreateDirectFBSurfaceEXT (instanceCmds (instance' :: Instance))+  let vkCreateDirectFBSurfaceEXTPtr = pVkCreateDirectFBSurfaceEXT (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateDirectFBSurfaceEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateDirectFBSurfaceEXT is null" Nothing Nothing   let vkCreateDirectFBSurfaceEXT' = mkVkCreateDirectFBSurfaceEXT vkCreateDirectFBSurfaceEXTPtr@@ -288,7 +290,7 @@                                                    ("dfb" ::: Ptr IDirectFB)                                                 -> io (Bool) getPhysicalDeviceDirectFBPresentationSupportEXT physicalDevice queueFamilyIndex dfb = liftIO $ do-  let vkGetPhysicalDeviceDirectFBPresentationSupportEXTPtr = pVkGetPhysicalDeviceDirectFBPresentationSupportEXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceDirectFBPresentationSupportEXTPtr = pVkGetPhysicalDeviceDirectFBPresentationSupportEXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   unless (vkGetPhysicalDeviceDirectFBPresentationSupportEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceDirectFBPresentationSupportEXT is null" Nothing Nothing   let vkGetPhysicalDeviceDirectFBPresentationSupportEXT' = mkVkGetPhysicalDeviceDirectFBPresentationSupportEXT vkGetPhysicalDeviceDirectFBPresentationSupportEXTPtr
src/Vulkan/Extensions/VK_EXT_discard_rectangles.hs view
@@ -187,6 +187,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetDiscardRectangleEXT)) import Vulkan.Core10.FundamentalTypes (Flags)@@ -306,7 +307,7 @@                              ("discardRectangles" ::: Vector Rect2D)                           -> io () cmdSetDiscardRectangleEXT commandBuffer firstDiscardRectangle discardRectangles = liftIO . evalContT $ do-  let vkCmdSetDiscardRectangleEXTPtr = pVkCmdSetDiscardRectangleEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetDiscardRectangleEXTPtr = pVkCmdSetDiscardRectangleEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetDiscardRectangleEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetDiscardRectangleEXT is null" Nothing Nothing   let vkCmdSetDiscardRectangleEXT' = mkVkCmdSetDiscardRectangleEXT vkCmdSetDiscardRectangleEXTPtr
src/Vulkan/Extensions/VK_EXT_display_control.hs view
@@ -224,6 +224,7 @@ import Vulkan.Core10.AllocationCallbacks (AllocationCallbacks) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkDisplayPowerControlEXT)) import Vulkan.Dynamic (DeviceCmds(pVkGetSwapchainCounterEXT)) import Vulkan.Dynamic (DeviceCmds(pVkRegisterDeviceEventEXT))@@ -302,7 +303,7 @@                           DisplayPowerInfoEXT                        -> io () displayPowerControlEXT device display displayPowerInfo = liftIO . evalContT $ do-  let vkDisplayPowerControlEXTPtr = pVkDisplayPowerControlEXT (deviceCmds (device :: Device))+  let vkDisplayPowerControlEXTPtr = pVkDisplayPowerControlEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDisplayPowerControlEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDisplayPowerControlEXT is null" Nothing Nothing   let vkDisplayPowerControlEXT' = mkVkDisplayPowerControlEXT vkDisplayPowerControlEXTPtr@@ -365,7 +366,7 @@                           ("allocator" ::: Maybe AllocationCallbacks)                        -> io (Fence) registerDeviceEventEXT device deviceEventInfo allocator = liftIO . evalContT $ do-  let vkRegisterDeviceEventEXTPtr = pVkRegisterDeviceEventEXT (deviceCmds (device :: Device))+  let vkRegisterDeviceEventEXTPtr = pVkRegisterDeviceEventEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkRegisterDeviceEventEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkRegisterDeviceEventEXT is null" Nothing Nothing   let vkRegisterDeviceEventEXT' = mkVkRegisterDeviceEventEXT vkRegisterDeviceEventEXTPtr@@ -444,7 +445,7 @@                            ("allocator" ::: Maybe AllocationCallbacks)                         -> io (Fence) registerDisplayEventEXT device display displayEventInfo allocator = liftIO . evalContT $ do-  let vkRegisterDisplayEventEXTPtr = pVkRegisterDisplayEventEXT (deviceCmds (device :: Device))+  let vkRegisterDisplayEventEXTPtr = pVkRegisterDisplayEventEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkRegisterDisplayEventEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkRegisterDisplayEventEXT is null" Nothing Nothing   let vkRegisterDisplayEventEXT' = mkVkRegisterDisplayEventEXT vkRegisterDisplayEventEXTPtr@@ -533,7 +534,7 @@                           SurfaceCounterFlagBitsEXT                        -> io (("counterValue" ::: Word64)) getSwapchainCounterEXT device swapchain counter = liftIO . evalContT $ do-  let vkGetSwapchainCounterEXTPtr = pVkGetSwapchainCounterEXT (deviceCmds (device :: Device))+  let vkGetSwapchainCounterEXTPtr = pVkGetSwapchainCounterEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetSwapchainCounterEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetSwapchainCounterEXT is null" Nothing Nothing   let vkGetSwapchainCounterEXT' = mkVkGetSwapchainCounterEXT vkGetSwapchainCounterEXTPtr
src/Vulkan/Extensions/VK_EXT_display_surface_counter.hs view
@@ -166,6 +166,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceSurfaceCapabilities2EXT)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -253,7 +254,7 @@                                             SurfaceKHR                                          -> io (SurfaceCapabilities2EXT) getPhysicalDeviceSurfaceCapabilities2EXT physicalDevice surface = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSurfaceCapabilities2EXTPtr = pVkGetPhysicalDeviceSurfaceCapabilities2EXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSurfaceCapabilities2EXTPtr = pVkGetPhysicalDeviceSurfaceCapabilities2EXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSurfaceCapabilities2EXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSurfaceCapabilities2EXT is null" Nothing Nothing   let vkGetPhysicalDeviceSurfaceCapabilities2EXT' = mkVkGetPhysicalDeviceSurfaceCapabilities2EXT vkGetPhysicalDeviceSurfaceCapabilities2EXTPtr
src/Vulkan/Extensions/VK_EXT_extended_dynamic_state.hs view
@@ -219,6 +219,7 @@ import Vulkan.Core10.Handles (Buffer(..)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Core10.Enums.CompareOp (CompareOp) import Vulkan.Core10.Enums.CompareOp (CompareOp(..))@@ -323,7 +324,7 @@                      CullModeFlags                   -> io () cmdSetCullModeEXT commandBuffer cullMode = liftIO $ do-  let vkCmdSetCullModeEXTPtr = pVkCmdSetCullModeEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetCullModeEXTPtr = pVkCmdSetCullModeEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetCullModeEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetCullModeEXT is null" Nothing Nothing   let vkCmdSetCullModeEXT' = mkVkCmdSetCullModeEXT vkCmdSetCullModeEXTPtr@@ -406,7 +407,7 @@                       FrontFace                    -> io () cmdSetFrontFaceEXT commandBuffer frontFace = liftIO $ do-  let vkCmdSetFrontFaceEXTPtr = pVkCmdSetFrontFaceEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetFrontFaceEXTPtr = pVkCmdSetFrontFaceEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetFrontFaceEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetFrontFaceEXT is null" Nothing Nothing   let vkCmdSetFrontFaceEXT' = mkVkCmdSetFrontFaceEXT vkCmdSetFrontFaceEXTPtr@@ -491,7 +492,7 @@                               PrimitiveTopology                            -> io () cmdSetPrimitiveTopologyEXT commandBuffer primitiveTopology = liftIO $ do-  let vkCmdSetPrimitiveTopologyEXTPtr = pVkCmdSetPrimitiveTopologyEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetPrimitiveTopologyEXTPtr = pVkCmdSetPrimitiveTopologyEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetPrimitiveTopologyEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetPrimitiveTopologyEXT is null" Nothing Nothing   let vkCmdSetPrimitiveTopologyEXT' = mkVkCmdSetPrimitiveTopologyEXT vkCmdSetPrimitiveTopologyEXTPtr@@ -592,7 +593,7 @@                               ("viewports" ::: Vector Viewport)                            -> io () cmdSetViewportWithCountEXT commandBuffer viewports = liftIO . evalContT $ do-  let vkCmdSetViewportWithCountEXTPtr = pVkCmdSetViewportWithCountEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetViewportWithCountEXTPtr = pVkCmdSetViewportWithCountEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetViewportWithCountEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetViewportWithCountEXT is null" Nothing Nothing   let vkCmdSetViewportWithCountEXT' = mkVkCmdSetViewportWithCountEXT vkCmdSetViewportWithCountEXTPtr@@ -709,7 +710,7 @@                              ("scissors" ::: Vector Rect2D)                           -> io () cmdSetScissorWithCountEXT commandBuffer scissors = liftIO . evalContT $ do-  let vkCmdSetScissorWithCountEXTPtr = pVkCmdSetScissorWithCountEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetScissorWithCountEXTPtr = pVkCmdSetScissorWithCountEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetScissorWithCountEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetScissorWithCountEXT is null" Nothing Nothing   let vkCmdSetScissorWithCountEXT' = mkVkCmdSetScissorWithCountEXT vkCmdSetScissorWithCountEXTPtr@@ -899,7 +900,7 @@                             ("strides" ::: Vector DeviceSize)                          -> io () cmdBindVertexBuffers2EXT commandBuffer firstBinding buffers offsets sizes strides = liftIO . evalContT $ do-  let vkCmdBindVertexBuffers2EXTPtr = pVkCmdBindVertexBuffers2EXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBindVertexBuffers2EXTPtr = pVkCmdBindVertexBuffers2EXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBindVertexBuffers2EXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBindVertexBuffers2EXT is null" Nothing Nothing   let vkCmdBindVertexBuffers2EXT' = mkVkCmdBindVertexBuffers2EXT vkCmdBindVertexBuffers2EXTPtr@@ -1005,7 +1006,7 @@                             ("depthTestEnable" ::: Bool)                          -> io () cmdSetDepthTestEnableEXT commandBuffer depthTestEnable = liftIO $ do-  let vkCmdSetDepthTestEnableEXTPtr = pVkCmdSetDepthTestEnableEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetDepthTestEnableEXTPtr = pVkCmdSetDepthTestEnableEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetDepthTestEnableEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetDepthTestEnableEXT is null" Nothing Nothing   let vkCmdSetDepthTestEnableEXT' = mkVkCmdSetDepthTestEnableEXT vkCmdSetDepthTestEnableEXTPtr@@ -1086,7 +1087,7 @@                              ("depthWriteEnable" ::: Bool)                           -> io () cmdSetDepthWriteEnableEXT commandBuffer depthWriteEnable = liftIO $ do-  let vkCmdSetDepthWriteEnableEXTPtr = pVkCmdSetDepthWriteEnableEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetDepthWriteEnableEXTPtr = pVkCmdSetDepthWriteEnableEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetDepthWriteEnableEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetDepthWriteEnableEXT is null" Nothing Nothing   let vkCmdSetDepthWriteEnableEXT' = mkVkCmdSetDepthWriteEnableEXT vkCmdSetDepthWriteEnableEXTPtr@@ -1171,7 +1172,7 @@                            ("depthCompareOp" ::: CompareOp)                         -> io () cmdSetDepthCompareOpEXT commandBuffer depthCompareOp = liftIO $ do-  let vkCmdSetDepthCompareOpEXTPtr = pVkCmdSetDepthCompareOpEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetDepthCompareOpEXTPtr = pVkCmdSetDepthCompareOpEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetDepthCompareOpEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetDepthCompareOpEXT is null" Nothing Nothing   let vkCmdSetDepthCompareOpEXT' = mkVkCmdSetDepthCompareOpEXT vkCmdSetDepthCompareOpEXTPtr@@ -1252,7 +1253,7 @@                                   ("depthBoundsTestEnable" ::: Bool)                                -> io () cmdSetDepthBoundsTestEnableEXT commandBuffer depthBoundsTestEnable = liftIO $ do-  let vkCmdSetDepthBoundsTestEnableEXTPtr = pVkCmdSetDepthBoundsTestEnableEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetDepthBoundsTestEnableEXTPtr = pVkCmdSetDepthBoundsTestEnableEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetDepthBoundsTestEnableEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetDepthBoundsTestEnableEXT is null" Nothing Nothing   let vkCmdSetDepthBoundsTestEnableEXT' = mkVkCmdSetDepthBoundsTestEnableEXT vkCmdSetDepthBoundsTestEnableEXTPtr@@ -1333,7 +1334,7 @@                               ("stencilTestEnable" ::: Bool)                            -> io () cmdSetStencilTestEnableEXT commandBuffer stencilTestEnable = liftIO $ do-  let vkCmdSetStencilTestEnableEXTPtr = pVkCmdSetStencilTestEnableEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetStencilTestEnableEXTPtr = pVkCmdSetStencilTestEnableEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetStencilTestEnableEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetStencilTestEnableEXT is null" Nothing Nothing   let vkCmdSetStencilTestEnableEXT' = mkVkCmdSetStencilTestEnableEXT vkCmdSetStencilTestEnableEXTPtr@@ -1450,7 +1451,7 @@                       CompareOp                    -> io () cmdSetStencilOpEXT commandBuffer faceMask failOp passOp depthFailOp compareOp = liftIO $ do-  let vkCmdSetStencilOpEXTPtr = pVkCmdSetStencilOpEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetStencilOpEXTPtr = pVkCmdSetStencilOpEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetStencilOpEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetStencilOpEXT is null" Nothing Nothing   let vkCmdSetStencilOpEXT' = mkVkCmdSetStencilOpEXT vkCmdSetStencilOpEXTPtr
src/Vulkan/Extensions/VK_EXT_extended_dynamic_state2.hs view
@@ -158,6 +158,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32(..)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetDepthBiasEnableEXT)) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetLogicOpEXT))@@ -245,7 +246,7 @@                                ("patchControlPoints" ::: Word32)                             -> io () cmdSetPatchControlPointsEXT commandBuffer patchControlPoints = liftIO $ do-  let vkCmdSetPatchControlPointsEXTPtr = pVkCmdSetPatchControlPointsEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetPatchControlPointsEXTPtr = pVkCmdSetPatchControlPointsEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetPatchControlPointsEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetPatchControlPointsEXT is null" Nothing Nothing   let vkCmdSetPatchControlPointsEXT' = mkVkCmdSetPatchControlPointsEXT vkCmdSetPatchControlPointsEXTPtr@@ -328,7 +329,7 @@                                     ("rasterizerDiscardEnable" ::: Bool)                                  -> io () cmdSetRasterizerDiscardEnableEXT commandBuffer rasterizerDiscardEnable = liftIO $ do-  let vkCmdSetRasterizerDiscardEnableEXTPtr = pVkCmdSetRasterizerDiscardEnableEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetRasterizerDiscardEnableEXTPtr = pVkCmdSetRasterizerDiscardEnableEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetRasterizerDiscardEnableEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetRasterizerDiscardEnableEXT is null" Nothing Nothing   let vkCmdSetRasterizerDiscardEnableEXT' = mkVkCmdSetRasterizerDiscardEnableEXT vkCmdSetRasterizerDiscardEnableEXTPtr@@ -409,7 +410,7 @@                             ("depthBiasEnable" ::: Bool)                          -> io () cmdSetDepthBiasEnableEXT commandBuffer depthBiasEnable = liftIO $ do-  let vkCmdSetDepthBiasEnableEXTPtr = pVkCmdSetDepthBiasEnableEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetDepthBiasEnableEXTPtr = pVkCmdSetDepthBiasEnableEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetDepthBiasEnableEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetDepthBiasEnableEXT is null" Nothing Nothing   let vkCmdSetDepthBiasEnableEXT' = mkVkCmdSetDepthBiasEnableEXT vkCmdSetDepthBiasEnableEXTPtr@@ -491,7 +492,7 @@                     LogicOp                  -> io () cmdSetLogicOpEXT commandBuffer logicOp = liftIO $ do-  let vkCmdSetLogicOpEXTPtr = pVkCmdSetLogicOpEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetLogicOpEXTPtr = pVkCmdSetLogicOpEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetLogicOpEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetLogicOpEXT is null" Nothing Nothing   let vkCmdSetLogicOpEXT' = mkVkCmdSetLogicOpEXT vkCmdSetLogicOpEXTPtr@@ -575,7 +576,7 @@                                    ("primitiveRestartEnable" ::: Bool)                                 -> io () cmdSetPrimitiveRestartEnableEXT commandBuffer primitiveRestartEnable = liftIO $ do-  let vkCmdSetPrimitiveRestartEnableEXTPtr = pVkCmdSetPrimitiveRestartEnableEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetPrimitiveRestartEnableEXTPtr = pVkCmdSetPrimitiveRestartEnableEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetPrimitiveRestartEnableEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetPrimitiveRestartEnableEXT is null" Nothing Nothing   let vkCmdSetPrimitiveRestartEnableEXT' = mkVkCmdSetPrimitiveRestartEnableEXT vkCmdSetPrimitiveRestartEnableEXTPtr
src/Vulkan/Extensions/VK_EXT_external_memory_host.hs view
@@ -213,6 +213,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetMemoryHostPointerPropertiesEXT)) import Vulkan.Core10.FundamentalTypes (DeviceSize) import Vulkan.Core10.Handles (Device_T)@@ -302,7 +303,7 @@                                      ("hostPointer" ::: Ptr ())                                   -> io (MemoryHostPointerPropertiesEXT) getMemoryHostPointerPropertiesEXT device handleType hostPointer = liftIO . evalContT $ do-  let vkGetMemoryHostPointerPropertiesEXTPtr = pVkGetMemoryHostPointerPropertiesEXT (deviceCmds (device :: Device))+  let vkGetMemoryHostPointerPropertiesEXTPtr = pVkGetMemoryHostPointerPropertiesEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetMemoryHostPointerPropertiesEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetMemoryHostPointerPropertiesEXT is null" Nothing Nothing   let vkGetMemoryHostPointerPropertiesEXT' = mkVkGetMemoryHostPointerPropertiesEXT vkGetMemoryHostPointerPropertiesEXTPtr
src/Vulkan/Extensions/VK_EXT_full_screen_exclusive.hs view
@@ -332,6 +332,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkAcquireFullScreenExclusiveModeEXT)) import Vulkan.Dynamic (DeviceCmds(pVkGetDeviceGroupSurfacePresentModes2EXT)) import Vulkan.Dynamic (DeviceCmds(pVkReleaseFullScreenExclusiveModeEXT))@@ -342,6 +343,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceSurfacePresentModes2EXT)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Extensions.VK_KHR_get_surface_capabilities2 (PhysicalDeviceSurfaceInfo2KHR) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.CStruct.Extends (PokeChain)@@ -444,7 +446,7 @@                                             (PhysicalDeviceSurfaceInfo2KHR a)                                          -> io (Result, ("presentModes" ::: Vector PresentModeKHR)) getPhysicalDeviceSurfacePresentModes2EXT physicalDevice surfaceInfo = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSurfacePresentModes2EXTPtr = pVkGetPhysicalDeviceSurfacePresentModes2EXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSurfacePresentModes2EXTPtr = pVkGetPhysicalDeviceSurfacePresentModes2EXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSurfacePresentModes2EXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSurfacePresentModes2EXT is null" Nothing Nothing   let vkGetPhysicalDeviceSurfacePresentModes2EXT' = mkVkGetPhysicalDeviceSurfacePresentModes2EXT vkGetPhysicalDeviceSurfacePresentModes2EXTPtr@@ -521,7 +523,7 @@                                          (PhysicalDeviceSurfaceInfo2KHR a)                                       -> io (("modes" ::: DeviceGroupPresentModeFlagsKHR)) getDeviceGroupSurfacePresentModes2EXT device surfaceInfo = liftIO . evalContT $ do-  let vkGetDeviceGroupSurfacePresentModes2EXTPtr = pVkGetDeviceGroupSurfacePresentModes2EXT (deviceCmds (device :: Device))+  let vkGetDeviceGroupSurfacePresentModes2EXTPtr = pVkGetDeviceGroupSurfacePresentModes2EXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceGroupSurfacePresentModes2EXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceGroupSurfacePresentModes2EXT is null" Nothing Nothing   let vkGetDeviceGroupSurfacePresentModes2EXT' = mkVkGetDeviceGroupSurfacePresentModes2EXT vkGetDeviceGroupSurfacePresentModes2EXTPtr@@ -616,7 +618,7 @@                                      SwapchainKHR                                   -> io () acquireFullScreenExclusiveModeEXT device swapchain = liftIO $ do-  let vkAcquireFullScreenExclusiveModeEXTPtr = pVkAcquireFullScreenExclusiveModeEXT (deviceCmds (device :: Device))+  let vkAcquireFullScreenExclusiveModeEXTPtr = pVkAcquireFullScreenExclusiveModeEXT (case device of Device{deviceCmds} -> deviceCmds)   unless (vkAcquireFullScreenExclusiveModeEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAcquireFullScreenExclusiveModeEXT is null" Nothing Nothing   let vkAcquireFullScreenExclusiveModeEXT' = mkVkAcquireFullScreenExclusiveModeEXT vkAcquireFullScreenExclusiveModeEXTPtr@@ -666,7 +668,7 @@                                      SwapchainKHR                                   -> io () releaseFullScreenExclusiveModeEXT device swapchain = liftIO $ do-  let vkReleaseFullScreenExclusiveModeEXTPtr = pVkReleaseFullScreenExclusiveModeEXT (deviceCmds (device :: Device))+  let vkReleaseFullScreenExclusiveModeEXTPtr = pVkReleaseFullScreenExclusiveModeEXT (case device of Device{deviceCmds} -> deviceCmds)   unless (vkReleaseFullScreenExclusiveModeEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkReleaseFullScreenExclusiveModeEXT is null" Nothing Nothing   let vkReleaseFullScreenExclusiveModeEXT' = mkVkReleaseFullScreenExclusiveModeEXT vkReleaseFullScreenExclusiveModeEXTPtr
src/Vulkan/Extensions/VK_EXT_hdr_metadata.hs view
@@ -167,6 +167,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkSetHdrMetadataEXT)) import Vulkan.Core10.Handles (Device_T) import Vulkan.Core10.Enums.StructureType (StructureType)@@ -220,7 +221,7 @@                      ("metadata" ::: Vector HdrMetadataEXT)                   -> io () setHdrMetadataEXT device swapchains metadata = liftIO . evalContT $ do-  let vkSetHdrMetadataEXTPtr = pVkSetHdrMetadataEXT (deviceCmds (device :: Device))+  let vkSetHdrMetadataEXTPtr = pVkSetHdrMetadataEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkSetHdrMetadataEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSetHdrMetadataEXT is null" Nothing Nothing   let vkSetHdrMetadataEXT' = mkVkSetHdrMetadataEXT vkSetHdrMetadataEXTPtr
src/Vulkan/Extensions/VK_EXT_headless_surface.hs view
@@ -159,6 +159,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateHeadlessSurfaceEXT)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Enums.Result (Result)@@ -229,7 +230,7 @@                             ("allocator" ::: Maybe AllocationCallbacks)                          -> io (SurfaceKHR) createHeadlessSurfaceEXT instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateHeadlessSurfaceEXTPtr = pVkCreateHeadlessSurfaceEXT (instanceCmds (instance' :: Instance))+  let vkCreateHeadlessSurfaceEXTPtr = pVkCreateHeadlessSurfaceEXT (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateHeadlessSurfaceEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateHeadlessSurfaceEXT is null" Nothing Nothing   let vkCreateHeadlessSurfaceEXT' = mkVkCreateHeadlessSurfaceEXT vkCreateHeadlessSurfaceEXTPtr
src/Vulkan/Extensions/VK_EXT_image_drm_format_modifier.hs view
@@ -606,6 +606,7 @@ import Vulkan.CStruct.Utils (advancePtrBytes) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetImageDrmFormatModifierPropertiesEXT)) import Vulkan.Core10.Handles (Device_T) import Vulkan.Core10.Enums.FormatFeatureFlagBits (FormatFeatureFlags)@@ -674,7 +675,7 @@                                           Image                                        -> io (ImageDrmFormatModifierPropertiesEXT) getImageDrmFormatModifierPropertiesEXT device image = liftIO . evalContT $ do-  let vkGetImageDrmFormatModifierPropertiesEXTPtr = pVkGetImageDrmFormatModifierPropertiesEXT (deviceCmds (device :: Device))+  let vkGetImageDrmFormatModifierPropertiesEXTPtr = pVkGetImageDrmFormatModifierPropertiesEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetImageDrmFormatModifierPropertiesEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetImageDrmFormatModifierPropertiesEXT is null" Nothing Nothing   let vkGetImageDrmFormatModifierPropertiesEXT' = mkVkGetImageDrmFormatModifierPropertiesEXT vkGetImageDrmFormatModifierPropertiesEXTPtr
src/Vulkan/Extensions/VK_EXT_line_rasterization.hs view
@@ -188,6 +188,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetLineStippleEXT)) import Vulkan.Core10.Enums.StructureType (StructureType)@@ -269,7 +270,7 @@                         ("lineStipplePattern" ::: Word16)                      -> io () cmdSetLineStippleEXT commandBuffer lineStippleFactor lineStipplePattern = liftIO $ do-  let vkCmdSetLineStippleEXTPtr = pVkCmdSetLineStippleEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetLineStippleEXTPtr = pVkCmdSetLineStippleEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetLineStippleEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetLineStippleEXT is null" Nothing Nothing   let vkCmdSetLineStippleEXT' = mkVkCmdSetLineStippleEXT vkCmdSetLineStippleEXTPtr
src/Vulkan/Extensions/VK_EXT_metal_surface.hs view
@@ -149,6 +149,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateMetalSurfaceEXT)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Enums.Result (Result)@@ -219,7 +220,7 @@                          ("allocator" ::: Maybe AllocationCallbacks)                       -> io (SurfaceKHR) createMetalSurfaceEXT instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateMetalSurfaceEXTPtr = pVkCreateMetalSurfaceEXT (instanceCmds (instance' :: Instance))+  let vkCreateMetalSurfaceEXTPtr = pVkCreateMetalSurfaceEXT (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateMetalSurfaceEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateMetalSurfaceEXT is null" Nothing Nothing   let vkCreateMetalSurfaceEXT' = mkVkCreateMetalSurfaceEXT vkCreateMetalSurfaceEXTPtr
src/Vulkan/Extensions/VK_EXT_multi_draw.hs view
@@ -174,6 +174,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdDrawMultiEXT)) import Vulkan.Dynamic (DeviceCmds(pVkCmdDrawMultiIndexedEXT))@@ -1056,7 +1057,7 @@                    ("stride" ::: Word32)                 -> io () cmdDrawMultiEXT commandBuffer vertexInfo instanceCount firstInstance stride = liftIO . evalContT $ do-  let vkCmdDrawMultiEXTPtr = pVkCmdDrawMultiEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawMultiEXTPtr = pVkCmdDrawMultiEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdDrawMultiEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawMultiEXT is null" Nothing Nothing   let vkCmdDrawMultiEXT' = mkVkCmdDrawMultiEXT vkCmdDrawMultiEXTPtr@@ -1961,7 +1962,7 @@                           ("vertexOffset" ::: Maybe Int32)                        -> io () cmdDrawMultiIndexedEXT commandBuffer indexInfo instanceCount firstInstance stride vertexOffset = liftIO . evalContT $ do-  let vkCmdDrawMultiIndexedEXTPtr = pVkCmdDrawMultiIndexedEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawMultiIndexedEXTPtr = pVkCmdDrawMultiIndexedEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdDrawMultiIndexedEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawMultiIndexedEXT is null" Nothing Nothing   let vkCmdDrawMultiIndexedEXT' = mkVkCmdDrawMultiIndexedEXT vkCmdDrawMultiIndexedEXTPtr
src/Vulkan/Extensions/VK_EXT_pageable_device_local_memory.hs view
@@ -178,6 +178,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkSetDeviceMemoryPriorityEXT)) import Vulkan.Core10.Handles (DeviceMemory) import Vulkan.Core10.Handles (DeviceMemory(..))@@ -230,7 +231,7 @@                               ("priority" ::: Float)                            -> io () setDeviceMemoryPriorityEXT device memory priority = liftIO $ do-  let vkSetDeviceMemoryPriorityEXTPtr = pVkSetDeviceMemoryPriorityEXT (deviceCmds (device :: Device))+  let vkSetDeviceMemoryPriorityEXTPtr = pVkSetDeviceMemoryPriorityEXT (case device of Device{deviceCmds} -> deviceCmds)   unless (vkSetDeviceMemoryPriorityEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSetDeviceMemoryPriorityEXT is null" Nothing Nothing   let vkSetDeviceMemoryPriorityEXT' = mkVkSetDeviceMemoryPriorityEXT vkSetDeviceMemoryPriorityEXTPtr
src/Vulkan/Extensions/VK_EXT_private_data.hs view
@@ -204,6 +204,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreatePrivateDataSlotEXT)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyPrivateDataSlotEXT)) import Vulkan.Dynamic (DeviceCmds(pVkGetPrivateDataEXT))@@ -285,7 +286,7 @@                             ("allocator" ::: Maybe AllocationCallbacks)                          -> io (PrivateDataSlotEXT) createPrivateDataSlotEXT device createInfo allocator = liftIO . evalContT $ do-  let vkCreatePrivateDataSlotEXTPtr = pVkCreatePrivateDataSlotEXT (deviceCmds (device :: Device))+  let vkCreatePrivateDataSlotEXTPtr = pVkCreatePrivateDataSlotEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreatePrivateDataSlotEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreatePrivateDataSlotEXT is null" Nothing Nothing   let vkCreatePrivateDataSlotEXT' = mkVkCreatePrivateDataSlotEXT vkCreatePrivateDataSlotEXTPtr@@ -376,7 +377,7 @@                              ("allocator" ::: Maybe AllocationCallbacks)                           -> io () destroyPrivateDataSlotEXT device privateDataSlot allocator = liftIO . evalContT $ do-  let vkDestroyPrivateDataSlotEXTPtr = pVkDestroyPrivateDataSlotEXT (deviceCmds (device :: Device))+  let vkDestroyPrivateDataSlotEXTPtr = pVkDestroyPrivateDataSlotEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyPrivateDataSlotEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyPrivateDataSlotEXT is null" Nothing Nothing   let vkDestroyPrivateDataSlotEXT' = mkVkDestroyPrivateDataSlotEXT vkDestroyPrivateDataSlotEXTPtr@@ -448,7 +449,7 @@                      ("data" ::: Word64)                   -> io () setPrivateDataEXT device objectType objectHandle privateDataSlot data' = liftIO $ do-  let vkSetPrivateDataEXTPtr = pVkSetPrivateDataEXT (deviceCmds (device :: Device))+  let vkSetPrivateDataEXTPtr = pVkSetPrivateDataEXT (case device of Device{deviceCmds} -> deviceCmds)   unless (vkSetPrivateDataEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSetPrivateDataEXT is null" Nothing Nothing   let vkSetPrivateDataEXT' = mkVkSetPrivateDataEXT vkSetPrivateDataEXTPtr@@ -515,7 +516,7 @@                      PrivateDataSlotEXT                   -> io (("data" ::: Word64)) getPrivateDataEXT device objectType objectHandle privateDataSlot = liftIO . evalContT $ do-  let vkGetPrivateDataEXTPtr = pVkGetPrivateDataEXT (deviceCmds (device :: Device))+  let vkGetPrivateDataEXTPtr = pVkGetPrivateDataEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetPrivateDataEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPrivateDataEXT is null" Nothing Nothing   let vkGetPrivateDataEXT' = mkVkGetPrivateDataEXT vkGetPrivateDataEXTPtr
src/Vulkan/Extensions/VK_EXT_sample_locations.hs view
@@ -230,12 +230,14 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetSampleLocationsEXT)) import Vulkan.Core10.FundamentalTypes (Extent2D) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceMultisamplePropertiesEXT)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.SampleCountFlagBits (SampleCountFlagBits) import Vulkan.Core10.Enums.SampleCountFlagBits (SampleCountFlagBits(..))@@ -338,7 +340,7 @@                             SampleLocationsInfoEXT                          -> io () cmdSetSampleLocationsEXT commandBuffer sampleLocationsInfo = liftIO . evalContT $ do-  let vkCmdSetSampleLocationsEXTPtr = pVkCmdSetSampleLocationsEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetSampleLocationsEXTPtr = pVkCmdSetSampleLocationsEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetSampleLocationsEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetSampleLocationsEXT is null" Nothing Nothing   let vkCmdSetSampleLocationsEXT' = mkVkCmdSetSampleLocationsEXT vkCmdSetSampleLocationsEXTPtr@@ -383,7 +385,7 @@                                              ("samples" ::: SampleCountFlagBits)                                           -> io (MultisamplePropertiesEXT) getPhysicalDeviceMultisamplePropertiesEXT physicalDevice samples = liftIO . evalContT $ do-  let vkGetPhysicalDeviceMultisamplePropertiesEXTPtr = pVkGetPhysicalDeviceMultisamplePropertiesEXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceMultisamplePropertiesEXTPtr = pVkGetPhysicalDeviceMultisamplePropertiesEXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceMultisamplePropertiesEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceMultisamplePropertiesEXT is null" Nothing Nothing   let vkGetPhysicalDeviceMultisamplePropertiesEXT' = mkVkGetPhysicalDeviceMultisamplePropertiesEXT vkGetPhysicalDeviceMultisamplePropertiesEXTPtr
src/Vulkan/Extensions/VK_EXT_tooling_info.hs view
@@ -244,6 +244,7 @@ import Vulkan.Core10.APIConstants (MAX_EXTENSION_NAME_SIZE) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -314,7 +315,7 @@                                       PhysicalDevice                                    -> io (Result, ("toolProperties" ::: Vector PhysicalDeviceToolPropertiesEXT)) getPhysicalDeviceToolPropertiesEXT physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceToolPropertiesEXTPtr = pVkGetPhysicalDeviceToolPropertiesEXT (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceToolPropertiesEXTPtr = pVkGetPhysicalDeviceToolPropertiesEXT (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceToolPropertiesEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceToolPropertiesEXT is null" Nothing Nothing   let vkGetPhysicalDeviceToolPropertiesEXT' = mkVkGetPhysicalDeviceToolPropertiesEXT vkGetPhysicalDeviceToolPropertiesEXTPtr
src/Vulkan/Extensions/VK_EXT_transform_feedback.hs view
@@ -303,6 +303,7 @@ import Vulkan.Core10.Handles (Buffer(..)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdBeginQueryIndexedEXT)) import Vulkan.Dynamic (DeviceCmds(pVkCmdBeginTransformFeedbackEXT))@@ -465,7 +466,7 @@                                       ("sizes" ::: Vector DeviceSize)                                    -> io () cmdBindTransformFeedbackBuffersEXT commandBuffer firstBinding buffers offsets sizes = liftIO . evalContT $ do-  let vkCmdBindTransformFeedbackBuffersEXTPtr = pVkCmdBindTransformFeedbackBuffersEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBindTransformFeedbackBuffersEXTPtr = pVkCmdBindTransformFeedbackBuffersEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBindTransformFeedbackBuffersEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBindTransformFeedbackBuffersEXT is null" Nothing Nothing   let vkCmdBindTransformFeedbackBuffersEXT' = mkVkCmdBindTransformFeedbackBuffersEXT vkCmdBindTransformFeedbackBuffersEXTPtr@@ -643,7 +644,7 @@                                 ("counterBufferOffsets" ::: Vector DeviceSize)                              -> io () cmdBeginTransformFeedbackEXT commandBuffer firstCounterBuffer counterBuffers counterBufferOffsets = liftIO . evalContT $ do-  let vkCmdBeginTransformFeedbackEXTPtr = pVkCmdBeginTransformFeedbackEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBeginTransformFeedbackEXTPtr = pVkCmdBeginTransformFeedbackEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBeginTransformFeedbackEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBeginTransformFeedbackEXT is null" Nothing Nothing   let vkCmdBeginTransformFeedbackEXT' = mkVkCmdBeginTransformFeedbackEXT vkCmdBeginTransformFeedbackEXTPtr@@ -802,7 +803,7 @@                               ("counterBufferOffsets" ::: Vector DeviceSize)                            -> io () cmdEndTransformFeedbackEXT commandBuffer firstCounterBuffer counterBuffers counterBufferOffsets = liftIO . evalContT $ do-  let vkCmdEndTransformFeedbackEXTPtr = pVkCmdEndTransformFeedbackEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdEndTransformFeedbackEXTPtr = pVkCmdEndTransformFeedbackEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdEndTransformFeedbackEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdEndTransformFeedbackEXT is null" Nothing Nothing   let vkCmdEndTransformFeedbackEXT' = mkVkCmdEndTransformFeedbackEXT vkCmdEndTransformFeedbackEXTPtr@@ -1039,7 +1040,7 @@                            ("index" ::: Word32)                         -> io () cmdBeginQueryIndexedEXT commandBuffer queryPool query flags index = liftIO $ do-  let vkCmdBeginQueryIndexedEXTPtr = pVkCmdBeginQueryIndexedEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBeginQueryIndexedEXTPtr = pVkCmdBeginQueryIndexedEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdBeginQueryIndexedEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBeginQueryIndexedEXT is null" Nothing Nothing   let vkCmdBeginQueryIndexedEXT' = mkVkCmdBeginQueryIndexedEXT vkCmdBeginQueryIndexedEXTPtr@@ -1162,7 +1163,7 @@                          ("index" ::: Word32)                       -> io () cmdEndQueryIndexedEXT commandBuffer queryPool query index = liftIO $ do-  let vkCmdEndQueryIndexedEXTPtr = pVkCmdEndQueryIndexedEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdEndQueryIndexedEXTPtr = pVkCmdEndQueryIndexedEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdEndQueryIndexedEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdEndQueryIndexedEXT is null" Nothing Nothing   let vkCmdEndQueryIndexedEXT' = mkVkCmdEndQueryIndexedEXT vkCmdEndQueryIndexedEXTPtr@@ -2069,7 +2070,7 @@                                ("vertexStride" ::: Word32)                             -> io () cmdDrawIndirectByteCountEXT commandBuffer instanceCount firstInstance counterBuffer counterBufferOffset counterOffset vertexStride = liftIO $ do-  let vkCmdDrawIndirectByteCountEXTPtr = pVkCmdDrawIndirectByteCountEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawIndirectByteCountEXTPtr = pVkCmdDrawIndirectByteCountEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDrawIndirectByteCountEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawIndirectByteCountEXT is null" Nothing Nothing   let vkCmdDrawIndirectByteCountEXT' = mkVkCmdDrawIndirectByteCountEXT vkCmdDrawIndirectByteCountEXTPtr
src/Vulkan/Extensions/VK_EXT_validation_cache.hs view
@@ -202,6 +202,7 @@ import Vulkan.Core10.AllocationCallbacks (AllocationCallbacks) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateValidationCacheEXT)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyValidationCacheEXT)) import Vulkan.Dynamic (DeviceCmds(pVkGetValidationCacheDataEXT))@@ -304,7 +305,7 @@                             ("allocator" ::: Maybe AllocationCallbacks)                          -> io (ValidationCacheEXT) createValidationCacheEXT device createInfo allocator = liftIO . evalContT $ do-  let vkCreateValidationCacheEXTPtr = pVkCreateValidationCacheEXT (deviceCmds (device :: Device))+  let vkCreateValidationCacheEXTPtr = pVkCreateValidationCacheEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateValidationCacheEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateValidationCacheEXT is null" Nothing Nothing   let vkCreateValidationCacheEXT' = mkVkCreateValidationCacheEXT vkCreateValidationCacheEXTPtr@@ -395,7 +396,7 @@                              ("allocator" ::: Maybe AllocationCallbacks)                           -> io () destroyValidationCacheEXT device validationCache allocator = liftIO . evalContT $ do-  let vkDestroyValidationCacheEXTPtr = pVkDestroyValidationCacheEXT (deviceCmds (device :: Device))+  let vkDestroyValidationCacheEXTPtr = pVkDestroyValidationCacheEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyValidationCacheEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyValidationCacheEXT is null" Nothing Nothing   let vkDestroyValidationCacheEXT' = mkVkDestroyValidationCacheEXT vkDestroyValidationCacheEXTPtr@@ -527,7 +528,7 @@                              ValidationCacheEXT                           -> io (Result, ("data" ::: ByteString)) getValidationCacheDataEXT device validationCache = liftIO . evalContT $ do-  let vkGetValidationCacheDataEXTPtr = pVkGetValidationCacheDataEXT (deviceCmds (device :: Device))+  let vkGetValidationCacheDataEXTPtr = pVkGetValidationCacheDataEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetValidationCacheDataEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetValidationCacheDataEXT is null" Nothing Nothing   let vkGetValidationCacheDataEXT' = mkVkGetValidationCacheDataEXT vkGetValidationCacheDataEXTPtr@@ -623,7 +624,7 @@                             ("srcCaches" ::: Vector ValidationCacheEXT)                          -> io () mergeValidationCachesEXT device dstCache srcCaches = liftIO . evalContT $ do-  let vkMergeValidationCachesEXTPtr = pVkMergeValidationCachesEXT (deviceCmds (device :: Device))+  let vkMergeValidationCachesEXTPtr = pVkMergeValidationCachesEXT (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkMergeValidationCachesEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkMergeValidationCachesEXT is null" Nothing Nothing   let vkMergeValidationCachesEXT' = mkVkMergeValidationCachesEXT vkMergeValidationCachesEXTPtr
src/Vulkan/Extensions/VK_EXT_vertex_input_dynamic_state.hs view
@@ -165,6 +165,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetVertexInputEXT)) import Vulkan.Core10.Enums.Format (Format)@@ -291,7 +292,7 @@                         ("vertexAttributeDescriptions" ::: Vector VertexInputAttributeDescription2EXT)                      -> io () cmdSetVertexInputEXT commandBuffer vertexBindingDescriptions vertexAttributeDescriptions = liftIO . evalContT $ do-  let vkCmdSetVertexInputEXTPtr = pVkCmdSetVertexInputEXT (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetVertexInputEXTPtr = pVkCmdSetVertexInputEXT (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetVertexInputEXTPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetVertexInputEXT is null" Nothing Nothing   let vkCmdSetVertexInputEXT' = mkVkCmdSetVertexInputEXT vkCmdSetVertexInputEXTPtr
src/Vulkan/Extensions/VK_FUCHSIA_buffer_collection.hs view
@@ -303,6 +303,7 @@ import Vulkan.Core10.ImageView (ComponentMapping) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateBufferCollectionFUCHSIA)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyBufferCollectionFUCHSIA)) import Vulkan.Dynamic (DeviceCmds(pVkGetBufferCollectionPropertiesFUCHSIA))@@ -406,7 +407,7 @@                                  ("allocator" ::: Maybe AllocationCallbacks)                               -> io (BufferCollectionFUCHSIA) createBufferCollectionFUCHSIA device createInfo allocator = liftIO . evalContT $ do-  let vkCreateBufferCollectionFUCHSIAPtr = pVkCreateBufferCollectionFUCHSIA (deviceCmds (device :: Device))+  let vkCreateBufferCollectionFUCHSIAPtr = pVkCreateBufferCollectionFUCHSIA (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateBufferCollectionFUCHSIAPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateBufferCollectionFUCHSIA is null" Nothing Nothing   let vkCreateBufferCollectionFUCHSIA' = mkVkCreateBufferCollectionFUCHSIA vkCreateBufferCollectionFUCHSIAPtr@@ -498,7 +499,7 @@                                                BufferConstraintsInfoFUCHSIA                                             -> io () setBufferCollectionBufferConstraintsFUCHSIA device collection bufferConstraintsInfo = liftIO . evalContT $ do-  let vkSetBufferCollectionBufferConstraintsFUCHSIAPtr = pVkSetBufferCollectionBufferConstraintsFUCHSIA (deviceCmds (device :: Device))+  let vkSetBufferCollectionBufferConstraintsFUCHSIAPtr = pVkSetBufferCollectionBufferConstraintsFUCHSIA (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkSetBufferCollectionBufferConstraintsFUCHSIAPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSetBufferCollectionBufferConstraintsFUCHSIA is null" Nothing Nothing   let vkSetBufferCollectionBufferConstraintsFUCHSIA' = mkVkSetBufferCollectionBufferConstraintsFUCHSIA vkSetBufferCollectionBufferConstraintsFUCHSIAPtr@@ -577,7 +578,7 @@                                               ImageConstraintsInfoFUCHSIA                                            -> io () setBufferCollectionImageConstraintsFUCHSIA device collection imageConstraintsInfo = liftIO . evalContT $ do-  let vkSetBufferCollectionImageConstraintsFUCHSIAPtr = pVkSetBufferCollectionImageConstraintsFUCHSIA (deviceCmds (device :: Device))+  let vkSetBufferCollectionImageConstraintsFUCHSIAPtr = pVkSetBufferCollectionImageConstraintsFUCHSIA (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkSetBufferCollectionImageConstraintsFUCHSIAPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkSetBufferCollectionImageConstraintsFUCHSIA is null" Nothing Nothing   let vkSetBufferCollectionImageConstraintsFUCHSIA' = mkVkSetBufferCollectionImageConstraintsFUCHSIA vkSetBufferCollectionImageConstraintsFUCHSIAPtr@@ -646,7 +647,7 @@                                   ("allocator" ::: Maybe AllocationCallbacks)                                -> io () destroyBufferCollectionFUCHSIA device collection allocator = liftIO . evalContT $ do-  let vkDestroyBufferCollectionFUCHSIAPtr = pVkDestroyBufferCollectionFUCHSIA (deviceCmds (device :: Device))+  let vkDestroyBufferCollectionFUCHSIAPtr = pVkDestroyBufferCollectionFUCHSIA (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyBufferCollectionFUCHSIAPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyBufferCollectionFUCHSIA is null" Nothing Nothing   let vkDestroyBufferCollectionFUCHSIA' = mkVkDestroyBufferCollectionFUCHSIA vkDestroyBufferCollectionFUCHSIAPtr@@ -738,7 +739,7 @@                                         BufferCollectionFUCHSIA                                      -> io (BufferCollectionPropertiesFUCHSIA) getBufferCollectionPropertiesFUCHSIA device collection = liftIO . evalContT $ do-  let vkGetBufferCollectionPropertiesFUCHSIAPtr = pVkGetBufferCollectionPropertiesFUCHSIA (deviceCmds (device :: Device))+  let vkGetBufferCollectionPropertiesFUCHSIAPtr = pVkGetBufferCollectionPropertiesFUCHSIA (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetBufferCollectionPropertiesFUCHSIAPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetBufferCollectionPropertiesFUCHSIA is null" Nothing Nothing   let vkGetBufferCollectionPropertiesFUCHSIA' = mkVkGetBufferCollectionPropertiesFUCHSIA vkGetBufferCollectionPropertiesFUCHSIAPtr
src/Vulkan/Extensions/VK_FUCHSIA_external_memory.hs view
@@ -164,6 +164,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetMemoryZirconHandleFUCHSIA)) import Vulkan.Dynamic (DeviceCmds(pVkGetMemoryZirconHandlePropertiesFUCHSIA)) import Vulkan.Core10.Handles (DeviceMemory)@@ -222,7 +223,7 @@                                 MemoryGetZirconHandleInfoFUCHSIA                              -> io (("zirconHandle" ::: Zx_handle_t)) getMemoryZirconHandleFUCHSIA device getZirconHandleInfo = liftIO . evalContT $ do-  let vkGetMemoryZirconHandleFUCHSIAPtr = pVkGetMemoryZirconHandleFUCHSIA (deviceCmds (device :: Device))+  let vkGetMemoryZirconHandleFUCHSIAPtr = pVkGetMemoryZirconHandleFUCHSIA (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetMemoryZirconHandleFUCHSIAPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetMemoryZirconHandleFUCHSIA is null" Nothing Nothing   let vkGetMemoryZirconHandleFUCHSIA' = mkVkGetMemoryZirconHandleFUCHSIA vkGetMemoryZirconHandleFUCHSIAPtr@@ -288,7 +289,7 @@                                           ("zirconHandle" ::: Zx_handle_t)                                        -> io (MemoryZirconHandlePropertiesFUCHSIA) getMemoryZirconHandlePropertiesFUCHSIA device handleType zirconHandle = liftIO . evalContT $ do-  let vkGetMemoryZirconHandlePropertiesFUCHSIAPtr = pVkGetMemoryZirconHandlePropertiesFUCHSIA (deviceCmds (device :: Device))+  let vkGetMemoryZirconHandlePropertiesFUCHSIAPtr = pVkGetMemoryZirconHandlePropertiesFUCHSIA (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetMemoryZirconHandlePropertiesFUCHSIAPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetMemoryZirconHandlePropertiesFUCHSIA is null" Nothing Nothing   let vkGetMemoryZirconHandlePropertiesFUCHSIA' = mkVkGetMemoryZirconHandlePropertiesFUCHSIA vkGetMemoryZirconHandlePropertiesFUCHSIAPtr
src/Vulkan/Extensions/VK_FUCHSIA_external_semaphore.hs view
@@ -160,6 +160,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetSemaphoreZirconHandleFUCHSIA)) import Vulkan.Dynamic (DeviceCmds(pVkImportSemaphoreZirconHandleFUCHSIA)) import Vulkan.Core10.Handles (Device_T)@@ -238,7 +239,7 @@                                    SemaphoreGetZirconHandleInfoFUCHSIA                                 -> io (("zirconHandle" ::: Zx_handle_t)) getSemaphoreZirconHandleFUCHSIA device getZirconHandleInfo = liftIO . evalContT $ do-  let vkGetSemaphoreZirconHandleFUCHSIAPtr = pVkGetSemaphoreZirconHandleFUCHSIA (deviceCmds (device :: Device))+  let vkGetSemaphoreZirconHandleFUCHSIAPtr = pVkGetSemaphoreZirconHandleFUCHSIA (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetSemaphoreZirconHandleFUCHSIAPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetSemaphoreZirconHandleFUCHSIA is null" Nothing Nothing   let vkGetSemaphoreZirconHandleFUCHSIA' = mkVkGetSemaphoreZirconHandleFUCHSIA vkGetSemaphoreZirconHandleFUCHSIAPtr@@ -304,7 +305,7 @@                                       ImportSemaphoreZirconHandleInfoFUCHSIA                                    -> io () importSemaphoreZirconHandleFUCHSIA device importSemaphoreZirconHandleInfo = liftIO . evalContT $ do-  let vkImportSemaphoreZirconHandleFUCHSIAPtr = pVkImportSemaphoreZirconHandleFUCHSIA (deviceCmds (device :: Device))+  let vkImportSemaphoreZirconHandleFUCHSIAPtr = pVkImportSemaphoreZirconHandleFUCHSIA (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkImportSemaphoreZirconHandleFUCHSIAPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkImportSemaphoreZirconHandleFUCHSIA is null" Nothing Nothing   let vkImportSemaphoreZirconHandleFUCHSIA' = mkVkImportSemaphoreZirconHandleFUCHSIA vkImportSemaphoreZirconHandleFUCHSIAPtr
src/Vulkan/Extensions/VK_FUCHSIA_imagepipe_surface.hs view
@@ -150,6 +150,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateImagePipeSurfaceFUCHSIA)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Enums.Result (Result)@@ -221,7 +222,7 @@                                  ("allocator" ::: Maybe AllocationCallbacks)                               -> io (SurfaceKHR) createImagePipeSurfaceFUCHSIA instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateImagePipeSurfaceFUCHSIAPtr = pVkCreateImagePipeSurfaceFUCHSIA (instanceCmds (instance' :: Instance))+  let vkCreateImagePipeSurfaceFUCHSIAPtr = pVkCreateImagePipeSurfaceFUCHSIA (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateImagePipeSurfaceFUCHSIAPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateImagePipeSurfaceFUCHSIA is null" Nothing Nothing   let vkCreateImagePipeSurfaceFUCHSIA' = mkVkCreateImagePipeSurfaceFUCHSIA vkCreateImagePipeSurfaceFUCHSIAPtr
src/Vulkan/Extensions/VK_GGP_stream_descriptor_surface.hs view
@@ -176,6 +176,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateStreamDescriptorSurfaceGGP)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Enums.Result (Result)@@ -251,7 +252,7 @@                                     ("allocator" ::: Maybe AllocationCallbacks)                                  -> io (SurfaceKHR) createStreamDescriptorSurfaceGGP instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateStreamDescriptorSurfaceGGPPtr = pVkCreateStreamDescriptorSurfaceGGP (instanceCmds (instance' :: Instance))+  let vkCreateStreamDescriptorSurfaceGGPPtr = pVkCreateStreamDescriptorSurfaceGGP (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateStreamDescriptorSurfaceGGPPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateStreamDescriptorSurfaceGGP is null" Nothing Nothing   let vkCreateStreamDescriptorSurfaceGGP' = mkVkCreateStreamDescriptorSurfaceGGP vkCreateStreamDescriptorSurfaceGGPPtr
src/Vulkan/Extensions/VK_GOOGLE_display_timing.hs view
@@ -179,6 +179,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetPastPresentationTimingGOOGLE)) import Vulkan.Dynamic (DeviceCmds(pVkGetRefreshCycleDurationGOOGLE)) import Vulkan.Core10.Handles (Device_T)@@ -249,7 +250,7 @@                                  SwapchainKHR                               -> io (("displayTimingProperties" ::: RefreshCycleDurationGOOGLE)) getRefreshCycleDurationGOOGLE device swapchain = liftIO . evalContT $ do-  let vkGetRefreshCycleDurationGOOGLEPtr = pVkGetRefreshCycleDurationGOOGLE (deviceCmds (device :: Device))+  let vkGetRefreshCycleDurationGOOGLEPtr = pVkGetRefreshCycleDurationGOOGLE (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetRefreshCycleDurationGOOGLEPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetRefreshCycleDurationGOOGLE is null" Nothing Nothing   let vkGetRefreshCycleDurationGOOGLE' = mkVkGetRefreshCycleDurationGOOGLE vkGetRefreshCycleDurationGOOGLEPtr@@ -344,7 +345,7 @@                                    SwapchainKHR                                 -> io (Result, ("presentationTimings" ::: Vector PastPresentationTimingGOOGLE)) getPastPresentationTimingGOOGLE device swapchain = liftIO . evalContT $ do-  let vkGetPastPresentationTimingGOOGLEPtr = pVkGetPastPresentationTimingGOOGLE (deviceCmds (device :: Device))+  let vkGetPastPresentationTimingGOOGLEPtr = pVkGetPastPresentationTimingGOOGLE (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetPastPresentationTimingGOOGLEPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPastPresentationTimingGOOGLE is null" Nothing Nothing   let vkGetPastPresentationTimingGOOGLE' = mkVkGetPastPresentationTimingGOOGLE vkGetPastPresentationTimingGOOGLEPtr
src/Vulkan/Extensions/VK_HUAWEI_invocation_mask.hs view
@@ -189,6 +189,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdBindInvocationMaskHUAWEI)) import Vulkan.Core10.Enums.ImageLayout (ImageLayout)@@ -319,7 +320,7 @@                                ImageLayout                             -> io () cmdBindInvocationMaskHUAWEI commandBuffer imageView imageLayout = liftIO $ do-  let vkCmdBindInvocationMaskHUAWEIPtr = pVkCmdBindInvocationMaskHUAWEI (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBindInvocationMaskHUAWEIPtr = pVkCmdBindInvocationMaskHUAWEI (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdBindInvocationMaskHUAWEIPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBindInvocationMaskHUAWEI is null" Nothing Nothing   let vkCmdBindInvocationMaskHUAWEI' = mkVkCmdBindInvocationMaskHUAWEI vkCmdBindInvocationMaskHUAWEIPtr
src/Vulkan/Extensions/VK_HUAWEI_subpass_shading.hs view
@@ -390,9 +390,11 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCmdSubpassShadingHUAWEI)) import Vulkan.Dynamic (DeviceCmds(pVkGetDeviceSubpassShadingMaxWorkgroupSizeHUAWEI)) import Vulkan.Core10.Handles (Device_T)@@ -459,7 +461,7 @@                                                  RenderPass                                               -> io (Result, ("maxWorkgroupSize" ::: Extent2D)) getDeviceSubpassShadingMaxWorkgroupSizeHUAWEI device renderpass = liftIO . evalContT $ do-  let vkGetDeviceSubpassShadingMaxWorkgroupSizeHUAWEIPtr = pVkGetDeviceSubpassShadingMaxWorkgroupSizeHUAWEI (deviceCmds (device :: Device))+  let vkGetDeviceSubpassShadingMaxWorkgroupSizeHUAWEIPtr = pVkGetDeviceSubpassShadingMaxWorkgroupSizeHUAWEI (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceSubpassShadingMaxWorkgroupSizeHUAWEIPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceSubpassShadingMaxWorkgroupSizeHUAWEI is null" Nothing Nothing   let vkGetDeviceSubpassShadingMaxWorkgroupSizeHUAWEI' = mkVkGetDeviceSubpassShadingMaxWorkgroupSizeHUAWEI vkGetDeviceSubpassShadingMaxWorkgroupSizeHUAWEIPtr@@ -780,7 +782,7 @@                            CommandBuffer                         -> io () cmdSubpassShadingHUAWEI commandBuffer = liftIO $ do-  let vkCmdSubpassShadingHUAWEIPtr = pVkCmdSubpassShadingHUAWEI (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSubpassShadingHUAWEIPtr = pVkCmdSubpassShadingHUAWEI (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSubpassShadingHUAWEIPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSubpassShadingHUAWEI is null" Nothing Nothing   let vkCmdSubpassShadingHUAWEI' = mkVkCmdSubpassShadingHUAWEI vkCmdSubpassShadingHUAWEIPtr
src/Vulkan/Extensions/VK_INTEL_performance_query.hs view
@@ -423,9 +423,11 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkAcquirePerformanceConfigurationINTEL)) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetPerformanceMarkerINTEL)) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetPerformanceOverrideINTEL))@@ -440,6 +442,7 @@ import Vulkan.Extensions.Handles (PerformanceConfigurationINTEL(..)) import Vulkan.Core10.Handles (Queue) import Vulkan.Core10.Handles (Queue(..))+import Vulkan.Core10.Handles (Queue(Queue)) import Vulkan.Core10.Handles (Queue_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -495,7 +498,7 @@                                  ("initializeInfo" ::: InitializePerformanceApiInfoINTEL)                               -> io () initializePerformanceApiINTEL device initializeInfo = liftIO . evalContT $ do-  let vkInitializePerformanceApiINTELPtr = pVkInitializePerformanceApiINTEL (deviceCmds (device :: Device))+  let vkInitializePerformanceApiINTELPtr = pVkInitializePerformanceApiINTEL (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkInitializePerformanceApiINTELPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkInitializePerformanceApiINTEL is null" Nothing Nothing   let vkInitializePerformanceApiINTEL' = mkVkInitializePerformanceApiINTEL vkInitializePerformanceApiINTELPtr@@ -529,7 +532,7 @@                                    Device                                 -> io () uninitializePerformanceApiINTEL device = liftIO $ do-  let vkUninitializePerformanceApiINTELPtr = pVkUninitializePerformanceApiINTEL (deviceCmds (device :: Device))+  let vkUninitializePerformanceApiINTELPtr = pVkUninitializePerformanceApiINTEL (case device of Device{deviceCmds} -> deviceCmds)   unless (vkUninitializePerformanceApiINTELPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkUninitializePerformanceApiINTEL is null" Nothing Nothing   let vkUninitializePerformanceApiINTEL' = mkVkUninitializePerformanceApiINTEL vkUninitializePerformanceApiINTELPtr@@ -613,7 +616,7 @@                                 PerformanceMarkerInfoINTEL                              -> io () cmdSetPerformanceMarkerINTEL commandBuffer markerInfo = liftIO . evalContT $ do-  let vkCmdSetPerformanceMarkerINTELPtr = pVkCmdSetPerformanceMarkerINTEL (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetPerformanceMarkerINTELPtr = pVkCmdSetPerformanceMarkerINTEL (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetPerformanceMarkerINTELPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetPerformanceMarkerINTEL is null" Nothing Nothing   let vkCmdSetPerformanceMarkerINTEL' = mkVkCmdSetPerformanceMarkerINTEL vkCmdSetPerformanceMarkerINTELPtr@@ -694,7 +697,7 @@                                       PerformanceStreamMarkerInfoINTEL                                    -> io () cmdSetPerformanceStreamMarkerINTEL commandBuffer markerInfo = liftIO . evalContT $ do-  let vkCmdSetPerformanceStreamMarkerINTELPtr = pVkCmdSetPerformanceStreamMarkerINTEL (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetPerformanceStreamMarkerINTELPtr = pVkCmdSetPerformanceStreamMarkerINTEL (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetPerformanceStreamMarkerINTELPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetPerformanceStreamMarkerINTEL is null" Nothing Nothing   let vkCmdSetPerformanceStreamMarkerINTEL' = mkVkCmdSetPerformanceStreamMarkerINTEL vkCmdSetPerformanceStreamMarkerINTELPtr@@ -782,7 +785,7 @@                                   PerformanceOverrideInfoINTEL                                -> io () cmdSetPerformanceOverrideINTEL commandBuffer overrideInfo = liftIO . evalContT $ do-  let vkCmdSetPerformanceOverrideINTELPtr = pVkCmdSetPerformanceOverrideINTEL (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetPerformanceOverrideINTELPtr = pVkCmdSetPerformanceOverrideINTEL (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetPerformanceOverrideINTELPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetPerformanceOverrideINTEL is null" Nothing Nothing   let vkCmdSetPerformanceOverrideINTEL' = mkVkCmdSetPerformanceOverrideINTEL vkCmdSetPerformanceOverrideINTELPtr@@ -837,7 +840,7 @@                                         PerformanceConfigurationAcquireInfoINTEL                                      -> io (PerformanceConfigurationINTEL) acquirePerformanceConfigurationINTEL device acquireInfo = liftIO . evalContT $ do-  let vkAcquirePerformanceConfigurationINTELPtr = pVkAcquirePerformanceConfigurationINTEL (deviceCmds (device :: Device))+  let vkAcquirePerformanceConfigurationINTELPtr = pVkAcquirePerformanceConfigurationINTEL (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkAcquirePerformanceConfigurationINTELPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAcquirePerformanceConfigurationINTEL is null" Nothing Nothing   let vkAcquirePerformanceConfigurationINTEL' = mkVkAcquirePerformanceConfigurationINTEL vkAcquirePerformanceConfigurationINTELPtr@@ -910,7 +913,7 @@                                         PerformanceConfigurationINTEL                                      -> io () releasePerformanceConfigurationINTEL device configuration = liftIO $ do-  let vkReleasePerformanceConfigurationINTELPtr = pVkReleasePerformanceConfigurationINTEL (deviceCmds (device :: Device))+  let vkReleasePerformanceConfigurationINTELPtr = pVkReleasePerformanceConfigurationINTEL (case device of Device{deviceCmds} -> deviceCmds)   unless (vkReleasePerformanceConfigurationINTELPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkReleasePerformanceConfigurationINTEL is null" Nothing Nothing   let vkReleasePerformanceConfigurationINTEL' = mkVkReleasePerformanceConfigurationINTEL vkReleasePerformanceConfigurationINTELPtr@@ -975,7 +978,7 @@                                          PerformanceConfigurationINTEL                                       -> io () queueSetPerformanceConfigurationINTEL queue configuration = liftIO $ do-  let vkQueueSetPerformanceConfigurationINTELPtr = pVkQueueSetPerformanceConfigurationINTEL (deviceCmds (queue :: Queue))+  let vkQueueSetPerformanceConfigurationINTELPtr = pVkQueueSetPerformanceConfigurationINTEL (case queue of Queue{deviceCmds} -> deviceCmds)   unless (vkQueueSetPerformanceConfigurationINTELPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkQueueSetPerformanceConfigurationINTEL is null" Nothing Nothing   let vkQueueSetPerformanceConfigurationINTEL' = mkVkQueueSetPerformanceConfigurationINTEL vkQueueSetPerformanceConfigurationINTELPtr@@ -1024,7 +1027,7 @@                                 PerformanceParameterTypeINTEL                              -> io (PerformanceValueINTEL) getPerformanceParameterINTEL device parameter = liftIO . evalContT $ do-  let vkGetPerformanceParameterINTELPtr = pVkGetPerformanceParameterINTEL (deviceCmds (device :: Device))+  let vkGetPerformanceParameterINTELPtr = pVkGetPerformanceParameterINTEL (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetPerformanceParameterINTELPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPerformanceParameterINTEL is null" Nothing Nothing   let vkGetPerformanceParameterINTEL' = mkVkGetPerformanceParameterINTEL vkGetPerformanceParameterINTELPtr
src/Vulkan/Extensions/VK_KHR_acceleration_structure.hs view
@@ -1378,11 +1378,13 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Extensions.Handles (DeferredOperationKHR) import Vulkan.Extensions.Handles (DeferredOperationKHR(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Core10.FundamentalTypes (DeviceAddress) import Vulkan.Dynamic (DeviceCmds(pVkBuildAccelerationStructuresKHR)) import Vulkan.Dynamic (DeviceCmds(pVkCmdBuildAccelerationStructuresIndirectKHR))@@ -1513,7 +1515,7 @@                                    ("allocator" ::: Maybe AllocationCallbacks)                                 -> io () destroyAccelerationStructureKHR device accelerationStructure allocator = liftIO . evalContT $ do-  let vkDestroyAccelerationStructureKHRPtr = pVkDestroyAccelerationStructureKHR (deviceCmds (device :: Device))+  let vkDestroyAccelerationStructureKHRPtr = pVkDestroyAccelerationStructureKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyAccelerationStructureKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyAccelerationStructureKHR is null" Nothing Nothing   let vkDestroyAccelerationStructureKHR' = mkVkDestroyAccelerationStructureKHR vkDestroyAccelerationStructureKHRPtr@@ -1614,7 +1616,7 @@                                    CopyAccelerationStructureInfoKHR                                 -> io () cmdCopyAccelerationStructureKHR commandBuffer info = liftIO . evalContT $ do-  let vkCmdCopyAccelerationStructureKHRPtr = pVkCmdCopyAccelerationStructureKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyAccelerationStructureKHRPtr = pVkCmdCopyAccelerationStructureKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyAccelerationStructureKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyAccelerationStructureKHR is null" Nothing Nothing   let vkCmdCopyAccelerationStructureKHR' = mkVkCmdCopyAccelerationStructureKHR vkCmdCopyAccelerationStructureKHRPtr@@ -1722,7 +1724,7 @@                                 CopyAccelerationStructureInfoKHR                              -> io (Result) copyAccelerationStructureKHR device deferredOperation info = liftIO . evalContT $ do-  let vkCopyAccelerationStructureKHRPtr = pVkCopyAccelerationStructureKHR (deviceCmds (device :: Device))+  let vkCopyAccelerationStructureKHRPtr = pVkCopyAccelerationStructureKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCopyAccelerationStructureKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCopyAccelerationStructureKHR is null" Nothing Nothing   let vkCopyAccelerationStructureKHR' = mkVkCopyAccelerationStructureKHR vkCopyAccelerationStructureKHRPtr@@ -1869,7 +1871,7 @@                                            CopyAccelerationStructureToMemoryInfoKHR                                         -> io () cmdCopyAccelerationStructureToMemoryKHR commandBuffer info = liftIO . evalContT $ do-  let vkCmdCopyAccelerationStructureToMemoryKHRPtr = pVkCmdCopyAccelerationStructureToMemoryKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyAccelerationStructureToMemoryKHRPtr = pVkCmdCopyAccelerationStructureToMemoryKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyAccelerationStructureToMemoryKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyAccelerationStructureToMemoryKHR is null" Nothing Nothing   let vkCmdCopyAccelerationStructureToMemoryKHR' = mkVkCmdCopyAccelerationStructureToMemoryKHR vkCmdCopyAccelerationStructureToMemoryKHRPtr@@ -1985,7 +1987,7 @@                                         CopyAccelerationStructureToMemoryInfoKHR                                      -> io (Result) copyAccelerationStructureToMemoryKHR device deferredOperation info = liftIO . evalContT $ do-  let vkCopyAccelerationStructureToMemoryKHRPtr = pVkCopyAccelerationStructureToMemoryKHR (deviceCmds (device :: Device))+  let vkCopyAccelerationStructureToMemoryKHRPtr = pVkCopyAccelerationStructureToMemoryKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCopyAccelerationStructureToMemoryKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCopyAccelerationStructureToMemoryKHR is null" Nothing Nothing   let vkCopyAccelerationStructureToMemoryKHR' = mkVkCopyAccelerationStructureToMemoryKHR vkCopyAccelerationStructureToMemoryKHRPtr@@ -2104,7 +2106,7 @@                                            CopyMemoryToAccelerationStructureInfoKHR                                         -> io () cmdCopyMemoryToAccelerationStructureKHR commandBuffer info = liftIO . evalContT $ do-  let vkCmdCopyMemoryToAccelerationStructureKHRPtr = pVkCmdCopyMemoryToAccelerationStructureKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyMemoryToAccelerationStructureKHRPtr = pVkCmdCopyMemoryToAccelerationStructureKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyMemoryToAccelerationStructureKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyMemoryToAccelerationStructureKHR is null" Nothing Nothing   let vkCmdCopyMemoryToAccelerationStructureKHR' = mkVkCmdCopyMemoryToAccelerationStructureKHR vkCmdCopyMemoryToAccelerationStructureKHRPtr@@ -2216,7 +2218,7 @@                                         CopyMemoryToAccelerationStructureInfoKHR                                      -> io (Result) copyMemoryToAccelerationStructureKHR device deferredOperation info = liftIO . evalContT $ do-  let vkCopyMemoryToAccelerationStructureKHRPtr = pVkCopyMemoryToAccelerationStructureKHR (deviceCmds (device :: Device))+  let vkCopyMemoryToAccelerationStructureKHRPtr = pVkCopyMemoryToAccelerationStructureKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCopyMemoryToAccelerationStructureKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCopyMemoryToAccelerationStructureKHR is null" Nothing Nothing   let vkCopyMemoryToAccelerationStructureKHR' = mkVkCopyMemoryToAccelerationStructureKHR vkCopyMemoryToAccelerationStructureKHRPtr@@ -2375,7 +2377,7 @@                                                ("firstQuery" ::: Word32)                                             -> io () cmdWriteAccelerationStructuresPropertiesKHR commandBuffer accelerationStructures queryType queryPool firstQuery = liftIO . evalContT $ do-  let vkCmdWriteAccelerationStructuresPropertiesKHRPtr = pVkCmdWriteAccelerationStructuresPropertiesKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdWriteAccelerationStructuresPropertiesKHRPtr = pVkCmdWriteAccelerationStructuresPropertiesKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdWriteAccelerationStructuresPropertiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdWriteAccelerationStructuresPropertiesKHR is null" Nothing Nothing   let vkCmdWriteAccelerationStructuresPropertiesKHR' = mkVkCmdWriteAccelerationStructuresPropertiesKHR vkCmdWriteAccelerationStructuresPropertiesKHRPtr@@ -2529,7 +2531,7 @@                                             ("stride" ::: Word64)                                          -> io () writeAccelerationStructuresPropertiesKHR device accelerationStructures queryType dataSize data' stride = liftIO . evalContT $ do-  let vkWriteAccelerationStructuresPropertiesKHRPtr = pVkWriteAccelerationStructuresPropertiesKHR (deviceCmds (device :: Device))+  let vkWriteAccelerationStructuresPropertiesKHRPtr = pVkWriteAccelerationStructuresPropertiesKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkWriteAccelerationStructuresPropertiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkWriteAccelerationStructuresPropertiesKHR is null" Nothing Nothing   let vkWriteAccelerationStructuresPropertiesKHR' = mkVkWriteAccelerationStructuresPropertiesKHR vkWriteAccelerationStructuresPropertiesKHRPtr@@ -2585,7 +2587,7 @@                                                   AccelerationStructureVersionInfoKHR                                                -> io (AccelerationStructureCompatibilityKHR) getDeviceAccelerationStructureCompatibilityKHR device versionInfo = liftIO . evalContT $ do-  let vkGetDeviceAccelerationStructureCompatibilityKHRPtr = pVkGetDeviceAccelerationStructureCompatibilityKHR (deviceCmds (device :: Device))+  let vkGetDeviceAccelerationStructureCompatibilityKHRPtr = pVkGetDeviceAccelerationStructureCompatibilityKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceAccelerationStructureCompatibilityKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceAccelerationStructureCompatibilityKHR is null" Nothing Nothing   let vkGetDeviceAccelerationStructureCompatibilityKHR' = mkVkGetDeviceAccelerationStructureCompatibilityKHR vkGetDeviceAccelerationStructureCompatibilityKHRPtr@@ -2697,7 +2699,7 @@                                   ("allocator" ::: Maybe AllocationCallbacks)                                -> io (AccelerationStructureKHR) createAccelerationStructureKHR device createInfo allocator = liftIO . evalContT $ do-  let vkCreateAccelerationStructureKHRPtr = pVkCreateAccelerationStructureKHR (deviceCmds (device :: Device))+  let vkCreateAccelerationStructureKHRPtr = pVkCreateAccelerationStructureKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateAccelerationStructureKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateAccelerationStructureKHR is null" Nothing Nothing   let vkCreateAccelerationStructureKHR' = mkVkCreateAccelerationStructureKHR vkCreateAccelerationStructureKHRPtr@@ -3306,7 +3308,7 @@                                      ("buildRangeInfos" ::: Vector (Vector AccelerationStructureBuildRangeInfoKHR))                                   -> io () cmdBuildAccelerationStructuresKHR commandBuffer infos buildRangeInfos = liftIO . evalContT $ do-  let vkCmdBuildAccelerationStructuresKHRPtr = pVkCmdBuildAccelerationStructuresKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBuildAccelerationStructuresKHRPtr = pVkCmdBuildAccelerationStructuresKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBuildAccelerationStructuresKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBuildAccelerationStructuresKHR is null" Nothing Nothing   let vkCmdBuildAccelerationStructuresKHR' = mkVkCmdBuildAccelerationStructuresKHR vkCmdBuildAccelerationStructuresKHRPtr@@ -3942,7 +3944,7 @@                                              ("maxPrimitiveCounts" ::: Vector (Vector Word32))                                           -> io () cmdBuildAccelerationStructuresIndirectKHR commandBuffer infos indirectDeviceAddresses indirectStrides maxPrimitiveCounts = liftIO . evalContT $ do-  let vkCmdBuildAccelerationStructuresIndirectKHRPtr = pVkCmdBuildAccelerationStructuresIndirectKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBuildAccelerationStructuresIndirectKHRPtr = pVkCmdBuildAccelerationStructuresIndirectKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBuildAccelerationStructuresIndirectKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBuildAccelerationStructuresIndirectKHR is null" Nothing Nothing   let vkCmdBuildAccelerationStructuresIndirectKHR' = mkVkCmdBuildAccelerationStructuresIndirectKHR vkCmdBuildAccelerationStructuresIndirectKHRPtr@@ -4437,7 +4439,7 @@                                   ("buildRangeInfos" ::: Vector (Vector AccelerationStructureBuildRangeInfoKHR))                                -> io (Result) buildAccelerationStructuresKHR device deferredOperation infos buildRangeInfos = liftIO . evalContT $ do-  let vkBuildAccelerationStructuresKHRPtr = pVkBuildAccelerationStructuresKHR (deviceCmds (device :: Device))+  let vkBuildAccelerationStructuresKHRPtr = pVkBuildAccelerationStructuresKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkBuildAccelerationStructuresKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkBuildAccelerationStructuresKHR is null" Nothing Nothing   let vkBuildAccelerationStructuresKHR' = mkVkBuildAccelerationStructuresKHR vkBuildAccelerationStructuresKHRPtr@@ -4524,7 +4526,7 @@                                             AccelerationStructureDeviceAddressInfoKHR                                          -> io (DeviceAddress) getAccelerationStructureDeviceAddressKHR device info = liftIO . evalContT $ do-  let vkGetAccelerationStructureDeviceAddressKHRPtr = pVkGetAccelerationStructureDeviceAddressKHR (deviceCmds (device :: Device))+  let vkGetAccelerationStructureDeviceAddressKHRPtr = pVkGetAccelerationStructureDeviceAddressKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetAccelerationStructureDeviceAddressKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetAccelerationStructureDeviceAddressKHR is null" Nothing Nothing   let vkGetAccelerationStructureDeviceAddressKHR' = mkVkGetAccelerationStructureDeviceAddressKHR vkGetAccelerationStructureDeviceAddressKHRPtr@@ -4681,7 +4683,7 @@                                          ("maxPrimitiveCounts" ::: Vector Word32)                                       -> io (("sizeInfo" ::: AccelerationStructureBuildSizesInfoKHR)) getAccelerationStructureBuildSizesKHR device buildType buildInfo maxPrimitiveCounts = liftIO . evalContT $ do-  let vkGetAccelerationStructureBuildSizesKHRPtr = pVkGetAccelerationStructureBuildSizesKHR (deviceCmds (device :: Device))+  let vkGetAccelerationStructureBuildSizesKHRPtr = pVkGetAccelerationStructureBuildSizesKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetAccelerationStructureBuildSizesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetAccelerationStructureBuildSizesKHR is null" Nothing Nothing   let vkGetAccelerationStructureBuildSizesKHR' = mkVkGetAccelerationStructureBuildSizesKHR vkGetAccelerationStructureBuildSizesKHRPtr@@ -5148,7 +5150,7 @@  instance Extensible AccelerationStructureGeometryTrianglesDataKHR where   extensibleTypeName = "AccelerationStructureGeometryTrianglesDataKHR"-  setNext x next = x{next = next}+  setNext AccelerationStructureGeometryTrianglesDataKHR{..} next' = AccelerationStructureGeometryTrianglesDataKHR{next = next', ..}   getNext AccelerationStructureGeometryTrianglesDataKHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends AccelerationStructureGeometryTrianglesDataKHR e => b) -> Maybe b   extends _ f@@ -5936,7 +5938,7 @@  instance Extensible AccelerationStructureCreateInfoKHR where   extensibleTypeName = "AccelerationStructureCreateInfoKHR"-  setNext x next = x{next = next}+  setNext AccelerationStructureCreateInfoKHR{..} next' = AccelerationStructureCreateInfoKHR{next = next', ..}   getNext AccelerationStructureCreateInfoKHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends AccelerationStructureCreateInfoKHR e => b) -> Maybe b   extends _ f
src/Vulkan/Extensions/VK_KHR_android_surface.hs view
@@ -217,6 +217,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateAndroidSurfaceKHR)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Enums.Result (Result)@@ -315,7 +316,7 @@                            ("allocator" ::: Maybe AllocationCallbacks)                         -> io (SurfaceKHR) createAndroidSurfaceKHR instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateAndroidSurfaceKHRPtr = pVkCreateAndroidSurfaceKHR (instanceCmds (instance' :: Instance))+  let vkCreateAndroidSurfaceKHRPtr = pVkCreateAndroidSurfaceKHR (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateAndroidSurfaceKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateAndroidSurfaceKHR is null" Nothing Nothing   let vkCreateAndroidSurfaceKHR' = mkVkCreateAndroidSurfaceKHR vkCreateAndroidSurfaceKHRPtr
src/Vulkan/Extensions/VK_KHR_copy_commands2.hs view
@@ -221,6 +221,7 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import {-# SOURCE #-} Vulkan.Extensions.VK_QCOM_rotated_copy_commands (CopyCommandTransformInfoQCOM) import Vulkan.Dynamic (DeviceCmds(pVkCmdBlitImage2KHR))@@ -343,7 +344,7 @@                      CopyBufferInfo2KHR                   -> io () cmdCopyBuffer2KHR commandBuffer copyBufferInfo = liftIO . evalContT $ do-  let vkCmdCopyBuffer2KHRPtr = pVkCmdCopyBuffer2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyBuffer2KHRPtr = pVkCmdCopyBuffer2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyBuffer2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyBuffer2KHR is null" Nothing Nothing   let vkCmdCopyBuffer2KHR' = mkVkCmdCopyBuffer2KHR vkCmdCopyBuffer2KHRPtr@@ -438,7 +439,7 @@                     CopyImageInfo2KHR                  -> io () cmdCopyImage2KHR commandBuffer copyImageInfo = liftIO . evalContT $ do-  let vkCmdCopyImage2KHRPtr = pVkCmdCopyImage2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyImage2KHRPtr = pVkCmdCopyImage2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyImage2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyImage2KHR is null" Nothing Nothing   let vkCmdCopyImage2KHR' = mkVkCmdCopyImage2KHR vkCmdCopyImage2KHRPtr@@ -532,7 +533,7 @@                     BlitImageInfo2KHR                  -> io () cmdBlitImage2KHR commandBuffer blitImageInfo = liftIO . evalContT $ do-  let vkCmdBlitImage2KHRPtr = pVkCmdBlitImage2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBlitImage2KHRPtr = pVkCmdBlitImage2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBlitImage2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBlitImage2KHR is null" Nothing Nothing   let vkCmdBlitImage2KHR' = mkVkCmdBlitImage2KHR vkCmdBlitImage2KHRPtr@@ -629,7 +630,7 @@                             CopyBufferToImageInfo2KHR                          -> io () cmdCopyBufferToImage2KHR commandBuffer copyBufferToImageInfo = liftIO . evalContT $ do-  let vkCmdCopyBufferToImage2KHRPtr = pVkCmdCopyBufferToImage2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyBufferToImage2KHRPtr = pVkCmdCopyBufferToImage2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyBufferToImage2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyBufferToImage2KHR is null" Nothing Nothing   let vkCmdCopyBufferToImage2KHR' = mkVkCmdCopyBufferToImage2KHR vkCmdCopyBufferToImage2KHRPtr@@ -726,7 +727,7 @@                             CopyImageToBufferInfo2KHR                          -> io () cmdCopyImageToBuffer2KHR commandBuffer copyImageToBufferInfo = liftIO . evalContT $ do-  let vkCmdCopyImageToBuffer2KHRPtr = pVkCmdCopyImageToBuffer2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyImageToBuffer2KHRPtr = pVkCmdCopyImageToBuffer2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCopyImageToBuffer2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyImageToBuffer2KHR is null" Nothing Nothing   let vkCmdCopyImageToBuffer2KHR' = mkVkCmdCopyImageToBuffer2KHR vkCmdCopyImageToBuffer2KHRPtr@@ -820,7 +821,7 @@                        ResolveImageInfo2KHR                     -> io () cmdResolveImage2KHR commandBuffer resolveImageInfo = liftIO . evalContT $ do-  let vkCmdResolveImage2KHRPtr = pVkCmdResolveImage2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdResolveImage2KHRPtr = pVkCmdResolveImage2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdResolveImage2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdResolveImage2KHR is null" Nothing Nothing   let vkCmdResolveImage2KHR' = mkVkCmdResolveImage2KHR vkCmdResolveImage2KHRPtr@@ -1076,7 +1077,7 @@  instance Extensible ImageBlit2KHR where   extensibleTypeName = "ImageBlit2KHR"-  setNext x next = x{next = next}+  setNext ImageBlit2KHR{..} next' = ImageBlit2KHR{next = next', ..}   getNext ImageBlit2KHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends ImageBlit2KHR e => b) -> Maybe b   extends _ f@@ -1228,7 +1229,7 @@  instance Extensible BufferImageCopy2KHR where   extensibleTypeName = "BufferImageCopy2KHR"-  setNext x next = x{next = next}+  setNext BufferImageCopy2KHR{..} next' = BufferImageCopy2KHR{next = next', ..}   getNext BufferImageCopy2KHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends BufferImageCopy2KHR e => b) -> Maybe b   extends _ f
src/Vulkan/Extensions/VK_KHR_deferred_host_operations.hs view
@@ -309,6 +309,7 @@ import Vulkan.Extensions.Handles (DeferredOperationKHR(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateDeferredOperationKHR)) import Vulkan.Dynamic (DeviceCmds(pVkDeferredOperationJoinKHR)) import Vulkan.Dynamic (DeviceCmds(pVkDestroyDeferredOperationKHR))@@ -369,7 +370,7 @@                               ("allocator" ::: Maybe AllocationCallbacks)                            -> io (DeferredOperationKHR) createDeferredOperationKHR device allocator = liftIO . evalContT $ do-  let vkCreateDeferredOperationKHRPtr = pVkCreateDeferredOperationKHR (deviceCmds (device :: Device))+  let vkCreateDeferredOperationKHRPtr = pVkCreateDeferredOperationKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateDeferredOperationKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateDeferredOperationKHR is null" Nothing Nothing   let vkCreateDeferredOperationKHR' = mkVkCreateDeferredOperationKHR vkCreateDeferredOperationKHRPtr@@ -460,7 +461,7 @@                                ("allocator" ::: Maybe AllocationCallbacks)                             -> io () destroyDeferredOperationKHR device operation allocator = liftIO . evalContT $ do-  let vkDestroyDeferredOperationKHRPtr = pVkDestroyDeferredOperationKHR (deviceCmds (device :: Device))+  let vkDestroyDeferredOperationKHRPtr = pVkDestroyDeferredOperationKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyDeferredOperationKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyDeferredOperationKHR is null" Nothing Nothing   let vkDestroyDeferredOperationKHR' = mkVkDestroyDeferredOperationKHR vkDestroyDeferredOperationKHRPtr@@ -545,7 +546,7 @@                                          DeferredOperationKHR                                       -> io (Word32) getDeferredOperationMaxConcurrencyKHR device operation = liftIO $ do-  let vkGetDeferredOperationMaxConcurrencyKHRPtr = pVkGetDeferredOperationMaxConcurrencyKHR (deviceCmds (device :: Device))+  let vkGetDeferredOperationMaxConcurrencyKHRPtr = pVkGetDeferredOperationMaxConcurrencyKHR (case device of Device{deviceCmds} -> deviceCmds)   unless (vkGetDeferredOperationMaxConcurrencyKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeferredOperationMaxConcurrencyKHR is null" Nothing Nothing   let vkGetDeferredOperationMaxConcurrencyKHR' = mkVkGetDeferredOperationMaxConcurrencyKHR vkGetDeferredOperationMaxConcurrencyKHRPtr@@ -608,7 +609,7 @@                                  DeferredOperationKHR                               -> io (Result) getDeferredOperationResultKHR device operation = liftIO $ do-  let vkGetDeferredOperationResultKHRPtr = pVkGetDeferredOperationResultKHR (deviceCmds (device :: Device))+  let vkGetDeferredOperationResultKHRPtr = pVkGetDeferredOperationResultKHR (case device of Device{deviceCmds} -> deviceCmds)   unless (vkGetDeferredOperationResultKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeferredOperationResultKHR is null" Nothing Nothing   let vkGetDeferredOperationResultKHR' = mkVkGetDeferredOperationResultKHR vkGetDeferredOperationResultKHRPtr@@ -710,7 +711,7 @@                             DeferredOperationKHR                          -> io (Result) deferredOperationJoinKHR device operation = liftIO $ do-  let vkDeferredOperationJoinKHRPtr = pVkDeferredOperationJoinKHR (deviceCmds (device :: Device))+  let vkDeferredOperationJoinKHRPtr = pVkDeferredOperationJoinKHR (case device of Device{deviceCmds} -> deviceCmds)   unless (vkDeferredOperationJoinKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDeferredOperationJoinKHR is null" Nothing Nothing   let vkDeferredOperationJoinKHR' = mkVkDeferredOperationJoinKHR vkDeferredOperationJoinKHRPtr
src/Vulkan/Extensions/VK_KHR_display.hs view
@@ -612,6 +612,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateDisplayModeKHR)) import Vulkan.Dynamic (InstanceCmds(pVkCreateDisplayPlaneSurfaceKHR)) import Vulkan.Dynamic (InstanceCmds(pVkGetDisplayModePropertiesKHR))@@ -623,6 +624,7 @@ import Vulkan.Core10.FundamentalTypes (Offset2D) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -701,7 +703,7 @@                                          PhysicalDevice                                       -> io (Result, ("properties" ::: Vector DisplayPropertiesKHR)) getPhysicalDeviceDisplayPropertiesKHR physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceDisplayPropertiesKHRPtr = pVkGetPhysicalDeviceDisplayPropertiesKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceDisplayPropertiesKHRPtr = pVkGetPhysicalDeviceDisplayPropertiesKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceDisplayPropertiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceDisplayPropertiesKHR is null" Nothing Nothing   let vkGetPhysicalDeviceDisplayPropertiesKHR' = mkVkGetPhysicalDeviceDisplayPropertiesKHR vkGetPhysicalDeviceDisplayPropertiesKHRPtr@@ -779,7 +781,7 @@                                               PhysicalDevice                                            -> io (Result, ("properties" ::: Vector DisplayPlanePropertiesKHR)) getPhysicalDeviceDisplayPlanePropertiesKHR physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceDisplayPlanePropertiesKHRPtr = pVkGetPhysicalDeviceDisplayPlanePropertiesKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceDisplayPlanePropertiesKHRPtr = pVkGetPhysicalDeviceDisplayPlanePropertiesKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceDisplayPlanePropertiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceDisplayPlanePropertiesKHR is null" Nothing Nothing   let vkGetPhysicalDeviceDisplayPlanePropertiesKHR' = mkVkGetPhysicalDeviceDisplayPlanePropertiesKHR vkGetPhysicalDeviceDisplayPlanePropertiesKHRPtr@@ -870,7 +872,7 @@                                        ("planeIndex" ::: Word32)                                     -> io (Result, ("displays" ::: Vector DisplayKHR)) getDisplayPlaneSupportedDisplaysKHR physicalDevice planeIndex = liftIO . evalContT $ do-  let vkGetDisplayPlaneSupportedDisplaysKHRPtr = pVkGetDisplayPlaneSupportedDisplaysKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetDisplayPlaneSupportedDisplaysKHRPtr = pVkGetDisplayPlaneSupportedDisplaysKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetDisplayPlaneSupportedDisplaysKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDisplayPlaneSupportedDisplaysKHR is null" Nothing Nothing   let vkGetDisplayPlaneSupportedDisplaysKHR' = mkVkGetDisplayPlaneSupportedDisplaysKHR vkGetDisplayPlaneSupportedDisplaysKHRPtr@@ -958,7 +960,7 @@                                DisplayKHR                             -> io (Result, ("properties" ::: Vector DisplayModePropertiesKHR)) getDisplayModePropertiesKHR physicalDevice display = liftIO . evalContT $ do-  let vkGetDisplayModePropertiesKHRPtr = pVkGetDisplayModePropertiesKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetDisplayModePropertiesKHRPtr = pVkGetDisplayModePropertiesKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetDisplayModePropertiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDisplayModePropertiesKHR is null" Nothing Nothing   let vkGetDisplayModePropertiesKHR' = mkVkGetDisplayModePropertiesKHR vkGetDisplayModePropertiesKHRPtr@@ -1049,7 +1051,7 @@                         ("allocator" ::: Maybe AllocationCallbacks)                      -> io (DisplayModeKHR) createDisplayModeKHR physicalDevice display createInfo allocator = liftIO . evalContT $ do-  let vkCreateDisplayModeKHRPtr = pVkCreateDisplayModeKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkCreateDisplayModeKHRPtr = pVkCreateDisplayModeKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateDisplayModeKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateDisplayModeKHR is null" Nothing Nothing   let vkCreateDisplayModeKHR' = mkVkCreateDisplayModeKHR vkCreateDisplayModeKHRPtr@@ -1123,7 +1125,7 @@                                   ("planeIndex" ::: Word32)                                -> io (DisplayPlaneCapabilitiesKHR) getDisplayPlaneCapabilitiesKHR physicalDevice mode planeIndex = liftIO . evalContT $ do-  let vkGetDisplayPlaneCapabilitiesKHRPtr = pVkGetDisplayPlaneCapabilitiesKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetDisplayPlaneCapabilitiesKHRPtr = pVkGetDisplayPlaneCapabilitiesKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetDisplayPlaneCapabilitiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDisplayPlaneCapabilitiesKHR is null" Nothing Nothing   let vkGetDisplayPlaneCapabilitiesKHR' = mkVkGetDisplayPlaneCapabilitiesKHR vkGetDisplayPlaneCapabilitiesKHRPtr@@ -1196,7 +1198,7 @@                                 ("allocator" ::: Maybe AllocationCallbacks)                              -> io (SurfaceKHR) createDisplayPlaneSurfaceKHR instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateDisplayPlaneSurfaceKHRPtr = pVkCreateDisplayPlaneSurfaceKHR (instanceCmds (instance' :: Instance))+  let vkCreateDisplayPlaneSurfaceKHRPtr = pVkCreateDisplayPlaneSurfaceKHR (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateDisplayPlaneSurfaceKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateDisplayPlaneSurfaceKHR is null" Nothing Nothing   let vkCreateDisplayPlaneSurfaceKHR' = mkVkCreateDisplayPlaneSurfaceKHR vkCreateDisplayPlaneSurfaceKHRPtr
src/Vulkan/Extensions/VK_KHR_display_swapchain.hs view
@@ -270,6 +270,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCreateSharedSwapchainsKHR)) import Vulkan.Core10.Handles (Device_T) import Vulkan.Core10.FundamentalTypes (Rect2D)@@ -396,7 +397,7 @@                              ("allocator" ::: Maybe AllocationCallbacks)                           -> io (("swapchains" ::: Vector SwapchainKHR)) createSharedSwapchainsKHR device createInfos allocator = liftIO . evalContT $ do-  let vkCreateSharedSwapchainsKHRPtr = pVkCreateSharedSwapchainsKHR (deviceCmds (device :: Device))+  let vkCreateSharedSwapchainsKHRPtr = pVkCreateSharedSwapchainsKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateSharedSwapchainsKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateSharedSwapchainsKHR is null" Nothing Nothing   let vkCreateSharedSwapchainsKHR' = mkVkCreateSharedSwapchainsKHR vkCreateSharedSwapchainsKHRPtr
src/Vulkan/Extensions/VK_KHR_dynamic_rendering.hs view
@@ -335,6 +335,7 @@ import Vulkan.Core10.CommandBufferBuilding (ClearValue) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdBeginRenderingKHR)) import Vulkan.Dynamic (DeviceCmds(pVkCmdEndRenderingKHR))@@ -445,7 +446,7 @@                         (RenderingInfoKHR a)                      -> io () cmdBeginRenderingKHR commandBuffer renderingInfo = liftIO . evalContT $ do-  let vkCmdBeginRenderingKHRPtr = pVkCmdBeginRenderingKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBeginRenderingKHRPtr = pVkCmdBeginRenderingKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBeginRenderingKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBeginRenderingKHR is null" Nothing Nothing   let vkCmdBeginRenderingKHR' = mkVkCmdBeginRenderingKHR vkCmdBeginRenderingKHRPtr@@ -531,7 +532,7 @@                       CommandBuffer                    -> io () cmdEndRenderingKHR commandBuffer = liftIO $ do-  let vkCmdEndRenderingKHRPtr = pVkCmdEndRenderingKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdEndRenderingKHRPtr = pVkCmdEndRenderingKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdEndRenderingKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdEndRenderingKHR is null" Nothing Nothing   let vkCmdEndRenderingKHR' = mkVkCmdEndRenderingKHR vkCmdEndRenderingKHRPtr@@ -1190,7 +1191,7 @@  instance Extensible RenderingInfoKHR where   extensibleTypeName = "RenderingInfoKHR"-  setNext x next = x{next = next}+  setNext RenderingInfoKHR{..} next' = RenderingInfoKHR{next = next', ..}   getNext RenderingInfoKHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends RenderingInfoKHR e => b) -> Maybe b   extends _ f
src/Vulkan/Extensions/VK_KHR_external_fence_fd.hs view
@@ -155,6 +155,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetFenceFdKHR)) import Vulkan.Dynamic (DeviceCmds(pVkImportFenceFdKHR)) import Vulkan.Core10.Handles (Device_T)@@ -235,7 +236,7 @@                  FenceGetFdInfoKHR               -> io (("fd" ::: Int32)) getFenceFdKHR device getFdInfo = liftIO . evalContT $ do-  let vkGetFenceFdKHRPtr = pVkGetFenceFdKHR (deviceCmds (device :: Device))+  let vkGetFenceFdKHRPtr = pVkGetFenceFdKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetFenceFdKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetFenceFdKHR is null" Nothing Nothing   let vkGetFenceFdKHR' = mkVkGetFenceFdKHR vkGetFenceFdKHRPtr@@ -299,7 +300,7 @@                     ImportFenceFdInfoKHR                  -> io () importFenceFdKHR device importFenceFdInfo = liftIO . evalContT $ do-  let vkImportFenceFdKHRPtr = pVkImportFenceFdKHR (deviceCmds (device :: Device))+  let vkImportFenceFdKHRPtr = pVkImportFenceFdKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkImportFenceFdKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkImportFenceFdKHR is null" Nothing Nothing   let vkImportFenceFdKHR' = mkVkImportFenceFdKHR vkImportFenceFdKHRPtr
src/Vulkan/Extensions/VK_KHR_external_fence_win32.hs view
@@ -173,6 +173,7 @@ import Vulkan.Extensions.VK_NV_external_memory_win32 (DWORD) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetFenceWin32HandleKHR)) import Vulkan.Dynamic (DeviceCmds(pVkImportFenceWin32HandleKHR)) import Vulkan.Core10.Handles (Device_T)@@ -247,7 +248,7 @@                           FenceGetWin32HandleInfoKHR                        -> io (HANDLE) getFenceWin32HandleKHR device getWin32HandleInfo = liftIO . evalContT $ do-  let vkGetFenceWin32HandleKHRPtr = pVkGetFenceWin32HandleKHR (deviceCmds (device :: Device))+  let vkGetFenceWin32HandleKHRPtr = pVkGetFenceWin32HandleKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetFenceWin32HandleKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetFenceWin32HandleKHR is null" Nothing Nothing   let vkGetFenceWin32HandleKHR' = mkVkGetFenceWin32HandleKHR vkGetFenceWin32HandleKHRPtr@@ -312,7 +313,7 @@                              ImportFenceWin32HandleInfoKHR                           -> io () importFenceWin32HandleKHR device importFenceWin32HandleInfo = liftIO . evalContT $ do-  let vkImportFenceWin32HandleKHRPtr = pVkImportFenceWin32HandleKHR (deviceCmds (device :: Device))+  let vkImportFenceWin32HandleKHRPtr = pVkImportFenceWin32HandleKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkImportFenceWin32HandleKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkImportFenceWin32HandleKHR is null" Nothing Nothing   let vkImportFenceWin32HandleKHR' = mkVkImportFenceWin32HandleKHR vkImportFenceWin32HandleKHRPtr
src/Vulkan/Extensions/VK_KHR_external_memory_fd.hs view
@@ -178,6 +178,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetMemoryFdKHR)) import Vulkan.Dynamic (DeviceCmds(pVkGetMemoryFdPropertiesKHR)) import Vulkan.Core10.Handles (DeviceMemory)@@ -244,7 +245,7 @@                   MemoryGetFdInfoKHR                -> io (("fd" ::: Int32)) getMemoryFdKHR device getFdInfo = liftIO . evalContT $ do-  let vkGetMemoryFdKHRPtr = pVkGetMemoryFdKHR (deviceCmds (device :: Device))+  let vkGetMemoryFdKHRPtr = pVkGetMemoryFdKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetMemoryFdKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetMemoryFdKHR is null" Nothing Nothing   let vkGetMemoryFdKHR' = mkVkGetMemoryFdKHR vkGetMemoryFdKHRPtr@@ -311,7 +312,7 @@                             ("fd" ::: Int32)                          -> io (MemoryFdPropertiesKHR) getMemoryFdPropertiesKHR device handleType fd = liftIO . evalContT $ do-  let vkGetMemoryFdPropertiesKHRPtr = pVkGetMemoryFdPropertiesKHR (deviceCmds (device :: Device))+  let vkGetMemoryFdPropertiesKHRPtr = pVkGetMemoryFdPropertiesKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetMemoryFdPropertiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetMemoryFdPropertiesKHR is null" Nothing Nothing   let vkGetMemoryFdPropertiesKHR' = mkVkGetMemoryFdPropertiesKHR vkGetMemoryFdPropertiesKHRPtr
src/Vulkan/Extensions/VK_KHR_external_memory_win32.hs view
@@ -189,6 +189,7 @@ import Vulkan.Extensions.VK_NV_external_memory_win32 (DWORD) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetMemoryWin32HandleKHR)) import Vulkan.Dynamic (DeviceCmds(pVkGetMemoryWin32HandlePropertiesKHR)) import Vulkan.Core10.Handles (DeviceMemory)@@ -265,7 +266,7 @@                            MemoryGetWin32HandleInfoKHR                         -> io (HANDLE) getMemoryWin32HandleKHR device getWin32HandleInfo = liftIO . evalContT $ do-  let vkGetMemoryWin32HandleKHRPtr = pVkGetMemoryWin32HandleKHR (deviceCmds (device :: Device))+  let vkGetMemoryWin32HandleKHRPtr = pVkGetMemoryWin32HandleKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetMemoryWin32HandleKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetMemoryWin32HandleKHR is null" Nothing Nothing   let vkGetMemoryWin32HandleKHR' = mkVkGetMemoryWin32HandleKHR vkGetMemoryWin32HandleKHRPtr@@ -331,7 +332,7 @@                                      HANDLE                                   -> io (MemoryWin32HandlePropertiesKHR) getMemoryWin32HandlePropertiesKHR device handleType handle = liftIO . evalContT $ do-  let vkGetMemoryWin32HandlePropertiesKHRPtr = pVkGetMemoryWin32HandlePropertiesKHR (deviceCmds (device :: Device))+  let vkGetMemoryWin32HandlePropertiesKHRPtr = pVkGetMemoryWin32HandlePropertiesKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetMemoryWin32HandlePropertiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetMemoryWin32HandlePropertiesKHR is null" Nothing Nothing   let vkGetMemoryWin32HandlePropertiesKHR' = mkVkGetMemoryWin32HandlePropertiesKHR vkGetMemoryWin32HandlePropertiesKHRPtr
src/Vulkan/Extensions/VK_KHR_external_semaphore_fd.hs view
@@ -159,6 +159,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetSemaphoreFdKHR)) import Vulkan.Dynamic (DeviceCmds(pVkImportSemaphoreFdKHR)) import Vulkan.Core10.Handles (Device_T)@@ -235,7 +236,7 @@                      SemaphoreGetFdInfoKHR                   -> io (("fd" ::: Int32)) getSemaphoreFdKHR device getFdInfo = liftIO . evalContT $ do-  let vkGetSemaphoreFdKHRPtr = pVkGetSemaphoreFdKHR (deviceCmds (device :: Device))+  let vkGetSemaphoreFdKHRPtr = pVkGetSemaphoreFdKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetSemaphoreFdKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetSemaphoreFdKHR is null" Nothing Nothing   let vkGetSemaphoreFdKHR' = mkVkGetSemaphoreFdKHR vkGetSemaphoreFdKHRPtr@@ -299,7 +300,7 @@                         ImportSemaphoreFdInfoKHR                      -> io () importSemaphoreFdKHR device importSemaphoreFdInfo = liftIO . evalContT $ do-  let vkImportSemaphoreFdKHRPtr = pVkImportSemaphoreFdKHR (deviceCmds (device :: Device))+  let vkImportSemaphoreFdKHRPtr = pVkImportSemaphoreFdKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkImportSemaphoreFdKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkImportSemaphoreFdKHR is null" Nothing Nothing   let vkImportSemaphoreFdKHR' = mkVkImportSemaphoreFdKHR vkImportSemaphoreFdKHRPtr
src/Vulkan/Extensions/VK_KHR_external_semaphore_win32.hs view
@@ -206,6 +206,7 @@ import Vulkan.Extensions.VK_NV_external_memory_win32 (DWORD) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetSemaphoreWin32HandleKHR)) import Vulkan.Dynamic (DeviceCmds(pVkImportSemaphoreWin32HandleKHR)) import Vulkan.Core10.Handles (Device_T)@@ -282,7 +283,7 @@                               SemaphoreGetWin32HandleInfoKHR                            -> io (HANDLE) getSemaphoreWin32HandleKHR device getWin32HandleInfo = liftIO . evalContT $ do-  let vkGetSemaphoreWin32HandleKHRPtr = pVkGetSemaphoreWin32HandleKHR (deviceCmds (device :: Device))+  let vkGetSemaphoreWin32HandleKHRPtr = pVkGetSemaphoreWin32HandleKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetSemaphoreWin32HandleKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetSemaphoreWin32HandleKHR is null" Nothing Nothing   let vkGetSemaphoreWin32HandleKHR' = mkVkGetSemaphoreWin32HandleKHR vkGetSemaphoreWin32HandleKHRPtr@@ -348,7 +349,7 @@                                  ImportSemaphoreWin32HandleInfoKHR                               -> io () importSemaphoreWin32HandleKHR device importSemaphoreWin32HandleInfo = liftIO . evalContT $ do-  let vkImportSemaphoreWin32HandleKHRPtr = pVkImportSemaphoreWin32HandleKHR (deviceCmds (device :: Device))+  let vkImportSemaphoreWin32HandleKHRPtr = pVkImportSemaphoreWin32HandleKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkImportSemaphoreWin32HandleKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkImportSemaphoreWin32HandleKHR is null" Nothing Nothing   let vkImportSemaphoreWin32HandleKHR' = mkVkImportSemaphoreWin32HandleKHR vkImportSemaphoreWin32HandleKHRPtr
src/Vulkan/Extensions/VK_KHR_fragment_shading_rate.hs view
@@ -293,12 +293,14 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetFragmentShadingRateKHR)) import Vulkan.Core10.FundamentalTypes (Extent2D) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceFragmentShadingRatesKHR)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -461,7 +463,7 @@                                 ("combinerOps" ::: (FragmentShadingRateCombinerOpKHR, FragmentShadingRateCombinerOpKHR))                              -> io () cmdSetFragmentShadingRateKHR commandBuffer fragmentSize combinerOps = liftIO . evalContT $ do-  let vkCmdSetFragmentShadingRateKHRPtr = pVkCmdSetFragmentShadingRateKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetFragmentShadingRateKHRPtr = pVkCmdSetFragmentShadingRateKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetFragmentShadingRateKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetFragmentShadingRateKHR is null" Nothing Nothing   let vkCmdSetFragmentShadingRateKHR' = mkVkCmdSetFragmentShadingRateKHR vkCmdSetFragmentShadingRateKHRPtr@@ -620,7 +622,7 @@                                             PhysicalDevice                                          -> io (Result, ("fragmentShadingRates" ::: Vector PhysicalDeviceFragmentShadingRateKHR)) getPhysicalDeviceFragmentShadingRatesKHR physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceFragmentShadingRatesKHRPtr = pVkGetPhysicalDeviceFragmentShadingRatesKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceFragmentShadingRatesKHRPtr = pVkGetPhysicalDeviceFragmentShadingRatesKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceFragmentShadingRatesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceFragmentShadingRatesKHR is null" Nothing Nothing   let vkGetPhysicalDeviceFragmentShadingRatesKHR' = mkVkGetPhysicalDeviceFragmentShadingRatesKHR vkGetPhysicalDeviceFragmentShadingRatesKHRPtr
src/Vulkan/Extensions/VK_KHR_get_display_properties2.hs view
@@ -224,6 +224,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceDisplayProperties2KHR)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -301,7 +302,7 @@                                           PhysicalDevice                                        -> io (Result, ("properties" ::: Vector DisplayProperties2KHR)) getPhysicalDeviceDisplayProperties2KHR physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceDisplayProperties2KHRPtr = pVkGetPhysicalDeviceDisplayProperties2KHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceDisplayProperties2KHRPtr = pVkGetPhysicalDeviceDisplayProperties2KHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceDisplayProperties2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceDisplayProperties2KHR is null" Nothing Nothing   let vkGetPhysicalDeviceDisplayProperties2KHR' = mkVkGetPhysicalDeviceDisplayProperties2KHR vkGetPhysicalDeviceDisplayProperties2KHRPtr@@ -375,7 +376,7 @@                                                PhysicalDevice                                             -> io (Result, ("properties" ::: Vector DisplayPlaneProperties2KHR)) getPhysicalDeviceDisplayPlaneProperties2KHR physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceDisplayPlaneProperties2KHRPtr = pVkGetPhysicalDeviceDisplayPlaneProperties2KHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceDisplayPlaneProperties2KHRPtr = pVkGetPhysicalDeviceDisplayPlaneProperties2KHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceDisplayPlaneProperties2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceDisplayPlaneProperties2KHR is null" Nothing Nothing   let vkGetPhysicalDeviceDisplayPlaneProperties2KHR' = mkVkGetPhysicalDeviceDisplayPlaneProperties2KHR vkGetPhysicalDeviceDisplayPlaneProperties2KHRPtr@@ -457,7 +458,7 @@                                 DisplayKHR                              -> io (Result, ("properties" ::: Vector DisplayModeProperties2KHR)) getDisplayModeProperties2KHR physicalDevice display = liftIO . evalContT $ do-  let vkGetDisplayModeProperties2KHRPtr = pVkGetDisplayModeProperties2KHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetDisplayModeProperties2KHRPtr = pVkGetDisplayModeProperties2KHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetDisplayModeProperties2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDisplayModeProperties2KHR is null" Nothing Nothing   let vkGetDisplayModeProperties2KHR' = mkVkGetDisplayModeProperties2KHR vkGetDisplayModeProperties2KHRPtr@@ -527,7 +528,7 @@                                    DisplayPlaneInfo2KHR                                 -> io (DisplayPlaneCapabilities2KHR) getDisplayPlaneCapabilities2KHR physicalDevice displayPlaneInfo = liftIO . evalContT $ do-  let vkGetDisplayPlaneCapabilities2KHRPtr = pVkGetDisplayPlaneCapabilities2KHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetDisplayPlaneCapabilities2KHRPtr = pVkGetDisplayPlaneCapabilities2KHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetDisplayPlaneCapabilities2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDisplayPlaneCapabilities2KHR is null" Nothing Nothing   let vkGetDisplayPlaneCapabilities2KHR' = mkVkGetDisplayPlaneCapabilities2KHR vkGetDisplayPlaneCapabilities2KHRPtr
src/Vulkan/Extensions/VK_KHR_get_surface_capabilities2.hs view
@@ -213,6 +213,7 @@ import Vulkan.CStruct.Extends (PeekChain(..)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.CStruct.Extends (PokeChain) import Vulkan.CStruct.Extends (PokeChain(..))@@ -319,7 +320,7 @@                                             (PhysicalDeviceSurfaceInfo2KHR a)                                          -> io (SurfaceCapabilities2KHR b) getPhysicalDeviceSurfaceCapabilities2KHR physicalDevice surfaceInfo = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSurfaceCapabilities2KHRPtr = pVkGetPhysicalDeviceSurfaceCapabilities2KHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSurfaceCapabilities2KHRPtr = pVkGetPhysicalDeviceSurfaceCapabilities2KHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSurfaceCapabilities2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSurfaceCapabilities2KHR is null" Nothing Nothing   let vkGetPhysicalDeviceSurfaceCapabilities2KHR' = mkVkGetPhysicalDeviceSurfaceCapabilities2KHR vkGetPhysicalDeviceSurfaceCapabilities2KHRPtr@@ -420,7 +421,7 @@                                        (PhysicalDeviceSurfaceInfo2KHR a)                                     -> io (Result, ("surfaceFormats" ::: Vector SurfaceFormat2KHR)) getPhysicalDeviceSurfaceFormats2KHR physicalDevice surfaceInfo = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSurfaceFormats2KHRPtr = pVkGetPhysicalDeviceSurfaceFormats2KHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSurfaceFormats2KHRPtr = pVkGetPhysicalDeviceSurfaceFormats2KHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSurfaceFormats2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSurfaceFormats2KHR is null" Nothing Nothing   let vkGetPhysicalDeviceSurfaceFormats2KHR' = mkVkGetPhysicalDeviceSurfaceFormats2KHR vkGetPhysicalDeviceSurfaceFormats2KHRPtr@@ -517,7 +518,7 @@  instance Extensible PhysicalDeviceSurfaceInfo2KHR where   extensibleTypeName = "PhysicalDeviceSurfaceInfo2KHR"-  setNext x next = x{next = next}+  setNext PhysicalDeviceSurfaceInfo2KHR{..} next' = PhysicalDeviceSurfaceInfo2KHR{next = next', ..}   getNext PhysicalDeviceSurfaceInfo2KHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PhysicalDeviceSurfaceInfo2KHR e => b) -> Maybe b   extends _ f@@ -598,7 +599,7 @@  instance Extensible SurfaceCapabilities2KHR where   extensibleTypeName = "SurfaceCapabilities2KHR"-  setNext x next = x{next = next}+  setNext SurfaceCapabilities2KHR{..} next' = SurfaceCapabilities2KHR{next = next', ..}   getNext SurfaceCapabilities2KHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends SurfaceCapabilities2KHR e => b) -> Maybe b   extends _ f
src/Vulkan/Extensions/VK_KHR_maintenance4.hs view
@@ -217,6 +217,7 @@ import Vulkan.Core10.Buffer (BufferCreateInfo) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetDeviceBufferMemoryRequirementsKHR)) import Vulkan.Dynamic (DeviceCmds(pVkGetDeviceImageMemoryRequirementsKHR)) import Vulkan.Dynamic (DeviceCmds(pVkGetDeviceImageSparseMemoryRequirementsKHR))@@ -269,7 +270,7 @@                                         ("info" ::: DeviceBufferMemoryRequirementsKHR)                                      -> io (MemoryRequirements2 a) getDeviceBufferMemoryRequirementsKHR device info = liftIO . evalContT $ do-  let vkGetDeviceBufferMemoryRequirementsKHRPtr = pVkGetDeviceBufferMemoryRequirementsKHR (deviceCmds (device :: Device))+  let vkGetDeviceBufferMemoryRequirementsKHRPtr = pVkGetDeviceBufferMemoryRequirementsKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceBufferMemoryRequirementsKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceBufferMemoryRequirementsKHR is null" Nothing Nothing   let vkGetDeviceBufferMemoryRequirementsKHR' = mkVkGetDeviceBufferMemoryRequirementsKHR vkGetDeviceBufferMemoryRequirementsKHRPtr@@ -313,7 +314,7 @@                                        ("info" ::: DeviceImageMemoryRequirementsKHR)                                     -> io (MemoryRequirements2 a) getDeviceImageMemoryRequirementsKHR device info = liftIO . evalContT $ do-  let vkGetDeviceImageMemoryRequirementsKHRPtr = pVkGetDeviceImageMemoryRequirementsKHR (deviceCmds (device :: Device))+  let vkGetDeviceImageMemoryRequirementsKHRPtr = pVkGetDeviceImageMemoryRequirementsKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceImageMemoryRequirementsKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceImageMemoryRequirementsKHR is null" Nothing Nothing   let vkGetDeviceImageMemoryRequirementsKHR' = mkVkGetDeviceImageMemoryRequirementsKHR vkGetDeviceImageMemoryRequirementsKHRPtr@@ -369,7 +370,7 @@                                              ("info" ::: DeviceImageMemoryRequirementsKHR)                                           -> io (("sparseMemoryRequirements" ::: Vector SparseImageMemoryRequirements2)) getDeviceImageSparseMemoryRequirementsKHR device info = liftIO . evalContT $ do-  let vkGetDeviceImageSparseMemoryRequirementsKHRPtr = pVkGetDeviceImageSparseMemoryRequirementsKHR (deviceCmds (device :: Device))+  let vkGetDeviceImageSparseMemoryRequirementsKHRPtr = pVkGetDeviceImageSparseMemoryRequirementsKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceImageSparseMemoryRequirementsKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceImageSparseMemoryRequirementsKHR is null" Nothing Nothing   let vkGetDeviceImageSparseMemoryRequirementsKHR' = mkVkGetDeviceImageSparseMemoryRequirementsKHR vkGetDeviceImageSparseMemoryRequirementsKHRPtr
src/Vulkan/Extensions/VK_KHR_performance_query.hs view
@@ -606,6 +606,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkAcquireProfilingLockKHR)) import Vulkan.Dynamic (DeviceCmds(pVkReleaseProfilingLockKHR)) import Vulkan.Core10.Handles (Device_T)@@ -615,6 +616,7 @@ import Vulkan.Core10.APIConstants (MAX_DESCRIPTION_SIZE) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -704,7 +706,7 @@                                                                  ("queueFamilyIndex" ::: Word32)                                                               -> io (Result, ("counters" ::: Vector PerformanceCounterKHR), ("counterDescriptions" ::: Vector PerformanceCounterDescriptionKHR)) enumeratePhysicalDeviceQueueFamilyPerformanceQueryCountersKHR physicalDevice queueFamilyIndex = liftIO . evalContT $ do-  let vkEnumeratePhysicalDeviceQueueFamilyPerformanceQueryCountersKHRPtr = pVkEnumeratePhysicalDeviceQueueFamilyPerformanceQueryCountersKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkEnumeratePhysicalDeviceQueueFamilyPerformanceQueryCountersKHRPtr = pVkEnumeratePhysicalDeviceQueueFamilyPerformanceQueryCountersKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkEnumeratePhysicalDeviceQueueFamilyPerformanceQueryCountersKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkEnumeratePhysicalDeviceQueueFamilyPerformanceQueryCountersKHR is null" Nothing Nothing   let vkEnumeratePhysicalDeviceQueueFamilyPerformanceQueryCountersKHR' = mkVkEnumeratePhysicalDeviceQueueFamilyPerformanceQueryCountersKHR vkEnumeratePhysicalDeviceQueueFamilyPerformanceQueryCountersKHRPtr@@ -771,7 +773,7 @@                                                          ("performanceQueryCreateInfo" ::: QueryPoolPerformanceCreateInfoKHR)                                                       -> io (("numPasses" ::: Word32)) getPhysicalDeviceQueueFamilyPerformanceQueryPassesKHR physicalDevice performanceQueryCreateInfo = liftIO . evalContT $ do-  let vkGetPhysicalDeviceQueueFamilyPerformanceQueryPassesKHRPtr = pVkGetPhysicalDeviceQueueFamilyPerformanceQueryPassesKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceQueueFamilyPerformanceQueryPassesKHRPtr = pVkGetPhysicalDeviceQueueFamilyPerformanceQueryPassesKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceQueueFamilyPerformanceQueryPassesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceQueueFamilyPerformanceQueryPassesKHR is null" Nothing Nothing   let vkGetPhysicalDeviceQueueFamilyPerformanceQueryPassesKHR' = mkVkGetPhysicalDeviceQueueFamilyPerformanceQueryPassesKHR vkGetPhysicalDeviceQueueFamilyPerformanceQueryPassesKHRPtr@@ -827,7 +829,7 @@                            AcquireProfilingLockInfoKHR                         -> io () acquireProfilingLockKHR device info = liftIO . evalContT $ do-  let vkAcquireProfilingLockKHRPtr = pVkAcquireProfilingLockKHR (deviceCmds (device :: Device))+  let vkAcquireProfilingLockKHRPtr = pVkAcquireProfilingLockKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkAcquireProfilingLockKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAcquireProfilingLockKHR is null" Nothing Nothing   let vkAcquireProfilingLockKHR' = mkVkAcquireProfilingLockKHR vkAcquireProfilingLockKHRPtr@@ -866,7 +868,7 @@                            Device                         -> io () releaseProfilingLockKHR device = liftIO $ do-  let vkReleaseProfilingLockKHRPtr = pVkReleaseProfilingLockKHR (deviceCmds (device :: Device))+  let vkReleaseProfilingLockKHRPtr = pVkReleaseProfilingLockKHR (case device of Device{deviceCmds} -> deviceCmds)   unless (vkReleaseProfilingLockKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkReleaseProfilingLockKHR is null" Nothing Nothing   let vkReleaseProfilingLockKHR' = mkVkReleaseProfilingLockKHR vkReleaseProfilingLockKHRPtr
src/Vulkan/Extensions/VK_KHR_pipeline_executable_properties.hs view
@@ -266,6 +266,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetPipelineExecutableInternalRepresentationsKHR)) import Vulkan.Dynamic (DeviceCmds(pVkGetPipelineExecutablePropertiesKHR)) import Vulkan.Dynamic (DeviceCmds(pVkGetPipelineExecutableStatisticsKHR))@@ -363,7 +364,7 @@                                       PipelineInfoKHR                                    -> io (Result, ("properties" ::: Vector PipelineExecutablePropertiesKHR)) getPipelineExecutablePropertiesKHR device pipelineInfo = liftIO . evalContT $ do-  let vkGetPipelineExecutablePropertiesKHRPtr = pVkGetPipelineExecutablePropertiesKHR (deviceCmds (device :: Device))+  let vkGetPipelineExecutablePropertiesKHRPtr = pVkGetPipelineExecutablePropertiesKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetPipelineExecutablePropertiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPipelineExecutablePropertiesKHR is null" Nothing Nothing   let vkGetPipelineExecutablePropertiesKHR' = mkVkGetPipelineExecutablePropertiesKHR vkGetPipelineExecutablePropertiesKHRPtr@@ -465,7 +466,7 @@                                       PipelineExecutableInfoKHR                                    -> io (Result, ("statistics" ::: Vector PipelineExecutableStatisticKHR)) getPipelineExecutableStatisticsKHR device executableInfo = liftIO . evalContT $ do-  let vkGetPipelineExecutableStatisticsKHRPtr = pVkGetPipelineExecutableStatisticsKHR (deviceCmds (device :: Device))+  let vkGetPipelineExecutableStatisticsKHRPtr = pVkGetPipelineExecutableStatisticsKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetPipelineExecutableStatisticsKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPipelineExecutableStatisticsKHR is null" Nothing Nothing   let vkGetPipelineExecutableStatisticsKHR' = mkVkGetPipelineExecutableStatisticsKHR vkGetPipelineExecutableStatisticsKHRPtr@@ -576,7 +577,7 @@                                                    PipelineExecutableInfoKHR                                                 -> io (Result, ("internalRepresentations" ::: Vector PipelineExecutableInternalRepresentationKHR)) getPipelineExecutableInternalRepresentationsKHR device executableInfo = liftIO . evalContT $ do-  let vkGetPipelineExecutableInternalRepresentationsKHRPtr = pVkGetPipelineExecutableInternalRepresentationsKHR (deviceCmds (device :: Device))+  let vkGetPipelineExecutableInternalRepresentationsKHRPtr = pVkGetPipelineExecutableInternalRepresentationsKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetPipelineExecutableInternalRepresentationsKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPipelineExecutableInternalRepresentationsKHR is null" Nothing Nothing   let vkGetPipelineExecutableInternalRepresentationsKHR' = mkVkGetPipelineExecutableInternalRepresentationsKHR vkGetPipelineExecutableInternalRepresentationsKHRPtr
src/Vulkan/Extensions/VK_KHR_present_wait.hs view
@@ -183,6 +183,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkWaitForPresentKHR)) import Vulkan.Core10.Handles (Device_T) import Vulkan.Core10.Enums.Result (Result)@@ -223,7 +224,7 @@                                  ("timeout" ::: Word64)                               -> io (Result) waitForPresentKHRSafeOrUnsafe mkVkWaitForPresentKHR device swapchain presentId timeout = liftIO $ do-  let vkWaitForPresentKHRPtr = pVkWaitForPresentKHR (deviceCmds (device :: Device))+  let vkWaitForPresentKHRPtr = pVkWaitForPresentKHR (case device of Device{deviceCmds} -> deviceCmds)   unless (vkWaitForPresentKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkWaitForPresentKHR is null" Nothing Nothing   let vkWaitForPresentKHR' = mkVkWaitForPresentKHR vkWaitForPresentKHRPtr
src/Vulkan/Extensions/VK_KHR_push_descriptor.hs view
@@ -173,6 +173,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Core11.Handles (DescriptorUpdateTemplate) import Vulkan.Core11.Handles (DescriptorUpdateTemplate(..))@@ -341,7 +342,7 @@                            ("descriptorWrites" ::: Vector (SomeStruct WriteDescriptorSet))                         -> io () cmdPushDescriptorSetKHR commandBuffer pipelineBindPoint layout set descriptorWrites = liftIO . evalContT $ do-  let vkCmdPushDescriptorSetKHRPtr = pVkCmdPushDescriptorSetKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdPushDescriptorSetKHRPtr = pVkCmdPushDescriptorSetKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdPushDescriptorSetKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdPushDescriptorSetKHR is null" Nothing Nothing   let vkCmdPushDescriptorSetKHR' = mkVkCmdPushDescriptorSetKHR vkCmdPushDescriptorSetKHRPtr@@ -497,7 +498,7 @@                                        ("data" ::: Ptr ())                                     -> io () cmdPushDescriptorSetWithTemplateKHR commandBuffer descriptorUpdateTemplate layout set data' = liftIO $ do-  let vkCmdPushDescriptorSetWithTemplateKHRPtr = pVkCmdPushDescriptorSetWithTemplateKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdPushDescriptorSetWithTemplateKHRPtr = pVkCmdPushDescriptorSetWithTemplateKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdPushDescriptorSetWithTemplateKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdPushDescriptorSetWithTemplateKHR is null" Nothing Nothing   let vkCmdPushDescriptorSetWithTemplateKHR' = mkVkCmdPushDescriptorSetWithTemplateKHR vkCmdPushDescriptorSetWithTemplateKHRPtr
src/Vulkan/Extensions/VK_KHR_ray_tracing_pipeline.hs view
@@ -813,11 +813,13 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Extensions.Handles (DeferredOperationKHR) import Vulkan.Extensions.Handles (DeferredOperationKHR(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Core10.FundamentalTypes (DeviceAddress) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetRayTracingPipelineStackSizeKHR)) import Vulkan.Dynamic (DeviceCmds(pVkCmdTraceRaysIndirectKHR))@@ -1370,7 +1372,7 @@                    ("depth" ::: Word32)                 -> io () cmdTraceRaysKHR commandBuffer raygenShaderBindingTable missShaderBindingTable hitShaderBindingTable callableShaderBindingTable width height depth = liftIO . evalContT $ do-  let vkCmdTraceRaysKHRPtr = pVkCmdTraceRaysKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdTraceRaysKHRPtr = pVkCmdTraceRaysKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdTraceRaysKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdTraceRaysKHR is null" Nothing Nothing   let vkCmdTraceRaysKHR' = mkVkCmdTraceRaysKHR vkCmdTraceRaysKHRPtr@@ -1469,7 +1471,7 @@                                       ("data" ::: Ptr ())                                    -> io () getRayTracingShaderGroupHandlesKHR device pipeline firstGroup groupCount dataSize data' = liftIO $ do-  let vkGetRayTracingShaderGroupHandlesKHRPtr = pVkGetRayTracingShaderGroupHandlesKHR (deviceCmds (device :: Device))+  let vkGetRayTracingShaderGroupHandlesKHRPtr = pVkGetRayTracingShaderGroupHandlesKHR (case device of Device{deviceCmds} -> deviceCmds)   unless (vkGetRayTracingShaderGroupHandlesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetRayTracingShaderGroupHandlesKHR is null" Nothing Nothing   let vkGetRayTracingShaderGroupHandlesKHR' = mkVkGetRayTracingShaderGroupHandlesKHR vkGetRayTracingShaderGroupHandlesKHRPtr@@ -1565,7 +1567,7 @@                                                    ("data" ::: Ptr ())                                                 -> io () getRayTracingCaptureReplayShaderGroupHandlesKHR device pipeline firstGroup groupCount dataSize data' = liftIO $ do-  let vkGetRayTracingCaptureReplayShaderGroupHandlesKHRPtr = pVkGetRayTracingCaptureReplayShaderGroupHandlesKHR (deviceCmds (device :: Device))+  let vkGetRayTracingCaptureReplayShaderGroupHandlesKHRPtr = pVkGetRayTracingCaptureReplayShaderGroupHandlesKHR (case device of Device{deviceCmds} -> deviceCmds)   unless (vkGetRayTracingCaptureReplayShaderGroupHandlesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetRayTracingCaptureReplayShaderGroupHandlesKHR is null" Nothing Nothing   let vkGetRayTracingCaptureReplayShaderGroupHandlesKHR' = mkVkGetRayTracingCaptureReplayShaderGroupHandlesKHR vkGetRayTracingCaptureReplayShaderGroupHandlesKHRPtr@@ -1728,7 +1730,7 @@                                 ("allocator" ::: Maybe AllocationCallbacks)                              -> io (Result, ("pipelines" ::: Vector Pipeline)) createRayTracingPipelinesKHR device deferredOperation pipelineCache createInfos allocator = liftIO . evalContT $ do-  let vkCreateRayTracingPipelinesKHRPtr = pVkCreateRayTracingPipelinesKHR (deviceCmds (device :: Device))+  let vkCreateRayTracingPipelinesKHRPtr = pVkCreateRayTracingPipelinesKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateRayTracingPipelinesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateRayTracingPipelinesKHR is null" Nothing Nothing   let vkCreateRayTracingPipelinesKHR' = mkVkCreateRayTracingPipelinesKHR vkCreateRayTracingPipelinesKHRPtr@@ -2281,7 +2283,7 @@                            ("indirectDeviceAddress" ::: DeviceAddress)                         -> io () cmdTraceRaysIndirectKHR commandBuffer raygenShaderBindingTable missShaderBindingTable hitShaderBindingTable callableShaderBindingTable indirectDeviceAddress = liftIO . evalContT $ do-  let vkCmdTraceRaysIndirectKHRPtr = pVkCmdTraceRaysIndirectKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdTraceRaysIndirectKHRPtr = pVkCmdTraceRaysIndirectKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdTraceRaysIndirectKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdTraceRaysIndirectKHR is null" Nothing Nothing   let vkCmdTraceRaysIndirectKHR' = mkVkCmdTraceRaysIndirectKHR vkCmdTraceRaysIndirectKHRPtr@@ -2354,7 +2356,7 @@                                         ShaderGroupShaderKHR                                      -> io (DeviceSize) getRayTracingShaderGroupStackSizeKHR device pipeline group groupShader = liftIO $ do-  let vkGetRayTracingShaderGroupStackSizeKHRPtr = pVkGetRayTracingShaderGroupStackSizeKHR (deviceCmds (device :: Device))+  let vkGetRayTracingShaderGroupStackSizeKHRPtr = pVkGetRayTracingShaderGroupStackSizeKHR (case device of Device{deviceCmds} -> deviceCmds)   unless (vkGetRayTracingShaderGroupStackSizeKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetRayTracingShaderGroupStackSizeKHR is null" Nothing Nothing   let vkGetRayTracingShaderGroupStackSizeKHR' = mkVkGetRayTracingShaderGroupStackSizeKHR vkGetRayTracingShaderGroupStackSizeKHRPtr@@ -2438,7 +2440,7 @@                                         ("pipelineStackSize" ::: Word32)                                      -> io () cmdSetRayTracingPipelineStackSizeKHR commandBuffer pipelineStackSize = liftIO $ do-  let vkCmdSetRayTracingPipelineStackSizeKHRPtr = pVkCmdSetRayTracingPipelineStackSizeKHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetRayTracingPipelineStackSizeKHRPtr = pVkCmdSetRayTracingPipelineStackSizeKHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetRayTracingPipelineStackSizeKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetRayTracingPipelineStackSizeKHR is null" Nothing Nothing   let vkCmdSetRayTracingPipelineStackSizeKHR' = mkVkCmdSetRayTracingPipelineStackSizeKHR vkCmdSetRayTracingPipelineStackSizeKHRPtr@@ -2981,7 +2983,7 @@  instance Extensible RayTracingPipelineCreateInfoKHR where   extensibleTypeName = "RayTracingPipelineCreateInfoKHR"-  setNext x next = x{next = next}+  setNext RayTracingPipelineCreateInfoKHR{..} next' = RayTracingPipelineCreateInfoKHR{next = next', ..}   getNext RayTracingPipelineCreateInfoKHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends RayTracingPipelineCreateInfoKHR e => b) -> Maybe b   extends _ f
src/Vulkan/Extensions/VK_KHR_shared_presentable_image.hs view
@@ -255,6 +255,7 @@ import Data.Kind (Type) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetSwapchainStatusKHR)) import Vulkan.Core10.Handles (Device_T) import Vulkan.Core10.Enums.ImageUsageFlagBits (ImageUsageFlags)@@ -327,7 +328,7 @@                          SwapchainKHR                       -> io (Result) getSwapchainStatusKHR device swapchain = liftIO $ do-  let vkGetSwapchainStatusKHRPtr = pVkGetSwapchainStatusKHR (deviceCmds (device :: Device))+  let vkGetSwapchainStatusKHRPtr = pVkGetSwapchainStatusKHR (case device of Device{deviceCmds} -> deviceCmds)   unless (vkGetSwapchainStatusKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetSwapchainStatusKHR is null" Nothing Nothing   let vkGetSwapchainStatusKHR' = mkVkGetSwapchainStatusKHR vkGetSwapchainStatusKHRPtr
src/Vulkan/Extensions/VK_KHR_surface.hs view
@@ -490,6 +490,7 @@ import Vulkan.Core10.Enums.ImageUsageFlagBits (ImageUsageFlags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkDestroySurfaceKHR)) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceSurfaceCapabilitiesKHR)) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceSurfaceFormatsKHR))@@ -498,6 +499,7 @@ import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -574,7 +576,7 @@                      ("allocator" ::: Maybe AllocationCallbacks)                   -> io () destroySurfaceKHR instance' surface allocator = liftIO . evalContT $ do-  let vkDestroySurfaceKHRPtr = pVkDestroySurfaceKHR (instanceCmds (instance' :: Instance))+  let vkDestroySurfaceKHRPtr = pVkDestroySurfaceKHR (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkDestroySurfaceKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroySurfaceKHR is null" Nothing Nothing   let vkDestroySurfaceKHR' = mkVkDestroySurfaceKHR vkDestroySurfaceKHRPtr@@ -651,7 +653,7 @@                                       SurfaceKHR                                    -> io (("supported" ::: Bool)) getPhysicalDeviceSurfaceSupportKHR physicalDevice queueFamilyIndex surface = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSurfaceSupportKHRPtr = pVkGetPhysicalDeviceSurfaceSupportKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSurfaceSupportKHRPtr = pVkGetPhysicalDeviceSurfaceSupportKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSurfaceSupportKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSurfaceSupportKHR is null" Nothing Nothing   let vkGetPhysicalDeviceSurfaceSupportKHR' = mkVkGetPhysicalDeviceSurfaceSupportKHR vkGetPhysicalDeviceSurfaceSupportKHRPtr@@ -726,7 +728,7 @@                                            SurfaceKHR                                         -> io (SurfaceCapabilitiesKHR) getPhysicalDeviceSurfaceCapabilitiesKHR physicalDevice surface = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSurfaceCapabilitiesKHRPtr = pVkGetPhysicalDeviceSurfaceCapabilitiesKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSurfaceCapabilitiesKHRPtr = pVkGetPhysicalDeviceSurfaceCapabilitiesKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSurfaceCapabilitiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSurfaceCapabilitiesKHR is null" Nothing Nothing   let vkGetPhysicalDeviceSurfaceCapabilitiesKHR' = mkVkGetPhysicalDeviceSurfaceCapabilitiesKHR vkGetPhysicalDeviceSurfaceCapabilitiesKHRPtr@@ -836,7 +838,7 @@                                       SurfaceKHR                                    -> io (Result, ("surfaceFormats" ::: Vector SurfaceFormatKHR)) getPhysicalDeviceSurfaceFormatsKHR physicalDevice surface = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSurfaceFormatsKHRPtr = pVkGetPhysicalDeviceSurfaceFormatsKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSurfaceFormatsKHRPtr = pVkGetPhysicalDeviceSurfaceFormatsKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSurfaceFormatsKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSurfaceFormatsKHR is null" Nothing Nothing   let vkGetPhysicalDeviceSurfaceFormatsKHR' = mkVkGetPhysicalDeviceSurfaceFormatsKHR vkGetPhysicalDeviceSurfaceFormatsKHRPtr@@ -939,7 +941,7 @@                                            SurfaceKHR                                         -> io (Result, ("presentModes" ::: Vector PresentModeKHR)) getPhysicalDeviceSurfacePresentModesKHR physicalDevice surface = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSurfacePresentModesKHRPtr = pVkGetPhysicalDeviceSurfacePresentModesKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSurfacePresentModesKHRPtr = pVkGetPhysicalDeviceSurfacePresentModesKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSurfacePresentModesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSurfacePresentModesKHR is null" Nothing Nothing   let vkGetPhysicalDeviceSurfacePresentModesKHR' = mkVkGetPhysicalDeviceSurfacePresentModesKHR vkGetPhysicalDeviceSurfacePresentModesKHRPtr
src/Vulkan/Extensions/VK_KHR_swapchain.hs view
@@ -1185,6 +1185,7 @@ import Vulkan.Extensions.VK_KHR_surface (CompositeAlphaFlagBitsKHR) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkAcquireNextImage2KHR)) import Vulkan.Dynamic (DeviceCmds(pVkAcquireNextImageKHR)) import Vulkan.Dynamic (DeviceCmds(pVkCreateSwapchainKHR))@@ -1213,6 +1214,7 @@ import Vulkan.CStruct.Extends (PeekChain(..)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.CStruct.Extends (PokeChain) import Vulkan.CStruct.Extends (PokeChain(..))@@ -1223,6 +1225,7 @@ import {-# SOURCE #-} Vulkan.Extensions.VK_GOOGLE_display_timing (PresentTimesInfoGOOGLE) import Vulkan.Core10.Handles (Queue) import Vulkan.Core10.Handles (Queue(..))+import Vulkan.Core10.Handles (Queue(Queue)) import Vulkan.Core10.Handles (Queue_T) import Vulkan.Core10.FundamentalTypes (Rect2D) import Vulkan.Core10.Enums.Result (Result)@@ -1371,7 +1374,7 @@                       ("allocator" ::: Maybe AllocationCallbacks)                    -> io (SwapchainKHR) createSwapchainKHR device createInfo allocator = liftIO . evalContT $ do-  let vkCreateSwapchainKHRPtr = pVkCreateSwapchainKHR (deviceCmds (device :: Device))+  let vkCreateSwapchainKHRPtr = pVkCreateSwapchainKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateSwapchainKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateSwapchainKHR is null" Nothing Nothing   let vkCreateSwapchainKHR' = mkVkCreateSwapchainKHR vkCreateSwapchainKHRPtr@@ -1488,7 +1491,7 @@                        ("allocator" ::: Maybe AllocationCallbacks)                     -> io () destroySwapchainKHR device swapchain allocator = liftIO . evalContT $ do-  let vkDestroySwapchainKHRPtr = pVkDestroySwapchainKHR (deviceCmds (device :: Device))+  let vkDestroySwapchainKHRPtr = pVkDestroySwapchainKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroySwapchainKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroySwapchainKHR is null" Nothing Nothing   let vkDestroySwapchainKHR' = mkVkDestroySwapchainKHR vkDestroySwapchainKHRPtr@@ -1572,7 +1575,7 @@                          SwapchainKHR                       -> io (Result, ("swapchainImages" ::: Vector Image)) getSwapchainImagesKHR device swapchain = liftIO . evalContT $ do-  let vkGetSwapchainImagesKHRPtr = pVkGetSwapchainImagesKHR (deviceCmds (device :: Device))+  let vkGetSwapchainImagesKHRPtr = pVkGetSwapchainImagesKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetSwapchainImagesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetSwapchainImagesKHR is null" Nothing Nothing   let vkGetSwapchainImagesKHR' = mkVkGetSwapchainImagesKHR vkGetSwapchainImagesKHRPtr@@ -1620,7 +1623,7 @@                                    Fence                                 -> io (Result, ("imageIndex" ::: Word32)) acquireNextImageKHRSafeOrUnsafe mkVkAcquireNextImageKHR device swapchain timeout semaphore fence = liftIO . evalContT $ do-  let vkAcquireNextImageKHRPtr = pVkAcquireNextImageKHR (deviceCmds (device :: Device))+  let vkAcquireNextImageKHRPtr = pVkAcquireNextImageKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkAcquireNextImageKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAcquireNextImageKHR is null" Nothing Nothing   let vkAcquireNextImageKHR' = mkVkAcquireNextImageKHR vkAcquireNextImageKHRPtr@@ -1949,7 +1952,7 @@                    (PresentInfoKHR a)                 -> io (Result) queuePresentKHR queue presentInfo = liftIO . evalContT $ do-  let vkQueuePresentKHRPtr = pVkQueuePresentKHR (deviceCmds (queue :: Queue))+  let vkQueuePresentKHRPtr = pVkQueuePresentKHR (case queue of Queue{deviceCmds} -> deviceCmds)   lift $ unless (vkQueuePresentKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkQueuePresentKHR is null" Nothing Nothing   let vkQueuePresentKHR' = mkVkQueuePresentKHR vkQueuePresentKHRPtr@@ -1997,7 +2000,7 @@                                         Device                                      -> io (DeviceGroupPresentCapabilitiesKHR) getDeviceGroupPresentCapabilitiesKHR device = liftIO . evalContT $ do-  let vkGetDeviceGroupPresentCapabilitiesKHRPtr = pVkGetDeviceGroupPresentCapabilitiesKHR (deviceCmds (device :: Device))+  let vkGetDeviceGroupPresentCapabilitiesKHRPtr = pVkGetDeviceGroupPresentCapabilitiesKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceGroupPresentCapabilitiesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceGroupPresentCapabilitiesKHR is null" Nothing Nothing   let vkGetDeviceGroupPresentCapabilitiesKHR' = mkVkGetDeviceGroupPresentCapabilitiesKHR vkGetDeviceGroupPresentCapabilitiesKHRPtr@@ -2084,7 +2087,7 @@                                         SurfaceKHR                                      -> io (("modes" ::: DeviceGroupPresentModeFlagsKHR)) getDeviceGroupSurfacePresentModesKHR device surface = liftIO . evalContT $ do-  let vkGetDeviceGroupSurfacePresentModesKHRPtr = pVkGetDeviceGroupSurfacePresentModesKHR (deviceCmds (device :: Device))+  let vkGetDeviceGroupSurfacePresentModesKHRPtr = pVkGetDeviceGroupSurfacePresentModesKHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetDeviceGroupSurfacePresentModesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetDeviceGroupSurfacePresentModesKHR is null" Nothing Nothing   let vkGetDeviceGroupSurfacePresentModesKHR' = mkVkGetDeviceGroupSurfacePresentModesKHR vkGetDeviceGroupSurfacePresentModesKHRPtr@@ -2117,7 +2120,7 @@                                     ("acquireInfo" ::: AcquireNextImageInfoKHR)                                  -> io (Result, ("imageIndex" ::: Word32)) acquireNextImage2KHRSafeOrUnsafe mkVkAcquireNextImage2KHR device acquireInfo = liftIO . evalContT $ do-  let vkAcquireNextImage2KHRPtr = pVkAcquireNextImage2KHR (deviceCmds (device :: Device))+  let vkAcquireNextImage2KHRPtr = pVkAcquireNextImage2KHR (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkAcquireNextImage2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAcquireNextImage2KHR is null" Nothing Nothing   let vkAcquireNextImage2KHR' = mkVkAcquireNextImage2KHR vkAcquireNextImage2KHRPtr@@ -2301,7 +2304,7 @@                                          SurfaceKHR                                       -> io (Result, ("rects" ::: Vector Rect2D)) getPhysicalDevicePresentRectanglesKHR physicalDevice surface = liftIO . evalContT $ do-  let vkGetPhysicalDevicePresentRectanglesKHRPtr = pVkGetPhysicalDevicePresentRectanglesKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDevicePresentRectanglesKHRPtr = pVkGetPhysicalDevicePresentRectanglesKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDevicePresentRectanglesKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDevicePresentRectanglesKHR is null" Nothing Nothing   let vkGetPhysicalDevicePresentRectanglesKHR' = mkVkGetPhysicalDevicePresentRectanglesKHR vkGetPhysicalDevicePresentRectanglesKHRPtr@@ -2732,7 +2735,7 @@  instance Extensible SwapchainCreateInfoKHR where   extensibleTypeName = "SwapchainCreateInfoKHR"-  setNext x next = x{next = next}+  setNext SwapchainCreateInfoKHR{..} next' = SwapchainCreateInfoKHR{next = next', ..}   getNext SwapchainCreateInfoKHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends SwapchainCreateInfoKHR e => b) -> Maybe b   extends _ f@@ -2960,7 +2963,7 @@  instance Extensible PresentInfoKHR where   extensibleTypeName = "PresentInfoKHR"-  setNext x next = x{next = next}+  setNext PresentInfoKHR{..} next' = PresentInfoKHR{next = next', ..}   getNext PresentInfoKHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends PresentInfoKHR e => b) -> Maybe b   extends _ f
src/Vulkan/Extensions/VK_KHR_synchronization2.hs view
@@ -599,6 +599,7 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Core10.Enums.DependencyFlagBits (DependencyFlags) import Vulkan.Dynamic (DeviceCmds(pVkCmdPipelineBarrier2KHR))@@ -631,6 +632,7 @@ import Vulkan.Core10.Handles (QueryPool(..)) import Vulkan.Core10.Handles (Queue) import Vulkan.Core10.Handles (Queue(..))+import Vulkan.Core10.Handles (Queue(Queue)) import Vulkan.Core10.Handles (Queue_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -807,7 +809,7 @@                    DependencyInfoKHR                 -> io () cmdSetEvent2KHR commandBuffer event dependencyInfo = liftIO . evalContT $ do-  let vkCmdSetEvent2KHRPtr = pVkCmdSetEvent2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetEvent2KHRPtr = pVkCmdSetEvent2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetEvent2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetEvent2KHR is null" Nothing Nothing   let vkCmdSetEvent2KHR' = mkVkCmdSetEvent2KHR vkCmdSetEvent2KHRPtr@@ -986,7 +988,7 @@                      ("stageMask" ::: PipelineStageFlags2KHR)                   -> io () cmdResetEvent2KHR commandBuffer event stageMask = liftIO $ do-  let vkCmdResetEvent2KHRPtr = pVkCmdResetEvent2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdResetEvent2KHRPtr = pVkCmdResetEvent2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdResetEvent2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdResetEvent2KHR is null" Nothing Nothing   let vkCmdResetEvent2KHR' = mkVkCmdResetEvent2KHR vkCmdResetEvent2KHRPtr@@ -1020,7 +1022,7 @@                                  ("dependencyInfos" ::: Vector DependencyInfoKHR)                               -> io () cmdWaitEvents2KHRSafeOrUnsafe mkVkCmdWaitEvents2KHR commandBuffer events dependencyInfos = liftIO . evalContT $ do-  let vkCmdWaitEvents2KHRPtr = pVkCmdWaitEvents2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdWaitEvents2KHRPtr = pVkCmdWaitEvents2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdWaitEvents2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdWaitEvents2KHR is null" Nothing Nothing   let vkCmdWaitEvents2KHR' = mkVkCmdWaitEvents2KHR vkCmdWaitEvents2KHRPtr@@ -1389,7 +1391,7 @@                           DependencyInfoKHR                        -> io () cmdPipelineBarrier2KHR commandBuffer dependencyInfo = liftIO . evalContT $ do-  let vkCmdPipelineBarrier2KHRPtr = pVkCmdPipelineBarrier2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdPipelineBarrier2KHRPtr = pVkCmdPipelineBarrier2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdPipelineBarrier2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdPipelineBarrier2KHR is null" Nothing Nothing   let vkCmdPipelineBarrier2KHR' = mkVkCmdPipelineBarrier2KHR vkCmdPipelineBarrier2KHRPtr@@ -1636,7 +1638,7 @@                    Fence                 -> io () queueSubmit2KHR queue submits fence = liftIO . evalContT $ do-  let vkQueueSubmit2KHRPtr = pVkQueueSubmit2KHR (deviceCmds (queue :: Queue))+  let vkQueueSubmit2KHRPtr = pVkQueueSubmit2KHR (case queue of Queue{deviceCmds} -> deviceCmds)   lift $ unless (vkQueueSubmit2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkQueueSubmit2KHR is null" Nothing Nothing   let vkQueueSubmit2KHR' = mkVkQueueSubmit2KHR vkQueueSubmit2KHRPtr@@ -1863,7 +1865,7 @@                          ("query" ::: Word32)                       -> io () cmdWriteTimestamp2KHR commandBuffer stage queryPool query = liftIO $ do-  let vkCmdWriteTimestamp2KHRPtr = pVkCmdWriteTimestamp2KHR (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdWriteTimestamp2KHRPtr = pVkCmdWriteTimestamp2KHR (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdWriteTimestamp2KHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdWriteTimestamp2KHR is null" Nothing Nothing   let vkCmdWriteTimestamp2KHR' = mkVkCmdWriteTimestamp2KHR vkCmdWriteTimestamp2KHRPtr@@ -2061,7 +2063,7 @@                             ("marker" ::: Word32)                          -> io () cmdWriteBufferMarker2AMD commandBuffer stage dstBuffer dstOffset marker = liftIO $ do-  let vkCmdWriteBufferMarker2AMDPtr = pVkCmdWriteBufferMarker2AMD (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdWriteBufferMarker2AMDPtr = pVkCmdWriteBufferMarker2AMD (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdWriteBufferMarker2AMDPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdWriteBufferMarker2AMD is null" Nothing Nothing   let vkCmdWriteBufferMarker2AMD' = mkVkCmdWriteBufferMarker2AMD vkCmdWriteBufferMarker2AMDPtr@@ -2122,7 +2124,7 @@                              Queue                           -> io (("checkpointData" ::: Vector CheckpointData2NV)) getQueueCheckpointData2NV queue = liftIO . evalContT $ do-  let vkGetQueueCheckpointData2NVPtr = pVkGetQueueCheckpointData2NV (deviceCmds (queue :: Queue))+  let vkGetQueueCheckpointData2NVPtr = pVkGetQueueCheckpointData2NV (case queue of Queue{deviceCmds} -> deviceCmds)   lift $ unless (vkGetQueueCheckpointData2NVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetQueueCheckpointData2NV is null" Nothing Nothing   let vkGetQueueCheckpointData2NV' = mkVkGetQueueCheckpointData2NV vkGetQueueCheckpointData2NVPtr@@ -3784,7 +3786,7 @@  instance Extensible ImageMemoryBarrier2KHR where   extensibleTypeName = "ImageMemoryBarrier2KHR"-  setNext x next = x{next = next}+  setNext ImageMemoryBarrier2KHR{..} next' = ImageMemoryBarrier2KHR{next = next', ..}   getNext ImageMemoryBarrier2KHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends ImageMemoryBarrier2KHR e => b) -> Maybe b   extends _ f@@ -5133,7 +5135,7 @@  instance Extensible SubmitInfo2KHR where   extensibleTypeName = "SubmitInfo2KHR"-  setNext x next = x{next = next}+  setNext SubmitInfo2KHR{..} next' = SubmitInfo2KHR{next = next', ..}   getNext SubmitInfo2KHR{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends SubmitInfo2KHR e => b) -> Maybe b   extends _ f
src/Vulkan/Extensions/VK_KHR_wayland_surface.hs view
@@ -250,11 +250,13 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateWaylandSurfaceKHR)) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceWaylandPresentationSupportKHR)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -324,7 +326,7 @@                            ("allocator" ::: Maybe AllocationCallbacks)                         -> io (SurfaceKHR) createWaylandSurfaceKHR instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateWaylandSurfaceKHRPtr = pVkCreateWaylandSurfaceKHR (instanceCmds (instance' :: Instance))+  let vkCreateWaylandSurfaceKHRPtr = pVkCreateWaylandSurfaceKHR (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateWaylandSurfaceKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateWaylandSurfaceKHR is null" Nothing Nothing   let vkCreateWaylandSurfaceKHR' = mkVkCreateWaylandSurfaceKHR vkCreateWaylandSurfaceKHRPtr@@ -384,7 +386,7 @@                                                   (Ptr Wl_display)                                                -> io (Bool) getPhysicalDeviceWaylandPresentationSupportKHR physicalDevice queueFamilyIndex display = liftIO $ do-  let vkGetPhysicalDeviceWaylandPresentationSupportKHRPtr = pVkGetPhysicalDeviceWaylandPresentationSupportKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceWaylandPresentationSupportKHRPtr = pVkGetPhysicalDeviceWaylandPresentationSupportKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   unless (vkGetPhysicalDeviceWaylandPresentationSupportKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceWaylandPresentationSupportKHR is null" Nothing Nothing   let vkGetPhysicalDeviceWaylandPresentationSupportKHR' = mkVkGetPhysicalDeviceWaylandPresentationSupportKHR vkGetPhysicalDeviceWaylandPresentationSupportKHRPtr
src/Vulkan/Extensions/VK_KHR_win32_surface.hs view
@@ -276,11 +276,13 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateWin32SurfaceKHR)) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceWin32PresentationSupportKHR)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -349,7 +351,7 @@                          ("allocator" ::: Maybe AllocationCallbacks)                       -> io (SurfaceKHR) createWin32SurfaceKHR instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateWin32SurfaceKHRPtr = pVkCreateWin32SurfaceKHR (instanceCmds (instance' :: Instance))+  let vkCreateWin32SurfaceKHRPtr = pVkCreateWin32SurfaceKHR (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateWin32SurfaceKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateWin32SurfaceKHR is null" Nothing Nothing   let vkCreateWin32SurfaceKHR' = mkVkCreateWin32SurfaceKHR vkCreateWin32SurfaceKHRPtr@@ -403,7 +405,7 @@                                                 ("queueFamilyIndex" ::: Word32)                                              -> io (Bool) getPhysicalDeviceWin32PresentationSupportKHR physicalDevice queueFamilyIndex = liftIO $ do-  let vkGetPhysicalDeviceWin32PresentationSupportKHRPtr = pVkGetPhysicalDeviceWin32PresentationSupportKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceWin32PresentationSupportKHRPtr = pVkGetPhysicalDeviceWin32PresentationSupportKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   unless (vkGetPhysicalDeviceWin32PresentationSupportKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceWin32PresentationSupportKHR is null" Nothing Nothing   let vkGetPhysicalDeviceWin32PresentationSupportKHR' = mkVkGetPhysicalDeviceWin32PresentationSupportKHR vkGetPhysicalDeviceWin32PresentationSupportKHRPtr
src/Vulkan/Extensions/VK_KHR_xcb_surface.hs view
@@ -233,11 +233,13 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateXcbSurfaceKHR)) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceXcbPresentationSupportKHR)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -305,7 +307,7 @@                        ("allocator" ::: Maybe AllocationCallbacks)                     -> io (SurfaceKHR) createXcbSurfaceKHR instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateXcbSurfaceKHRPtr = pVkCreateXcbSurfaceKHR (instanceCmds (instance' :: Instance))+  let vkCreateXcbSurfaceKHRPtr = pVkCreateXcbSurfaceKHR (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateXcbSurfaceKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateXcbSurfaceKHR is null" Nothing Nothing   let vkCreateXcbSurfaceKHR' = mkVkCreateXcbSurfaceKHR vkCreateXcbSurfaceKHRPtr@@ -366,7 +368,7 @@                                               ("visual_id" ::: Xcb_visualid_t)                                            -> io (Bool) getPhysicalDeviceXcbPresentationSupportKHR physicalDevice queueFamilyIndex connection visual_id = liftIO $ do-  let vkGetPhysicalDeviceXcbPresentationSupportKHRPtr = pVkGetPhysicalDeviceXcbPresentationSupportKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceXcbPresentationSupportKHRPtr = pVkGetPhysicalDeviceXcbPresentationSupportKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   unless (vkGetPhysicalDeviceXcbPresentationSupportKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceXcbPresentationSupportKHR is null" Nothing Nothing   let vkGetPhysicalDeviceXcbPresentationSupportKHR' = mkVkGetPhysicalDeviceXcbPresentationSupportKHR vkGetPhysicalDeviceXcbPresentationSupportKHRPtr
src/Vulkan/Extensions/VK_KHR_xlib_surface.hs view
@@ -234,11 +234,13 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateXlibSurfaceKHR)) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceXlibPresentationSupportKHR)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -307,7 +309,7 @@                         ("allocator" ::: Maybe AllocationCallbacks)                      -> io (SurfaceKHR) createXlibSurfaceKHR instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateXlibSurfaceKHRPtr = pVkCreateXlibSurfaceKHR (instanceCmds (instance' :: Instance))+  let vkCreateXlibSurfaceKHRPtr = pVkCreateXlibSurfaceKHR (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateXlibSurfaceKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateXlibSurfaceKHR is null" Nothing Nothing   let vkCreateXlibSurfaceKHR' = mkVkCreateXlibSurfaceKHR vkCreateXlibSurfaceKHRPtr@@ -368,7 +370,7 @@                                                VisualID                                             -> io (Bool) getPhysicalDeviceXlibPresentationSupportKHR physicalDevice queueFamilyIndex dpy visualID = liftIO $ do-  let vkGetPhysicalDeviceXlibPresentationSupportKHRPtr = pVkGetPhysicalDeviceXlibPresentationSupportKHR (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceXlibPresentationSupportKHRPtr = pVkGetPhysicalDeviceXlibPresentationSupportKHR (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   unless (vkGetPhysicalDeviceXlibPresentationSupportKHRPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceXlibPresentationSupportKHR is null" Nothing Nothing   let vkGetPhysicalDeviceXlibPresentationSupportKHR' = mkVkGetPhysicalDeviceXlibPresentationSupportKHR vkGetPhysicalDeviceXlibPresentationSupportKHRPtr
src/Vulkan/Extensions/VK_MVK_ios_surface.hs view
@@ -167,6 +167,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateIOSSurfaceMVK)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Enums.Result (Result)@@ -257,7 +258,7 @@                        ("allocator" ::: Maybe AllocationCallbacks)                     -> io (SurfaceKHR) createIOSSurfaceMVK instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateIOSSurfaceMVKPtr = pVkCreateIOSSurfaceMVK (instanceCmds (instance' :: Instance))+  let vkCreateIOSSurfaceMVKPtr = pVkCreateIOSSurfaceMVK (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateIOSSurfaceMVKPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateIOSSurfaceMVK is null" Nothing Nothing   let vkCreateIOSSurfaceMVK' = mkVkCreateIOSSurfaceMVK vkCreateIOSSurfaceMVKPtr
src/Vulkan/Extensions/VK_MVK_macos_surface.hs view
@@ -167,6 +167,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateMacOSSurfaceMVK)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Enums.Result (Result)@@ -260,7 +261,7 @@                          ("allocator" ::: Maybe AllocationCallbacks)                       -> io (SurfaceKHR) createMacOSSurfaceMVK instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateMacOSSurfaceMVKPtr = pVkCreateMacOSSurfaceMVK (instanceCmds (instance' :: Instance))+  let vkCreateMacOSSurfaceMVKPtr = pVkCreateMacOSSurfaceMVK (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateMacOSSurfaceMVKPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateMacOSSurfaceMVK is null" Nothing Nothing   let vkCreateMacOSSurfaceMVK' = mkVkCreateMacOSSurfaceMVK vkCreateMacOSSurfaceMVKPtr
src/Vulkan/Extensions/VK_NN_vi_surface.hs view
@@ -166,6 +166,7 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateViSurfaceNN)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Enums.Result (Result)@@ -252,7 +253,7 @@                      ("allocator" ::: Maybe AllocationCallbacks)                   -> io (SurfaceKHR) createViSurfaceNN instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateViSurfaceNNPtr = pVkCreateViSurfaceNN (instanceCmds (instance' :: Instance))+  let vkCreateViSurfaceNNPtr = pVkCreateViSurfaceNN (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateViSurfaceNNPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateViSurfaceNN is null" Nothing Nothing   let vkCreateViSurfaceNN' = mkVkCreateViSurfaceNN vkCreateViSurfaceNNPtr
src/Vulkan/Extensions/VK_NVX_binary_import.hs view
@@ -479,6 +479,7 @@ import Vulkan.Core10.AllocationCallbacks (AllocationCallbacks) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Extensions.Handles (CuFunctionNVX) import Vulkan.Extensions.Handles (CuFunctionNVX(..))@@ -486,6 +487,7 @@ import Vulkan.Extensions.Handles (CuModuleNVX(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkCmdCuLaunchKernelNVX)) import Vulkan.Dynamic (DeviceCmds(pVkCreateCuFunctionNVX)) import Vulkan.Dynamic (DeviceCmds(pVkCreateCuModuleNVX))@@ -556,7 +558,7 @@                      ("allocator" ::: Maybe AllocationCallbacks)                   -> io (CuModuleNVX) createCuModuleNVX device createInfo allocator = liftIO . evalContT $ do-  let vkCreateCuModuleNVXPtr = pVkCreateCuModuleNVX (deviceCmds (device :: Device))+  let vkCreateCuModuleNVXPtr = pVkCreateCuModuleNVX (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateCuModuleNVXPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateCuModuleNVX is null" Nothing Nothing   let vkCreateCuModuleNVX' = mkVkCreateCuModuleNVX vkCreateCuModuleNVXPtr@@ -638,7 +640,7 @@                        ("allocator" ::: Maybe AllocationCallbacks)                     -> io (CuFunctionNVX) createCuFunctionNVX device createInfo allocator = liftIO . evalContT $ do-  let vkCreateCuFunctionNVXPtr = pVkCreateCuFunctionNVX (deviceCmds (device :: Device))+  let vkCreateCuFunctionNVXPtr = pVkCreateCuFunctionNVX (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateCuFunctionNVXPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateCuFunctionNVX is null" Nothing Nothing   let vkCreateCuFunctionNVX' = mkVkCreateCuFunctionNVX vkCreateCuFunctionNVXPtr@@ -705,7 +707,7 @@                       ("allocator" ::: Maybe AllocationCallbacks)                    -> io () destroyCuModuleNVX device module' allocator = liftIO . evalContT $ do-  let vkDestroyCuModuleNVXPtr = pVkDestroyCuModuleNVX (deviceCmds (device :: Device))+  let vkDestroyCuModuleNVXPtr = pVkDestroyCuModuleNVX (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyCuModuleNVXPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyCuModuleNVX is null" Nothing Nothing   let vkDestroyCuModuleNVX' = mkVkDestroyCuModuleNVX vkDestroyCuModuleNVXPtr@@ -756,7 +758,7 @@                         ("allocator" ::: Maybe AllocationCallbacks)                      -> io () destroyCuFunctionNVX device function allocator = liftIO . evalContT $ do-  let vkDestroyCuFunctionNVXPtr = pVkDestroyCuFunctionNVX (deviceCmds (device :: Device))+  let vkDestroyCuFunctionNVXPtr = pVkDestroyCuFunctionNVX (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyCuFunctionNVXPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyCuFunctionNVX is null" Nothing Nothing   let vkDestroyCuFunctionNVX' = mkVkDestroyCuFunctionNVX vkDestroyCuFunctionNVXPtr@@ -821,7 +823,7 @@                         CuLaunchInfoNVX                      -> io () cmdCuLaunchKernelNVX commandBuffer launchInfo = liftIO . evalContT $ do-  let vkCmdCuLaunchKernelNVXPtr = pVkCmdCuLaunchKernelNVX (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCuLaunchKernelNVXPtr = pVkCmdCuLaunchKernelNVX (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdCuLaunchKernelNVXPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCuLaunchKernelNVX is null" Nothing Nothing   let vkCmdCuLaunchKernelNVX' = mkVkCmdCuLaunchKernelNVX vkCmdCuLaunchKernelNVXPtr
src/Vulkan/Extensions/VK_NVX_image_view_handle.hs view
@@ -135,6 +135,7 @@ import Vulkan.Core10.Enums.DescriptorType (DescriptorType) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Core10.FundamentalTypes (DeviceAddress) import Vulkan.Dynamic (DeviceCmds(pVkGetImageViewAddressNVX)) import Vulkan.Dynamic (DeviceCmds(pVkGetImageViewHandleNVX))@@ -180,7 +181,7 @@                          ImageViewHandleInfoNVX                       -> io (Word32) getImageViewHandleNVX device info = liftIO . evalContT $ do-  let vkGetImageViewHandleNVXPtr = pVkGetImageViewHandleNVX (deviceCmds (device :: Device))+  let vkGetImageViewHandleNVXPtr = pVkGetImageViewHandleNVX (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetImageViewHandleNVXPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetImageViewHandleNVX is null" Nothing Nothing   let vkGetImageViewHandleNVX' = mkVkGetImageViewHandleNVX vkGetImageViewHandleNVXPtr@@ -232,7 +233,7 @@                           ImageView                        -> io (ImageViewAddressPropertiesNVX) getImageViewAddressNVX device imageView = liftIO . evalContT $ do-  let vkGetImageViewAddressNVXPtr = pVkGetImageViewAddressNVX (deviceCmds (device :: Device))+  let vkGetImageViewAddressNVXPtr = pVkGetImageViewAddressNVX (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetImageViewAddressNVXPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetImageViewAddressNVX is null" Nothing Nothing   let vkGetImageViewAddressNVX' = mkVkGetImageViewAddressNVX vkGetImageViewAddressNVXPtr
src/Vulkan/Extensions/VK_NV_acquire_winrt_display.hs view
@@ -206,6 +206,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkGetWinrtDisplayNV)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -292,7 +293,7 @@                          DisplayKHR                       -> io () acquireWinrtDisplayNV physicalDevice display = liftIO $ do-  let vkAcquireWinrtDisplayNVPtr = pVkAcquireWinrtDisplayNV (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkAcquireWinrtDisplayNVPtr = pVkAcquireWinrtDisplayNV (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   unless (vkAcquireWinrtDisplayNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkAcquireWinrtDisplayNV is null" Nothing Nothing   let vkAcquireWinrtDisplayNV' = mkVkAcquireWinrtDisplayNV vkAcquireWinrtDisplayNVPtr@@ -358,7 +359,7 @@                      ("deviceRelativeId" ::: Word32)                   -> io (DisplayKHR) getWinrtDisplayNV physicalDevice deviceRelativeId = liftIO . evalContT $ do-  let vkGetWinrtDisplayNVPtr = pVkGetWinrtDisplayNV (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetWinrtDisplayNVPtr = pVkGetWinrtDisplayNV (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetWinrtDisplayNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetWinrtDisplayNV is null" Nothing Nothing   let vkGetWinrtDisplayNV' = mkVkGetWinrtDisplayNV vkGetWinrtDisplayNVPtr
src/Vulkan/Extensions/VK_NV_clip_space_w_scaling.hs view
@@ -258,6 +258,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetViewportWScalingNV)) import Vulkan.Core10.Enums.StructureType (StructureType)@@ -350,7 +351,7 @@                             ("viewportWScalings" ::: Vector ViewportWScalingNV)                          -> io () cmdSetViewportWScalingNV commandBuffer firstViewport viewportWScalings = liftIO . evalContT $ do-  let vkCmdSetViewportWScalingNVPtr = pVkCmdSetViewportWScalingNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetViewportWScalingNVPtr = pVkCmdSetViewportWScalingNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetViewportWScalingNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetViewportWScalingNV is null" Nothing Nothing   let vkCmdSetViewportWScalingNV' = mkVkCmdSetViewportWScalingNV vkCmdSetViewportWScalingNVPtr
src/Vulkan/Extensions/VK_NV_cooperative_matrix.hs view
@@ -227,6 +227,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceCooperativeMatrixPropertiesNV)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -300,7 +301,7 @@                                                   PhysicalDevice                                                -> io (Result, ("properties" ::: Vector CooperativeMatrixPropertiesNV)) getPhysicalDeviceCooperativeMatrixPropertiesNV physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceCooperativeMatrixPropertiesNVPtr = pVkGetPhysicalDeviceCooperativeMatrixPropertiesNV (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceCooperativeMatrixPropertiesNVPtr = pVkGetPhysicalDeviceCooperativeMatrixPropertiesNV (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceCooperativeMatrixPropertiesNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceCooperativeMatrixPropertiesNV is null" Nothing Nothing   let vkGetPhysicalDeviceCooperativeMatrixPropertiesNV' = mkVkGetPhysicalDeviceCooperativeMatrixPropertiesNV vkGetPhysicalDeviceCooperativeMatrixPropertiesNVPtr
src/Vulkan/Extensions/VK_NV_coverage_reduction_mode.hs view
@@ -201,6 +201,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNV)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -277,7 +278,7 @@                                                                    PhysicalDevice                                                                 -> io (Result, ("combinations" ::: Vector FramebufferMixedSamplesCombinationNV)) getPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNV physicalDevice = liftIO . evalContT $ do-  let vkGetPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNVPtr = pVkGetPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNV (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNVPtr = pVkGetPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNV (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNV is null" Nothing Nothing   let vkGetPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNV' = mkVkGetPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNV vkGetPhysicalDeviceSupportedFramebufferMixedSamplesCombinationsNVPtr
src/Vulkan/Extensions/VK_NV_device_diagnostic_checkpoints.hs view
@@ -153,6 +153,7 @@ import Vulkan.NamedType ((:::)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetCheckpointNV)) import Vulkan.Dynamic (DeviceCmds(pVkGetQueueCheckpointDataNV))@@ -160,6 +161,7 @@ import Vulkan.Core10.Enums.PipelineStageFlagBits (PipelineStageFlags) import Vulkan.Core10.Handles (Queue) import Vulkan.Core10.Handles (Queue(..))+import Vulkan.Core10.Handles (Queue(Queue)) import Vulkan.Core10.Handles (Queue_T) import Vulkan.Core10.Enums.StructureType (StructureType) import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_CHECKPOINT_DATA_NV))@@ -219,7 +221,7 @@                       ("checkpointMarker" ::: Ptr ())                    -> io () cmdSetCheckpointNV commandBuffer checkpointMarker = liftIO $ do-  let vkCmdSetCheckpointNVPtr = pVkCmdSetCheckpointNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetCheckpointNVPtr = pVkCmdSetCheckpointNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdSetCheckpointNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetCheckpointNV is null" Nothing Nothing   let vkCmdSetCheckpointNV' = mkVkCmdSetCheckpointNV vkCmdSetCheckpointNVPtr@@ -280,7 +282,7 @@                             Queue                          -> io (("checkpointData" ::: Vector CheckpointDataNV)) getQueueCheckpointDataNV queue = liftIO . evalContT $ do-  let vkGetQueueCheckpointDataNVPtr = pVkGetQueueCheckpointDataNV (deviceCmds (queue :: Queue))+  let vkGetQueueCheckpointDataNVPtr = pVkGetQueueCheckpointDataNV (case queue of Queue{deviceCmds} -> deviceCmds)   lift $ unless (vkGetQueueCheckpointDataNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetQueueCheckpointDataNV is null" Nothing Nothing   let vkGetQueueCheckpointDataNV' = mkVkGetQueueCheckpointDataNV vkGetQueueCheckpointDataNVPtr
src/Vulkan/Extensions/VK_NV_device_generated_commands.hs view
@@ -656,9 +656,11 @@ import Vulkan.Core10.Handles (Buffer) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Core10.FundamentalTypes (DeviceAddress) import Vulkan.Dynamic (DeviceCmds(pVkCmdBindPipelineShaderGroupNV)) import Vulkan.Dynamic (DeviceCmds(pVkCmdExecuteGeneratedCommandsNV))@@ -1566,7 +1568,7 @@                                  GeneratedCommandsInfoNV                               -> io () cmdExecuteGeneratedCommandsNV commandBuffer isPreprocessed generatedCommandsInfo = liftIO . evalContT $ do-  let vkCmdExecuteGeneratedCommandsNVPtr = pVkCmdExecuteGeneratedCommandsNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdExecuteGeneratedCommandsNVPtr = pVkCmdExecuteGeneratedCommandsNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdExecuteGeneratedCommandsNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdExecuteGeneratedCommandsNV is null" Nothing Nothing   let vkCmdExecuteGeneratedCommandsNV' = mkVkCmdExecuteGeneratedCommandsNV vkCmdExecuteGeneratedCommandsNVPtr@@ -1652,7 +1654,7 @@                                     GeneratedCommandsInfoNV                                  -> io () cmdPreprocessGeneratedCommandsNV commandBuffer generatedCommandsInfo = liftIO . evalContT $ do-  let vkCmdPreprocessGeneratedCommandsNVPtr = pVkCmdPreprocessGeneratedCommandsNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdPreprocessGeneratedCommandsNVPtr = pVkCmdPreprocessGeneratedCommandsNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdPreprocessGeneratedCommandsNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdPreprocessGeneratedCommandsNV is null" Nothing Nothing   let vkCmdPreprocessGeneratedCommandsNV' = mkVkCmdPreprocessGeneratedCommandsNV vkCmdPreprocessGeneratedCommandsNVPtr@@ -1755,7 +1757,7 @@                                 ("groupIndex" ::: Word32)                              -> io () cmdBindPipelineShaderGroupNV commandBuffer pipelineBindPoint pipeline groupIndex = liftIO $ do-  let vkCmdBindPipelineShaderGroupNVPtr = pVkCmdBindPipelineShaderGroupNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBindPipelineShaderGroupNVPtr = pVkCmdBindPipelineShaderGroupNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdBindPipelineShaderGroupNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBindPipelineShaderGroupNV is null" Nothing Nothing   let vkCmdBindPipelineShaderGroupNV' = mkVkCmdBindPipelineShaderGroupNV vkCmdBindPipelineShaderGroupNVPtr@@ -1810,7 +1812,7 @@                                             GeneratedCommandsMemoryRequirementsInfoNV                                          -> io (MemoryRequirements2 a) getGeneratedCommandsMemoryRequirementsNV device info = liftIO . evalContT $ do-  let vkGetGeneratedCommandsMemoryRequirementsNVPtr = pVkGetGeneratedCommandsMemoryRequirementsNV (deviceCmds (device :: Device))+  let vkGetGeneratedCommandsMemoryRequirementsNVPtr = pVkGetGeneratedCommandsMemoryRequirementsNV (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetGeneratedCommandsMemoryRequirementsNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetGeneratedCommandsMemoryRequirementsNV is null" Nothing Nothing   let vkGetGeneratedCommandsMemoryRequirementsNV' = mkVkGetGeneratedCommandsMemoryRequirementsNV vkGetGeneratedCommandsMemoryRequirementsNVPtr@@ -1888,7 +1890,7 @@                                   ("allocator" ::: Maybe AllocationCallbacks)                                -> io (IndirectCommandsLayoutNV) createIndirectCommandsLayoutNV device createInfo allocator = liftIO . evalContT $ do-  let vkCreateIndirectCommandsLayoutNVPtr = pVkCreateIndirectCommandsLayoutNV (deviceCmds (device :: Device))+  let vkCreateIndirectCommandsLayoutNVPtr = pVkCreateIndirectCommandsLayoutNV (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateIndirectCommandsLayoutNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateIndirectCommandsLayoutNV is null" Nothing Nothing   let vkCreateIndirectCommandsLayoutNV' = mkVkCreateIndirectCommandsLayoutNV vkCreateIndirectCommandsLayoutNVPtr@@ -1989,7 +1991,7 @@                                    ("allocator" ::: Maybe AllocationCallbacks)                                 -> io () destroyIndirectCommandsLayoutNV device indirectCommandsLayout allocator = liftIO . evalContT $ do-  let vkDestroyIndirectCommandsLayoutNVPtr = pVkDestroyIndirectCommandsLayoutNV (deviceCmds (device :: Device))+  let vkDestroyIndirectCommandsLayoutNVPtr = pVkDestroyIndirectCommandsLayoutNV (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyIndirectCommandsLayoutNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyIndirectCommandsLayoutNV is null" Nothing Nothing   let vkDestroyIndirectCommandsLayoutNV' = mkVkDestroyIndirectCommandsLayoutNV vkDestroyIndirectCommandsLayoutNVPtr
src/Vulkan/Extensions/VK_NV_external_memory_capabilities.hs view
@@ -211,6 +211,7 @@ import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceExternalImageFormatPropertiesNV)) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -314,7 +315,7 @@                                                     ("externalHandleType" ::: ExternalMemoryHandleTypeFlagsNV)                                                  -> io (ExternalImageFormatPropertiesNV) getPhysicalDeviceExternalImageFormatPropertiesNV physicalDevice format type' tiling usage flags externalHandleType = liftIO . evalContT $ do-  let vkGetPhysicalDeviceExternalImageFormatPropertiesNVPtr = pVkGetPhysicalDeviceExternalImageFormatPropertiesNV (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceExternalImageFormatPropertiesNVPtr = pVkGetPhysicalDeviceExternalImageFormatPropertiesNV (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   lift $ unless (vkGetPhysicalDeviceExternalImageFormatPropertiesNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceExternalImageFormatPropertiesNV is null" Nothing Nothing   let vkGetPhysicalDeviceExternalImageFormatPropertiesNV' = mkVkGetPhysicalDeviceExternalImageFormatPropertiesNV vkGetPhysicalDeviceExternalImageFormatPropertiesNVPtr
src/Vulkan/Extensions/VK_NV_external_memory_rdma.hs view
@@ -218,6 +218,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetMemoryRemoteAddressNV)) import Vulkan.Core10.Handles (DeviceMemory) import Vulkan.Core10.Handles (Device_T)@@ -278,7 +279,7 @@                             MemoryGetRemoteAddressInfoNV                          -> io (RemoteAddressNV) getMemoryRemoteAddressNV device memoryGetRemoteAddressInfo = liftIO . evalContT $ do-  let vkGetMemoryRemoteAddressNVPtr = pVkGetMemoryRemoteAddressNV (deviceCmds (device :: Device))+  let vkGetMemoryRemoteAddressNVPtr = pVkGetMemoryRemoteAddressNV (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetMemoryRemoteAddressNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetMemoryRemoteAddressNV is null" Nothing Nothing   let vkGetMemoryRemoteAddressNV' = mkVkGetMemoryRemoteAddressNV vkGetMemoryRemoteAddressNVPtr
src/Vulkan/Extensions/VK_NV_external_memory_win32.hs view
@@ -325,6 +325,7 @@ import Control.Monad.Trans.Cont (ContT(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkGetMemoryWin32HandleNV)) import Vulkan.Core10.Handles (DeviceMemory) import Vulkan.Core10.Handles (DeviceMemory(..))@@ -401,7 +402,7 @@                           ExternalMemoryHandleTypeFlagsNV                        -> io (HANDLE) getMemoryWin32HandleNV device memory handleType = liftIO . evalContT $ do-  let vkGetMemoryWin32HandleNVPtr = pVkGetMemoryWin32HandleNV (deviceCmds (device :: Device))+  let vkGetMemoryWin32HandleNVPtr = pVkGetMemoryWin32HandleNV (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetMemoryWin32HandleNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetMemoryWin32HandleNV is null" Nothing Nothing   let vkGetMemoryWin32HandleNV' = mkVkGetMemoryWin32HandleNV vkGetMemoryWin32HandleNVPtr
src/Vulkan/Extensions/VK_NV_fragment_shading_rate_enums.hs view
@@ -248,6 +248,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetFragmentShadingRateEnumNV)) import Vulkan.Extensions.VK_KHR_fragment_shading_rate (FragmentShadingRateCombinerOpKHR)@@ -410,7 +411,7 @@                                    ("combinerOps" ::: (FragmentShadingRateCombinerOpKHR, FragmentShadingRateCombinerOpKHR))                                 -> io () cmdSetFragmentShadingRateEnumNV commandBuffer shadingRate combinerOps = liftIO . evalContT $ do-  let vkCmdSetFragmentShadingRateEnumNVPtr = pVkCmdSetFragmentShadingRateEnumNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetFragmentShadingRateEnumNVPtr = pVkCmdSetFragmentShadingRateEnumNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetFragmentShadingRateEnumNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetFragmentShadingRateEnumNV is null" Nothing Nothing   let vkCmdSetFragmentShadingRateEnumNV' = mkVkCmdSetFragmentShadingRateEnumNV vkCmdSetFragmentShadingRateEnumNVPtr
src/Vulkan/Extensions/VK_NV_mesh_shader.hs view
@@ -306,6 +306,7 @@ import Vulkan.Core10.Handles (Buffer(..)) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdDrawMeshTasksIndirectCountNV)) import Vulkan.Dynamic (DeviceCmds(pVkCmdDrawMeshTasksIndirectNV))@@ -1134,7 +1135,7 @@                       ("firstTask" ::: Word32)                    -> io () cmdDrawMeshTasksNV commandBuffer taskCount firstTask = liftIO $ do-  let vkCmdDrawMeshTasksNVPtr = pVkCmdDrawMeshTasksNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawMeshTasksNVPtr = pVkCmdDrawMeshTasksNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDrawMeshTasksNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawMeshTasksNV is null" Nothing Nothing   let vkCmdDrawMeshTasksNV' = mkVkCmdDrawMeshTasksNV vkCmdDrawMeshTasksNVPtr@@ -2017,7 +2018,7 @@                               ("stride" ::: Word32)                            -> io () cmdDrawMeshTasksIndirectNV commandBuffer buffer offset drawCount stride = liftIO $ do-  let vkCmdDrawMeshTasksIndirectNVPtr = pVkCmdDrawMeshTasksIndirectNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawMeshTasksIndirectNVPtr = pVkCmdDrawMeshTasksIndirectNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDrawMeshTasksIndirectNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawMeshTasksIndirectNV is null" Nothing Nothing   let vkCmdDrawMeshTasksIndirectNV' = mkVkCmdDrawMeshTasksIndirectNV vkCmdDrawMeshTasksIndirectNVPtr@@ -2932,7 +2933,7 @@                                    ("stride" ::: Word32)                                 -> io () cmdDrawMeshTasksIndirectCountNV commandBuffer buffer offset countBuffer countBufferOffset maxDrawCount stride = liftIO $ do-  let vkCmdDrawMeshTasksIndirectCountNVPtr = pVkCmdDrawMeshTasksIndirectCountNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdDrawMeshTasksIndirectCountNVPtr = pVkCmdDrawMeshTasksIndirectCountNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdDrawMeshTasksIndirectCountNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdDrawMeshTasksIndirectCountNV is null" Nothing Nothing   let vkCmdDrawMeshTasksIndirectCountNV' = mkVkCmdDrawMeshTasksIndirectCountNV vkCmdDrawMeshTasksIndirectCountNVPtr
src/Vulkan/Extensions/VK_NV_ray_tracing.hs view
@@ -645,11 +645,13 @@ import Vulkan.CStruct.Extends (Chain) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Extensions.VK_KHR_acceleration_structure (CopyAccelerationStructureModeKHR) import Vulkan.Extensions.VK_KHR_acceleration_structure (CopyAccelerationStructureModeKHR(..)) import Vulkan.Core10.Handles (Device) import Vulkan.Core10.Handles (Device(..))+import Vulkan.Core10.Handles (Device(Device)) import Vulkan.Dynamic (DeviceCmds(pVkBindAccelerationStructureMemoryNV)) import Vulkan.Dynamic (DeviceCmds(pVkCmdBuildAccelerationStructureNV)) import Vulkan.Dynamic (DeviceCmds(pVkCmdCopyAccelerationStructureNV))@@ -839,7 +841,7 @@                      ("shader" ::: Word32)                   -> io () compileDeferredNV device pipeline shader = liftIO $ do-  let vkCompileDeferredNVPtr = pVkCompileDeferredNV (deviceCmds (device :: Device))+  let vkCompileDeferredNVPtr = pVkCompileDeferredNV (case device of Device{deviceCmds} -> deviceCmds)   unless (vkCompileDeferredNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCompileDeferredNV is null" Nothing Nothing   let vkCompileDeferredNV' = mkVkCompileDeferredNV vkCompileDeferredNVPtr@@ -918,7 +920,7 @@                                  ("allocator" ::: Maybe AllocationCallbacks)                               -> io (AccelerationStructureNV) createAccelerationStructureNV device createInfo allocator = liftIO . evalContT $ do-  let vkCreateAccelerationStructureNVPtr = pVkCreateAccelerationStructureNV (deviceCmds (device :: Device))+  let vkCreateAccelerationStructureNVPtr = pVkCreateAccelerationStructureNV (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateAccelerationStructureNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateAccelerationStructureNV is null" Nothing Nothing   let vkCreateAccelerationStructureNV' = mkVkCreateAccelerationStructureNV vkCreateAccelerationStructureNVPtr@@ -1015,7 +1017,7 @@                                   ("allocator" ::: Maybe AllocationCallbacks)                                -> io () destroyAccelerationStructureNV device accelerationStructure allocator = liftIO . evalContT $ do-  let vkDestroyAccelerationStructureNVPtr = pVkDestroyAccelerationStructureNV (deviceCmds (device :: Device))+  let vkDestroyAccelerationStructureNVPtr = pVkDestroyAccelerationStructureNV (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkDestroyAccelerationStructureNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkDestroyAccelerationStructureNV is null" Nothing Nothing   let vkDestroyAccelerationStructureNV' = mkVkDestroyAccelerationStructureNV vkDestroyAccelerationStructureNVPtr@@ -1062,7 +1064,7 @@                                                 AccelerationStructureMemoryRequirementsInfoNV                                              -> io (MemoryRequirements2KHR a) getAccelerationStructureMemoryRequirementsNV device info = liftIO . evalContT $ do-  let vkGetAccelerationStructureMemoryRequirementsNVPtr = pVkGetAccelerationStructureMemoryRequirementsNV (deviceCmds (device :: Device))+  let vkGetAccelerationStructureMemoryRequirementsNVPtr = pVkGetAccelerationStructureMemoryRequirementsNV (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkGetAccelerationStructureMemoryRequirementsNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetAccelerationStructureMemoryRequirementsNV is null" Nothing Nothing   let vkGetAccelerationStructureMemoryRequirementsNV' = mkVkGetAccelerationStructureMemoryRequirementsNV vkGetAccelerationStructureMemoryRequirementsNVPtr@@ -1116,7 +1118,7 @@                                      ("bindInfos" ::: Vector BindAccelerationStructureMemoryInfoNV)                                   -> io () bindAccelerationStructureMemoryNV device bindInfos = liftIO . evalContT $ do-  let vkBindAccelerationStructureMemoryNVPtr = pVkBindAccelerationStructureMemoryNV (deviceCmds (device :: Device))+  let vkBindAccelerationStructureMemoryNVPtr = pVkBindAccelerationStructureMemoryNV (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkBindAccelerationStructureMemoryNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkBindAccelerationStructureMemoryNV is null" Nothing Nothing   let vkBindAccelerationStructureMemoryNV' = mkVkBindAccelerationStructureMemoryNV vkBindAccelerationStructureMemoryNVPtr@@ -1246,7 +1248,7 @@                                   CopyAccelerationStructureModeKHR                                -> io () cmdCopyAccelerationStructureNV commandBuffer dst src mode = liftIO $ do-  let vkCmdCopyAccelerationStructureNVPtr = pVkCmdCopyAccelerationStructureNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdCopyAccelerationStructureNVPtr = pVkCmdCopyAccelerationStructureNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdCopyAccelerationStructureNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdCopyAccelerationStructureNV is null" Nothing Nothing   let vkCmdCopyAccelerationStructureNV' = mkVkCmdCopyAccelerationStructureNV vkCmdCopyAccelerationStructureNVPtr@@ -1388,7 +1390,7 @@                                               ("firstQuery" ::: Word32)                                            -> io () cmdWriteAccelerationStructuresPropertiesNV commandBuffer accelerationStructures queryType queryPool firstQuery = liftIO . evalContT $ do-  let vkCmdWriteAccelerationStructuresPropertiesNVPtr = pVkCmdWriteAccelerationStructuresPropertiesNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdWriteAccelerationStructuresPropertiesNVPtr = pVkCmdWriteAccelerationStructuresPropertiesNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdWriteAccelerationStructuresPropertiesNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdWriteAccelerationStructuresPropertiesNV is null" Nothing Nothing   let vkCmdWriteAccelerationStructuresPropertiesNV' = mkVkCmdWriteAccelerationStructuresPropertiesNV vkCmdWriteAccelerationStructuresPropertiesNVPtr@@ -1602,7 +1604,7 @@                                    ("scratchOffset" ::: DeviceSize)                                 -> io () cmdBuildAccelerationStructureNV commandBuffer info instanceData instanceOffset update dst src scratch scratchOffset = liftIO . evalContT $ do-  let vkCmdBuildAccelerationStructureNVPtr = pVkCmdBuildAccelerationStructureNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBuildAccelerationStructureNVPtr = pVkCmdBuildAccelerationStructureNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdBuildAccelerationStructureNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBuildAccelerationStructureNV is null" Nothing Nothing   let vkCmdBuildAccelerationStructureNV' = mkVkCmdBuildAccelerationStructureNV vkCmdBuildAccelerationStructureNVPtr@@ -2086,7 +2088,7 @@                   ("depth" ::: Word32)                -> io () cmdTraceRaysNV commandBuffer raygenShaderBindingTableBuffer raygenShaderBindingOffset missShaderBindingTableBuffer missShaderBindingOffset missShaderBindingStride hitShaderBindingTableBuffer hitShaderBindingOffset hitShaderBindingStride callableShaderBindingTableBuffer callableShaderBindingOffset callableShaderBindingStride width height depth = liftIO $ do-  let vkCmdTraceRaysNVPtr = pVkCmdTraceRaysNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdTraceRaysNVPtr = pVkCmdTraceRaysNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdTraceRaysNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdTraceRaysNV is null" Nothing Nothing   let vkCmdTraceRaysNV' = mkVkCmdTraceRaysNV vkCmdTraceRaysNVPtr@@ -2160,7 +2162,7 @@                                     ("data" ::: Ptr ())                                  -> io () getAccelerationStructureHandleNV device accelerationStructure dataSize data' = liftIO $ do-  let vkGetAccelerationStructureHandleNVPtr = pVkGetAccelerationStructureHandleNV (deviceCmds (device :: Device))+  let vkGetAccelerationStructureHandleNVPtr = pVkGetAccelerationStructureHandleNV (case device of Device{deviceCmds} -> deviceCmds)   unless (vkGetAccelerationStructureHandleNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetAccelerationStructureHandleNV is null" Nothing Nothing   let vkGetAccelerationStructureHandleNV' = mkVkGetAccelerationStructureHandleNV vkGetAccelerationStructureHandleNVPtr@@ -2276,7 +2278,7 @@                                ("allocator" ::: Maybe AllocationCallbacks)                             -> io (Result, ("pipelines" ::: Vector Pipeline)) createRayTracingPipelinesNV device pipelineCache createInfos allocator = liftIO . evalContT $ do-  let vkCreateRayTracingPipelinesNVPtr = pVkCreateRayTracingPipelinesNV (deviceCmds (device :: Device))+  let vkCreateRayTracingPipelinesNVPtr = pVkCreateRayTracingPipelinesNV (case device of Device{deviceCmds} -> deviceCmds)   lift $ unless (vkCreateRayTracingPipelinesNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateRayTracingPipelinesNV is null" Nothing Nothing   let vkCreateRayTracingPipelinesNV' = mkVkCreateRayTracingPipelinesNV vkCreateRayTracingPipelinesNVPtr@@ -2794,7 +2796,7 @@  instance Extensible RayTracingPipelineCreateInfoNV where   extensibleTypeName = "RayTracingPipelineCreateInfoNV"-  setNext x next = x{next = next}+  setNext RayTracingPipelineCreateInfoNV{..} next' = RayTracingPipelineCreateInfoNV{next = next', ..}   getNext RayTracingPipelineCreateInfoNV{..} = next   extends :: forall e b proxy. Typeable e => proxy e -> (Extends RayTracingPipelineCreateInfoNV e => b) -> Maybe b   extends _ f
src/Vulkan/Extensions/VK_NV_scissor_exclusive.hs view
@@ -171,6 +171,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetExclusiveScissorNV)) import Vulkan.Core10.FundamentalTypes (Rect2D)@@ -295,7 +296,7 @@                             ("exclusiveScissors" ::: Vector Rect2D)                          -> io () cmdSetExclusiveScissorNV commandBuffer firstExclusiveScissor exclusiveScissors = liftIO . evalContT $ do-  let vkCmdSetExclusiveScissorNVPtr = pVkCmdSetExclusiveScissorNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetExclusiveScissorNVPtr = pVkCmdSetExclusiveScissorNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetExclusiveScissorNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetExclusiveScissorNV is null" Nothing Nothing   let vkCmdSetExclusiveScissorNV' = mkVkCmdSetExclusiveScissorNV vkCmdSetExclusiveScissorNVPtr
src/Vulkan/Extensions/VK_NV_shading_rate_image.hs view
@@ -362,6 +362,7 @@ import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.Handles (CommandBuffer) import Vulkan.Core10.Handles (CommandBuffer(..))+import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer)) import Vulkan.Core10.Handles (CommandBuffer_T) import Vulkan.Dynamic (DeviceCmds(pVkCmdBindShadingRateImageNV)) import Vulkan.Dynamic (DeviceCmds(pVkCmdSetCoarseSampleOrderNV))@@ -492,7 +493,7 @@                              ImageLayout                           -> io () cmdBindShadingRateImageNV commandBuffer imageView imageLayout = liftIO $ do-  let vkCmdBindShadingRateImageNVPtr = pVkCmdBindShadingRateImageNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdBindShadingRateImageNVPtr = pVkCmdBindShadingRateImageNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   unless (vkCmdBindShadingRateImageNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdBindShadingRateImageNV is null" Nothing Nothing   let vkCmdBindShadingRateImageNV' = mkVkCmdBindShadingRateImageNV vkCmdBindShadingRateImageNVPtr@@ -599,7 +600,7 @@                                       ("shadingRatePalettes" ::: Vector ShadingRatePaletteNV)                                    -> io () cmdSetViewportShadingRatePaletteNV commandBuffer firstViewport shadingRatePalettes = liftIO . evalContT $ do-  let vkCmdSetViewportShadingRatePaletteNVPtr = pVkCmdSetViewportShadingRatePaletteNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetViewportShadingRatePaletteNVPtr = pVkCmdSetViewportShadingRatePaletteNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetViewportShadingRatePaletteNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetViewportShadingRatePaletteNV is null" Nothing Nothing   let vkCmdSetViewportShadingRatePaletteNV' = mkVkCmdSetViewportShadingRatePaletteNV vkCmdSetViewportShadingRatePaletteNVPtr@@ -705,7 +706,7 @@                              ("customSampleOrders" ::: Vector CoarseSampleOrderCustomNV)                           -> io () cmdSetCoarseSampleOrderNV commandBuffer sampleOrderType customSampleOrders = liftIO . evalContT $ do-  let vkCmdSetCoarseSampleOrderNVPtr = pVkCmdSetCoarseSampleOrderNV (deviceCmds (commandBuffer :: CommandBuffer))+  let vkCmdSetCoarseSampleOrderNVPtr = pVkCmdSetCoarseSampleOrderNV (case commandBuffer of CommandBuffer{deviceCmds} -> deviceCmds)   lift $ unless (vkCmdSetCoarseSampleOrderNVPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCmdSetCoarseSampleOrderNV is null" Nothing Nothing   let vkCmdSetCoarseSampleOrderNV' = mkVkCmdSetCoarseSampleOrderNV vkCmdSetCoarseSampleOrderNVPtr
src/Vulkan/Extensions/VK_QNX_screen_surface.hs view
@@ -155,11 +155,13 @@ import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (Instance(..))+import Vulkan.Core10.Handles (Instance(Instance)) import Vulkan.Dynamic (InstanceCmds(pVkCreateScreenSurfaceQNX)) import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceScreenPresentationSupportQNX)) import Vulkan.Core10.Handles (Instance_T) import Vulkan.Core10.Handles (PhysicalDevice) import Vulkan.Core10.Handles (PhysicalDevice(..))+import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice)) import Vulkan.Core10.Handles (PhysicalDevice_T) import Vulkan.Core10.Enums.Result (Result) import Vulkan.Core10.Enums.Result (Result(..))@@ -228,7 +230,7 @@                           ("allocator" ::: Maybe AllocationCallbacks)                        -> io (SurfaceKHR) createScreenSurfaceQNX instance' createInfo allocator = liftIO . evalContT $ do-  let vkCreateScreenSurfaceQNXPtr = pVkCreateScreenSurfaceQNX (instanceCmds (instance' :: Instance))+  let vkCreateScreenSurfaceQNXPtr = pVkCreateScreenSurfaceQNX (case instance' of Instance{instanceCmds} -> instanceCmds)   lift $ unless (vkCreateScreenSurfaceQNXPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkCreateScreenSurfaceQNX is null" Nothing Nothing   let vkCreateScreenSurfaceQNX' = mkVkCreateScreenSurfaceQNX vkCreateScreenSurfaceQNXPtr@@ -287,7 +289,7 @@                                                  (Ptr Screen_window)                                               -> io (Bool) getPhysicalDeviceScreenPresentationSupportQNX physicalDevice queueFamilyIndex window = liftIO $ do-  let vkGetPhysicalDeviceScreenPresentationSupportQNXPtr = pVkGetPhysicalDeviceScreenPresentationSupportQNX (instanceCmds (physicalDevice :: PhysicalDevice))+  let vkGetPhysicalDeviceScreenPresentationSupportQNXPtr = pVkGetPhysicalDeviceScreenPresentationSupportQNX (case physicalDevice of PhysicalDevice{instanceCmds} -> instanceCmds)   unless (vkGetPhysicalDeviceScreenPresentationSupportQNXPtr /= nullFunPtr) $     throwIO $ IOError Nothing InvalidArgument "" "The function pointer for vkGetPhysicalDeviceScreenPresentationSupportQNX is null" Nothing Nothing   let vkGetPhysicalDeviceScreenPresentationSupportQNX' = mkVkGetPhysicalDeviceScreenPresentationSupportQNX vkGetPhysicalDeviceScreenPresentationSupportQNXPtr
src/Vulkan/SPIRVRequirements.hs view
@@ -14,65 +14,37 @@ import Data.ByteString (ByteString) import Vulkan.Core10.Handles (Instance) import Vulkan.Core10.Handles (PhysicalDevice)-import Vulkan.Core11.Promoted_From_VK_KHR_16bit_storage (PhysicalDevice16BitStorageFeatures) import Vulkan.Core11.Promoted_From_VK_KHR_16bit_storage (PhysicalDevice16BitStorageFeatures(..))-import Vulkan.Extensions.VK_EXT_buffer_device_address (PhysicalDeviceBufferDeviceAddressFeaturesEXT) import Vulkan.Extensions.VK_EXT_buffer_device_address (PhysicalDeviceBufferDeviceAddressFeaturesEXT(..))-import Vulkan.Extensions.VK_NV_compute_shader_derivatives (PhysicalDeviceComputeShaderDerivativesFeaturesNV) import Vulkan.Extensions.VK_NV_compute_shader_derivatives (PhysicalDeviceComputeShaderDerivativesFeaturesNV(..))-import Vulkan.Extensions.VK_NV_cooperative_matrix (PhysicalDeviceCooperativeMatrixFeaturesNV) import Vulkan.Extensions.VK_NV_cooperative_matrix (PhysicalDeviceCooperativeMatrixFeaturesNV(..))-import Vulkan.Core10.DeviceInitialization (PhysicalDeviceFeatures) import Vulkan.Core10.DeviceInitialization (PhysicalDeviceFeatures(..))-import Vulkan.Extensions.VK_EXT_fragment_density_map (PhysicalDeviceFragmentDensityMapFeaturesEXT) import Vulkan.Extensions.VK_EXT_fragment_density_map (PhysicalDeviceFragmentDensityMapFeaturesEXT(..))-import Vulkan.Extensions.VK_NV_fragment_shader_barycentric (PhysicalDeviceFragmentShaderBarycentricFeaturesNV) import Vulkan.Extensions.VK_NV_fragment_shader_barycentric (PhysicalDeviceFragmentShaderBarycentricFeaturesNV(..))-import Vulkan.Extensions.VK_EXT_fragment_shader_interlock (PhysicalDeviceFragmentShaderInterlockFeaturesEXT) import Vulkan.Extensions.VK_EXT_fragment_shader_interlock (PhysicalDeviceFragmentShaderInterlockFeaturesEXT(..))-import Vulkan.Extensions.VK_KHR_fragment_shading_rate (PhysicalDeviceFragmentShadingRateFeaturesKHR) import Vulkan.Extensions.VK_KHR_fragment_shading_rate (PhysicalDeviceFragmentShadingRateFeaturesKHR(..))-import Vulkan.Core11.Promoted_From_VK_KHR_multiview (PhysicalDeviceMultiviewFeatures) import Vulkan.Core11.Promoted_From_VK_KHR_multiview (PhysicalDeviceMultiviewFeatures(..))-import Vulkan.Extensions.VK_KHR_ray_query (PhysicalDeviceRayQueryFeaturesKHR) import Vulkan.Extensions.VK_KHR_ray_query (PhysicalDeviceRayQueryFeaturesKHR(..))-import Vulkan.Extensions.VK_NV_ray_tracing_motion_blur (PhysicalDeviceRayTracingMotionBlurFeaturesNV) import Vulkan.Extensions.VK_NV_ray_tracing_motion_blur (PhysicalDeviceRayTracingMotionBlurFeaturesNV(..))-import Vulkan.Extensions.VK_KHR_ray_tracing_pipeline (PhysicalDeviceRayTracingPipelineFeaturesKHR) import Vulkan.Extensions.VK_KHR_ray_tracing_pipeline (PhysicalDeviceRayTracingPipelineFeaturesKHR(..))-import Vulkan.Extensions.VK_EXT_shader_atomic_float2 (PhysicalDeviceShaderAtomicFloat2FeaturesEXT) import Vulkan.Extensions.VK_EXT_shader_atomic_float2 (PhysicalDeviceShaderAtomicFloat2FeaturesEXT(..))-import Vulkan.Extensions.VK_EXT_shader_atomic_float (PhysicalDeviceShaderAtomicFloatFeaturesEXT) import Vulkan.Extensions.VK_EXT_shader_atomic_float (PhysicalDeviceShaderAtomicFloatFeaturesEXT(..))-import Vulkan.Extensions.VK_EXT_shader_demote_to_helper_invocation (PhysicalDeviceShaderDemoteToHelperInvocationFeaturesEXT) import Vulkan.Extensions.VK_EXT_shader_demote_to_helper_invocation (PhysicalDeviceShaderDemoteToHelperInvocationFeaturesEXT(..))-import Vulkan.Core11.Promoted_From_VK_KHR_shader_draw_parameters (PhysicalDeviceShaderDrawParametersFeatures) import Vulkan.Core11.Promoted_From_VK_KHR_shader_draw_parameters (PhysicalDeviceShaderDrawParametersFeatures(..))-import Vulkan.Extensions.VK_EXT_shader_image_atomic_int64 (PhysicalDeviceShaderImageAtomicInt64FeaturesEXT) import Vulkan.Extensions.VK_EXT_shader_image_atomic_int64 (PhysicalDeviceShaderImageAtomicInt64FeaturesEXT(..))-import Vulkan.Extensions.VK_NV_shader_image_footprint (PhysicalDeviceShaderImageFootprintFeaturesNV) import Vulkan.Extensions.VK_NV_shader_image_footprint (PhysicalDeviceShaderImageFootprintFeaturesNV(..))-import Vulkan.Extensions.VK_KHR_shader_integer_dot_product (PhysicalDeviceShaderIntegerDotProductFeaturesKHR) import Vulkan.Extensions.VK_KHR_shader_integer_dot_product (PhysicalDeviceShaderIntegerDotProductFeaturesKHR(..))-import Vulkan.Extensions.VK_INTEL_shader_integer_functions2 (PhysicalDeviceShaderIntegerFunctions2FeaturesINTEL) import Vulkan.Extensions.VK_INTEL_shader_integer_functions2 (PhysicalDeviceShaderIntegerFunctions2FeaturesINTEL(..))-import Vulkan.Extensions.VK_NV_shader_sm_builtins (PhysicalDeviceShaderSMBuiltinsFeaturesNV) import Vulkan.Extensions.VK_NV_shader_sm_builtins (PhysicalDeviceShaderSMBuiltinsFeaturesNV(..))-import Vulkan.Extensions.VK_NV_shading_rate_image (PhysicalDeviceShadingRateImageFeaturesNV) import Vulkan.Extensions.VK_NV_shading_rate_image (PhysicalDeviceShadingRateImageFeaturesNV(..))-import Vulkan.Extensions.VK_EXT_transform_feedback (PhysicalDeviceTransformFeedbackFeaturesEXT) import Vulkan.Extensions.VK_EXT_transform_feedback (PhysicalDeviceTransformFeedbackFeaturesEXT(..))-import Vulkan.Core11.Promoted_From_VK_KHR_variable_pointers (PhysicalDeviceVariablePointersFeatures) import Vulkan.Core11.Promoted_From_VK_KHR_variable_pointers (PhysicalDeviceVariablePointersFeatures(..))-import Vulkan.Core12 (PhysicalDeviceVulkan11Features) import Vulkan.Core12 (PhysicalDeviceVulkan11Features(..)) import Vulkan.Core12 (PhysicalDeviceVulkan11Properties) import Vulkan.Core12 (PhysicalDeviceVulkan11Properties(..))-import Vulkan.Core12 (PhysicalDeviceVulkan12Features) import Vulkan.Core12 (PhysicalDeviceVulkan12Features(..)) import Vulkan.Core12 (PhysicalDeviceVulkan12Properties) import Vulkan.Core12 (PhysicalDeviceVulkan12Properties(..))-import Vulkan.Extensions.VK_KHR_workgroup_memory_explicit_layout (PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR) import Vulkan.Extensions.VK_KHR_workgroup_memory_explicit_layout (PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR(..)) import Vulkan.Extensions.VK_AMD_gcn_shader (pattern AMD_GCN_SHADER_EXTENSION_NAME) import Vulkan.Extensions.VK_AMD_gpu_shader_half_float (pattern AMD_GPU_SHADER_HALF_FLOAT_EXTENSION_NAME)@@ -714,34 +686,38 @@     (,) [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0] [RequireDeviceVersion $ MAKE_API_VERSION 1 0 0]   "Geometry" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "geometryShader"-                           , checkFeature  = geometryShader :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { geometryShader = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "geometryShader"+      , checkFeature  = \PhysicalDeviceFeatures { geometryShader } -> geometryShader+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { geometryShader = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "Tessellation" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "tessellationShader"-                           , checkFeature  = tessellationShader :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { tessellationShader = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "tessellationShader"+      , checkFeature  = \PhysicalDeviceFeatures { tessellationShader } -> tessellationShader+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { tessellationShader = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "Float64" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "shaderFloat64"-                           , checkFeature  = shaderFloat64 :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { shaderFloat64 = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderFloat64"+      , checkFeature  = \PhysicalDeviceFeatures { shaderFloat64 } -> shaderFloat64+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { shaderFloat64 = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "Int64" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "shaderInt64"-                           , checkFeature  = shaderInt64 :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { shaderInt64 = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderInt64"+      , checkFeature  = \PhysicalDeviceFeatures { shaderInt64 } -> shaderInt64+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { shaderInt64 = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "Int64Atomics" -> (,)@@ -753,8 +729,9 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderBufferInt64Atomics"-      , checkFeature  = shaderBufferInt64Atomics :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f -> f { shaderBufferInt64Atomics = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderBufferInt64Atomics } -> shaderBufferInt64Atomics+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderBufferInt64Atomics = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -770,8 +747,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderBufferFloat16AtomicAdd"-      , checkFeature  = shaderBufferFloat16AtomicAdd :: PhysicalDeviceShaderAtomicFloat2FeaturesEXT -> Bool-      , enableFeature = \f -> f { shaderBufferFloat16AtomicAdd = True } :: PhysicalDeviceShaderAtomicFloat2FeaturesEXT+      , checkFeature  = \PhysicalDeviceShaderAtomicFloat2FeaturesEXT { shaderBufferFloat16AtomicAdd } ->+                          shaderBufferFloat16AtomicAdd+      , enableFeature = \PhysicalDeviceShaderAtomicFloat2FeaturesEXT {..} ->+                          PhysicalDeviceShaderAtomicFloat2FeaturesEXT { shaderBufferFloat16AtomicAdd = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_SHADER_ATOMIC_FLOAT_2_EXTENSION_NAME@@ -790,8 +769,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderBufferFloat32AtomicAdd"-      , checkFeature  = shaderBufferFloat32AtomicAdd :: PhysicalDeviceShaderAtomicFloatFeaturesEXT -> Bool-      , enableFeature = \f -> f { shaderBufferFloat32AtomicAdd = True } :: PhysicalDeviceShaderAtomicFloatFeaturesEXT+      , checkFeature  = \PhysicalDeviceShaderAtomicFloatFeaturesEXT { shaderBufferFloat32AtomicAdd } ->+                          shaderBufferFloat32AtomicAdd+      , enableFeature = \PhysicalDeviceShaderAtomicFloatFeaturesEXT {..} ->+                          PhysicalDeviceShaderAtomicFloatFeaturesEXT { shaderBufferFloat32AtomicAdd = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_SHADER_ATOMIC_FLOAT_EXTENSION_NAME@@ -806,8 +787,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderBufferFloat64AtomicAdd"-      , checkFeature  = shaderBufferFloat64AtomicAdd :: PhysicalDeviceShaderAtomicFloatFeaturesEXT -> Bool-      , enableFeature = \f -> f { shaderBufferFloat64AtomicAdd = True } :: PhysicalDeviceShaderAtomicFloatFeaturesEXT+      , checkFeature  = \PhysicalDeviceShaderAtomicFloatFeaturesEXT { shaderBufferFloat64AtomicAdd } ->+                          shaderBufferFloat64AtomicAdd+      , enableFeature = \PhysicalDeviceShaderAtomicFloatFeaturesEXT {..} ->+                          PhysicalDeviceShaderAtomicFloatFeaturesEXT { shaderBufferFloat64AtomicAdd = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_SHADER_ATOMIC_FLOAT_EXTENSION_NAME@@ -822,9 +805,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderBufferFloat16AtomicMinMax"-      , checkFeature  = shaderBufferFloat16AtomicMinMax :: PhysicalDeviceShaderAtomicFloat2FeaturesEXT -> Bool-      , enableFeature = \f ->-                          f { shaderBufferFloat16AtomicMinMax = True } :: PhysicalDeviceShaderAtomicFloat2FeaturesEXT+      , checkFeature  = \PhysicalDeviceShaderAtomicFloat2FeaturesEXT { shaderBufferFloat16AtomicMinMax } ->+                          shaderBufferFloat16AtomicMinMax+      , enableFeature = \PhysicalDeviceShaderAtomicFloat2FeaturesEXT {..} ->+                          PhysicalDeviceShaderAtomicFloat2FeaturesEXT { shaderBufferFloat16AtomicMinMax = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_SHADER_ATOMIC_FLOAT_2_EXTENSION_NAME@@ -843,9 +827,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderBufferFloat32AtomicMinMax"-      , checkFeature  = shaderBufferFloat32AtomicMinMax :: PhysicalDeviceShaderAtomicFloat2FeaturesEXT -> Bool-      , enableFeature = \f ->-                          f { shaderBufferFloat32AtomicMinMax = True } :: PhysicalDeviceShaderAtomicFloat2FeaturesEXT+      , checkFeature  = \PhysicalDeviceShaderAtomicFloat2FeaturesEXT { shaderBufferFloat32AtomicMinMax } ->+                          shaderBufferFloat32AtomicMinMax+      , enableFeature = \PhysicalDeviceShaderAtomicFloat2FeaturesEXT {..} ->+                          PhysicalDeviceShaderAtomicFloat2FeaturesEXT { shaderBufferFloat32AtomicMinMax = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_SHADER_ATOMIC_FLOAT_2_EXTENSION_NAME@@ -864,9 +849,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderBufferFloat64AtomicMinMax"-      , checkFeature  = shaderBufferFloat64AtomicMinMax :: PhysicalDeviceShaderAtomicFloat2FeaturesEXT -> Bool-      , enableFeature = \f ->-                          f { shaderBufferFloat64AtomicMinMax = True } :: PhysicalDeviceShaderAtomicFloat2FeaturesEXT+      , checkFeature  = \PhysicalDeviceShaderAtomicFloat2FeaturesEXT { shaderBufferFloat64AtomicMinMax } ->+                          shaderBufferFloat64AtomicMinMax+      , enableFeature = \PhysicalDeviceShaderAtomicFloat2FeaturesEXT {..} ->+                          PhysicalDeviceShaderAtomicFloat2FeaturesEXT { shaderBufferFloat64AtomicMinMax = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_SHADER_ATOMIC_FLOAT_2_EXTENSION_NAME@@ -885,8 +871,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderImageInt64Atomics"-      , checkFeature  = shaderImageInt64Atomics :: PhysicalDeviceShaderImageAtomicInt64FeaturesEXT -> Bool-      , enableFeature = \f -> f { shaderImageInt64Atomics = True } :: PhysicalDeviceShaderImageAtomicInt64FeaturesEXT+      , checkFeature  = \PhysicalDeviceShaderImageAtomicInt64FeaturesEXT { shaderImageInt64Atomics } ->+                          shaderImageInt64Atomics+      , enableFeature = \PhysicalDeviceShaderImageAtomicInt64FeaturesEXT {..} ->+                          PhysicalDeviceShaderImageAtomicInt64FeaturesEXT { shaderImageInt64Atomics = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_SHADER_IMAGE_ATOMIC_INT64_EXTENSION_NAME@@ -895,18 +883,21 @@     ]   "Int16" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "shaderInt16"-                           , checkFeature  = shaderInt16 :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { shaderInt16 = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderInt16"+      , checkFeature  = \PhysicalDeviceFeatures { shaderInt16 } -> shaderInt16+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { shaderInt16 = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "TessellationPointSize" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]     [ RequireDeviceFeature       { featureName   = "shaderTessellationAndGeometryPointSize"-      , checkFeature  = shaderTessellationAndGeometryPointSize :: PhysicalDeviceFeatures -> Bool-      , enableFeature = \f -> f { shaderTessellationAndGeometryPointSize = True } :: PhysicalDeviceFeatures+      , checkFeature  = \PhysicalDeviceFeatures { shaderTessellationAndGeometryPointSize } ->+                          shaderTessellationAndGeometryPointSize+      , enableFeature = \PhysicalDeviceFeatures {..} ->+                          PhysicalDeviceFeatures { shaderTessellationAndGeometryPointSize = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]@@ -914,33 +905,40 @@     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]     [ RequireDeviceFeature       { featureName   = "shaderTessellationAndGeometryPointSize"-      , checkFeature  = shaderTessellationAndGeometryPointSize :: PhysicalDeviceFeatures -> Bool-      , enableFeature = \f -> f { shaderTessellationAndGeometryPointSize = True } :: PhysicalDeviceFeatures+      , checkFeature  = \PhysicalDeviceFeatures { shaderTessellationAndGeometryPointSize } ->+                          shaderTessellationAndGeometryPointSize+      , enableFeature = \PhysicalDeviceFeatures {..} ->+                          PhysicalDeviceFeatures { shaderTessellationAndGeometryPointSize = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "ImageGatherExtended" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "shaderImageGatherExtended"-                           , checkFeature  = shaderImageGatherExtended :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { shaderImageGatherExtended = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderImageGatherExtended"+      , checkFeature  = \PhysicalDeviceFeatures { shaderImageGatherExtended } -> shaderImageGatherExtended+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { shaderImageGatherExtended = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "StorageImageMultisample" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "shaderStorageImageMultisample"-                           , checkFeature  = shaderStorageImageMultisample :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { shaderStorageImageMultisample = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderStorageImageMultisample"+      , checkFeature  = \PhysicalDeviceFeatures { shaderStorageImageMultisample } -> shaderStorageImageMultisample+      , enableFeature = \PhysicalDeviceFeatures {..} ->+                          PhysicalDeviceFeatures { shaderStorageImageMultisample = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "UniformBufferArrayDynamicIndexing" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]     [ RequireDeviceFeature       { featureName   = "shaderUniformBufferArrayDynamicIndexing"-      , checkFeature  = shaderUniformBufferArrayDynamicIndexing :: PhysicalDeviceFeatures -> Bool-      , enableFeature = \f -> f { shaderUniformBufferArrayDynamicIndexing = True } :: PhysicalDeviceFeatures+      , checkFeature  = \PhysicalDeviceFeatures { shaderUniformBufferArrayDynamicIndexing } ->+                          shaderUniformBufferArrayDynamicIndexing+      , enableFeature = \PhysicalDeviceFeatures {..} ->+                          PhysicalDeviceFeatures { shaderUniformBufferArrayDynamicIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]@@ -948,8 +946,10 @@     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]     [ RequireDeviceFeature       { featureName   = "shaderSampledImageArrayDynamicIndexing"-      , checkFeature  = shaderSampledImageArrayDynamicIndexing :: PhysicalDeviceFeatures -> Bool-      , enableFeature = \f -> f { shaderSampledImageArrayDynamicIndexing = True } :: PhysicalDeviceFeatures+      , checkFeature  = \PhysicalDeviceFeatures { shaderSampledImageArrayDynamicIndexing } ->+                          shaderSampledImageArrayDynamicIndexing+      , enableFeature = \PhysicalDeviceFeatures {..} ->+                          PhysicalDeviceFeatures { shaderSampledImageArrayDynamicIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]@@ -957,8 +957,10 @@     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]     [ RequireDeviceFeature       { featureName   = "shaderStorageBufferArrayDynamicIndexing"-      , checkFeature  = shaderStorageBufferArrayDynamicIndexing :: PhysicalDeviceFeatures -> Bool-      , enableFeature = \f -> f { shaderStorageBufferArrayDynamicIndexing = True } :: PhysicalDeviceFeatures+      , checkFeature  = \PhysicalDeviceFeatures { shaderStorageBufferArrayDynamicIndexing } ->+                          shaderStorageBufferArrayDynamicIndexing+      , enableFeature = \PhysicalDeviceFeatures {..} ->+                          PhysicalDeviceFeatures { shaderStorageBufferArrayDynamicIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]@@ -966,91 +968,105 @@     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]     [ RequireDeviceFeature       { featureName   = "shaderStorageImageArrayDynamicIndexing"-      , checkFeature  = shaderStorageImageArrayDynamicIndexing :: PhysicalDeviceFeatures -> Bool-      , enableFeature = \f -> f { shaderStorageImageArrayDynamicIndexing = True } :: PhysicalDeviceFeatures+      , checkFeature  = \PhysicalDeviceFeatures { shaderStorageImageArrayDynamicIndexing } ->+                          shaderStorageImageArrayDynamicIndexing+      , enableFeature = \PhysicalDeviceFeatures {..} ->+                          PhysicalDeviceFeatures { shaderStorageImageArrayDynamicIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "ClipDistance" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "shaderClipDistance"-                           , checkFeature  = shaderClipDistance :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { shaderClipDistance = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderClipDistance"+      , checkFeature  = \PhysicalDeviceFeatures { shaderClipDistance } -> shaderClipDistance+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { shaderClipDistance = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "CullDistance" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "shaderCullDistance"-                           , checkFeature  = shaderCullDistance :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { shaderCullDistance = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderCullDistance"+      , checkFeature  = \PhysicalDeviceFeatures { shaderCullDistance } -> shaderCullDistance+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { shaderCullDistance = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "ImageCubeArray" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "imageCubeArray"-                           , checkFeature  = imageCubeArray :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { imageCubeArray = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "imageCubeArray"+      , checkFeature  = \PhysicalDeviceFeatures { imageCubeArray } -> imageCubeArray+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { imageCubeArray = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "SampleRateShading" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "sampleRateShading"-                           , checkFeature  = sampleRateShading :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { sampleRateShading = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "sampleRateShading"+      , checkFeature  = \PhysicalDeviceFeatures { sampleRateShading } -> sampleRateShading+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { sampleRateShading = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "SparseResidency" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "shaderResourceResidency"-                           , checkFeature  = shaderResourceResidency :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { shaderResourceResidency = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderResourceResidency"+      , checkFeature  = \PhysicalDeviceFeatures { shaderResourceResidency } -> shaderResourceResidency+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { shaderResourceResidency = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "MinLod" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "shaderResourceMinLod"-                           , checkFeature  = shaderResourceMinLod :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { shaderResourceMinLod = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderResourceMinLod"+      , checkFeature  = \PhysicalDeviceFeatures { shaderResourceMinLod } -> shaderResourceMinLod+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { shaderResourceMinLod = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "SampledCubeArray" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "imageCubeArray"-                           , checkFeature  = imageCubeArray :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { imageCubeArray = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "imageCubeArray"+      , checkFeature  = \PhysicalDeviceFeatures { imageCubeArray } -> imageCubeArray+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { imageCubeArray = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "ImageMSArray" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "shaderStorageImageMultisample"-                           , checkFeature  = shaderStorageImageMultisample :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { shaderStorageImageMultisample = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderStorageImageMultisample"+      , checkFeature  = \PhysicalDeviceFeatures { shaderStorageImageMultisample } -> shaderStorageImageMultisample+      , enableFeature = \PhysicalDeviceFeatures {..} ->+                          PhysicalDeviceFeatures { shaderStorageImageMultisample = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "StorageImageExtendedFormats" ->     (,) [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0] [RequireDeviceVersion $ MAKE_API_VERSION 1 0 0]   "InterpolationFunction" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "sampleRateShading"-                           , checkFeature  = sampleRateShading :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { sampleRateShading = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "sampleRateShading"+      , checkFeature  = \PhysicalDeviceFeatures { sampleRateShading } -> sampleRateShading+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { sampleRateShading = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "StorageImageReadWithoutFormat" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]     [ RequireDeviceFeature       { featureName   = "shaderStorageImageReadWithoutFormat"-      , checkFeature  = shaderStorageImageReadWithoutFormat :: PhysicalDeviceFeatures -> Bool-      , enableFeature = \f -> f { shaderStorageImageReadWithoutFormat = True } :: PhysicalDeviceFeatures+      , checkFeature  = \PhysicalDeviceFeatures { shaderStorageImageReadWithoutFormat } ->+                          shaderStorageImageReadWithoutFormat+      , enableFeature = \PhysicalDeviceFeatures {..} ->+                          PhysicalDeviceFeatures { shaderStorageImageReadWithoutFormat = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]@@ -1058,33 +1074,39 @@     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]     [ RequireDeviceFeature       { featureName   = "shaderStorageImageWriteWithoutFormat"-      , checkFeature  = shaderStorageImageWriteWithoutFormat :: PhysicalDeviceFeatures -> Bool-      , enableFeature = \f -> f { shaderStorageImageWriteWithoutFormat = True } :: PhysicalDeviceFeatures+      , checkFeature  = \PhysicalDeviceFeatures { shaderStorageImageWriteWithoutFormat } ->+                          shaderStorageImageWriteWithoutFormat+      , enableFeature = \PhysicalDeviceFeatures {..} ->+                          PhysicalDeviceFeatures { shaderStorageImageWriteWithoutFormat = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "MultiViewport" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 0 0]-    [ RequireDeviceFeature { featureName   = "multiViewport"-                           , checkFeature  = multiViewport :: PhysicalDeviceFeatures -> Bool-                           , enableFeature = \f -> f { multiViewport = True } :: PhysicalDeviceFeatures-                           }+    [ RequireDeviceFeature+      { featureName   = "multiViewport"+      , checkFeature  = \PhysicalDeviceFeatures { multiViewport } -> multiViewport+      , enableFeature = \PhysicalDeviceFeatures {..} -> PhysicalDeviceFeatures { multiViewport = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 0 0     ]   "DrawParameters" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]-    [ RequireDeviceFeature { featureName   = "shaderDrawParameters"-                           , checkFeature  = shaderDrawParameters :: PhysicalDeviceVulkan11Features -> Bool-                           , enableFeature = \f -> f { shaderDrawParameters = True } :: PhysicalDeviceVulkan11Features-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderDrawParameters"+      , checkFeature  = \PhysicalDeviceVulkan11Features { shaderDrawParameters } -> shaderDrawParameters+      , enableFeature = \PhysicalDeviceVulkan11Features {..} ->+                          PhysicalDeviceVulkan11Features { shaderDrawParameters = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     ]   "MultiView" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]-    [ RequireDeviceFeature { featureName   = "multiview"-                           , checkFeature  = multiview :: PhysicalDeviceVulkan11Features -> Bool-                           , enableFeature = \f -> f { multiview = True } :: PhysicalDeviceVulkan11Features-                           }+    [ RequireDeviceFeature+      { featureName   = "multiview"+      , checkFeature  = \PhysicalDeviceVulkan11Features { multiview } -> multiview+      , enableFeature = \PhysicalDeviceVulkan11Features {..} -> PhysicalDeviceVulkan11Features { multiview = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     ]   "DeviceGroup" ->@@ -1093,17 +1115,21 @@     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]     [ RequireDeviceFeature       { featureName   = "variablePointersStorageBuffer"-      , checkFeature  = variablePointersStorageBuffer :: PhysicalDeviceVulkan11Features -> Bool-      , enableFeature = \f -> f { variablePointersStorageBuffer = True } :: PhysicalDeviceVulkan11Features+      , checkFeature  = \PhysicalDeviceVulkan11Features { variablePointersStorageBuffer } ->+                          variablePointersStorageBuffer+      , enableFeature = \PhysicalDeviceVulkan11Features {..} ->+                          PhysicalDeviceVulkan11Features { variablePointersStorageBuffer = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     ]   "VariablePointers" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]-    [ RequireDeviceFeature { featureName   = "variablePointers"-                           , checkFeature  = variablePointers :: PhysicalDeviceVulkan11Features -> Bool-                           , enableFeature = \f -> f { variablePointers = True } :: PhysicalDeviceVulkan11Features-                           }+    [ RequireDeviceFeature+      { featureName   = "variablePointers"+      , checkFeature  = \PhysicalDeviceVulkan11Features { variablePointers } -> variablePointers+      , enableFeature = \PhysicalDeviceVulkan11Features {..} ->+                          PhysicalDeviceVulkan11Features { variablePointers = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     ]   "ShaderClockKHR" -> (,)@@ -1181,17 +1207,20 @@     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]     [ RequireDeviceFeature       { featureName   = "shaderOutputViewportIndex"-      , checkFeature  = shaderOutputViewportIndex :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f -> f { shaderOutputViewportIndex = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderOutputViewportIndex } -> shaderOutputViewportIndex+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderOutputViewportIndex = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     ]   "ShaderLayer" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]-    [ RequireDeviceFeature { featureName   = "shaderOutputLayer"-                           , checkFeature  = shaderOutputLayer :: PhysicalDeviceVulkan12Features -> Bool-                           , enableFeature = \f -> f { shaderOutputLayer = True } :: PhysicalDeviceVulkan12Features-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderOutputLayer"+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderOutputLayer } -> shaderOutputLayer+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderOutputLayer = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     ]   "ShaderViewportIndexLayerEXT" -> (,)@@ -1234,8 +1263,9 @@     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]     [ RequireDeviceFeature       { featureName   = "storageBuffer16BitAccess"-      , checkFeature  = storageBuffer16BitAccess :: PhysicalDeviceVulkan11Features -> Bool-      , enableFeature = \f -> f { storageBuffer16BitAccess = True } :: PhysicalDeviceVulkan11Features+      , checkFeature  = \PhysicalDeviceVulkan11Features { storageBuffer16BitAccess } -> storageBuffer16BitAccess+      , enableFeature = \PhysicalDeviceVulkan11Features {..} ->+                          PhysicalDeviceVulkan11Features { storageBuffer16BitAccess = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     ]@@ -1243,25 +1273,31 @@     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]     [ RequireDeviceFeature       { featureName   = "uniformAndStorageBuffer16BitAccess"-      , checkFeature  = uniformAndStorageBuffer16BitAccess :: PhysicalDeviceVulkan11Features -> Bool-      , enableFeature = \f -> f { uniformAndStorageBuffer16BitAccess = True } :: PhysicalDeviceVulkan11Features+      , checkFeature  = \PhysicalDeviceVulkan11Features { uniformAndStorageBuffer16BitAccess } ->+                          uniformAndStorageBuffer16BitAccess+      , enableFeature = \PhysicalDeviceVulkan11Features {..} ->+                          PhysicalDeviceVulkan11Features { uniformAndStorageBuffer16BitAccess = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     ]   "StoragePushConstant16" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]-    [ RequireDeviceFeature { featureName   = "storagePushConstant16"-                           , checkFeature  = storagePushConstant16 :: PhysicalDeviceVulkan11Features -> Bool-                           , enableFeature = \f -> f { storagePushConstant16 = True } :: PhysicalDeviceVulkan11Features-                           }+    [ RequireDeviceFeature+      { featureName   = "storagePushConstant16"+      , checkFeature  = \PhysicalDeviceVulkan11Features { storagePushConstant16 } -> storagePushConstant16+      , enableFeature = \PhysicalDeviceVulkan11Features {..} ->+                          PhysicalDeviceVulkan11Features { storagePushConstant16 = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     ]   "StorageInputOutput16" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]-    [ RequireDeviceFeature { featureName   = "storageInputOutput16"-                           , checkFeature  = storageInputOutput16 :: PhysicalDeviceVulkan11Features -> Bool-                           , enableFeature = \f -> f { storageInputOutput16 = True } :: PhysicalDeviceVulkan11Features-                           }+    [ RequireDeviceFeature+      { featureName   = "storageInputOutput16"+      , checkFeature  = \PhysicalDeviceVulkan11Features { storageInputOutput16 } -> storageInputOutput16+      , enableFeature = \PhysicalDeviceVulkan11Features {..} ->+                          PhysicalDeviceVulkan11Features { storageInputOutput16 = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     ]   "GroupNonUniform" -> (,)@@ -1364,10 +1400,12 @@                                , instanceExtensionMinVersion = 0                                }     ]-    [ RequireDeviceFeature { featureName   = "runtimeDescriptorArray"-                           , checkFeature  = runtimeDescriptorArray :: PhysicalDeviceVulkan12Features -> Bool-                           , enableFeature = \f -> f { runtimeDescriptorArray = True } :: PhysicalDeviceVulkan12Features-                           }+    [ RequireDeviceFeature+      { featureName   = "runtimeDescriptorArray"+      , checkFeature  = \PhysicalDeviceVulkan12Features { runtimeDescriptorArray } -> runtimeDescriptorArray+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { runtimeDescriptorArray = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_DESCRIPTOR_INDEXING_EXTENSION_NAME@@ -1387,8 +1425,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderInputAttachmentArrayDynamicIndexing"-      , checkFeature  = shaderInputAttachmentArrayDynamicIndexing :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f -> f { shaderInputAttachmentArrayDynamicIndexing = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderInputAttachmentArrayDynamicIndexing } ->+                          shaderInputAttachmentArrayDynamicIndexing+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderInputAttachmentArrayDynamicIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1409,9 +1449,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderUniformTexelBufferArrayDynamicIndexing"-      , checkFeature  = shaderUniformTexelBufferArrayDynamicIndexing :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f ->-                          f { shaderUniformTexelBufferArrayDynamicIndexing = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderUniformTexelBufferArrayDynamicIndexing } ->+                          shaderUniformTexelBufferArrayDynamicIndexing+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderUniformTexelBufferArrayDynamicIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1432,9 +1473,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderStorageTexelBufferArrayDynamicIndexing"-      , checkFeature  = shaderStorageTexelBufferArrayDynamicIndexing :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f ->-                          f { shaderStorageTexelBufferArrayDynamicIndexing = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderStorageTexelBufferArrayDynamicIndexing } ->+                          shaderStorageTexelBufferArrayDynamicIndexing+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderStorageTexelBufferArrayDynamicIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1455,8 +1497,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderUniformBufferArrayNonUniformIndexing"-      , checkFeature  = shaderUniformBufferArrayNonUniformIndexing :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f -> f { shaderUniformBufferArrayNonUniformIndexing = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderUniformBufferArrayNonUniformIndexing } ->+                          shaderUniformBufferArrayNonUniformIndexing+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderUniformBufferArrayNonUniformIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1477,8 +1521,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderSampledImageArrayNonUniformIndexing"-      , checkFeature  = shaderSampledImageArrayNonUniformIndexing :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f -> f { shaderSampledImageArrayNonUniformIndexing = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderSampledImageArrayNonUniformIndexing } ->+                          shaderSampledImageArrayNonUniformIndexing+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderSampledImageArrayNonUniformIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1499,8 +1545,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderStorageBufferArrayNonUniformIndexing"-      , checkFeature  = shaderStorageBufferArrayNonUniformIndexing :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f -> f { shaderStorageBufferArrayNonUniformIndexing = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderStorageBufferArrayNonUniformIndexing } ->+                          shaderStorageBufferArrayNonUniformIndexing+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderStorageBufferArrayNonUniformIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1521,8 +1569,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderStorageImageArrayNonUniformIndexing"-      , checkFeature  = shaderStorageImageArrayNonUniformIndexing :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f -> f { shaderStorageImageArrayNonUniformIndexing = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderStorageImageArrayNonUniformIndexing } ->+                          shaderStorageImageArrayNonUniformIndexing+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderStorageImageArrayNonUniformIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1543,9 +1593,10 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderInputAttachmentArrayNonUniformIndexing"-      , checkFeature  = shaderInputAttachmentArrayNonUniformIndexing :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f ->-                          f { shaderInputAttachmentArrayNonUniformIndexing = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderInputAttachmentArrayNonUniformIndexing } ->+                          shaderInputAttachmentArrayNonUniformIndexing+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderInputAttachmentArrayNonUniformIndexing = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1566,9 +1617,12 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderUniformTexelBufferArrayNonUniformIndexing"-      , checkFeature  = shaderUniformTexelBufferArrayNonUniformIndexing :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f ->-                          f { shaderUniformTexelBufferArrayNonUniformIndexing = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderUniformTexelBufferArrayNonUniformIndexing } ->+                          shaderUniformTexelBufferArrayNonUniformIndexing+      , enableFeature = \PhysicalDeviceVulkan12Features {..} -> PhysicalDeviceVulkan12Features+                          { shaderUniformTexelBufferArrayNonUniformIndexing = True+                          , ..+                          }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1589,9 +1643,12 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderStorageTexelBufferArrayNonUniformIndexing"-      , checkFeature  = shaderStorageTexelBufferArrayNonUniformIndexing :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f ->-                          f { shaderStorageTexelBufferArrayNonUniformIndexing = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderStorageTexelBufferArrayNonUniformIndexing } ->+                          shaderStorageTexelBufferArrayNonUniformIndexing+      , enableFeature = \PhysicalDeviceVulkan12Features {..} -> PhysicalDeviceVulkan12Features+                          { shaderStorageTexelBufferArrayNonUniformIndexing = True+                          , ..+                          }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1610,10 +1667,12 @@                                , instanceExtensionMinVersion = 0                                }     ]-    [ RequireDeviceFeature { featureName   = "shaderFloat16"-                           , checkFeature  = shaderFloat16 :: PhysicalDeviceVulkan12Features -> Bool-                           , enableFeature = \f -> f { shaderFloat16 = True } :: PhysicalDeviceVulkan12Features-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderFloat16"+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderFloat16 } -> shaderFloat16+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { shaderFloat16 = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_SHADER_FLOAT16_INT8_EXTENSION_NAME@@ -1627,10 +1686,11 @@                                , instanceExtensionMinVersion = 0                                }     ]-    [ RequireDeviceFeature { featureName   = "shaderInt8"-                           , checkFeature  = shaderInt8 :: PhysicalDeviceVulkan12Features -> Bool-                           , enableFeature = \f -> f { shaderInt8 = True } :: PhysicalDeviceVulkan12Features-                           }+    [ RequireDeviceFeature+      { featureName   = "shaderInt8"+      , checkFeature  = \PhysicalDeviceVulkan12Features { shaderInt8 } -> shaderInt8+      , enableFeature = \PhysicalDeviceVulkan12Features {..} -> PhysicalDeviceVulkan12Features { shaderInt8 = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_SHADER_FLOAT16_INT8_EXTENSION_NAME@@ -1646,8 +1706,9 @@     ]     [ RequireDeviceFeature       { featureName   = "storageBuffer8BitAccess"-      , checkFeature  = storageBuffer8BitAccess :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f -> f { storageBuffer8BitAccess = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { storageBuffer8BitAccess } -> storageBuffer8BitAccess+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { storageBuffer8BitAccess = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1668,8 +1729,10 @@     ]     [ RequireDeviceFeature       { featureName   = "uniformAndStorageBuffer8BitAccess"-      , checkFeature  = uniformAndStorageBuffer8BitAccess :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f -> f { uniformAndStorageBuffer8BitAccess = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { uniformAndStorageBuffer8BitAccess } ->+                          uniformAndStorageBuffer8BitAccess+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { uniformAndStorageBuffer8BitAccess = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1688,10 +1751,12 @@                                , instanceExtensionMinVersion = 0                                }     ]-    [ RequireDeviceFeature { featureName   = "storagePushConstant8"-                           , checkFeature  = storagePushConstant8 :: PhysicalDeviceVulkan12Features -> Bool-                           , enableFeature = \f -> f { storagePushConstant8 = True } :: PhysicalDeviceVulkan12Features-                           }+    [ RequireDeviceFeature+      { featureName   = "storagePushConstant8"+      , checkFeature  = \PhysicalDeviceVulkan12Features { storagePushConstant8 } -> storagePushConstant8+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { storagePushConstant8 = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_8BIT_STORAGE_EXTENSION_NAME@@ -1704,10 +1769,12 @@     ]   "VulkanMemoryModel" -> (,)     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]-    [ RequireDeviceFeature { featureName   = "vulkanMemoryModel"-                           , checkFeature  = vulkanMemoryModel :: PhysicalDeviceVulkan12Features -> Bool-                           , enableFeature = \f -> f { vulkanMemoryModel = True } :: PhysicalDeviceVulkan12Features-                           }+    [ RequireDeviceFeature+      { featureName   = "vulkanMemoryModel"+      , checkFeature  = \PhysicalDeviceVulkan12Features { vulkanMemoryModel } -> vulkanMemoryModel+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { vulkanMemoryModel = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_VULKAN_MEMORY_MODEL_EXTENSION_NAME@@ -1718,8 +1785,9 @@     [RequireInstanceVersion $ MAKE_API_VERSION 1 2 0]     [ RequireDeviceFeature       { featureName   = "vulkanMemoryModelDeviceScope"-      , checkFeature  = vulkanMemoryModelDeviceScope :: PhysicalDeviceVulkan12Features -> Bool-      , enableFeature = \f -> f { vulkanMemoryModelDeviceScope = True } :: PhysicalDeviceVulkan12Features+      , checkFeature  = \PhysicalDeviceVulkan12Features { vulkanMemoryModelDeviceScope } -> vulkanMemoryModelDeviceScope+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { vulkanMemoryModelDeviceScope = True, .. }       }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing@@ -1817,9 +1885,10 @@     ]     [ RequireDeviceFeature       { featureName   = "computeDerivativeGroupQuads"-      , checkFeature  = computeDerivativeGroupQuads :: PhysicalDeviceComputeShaderDerivativesFeaturesNV -> Bool-      , enableFeature = \f ->-                          f { computeDerivativeGroupQuads = True } :: PhysicalDeviceComputeShaderDerivativesFeaturesNV+      , checkFeature  = \PhysicalDeviceComputeShaderDerivativesFeaturesNV { computeDerivativeGroupQuads } ->+                          computeDerivativeGroupQuads+      , enableFeature = \PhysicalDeviceComputeShaderDerivativesFeaturesNV {..} ->+                          PhysicalDeviceComputeShaderDerivativesFeaturesNV { computeDerivativeGroupQuads = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = NV_COMPUTE_SHADER_DERIVATIVES_EXTENSION_NAME@@ -1834,9 +1903,10 @@     ]     [ RequireDeviceFeature       { featureName   = "computeDerivativeGroupLinear"-      , checkFeature  = computeDerivativeGroupLinear :: PhysicalDeviceComputeShaderDerivativesFeaturesNV -> Bool-      , enableFeature = \f ->-                          f { computeDerivativeGroupLinear = True } :: PhysicalDeviceComputeShaderDerivativesFeaturesNV+      , checkFeature  = \PhysicalDeviceComputeShaderDerivativesFeaturesNV { computeDerivativeGroupLinear } ->+                          computeDerivativeGroupLinear+      , enableFeature = \PhysicalDeviceComputeShaderDerivativesFeaturesNV {..} ->+                          PhysicalDeviceComputeShaderDerivativesFeaturesNV { computeDerivativeGroupLinear = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = NV_COMPUTE_SHADER_DERIVATIVES_EXTENSION_NAME@@ -1851,9 +1921,9 @@     ]     [ RequireDeviceFeature       { featureName   = "fragmentShaderBarycentric"-      , checkFeature  = fragmentShaderBarycentric :: PhysicalDeviceFragmentShaderBarycentricFeaturesNV -> Bool-      , enableFeature = \f ->-                          f { fragmentShaderBarycentric = True } :: PhysicalDeviceFragmentShaderBarycentricFeaturesNV+      , checkFeature  = \PhysicalDeviceFragmentShaderBarycentricFeaturesNV { fragmentShaderBarycentric } ->+                          fragmentShaderBarycentric+      , enableFeature = \_ -> PhysicalDeviceFragmentShaderBarycentricFeaturesNV { fragmentShaderBarycentric = True }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = NV_FRAGMENT_SHADER_BARYCENTRIC_EXTENSION_NAME@@ -1868,8 +1938,8 @@     ]     [ RequireDeviceFeature       { featureName   = "imageFootprint"-      , checkFeature  = imageFootprint :: PhysicalDeviceShaderImageFootprintFeaturesNV -> Bool-      , enableFeature = \f -> f { imageFootprint = True } :: PhysicalDeviceShaderImageFootprintFeaturesNV+      , checkFeature  = \PhysicalDeviceShaderImageFootprintFeaturesNV { imageFootprint } -> imageFootprint+      , enableFeature = \_ -> PhysicalDeviceShaderImageFootprintFeaturesNV { imageFootprint = True }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = NV_SHADER_IMAGE_FOOTPRINT_EXTENSION_NAME@@ -1884,8 +1954,9 @@     ]     [ RequireDeviceFeature       { featureName   = "shadingRateImage"-      , checkFeature  = shadingRateImage :: PhysicalDeviceShadingRateImageFeaturesNV -> Bool-      , enableFeature = \f -> f { shadingRateImage = True } :: PhysicalDeviceShadingRateImageFeaturesNV+      , checkFeature  = \PhysicalDeviceShadingRateImageFeaturesNV { shadingRateImage } -> shadingRateImage+      , enableFeature = \PhysicalDeviceShadingRateImageFeaturesNV {..} ->+                          PhysicalDeviceShadingRateImageFeaturesNV { shadingRateImage = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = NV_SHADING_RATE_IMAGE_EXTENSION_NAME@@ -1911,8 +1982,9 @@     ]     [ RequireDeviceFeature       { featureName   = "rayTracingPipeline"-      , checkFeature  = rayTracingPipeline :: PhysicalDeviceRayTracingPipelineFeaturesKHR -> Bool-      , enableFeature = \f -> f { rayTracingPipeline = True } :: PhysicalDeviceRayTracingPipelineFeaturesKHR+      , checkFeature  = \PhysicalDeviceRayTracingPipelineFeaturesKHR { rayTracingPipeline } -> rayTracingPipeline+      , enableFeature = \PhysicalDeviceRayTracingPipelineFeaturesKHR {..} ->+                          PhysicalDeviceRayTracingPipelineFeaturesKHR { rayTracingPipeline = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_RAY_TRACING_PIPELINE_EXTENSION_NAME@@ -1954,8 +2026,8 @@                                }     ]     [ RequireDeviceFeature { featureName   = "rayQuery"-                           , checkFeature  = rayQuery :: PhysicalDeviceRayQueryFeaturesKHR -> Bool-                           , enableFeature = \f -> f { rayQuery = True } :: PhysicalDeviceRayQueryFeaturesKHR+                           , checkFeature  = \PhysicalDeviceRayQueryFeaturesKHR { rayQuery } -> rayQuery+                           , enableFeature = \_ -> PhysicalDeviceRayQueryFeaturesKHR { rayQuery = True }                            }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_RAY_QUERY_EXTENSION_NAME@@ -1998,8 +2070,10 @@     ]     [ RequireDeviceFeature       { featureName   = "rayTraversalPrimitiveCulling"-      , checkFeature  = rayTraversalPrimitiveCulling :: PhysicalDeviceRayTracingPipelineFeaturesKHR -> Bool-      , enableFeature = \f -> f { rayTraversalPrimitiveCulling = True } :: PhysicalDeviceRayTracingPipelineFeaturesKHR+      , checkFeature  = \PhysicalDeviceRayTracingPipelineFeaturesKHR { rayTraversalPrimitiveCulling } ->+                          rayTraversalPrimitiveCulling+      , enableFeature = \PhysicalDeviceRayTracingPipelineFeaturesKHR {..} ->+                          PhysicalDeviceRayTracingPipelineFeaturesKHR { rayTraversalPrimitiveCulling = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_RAY_TRACING_PIPELINE_EXTENSION_NAME@@ -2057,8 +2131,9 @@     ]     [ RequireDeviceFeature       { featureName   = "rayTracingMotionBlur"-      , checkFeature  = rayTracingMotionBlur :: PhysicalDeviceRayTracingMotionBlurFeaturesNV -> Bool-      , enableFeature = \f -> f { rayTracingMotionBlur = True } :: PhysicalDeviceRayTracingMotionBlurFeaturesNV+      , checkFeature  = \PhysicalDeviceRayTracingMotionBlurFeaturesNV { rayTracingMotionBlur } -> rayTracingMotionBlur+      , enableFeature = \PhysicalDeviceRayTracingMotionBlurFeaturesNV {..} ->+                          PhysicalDeviceRayTracingMotionBlurFeaturesNV { rayTracingMotionBlur = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = NV_RAY_TRACING_MOTION_BLUR_EXTENSION_NAME@@ -2105,8 +2180,9 @@     ]     [ RequireDeviceFeature       { featureName   = "transformFeedback"-      , checkFeature  = transformFeedback :: PhysicalDeviceTransformFeedbackFeaturesEXT -> Bool-      , enableFeature = \f -> f { transformFeedback = True } :: PhysicalDeviceTransformFeedbackFeaturesEXT+      , checkFeature  = \PhysicalDeviceTransformFeedbackFeaturesEXT { transformFeedback } -> transformFeedback+      , enableFeature = \PhysicalDeviceTransformFeedbackFeaturesEXT {..} ->+                          PhysicalDeviceTransformFeedbackFeaturesEXT { transformFeedback = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_TRANSFORM_FEEDBACK_EXTENSION_NAME@@ -2121,8 +2197,9 @@     ]     [ RequireDeviceFeature       { featureName   = "geometryStreams"-      , checkFeature  = geometryStreams :: PhysicalDeviceTransformFeedbackFeaturesEXT -> Bool-      , enableFeature = \f -> f { geometryStreams = True } :: PhysicalDeviceTransformFeedbackFeaturesEXT+      , checkFeature  = \PhysicalDeviceTransformFeedbackFeaturesEXT { geometryStreams } -> geometryStreams+      , enableFeature = \PhysicalDeviceTransformFeedbackFeaturesEXT {..} ->+                          PhysicalDeviceTransformFeedbackFeaturesEXT { geometryStreams = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_TRANSFORM_FEEDBACK_EXTENSION_NAME@@ -2137,8 +2214,9 @@     ]     [ RequireDeviceFeature       { featureName   = "fragmentDensityMap"-      , checkFeature  = fragmentDensityMap :: PhysicalDeviceFragmentDensityMapFeaturesEXT -> Bool-      , enableFeature = \f -> f { fragmentDensityMap = True } :: PhysicalDeviceFragmentDensityMapFeaturesEXT+      , checkFeature  = \PhysicalDeviceFragmentDensityMapFeaturesEXT { fragmentDensityMap } -> fragmentDensityMap+      , enableFeature = \PhysicalDeviceFragmentDensityMapFeaturesEXT {..} ->+                          PhysicalDeviceFragmentDensityMapFeaturesEXT { fragmentDensityMap = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_FRAGMENT_DENSITY_MAP_EXTENSION_NAME@@ -2152,10 +2230,12 @@                                , instanceExtensionMinVersion = 0                                }     ]-    [ RequireDeviceFeature { featureName   = "bufferDeviceAddress"-                           , checkFeature  = bufferDeviceAddress :: PhysicalDeviceVulkan12Features -> Bool-                           , enableFeature = \f -> f { bufferDeviceAddress = True } :: PhysicalDeviceVulkan12Features-                           }+    [ RequireDeviceFeature+      { featureName   = "bufferDeviceAddress"+      , checkFeature  = \PhysicalDeviceVulkan12Features { bufferDeviceAddress } -> bufferDeviceAddress+      , enableFeature = \PhysicalDeviceVulkan12Features {..} ->+                          PhysicalDeviceVulkan12Features { bufferDeviceAddress = True, .. }+      }     , RequireDeviceVersion $ MAKE_API_VERSION 1 2 0     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_BUFFER_DEVICE_ADDRESS_EXTENSION_NAME@@ -2170,8 +2250,9 @@     ]     [ RequireDeviceFeature       { featureName   = "cooperativeMatrix"-      , checkFeature  = cooperativeMatrix :: PhysicalDeviceCooperativeMatrixFeaturesNV -> Bool-      , enableFeature = \f -> f { cooperativeMatrix = True } :: PhysicalDeviceCooperativeMatrixFeaturesNV+      , checkFeature  = \PhysicalDeviceCooperativeMatrixFeaturesNV { cooperativeMatrix } -> cooperativeMatrix+      , enableFeature = \PhysicalDeviceCooperativeMatrixFeaturesNV {..} ->+                          PhysicalDeviceCooperativeMatrixFeaturesNV { cooperativeMatrix = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = NV_COOPERATIVE_MATRIX_EXTENSION_NAME@@ -2186,8 +2267,9 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderIntegerFunctions2"-      , checkFeature  = shaderIntegerFunctions2 :: PhysicalDeviceShaderIntegerFunctions2FeaturesINTEL -> Bool-      , enableFeature = \f -> f { shaderIntegerFunctions2 = True } :: PhysicalDeviceShaderIntegerFunctions2FeaturesINTEL+      , checkFeature  = \PhysicalDeviceShaderIntegerFunctions2FeaturesINTEL { shaderIntegerFunctions2 } ->+                          shaderIntegerFunctions2+      , enableFeature = \_ -> PhysicalDeviceShaderIntegerFunctions2FeaturesINTEL { shaderIntegerFunctions2 = True }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = INTEL_SHADER_INTEGER_FUNCTIONS_2_EXTENSION_NAME@@ -2198,8 +2280,8 @@     []     [ RequireDeviceFeature       { featureName   = "shaderSMBuiltins"-      , checkFeature  = shaderSMBuiltins :: PhysicalDeviceShaderSMBuiltinsFeaturesNV -> Bool-      , enableFeature = \f -> f { shaderSMBuiltins = True } :: PhysicalDeviceShaderSMBuiltinsFeaturesNV+      , checkFeature  = \PhysicalDeviceShaderSMBuiltinsFeaturesNV { shaderSMBuiltins } -> shaderSMBuiltins+      , enableFeature = \_ -> PhysicalDeviceShaderSMBuiltinsFeaturesNV { shaderSMBuiltins = True }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = NV_SHADER_SM_BUILTINS_EXTENSION_NAME@@ -2214,9 +2296,10 @@     ]     [ RequireDeviceFeature       { featureName   = "fragmentShaderSampleInterlock"-      , checkFeature  = fragmentShaderSampleInterlock :: PhysicalDeviceFragmentShaderInterlockFeaturesEXT -> Bool-      , enableFeature = \f ->-                          f { fragmentShaderSampleInterlock = True } :: PhysicalDeviceFragmentShaderInterlockFeaturesEXT+      , checkFeature  = \PhysicalDeviceFragmentShaderInterlockFeaturesEXT { fragmentShaderSampleInterlock } ->+                          fragmentShaderSampleInterlock+      , enableFeature = \PhysicalDeviceFragmentShaderInterlockFeaturesEXT {..} ->+                          PhysicalDeviceFragmentShaderInterlockFeaturesEXT { fragmentShaderSampleInterlock = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_FRAGMENT_SHADER_INTERLOCK_EXTENSION_NAME@@ -2231,9 +2314,10 @@     ]     [ RequireDeviceFeature       { featureName   = "fragmentShaderPixelInterlock"-      , checkFeature  = fragmentShaderPixelInterlock :: PhysicalDeviceFragmentShaderInterlockFeaturesEXT -> Bool-      , enableFeature = \f ->-                          f { fragmentShaderPixelInterlock = True } :: PhysicalDeviceFragmentShaderInterlockFeaturesEXT+      , checkFeature  = \PhysicalDeviceFragmentShaderInterlockFeaturesEXT { fragmentShaderPixelInterlock } ->+                          fragmentShaderPixelInterlock+      , enableFeature = \PhysicalDeviceFragmentShaderInterlockFeaturesEXT {..} ->+                          PhysicalDeviceFragmentShaderInterlockFeaturesEXT { fragmentShaderPixelInterlock = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_FRAGMENT_SHADER_INTERLOCK_EXTENSION_NAME@@ -2248,9 +2332,12 @@     ]     [ RequireDeviceFeature       { featureName   = "fragmentShaderShadingRateInterlock"-      , checkFeature  = fragmentShaderShadingRateInterlock :: PhysicalDeviceFragmentShaderInterlockFeaturesEXT -> Bool-      , enableFeature = \f ->-        f { fragmentShaderShadingRateInterlock = True } :: PhysicalDeviceFragmentShaderInterlockFeaturesEXT+      , checkFeature  = \PhysicalDeviceFragmentShaderInterlockFeaturesEXT { fragmentShaderShadingRateInterlock } ->+                          fragmentShaderShadingRateInterlock+      , enableFeature = \PhysicalDeviceFragmentShaderInterlockFeaturesEXT {..} ->+                          PhysicalDeviceFragmentShaderInterlockFeaturesEXT { fragmentShaderShadingRateInterlock = True+                                                                           , ..+                                                                           }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_FRAGMENT_SHADER_INTERLOCK_EXTENSION_NAME@@ -2264,10 +2351,11 @@                                }     ]     [ RequireDeviceFeature-      { featureName = "shaderDemoteToHelperInvocation"-      , checkFeature = shaderDemoteToHelperInvocation :: PhysicalDeviceShaderDemoteToHelperInvocationFeaturesEXT -> Bool-      , enableFeature = \f ->-        f { shaderDemoteToHelperInvocation = True } :: PhysicalDeviceShaderDemoteToHelperInvocationFeaturesEXT+      { featureName   = "shaderDemoteToHelperInvocation"+      , checkFeature  = \PhysicalDeviceShaderDemoteToHelperInvocationFeaturesEXT { shaderDemoteToHelperInvocation } ->+                          shaderDemoteToHelperInvocation+      , enableFeature = \_ ->+        PhysicalDeviceShaderDemoteToHelperInvocationFeaturesEXT { shaderDemoteToHelperInvocation = True }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = EXT_SHADER_DEMOTE_TO_HELPER_INVOCATION_EXTENSION_NAME@@ -2282,8 +2370,10 @@     ]     [ RequireDeviceFeature       { featureName   = "pipelineFragmentShadingRate"-      , checkFeature  = pipelineFragmentShadingRate :: PhysicalDeviceFragmentShadingRateFeaturesKHR -> Bool-      , enableFeature = \f -> f { pipelineFragmentShadingRate = True } :: PhysicalDeviceFragmentShadingRateFeaturesKHR+      , checkFeature  = \PhysicalDeviceFragmentShadingRateFeaturesKHR { pipelineFragmentShadingRate } ->+                          pipelineFragmentShadingRate+      , enableFeature = \PhysicalDeviceFragmentShadingRateFeaturesKHR {..} ->+                          PhysicalDeviceFragmentShadingRateFeaturesKHR { pipelineFragmentShadingRate = True, .. }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_FRAGMENT_SHADING_RATE_EXTENSION_NAME@@ -2310,9 +2400,12 @@     ]     [ RequireDeviceFeature       { featureName   = "workgroupMemoryExplicitLayout"-      , checkFeature  = workgroupMemoryExplicitLayout :: PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR -> Bool-      , enableFeature = \f ->-        f { workgroupMemoryExplicitLayout = True } :: PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR+      , checkFeature  = \PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR { workgroupMemoryExplicitLayout } ->+                          workgroupMemoryExplicitLayout+      , enableFeature = \PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR {..} ->+                          PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR { workgroupMemoryExplicitLayout = True+                                                                                 , ..+                                                                                 }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_WORKGROUP_MEMORY_EXPLICIT_LAYOUT_EXTENSION_NAME@@ -2326,12 +2419,15 @@                                }     ]     [ RequireDeviceFeature-      { featureName = "workgroupMemoryExplicitLayout8BitAccess"-      , checkFeature = workgroupMemoryExplicitLayout8BitAccess :: PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR-                       -> Bool-      , enableFeature =-        \f ->-          f { workgroupMemoryExplicitLayout8BitAccess = True } :: PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR+      { featureName   = "workgroupMemoryExplicitLayout8BitAccess"+      , checkFeature  =+        \PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR { workgroupMemoryExplicitLayout8BitAccess } ->+          workgroupMemoryExplicitLayout8BitAccess+      , enableFeature = \PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR {..} ->+                          PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR+                            { workgroupMemoryExplicitLayout8BitAccess = True+                            , ..+                            }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_WORKGROUP_MEMORY_EXPLICIT_LAYOUT_EXTENSION_NAME@@ -2347,9 +2443,13 @@     [ RequireDeviceFeature       { featureName   = "workgroupMemoryExplicitLayout16BitAccess"       , checkFeature  =-        workgroupMemoryExplicitLayout16BitAccess :: PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR -> Bool-      , enableFeature = \f ->-        f { workgroupMemoryExplicitLayout16BitAccess = True } :: PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR+        \PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR { workgroupMemoryExplicitLayout16BitAccess } ->+          workgroupMemoryExplicitLayout16BitAccess+      , enableFeature = \PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR {..} ->+                          PhysicalDeviceWorkgroupMemoryExplicitLayoutFeaturesKHR+                            { workgroupMemoryExplicitLayout16BitAccess = True+                            , ..+                            }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_WORKGROUP_MEMORY_EXPLICIT_LAYOUT_EXTENSION_NAME@@ -2364,8 +2464,9 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderIntegerDotProduct"-      , checkFeature  = shaderIntegerDotProduct :: PhysicalDeviceShaderIntegerDotProductFeaturesKHR -> Bool-      , enableFeature = \f -> f { shaderIntegerDotProduct = True } :: PhysicalDeviceShaderIntegerDotProductFeaturesKHR+      , checkFeature  = \PhysicalDeviceShaderIntegerDotProductFeaturesKHR { shaderIntegerDotProduct } ->+                          shaderIntegerDotProduct+      , enableFeature = \_ -> PhysicalDeviceShaderIntegerDotProductFeaturesKHR { shaderIntegerDotProduct = True }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_SHADER_INTEGER_DOT_PRODUCT_EXTENSION_NAME@@ -2380,8 +2481,9 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderIntegerDotProduct"-      , checkFeature  = shaderIntegerDotProduct :: PhysicalDeviceShaderIntegerDotProductFeaturesKHR -> Bool-      , enableFeature = \f -> f { shaderIntegerDotProduct = True } :: PhysicalDeviceShaderIntegerDotProductFeaturesKHR+      , checkFeature  = \PhysicalDeviceShaderIntegerDotProductFeaturesKHR { shaderIntegerDotProduct } ->+                          shaderIntegerDotProduct+      , enableFeature = \_ -> PhysicalDeviceShaderIntegerDotProductFeaturesKHR { shaderIntegerDotProduct = True }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_SHADER_INTEGER_DOT_PRODUCT_EXTENSION_NAME@@ -2396,8 +2498,9 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderIntegerDotProduct"-      , checkFeature  = shaderIntegerDotProduct :: PhysicalDeviceShaderIntegerDotProductFeaturesKHR -> Bool-      , enableFeature = \f -> f { shaderIntegerDotProduct = True } :: PhysicalDeviceShaderIntegerDotProductFeaturesKHR+      , checkFeature  = \PhysicalDeviceShaderIntegerDotProductFeaturesKHR { shaderIntegerDotProduct } ->+                          shaderIntegerDotProduct+      , enableFeature = \_ -> PhysicalDeviceShaderIntegerDotProductFeaturesKHR { shaderIntegerDotProduct = True }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_SHADER_INTEGER_DOT_PRODUCT_EXTENSION_NAME@@ -2412,8 +2515,9 @@     ]     [ RequireDeviceFeature       { featureName   = "shaderIntegerDotProduct"-      , checkFeature  = shaderIntegerDotProduct :: PhysicalDeviceShaderIntegerDotProductFeaturesKHR -> Bool-      , enableFeature = \f -> f { shaderIntegerDotProduct = True } :: PhysicalDeviceShaderIntegerDotProductFeaturesKHR+      , checkFeature  = \PhysicalDeviceShaderIntegerDotProductFeaturesKHR { shaderIntegerDotProduct } ->+                          shaderIntegerDotProduct+      , enableFeature = \_ -> PhysicalDeviceShaderIntegerDotProductFeaturesKHR { shaderIntegerDotProduct = True }       }     , RequireDeviceExtension { deviceExtensionLayerName  = Nothing                              , deviceExtensionName       = KHR_SHADER_INTEGER_DOT_PRODUCT_EXTENSION_NAME
vulkan.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           vulkan-version:        3.13.3+version:        3.13.4 synopsis:       Bindings to the Vulkan graphics API. description:    Please see [the readme](https://github.com/expipiplus1/vulkan/#readme) category:       Graphics@@ -539,6 +539,7 @@       InstanceSigs       LambdaCase       MagicHash+      NamedFieldPuns       NoMonomorphismRestriction       OverloadedStrings       PartialTypeSignatures@@ -604,6 +605,7 @@       InstanceSigs       LambdaCase       MagicHash+      NamedFieldPuns       NoMonomorphismRestriction       OverloadedStrings       PartialTypeSignatures