module Network.AWS.CloudFront.Waiters where
import Network.AWS.CloudFront.GetDistribution
import Network.AWS.CloudFront.GetInvalidation
import Network.AWS.CloudFront.GetStreamingDistribution
import Network.AWS.CloudFront.Types
import Network.AWS.Prelude
import Network.AWS.Waiter
streamingDistributionDeployed :: Wait GetStreamingDistribution
streamingDistributionDeployed =
Wait
{ _waitName = "StreamingDistributionDeployed"
, _waitAttempts = 25
, _waitDelay = 60
, _waitAcceptors = [ matchAll
"Deployed"
AcceptSuccess
(gsdrsStreamingDistribution .
_Just . sdStatus . to toTextCI)]
}
distributionDeployed :: Wait GetDistribution
distributionDeployed =
Wait
{ _waitName = "DistributionDeployed"
, _waitAttempts = 25
, _waitDelay = 60
, _waitAcceptors = [ matchAll
"Deployed"
AcceptSuccess
(gdrsDistribution . _Just . dStatus . to toTextCI)]
}
invalidationCompleted :: Wait GetInvalidation
invalidationCompleted =
Wait
{ _waitName = "InvalidationCompleted"
, _waitAttempts = 60
, _waitDelay = 20
, _waitAcceptors = [ matchAll
"Completed"
AcceptSuccess
(girsInvalidation . _Just . iStatus . to toTextCI)]
}