{-# LINE 1 "src/Gpu/Vulkan/QueueFamily/Middle/Internal.hsc" #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Gpu.Vulkan.QueueFamily.Middle.Internal where

import Data.Word

import Gpu.Vulkan.Core

import qualified Gpu.Vulkan.Queue.Enum as Queue
import qualified Gpu.Vulkan.QueueFamily.Core as C

data Properties = Properties {
	Properties -> Flags
propertiesQueueFlags :: Queue.Flags,
	Properties -> Word32
propertiesQueueCount :: Word32,
	Properties -> Word32
propertiesTimestampValidBits :: Word32,
	Properties -> Extent3d
propertiesMinImageTransferGranularity :: Extent3d }
	deriving Int -> Properties -> ShowS
[Properties] -> ShowS
Properties -> String
(Int -> Properties -> ShowS)
-> (Properties -> String)
-> ([Properties] -> ShowS)
-> Show Properties
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Properties -> ShowS
showsPrec :: Int -> Properties -> ShowS
$cshow :: Properties -> String
show :: Properties -> String
$cshowList :: [Properties] -> ShowS
showList :: [Properties] -> ShowS
Show

propertiesFromCore :: C.Properties -> Properties
propertiesFromCore :: Properties -> Properties
propertiesFromCore C.Properties {
	propertiesQueueFlags :: Properties -> Word32
C.propertiesQueueFlags = Word32
flgs,
	propertiesQueueCount :: Properties -> Word32
C.propertiesQueueCount = Word32
cnt,
	propertiesTimestampValidBits :: Properties -> Word32
C.propertiesTimestampValidBits = Word32
tvb,
	propertiesMinImageTransferGranularity :: Properties -> Extent3d
C.propertiesMinImageTransferGranularity = Extent3d
mitg } = Properties {
	propertiesQueueFlags :: Flags
propertiesQueueFlags = Word32 -> Flags
Queue.FlagBits Word32
flgs,
	propertiesQueueCount :: Word32
propertiesQueueCount = Word32
cnt,
	propertiesTimestampValidBits :: Word32
propertiesTimestampValidBits = Word32
tvb,
	propertiesMinImageTransferGranularity :: Extent3d
propertiesMinImageTransferGranularity = Extent3d
mitg }