From 6c040cbe19d53a9a0b2e93b7f3f9cb7f5b281386 Mon Sep 17 00:00:00 2001 From: Joe Hermaszewski Date: Fri, 16 Apr 2021 22:07:38 +0800 Subject: [PATCH] Fix for 279 --- generate-new/src/Spec/Parse.hs | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/generate-new/src/Spec/Parse.hs b/generate-new/src/Spec/Parse.hs index 706c2fd47..6ed6e841b 100644 --- a/generate-new/src/Spec/Parse.hs +++ b/generate-new/src/Spec/Parse.hs @@ -629,20 +629,20 @@ parseHandles = onTypes "handle" parseHandle "VkDevice" -> pure Device "XrInstance" -> pure Instance _ -> case getAttr "parent" n of - Nothing -> pure NoHandleLevel + Nothing -> pure NoHandleLevel -- TODO: derive this from the spec - Just "VkInstance" -> pure Instance - Just "VkPhysicalDevice" -> pure Instance - Just "VkDevice" -> pure Device - Just "VkCommandPool" -> pure Device - Just "VkDescriptorPool" -> pure Device - Just "VkDisplayKHR" -> pure Instance - Just "VkSurfaceKHR" -> pure Instance - Just "VkVideoSessionParametersKHR" -> pure Device - Just "XrInstance" -> pure Instance - Just "XrSession" -> pure Instance - Just "XrActionSet" -> pure Instance - _ -> throw "Unknown handle level" + Just "VkInstance" -> pure Instance + Just "VkPhysicalDevice" -> pure Instance + Just "VkDevice" -> pure Device + Just "VkCommandPool" -> pure Device + Just "VkDescriptorPool" -> pure Device + Just "VkDisplayKHR" -> pure Instance + Just "VkSurfaceKHR" -> pure Instance + Just "VkVideoSessionKHR" -> pure Device + Just "XrInstance" -> pure Instance + Just "XrSession" -> pure Instance + Just "XrActionSet" -> pure Instance + _ -> throw "Unknown handle level" pure Handle { .. } parseFuncPointers :: [Content] -> P (Vector FuncPointer)