summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2016-10-23 08:51:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2016-10-23 08:51:00 (GMT)
commitb5761b0610df0a371a9cd559c4285eccae5e47cb (patch)
tree0f930521c153fde1b5bfc5f361d87029c2eb0c47
parent305494610bafb3dbde26be37cc0d5c71ac8663fe (diff)
version 1.4.41.4.4
-rw-r--r--README.md2
-rw-r--r--amazonka-codedeploy.cabal12
-rw-r--r--gen/Network/AWS/CodeDeploy.hs3
-rw-r--r--gen/Network/AWS/CodeDeploy/Types/Sum.hs26
-rw-r--r--gen/Network/AWS/CodeDeploy/Waiters.hs26
5 files changed, 49 insertions, 20 deletions
diff --git a/README.md b/README.md
index fa1c0ce..85a6a93 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.4.3`
+`1.4.4`
## Description
diff --git a/amazonka-codedeploy.cabal b/amazonka-codedeploy.cabal
index 94f9c55..bd5c90d 100644
--- a/amazonka-codedeploy.cabal
+++ b/amazonka-codedeploy.cabal
@@ -1,5 +1,5 @@
name: amazonka-codedeploy
-version: 1.4.3
+version: 1.4.4
synopsis: Amazon CodeDeploy SDK.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
@@ -11,7 +11,7 @@ copyright: Copyright (c) 2013-2016 Brendan Hay
category: Network, AWS, Cloud, Distributed Computing
build-type: Simple
cabal-version: >= 1.10
-extra-source-files: README.md fixture/*.yaml fixture/*.proto
+extra-source-files: README.md fixture/*.yaml fixture/*.proto src/.gitkeep
description:
AWS CodeDeploy __Overview__
@@ -114,7 +114,7 @@ library
, Network.AWS.CodeDeploy.Types.Sum
build-depends:
- amazonka-core == 1.4.3.*
+ amazonka-core == 1.4.4.*
, base >= 4.7 && < 5
test-suite amazonka-codedeploy-test
@@ -134,9 +134,9 @@ test-suite amazonka-codedeploy-test
, Test.AWS.CodeDeploy.Internal
build-depends:
- amazonka-core == 1.4.3.*
- , amazonka-test == 1.4.3.*
- , amazonka-codedeploy == 1.4.3.*
+ amazonka-core == 1.4.4.*
+ , amazonka-test == 1.4.4.*
+ , amazonka-codedeploy == 1.4.4.*
, base
, bytestring
, tasty
diff --git a/gen/Network/AWS/CodeDeploy.hs b/gen/Network/AWS/CodeDeploy.hs
index 4e8641a..f248bb9 100644
--- a/gen/Network/AWS/CodeDeploy.hs
+++ b/gen/Network/AWS/CodeDeploy.hs
@@ -237,6 +237,9 @@ module Network.AWS.CodeDeploy
-- * Waiters
-- $waiters
+ -- ** DeploymentSuccessful
+ , deploymentSuccessful
+
-- * Operations
-- $operations
diff --git a/gen/Network/AWS/CodeDeploy/Types/Sum.hs b/gen/Network/AWS/CodeDeploy/Types/Sum.hs
index 1ac958f..8b51afc 100644
--- a/gen/Network/AWS/CodeDeploy/Types/Sum.hs
+++ b/gen/Network/AWS/CodeDeploy/Types/Sum.hs
@@ -31,7 +31,7 @@ instance FromText ApplicationRevisionSortBy where
"lastusedtime" -> pure LastUsedTime
"registertime" -> pure RegisterTime
e -> fromTextError $ "Failure parsing ApplicationRevisionSortBy from value: '" <> e
- <> "'. Accepted values: firstUsedTime, lastUsedTime, registerTime"
+ <> "'. Accepted values: firstusedtime, lastusedtime, registertime"
instance ToText ApplicationRevisionSortBy where
toText = \case
@@ -112,7 +112,7 @@ instance FromText DeployErrorCode where
"throttled" -> pure Throttled
"timeout" -> pure Timeout
e -> fromTextError $ "Failure parsing DeployErrorCode from value: '" <> e
- <> "'. Accepted values: APPLICATION_MISSING, DEPLOYMENT_GROUP_MISSING, HEALTH_CONSTRAINTS, HEALTH_CONSTRAINTS_INVALID, IAM_ROLE_MISSING, IAM_ROLE_PERMISSIONS, INTERNAL_ERROR, NO_EC2_SUBSCRIPTION, NO_INSTANCES, OVER_MAX_INSTANCES, REVISION_MISSING, THROTTLED, TIMEOUT"
+ <> "'. Accepted values: application_missing, deployment_group_missing, health_constraints, health_constraints_invalid, iam_role_missing, iam_role_permissions, internal_error, no_ec2_subscription, no_instances, over_max_instances, revision_missing, throttled, timeout"
instance ToText DeployErrorCode where
toText = \case
@@ -183,7 +183,7 @@ instance FromText DeploymentStatus where
"stopped" -> pure Stopped
"succeeded" -> pure Succeeded
e -> fromTextError $ "Failure parsing DeploymentStatus from value: '" <> e
- <> "'. Accepted values: Created, Failed, InProgress, Queued, Stopped, Succeeded"
+ <> "'. Accepted values: created, failed, inprogress, queued, stopped, succeeded"
instance ToText DeploymentStatus where
toText = \case
@@ -218,7 +218,7 @@ instance FromText EC2TagFilterType where
"key_only" -> pure KeyOnly
"value_only" -> pure ValueOnly
e -> fromTextError $ "Failure parsing EC2TagFilterType from value: '" <> e
- <> "'. Accepted values: KEY_AND_VALUE, KEY_ONLY, VALUE_ONLY"
+ <> "'. Accepted values: key_and_value, key_only, value_only"
instance ToText EC2TagFilterType where
toText = \case
@@ -256,7 +256,7 @@ instance FromText InstanceStatus where
"succeeded" -> pure ISSucceeded
"unknown" -> pure ISUnknown
e -> fromTextError $ "Failure parsing InstanceStatus from value: '" <> e
- <> "'. Accepted values: Failed, InProgress, Pending, Skipped, Succeeded, Unknown"
+ <> "'. Accepted values: failed, inprogress, pending, skipped, succeeded, unknown"
instance ToText InstanceStatus where
toText = \case
@@ -297,7 +297,7 @@ instance FromText LifecycleErrorCode where
"success" -> pure Success
"unknownerror" -> pure UnknownError
e -> fromTextError $ "Failure parsing LifecycleErrorCode from value: '" <> e
- <> "'. Accepted values: ScriptFailed, ScriptMissing, ScriptNotExecutable, ScriptTimedOut, Success, UnknownError"
+ <> "'. Accepted values: scriptfailed, scriptmissing, scriptnotexecutable, scripttimedout, success, unknownerror"
instance ToText LifecycleErrorCode where
toText = \case
@@ -335,7 +335,7 @@ instance FromText LifecycleEventStatus where
"succeeded" -> pure LESSucceeded
"unknown" -> pure LESUnknown
e -> fromTextError $ "Failure parsing LifecycleEventStatus from value: '" <> e
- <> "'. Accepted values: Failed, InProgress, Pending, Skipped, Succeeded, Unknown"
+ <> "'. Accepted values: failed, inprogress, pending, skipped, succeeded, unknown"
instance ToText LifecycleEventStatus where
toText = \case
@@ -394,7 +394,7 @@ instance FromText MinimumHealthyHostsType where
"fleet_percent" -> pure FleetPercent
"host_count" -> pure HostCount
e -> fromTextError $ "Failure parsing MinimumHealthyHostsType from value: '" <> e
- <> "'. Accepted values: FLEET_PERCENT, HOST_COUNT"
+ <> "'. Accepted values: fleet_percent, host_count"
instance ToText MinimumHealthyHostsType where
toText = \case
@@ -423,7 +423,7 @@ instance FromText RegistrationStatus where
"deregistered" -> pure Deregistered
"registered" -> pure Registered
e -> fromTextError $ "Failure parsing RegistrationStatus from value: '" <> e
- <> "'. Accepted values: Deregistered, Registered"
+ <> "'. Accepted values: deregistered, registered"
instance ToText RegistrationStatus where
toText = \case
@@ -449,7 +449,7 @@ instance FromText RevisionLocationType where
"github" -> pure GitHub
"s3" -> pure S3
e -> fromTextError $ "Failure parsing RevisionLocationType from value: '" <> e
- <> "'. Accepted values: GitHub, S3"
+ <> "'. Accepted values: github, s3"
instance ToText RevisionLocationType where
toText = \case
@@ -504,7 +504,7 @@ instance FromText StopStatus where
"pending" -> pure SSPending
"succeeded" -> pure SSSucceeded
e -> fromTextError $ "Failure parsing StopStatus from value: '" <> e
- <> "'. Accepted values: Pending, Succeeded"
+ <> "'. Accepted values: pending, succeeded"
instance ToText StopStatus where
toText = \case
@@ -532,7 +532,7 @@ instance FromText TagFilterType where
"key_only" -> pure TFTKeyOnly
"value_only" -> pure TFTValueOnly
e -> fromTextError $ "Failure parsing TagFilterType from value: '" <> e
- <> "'. Accepted values: KEY_AND_VALUE, KEY_ONLY, VALUE_ONLY"
+ <> "'. Accepted values: key_and_value, key_only, value_only"
instance ToText TagFilterType where
toText = \case
@@ -572,7 +572,7 @@ instance FromText TriggerEventType where
"instancestart" -> pure InstanceStart
"instancesuccess" -> pure InstanceSuccess
e -> fromTextError $ "Failure parsing TriggerEventType from value: '" <> e
- <> "'. Accepted values: DeploymentFailure, DeploymentStart, DeploymentStop, DeploymentSuccess, InstanceFailure, InstanceStart, InstanceSuccess"
+ <> "'. Accepted values: deploymentfailure, deploymentstart, deploymentstop, deploymentsuccess, instancefailure, instancestart, instancesuccess"
instance ToText TriggerEventType where
toText = \case
diff --git a/gen/Network/AWS/CodeDeploy/Waiters.hs b/gen/Network/AWS/CodeDeploy/Waiters.hs
index 8b6d1bb..c8b66c4 100644
--- a/gen/Network/AWS/CodeDeploy/Waiters.hs
+++ b/gen/Network/AWS/CodeDeploy/Waiters.hs
@@ -15,7 +15,33 @@
--
module Network.AWS.CodeDeploy.Waiters where
+import Network.AWS.CodeDeploy.GetDeployment
import Network.AWS.CodeDeploy.Types
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Waiter
+
+-- | Polls 'Network.AWS.CodeDeploy.GetDeployment' every 15 seconds until a
+-- successful state is reached. An error is returned after 120 failed checks.
+deploymentSuccessful :: Wait GetDeployment
+deploymentSuccessful =
+ Wait
+ { _waitName = "DeploymentSuccessful"
+ , _waitAttempts = 120
+ , _waitDelay = 15
+ , _waitAcceptors = [ matchAll
+ "Succeeded"
+ AcceptSuccess
+ (gdrsDeploymentInfo .
+ _Just . diStatus . _Just . to toTextCI)
+ , matchAll
+ "Failed"
+ AcceptFailure
+ (gdrsDeploymentInfo .
+ _Just . diStatus . _Just . to toTextCI)
+ , matchAll
+ "Stopped"
+ AcceptFailure
+ (gdrsDeploymentInfo .
+ _Just . diStatus . _Just . to toTextCI)]
+ }