diff --git a/gpu-vulkan.cabal b/gpu-vulkan.cabal
--- a/gpu-vulkan.cabal
+++ b/gpu-vulkan.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           gpu-vulkan
-version:        0.1.0.140
+version:        0.1.0.141
 synopsis:       Vulkan library
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/gpu-vulkan#readme>
 category:       GPU
diff --git a/src/Gpu/Vulkan/CommandBuffer.hs b/src/Gpu/Vulkan/CommandBuffer.hs
--- a/src/Gpu/Vulkan/CommandBuffer.hs
+++ b/src/Gpu/Vulkan/CommandBuffer.hs
@@ -17,7 +17,7 @@
 
 	-- ** Type Level List
 
-	allocate, AllocateInfo(..),
+	allocateCs, AllocateInfo(..),
 
 	-- ** Value Level List
 
@@ -47,11 +47,11 @@
 import qualified Gpu.Vulkan.CommandPool.Type as CommandPool
 import qualified Gpu.Vulkan.CommandBuffer.Middle as M
 
-allocate :: (
+allocateCs :: (
 	WithPoked (TMaybe.M mn), TLength.Length c, HeteroParList.FromList c ) =>
 	Device.D sd -> AllocateInfo mn scp c ->
 	(forall scb . HeteroParList.LL (C scb) c -> IO a) -> IO a
-allocate (Device.D dvc) ai f = bracket
+allocateCs (Device.D dvc) ai f = bracket
 	(M.allocateCs dvc $ allocateInfoToMiddle ai)
 	(M.freeCs dvc
 		. (\(CommandPool.C cp) -> cp) $ allocateInfoCommandPool ai)