module Network.AWS.EMR.Waiters where
import Network.AWS.EMR.DescribeCluster
import Network.AWS.EMR.Types
import Network.AWS.Waiters
clusterRunning :: Wait DescribeCluster
clusterRunning = Wait
{ _waitName = "ClusterRunning"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll CSRunning AcceptSuccess
(dcrCluster . c1Status . csState . _Just)
, matchAll CSWaiting AcceptSuccess
(dcrCluster . c1Status . csState . _Just)
, matchAll CSTerminating AcceptFailure
(dcrCluster . c1Status . csState . _Just)
, matchAll CSTerminated AcceptFailure
(dcrCluster . c1Status . csState . _Just)
, matchAll CSTerminatedWithErrors AcceptFailure
(dcrCluster . c1Status . csState . _Just)
]
}