{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.RDS.Waiters where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.RDS.DescribeDBInstances
import Network.AWS.RDS.DescribeDBInstances
import Network.AWS.RDS.DescribeDBSnapshots
import Network.AWS.RDS.DescribeDBSnapshots
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)
]
}
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)
]
}
dbSnapshotDeleted :: Wait DescribeDBSnapshots
dbSnapshotDeleted =
Wait
{ _waitName = "DBSnapshotDeleted"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll
"deleted"
AcceptSuccess
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
, matchError "DBSnapshotNotFound" AcceptSuccess
, matchAny
"creating"
AcceptFailure
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
, matchAny
"modifying"
AcceptFailure
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
, matchAny
"rebooting"
AcceptFailure
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
, matchAny
"resetting-master-credentials"
AcceptFailure
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
]
}
dbInstanceDeleted :: Wait DescribeDBInstances
dbInstanceDeleted =
Wait
{ _waitName = "DBInstanceDeleted"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll
"deleted"
AcceptSuccess
(folding (concatOf ddbirsDBInstances) .
diDBInstanceStatus . _Just . to toTextCI)
, matchError "DBInstanceNotFound" AcceptSuccess
, 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)
]
}
dbSnapshotAvailable :: Wait DescribeDBSnapshots
dbSnapshotAvailable =
Wait
{ _waitName = "DBSnapshotAvailable"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll
"available"
AcceptSuccess
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
, matchAny
"deleted"
AcceptFailure
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
, matchAny
"deleting"
AcceptFailure
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
, matchAny
"failed"
AcceptFailure
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
, matchAny
"incompatible-restore"
AcceptFailure
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
, matchAny
"incompatible-parameters"
AcceptFailure
(folding (concatOf ddsrsDBSnapshots) .
dsStatus . _Just . to toTextCI)
]
}