{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.ElastiCache.Types.Sum where
import Network.AWS.Prelude
data AZMode
= CrossAz
| SingleAz
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText AZMode where
parser = takeLowerText >>= \case
"cross-az" -> pure CrossAz
"single-az" -> pure SingleAz
e -> fromTextError $ "Failure parsing AZMode from value: '" <> e
<> "'. Accepted values: cross-az, single-az"
instance ToText AZMode where
toText = \case
CrossAz -> "cross-az"
SingleAz -> "single-az"
instance Hashable AZMode
instance NFData AZMode
instance ToByteString AZMode
instance ToQuery AZMode
instance ToHeader AZMode
data AutomaticFailoverStatus
= AFSDisabled
| AFSDisabling
| AFSEnabled
| AFSEnabling
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText AutomaticFailoverStatus where
parser = takeLowerText >>= \case
"disabled" -> pure AFSDisabled
"disabling" -> pure AFSDisabling
"enabled" -> pure AFSEnabled
"enabling" -> pure AFSEnabling
e -> fromTextError $ "Failure parsing AutomaticFailoverStatus from value: '" <> e
<> "'. Accepted values: disabled, disabling, enabled, enabling"
instance ToText AutomaticFailoverStatus where
toText = \case
AFSDisabled -> "disabled"
AFSDisabling -> "disabling"
AFSEnabled -> "enabled"
AFSEnabling -> "enabling"
instance Hashable AutomaticFailoverStatus
instance NFData AutomaticFailoverStatus
instance ToByteString AutomaticFailoverStatus
instance ToQuery AutomaticFailoverStatus
instance ToHeader AutomaticFailoverStatus
instance FromXML AutomaticFailoverStatus where
parseXML = parseXMLText "AutomaticFailoverStatus"
data ChangeType
= Immediate
| RequiresReboot
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText ChangeType where
parser = takeLowerText >>= \case
"immediate" -> pure Immediate
"requires-reboot" -> pure RequiresReboot
e -> fromTextError $ "Failure parsing ChangeType from value: '" <> e
<> "'. Accepted values: immediate, requires-reboot"
instance ToText ChangeType where
toText = \case
Immediate -> "immediate"
RequiresReboot -> "requires-reboot"
instance Hashable ChangeType
instance NFData ChangeType
instance ToByteString ChangeType
instance ToQuery ChangeType
instance ToHeader ChangeType
instance FromXML ChangeType where
parseXML = parseXMLText "ChangeType"
data PendingAutomaticFailoverStatus
= Disabled
| Enabled
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText PendingAutomaticFailoverStatus where
parser = takeLowerText >>= \case
"disabled" -> pure Disabled
"enabled" -> pure Enabled
e -> fromTextError $ "Failure parsing PendingAutomaticFailoverStatus from value: '" <> e
<> "'. Accepted values: disabled, enabled"
instance ToText PendingAutomaticFailoverStatus where
toText = \case
Disabled -> "disabled"
Enabled -> "enabled"
instance Hashable PendingAutomaticFailoverStatus
instance NFData PendingAutomaticFailoverStatus
instance ToByteString PendingAutomaticFailoverStatus
instance ToQuery PendingAutomaticFailoverStatus
instance ToHeader PendingAutomaticFailoverStatus
instance FromXML PendingAutomaticFailoverStatus where
parseXML = parseXMLText "PendingAutomaticFailoverStatus"
data SourceType
= CacheCluster
| CacheParameterGroup
| CacheSecurityGroup
| CacheSubnetGroup
| ReplicationGroup
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText SourceType where
parser = takeLowerText >>= \case
"cache-cluster" -> pure CacheCluster
"cache-parameter-group" -> pure CacheParameterGroup
"cache-security-group" -> pure CacheSecurityGroup
"cache-subnet-group" -> pure CacheSubnetGroup
"replication-group" -> pure ReplicationGroup
e -> fromTextError $ "Failure parsing SourceType from value: '" <> e
<> "'. Accepted values: cache-cluster, cache-parameter-group, cache-security-group, cache-subnet-group, replication-group"
instance ToText SourceType where
toText = \case
CacheCluster -> "cache-cluster"
CacheParameterGroup -> "cache-parameter-group"
CacheSecurityGroup -> "cache-security-group"
CacheSubnetGroup -> "cache-subnet-group"
ReplicationGroup -> "replication-group"
instance Hashable SourceType
instance NFData SourceType
instance ToByteString SourceType
instance ToQuery SourceType
instance ToHeader SourceType
instance FromXML SourceType where
parseXML = parseXMLText "SourceType"