Regenerating waiters

dysinger · Dec 6, 2014 · d1fbfd4 · d1fbfd4
1 parent 271c27f
commit d1fbfd4
Show file tree

Hide file tree

Showing 57 changed files with 182 additions and 932 deletions.
diff --git a/amazonka-autoscaling/gen/Network/AWS/AutoScaling/Types.hs b/amazonka-autoscaling/gen/Network/AWS/AutoScaling/Types.hs
@@ -282,7 +282,7 @@ instance AWSService AutoScaling where
         handle = restError statusSuccess service'
 
         retry :: Retry AutoScaling
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-cloudformation/gen/Network/AWS/CloudFormation/Types.hs b/amazonka-cloudformation/gen/Network/AWS/CloudFormation/Types.hs
@@ -195,7 +195,7 @@ instance AWSService CloudFormation where
         handle = restError statusSuccess service'
 
         retry :: Retry CloudFormation
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-cloudfront/gen/Network/AWS/CloudFront/Types.hs b/amazonka-cloudfront/gen/Network/AWS/CloudFront/Types.hs
@@ -435,7 +435,7 @@ instance AWSService CloudFront where
         handle = restError statusSuccess service'
 
         retry :: Retry CloudFront
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-cloudsearch-domains/gen/Network/AWS/CloudSearchDomains/Types.hs b/amazonka-cloudsearch-domains/gen/Network/AWS/CloudSearchDomains/Types.hs
@@ -123,7 +123,7 @@ instance AWSService CloudSearchDomains where
         handle = jsonError statusSuccess service'
 
         retry :: Retry CloudSearchDomains
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-cloudsearch/gen/Network/AWS/CloudSearch/Types.hs b/amazonka-cloudsearch/gen/Network/AWS/CloudSearch/Types.hs
@@ -323,7 +323,7 @@ instance AWSService CloudSearch where
         handle = restError statusSuccess service'
 
         retry :: Retry CloudSearch
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-cloudtrail/gen/Network/AWS/CloudTrail/Types.hs b/amazonka-cloudtrail/gen/Network/AWS/CloudTrail/Types.hs
@@ -71,7 +71,7 @@ instance AWSService CloudTrail where
         handle = jsonError statusSuccess service'
 
         retry :: Retry CloudTrail
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-cloudwatch-logs/gen/Network/AWS/CloudWatchLogs/Types.hs b/amazonka-cloudwatch-logs/gen/Network/AWS/CloudWatchLogs/Types.hs
@@ -117,7 +117,7 @@ instance AWSService CloudWatchLogs where
         handle = jsonError statusSuccess service'
 
         retry :: Retry CloudWatchLogs
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-cloudwatch/gen/Network/AWS/CloudWatch/Types.hs b/amazonka-cloudwatch/gen/Network/AWS/CloudWatch/Types.hs
@@ -159,7 +159,7 @@ instance AWSService CloudWatch where
         handle = restError statusSuccess service'
 
         retry :: Retry CloudWatch
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/Types.hs b/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/Types.hs
@@ -245,7 +245,7 @@ instance AWSService CodeDeploy where
         handle = jsonError statusSuccess service'
 
         retry :: Retry CodeDeploy
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-cognito-identity/gen/Network/AWS/CognitoIdentity/Types.hs b/amazonka-cognito-identity/gen/Network/AWS/CognitoIdentity/Types.hs
@@ -82,7 +82,7 @@ instance AWSService CognitoIdentity where
         handle = jsonError statusSuccess service'
 
         retry :: Retry CognitoIdentity
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-cognito-sync/gen/Network/AWS/CognitoSync/Types.hs b/amazonka-cognito-sync/gen/Network/AWS/CognitoSync/Types.hs
@@ -119,7 +119,7 @@ instance AWSService CognitoSync where
         handle = jsonError statusSuccess service'
 
         retry :: Retry CognitoSync
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-config/gen/Network/AWS/Config/Types.hs b/amazonka-config/gen/Network/AWS/Config/Types.hs
@@ -152,7 +152,7 @@ instance AWSService Config where
         handle = jsonError statusSuccess service'
 
         retry :: Retry Config
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-datapipeline/gen/Network/AWS/DataPipeline/Types.hs b/amazonka-datapipeline/gen/Network/AWS/DataPipeline/Types.hs
@@ -155,7 +155,7 @@ instance AWSService DataPipeline where
         handle = jsonError statusSuccess service'
 
         retry :: Retry DataPipeline
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-directconnect/gen/Network/AWS/DirectConnect/Types.hs b/amazonka-directconnect/gen/Network/AWS/DirectConnect/Types.hs
@@ -176,7 +176,7 @@ instance AWSService DirectConnect where
         handle = jsonError statusSuccess service'
 
         retry :: Retry DirectConnect
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-dynamodb/gen/Network/AWS/DynamoDB/Types.hs b/amazonka-dynamodb/gen/Network/AWS/DynamoDB/Types.hs
@@ -268,7 +268,7 @@ instance AWSService DynamoDB where
         handle = jsonError statusSuccess service'
 
         retry :: Retry DynamoDB
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 10

