{-# LINE 1 "src-gen/Graphics/Vulkan/Types/Struct/Base.hsc" #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE Strict #-}
{-# LANGUAGE TypeFamilies #-}
module Graphics.Vulkan.Types.Struct.Base
(VkBaseInStructure, VkBaseOutStructure) where
import Graphics.Vulkan.Marshal
import Graphics.Vulkan.Marshal.Internal
import Graphics.Vulkan.Types.Enum.StructureType (VkStructureType)
type VkBaseInStructure = VkStruct VkBaseInStructure'
data VkBaseInStructure'
instance VulkanMarshal VkBaseInStructure where
type StructRep VkBaseInStructure =
'StructMeta "VkBaseInStructure" VkBaseInStructure
(16)
{-# LINE 28 "src-gen/Graphics/Vulkan/Types/Struct/Base.hsc" #-}
8
{-# LINE 29 "src-gen/Graphics/Vulkan/Types/Struct/Base.hsc" #-}
'[('FieldMeta "sType" VkStructureType 'False
(0)
{-# LINE 31 "src-gen/Graphics/Vulkan/Types/Struct/Base.hsc" #-}
1
'True
'True),
('FieldMeta "pNext" (Ptr VkBaseInStructure) 'False
(8)
{-# LINE 36 "src-gen/Graphics/Vulkan/Types/Struct/Base.hsc" #-}
1
'True
'True)]
'False
'False
'[]
type VkBaseOutStructure = VkStruct VkBaseOutStructure'
data VkBaseOutStructure'
instance VulkanMarshal VkBaseOutStructure where
type StructRep VkBaseOutStructure =
'StructMeta "VkBaseOutStructure" VkBaseOutStructure
(16)
{-# LINE 57 "src-gen/Graphics/Vulkan/Types/Struct/Base.hsc" #-}
8
{-# LINE 58 "src-gen/Graphics/Vulkan/Types/Struct/Base.hsc" #-}
'[('FieldMeta "sType" VkStructureType 'False
(0)
{-# LINE 60 "src-gen/Graphics/Vulkan/Types/Struct/Base.hsc" #-}
1
'True
'True),
('FieldMeta "pNext" (Ptr VkBaseOutStructure) 'False
(8)
{-# LINE 65 "src-gen/Graphics/Vulkan/Types/Struct/Base.hsc" #-}
1
'True
'True)]
'False
'False
'[]