{-# LINE 1 "src/Shaderc/Enum.hsc" #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Shaderc.Enum where import Foreign.Storable import Foreign.C.Enum import Data.Word import Data.Int enum "CompilationStatus" ''Word32 {-# LINE 15 "src/Shaderc/Enum.hsc" #-} [''Show, ''Storable] [ ("CompilationStatusSuccess", 0), {-# LINE 18 "src/Shaderc/Enum.hsc" #-} ("CompilationStatusInvalidStage", 1), {-# LINE 20 "src/Shaderc/Enum.hsc" #-} ("CompilationStatusError", 2), {-# LINE 22 "src/Shaderc/Enum.hsc" #-} ("CompilationStatusInternalError", 3), {-# LINE 24 "src/Shaderc/Enum.hsc" #-} ("CompilationStatusNullResultObject", 4), {-# LINE 26 "src/Shaderc/Enum.hsc" #-} ("CompilationStatusInvalidAssembly", 5), {-# LINE 28 "src/Shaderc/Enum.hsc" #-} ("CompilationStatusValidationError", 6), {-# LINE 30 "src/Shaderc/Enum.hsc" #-} ("CompilationStatusTransformationError", 7), {-# LINE 32 "src/Shaderc/Enum.hsc" #-} ("CompilationStatusConfigurationError", 8) ] {-# LINE 34 "src/Shaderc/Enum.hsc" #-} enum "SourceLanguage" ''Word32 {-# LINE 36 "src/Shaderc/Enum.hsc" #-} [''Show, ''Storable] [ ("SourceLanguageGlsl", 0), {-# LINE 38 "src/Shaderc/Enum.hsc" #-} ("SourceLanguageHlsl", 1) ] {-# LINE 39 "src/Shaderc/Enum.hsc" #-} enum "OptimizationLevel" ''Word32 {-# LINE 41 "src/Shaderc/Enum.hsc" #-} [''Show, ''Eq, ''Storable] [ ("OptimizationLevelZero", 0), {-# LINE 43 "src/Shaderc/Enum.hsc" #-} ("OptimizationLevelSize", 1), {-# LINE 44 "src/Shaderc/Enum.hsc" #-} ("OptimizationLevelPerformance", 2) ] {-# LINE 46 "src/Shaderc/Enum.hsc" #-} enum "Profile" ''Word32 [''Show, ''Eq, ''Storable] [ {-# LINE 48 "src/Shaderc/Enum.hsc" #-} ("ProfileNone", 0), {-# LINE 49 "src/Shaderc/Enum.hsc" #-} ("ProfileCore", 1), {-# LINE 50 "src/Shaderc/Enum.hsc" #-} ("ProfileCompatibility", 2), {-# LINE 51 "src/Shaderc/Enum.hsc" #-} ("ProfileEs", 3) ] {-# LINE 52 "src/Shaderc/Enum.hsc" #-} version :: Int -> Version version :: Int -> Version version = Int32 -> Version Version (Int32 -> Version) -> (Int -> Int32) -> Int -> Version forall b c a. (b -> c) -> (a -> b) -> a -> c . Int -> Int32 forall a b. (Integral a, Num b) => a -> b fromIntegral newtype Version = Version Int32 deriving Int -> Version -> ShowS [Version] -> ShowS Version -> String (Int -> Version -> ShowS) -> (Version -> String) -> ([Version] -> ShowS) -> Show Version forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> Version -> ShowS showsPrec :: Int -> Version -> ShowS $cshow :: Version -> String show :: Version -> String $cshowList :: [Version] -> ShowS showList :: [Version] -> ShowS Show {-# LINE 57 "src/Shaderc/Enum.hsc" #-}