diff --git a/amazonka-dynamodb/gen/Network/AWS/DynamoDB/Waiters.hs b/amazonka-dynamodb/gen/Network/AWS/DynamoDB/Waiters.hs
@@ -24,8 +24,8 @@ tableExists = Wait
     , _waitAttempts  = 25
     , _waitDelay     = 20
     , _waitAcceptors =
-        [ path Success {"contents":["dtrTable",{"contents":"tdTableStatus","type":"access"}],"type":"nested"} "ACTIVE"
-        , error Retry null "ResourceNotFoundException"
+        [ path (dtrTable . tdTableStatus) "ACTIVE" Success
+        , error "ResourceNotFoundException" Retry
         ]
     }
 
@@ -35,6 +35,6 @@ tableNotExists = Wait
     , _waitAttempts  = 25
     , _waitDelay     = 20
     , _waitAcceptors =
-        [ error Success null "ResourceNotFoundException"
+        [ error "ResourceNotFoundException" Success
         ]
     }
diff --git a/amazonka-ec2/gen/Network/AWS/EC2/Types.hs b/amazonka-ec2/gen/Network/AWS/EC2/Types.hs
@@ -1429,7 +1429,7 @@ instance AWSService EC2 where
         handle = restError statusSuccess service'
 
         retry :: Retry EC2
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/Waiters.hs b/amazonka-ec2/gen/Network/AWS/EC2/Waiters.hs
@@ -33,8 +33,8 @@ bundleTaskComplete = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dbtrBundleTasks",{"contents":"btState","type":"access"}],"type":"indexed"} "complete"
-        , pathAny Failure {"contents":["dbtrBundleTasks",{"contents":"btState","type":"access"}],"type":"indexed"} "failed"
+        [ pathAll (dbtrBundleTasks . btState) "complete" Success
+        , pathAny (dbtrBundleTasks . btState) "failed" Failure
         ]
     }
 
@@ -44,7 +44,7 @@ conversionTaskCancelled = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dctrConversionTasks",{"contents":"ctState","type":"access"}],"type":"indexed"} "cancelled"
+        [ pathAll (dctrConversionTasks . ctState) "cancelled" Success
         ]
     }
 
@@ -54,9 +54,9 @@ conversionTaskCompleted = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dctrConversionTasks",{"contents":"ctState","type":"access"}],"type":"indexed"} "completed"
-        , pathAny Failure {"contents":["dctrConversionTasks",{"contents":"ctState","type":"access"}],"type":"indexed"} "cancelled"
-        , pathAny Failure {"contents":["dctrConversionTasks",{"contents":"ctState","type":"access"}],"type":"indexed"} "cancelling"
+        [ pathAll (dctrConversionTasks . ctState) "completed" Success
+        , pathAny (dctrConversionTasks . ctState) "cancelled" Failure
+        , pathAny (dctrConversionTasks . ctState) "cancelling" Failure
         ]
     }
 
@@ -66,7 +66,7 @@ conversionTaskDeleted = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dctrConversionTasks",{"contents":"ctState","type":"access"}],"type":"indexed"} "deleted"
+        [ pathAll (dctrConversionTasks . ctState) "deleted" Success
         ]
     }
 
@@ -76,9 +76,9 @@ customerGatewayAvailable = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dcgrCustomerGateways",{"contents":"cgState","type":"access"}],"type":"indexed"} "available"
-        , pathAny Failure {"contents":["dcgrCustomerGateways",{"contents":"cgState","type":"access"}],"type":"indexed"} "deleted"
-        , pathAny Failure {"contents":["dcgrCustomerGateways",{"contents":"cgState","type":"access"}],"type":"indexed"} "deleting"
+        [ pathAll (dcgrCustomerGateways . cgState) "available" Success
+        , pathAny (dcgrCustomerGateways . cgState) "deleted" Failure
+        , pathAny (dcgrCustomerGateways . cgState) "deleting" Failure
         ]
     }
 
