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

module Gpu.Vulkan.Device.Type where

import qualified Gpu.Vulkan.Device.Middle as M

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