From 4feac51f26c7aa49920a44bf287e4d73829995cc Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sun, 22 Oct 2023 07:14:22 +0200
Subject: [PATCH] weed out stuff

---
 src/CommandBuffer.hs | 45 --------------------------------------------
 1 file changed, 45 deletions(-)

diff --git a/src/CommandBuffer.hs b/src/CommandBuffer.hs
index 868a3b5..70971e0 100644
--- a/src/CommandBuffer.hs
+++ b/src/CommandBuffer.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE DuplicateRecordFields #-}
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE FlexibleContexts #-}
@@ -320,50 +319,6 @@ recordCommandBuffer
             )
           draws
 
-        -- V.mapM_
-        --   (\(IndirectBatch mesh material first count) -> do
-
-        --     when
-        --       (materialTextureSet material /= Vk.NULL_HANDLE)
-        --       (Vk.cmdBindDescriptorSets
-        --         commandBuffer
-        --         Vk.PIPELINE_BIND_POINT_GRAPHICS
-        --         (materialPipelineLayout material)
-        --         2
-        --         (V.singleton $ materialTextureSet material)
-        --         V.empty
-        --         )
-
-        --     Vk.cmdBindPipeline commandBuffer Vk.PIPELINE_BIND_POINT_GRAPHICS (materialPipeline material)
-
-        --     Vk.cmdBindDescriptorSets
-        --       commandBuffer
-        --       Vk.PIPELINE_BIND_POINT_GRAPHICS
-        --       (materialPipelineLayout material)
-        --       0
-        --       (V.singleton $ frameGlobalDescriptor frame)
-        --       V.empty
-
-        --     Vk.cmdBindDescriptorSets
-        --       commandBuffer
-        --       Vk.PIPELINE_BIND_POINT_GRAPHICS
-        --       (materialPipelineLayout material)
-        --       1
-        --       (V.singleton $ frameObjectDescriptor frame)
-        --       V.empty
-
-        --     Vk.cmdBindVertexBuffers
-        --       commandBuffer
-        --       0
-        --       (V.fromList [ allocatedBuffer $ meshBuffer mesh ])
-        --       (V.fromList [ 0 ])
-
-        --     mapM_
-        --       (Vk.cmdDraw commandBuffer (fromIntegral $ V.length $ meshVertices mesh) 1 0)
-        --       [first .. (count - 1)]
-        --     )
-        --   draws
-
 prepareRecording
   :: V2 CInt
   -> Vk.CommandBuffer