diff --git a/gpu-vulkan-middle.cabal b/gpu-vulkan-middle.cabal
--- a/gpu-vulkan-middle.cabal
+++ b/gpu-vulkan-middle.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           gpu-vulkan-middle
-version:        0.1.0.67
+version:        0.1.0.68
 synopsis:       Medium wrapper for Vulkan API
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/gpu-vulkan-middle#readme>
 category:       GPU
diff --git a/src/Gpu/Vulkan/Middle/Internal.hsc b/src/Gpu/Vulkan/Middle/Internal.hsc
--- a/src/Gpu/Vulkan/Middle/Internal.hsc
+++ b/src/Gpu/Vulkan/Middle/Internal.hsc
@@ -58,6 +58,7 @@
 import Control.Arrow
 import Control.Monad
 import Data.Kind
+import Data.Bits
 import Data.Default
 import Data.TypeLevel.Tuple.Uncurry
 import Data.TypeLevel.Maybe qualified as TMaybe
@@ -98,7 +99,8 @@
 
 deriving instance Show (TMaybe.M mn) => Show (ApplicationInfo mn)
 
-newtype ApiVersion = ApiVersion C.ApiVersion deriving (Show, Eq, Ord, Storable)
+newtype ApiVersion = ApiVersion C.ApiVersion
+	deriving (Show, Eq, Ord, Storable, Bits)
 
 apiVersion_1_0, apiVersion_1_1, apiVersion_1_2, apiVersion_1_3 :: ApiVersion
 apiVersion_1_0 = ApiVersion C.apiVersion_1_0