module Network.AWS.RDS.Types.Sum where
import Network.AWS.Prelude
data ApplyMethod
= Immediate
| PendingReboot
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText ApplyMethod where
parser = takeLowerText >>= \case
"immediate" -> pure Immediate
"pending-reboot" -> pure PendingReboot
e -> fromTextError $ "Failure parsing ApplyMethod from value: '" <> e
<> "'. Accepted values: immediate, pending-reboot"
instance ToText ApplyMethod where
toText = \case
Immediate -> "immediate"
PendingReboot -> "pending-reboot"
instance Hashable ApplyMethod
instance ToByteString ApplyMethod
instance ToQuery ApplyMethod
instance ToHeader ApplyMethod
instance FromXML ApplyMethod where
parseXML = parseXMLText "ApplyMethod"
data SourceType
= DBInstance
| DBParameterGroup
| DBSecurityGroup
| DBSnapshot
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText SourceType where
parser = takeLowerText >>= \case
"db-instance" -> pure DBInstance
"db-parameter-group" -> pure DBParameterGroup
"db-security-group" -> pure DBSecurityGroup
"db-snapshot" -> pure DBSnapshot
e -> fromTextError $ "Failure parsing SourceType from value: '" <> e
<> "'. Accepted values: db-instance, db-parameter-group, db-security-group, db-snapshot"
instance ToText SourceType where
toText = \case
DBInstance -> "db-instance"
DBParameterGroup -> "db-parameter-group"
DBSecurityGroup -> "db-security-group"
DBSnapshot -> "db-snapshot"
instance Hashable SourceType
instance ToByteString SourceType
instance ToQuery SourceType
instance ToHeader SourceType
instance FromXML SourceType where
parseXML = parseXMLText "SourceType"