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

module Gpu.Vulkan.Instance.Type (I(..)) where

import qualified Gpu.Vulkan.Instance.Middle as M

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