Fix for 279

expipiplus1 · Apr 16, 2021 · 6c040cb · 6c040cb
1 parent 4bb8477
commit 6c040cb
Showing 1 changed file with 13 additions and 13 deletions.
diff --git 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)