module Network.AWS.ELB.Waiters where
import Network.AWS.ELB.DescribeInstanceHealth
import Network.AWS.ELB.DescribeInstanceHealth
import Network.AWS.ELB.Types
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Waiter
anyInstanceInService :: Wait DescribeInstanceHealth
anyInstanceInService =
Wait
{ _waitName = "AnyInstanceInService"
, _waitAttempts = 40
, _waitDelay = 15
, _waitAcceptors =
[ matchAny
"InService"
AcceptSuccess
(folding (concatOf dihrsInstanceStates) .
isState . _Just . to toTextCI)
]
}
instanceInService :: Wait DescribeInstanceHealth
instanceInService =
Wait
{ _waitName = "InstanceInService"
, _waitAttempts = 40
, _waitDelay = 15
, _waitAcceptors =
[ matchAll
"InService"
AcceptSuccess
(folding (concatOf dihrsInstanceStates) .
isState . _Just . to toTextCI)
]
}