From 167599df74211392da8216a1fc8f39efd38d7213 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
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