@@ -88,7 +88,7 @@ exportTaskCancelled = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["detrExportTasks",{"contents":"etState","type":"access"}],"type":"indexed"} "cancelled"
+        [ pathAll (detrExportTasks . etState) "cancelled" Success
         ]
     }
 
@@ -98,7 +98,7 @@ exportTaskCompleted = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["detrExportTasks",{"contents":"etState","type":"access"}],"type":"indexed"} "completed"
+        [ pathAll (detrExportTasks . etState) "completed" Success
         ]
     }
 
@@ -108,10 +108,10 @@ instanceRunning = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dirReservations",{"contents":["rInstances",{"contents":["i1State",{"contents":"isName","type":"access"}],"type":"nested"}],"type":"indexed"}],"type":"indexed"} "running"
-        , pathAny Failure {"contents":["dirReservations",{"contents":["rInstances",{"contents":["i1State",{"contents":"isName","type":"access"}],"type":"nested"}],"type":"indexed"}],"type":"indexed"} "shutting-down"
-        , pathAny Failure {"contents":["dirReservations",{"contents":["rInstances",{"contents":["i1State",{"contents":"isName","type":"access"}],"type":"nested"}],"type":"indexed"}],"type":"indexed"} "terminated"
-        , pathAny Failure {"contents":["dirReservations",{"contents":["rInstances",{"contents":["i1State",{"contents":"isName","type":"access"}],"type":"nested"}],"type":"indexed"}],"type":"indexed"} "stopping"
+        [ pathAll (dirReservations . rInstances . i1State . isName) "running" Success
+        , pathAny (dirReservations . rInstances . i1State . isName) "shutting-down" Failure
+        , pathAny (dirReservations . rInstances . i1State . isName) "terminated" Failure
+        , pathAny (dirReservations . rInstances . i1State . isName) "stopping" Failure
         ]
     }
 
@@ -121,9 +121,9 @@ instanceStopped = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dirReservations",{"contents":["rInstances",{"contents":["i1State",{"contents":"isName","type":"access"}],"type":"nested"}],"type":"indexed"}],"type":"indexed"} "stopped"
-        , pathAny Failure {"contents":["dirReservations",{"contents":["rInstances",{"contents":["i1State",{"contents":"isName","type":"access"}],"type":"nested"}],"type":"indexed"}],"type":"indexed"} "pending"
-        , pathAny Failure {"contents":["dirReservations",{"contents":["rInstances",{"contents":["i1State",{"contents":"isName","type":"access"}],"type":"nested"}],"type":"indexed"}],"type":"indexed"} "terminated"
+        [ pathAll (dirReservations . rInstances . i1State . isName) "stopped" Success
+        , pathAny (dirReservations . rInstances . i1State . isName) "pending" Failure
+        , pathAny (dirReservations . rInstances . i1State . isName) "terminated" Failure
         ]
     }
 
@@ -133,9 +133,9 @@ instanceTerminated = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dirReservations",{"contents":["rInstances",{"contents":["i1State",{"contents":"isName","type":"access"}],"type":"nested"}],"type":"indexed"}],"type":"indexed"} "terminated"
-        , pathAny Failure {"contents":["dirReservations",{"contents":["rInstances",{"contents":["i1State",{"contents":"isName","type":"access"}],"type":"nested"}],"type":"indexed"}],"type":"indexed"} "pending"
-        , pathAny Failure {"contents":["dirReservations",{"contents":["rInstances",{"contents":["i1State",{"contents":"isName","type":"access"}],"type":"nested"}],"type":"indexed"}],"type":"indexed"} "stopping"
+        [ pathAll (dirReservations . rInstances . i1State . isName) "terminated" Success
+        , pathAny (dirReservations . rInstances . i1State . isName) "pending" Failure
+        , pathAny (dirReservations . rInstances . i1State . isName) "stopping" Failure
         ]
     }
 
@@ -145,7 +145,7 @@ snapshotCompleted = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dsrSnapshots",{"contents":"sState","type":"access"}],"type":"indexed"} "completed"
+        [ pathAll (dsrSnapshots . sState) "completed" Success
         ]
     }
 
@@ -155,7 +155,7 @@ subnetAvailable = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dsrSubnets",{"contents":"s1State","type":"access"}],"type":"indexed"} "available"
+        [ pathAll (dsrSubnets . s1State) "available" Success
         ]
     }
 
