{-# LINE 1 "src/Gpu/Vulkan/QueueFamily/EnumManual.hsc" #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Gpu.Vulkan.QueueFamily.EnumManual where import Foreign.Storable import Data.Word import Foreign.C.Enum enum "Index" ''Word32 [''Show, ''Eq, ''Storable, ''Enum] {-# LINE 16 "src/Gpu/Vulkan/QueueFamily/EnumManual.hsc" #-} [("Ignored", 4294967295)] {-# LINE 17 "src/Gpu/Vulkan/QueueFamily/EnumManual.hsc" #-} indices :: [Index] indices :: [Index] indices = [Word32 -> Index Index Word32 0 ..]