From 167599df74211392da8216a1fc8f39efd38d7213 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 25 Aug 2023 00:59:36 +0200 Subject: [PATCH] try fixing --- src/CommandBuffer.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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