{-# LINE 1 "src/Gpu/Vulkan/Device/Middle/Types.hsc" #-} {-# LANGUAGE ImportQualifiedPost #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Gpu.Vulkan.Device.Middle.Types where import Foreign.C.Enum import Data.Word import Data.Ix import Gpu.Vulkan.Device.Core qualified as C newtype D = D C.D deriving Int -> D -> ShowS [D] -> ShowS D -> String (Int -> D -> ShowS) -> (D -> String) -> ([D] -> ShowS) -> Show D forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> D -> ShowS showsPrec :: Int -> D -> ShowS $cshow :: D -> String show :: D -> String $cshowList :: [D] -> ShowS showList :: [D] -> ShowS Show enum "Size" ''Word64 {-# LINE 19 "src/Gpu/Vulkan/Device/Middle/Types.hsc" #-} [''Show, ''Eq, ''Ord, ''Enum, ''Num, ''Real, ''Integral, ''Ix] [("WholeSize", 18446744073709551615)] {-# LINE 21 "src/Gpu/Vulkan/Device/Middle/Types.hsc" #-}