{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.OpsWorks.Waiters where
import Network.AWS.Lens
import Network.AWS.OpsWorks.DescribeApps
import Network.AWS.OpsWorks.DescribeDeployments
import Network.AWS.OpsWorks.DescribeInstances
import Network.AWS.OpsWorks.DescribeInstances
import Network.AWS.OpsWorks.DescribeInstances
import Network.AWS.OpsWorks.DescribeInstances
import Network.AWS.OpsWorks.Types
import Network.AWS.Prelude
import Network.AWS.Waiter
instanceTerminated :: Wait DescribeInstances
instanceTerminated =
Wait
{ _waitName = "InstanceTerminated"
, _waitAttempts = 40
, _waitDelay = 15
, _waitAcceptors = [ matchAll
"terminated"
AcceptSuccess
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchError "ResourceNotFoundException" AcceptSuccess
, matchAny
"booting"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"online"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"pending"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"rebooting"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"requested"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"running_setup"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"setup_failed"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"start_failed"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)]
}
deploymentSuccessful :: Wait DescribeDeployments
deploymentSuccessful =
Wait
{ _waitName = "DeploymentSuccessful"
, _waitAttempts = 40
, _waitDelay = 15
, _waitAcceptors = [ matchAll
"successful"
AcceptSuccess
(folding (concatOf ddrsDeployments) .
dStatus . _Just . to toTextCI)
, matchAny
"failed"
AcceptFailure
(folding (concatOf ddrsDeployments) .
dStatus . _Just . to toTextCI)]
}
instanceStopped :: Wait DescribeInstances
instanceStopped =
Wait
{ _waitName = "InstanceStopped"
, _waitAttempts = 40
, _waitDelay = 15
, _waitAcceptors = [ matchAll
"stopped"
AcceptSuccess
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"booting"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"online"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"pending"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"rebooting"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"requested"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"running_setup"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"setup_failed"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"start_failed"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"stop_failed"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)]
}
instanceOnline :: Wait DescribeInstances
instanceOnline =
Wait
{ _waitName = "InstanceOnline"
, _waitAttempts = 40
, _waitDelay = 15
, _waitAcceptors = [ matchAll
"online"
AcceptSuccess
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"setup_failed"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"shutting_down"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"start_failed"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"stopped"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"stopping"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"terminating"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"terminated"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"stop_failed"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)]
}
appExists :: Wait DescribeApps
appExists =
Wait
{ _waitName = "AppExists"
, _waitAttempts = 40
, _waitDelay = 1
, _waitAcceptors = [ matchStatus 200 AcceptSuccess
, matchStatus 400 AcceptFailure]
}
instanceRegistered :: Wait DescribeInstances
instanceRegistered =
Wait
{ _waitName = "InstanceRegistered"
, _waitAttempts = 40
, _waitDelay = 15
, _waitAcceptors = [ matchAll
"registered"
AcceptSuccess
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"setup_failed"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"shutting_down"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"stopped"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"stopping"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"terminating"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"terminated"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)
, matchAny
"stop_failed"
AcceptFailure
(folding (concatOf dirsInstances) .
iStatus . _Just . to toTextCI)]
}