module Network.AWS.ECR.Types.Sum where
import Network.AWS.Prelude
data ImageActionType =
Expire
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ImageActionType where
parser = takeLowerText >>= \case
"expire" -> pure Expire
e -> fromTextError $ "Failure parsing ImageActionType from value: '" <> e
<> "'. Accepted values: expire"
instance ToText ImageActionType where
toText = \case
Expire -> "EXPIRE"
instance Hashable ImageActionType
instance NFData ImageActionType
instance ToByteString ImageActionType
instance ToQuery ImageActionType
instance ToHeader ImageActionType
instance FromJSON ImageActionType where
parseJSON = parseJSONText "ImageActionType"
data ImageFailureCode
= ImageNotFound
| ImageTagDoesNotMatchDigest
| InvalidImageDigest
| InvalidImageTag
| MissingDigestAndTag
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ImageFailureCode where
parser = takeLowerText >>= \case
"imagenotfound" -> pure ImageNotFound
"imagetagdoesnotmatchdigest" -> pure ImageTagDoesNotMatchDigest
"invalidimagedigest" -> pure InvalidImageDigest
"invalidimagetag" -> pure InvalidImageTag
"missingdigestandtag" -> pure MissingDigestAndTag
e -> fromTextError $ "Failure parsing ImageFailureCode from value: '" <> e
<> "'. Accepted values: imagenotfound, imagetagdoesnotmatchdigest, invalidimagedigest, invalidimagetag, missingdigestandtag"
instance ToText ImageFailureCode where
toText = \case
ImageNotFound -> "ImageNotFound"
ImageTagDoesNotMatchDigest -> "ImageTagDoesNotMatchDigest"
InvalidImageDigest -> "InvalidImageDigest"
InvalidImageTag -> "InvalidImageTag"
MissingDigestAndTag -> "MissingDigestAndTag"
instance Hashable ImageFailureCode
instance NFData ImageFailureCode
instance ToByteString ImageFailureCode
instance ToQuery ImageFailureCode
instance ToHeader ImageFailureCode
instance FromJSON ImageFailureCode where
parseJSON = parseJSONText "ImageFailureCode"
data LayerAvailability
= Available
| Unavailable
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText LayerAvailability where
parser = takeLowerText >>= \case
"available" -> pure Available
"unavailable" -> pure Unavailable
e -> fromTextError $ "Failure parsing LayerAvailability from value: '" <> e
<> "'. Accepted values: available, unavailable"
instance ToText LayerAvailability where
toText = \case
Available -> "AVAILABLE"
Unavailable -> "UNAVAILABLE"
instance Hashable LayerAvailability
instance NFData LayerAvailability
instance ToByteString LayerAvailability
instance ToQuery LayerAvailability
instance ToHeader LayerAvailability
instance FromJSON LayerAvailability where
parseJSON = parseJSONText "LayerAvailability"
data LayerFailureCode
= InvalidLayerDigest
| MissingLayerDigest
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText LayerFailureCode where
parser = takeLowerText >>= \case
"invalidlayerdigest" -> pure InvalidLayerDigest
"missinglayerdigest" -> pure MissingLayerDigest
e -> fromTextError $ "Failure parsing LayerFailureCode from value: '" <> e
<> "'. Accepted values: invalidlayerdigest, missinglayerdigest"
instance ToText LayerFailureCode where
toText = \case
InvalidLayerDigest -> "InvalidLayerDigest"
MissingLayerDigest -> "MissingLayerDigest"
instance Hashable LayerFailureCode
instance NFData LayerFailureCode
instance ToByteString LayerFailureCode
instance ToQuery LayerFailureCode
instance ToHeader LayerFailureCode
instance FromJSON LayerFailureCode where
parseJSON = parseJSONText "LayerFailureCode"
data LifecyclePolicyPreviewStatus
= Complete
| Expired
| Failed
| InProgress
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText LifecyclePolicyPreviewStatus where
parser = takeLowerText >>= \case
"complete" -> pure Complete
"expired" -> pure Expired
"failed" -> pure Failed
"in_progress" -> pure InProgress
e -> fromTextError $ "Failure parsing LifecyclePolicyPreviewStatus from value: '" <> e
<> "'. Accepted values: complete, expired, failed, in_progress"
instance ToText LifecyclePolicyPreviewStatus where
toText = \case
Complete -> "COMPLETE"
Expired -> "EXPIRED"
Failed -> "FAILED"
InProgress -> "IN_PROGRESS"
instance Hashable LifecyclePolicyPreviewStatus
instance NFData LifecyclePolicyPreviewStatus
instance ToByteString LifecyclePolicyPreviewStatus
instance ToQuery LifecyclePolicyPreviewStatus
instance ToHeader LifecyclePolicyPreviewStatus
instance FromJSON LifecyclePolicyPreviewStatus where
parseJSON = parseJSONText "LifecyclePolicyPreviewStatus"
data TagStatus
= Tagged
| Untagged
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText TagStatus where
parser = takeLowerText >>= \case
"tagged" -> pure Tagged
"untagged" -> pure Untagged
e -> fromTextError $ "Failure parsing TagStatus from value: '" <> e
<> "'. Accepted values: tagged, untagged"
instance ToText TagStatus where
toText = \case
Tagged -> "TAGGED"
Untagged -> "UNTAGGED"
instance Hashable TagStatus
instance NFData TagStatus
instance ToByteString TagStatus
instance ToQuery TagStatus
instance ToHeader TagStatus
instance ToJSON TagStatus where
toJSON = toJSONText