From 1643d8b3db9f2cbcfced9680c9ae521df4bf4d51 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sat, 29 Apr 2023 18:56:07 +0200
Subject: [PATCH] more cleanup

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

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