a little cleanup

src/Devices.hs

@@ -61,10 +61,10 @@ createLogicalDevice physDevice surface = do
       extensionNames = V.singleton Vk.KHR_SWAPCHAIN_EXTENSION_NAME
       queueCreateInfo = Vk.zero
         { Vk.queueFamilyIndex = 0
-        , Vk.queuePriorities = priorities
+        , Vk.queuePriorities  = priorities
         }
       deviceCreateInfo = Vk.zero
-        { Vk.queueCreateInfos = V.singleton (Vk.SomeStruct queueCreateInfo)
+        { Vk.queueCreateInfos      = V.singleton (Vk.SomeStruct queueCreateInfo)
         , Vk.enabledExtensionNames = extensionNames
         }
 

src/Instance.hs

@@ -20,14 +20,14 @@ createInstance window = do
     print ("activating followinfg extensions:" :: String)
     print windowExtensions
   let createInfo = Vk.zero
-        { Vk.applicationInfo = Just Vk.zero
+        { Vk.applicationInfo       = Just Vk.zero
-          { Vk.applicationName = Nothing
+          { Vk.applicationName = Just "Haskell ❤️ Vulkan"
           , Vk.apiVersion      = Vk.API_VERSION_1_3
           }
           -- enable debug util extension for debugging purposes
         , Vk.enabledExtensionNames = V.fromList windowExtensions
           -- enable validation layer for debugging purposes
-        , Vk.enabledLayerNames = V.singleton "VK_LAYER_KHRONOS_validation"
+        , Vk.enabledLayerNames     = V.singleton "VK_LAYER_KHRONOS_validation"
         }
 
   (_, inst) <- allocate