gpu-vulkan-0.1.0.157: src/Gpu/Vulkan/Sampler/Type.hs

{-# LANGUAGE PatternSynonyms #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Gpu.Vulkan.Sampler.Type where

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