From bd578e1d98bfaee051660f3b8aaf644a386f866d Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sat, 29 Apr 2023 19:54:52 +0200
Subject: [PATCH] some more cleaning

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

diff --git a/src/CommandBuffer.hs b/src/CommandBuffer.hs
index c98ffda..eb12187 100644
--- a/src/CommandBuffer.hs
+++ b/src/CommandBuffer.hs
@@ -178,7 +178,7 @@ recordCommandBuffer
   commandBuffer
   renderPass
   frameBuffer
-  (V2 width height)
+  dimensions@(V2 width height)
   graphicsPipeline
   frame
   = do
@@ -212,7 +212,7 @@ recordCommandBuffer
       Vk.cmdUseRenderPass commandBuffer renderPassInfo Vk.SUBPASS_CONTENTS_INLINE $ do
 
         liftIO $
-          prepareRecording width height commandBuffer graphicsPipeline
+          prepareRecording dimensions commandBuffer graphicsPipeline
 
         renderObjects <- (liftIO . STM.atomically . STM.readTMVar) =<< asks renderables
         meshMap <- (liftIO . STM.atomically . STM.readTMVar) =<< asks meshLibrary
@@ -271,12 +271,11 @@ recordCommandBuffer
             )
 
 prepareRecording
-  :: CInt
-  -> CInt
+  :: V2 CInt
   -> Vk.CommandBuffer
   -> Vk.Pipeline
   -> IO ()
-prepareRecording width height commandBuffer graphicsPipeline = do
+prepareRecording (V2 width height) commandBuffer graphicsPipeline = do
   Vk.cmdBindPipeline commandBuffer Vk.PIPELINE_BIND_POINT_GRAPHICS graphicsPipeline
 
   let viewport = Vk.zero