From 87cbc2a2548d1e069455b476c891cb4316a6344a Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 10 Jul 2022 20:08:12 +0200 Subject: [PATCH] some polish --- src/Main.hs | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index ceea71a..a90c141 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -56,7 +56,12 @@ initEngine => m (SDL.Window, Vk.Instance, Vk.SurfaceKHR, Vk.SwapchainKHR, V.Vector Vk.Image) initEngine = do -- initialize SDL2 with all subsystems - void $ allocate_ SDL.initializeAll SDL.quit + void $ allocate_ + SDL.initializeAll + (do + print ("This is the end!" :: String) + SDL.quit + ) -- create a window configuration let windowConfig = SDL.defaultWindow @@ -110,7 +115,7 @@ createInstance window = do windowExtensions <- liftIO $ fmap (Vk.EXT_DEBUG_UTILS_EXTENSION_NAME :) $ traverse BS.packCString =<< SDL.vkGetInstanceExtensions window liftIO $ do - print ("activating followinfg rxtensions:" :: String) + print ("activating followinfg extensions:" :: String) print windowExtensions let createInfo = Vk.zero { Vk.applicationInfo = Just Vk.zero @@ -127,7 +132,10 @@ createInstance window = do (_, inst) <- allocate (Vk.createInstance createInfo Nothing) - (`Vk.destroyInstance` Nothing) + (\inst -> do + print ("destroying instance" :: String) + Vk.destroyInstance inst Nothing + ) return inst @@ -209,7 +217,10 @@ createSwapchain surface windowDimension logicalDevice = do snd <$> allocate (Vk.createSwapchainKHR logicalDevice createInfo Nothing) - (\swapchain -> Vk.destroySwapchainKHR logicalDevice swapchain Nothing) + (\swapchain -> do + print ("destroying Swapchain" :: String) + Vk.destroySwapchainKHR logicalDevice swapchain Nothing + ) getImageHandles :: (MonadResource m)