module Network.AWS.DirectConnect.Types.Sum where
import Network.AWS.Prelude
data ConnectionState
= CSAvailable
| CSDeleted
| CSDeleting
| CSDown
| CSOrdering
| CSPending
| CSRejected
| CSRequested
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText ConnectionState where
parser = takeLowerText >>= \case
"available" -> pure CSAvailable
"deleted" -> pure CSDeleted
"deleting" -> pure CSDeleting
"down" -> pure CSDown
"ordering" -> pure CSOrdering
"pending" -> pure CSPending
"rejected" -> pure CSRejected
"requested" -> pure CSRequested
e -> fromTextError $ "Failure parsing ConnectionState from value: '" <> e
<> "'. Accepted values: available, deleted, deleting, down, ordering, pending, rejected, requested"
instance ToText ConnectionState where
toText = \case
CSAvailable -> "available"
CSDeleted -> "deleted"
CSDeleting -> "deleting"
CSDown -> "down"
CSOrdering -> "ordering"
CSPending -> "pending"
CSRejected -> "rejected"
CSRequested -> "requested"
instance Hashable ConnectionState
instance ToByteString ConnectionState
instance ToQuery ConnectionState
instance ToHeader ConnectionState
instance FromJSON ConnectionState where
parseJSON = parseJSONText "ConnectionState"
data InterconnectState
= ISAvailable
| ISDeleted
| ISDeleting
| ISDown
| ISPending
| ISRequested
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText InterconnectState where
parser = takeLowerText >>= \case
"available" -> pure ISAvailable
"deleted" -> pure ISDeleted
"deleting" -> pure ISDeleting
"down" -> pure ISDown
"pending" -> pure ISPending
"requested" -> pure ISRequested
e -> fromTextError $ "Failure parsing InterconnectState from value: '" <> e
<> "'. Accepted values: available, deleted, deleting, down, pending, requested"
instance ToText InterconnectState where
toText = \case
ISAvailable -> "available"
ISDeleted -> "deleted"
ISDeleting -> "deleting"
ISDown -> "down"
ISPending -> "pending"
ISRequested -> "requested"
instance Hashable InterconnectState
instance ToByteString InterconnectState
instance ToQuery InterconnectState
instance ToHeader InterconnectState
instance FromJSON InterconnectState where
parseJSON = parseJSONText "InterconnectState"
data VirtualInterfaceState
= Available
| Confirming
| Deleted
| Deleting
| Pending
| Rejected
| Verifying
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText VirtualInterfaceState where
parser = takeLowerText >>= \case
"available" -> pure Available
"confirming" -> pure Confirming
"deleted" -> pure Deleted
"deleting" -> pure Deleting
"pending" -> pure Pending
"rejected" -> pure Rejected
"verifying" -> pure Verifying
e -> fromTextError $ "Failure parsing VirtualInterfaceState from value: '" <> e
<> "'. Accepted values: available, confirming, deleted, deleting, pending, rejected, verifying"
instance ToText VirtualInterfaceState where
toText = \case
Available -> "available"
Confirming -> "confirming"
Deleted -> "deleted"
Deleting -> "deleting"
Pending -> "pending"
Rejected -> "rejected"
Verifying -> "verifying"
instance Hashable VirtualInterfaceState
instance ToByteString VirtualInterfaceState
instance ToQuery VirtualInterfaceState
instance ToHeader VirtualInterfaceState
instance FromJSON VirtualInterfaceState where
parseJSON = parseJSONText "VirtualInterfaceState"