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