module Network.AWS.RDS.Waiters where
import Network.AWS.Prelude
import Network.AWS.RDS.DescribeDBInstances
import Network.AWS.RDS.DescribeDBInstances
import Network.AWS.RDS.DescribeDBSnapshots
import Network.AWS.RDS.Types
import Network.AWS.Waiter
dbInstanceAvailable :: Wait DescribeDBInstances
dbInstanceAvailable =
Wait
{ _waitName = "DBInstanceAvailable"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors = [ matchAll
"available"
AcceptSuccess
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"deleted"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"deleting"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"failed"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"incompatible-restore"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"incompatible-parameters"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"incompatible-parameters"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"incompatible-restore"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)]
}
dbSnapshotCompleted :: Wait DescribeDBSnapshots
dbSnapshotCompleted =
Wait
{ _waitName = "DBSnapshotCompleted"
, _waitAttempts = 40
, _waitDelay = 15
, _waitAcceptors = [ matchError "DBSnapshotNotFound" AcceptSuccess
, matchAll
"available"
AcceptSuccess
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)]
}
dbInstanceDeleted :: Wait DescribeDBInstances
dbInstanceDeleted =
Wait
{ _waitName = "DBInstanceDeleted"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors = [ matchError "DBInstanceNotFound" AcceptSuccess
, matchAll
"deleted"
AcceptSuccess
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"creating"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"modifying"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"rebooting"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchAny
"resetting-master-credentials"
AcceptFailure
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)]
}