diff --git a/src/Devices.hs b/src/Devices.hs index e4be9b6..ed1c7e8 100644 --- a/src/Devices.hs +++ b/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 } diff --git a/src/Instance.hs b/src/Instance.hs index 5c76a7a..a306396 100644 --- a/src/Instance.hs +++ b/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.applicationName = Nothing + { Vk.applicationInfo = Just Vk.zero + { 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