{-# LANGUAGE DisambiguateRecordFields #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Amazonka.Redshift.Waiters where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.Redshift.DescribeClusterSnapshots
import Amazonka.Redshift.DescribeClusters
import Amazonka.Redshift.Lens
import Amazonka.Redshift.Types
newClusterAvailable :: Core.Wait DescribeClusters
newClusterAvailable :: Wait DescribeClusters
newClusterAvailable =
Core.Wait
{ $sel:name:Wait :: ByteString
Core.name = ByteString
"ClusterAvailable",
$sel:attempts:Wait :: Int
Core.attempts = Int
30,
$sel:delay:Wait :: Seconds
Core.delay = Seconds
60,
$sel:acceptors:Wait :: [Acceptor DescribeClusters]
Core.acceptors =
[ forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAll
CI Text
"available"
Accept
Core.AcceptSuccess
( forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
( forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
( Lens' DescribeClustersResponse (Maybe [Cluster])
describeClustersResponse_clusters
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Lens' Cluster (Maybe Text)
cluster_clusterStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to forall a. ToText a => a -> CI Text
Data.toTextCI
),
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
CI Text
"deleting"
Accept
Core.AcceptFailure
( forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
( forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
( Lens' DescribeClustersResponse (Maybe [Cluster])
describeClustersResponse_clusters
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Lens' Cluster (Maybe Text)
cluster_clusterStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to forall a. ToText a => a -> CI Text
Data.toTextCI
),
forall a. ErrorCode -> Accept -> Acceptor a
Core.matchError ErrorCode
"ClusterNotFound" Accept
Core.AcceptRetry
]
}
newClusterDeleted :: Core.Wait DescribeClusters
newClusterDeleted :: Wait DescribeClusters
newClusterDeleted =
Core.Wait
{ $sel:name:Wait :: ByteString
Core.name = ByteString
"ClusterDeleted",
$sel:attempts:Wait :: Int
Core.attempts = Int
30,
$sel:delay:Wait :: Seconds
Core.delay = Seconds
60,
$sel:acceptors:Wait :: [Acceptor DescribeClusters]
Core.acceptors =
[ forall a. ErrorCode -> Accept -> Acceptor a
Core.matchError
ErrorCode
"ClusterNotFound"
Accept
Core.AcceptSuccess,
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
CI Text
"creating"
Accept
Core.AcceptFailure
( forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
( forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
( Lens' DescribeClustersResponse (Maybe [Cluster])
describeClustersResponse_clusters
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Lens' Cluster (Maybe Text)
cluster_clusterStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to forall a. ToText a => a -> CI Text
Data.toTextCI
),
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
CI Text
"modifying"
Accept
Core.AcceptFailure
( forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
( forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
( Lens' DescribeClustersResponse (Maybe [Cluster])
describeClustersResponse_clusters
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Lens' Cluster (Maybe Text)
cluster_clusterStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to forall a. ToText a => a -> CI Text
Data.toTextCI
)
]
}
newClusterRestored :: Core.Wait DescribeClusters
newClusterRestored :: Wait DescribeClusters
newClusterRestored =
Core.Wait
{ $sel:name:Wait :: ByteString
Core.name = ByteString
"ClusterRestored",
$sel:attempts:Wait :: Int
Core.attempts = Int
30,
$sel:delay:Wait :: Seconds
Core.delay = Seconds
60,
$sel:acceptors:Wait :: [Acceptor DescribeClusters]
Core.acceptors =
[ forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAll
CI Text
"completed"
Accept
Core.AcceptSuccess
( forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
( forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
( Lens' DescribeClustersResponse (Maybe [Cluster])
describeClustersResponse_clusters
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Lens' Cluster (Maybe RestoreStatus)
cluster_restoreStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Lens' RestoreStatus (Maybe Text)
restoreStatus_status
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to forall a. ToText a => a -> CI Text
Data.toTextCI
),
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
CI Text
"deleting"
Accept
Core.AcceptFailure
( forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
( forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
( Lens' DescribeClustersResponse (Maybe [Cluster])
describeClustersResponse_clusters
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Lens' Cluster (Maybe Text)
cluster_clusterStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to forall a. ToText a => a -> CI Text
Data.toTextCI
)
]
}
newSnapshotAvailable :: Core.Wait DescribeClusterSnapshots
newSnapshotAvailable :: Wait DescribeClusterSnapshots
newSnapshotAvailable =
Core.Wait
{ $sel:name:Wait :: ByteString
Core.name = ByteString
"SnapshotAvailable",
$sel:attempts:Wait :: Int
Core.attempts = Int
20,
$sel:delay:Wait :: Seconds
Core.delay = Seconds
15,
$sel:acceptors:Wait :: [Acceptor DescribeClusterSnapshots]
Core.acceptors =
[ forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAll
CI Text
"available"
Accept
Core.AcceptSuccess
( forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
( forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
( Lens' DescribeClusterSnapshotsResponse (Maybe [Snapshot])
describeClusterSnapshotsResponse_snapshots
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Lens' Snapshot (Maybe Text)
snapshot_status
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to forall a. ToText a => a -> CI Text
Data.toTextCI
),
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
CI Text
"failed"
Accept
Core.AcceptFailure
( forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
( forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
( Lens' DescribeClusterSnapshotsResponse (Maybe [Snapshot])
describeClusterSnapshotsResponse_snapshots
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Lens' Snapshot (Maybe Text)
snapshot_status
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to forall a. ToText a => a -> CI Text
Data.toTextCI
),
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
CI Text
"deleted"
Accept
Core.AcceptFailure
( forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
( forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
( Lens' DescribeClusterSnapshotsResponse (Maybe [Snapshot])
describeClusterSnapshotsResponse_snapshots
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Lens' Snapshot (Maybe Text)
snapshot_status
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to forall a. ToText a => a -> CI Text
Data.toTextCI
)
]
}