{-# LINE 1 "src/Gpu/Vulkan/Instance/Enum.hsc" #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Gpu.Vulkan.Instance.Enum where import Foreign.Storable import Foreign.C.Enum import Data.Default import Data.Bits import Data.Word enum "CreateFlags" ''Word32 {-# LINE 17 "src/Gpu/Vulkan/Instance/Enum.hsc" #-} [''Show, ''Eq, ''Storable, ''Bits] [("CreateFlagsZero", 0)] instance Default CreateFlags where def :: CreateFlags def = CreateFlags CreateFlagsZero