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