From 9084be8bbac335f98c30a4036852bebb90cdc860 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sat, 20 May 2023 18:36:31 +0200
Subject: [PATCH] first little optimisation

---
 src/CommandBuffer.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/CommandBuffer.hs b/src/CommandBuffer.hs
index fac592d..687697b 100644
--- a/src/CommandBuffer.hs
+++ b/src/CommandBuffer.hs
@@ -265,8 +265,10 @@ recordCommandBuffer
               (V.fromList [ 0 ])
 
             mapM_
-              (Vk.cmdDraw commandBuffer (fromIntegral $ V.length $ meshVertices mesh) 1 0)
-              [first .. (count - 1)]
+              (\index ->
+                Vk.cmdDraw commandBuffer (fromIntegral $ V.length $ meshVertices mesh) 1 0 index
+                )
+              ([first .. first + count])
             )
           draws