diff --git a/src/CommandBuffer.hs b/src/CommandBuffer.hs index 60c315a..cf836a9 100644 --- a/src/CommandBuffer.hs +++ b/src/CommandBuffer.hs @@ -61,7 +61,7 @@ createFrames (\_ -> do commandPool <- snd <$> - (Vk.withCommandPool logicalDevice poolCreateInfo Nothing allocate) + Vk.withCommandPool logicalDevice poolCreateInfo Nothing allocate let commandBufferAllocationInfo = Vk.zero { Vk.commandPool = commandPool @@ -296,7 +296,7 @@ recordCommandBuffer commandBuffer (allocatedBuffer $ frameIndirectBuffer frame) indirectOffset - (fromIntegral $ V.length draws) + count drawStride ) draws