@@ -165,8 +165,8 @@ volumeAvailable = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dvrVolumes",{"contents":"vState","type":"access"}],"type":"indexed"} "available"
-        , pathAny Failure {"contents":["dvrVolumes",{"contents":"vState","type":"access"}],"type":"indexed"} "deleted"
+        [ pathAll (dvrVolumes . vState) "available" Success
+        , pathAny (dvrVolumes . vState) "deleted" Failure
         ]
     }
 
@@ -176,7 +176,7 @@ volumeDeleted = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dvrVolumes",{"contents":"vState","type":"access"}],"type":"indexed"} "deleted"
+        [ pathAll (dvrVolumes . vState) "deleted" Success
         ]
     }
 
@@ -186,8 +186,8 @@ volumeInUse = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dvrVolumes",{"contents":"vState","type":"access"}],"type":"indexed"} "in-use"
-        , pathAny Failure {"contents":["dvrVolumes",{"contents":"vState","type":"access"}],"type":"indexed"} "deleted"
+        [ pathAll (dvrVolumes . vState) "in-use" Success
+        , pathAny (dvrVolumes . vState) "deleted" Failure
         ]
     }
 
@@ -197,7 +197,7 @@ vpcAvailable = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dvrVpcs",{"contents":"vpcState","type":"access"}],"type":"indexed"} "available"
+        [ pathAll (dvrVpcs . vpcState) "available" Success
         ]
     }
 
@@ -207,9 +207,9 @@ vpnConnectionAvailable = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dvcrVpnConnections",{"contents":"vcState","type":"access"}],"type":"indexed"} "available"
-        , pathAny Failure {"contents":["dvcrVpnConnections",{"contents":"vcState","type":"access"}],"type":"indexed"} "deleting"
-        , pathAny Failure {"contents":["dvcrVpnConnections",{"contents":"vcState","type":"access"}],"type":"indexed"} "deleted"
+        [ pathAll (dvcrVpnConnections . vcState) "available" Success
+        , pathAny (dvcrVpnConnections . vcState) "deleting" Failure
+        , pathAny (dvcrVpnConnections . vcState) "deleted" Failure
         ]
     }
 
@@ -219,7 +219,7 @@ vpnConnectionDeleted = Wait
     , _waitAttempts  = 40
     , _waitDelay     = 15
     , _waitAcceptors =
-        [ pathAll Success {"contents":["dvcrVpnConnections",{"contents":"vcState","type":"access"}],"type":"indexed"} "deleted"
-        , pathAny Failure {"contents":["dvcrVpnConnections",{"contents":"vcState","type":"access"}],"type":"indexed"} "pending"
+        [ pathAll (dvcrVpnConnections . vcState) "deleted" Success
+        , pathAny (dvcrVpnConnections . vcState) "pending" Failure
         ]
     }
diff --git a/amazonka-elasticache/gen/Network/AWS/ElastiCache/Types.hs b/amazonka-elasticache/gen/Network/AWS/ElastiCache/Types.hs
@@ -357,7 +357,7 @@ instance AWSService ElastiCache where
         handle = restError statusSuccess service'
 
         retry :: Retry ElastiCache
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-elasticbeanstalk/gen/Network/AWS/ElasticBeanstalk/Types.hs b/amazonka-elasticbeanstalk/gen/Network/AWS/ElasticBeanstalk/Types.hs
@@ -298,7 +298,7 @@ instance AWSService ElasticBeanstalk where
         handle = restError statusSuccess service'
 
         retry :: Retry ElasticBeanstalk
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/Types.hs b/amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/Types.hs
@@ -311,7 +311,7 @@ instance AWSService ElasticTranscoder where
         handle = jsonError statusSuccess service'
 
         retry :: Retry ElasticTranscoder
-        retry = Retry
+        retry = Exponential
             { _retryBase     = 0.05
             , _retryGrowth   = 2
             , _retryAttempts = 5

diff --git a/amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/Waiters.hs b/amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/Waiters.hs
@@ -24,8 +24,8 @@ jobComplete = Wait
     , _waitAttempts  = 120
     , _waitDelay     = 30
     , _waitAcceptors =
-        [ path Success {"contents":["rjrJob",{"contents":"jStatus","type":"access"}],"type":"nested"} "Complete"
-        , path Failure {"contents":["rjrJob",{"contents":"jStatus","type":"access"}],"type":"nested"} "Canceled"
-        , path Failure {"contents":["rjrJob",{"contents":"jStatus","type":"access"}],"type":"nested"} "Error"
+        [ path (rjrJob . jStatus) "Complete" Success
+        , path (rjrJob . jStatus) "Canceled" Failure
+        , path (rjrJob . jStatus) "Error" Failure
         ]
     }