{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.AppStream.Waiters where
import Network.AWS.AppStream.DescribeFleets
import Network.AWS.AppStream.DescribeFleets
import Network.AWS.AppStream.Types
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Waiter
fleetStopped :: Wait DescribeFleets
fleetStopped =
Wait
{ _waitName = "FleetStopped"
, _waitAttempts = 40
, _waitDelay = 30
, _waitAcceptors =
[ matchAll
"INACTIVE"
AcceptSuccess
(folding (concatOf dfsrsFleets) . fState . to toTextCI)
, matchAny
"PENDING_ACTIVATE"
AcceptFailure
(folding (concatOf dfsrsFleets) . fState . to toTextCI)
, matchAny
"ACTIVE"
AcceptFailure
(folding (concatOf dfsrsFleets) . fState . to toTextCI)
]
}
fleetStarted :: Wait DescribeFleets
fleetStarted =
Wait
{ _waitName = "FleetStarted"
, _waitAttempts = 40
, _waitDelay = 30
, _waitAcceptors =
[ matchAll
"ACTIVE"
AcceptSuccess
(folding (concatOf dfsrsFleets) . fState . to toTextCI)
, matchAny
"PENDING_DEACTIVATE"
AcceptFailure
(folding (concatOf dfsrsFleets) . fState . to toTextCI)
, matchAny
"INACTIVE"
AcceptFailure
(folding (concatOf dfsrsFleets) . fState . to toTextCI)
]
}