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.56
+version:        0.1.0.57
 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/Image/Middle/Internal.hs b/src/Gpu/Vulkan/Image/Middle/Internal.hs
--- a/src/Gpu/Vulkan/Image/Middle/Internal.hs
+++ b/src/Gpu/Vulkan/Image/Middle/Internal.hs
@@ -101,7 +101,7 @@
 	createInfoTiling :: Tiling,
 	createInfoUsage :: UsageFlags,
 	createInfoSharingMode :: SharingMode,
-	createInfoQueueFamilyIndices :: [Word32],
+	createInfoQueueFamilyIndices :: [QueueFamily.Index],
 	createInfoInitialLayout :: Layout }
 
 deriving instance Show (TMaybe.M mn) => Show (CreateInfo mn)
@@ -120,7 +120,8 @@
 	createInfoTiling = Tiling tlng,
 	createInfoUsage = UsageFlagBits usg,
 	createInfoSharingMode = SharingMode sm,
-	createInfoQueueFamilyIndices = length &&& id -> (qfic, qfis),
+	createInfoQueueFamilyIndices =
+		length &&& (QueueFamily.unIndex <$>) -> (qfic, qfis),
 	createInfoInitialLayout = Layout lyt } f =
 	withPoked' mnxt \pnxt -> withPtrS pnxt \(castPtr -> pnxt') ->
 	allocaArray qfic \pqfis -> do