From bd578e1d98bfaee051660f3b8aaf644a386f866d Mon Sep 17 00:00:00 2001 From: nek0 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