module Network.AWS.ElastiCache.Waiters where
import Network.AWS.ElastiCache.DescribeCacheClusters
import Network.AWS.ElastiCache.DescribeReplicationGroups
import Network.AWS.ElastiCache.Types
import Network.AWS.Waiters
cacheClusterAvailable :: Wait DescribeCacheClusters
cacheClusterAvailable = Wait
{ _waitName = "CacheClusterAvailable"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll "available" AcceptSuccess
(folding (concatOf dccrCacheClusters) . ccCacheClusterStatus . _Just)
, matchAny "deleted" AcceptFailure
(folding (concatOf dccrCacheClusters) . ccCacheClusterStatus . _Just)
, matchAny "deleting" AcceptFailure
(folding (concatOf dccrCacheClusters) . ccCacheClusterStatus . _Just)
, matchAny "incompatible-network" AcceptFailure
(folding (concatOf dccrCacheClusters) . ccCacheClusterStatus . _Just)
, matchAny "restore-failed" AcceptFailure
(folding (concatOf dccrCacheClusters) . ccCacheClusterStatus . _Just)
]
}
cacheClusterDeleted :: Wait DescribeCacheClusters
cacheClusterDeleted = Wait
{ _waitName = "CacheClusterDeleted"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchError "CacheClusterNotFound" AcceptSuccess
, matchAny "creating" AcceptFailure
(folding (concatOf dccrCacheClusters) . ccCacheClusterStatus . _Just)
, matchAny "modifying" AcceptFailure
(folding (concatOf dccrCacheClusters) . ccCacheClusterStatus . _Just)
, matchAny "rebooting" AcceptFailure
(folding (concatOf dccrCacheClusters) . ccCacheClusterStatus . _Just)
]
}
replicationGroupAvailable :: Wait DescribeReplicationGroups
replicationGroupAvailable = Wait
{ _waitName = "ReplicationGroupAvailable"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll "available" AcceptSuccess
(folding (concatOf drgrReplicationGroups) . rgStatus . _Just)
, matchAny "deleted" AcceptFailure
(folding (concatOf drgrReplicationGroups) . rgStatus . _Just)
, matchAny "deleting" AcceptFailure
(folding (concatOf drgrReplicationGroups) . rgStatus . _Just)
, matchAny "incompatible-network" AcceptFailure
(folding (concatOf drgrReplicationGroups) . rgStatus . _Just)
, matchAny "restore-failed" AcceptFailure
(folding (concatOf drgrReplicationGroups) . rgStatus . _Just)
]
}
replicationGroupDeleted :: Wait DescribeReplicationGroups
replicationGroupDeleted = Wait
{ _waitName = "ReplicationGroupDeleted"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchError "ReplicationGroupNotFoundFault" AcceptSuccess
, matchAny "creating" AcceptFailure
(folding (concatOf drgrReplicationGroups) . rgStatus . _Just)
, matchAny "modifying" AcceptFailure
(folding (concatOf drgrReplicationGroups) . rgStatus . _Just)
, matchAny "rebooting" AcceptFailure
(folding (concatOf drgrReplicationGroups) . rgStatus . _Just)
]
}