vulkan 0.1.0.0 → 0.2.0.0
raw patch · 3 files changed
+250/−246 lines, 3 files
Files
- readme.md +4/−0
- src/Graphics/Vulkan.hs +244/−244
- vulkan.cabal +2/−2
readme.md view
@@ -7,6 +7,10 @@ This package requires GHC 8.0 or higher due to the use of the `DuplicateRecordFields` and `Strict` language extensions. +I highly recommend compiling with `-O0` at the moment as compiling with+optimizations leads to huge compile times. It's likely that the library will be+split into a few smaller modules in the future to alleviate this.+ ## Current Status All the core Vulkan functionality is here.
src/Graphics/Vulkan.hs view
@@ -2102,8 +2102,8 @@ deriving (Eq) instance Storable VkOffset2D where- sizeOf _ = 8- alignment _ = 4+ sizeOf ~_ = 8+ alignment ~_ = 4 peek ptr = VkOffset2D <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) poke ptr poked = poke (ptr `plusPtr` 0) (vkX (poked :: VkOffset2D))@@ -2119,8 +2119,8 @@ deriving (Eq) instance Storable VkOffset3D where- sizeOf _ = 12- alignment _ = 4+ sizeOf ~_ = 12+ alignment ~_ = 4 peek ptr = VkOffset3D <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -2137,8 +2137,8 @@ deriving (Eq) instance Storable VkExtent2D where- sizeOf _ = 8- alignment _ = 4+ sizeOf ~_ = 8+ alignment ~_ = 4 peek ptr = VkExtent2D <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) poke ptr poked = poke (ptr `plusPtr` 0) (vkWidth (poked :: VkExtent2D))@@ -2154,8 +2154,8 @@ deriving (Eq) instance Storable VkExtent3D where- sizeOf _ = 12- alignment _ = 4+ sizeOf ~_ = 12+ alignment ~_ = 4 peek ptr = VkExtent3D <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -2176,8 +2176,8 @@ deriving (Eq) instance Storable VkViewport where- sizeOf _ = 24- alignment _ = 4+ sizeOf ~_ = 24+ alignment ~_ = 4 peek ptr = VkViewport <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -2200,8 +2200,8 @@ deriving (Eq) instance Storable VkRect2D where- sizeOf _ = 16- alignment _ = 4+ sizeOf ~_ = 16+ alignment ~_ = 4 peek ptr = VkRect2D <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) poke ptr poked = poke (ptr `plusPtr` 0) (vkOffset (poked :: VkRect2D))@@ -2216,8 +2216,8 @@ deriving (Eq) instance Storable VkRect3D where- sizeOf _ = 24- alignment _ = 4+ sizeOf ~_ = 24+ alignment ~_ = 4 peek ptr = VkRect3D <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 12) poke ptr poked = poke (ptr `plusPtr` 0) (vkOffset (poked :: VkRect3D))@@ -2233,8 +2233,8 @@ deriving (Eq) instance Storable VkClearRect where- sizeOf _ = 24- alignment _ = 4+ sizeOf ~_ = 24+ alignment ~_ = 4 peek ptr = VkClearRect <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 16) <*> peek (ptr `plusPtr` 20)@@ -2253,8 +2253,8 @@ deriving (Eq) instance Storable VkComponentMapping where- sizeOf _ = 16- alignment _ = 4+ sizeOf ~_ = 16+ alignment ~_ = 4 peek ptr = VkComponentMapping <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -2280,8 +2280,8 @@ deriving (Eq) instance Storable VkPhysicalDeviceProperties where- sizeOf _ = 824- alignment _ = 8+ sizeOf ~_ = 824+ alignment ~_ = 8 peek ptr = VkPhysicalDeviceProperties <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -2310,8 +2310,8 @@ deriving (Eq) instance Storable VkExtensionProperties where- sizeOf _ = 260- alignment _ = 4+ sizeOf ~_ = 260+ alignment ~_ = 4 peek ptr = VkExtensionProperties <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 256) poke ptr poked = poke (ptr `plusPtr` 0) (vkExtensionName (poked :: VkExtensionProperties))@@ -2328,8 +2328,8 @@ deriving (Eq) instance Storable VkLayerProperties where- sizeOf _ = 520- alignment _ = 4+ sizeOf ~_ = 520+ alignment ~_ = 4 peek ptr = VkLayerProperties <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 256) <*> peek (ptr `plusPtr` 260)@@ -2353,8 +2353,8 @@ deriving (Eq) instance Storable VkApplicationInfo where- sizeOf _ = 48- alignment _ = 8+ sizeOf ~_ = 48+ alignment ~_ = 8 peek ptr = VkApplicationInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2383,8 +2383,8 @@ deriving (Eq) instance Storable VkAllocationCallbacks where- sizeOf _ = 48- alignment _ = 8+ sizeOf ~_ = 48+ alignment ~_ = 8 peek ptr = VkAllocationCallbacks <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2411,8 +2411,8 @@ deriving (Eq) instance Storable VkDeviceQueueCreateInfo where- sizeOf _ = 40- alignment _ = 8+ sizeOf ~_ = 40+ alignment ~_ = 8 peek ptr = VkDeviceQueueCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2443,8 +2443,8 @@ deriving (Eq) instance Storable VkDeviceCreateInfo where- sizeOf _ = 72- alignment _ = 8+ sizeOf ~_ = 72+ alignment ~_ = 8 peek ptr = VkDeviceCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2481,8 +2481,8 @@ deriving (Eq) instance Storable VkInstanceCreateInfo where- sizeOf _ = 64- alignment _ = 8+ sizeOf ~_ = 64+ alignment ~_ = 8 peek ptr = VkInstanceCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2511,8 +2511,8 @@ deriving (Eq) instance Storable VkQueueFamilyProperties where- sizeOf _ = 24- alignment _ = 4+ sizeOf ~_ = 24+ alignment ~_ = 4 peek ptr = VkQueueFamilyProperties <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -2533,8 +2533,8 @@ deriving (Eq) instance Storable VkPhysicalDeviceMemoryProperties where- sizeOf _ = 520- alignment _ = 8+ sizeOf ~_ = 520+ alignment ~_ = 8 peek ptr = VkPhysicalDeviceMemoryProperties <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 260)@@ -2555,8 +2555,8 @@ deriving (Eq) instance Storable VkMemoryAllocateInfo where- sizeOf _ = 32- alignment _ = 8+ sizeOf ~_ = 32+ alignment ~_ = 8 peek ptr = VkMemoryAllocateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2576,8 +2576,8 @@ deriving (Eq) instance Storable VkMemoryRequirements where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkMemoryRequirements <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2595,8 +2595,8 @@ deriving (Eq) instance Storable VkSparseImageFormatProperties where- sizeOf _ = 20- alignment _ = 4+ sizeOf ~_ = 20+ alignment ~_ = 4 peek ptr = VkSparseImageFormatProperties <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 16)@@ -2616,8 +2616,8 @@ deriving (Eq) instance Storable VkSparseImageMemoryRequirements where- sizeOf _ = 48- alignment _ = 8+ sizeOf ~_ = 48+ alignment ~_ = 8 peek ptr = VkSparseImageMemoryRequirements <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 20) <*> peek (ptr `plusPtr` 24)@@ -2638,8 +2638,8 @@ deriving (Eq) instance Storable VkMemoryType where- sizeOf _ = 8- alignment _ = 4+ sizeOf ~_ = 8+ alignment ~_ = 4 peek ptr = VkMemoryType <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) poke ptr poked = poke (ptr `plusPtr` 0) (vkPropertyFlags (poked :: VkMemoryType))@@ -2654,8 +2654,8 @@ deriving (Eq) instance Storable VkMemoryHeap where- sizeOf _ = 16- alignment _ = 8+ sizeOf ~_ = 16+ alignment ~_ = 8 peek ptr = VkMemoryHeap <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) poke ptr poked = poke (ptr `plusPtr` 0) (vkSize (poked :: VkMemoryHeap))@@ -2673,8 +2673,8 @@ deriving (Eq) instance Storable VkMappedMemoryRange where- sizeOf _ = 40- alignment _ = 8+ sizeOf ~_ = 40+ alignment ~_ = 8 peek ptr = VkMappedMemoryRange <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2696,8 +2696,8 @@ deriving (Eq) instance Storable VkFormatProperties where- sizeOf _ = 12- alignment _ = 4+ sizeOf ~_ = 12+ alignment ~_ = 4 peek ptr = VkFormatProperties <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -2717,8 +2717,8 @@ deriving (Eq) instance Storable VkImageFormatProperties where- sizeOf _ = 32- alignment _ = 8+ sizeOf ~_ = 32+ alignment ~_ = 8 peek ptr = VkImageFormatProperties <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 12) <*> peek (ptr `plusPtr` 16)@@ -2740,8 +2740,8 @@ deriving (Eq) instance Storable VkDescriptorBufferInfo where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkDescriptorBufferInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2759,8 +2759,8 @@ deriving (Eq) instance Storable VkDescriptorImageInfo where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkDescriptorImageInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2785,8 +2785,8 @@ deriving (Eq) instance Storable VkWriteDescriptorSet where- sizeOf _ = 64- alignment _ = 8+ sizeOf ~_ = 64+ alignment ~_ = 8 peek ptr = VkWriteDescriptorSet <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2824,8 +2824,8 @@ deriving (Eq) instance Storable VkCopyDescriptorSet where- sizeOf _ = 56- alignment _ = 8+ sizeOf ~_ = 56+ alignment ~_ = 8 peek ptr = VkCopyDescriptorSet <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2860,8 +2860,8 @@ deriving (Eq) instance Storable VkBufferCreateInfo where- sizeOf _ = 56- alignment _ = 8+ sizeOf ~_ = 56+ alignment ~_ = 8 peek ptr = VkBufferCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2893,8 +2893,8 @@ deriving (Eq) instance Storable VkBufferViewCreateInfo where- sizeOf _ = 56- alignment _ = 8+ sizeOf ~_ = 56+ alignment ~_ = 8 peek ptr = VkBufferViewCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -2920,8 +2920,8 @@ deriving (Eq) instance Storable VkImageSubresource where- sizeOf _ = 12- alignment _ = 4+ sizeOf ~_ = 12+ alignment ~_ = 4 peek ptr = VkImageSubresource <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -2940,8 +2940,8 @@ deriving (Eq) instance Storable VkImageSubresourceLayers where- sizeOf _ = 16- alignment _ = 4+ sizeOf ~_ = 16+ alignment ~_ = 4 peek ptr = VkImageSubresourceLayers <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -2963,8 +2963,8 @@ deriving (Eq) instance Storable VkImageSubresourceRange where- sizeOf _ = 20- alignment _ = 4+ sizeOf ~_ = 20+ alignment ~_ = 4 peek ptr = VkImageSubresourceRange <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -2987,8 +2987,8 @@ deriving (Eq) instance Storable VkMemoryBarrier where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkMemoryBarrier <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3014,8 +3014,8 @@ deriving (Eq) instance Storable VkBufferMemoryBarrier where- sizeOf _ = 56- alignment _ = 8+ sizeOf ~_ = 56+ alignment ~_ = 8 peek ptr = VkBufferMemoryBarrier <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3052,8 +3052,8 @@ deriving (Eq) instance Storable VkImageMemoryBarrier where- sizeOf _ = 72- alignment _ = 8+ sizeOf ~_ = 72+ alignment ~_ = 8 peek ptr = VkImageMemoryBarrier <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3097,8 +3097,8 @@ deriving (Eq) instance Storable VkImageCreateInfo where- sizeOf _ = 88- alignment _ = 8+ sizeOf ~_ = 88+ alignment ~_ = 8 peek ptr = VkImageCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3142,8 +3142,8 @@ deriving (Eq) instance Storable VkSubresourceLayout where- sizeOf _ = 40- alignment _ = 8+ sizeOf ~_ = 40+ alignment ~_ = 8 peek ptr = VkSubresourceLayout <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3170,8 +3170,8 @@ deriving (Eq) instance Storable VkImageViewCreateInfo where- sizeOf _ = 80- alignment _ = 8+ sizeOf ~_ = 80+ alignment ~_ = 8 peek ptr = VkImageViewCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3199,8 +3199,8 @@ deriving (Eq) instance Storable VkBufferCopy where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkBufferCopy <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3220,8 +3220,8 @@ deriving (Eq) instance Storable VkSparseMemoryBind where- sizeOf _ = 40- alignment _ = 8+ sizeOf ~_ = 40+ alignment ~_ = 8 peek ptr = VkSparseMemoryBind <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3246,8 +3246,8 @@ deriving (Eq) instance Storable VkSparseImageMemoryBind where- sizeOf _ = 64- alignment _ = 8+ sizeOf ~_ = 64+ alignment ~_ = 8 peek ptr = VkSparseImageMemoryBind <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 12) <*> peek (ptr `plusPtr` 24)@@ -3271,8 +3271,8 @@ deriving (Eq) instance Storable VkSparseBufferMemoryBindInfo where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkSparseBufferMemoryBindInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3290,8 +3290,8 @@ deriving (Eq) instance Storable VkSparseImageOpaqueMemoryBindInfo where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkSparseImageOpaqueMemoryBindInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3309,8 +3309,8 @@ deriving (Eq) instance Storable VkSparseImageMemoryBindInfo where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkSparseImageMemoryBindInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3337,8 +3337,8 @@ deriving (Eq) instance Storable VkBindSparseInfo where- sizeOf _ = 96- alignment _ = 8+ sizeOf ~_ = 96+ alignment ~_ = 8 peek ptr = VkBindSparseInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3376,8 +3376,8 @@ deriving (Eq) instance Storable VkImageCopy where- sizeOf _ = 68- alignment _ = 4+ sizeOf ~_ = 68+ alignment ~_ = 4 peek ptr = VkImageCopy <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 16) <*> peek (ptr `plusPtr` 28)@@ -3400,8 +3400,8 @@ deriving (Eq) instance Storable VkImageBlit where- sizeOf _ = 80- alignment _ = 4+ sizeOf ~_ = 80+ alignment ~_ = 4 peek ptr = VkImageBlit <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 16) <*> peek (ptr `plusPtr` 40)@@ -3424,8 +3424,8 @@ deriving (Eq) instance Storable VkBufferImageCopy where- sizeOf _ = 56- alignment _ = 8+ sizeOf ~_ = 56+ alignment ~_ = 8 peek ptr = VkBufferImageCopy <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 12)@@ -3451,8 +3451,8 @@ deriving (Eq) instance Storable VkImageResolve where- sizeOf _ = 68- alignment _ = 4+ sizeOf ~_ = 68+ alignment ~_ = 4 peek ptr = VkImageResolve <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 16) <*> peek (ptr `plusPtr` 28)@@ -3476,8 +3476,8 @@ deriving (Eq) instance Storable VkShaderModuleCreateInfo where- sizeOf _ = 40- alignment _ = 8+ sizeOf ~_ = 40+ alignment ~_ = 8 peek ptr = VkShaderModuleCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3501,8 +3501,8 @@ deriving (Eq) instance Storable VkDescriptorSetLayoutBinding where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkDescriptorSetLayoutBinding <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -3526,8 +3526,8 @@ deriving (Eq) instance Storable VkDescriptorSetLayoutCreateInfo where- sizeOf _ = 32- alignment _ = 8+ sizeOf ~_ = 32+ alignment ~_ = 8 peek ptr = VkDescriptorSetLayoutCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3548,8 +3548,8 @@ deriving (Eq) instance Storable VkDescriptorPoolSize where- sizeOf _ = 8- alignment _ = 4+ sizeOf ~_ = 8+ alignment ~_ = 4 peek ptr = VkDescriptorPoolSize <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) poke ptr poked = poke (ptr `plusPtr` 0) (vkType (poked :: VkDescriptorPoolSize))@@ -3568,8 +3568,8 @@ deriving (Eq) instance Storable VkDescriptorPoolCreateInfo where- sizeOf _ = 40- alignment _ = 8+ sizeOf ~_ = 40+ alignment ~_ = 8 peek ptr = VkDescriptorPoolCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3595,8 +3595,8 @@ deriving (Eq) instance Storable VkDescriptorSetAllocateInfo where- sizeOf _ = 40- alignment _ = 8+ sizeOf ~_ = 40+ alignment ~_ = 8 peek ptr = VkDescriptorSetAllocateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3618,8 +3618,8 @@ deriving (Eq) instance Storable VkSpecializationMapEntry where- sizeOf _ = 16- alignment _ = 8+ sizeOf ~_ = 16+ alignment ~_ = 8 peek ptr = VkSpecializationMapEntry <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -3638,8 +3638,8 @@ deriving (Eq) instance Storable VkSpecializationInfo where- sizeOf _ = 32- alignment _ = 8+ sizeOf ~_ = 32+ alignment ~_ = 8 peek ptr = VkSpecializationInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3663,8 +3663,8 @@ deriving (Eq) instance Storable VkPipelineShaderStageCreateInfo where- sizeOf _ = 48- alignment _ = 8+ sizeOf ~_ = 48+ alignment ~_ = 8 peek ptr = VkPipelineShaderStageCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3694,8 +3694,8 @@ deriving (Eq) instance Storable VkComputePipelineCreateInfo where- sizeOf _ = 96- alignment _ = 8+ sizeOf ~_ = 96+ alignment ~_ = 8 peek ptr = VkComputePipelineCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3721,8 +3721,8 @@ deriving (Eq) instance Storable VkVertexInputBindingDescription where- sizeOf _ = 12- alignment _ = 4+ sizeOf ~_ = 12+ alignment ~_ = 4 peek ptr = VkVertexInputBindingDescription <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -3741,8 +3741,8 @@ deriving (Eq) instance Storable VkVertexInputAttributeDescription where- sizeOf _ = 16- alignment _ = 4+ sizeOf ~_ = 16+ alignment ~_ = 4 peek ptr = VkVertexInputAttributeDescription <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -3766,8 +3766,8 @@ deriving (Eq) instance Storable VkPipelineVertexInputStateCreateInfo where- sizeOf _ = 48- alignment _ = 8+ sizeOf ~_ = 48+ alignment ~_ = 8 peek ptr = VkPipelineVertexInputStateCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3795,8 +3795,8 @@ deriving (Eq) instance Storable VkPipelineInputAssemblyStateCreateInfo where- sizeOf _ = 32- alignment _ = 8+ sizeOf ~_ = 32+ alignment ~_ = 8 peek ptr = VkPipelineInputAssemblyStateCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3819,8 +3819,8 @@ deriving (Eq) instance Storable VkPipelineTessellationStateCreateInfo where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkPipelineTessellationStateCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3844,8 +3844,8 @@ deriving (Eq) instance Storable VkPipelineViewportStateCreateInfo where- sizeOf _ = 48- alignment _ = 8+ sizeOf ~_ = 48+ alignment ~_ = 8 peek ptr = VkPipelineViewportStateCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3881,8 +3881,8 @@ deriving (Eq) instance Storable VkPipelineRasterizationStateCreateInfo where- sizeOf _ = 64- alignment _ = 8+ sizeOf ~_ = 64+ alignment ~_ = 8 peek ptr = VkPipelineRasterizationStateCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3926,8 +3926,8 @@ deriving (Eq) instance Storable VkPipelineMultisampleStateCreateInfo where- sizeOf _ = 48- alignment _ = 8+ sizeOf ~_ = 48+ alignment ~_ = 8 peek ptr = VkPipelineMultisampleStateCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -3962,8 +3962,8 @@ deriving (Eq) instance Storable VkPipelineColorBlendAttachmentState where- sizeOf _ = 32- alignment _ = 4+ sizeOf ~_ = 32+ alignment ~_ = 4 peek ptr = VkPipelineColorBlendAttachmentState <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -3996,8 +3996,8 @@ deriving (Eq) instance Storable VkPipelineColorBlendStateCreateInfo where- sizeOf _ = 56- alignment _ = 8+ sizeOf ~_ = 56+ alignment ~_ = 8 peek ptr = VkPipelineColorBlendStateCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4027,8 +4027,8 @@ deriving (Eq) instance Storable VkPipelineDynamicStateCreateInfo where- sizeOf _ = 32- alignment _ = 8+ sizeOf ~_ = 32+ alignment ~_ = 8 peek ptr = VkPipelineDynamicStateCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4054,8 +4054,8 @@ deriving (Eq) instance Storable VkStencilOpState where- sizeOf _ = 28- alignment _ = 4+ sizeOf ~_ = 28+ alignment ~_ = 4 peek ptr = VkStencilOpState <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -4090,8 +4090,8 @@ deriving (Eq) instance Storable VkPipelineDepthStencilStateCreateInfo where- sizeOf _ = 104- alignment _ = 8+ sizeOf ~_ = 104+ alignment ~_ = 8 peek ptr = VkPipelineDepthStencilStateCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4143,8 +4143,8 @@ deriving (Eq) instance Storable VkGraphicsPipelineCreateInfo where- sizeOf _ = 144- alignment _ = 8+ sizeOf ~_ = 144+ alignment ~_ = 8 peek ptr = VkGraphicsPipelineCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4196,8 +4196,8 @@ deriving (Eq) instance Storable VkPipelineCacheCreateInfo where- sizeOf _ = 40- alignment _ = 8+ sizeOf ~_ = 40+ alignment ~_ = 8 peek ptr = VkPipelineCacheCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4219,8 +4219,8 @@ deriving (Eq) instance Storable VkPushConstantRange where- sizeOf _ = 12- alignment _ = 4+ sizeOf ~_ = 12+ alignment ~_ = 4 peek ptr = VkPushConstantRange <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -4242,8 +4242,8 @@ deriving (Eq) instance Storable VkPipelineLayoutCreateInfo where- sizeOf _ = 48- alignment _ = 8+ sizeOf ~_ = 48+ alignment ~_ = 8 peek ptr = VkPipelineLayoutCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4284,8 +4284,8 @@ deriving (Eq) instance Storable VkSamplerCreateInfo where- sizeOf _ = 80- alignment _ = 8+ sizeOf ~_ = 80+ alignment ~_ = 8 peek ptr = VkSamplerCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4334,8 +4334,8 @@ deriving (Eq) instance Storable VkCommandPoolCreateInfo where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkCommandPoolCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4357,8 +4357,8 @@ deriving (Eq) instance Storable VkCommandBufferAllocateInfo where- sizeOf _ = 32- alignment _ = 8+ sizeOf ~_ = 32+ alignment ~_ = 8 peek ptr = VkCommandBufferAllocateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4385,8 +4385,8 @@ deriving (Eq) instance Storable VkCommandBufferInheritanceInfo where- sizeOf _ = 56- alignment _ = 8+ sizeOf ~_ = 56+ alignment ~_ = 8 peek ptr = VkCommandBufferInheritanceInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4415,8 +4415,8 @@ deriving (Eq) instance Storable VkCommandBufferBeginInfo where- sizeOf _ = 32- alignment _ = 8+ sizeOf ~_ = 32+ alignment ~_ = 8 peek ptr = VkCommandBufferBeginInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4440,8 +4440,8 @@ deriving (Eq) instance Storable VkRenderPassBeginInfo where- sizeOf _ = 64- alignment _ = 8+ sizeOf ~_ = 64+ alignment ~_ = 8 peek ptr = VkRenderPassBeginInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4466,8 +4466,8 @@ deriving (Eq) instance Storable VkClearDepthStencilValue where- sizeOf _ = 8- alignment _ = 4+ sizeOf ~_ = 8+ alignment ~_ = 4 peek ptr = VkClearDepthStencilValue <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) poke ptr poked = poke (ptr `plusPtr` 0) (vkDepth (poked :: VkClearDepthStencilValue))@@ -4483,8 +4483,8 @@ deriving (Eq) instance Storable VkClearAttachment where- sizeOf _ = 24- alignment _ = 4+ sizeOf ~_ = 24+ alignment ~_ = 4 peek ptr = VkClearAttachment <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -4508,8 +4508,8 @@ deriving (Eq) instance Storable VkAttachmentDescription where- sizeOf _ = 36- alignment _ = 4+ sizeOf ~_ = 36+ alignment ~_ = 4 peek ptr = VkAttachmentDescription <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -4538,8 +4538,8 @@ deriving (Eq) instance Storable VkAttachmentReference where- sizeOf _ = 8- alignment _ = 4+ sizeOf ~_ = 8+ alignment ~_ = 4 peek ptr = VkAttachmentReference <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) poke ptr poked = poke (ptr `plusPtr` 0) (vkAttachment (poked :: VkAttachmentReference))@@ -4562,8 +4562,8 @@ deriving (Eq) instance Storable VkSubpassDescription where- sizeOf _ = 72- alignment _ = 8+ sizeOf ~_ = 72+ alignment ~_ = 8 peek ptr = VkSubpassDescription <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -4599,8 +4599,8 @@ deriving (Eq) instance Storable VkSubpassDependency where- sizeOf _ = 28- alignment _ = 4+ sizeOf ~_ = 28+ alignment ~_ = 4 peek ptr = VkSubpassDependency <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -4632,8 +4632,8 @@ deriving (Eq) instance Storable VkRenderPassCreateInfo where- sizeOf _ = 64- alignment _ = 8+ sizeOf ~_ = 64+ alignment ~_ = 8 peek ptr = VkRenderPassCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4663,8 +4663,8 @@ deriving (Eq) instance Storable VkEventCreateInfo where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkEventCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4682,8 +4682,8 @@ deriving (Eq) instance Storable VkFenceCreateInfo where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkFenceCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -4753,8 +4753,8 @@ deriving (Eq) instance Storable VkPhysicalDeviceFeatures where- sizeOf _ = 220- alignment _ = 4+ sizeOf ~_ = 220+ alignment ~_ = 4 peek ptr = VkPhysicalDeviceFeatures <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -4878,8 +4878,8 @@ deriving (Eq) instance Storable VkPhysicalDeviceSparseProperties where- sizeOf _ = 20- alignment _ = 4+ sizeOf ~_ = 20+ alignment ~_ = 4 peek ptr = VkPhysicalDeviceSparseProperties <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -5004,8 +5004,8 @@ deriving (Eq) instance Storable VkPhysicalDeviceLimits where- sizeOf _ = 504- alignment _ = 8+ sizeOf ~_ = 504+ alignment ~_ = 8 peek ptr = VkPhysicalDeviceLimits <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -5229,8 +5229,8 @@ deriving (Eq) instance Storable VkSemaphoreCreateInfo where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkSemaphoreCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5251,8 +5251,8 @@ deriving (Eq) instance Storable VkQueryPoolCreateInfo where- sizeOf _ = 32- alignment _ = 8+ sizeOf ~_ = 32+ alignment ~_ = 8 peek ptr = VkQueryPoolCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5282,8 +5282,8 @@ deriving (Eq) instance Storable VkFramebufferCreateInfo where- sizeOf _ = 64- alignment _ = 8+ sizeOf ~_ = 64+ alignment ~_ = 8 peek ptr = VkFramebufferCreateInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5314,8 +5314,8 @@ deriving (Eq) instance Storable VkDrawIndirectCommand where- sizeOf _ = 16- alignment _ = 4+ sizeOf ~_ = 16+ alignment ~_ = 4 peek ptr = VkDrawIndirectCommand <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -5337,8 +5337,8 @@ deriving (Eq) instance Storable VkDrawIndexedIndirectCommand where- sizeOf _ = 20- alignment _ = 4+ sizeOf ~_ = 20+ alignment ~_ = 4 peek ptr = VkDrawIndexedIndirectCommand <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -5360,8 +5360,8 @@ deriving (Eq) instance Storable VkDispatchIndirectCommand where- sizeOf _ = 12- alignment _ = 4+ sizeOf ~_ = 12+ alignment ~_ = 4 peek ptr = VkDispatchIndirectCommand <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -5385,8 +5385,8 @@ deriving (Eq) instance Storable VkSubmitInfo where- sizeOf _ = 72- alignment _ = 8+ sizeOf ~_ = 72+ alignment ~_ = 8 peek ptr = VkSubmitInfo <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5420,8 +5420,8 @@ deriving (Eq) instance Storable VkDisplayPropertiesKHR where- sizeOf _ = 48- alignment _ = 8+ sizeOf ~_ = 48+ alignment ~_ = 8 peek ptr = VkDisplayPropertiesKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5446,8 +5446,8 @@ deriving (Eq) instance Storable VkDisplayPlanePropertiesKHR where- sizeOf _ = 16- alignment _ = 8+ sizeOf ~_ = 16+ alignment ~_ = 8 peek ptr = VkDisplayPlanePropertiesKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) poke ptr poked = poke (ptr `plusPtr` 0) (vkCurrentDisplay (poked :: VkDisplayPlanePropertiesKHR))@@ -5462,8 +5462,8 @@ deriving (Eq) instance Storable VkDisplayModeParametersKHR where- sizeOf _ = 12- alignment _ = 4+ sizeOf ~_ = 12+ alignment ~_ = 4 peek ptr = VkDisplayModeParametersKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) poke ptr poked = poke (ptr `plusPtr` 0) (vkVisibleRegion (poked :: VkDisplayModeParametersKHR))@@ -5478,8 +5478,8 @@ deriving (Eq) instance Storable VkDisplayModePropertiesKHR where- sizeOf _ = 24- alignment _ = 8+ sizeOf ~_ = 24+ alignment ~_ = 8 peek ptr = VkDisplayModePropertiesKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) poke ptr poked = poke (ptr `plusPtr` 0) (vkDisplayMode (poked :: VkDisplayModePropertiesKHR))@@ -5496,8 +5496,8 @@ deriving (Eq) instance Storable VkDisplayModeCreateInfoKHR where- sizeOf _ = 32- alignment _ = 8+ sizeOf ~_ = 32+ alignment ~_ = 8 peek ptr = VkDisplayModeCreateInfoKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5523,8 +5523,8 @@ deriving (Eq) instance Storable VkDisplayPlaneCapabilitiesKHR where- sizeOf _ = 68- alignment _ = 4+ sizeOf ~_ = 68+ alignment ~_ = 4 peek ptr = VkDisplayPlaneCapabilitiesKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 12)@@ -5561,8 +5561,8 @@ deriving (Eq) instance Storable VkDisplaySurfaceCreateInfoKHR where- sizeOf _ = 64- alignment _ = 8+ sizeOf ~_ = 64+ alignment ~_ = 8 peek ptr = VkDisplaySurfaceCreateInfoKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5596,8 +5596,8 @@ deriving (Eq) instance Storable VkDisplayPresentInfoKHR where- sizeOf _ = 56- alignment _ = 8+ sizeOf ~_ = 56+ alignment ~_ = 8 peek ptr = VkDisplayPresentInfoKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5626,8 +5626,8 @@ deriving (Eq) instance Storable VkSurfaceCapabilitiesKHR where- sizeOf _ = 52- alignment _ = 4+ sizeOf ~_ = 52+ alignment ~_ = 4 peek ptr = VkSurfaceCapabilitiesKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) <*> peek (ptr `plusPtr` 8)@@ -5658,8 +5658,8 @@ deriving (Eq) instance Storable VkSurfaceFormatKHR where- sizeOf _ = 8- alignment _ = 4+ sizeOf ~_ = 8+ alignment ~_ = 4 peek ptr = VkSurfaceFormatKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 4) poke ptr poked = poke (ptr `plusPtr` 0) (vkFormat (poked :: VkSurfaceFormatKHR))@@ -5690,8 +5690,8 @@ deriving (Eq) instance Storable VkSwapchainCreateInfoKHR where- sizeOf _ = 104- alignment _ = 8+ sizeOf ~_ = 104+ alignment ~_ = 8 peek ptr = VkSwapchainCreateInfoKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5744,8 +5744,8 @@ deriving (Eq) instance Storable VkPresentInfoKHR where- sizeOf _ = 64- alignment _ = 8+ sizeOf ~_ = 64+ alignment ~_ = 8 peek ptr = VkPresentInfoKHR <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5775,8 +5775,8 @@ deriving (Eq) instance Storable VkDebugReportCallbackCreateInfoEXT where- sizeOf _ = 40- alignment _ = 8+ sizeOf ~_ = 40+ alignment ~_ = 8 peek ptr = VkDebugReportCallbackCreateInfoEXT <$> peek (ptr `plusPtr` 0) <*> peek (ptr `plusPtr` 8) <*> peek (ptr `plusPtr` 16)@@ -5799,9 +5799,9 @@ -- | _Note_: peek is undefined as we wouldn't know which constructor to use instance Storable VkClearColorValue where- sizeOf _ = 16- alignment _ = 4- peek _ = error "peek@VkClearColorValue"+ sizeOf ~_ = 16+ alignment ~_ = 4+ peek ~_ = error "peek@VkClearColorValue" poke ptr poked = case poked of VkFloat e -> poke (castPtr ptr) e VkInt e -> poke (castPtr ptr) e@@ -5815,9 +5815,9 @@ -- | _Note_: peek is undefined as we wouldn't know which constructor to use instance Storable VkClearValue where- sizeOf _ = 16- alignment _ = 4- peek _ = error "peek@VkClearValue"+ sizeOf ~_ = 16+ alignment ~_ = 4+ peek ~_ = error "peek@VkClearValue" poke ptr poked = case poked of VkColor e -> poke (castPtr ptr) e VkDepthStencil e -> poke (castPtr ptr) e
vulkan.cabal view
@@ -1,5 +1,5 @@ name: vulkan-version: 0.1.0.0+version: 0.2.0.0 synopsis: Bindings to the Vulkan graphics API. description: Please see readme.md homepage: http://github.com/expipiplus1/vulkan#readme@@ -19,7 +19,7 @@ build-depends: base >= 4.9 && < 5 , fixed-vector >= 0.8 && < 0.9 default-language: Haskell2010- ghc-options: -freduction-depth=0+ ghc-options: -freduction-depth=0 source-repository head type: git