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.155
+version:        0.1.0.157
 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.hs b/src/Gpu/Vulkan.hs
--- a/src/Gpu/Vulkan.hs
+++ b/src/Gpu/Vulkan.hs
@@ -15,7 +15,8 @@
 	-- ** ApplicationINfo
 
 	ApplicationInfo(..),
-	ApiVersion, makeApiVersion, apiVersion_1_0, apiVersion_1_1,
+	ApiVersion, makeApiVersion,
+	apiVersion_1_0, apiVersion_1_1, apiVersion_1_2, apiVersion_1_3,
 
 	-- ** SubmitInfo
 
diff --git a/src/Gpu/Vulkan/Internal.hs b/src/Gpu/Vulkan/Internal.hs
--- a/src/Gpu/Vulkan/Internal.hs
+++ b/src/Gpu/Vulkan/Internal.hs
@@ -15,7 +15,8 @@
 	-- ** ApplicationINfo
 
 	M.ApplicationInfo(..),
-	M.ApiVersion, M.makeApiVersion, M.apiVersion_1_0, M.apiVersion_1_1,
+	M.ApiVersion, M.makeApiVersion,
+	M.apiVersion_1_0, M.apiVersion_1_1, M.apiVersion_1_2, M.apiVersion_1_3,
 
 	-- ** SubmitInfo
 
diff --git a/src/Gpu/Vulkan/Sampler.hs b/src/Gpu/Vulkan/Sampler.hs
--- a/src/Gpu/Vulkan/Sampler.hs
+++ b/src/Gpu/Vulkan/Sampler.hs
@@ -2,14 +2,14 @@
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE MonoLocalBinds #-}
 {-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE PatternSynonyms, ViewPatterns #-}
 {-# OPTIONS_GHC -Wall -fno-warn-tabs #-}
 
 module Gpu.Vulkan.Sampler (
 
 	-- * CREATE
 
-	create, S, M.CreateInfo(..),
+	create, S, pattern Null, M.CreateInfo(..),
 
 	-- * ENUM
 
diff --git a/src/Gpu/Vulkan/Sampler/Type.hs b/src/Gpu/Vulkan/Sampler/Type.hs
--- a/src/Gpu/Vulkan/Sampler/Type.hs
+++ b/src/Gpu/Vulkan/Sampler/Type.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE PatternSynonyms #-}
 {-# OPTIONS_GHC -Wall -fno-warn-tabs #-}
 
 module Gpu.Vulkan.Sampler.Type where
@@ -5,3 +6,7 @@
 import qualified Gpu.Vulkan.Sampler.Middle as M
 
 newtype S s = S { sToMiddle :: M.S } deriving Show
+
+pattern Null :: S s
+pattern Null <- S M.Null where
+	Null = S M.Null