{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.CloudFormation.Waiters where
import Network.AWS.CloudFormation.DescribeStacks
import Network.AWS.CloudFormation.DescribeStacks
import Network.AWS.CloudFormation.DescribeStacks
import Network.AWS.CloudFormation.DescribeStacks
import Network.AWS.CloudFormation.Types
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Waiter
stackCreateComplete :: Wait DescribeStacks
stackCreateComplete =
Wait
{ _waitName = "StackCreateComplete"
, _waitAttempts = 120
, _waitDelay = 30
, _waitAcceptors = [ matchAll
"CREATE_COMPLETE"
AcceptSuccess
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"CREATE_FAILED"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"DELETE_COMPLETE"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"DELETE_IN_PROGRESS"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"DELETE_FAILED"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"ROLLBACK_COMPLETE"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"ROLLBACK_FAILED"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"ROLLBACK_IN_PROGRESS"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchError "ValidationError" AcceptFailure]
}
stackUpdateComplete :: Wait DescribeStacks
stackUpdateComplete =
Wait
{ _waitName = "StackUpdateComplete"
, _waitAttempts = 120
, _waitDelay = 30
, _waitAcceptors = [ matchAll
"UPDATE_COMPLETE"
AcceptSuccess
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_FAILED"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_ROLLBACK_COMPLETE"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_ROLLBACK_FAILED"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_ROLLBACK_IN_PROGRESS"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchError "ValidationError" AcceptFailure]
}
stackExists :: Wait DescribeStacks
stackExists =
Wait
{ _waitName = "StackExists"
, _waitAttempts = 20
, _waitDelay = 5
, _waitAcceptors = [ matchStatus 200 AcceptSuccess
, matchError "ValidationError" AcceptRetry]
}
stackDeleteComplete :: Wait DescribeStacks
stackDeleteComplete =
Wait
{ _waitName = "StackDeleteComplete"
, _waitAttempts = 120
, _waitDelay = 30
, _waitAcceptors = [ matchAll
"DELETE_COMPLETE"
AcceptSuccess
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchError "ValidationError" AcceptSuccess
, matchAny
"DELETE_FAILED"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"CREATE_COMPLETE"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"CREATE_FAILED"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"CREATE_IN_PROGRESS"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"ROLLBACK_COMPLETE"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"ROLLBACK_FAILED"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"ROLLBACK_IN_PROGRESS"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_COMPLETE"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_COMPLETE_CLEANUP_IN_PROGRESS"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_IN_PROGRESS"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_ROLLBACK_COMPLETE"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_ROLLBACK_FAILED"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)
, matchAny
"UPDATE_ROLLBACK_IN_PROGRESS"
AcceptFailure
(folding (concatOf dsrsStacks) .
sStackStatus . to toTextCI)]
}