{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.ELB.Waiters where
import Network.AWS.ELB.DescribeInstanceHealth
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)
]
}
instanceDeregistered :: Wait DescribeInstanceHealth
instanceDeregistered =
Wait
{ _waitName = "InstanceDeregistered"
, _waitAttempts = 40
, _waitDelay = 15
, _waitAcceptors =
[ matchAll
"OutOfService"
AcceptSuccess
(folding (concatOf dihrsInstanceStates) .
isState . _Just . to toTextCI)
, matchError "InvalidInstance" AcceptSuccess
]
}
instanceInService :: Wait DescribeInstanceHealth
instanceInService =
Wait
{ _waitName = "InstanceInService"
, _waitAttempts = 40
, _waitDelay = 15
, _waitAcceptors =
[ matchAll
"InService"
AcceptSuccess
(folding (concatOf dihrsInstanceStates) .
isState . _Just . to toTextCI)
, matchError "InvalidInstance" AcceptRetry
]
}