some more cleaning

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