Skip to content

Commit

Permalink
Formatting and alignment
Browse files Browse the repository at this point in the history
  • Loading branch information
@brendanhay
brendanhay committed Dec 4, 2014
1 parent da6fed7 commit a999f4c
Show file tree
Hide file tree
Showing 11 changed files with 166 additions and 126 deletions.
24 changes: 14 additions & 10 deletions amazonka-cloudfront/gen/Network/AWS/CloudFront/Waiters.hs
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}

-- Module : Network.AWS.CloudFront.Waiters
-- Copyright : (c) 2013-2014 Brendan Hay <[email protected]>
Expand All @@ -21,21 +22,24 @@ import Network.AWS.Types

distributionDeployed :: Wait GetDistribution
distributionDeployed = Wait
{ _waitDelay = 60
, _waitAttempts = 25
, _waitAccept = const True
{ _waitName = "DistributionDeployed"
, _waitDelay = 60
, _waitAttempts = 25
, _waitAccept = const True
}

invalidationCompleted :: Wait GetInvalidation
invalidationCompleted = Wait
{ _waitDelay = 20
, _waitAttempts = 30
, _waitAccept = const True
{ _waitName = "InvalidationCompleted"
, _waitDelay = 20
, _waitAttempts = 30
, _waitAccept = const True
}

streamingDistributionDeployed :: Wait GetStreamingDistribution
streamingDistributionDeployed = Wait
{ _waitDelay = 60
, _waitAttempts = 25
, _waitAccept = const True
{ _waitName = "StreamingDistributionDeployed"
, _waitDelay = 60
, _waitAttempts = 25
, _waitAccept = const True
}
17 changes: 10 additions & 7 deletions amazonka-dynamodb/gen/Network/AWS/DynamoDB/Waiters.hs
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}

-- Module : Network.AWS.DynamoDB.Waiters
-- Copyright : (c) 2013-2014 Brendan Hay <[email protected]>
Expand All @@ -19,14 +20,16 @@ import Network.AWS.Types

tableExists :: Wait DescribeTable
tableExists = Wait
{ _waitDelay = 20
, _waitAttempts = 25
, _waitAccept = const True
{ _waitName = "TableExists"
, _waitDelay = 20
, _waitAttempts = 25
, _waitAccept = const True
}

tableNotExists :: Wait DescribeTable
tableNotExists = Wait
{ _waitDelay = 20
, _waitAttempts = 25
, _waitAccept = const True
{ _waitName = "TableNotExists"
, _waitDelay = 20
, _waitAttempts = 25
, _waitAccept = const True
}
129 changes: 74 additions & 55 deletions amazonka-ec2/gen/Network/AWS/EC2/Waiters.hs
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}

-- Module : Network.AWS.EC2.Waiters
-- Copyright : (c) 2013-2014 Brendan Hay <[email protected]>
Expand Down Expand Up @@ -28,126 +29,144 @@ import Network.AWS.Types

bundleTaskComplete :: Wait DescribeBundleTasks
bundleTaskComplete = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "BundleTaskComplete"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

conversionTaskCancelled :: Wait DescribeConversionTasks
conversionTaskCancelled = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "ConversionTaskCancelled"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

conversionTaskCompleted :: Wait DescribeConversionTasks
conversionTaskCompleted = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "ConversionTaskCompleted"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

conversionTaskDeleted :: Wait DescribeConversionTasks
conversionTaskDeleted = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "ConversionTaskDeleted"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

customerGatewayAvailable :: Wait DescribeCustomerGateways
customerGatewayAvailable = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "CustomerGatewayAvailable"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

exportTaskCancelled :: Wait DescribeExportTasks
exportTaskCancelled = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "ExportTaskCancelled"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

exportTaskCompleted :: Wait DescribeExportTasks
exportTaskCompleted = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "ExportTaskCompleted"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

instanceRunning :: Wait DescribeInstances
instanceRunning = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "InstanceRunning"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

instanceStopped :: Wait DescribeInstances
instanceStopped = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "InstanceStopped"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

instanceTerminated :: Wait DescribeInstances
instanceTerminated = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "InstanceTerminated"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

snapshotCompleted :: Wait DescribeSnapshots
snapshotCompleted = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "SnapshotCompleted"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

subnetAvailable :: Wait DescribeSubnets
subnetAvailable = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "SubnetAvailable"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

volumeAvailable :: Wait DescribeVolumes
volumeAvailable = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "VolumeAvailable"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

volumeDeleted :: Wait DescribeVolumes
volumeDeleted = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "VolumeDeleted"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

volumeInUse :: Wait DescribeVolumes
volumeInUse = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "VolumeInUse"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

vpcAvailable :: Wait DescribeVpcs
vpcAvailable = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "VpcAvailable"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

vpnConnectionAvailable :: Wait DescribeVpnConnections
vpnConnectionAvailable = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "VpnConnectionAvailable"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}

vpnConnectionDeleted :: Wait DescribeVpnConnections
vpnConnectionDeleted = Wait
{ _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
{ _waitName = "VpnConnectionDeleted"
, _waitDelay = 15
, _waitAttempts = 40
, _waitAccept = const True
}
10 changes: 6 additions & 4 deletions amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/Waiters.hs
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}

-- Module : Network.AWS.ElasticTranscoder.Waiters
-- Copyright : (c) 2013-2014 Brendan Hay <[email protected]>
Expand All @@ -19,7 +20,8 @@ import Network.AWS.Types

jobComplete :: Wait ReadJob
jobComplete = Wait
{ _waitDelay = 30
, _waitAttempts = 120
, _waitAccept = const True
{ _waitName = "JobComplete"
, _waitDelay = 30
, _waitAttempts = 120
, _waitAccept = const True
}
10 changes: 6 additions & 4 deletions amazonka-emr/gen/Network/AWS/EMR/Waiters.hs
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}

-- Module : Network.AWS.EMR.Waiters
-- Copyright : (c) 2013-2014 Brendan Hay <[email protected]>
Expand All @@ -19,7 +20,8 @@ import Network.AWS.Types

clusterRunning :: Wait DescribeCluster
clusterRunning = Wait
{ _waitDelay = 30
, _waitAttempts = 60
, _waitAccept = const True
{ _waitName = "ClusterRunning"
, _waitDelay = 30
, _waitAttempts = 60
, _waitAccept = const True
}
17 changes: 10 additions & 7 deletions amazonka-rds/gen/Network/AWS/RDS/Waiters.hs
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}

-- Module : Network.AWS.RDS.Waiters
-- Copyright : (c) 2013-2014 Brendan Hay <[email protected]>
Expand All @@ -19,14 +20,16 @@ import Network.AWS.Types

dBInstanceAvailable :: Wait DescribeDBInstances
dBInstanceAvailable = Wait
{ _waitDelay = 30
, _waitAttempts = 60
, _waitAccept = const True
{ _waitName = "DBInstanceAvailable"
, _waitDelay = 30
, _waitAttempts = 60
, _waitAccept = const True
}

dBInstanceDeleted :: Wait DescribeDBInstances
dBInstanceDeleted = Wait
{ _waitDelay = 30
, _waitAttempts = 60
, _waitAccept = const True
{ _waitName = "DBInstanceDeleted"
, _waitDelay = 30
, _waitAttempts = 60
, _waitAccept = const True
}
24 changes: 14 additions & 10 deletions amazonka-redshift/gen/Network/AWS/Redshift/Waiters.hs
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}

-- Module : Network.AWS.Redshift.Waiters
-- Copyright : (c) 2013-2014 Brendan Hay <[email protected]>
Expand All @@ -20,21 +21,24 @@ import Network.AWS.Types

clusterAvailable :: Wait DescribeClusters
clusterAvailable = Wait
{ _waitDelay = 60
, _waitAttempts = 30
, _waitAccept = const True
{ _waitName = "ClusterAvailable"
, _waitDelay = 60
, _waitAttempts = 30
, _waitAccept = const True
}

clusterDeleted :: Wait DescribeClusters
clusterDeleted = Wait
{ _waitDelay = 60
, _waitAttempts = 30
, _waitAccept = const True
{ _waitName = "ClusterDeleted"
, _waitDelay = 60
, _waitAttempts = 30
, _waitAccept = const True
}

snapshotAvailable :: Wait DescribeClusterSnapshots
snapshotAvailable = Wait
{ _waitDelay = 15
, _waitAttempts = 20
, _waitAccept = const True
{ _waitName = "SnapshotAvailable"
, _waitDelay = 15
, _waitAttempts = 20
, _waitAccept = const True
}
Loading

0 comments on commit a999f4c

Please sign in to comment.