{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.CloudHSMv2.Types.Sum where
import Network.AWS.Prelude
data BackupPolicy =
Default
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText BackupPolicy where
parser = takeLowerText >>= \case
"default" -> pure Default
e -> fromTextError $ "Failure parsing BackupPolicy from value: '" <> e
<> "'. Accepted values: default"
instance ToText BackupPolicy where
toText = \case
Default -> "DEFAULT"
instance Hashable BackupPolicy
instance NFData BackupPolicy
instance ToByteString BackupPolicy
instance ToQuery BackupPolicy
instance ToHeader BackupPolicy
instance FromJSON BackupPolicy where
parseJSON = parseJSONText "BackupPolicy"
data BackupState
= BSCreateInProgress
| BSDeleted
| BSReady
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText BackupState where
parser = takeLowerText >>= \case
"create_in_progress" -> pure BSCreateInProgress
"deleted" -> pure BSDeleted
"ready" -> pure BSReady
e -> fromTextError $ "Failure parsing BackupState from value: '" <> e
<> "'. Accepted values: create_in_progress, deleted, ready"
instance ToText BackupState where
toText = \case
BSCreateInProgress -> "CREATE_IN_PROGRESS"
BSDeleted -> "DELETED"
BSReady -> "READY"
instance Hashable BackupState
instance NFData BackupState
instance ToByteString BackupState
instance ToQuery BackupState
instance ToHeader BackupState
instance FromJSON BackupState where
parseJSON = parseJSONText "BackupState"
data ClusterState
= Active
| CreateInProgress
| Degraded
| DeleteInProgress
| Deleted
| InitializeInProgress
| Initialized
| Uninitialized
| UpdateInProgress
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ClusterState where
parser = takeLowerText >>= \case
"active" -> pure Active
"create_in_progress" -> pure CreateInProgress
"degraded" -> pure Degraded
"delete_in_progress" -> pure DeleteInProgress
"deleted" -> pure Deleted
"initialize_in_progress" -> pure InitializeInProgress
"initialized" -> pure Initialized
"uninitialized" -> pure Uninitialized
"update_in_progress" -> pure UpdateInProgress
e -> fromTextError $ "Failure parsing ClusterState from value: '" <> e
<> "'. Accepted values: active, create_in_progress, degraded, delete_in_progress, deleted, initialize_in_progress, initialized, uninitialized, update_in_progress"
instance ToText ClusterState where
toText = \case
Active -> "ACTIVE"
CreateInProgress -> "CREATE_IN_PROGRESS"
Degraded -> "DEGRADED"
DeleteInProgress -> "DELETE_IN_PROGRESS"
Deleted -> "DELETED"
InitializeInProgress -> "INITIALIZE_IN_PROGRESS"
Initialized -> "INITIALIZED"
Uninitialized -> "UNINITIALIZED"
UpdateInProgress -> "UPDATE_IN_PROGRESS"
instance Hashable ClusterState
instance NFData ClusterState
instance ToByteString ClusterState
instance ToQuery ClusterState
instance ToHeader ClusterState
instance FromJSON ClusterState where
parseJSON = parseJSONText "ClusterState"
data HSMState
= HSActive
| HSCreateInProgress
| HSDegraded
| HSDeleteInProgress
| HSDeleted
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText HSMState where
parser = takeLowerText >>= \case
"active" -> pure HSActive
"create_in_progress" -> pure HSCreateInProgress
"degraded" -> pure HSDegraded
"delete_in_progress" -> pure HSDeleteInProgress
"deleted" -> pure HSDeleted
e -> fromTextError $ "Failure parsing HSMState from value: '" <> e
<> "'. Accepted values: active, create_in_progress, degraded, delete_in_progress, deleted"
instance ToText HSMState where
toText = \case
HSActive -> "ACTIVE"
HSCreateInProgress -> "CREATE_IN_PROGRESS"
HSDegraded -> "DEGRADED"
HSDeleteInProgress -> "DELETE_IN_PROGRESS"
HSDeleted -> "DELETED"
instance Hashable HSMState
instance NFData HSMState
instance ToByteString HSMState
instance ToQuery HSMState
instance ToHeader HSMState
instance FromJSON HSMState where
parseJSON = parseJSONText "HSMState"