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

module Gpu.Vulkan.PipelineCache.Type (

	-- * PIPELINE CACHE

	P(..)

	) where

import qualified Gpu.Vulkan.PipelineCache.Middle as M

newtype P s = P { forall s. P s -> P
pToMiddle :: M.P } deriving Int -> P s -> ShowS
[P s] -> ShowS
P s -> String
(Int -> P s -> ShowS)
-> (P s -> String) -> ([P s] -> ShowS) -> Show (P s)
forall s. Int -> P s -> ShowS
forall s. [P s] -> ShowS
forall s. P s -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: forall s. Int -> P s -> ShowS
showsPrec :: Int -> P s -> ShowS
$cshow :: forall s. P s -> String
show :: P s -> String
$cshowList :: forall s. [P s] -> ShowS
showList :: [P s] -> ShowS
Show