{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.AppSync.Types.Sum where
import Network.AWS.Prelude
data AuthenticationType
= APIKey
| AWSIAM
| AmazonCognitoUserPools
| OpenidConnect
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText AuthenticationType where
parser = takeLowerText >>= \case
"api_key" -> pure APIKey
"aws_iam" -> pure AWSIAM
"amazon_cognito_user_pools" -> pure AmazonCognitoUserPools
"openid_connect" -> pure OpenidConnect
e -> fromTextError $ "Failure parsing AuthenticationType from value: '" <> e
<> "'. Accepted values: api_key, aws_iam, amazon_cognito_user_pools, openid_connect"
instance ToText AuthenticationType where
toText = \case
APIKey -> "API_KEY"
AWSIAM -> "AWS_IAM"
AmazonCognitoUserPools -> "AMAZON_COGNITO_USER_POOLS"
OpenidConnect -> "OPENID_CONNECT"
instance Hashable AuthenticationType
instance NFData AuthenticationType
instance ToByteString AuthenticationType
instance ToQuery AuthenticationType
instance ToHeader AuthenticationType
instance ToJSON AuthenticationType where
toJSON = toJSONText
instance FromJSON AuthenticationType where
parseJSON = parseJSONText "AuthenticationType"
data DataSourceType
= AWSLambda
| AmazonDynamodb
| AmazonElasticsearch
| None
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText DataSourceType where
parser = takeLowerText >>= \case
"aws_lambda" -> pure AWSLambda
"amazon_dynamodb" -> pure AmazonDynamodb
"amazon_elasticsearch" -> pure AmazonElasticsearch
"none" -> pure None
e -> fromTextError $ "Failure parsing DataSourceType from value: '" <> e
<> "'. Accepted values: aws_lambda, amazon_dynamodb, amazon_elasticsearch, none"
instance ToText DataSourceType where
toText = \case
AWSLambda -> "AWS_LAMBDA"
AmazonDynamodb -> "AMAZON_DYNAMODB"
AmazonElasticsearch -> "AMAZON_ELASTICSEARCH"
None -> "NONE"
instance Hashable DataSourceType
instance NFData DataSourceType
instance ToByteString DataSourceType
instance ToQuery DataSourceType
instance ToHeader DataSourceType
instance ToJSON DataSourceType where
toJSON = toJSONText
instance FromJSON DataSourceType where
parseJSON = parseJSONText "DataSourceType"
data DefaultAction
= Allow
| Deny
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText DefaultAction where
parser = takeLowerText >>= \case
"allow" -> pure Allow
"deny" -> pure Deny
e -> fromTextError $ "Failure parsing DefaultAction from value: '" <> e
<> "'. Accepted values: allow, deny"
instance ToText DefaultAction where
toText = \case
Allow -> "ALLOW"
Deny -> "DENY"
instance Hashable DefaultAction
instance NFData DefaultAction
instance ToByteString DefaultAction
instance ToQuery DefaultAction
instance ToHeader DefaultAction
instance ToJSON DefaultAction where
toJSON = toJSONText
instance FromJSON DefaultAction where
parseJSON = parseJSONText "DefaultAction"
data FieldLogLevel
= FLLAll
| FLLError'
| FLLNone
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText FieldLogLevel where
parser = takeLowerText >>= \case
"all" -> pure FLLAll
"error" -> pure FLLError'
"none" -> pure FLLNone
e -> fromTextError $ "Failure parsing FieldLogLevel from value: '" <> e
<> "'. Accepted values: all, error, none"
instance ToText FieldLogLevel where
toText = \case
FLLAll -> "ALL"
FLLError' -> "ERROR"
FLLNone -> "NONE"
instance Hashable FieldLogLevel
instance NFData FieldLogLevel
instance ToByteString FieldLogLevel
instance ToQuery FieldLogLevel
instance ToHeader FieldLogLevel
instance ToJSON FieldLogLevel where
toJSON = toJSONText
instance FromJSON FieldLogLevel where
parseJSON = parseJSONText "FieldLogLevel"
data OutputType
= OTJSON
| OTSdl
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText OutputType where
parser = takeLowerText >>= \case
"json" -> pure OTJSON
"sdl" -> pure OTSdl
e -> fromTextError $ "Failure parsing OutputType from value: '" <> e
<> "'. Accepted values: json, sdl"
instance ToText OutputType where
toText = \case
OTJSON -> "JSON"
OTSdl -> "SDL"
instance Hashable OutputType
instance NFData OutputType
instance ToByteString OutputType
instance ToQuery OutputType
instance ToHeader OutputType
instance ToJSON OutputType where
toJSON = toJSONText
data SchemaStatus
= Active
| Deleting
| Processing
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText SchemaStatus where
parser = takeLowerText >>= \case
"active" -> pure Active
"deleting" -> pure Deleting
"processing" -> pure Processing
e -> fromTextError $ "Failure parsing SchemaStatus from value: '" <> e
<> "'. Accepted values: active, deleting, processing"
instance ToText SchemaStatus where
toText = \case
Active -> "ACTIVE"
Deleting -> "DELETING"
Processing -> "PROCESSING"
instance Hashable SchemaStatus
instance NFData SchemaStatus
instance ToByteString SchemaStatus
instance ToQuery SchemaStatus
instance ToHeader SchemaStatus
instance FromJSON SchemaStatus where
parseJSON = parseJSONText "SchemaStatus"
data TypeDefinitionFormat
= JSON
| Sdl
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText TypeDefinitionFormat where
parser = takeLowerText >>= \case
"json" -> pure JSON
"sdl" -> pure Sdl
e -> fromTextError $ "Failure parsing TypeDefinitionFormat from value: '" <> e
<> "'. Accepted values: json, sdl"
instance ToText TypeDefinitionFormat where
toText = \case
JSON -> "JSON"
Sdl -> "SDL"
instance Hashable TypeDefinitionFormat
instance NFData TypeDefinitionFormat
instance ToByteString TypeDefinitionFormat
instance ToQuery TypeDefinitionFormat
instance ToHeader TypeDefinitionFormat
instance ToJSON TypeDefinitionFormat where
toJSON = toJSONText
instance FromJSON TypeDefinitionFormat where
parseJSON = parseJSONText "TypeDefinitionFormat"