some polish

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)