try fixing

2023-08-25 00:59:36 +02:00 · 2023-08-25 00:59:36 +02:00 · 167599df74
commit 167599df74
parent 9350198e35
1 changed files with 2 additions and 2 deletions
--- 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