Add complete pragma to MAKE_VERSION

Closes #256
expipiplus1 · Feb 6, 2021 · b9ac855 · b9ac855
1 parent d27a662
commit b9ac855
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 0 deletions.
diff --git a/changelog.md b/changelog.md
@@ -2,6 +2,8 @@
 
 ## WIP
 - Bump API version to v1.2.168
+- Add `COMPLETE` pragma to `MAKE_VERSION` pattern
+  https://github.com/expipiplus1/vulkan/issues/256
 
 ## [3.10] - 2021-01-09
 - Make zero instance for `TransformMatrixKHR` return identity matrix. See

diff --git a/generate-new/khronos-spec/Khronos/Versions/OpenXR.hs b/generate-new/khronos-spec/Khronos/Versions/OpenXR.hs
@@ -126,6 +126,8 @@ versionConstruction = genRe "version construction" $ do
                                 .|. fromIntegral minor `shiftL` 32
                                 .|. fromIntegral patch
 
+    \{-# complete {p} #-}
+
     {patMajor} :: Version -> Word16
     {patMajor} (Version v) = fromIntegral $ (v `shiftR` 48) .&. 0xffff
 

diff --git a/generate-new/src/Render/Spec/Versions.hs b/generate-new/src/Render/Spec/Versions.hs
@@ -103,6 +103,8 @@ versionConstruction = genRe "version construction" $ do
       (\\v -> ({patMajor} v, {patMinor} v, {patPatch} v) -> (major, minor, patch))
       where {mkPatternName "VK_MAKE_VERSION"} major minor patch = major `shiftL` 22 .|. minor `shiftL` 12 .|. patch
 
+    \{-# complete {mkPatternName "VK_MAKE_VERSION"} #-}
+
     {patMajor} :: Word32 -> Word32
     {patMajor} v = v `shiftR` 22
 

diff --git a/src/Vulkan/Version.hs b/src/Vulkan/Version.hs
@@ -27,6 +27,8 @@ pattern MAKE_VERSION major minor patch <-
   (\v -> (_VERSION_MAJOR v, _VERSION_MINOR v, _VERSION_PATCH v) -> (major, minor, patch))
   where MAKE_VERSION major minor patch = major `shiftL` 22 .|. minor `shiftL` 12 .|. patch
 
+{-# complete MAKE_VERSION #-}
+
 _VERSION_MAJOR :: Word32 -> Word32
 _VERSION_MAJOR v = v `shiftR` 22