module Network.AWS.RDS.Waiters where
import Network.AWS.RDS.DescribeDBInstances
import Network.AWS.RDS.Types
import Network.AWS.Waiters
dbInstanceAvailable :: Wait DescribeDBInstances
dbInstanceAvailable = Wait
{ _waitName = "DBInstanceAvailable"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll "available" AcceptSuccess
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "deleted" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "deleting" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "failed" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "incompatible-restore" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "incompatible-parameters" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "incompatible-parameters" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "incompatible-restore" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
]
}
dbInstanceDeleted :: Wait DescribeDBInstances
dbInstanceDeleted = Wait
{ _waitName = "DBInstanceDeleted"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll "deleted" AcceptSuccess
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "creating" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "modifying" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "rebooting" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
, matchAny "resetting-master-credentials" AcceptFailure
(folding (concatOf ddbirDBInstances) . dbiDBInstanceStatus . _Just)
]
}