From b8d56ecb2cd09935acd85a783ad969d19904a8ec Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Thu, 14 Jul 2022 17:05:59 +0200
Subject: [PATCH] it works!

---
 src/Draw.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Draw.hs b/src/Draw.hs
index cc5e2be..98a7740 100644
--- a/src/Draw.hs
+++ b/src/Draw.hs
@@ -71,7 +71,7 @@ drawFrame
     let presentInfo = Vk.zero
           { Khr.waitSemaphores = V.singleton renderFinishedSemaphore
           , Khr.swapchains = V.singleton swapchain
-          , Khr.imageIndices = V.singleton index
+          , Khr.imageIndices = V.singleton 0
           }
 
     presentResult <- Khr.queuePresentKHR graphicsQueue presentInfo