{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.XRay.Types.Sum where
import Network.AWS.Prelude
data EncryptionStatus
= Active
| Updating
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText EncryptionStatus where
parser = takeLowerText >>= \case
"active" -> pure Active
"updating" -> pure Updating
e -> fromTextError $ "Failure parsing EncryptionStatus from value: '" <> e
<> "'. Accepted values: active, updating"
instance ToText EncryptionStatus where
toText = \case
Active -> "ACTIVE"
Updating -> "UPDATING"
instance Hashable EncryptionStatus
instance NFData EncryptionStatus
instance ToByteString EncryptionStatus
instance ToQuery EncryptionStatus
instance ToHeader EncryptionStatus
instance FromJSON EncryptionStatus where
parseJSON = parseJSONText "EncryptionStatus"
data EncryptionType
= KMS
| None
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText EncryptionType where
parser = takeLowerText >>= \case
"kms" -> pure KMS
"none" -> pure None
e -> fromTextError $ "Failure parsing EncryptionType from value: '" <> e
<> "'. Accepted values: kms, none"
instance ToText EncryptionType where
toText = \case
KMS -> "KMS"
None -> "NONE"
instance Hashable EncryptionType
instance NFData EncryptionType
instance ToByteString EncryptionType
instance ToQuery EncryptionType
instance ToHeader EncryptionType
instance ToJSON EncryptionType where
toJSON = toJSONText
instance FromJSON EncryptionType where
parseJSON = parseJSONText "EncryptionType"