diff --git a/src/Devices.hs b/src/Devices.hs index ed1c7e8..304f565 100644 --- a/src/Devices.hs +++ b/src/Devices.hs @@ -170,7 +170,7 @@ getImageViewHandles swapchain surfaceFormat logicalDevice = do snd <$> allocate (Vk.createImageView logicalDevice createInfo Nothing) (\imageView -> do - print ("destrying image view" :: String) + print ("destroying image view" :: String) Vk.destroyImageView logicalDevice imageView Nothing ) )