{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
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.Lens
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 = 30
, _waitDelay = 20
, _waitAcceptors =
[ matchAll
"Completed"
AcceptSuccess
(girsInvalidation . _Just . iStatus . to toTextCI)
]
}