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.166
+version:        0.1.0.167
 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/ImageView.hs b/src/Gpu/Vulkan/ImageView.hs
--- a/src/Gpu/Vulkan/ImageView.hs
+++ b/src/Gpu/Vulkan/ImageView.hs
@@ -11,7 +11,7 @@
 
 	-- * CREATE
 
-	create, unsafeRecreate, unsafeRecreate', I, CreateInfo(..),
+	create, null, unsafeRecreate, unsafeRecreate', I, CreateInfo(..),
 
 	-- ** Manage Multiple Image View
 
@@ -23,7 +23,7 @@
 
 	) where
 
-import Prelude hiding (lookup)
+import Prelude hiding (null, lookup)
 import GHC.TypeLits
 import Foreign.Storable.PeekPoke
 import Control.Exception
@@ -78,6 +78,9 @@
 create (Device.D d) ci (AllocationCallbacks.toMiddle -> mac) f = bracket
 	(M.create d (createInfoToMiddle ci) mac)
 	(\i -> M.destroy d i mac) (f . I)
+
+null :: IO (I nm ivfmt s)
+null = I <$> M.null
 
 group ::
 	AllocationCallbacks.ToMiddle ma =>