more cleanup

This commit is contained in:
nek0 2023-04-29 18:56:07 +02:00
parent cec99c0b6c
commit 1643d8b3db

View file

@ -212,7 +212,7 @@ recordCommandBuffer
Vk.cmdUseRenderPass commandBuffer renderPassInfo Vk.SUBPASS_CONTENTS_INLINE $ do Vk.cmdUseRenderPass commandBuffer renderPassInfo Vk.SUBPASS_CONTENTS_INLINE $ do
liftIO $ liftIO $
prepareRecording width height commandBuffer renderPass frameBuffer graphicsPipeline prepareRecording width height commandBuffer graphicsPipeline
renderObjects <- (liftIO . STM.atomically . STM.readTMVar) =<< asks renderables renderObjects <- (liftIO . STM.atomically . STM.readTMVar) =<< asks renderables
meshMap <- (liftIO . STM.atomically . STM.readTMVar) =<< asks meshLibrary meshMap <- (liftIO . STM.atomically . STM.readTMVar) =<< asks meshLibrary
@ -274,11 +274,9 @@ prepareRecording
:: CInt :: CInt
-> CInt -> CInt
-> Vk.CommandBuffer -> Vk.CommandBuffer
-> Vk.RenderPass
-> Vk.Framebuffer
-> Vk.Pipeline -> Vk.Pipeline
-> IO () -> IO ()
prepareRecording width height commandBuffer renderPass frameBuffer graphicsPipeline = do prepareRecording width height commandBuffer graphicsPipeline = do
Vk.cmdBindPipeline commandBuffer Vk.PIPELINE_BIND_POINT_GRAPHICS graphicsPipeline Vk.cmdBindPipeline commandBuffer Vk.PIPELINE_BIND_POINT_GRAPHICS graphicsPipeline
let viewport = Vk.zero let viewport = Vk.zero