{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.ElasticSearch.Types.Sum where
import Network.AWS.Prelude
data ESPartitionInstanceType
= I2_2XLarge_Elasticsearch
| I2_XLarge_Elasticsearch
| M3_2XLarge_Elasticsearch
| M3_Large_Elasticsearch
| M3_Medium_Elasticsearch
| M3_XLarge_Elasticsearch
| M4_10XLarge_Elasticsearch
| M4_2XLarge_Elasticsearch
| M4_4XLarge_Elasticsearch
| M4_Large_Elasticsearch
| M4_XLarge_Elasticsearch
| R3_2XLarge_Elasticsearch
| R3_4XLarge_Elasticsearch
| R3_8XLarge_Elasticsearch
| R3_Large_Elasticsearch
| R3_XLarge_Elasticsearch
| T2_Medium_Elasticsearch
| T2_Micro_Elasticsearch
| T2_Small_Elasticsearch
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText ESPartitionInstanceType where
parser = takeLowerText >>= \case
"i2.2xlarge.elasticsearch" -> pure I2_2XLarge_Elasticsearch
"i2.xlarge.elasticsearch" -> pure I2_XLarge_Elasticsearch
"m3.2xlarge.elasticsearch" -> pure M3_2XLarge_Elasticsearch
"m3.large.elasticsearch" -> pure M3_Large_Elasticsearch
"m3.medium.elasticsearch" -> pure M3_Medium_Elasticsearch
"m3.xlarge.elasticsearch" -> pure M3_XLarge_Elasticsearch
"m4.10xlarge.elasticsearch" -> pure M4_10XLarge_Elasticsearch
"m4.2xlarge.elasticsearch" -> pure M4_2XLarge_Elasticsearch
"m4.4xlarge.elasticsearch" -> pure M4_4XLarge_Elasticsearch
"m4.large.elasticsearch" -> pure M4_Large_Elasticsearch
"m4.xlarge.elasticsearch" -> pure M4_XLarge_Elasticsearch
"r3.2xlarge.elasticsearch" -> pure R3_2XLarge_Elasticsearch
"r3.4xlarge.elasticsearch" -> pure R3_4XLarge_Elasticsearch
"r3.8xlarge.elasticsearch" -> pure R3_8XLarge_Elasticsearch
"r3.large.elasticsearch" -> pure R3_Large_Elasticsearch
"r3.xlarge.elasticsearch" -> pure R3_XLarge_Elasticsearch
"t2.medium.elasticsearch" -> pure T2_Medium_Elasticsearch
"t2.micro.elasticsearch" -> pure T2_Micro_Elasticsearch
"t2.small.elasticsearch" -> pure T2_Small_Elasticsearch
e -> fromTextError $ "Failure parsing ESPartitionInstanceType from value: '" <> e
<> "'. Accepted values: i2.2xlarge.elasticsearch, i2.xlarge.elasticsearch, m3.2xlarge.elasticsearch, m3.large.elasticsearch, m3.medium.elasticsearch, m3.xlarge.elasticsearch, m4.10xlarge.elasticsearch, m4.2xlarge.elasticsearch, m4.4xlarge.elasticsearch, m4.large.elasticsearch, m4.xlarge.elasticsearch, r3.2xlarge.elasticsearch, r3.4xlarge.elasticsearch, r3.8xlarge.elasticsearch, r3.large.elasticsearch, r3.xlarge.elasticsearch, t2.medium.elasticsearch, t2.micro.elasticsearch, t2.small.elasticsearch"
instance ToText ESPartitionInstanceType where
toText = \case
I2_2XLarge_Elasticsearch -> "i2.2xlarge.elasticsearch"
I2_XLarge_Elasticsearch -> "i2.xlarge.elasticsearch"
M3_2XLarge_Elasticsearch -> "m3.2xlarge.elasticsearch"
M3_Large_Elasticsearch -> "m3.large.elasticsearch"
M3_Medium_Elasticsearch -> "m3.medium.elasticsearch"
M3_XLarge_Elasticsearch -> "m3.xlarge.elasticsearch"
M4_10XLarge_Elasticsearch -> "m4.10xlarge.elasticsearch"
M4_2XLarge_Elasticsearch -> "m4.2xlarge.elasticsearch"
M4_4XLarge_Elasticsearch -> "m4.4xlarge.elasticsearch"
M4_Large_Elasticsearch -> "m4.large.elasticsearch"
M4_XLarge_Elasticsearch -> "m4.xlarge.elasticsearch"
R3_2XLarge_Elasticsearch -> "r3.2xlarge.elasticsearch"
R3_4XLarge_Elasticsearch -> "r3.4xlarge.elasticsearch"
R3_8XLarge_Elasticsearch -> "r3.8xlarge.elasticsearch"
R3_Large_Elasticsearch -> "r3.large.elasticsearch"
R3_XLarge_Elasticsearch -> "r3.xlarge.elasticsearch"
T2_Medium_Elasticsearch -> "t2.medium.elasticsearch"
T2_Micro_Elasticsearch -> "t2.micro.elasticsearch"
T2_Small_Elasticsearch -> "t2.small.elasticsearch"
instance Hashable ESPartitionInstanceType
instance NFData ESPartitionInstanceType
instance ToByteString ESPartitionInstanceType
instance ToQuery ESPartitionInstanceType
instance ToHeader ESPartitionInstanceType
instance ToJSON ESPartitionInstanceType where
toJSON = toJSONText
instance FromJSON ESPartitionInstanceType where
parseJSON = parseJSONText "ESPartitionInstanceType"
data OptionState
= Active
| Processing
| RequiresIndexDocuments
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText OptionState where
parser = takeLowerText >>= \case
"active" -> pure Active
"processing" -> pure Processing
"requiresindexdocuments" -> pure RequiresIndexDocuments
e -> fromTextError $ "Failure parsing OptionState from value: '" <> e
<> "'. Accepted values: active, processing, requiresindexdocuments"
instance ToText OptionState where
toText = \case
Active -> "Active"
Processing -> "Processing"
RequiresIndexDocuments -> "RequiresIndexDocuments"
instance Hashable OptionState
instance NFData OptionState
instance ToByteString OptionState
instance ToQuery OptionState
instance ToHeader OptionState
instance FromJSON OptionState where
parseJSON = parseJSONText "OptionState"
data VolumeType
= GP2
| IO1
| Standard
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText VolumeType where
parser = takeLowerText >>= \case
"gp2" -> pure GP2
"io1" -> pure IO1
"standard" -> pure Standard
e -> fromTextError $ "Failure parsing VolumeType from value: '" <> e
<> "'. Accepted values: gp2, io1, standard"
instance ToText VolumeType where
toText = \case
GP2 -> "gp2"
IO1 -> "io1"
Standard -> "standard"
instance Hashable VolumeType
instance NFData VolumeType
instance ToByteString VolumeType
instance ToQuery VolumeType
instance ToHeader VolumeType
instance ToJSON VolumeType where
toJSON = toJSONText
instance FromJSON VolumeType where
parseJSON = parseJSONText "VolumeType"