{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.DMS.Waiters
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.DMS.Waiters where

import qualified Amazonka.Core as Core
import Amazonka.DMS.DescribeConnections
import Amazonka.DMS.DescribeEndpoints
import Amazonka.DMS.DescribeReplicationInstances
import Amazonka.DMS.DescribeReplicationTasks
import Amazonka.DMS.Lens
import Amazonka.DMS.Types
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude

-- | Polls 'Amazonka.DMS.DescribeReplicationInstances' every 60 seconds until a successful state is reached. An error is returned after 60 failed checks.
newReplicationInstanceAvailable :: Core.Wait DescribeReplicationInstances
newReplicationInstanceAvailable :: Wait DescribeReplicationInstances
newReplicationInstanceAvailable =
  Wait :: forall a. ByteString -> Int -> Seconds -> [Acceptor a] -> Wait a
Core.Wait
    { $sel:_waitName:Wait :: ByteString
Core._waitName =
        ByteString
"ReplicationInstanceAvailable",
      $sel:_waitAttempts:Wait :: Int
Core._waitAttempts = Int
60,
      $sel:_waitDelay:Wait :: Seconds
Core._waitDelay = Seconds
60,
      $sel:_waitAcceptors:Wait :: [Acceptor DescribeReplicationInstances]
Core._waitAcceptors =
        [ CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationInstances) (CI Text)
-> Acceptor DescribeReplicationInstances
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAll
            CI Text
"available"
            Accept
Core.AcceptSuccess
            ( (DescribeReplicationInstancesResponse -> [ReplicationInstance])
-> Fold DescribeReplicationInstancesResponse ReplicationInstance
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationInstance]
  DescribeReplicationInstancesResponse
  [ReplicationInstance]
-> DescribeReplicationInstancesResponse -> [ReplicationInstance]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationInstance]
 -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> DescribeReplicationInstancesResponse
-> Const [ReplicationInstance] DescribeReplicationInstancesResponse
Lens'
  DescribeReplicationInstancesResponse (Maybe [ReplicationInstance])
describeReplicationInstancesResponse_replicationInstances
                        ((Maybe [ReplicationInstance]
  -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
 -> DescribeReplicationInstancesResponse
 -> Const
      [ReplicationInstance] DescribeReplicationInstancesResponse)
-> (([ReplicationInstance]
     -> Const [ReplicationInstance] [ReplicationInstance])
    -> Maybe [ReplicationInstance]
    -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> Getting
     [ReplicationInstance]
     DescribeReplicationInstancesResponse
     [ReplicationInstance]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationInstance]
 -> Const [ReplicationInstance] [ReplicationInstance])
-> Maybe [ReplicationInstance]
-> Const [ReplicationInstance] (Maybe [ReplicationInstance])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationInstance -> f ReplicationInstance)
 -> DescribeReplicationInstancesResponse
 -> f DescribeReplicationInstancesResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationInstance -> f ReplicationInstance)
-> (CI Text -> f (CI Text))
-> DescribeReplicationInstancesResponse
-> f DescribeReplicationInstancesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationInstance -> f ReplicationInstance
Lens' ReplicationInstance (Maybe Text)
replicationInstance_replicationInstanceStatus
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationInstance -> f ReplicationInstance)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationInstance
-> f ReplicationInstance
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationInstances) (CI Text)
-> Acceptor DescribeReplicationInstances
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"deleting"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationInstancesResponse -> [ReplicationInstance])
-> Fold DescribeReplicationInstancesResponse ReplicationInstance
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationInstance]
  DescribeReplicationInstancesResponse
  [ReplicationInstance]
-> DescribeReplicationInstancesResponse -> [ReplicationInstance]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationInstance]
 -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> DescribeReplicationInstancesResponse
-> Const [ReplicationInstance] DescribeReplicationInstancesResponse
Lens'
  DescribeReplicationInstancesResponse (Maybe [ReplicationInstance])
describeReplicationInstancesResponse_replicationInstances
                        ((Maybe [ReplicationInstance]
  -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
 -> DescribeReplicationInstancesResponse
 -> Const
      [ReplicationInstance] DescribeReplicationInstancesResponse)
-> (([ReplicationInstance]
     -> Const [ReplicationInstance] [ReplicationInstance])
    -> Maybe [ReplicationInstance]
    -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> Getting
     [ReplicationInstance]
     DescribeReplicationInstancesResponse
     [ReplicationInstance]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationInstance]
 -> Const [ReplicationInstance] [ReplicationInstance])
-> Maybe [ReplicationInstance]
-> Const [ReplicationInstance] (Maybe [ReplicationInstance])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationInstance -> f ReplicationInstance)
 -> DescribeReplicationInstancesResponse
 -> f DescribeReplicationInstancesResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationInstance -> f ReplicationInstance)
-> (CI Text -> f (CI Text))
-> DescribeReplicationInstancesResponse
-> f DescribeReplicationInstancesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationInstance -> f ReplicationInstance
Lens' ReplicationInstance (Maybe Text)
replicationInstance_replicationInstanceStatus
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationInstance -> f ReplicationInstance)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationInstance
-> f ReplicationInstance
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationInstances) (CI Text)
-> Acceptor DescribeReplicationInstances
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"incompatible-credentials"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationInstancesResponse -> [ReplicationInstance])
-> Fold DescribeReplicationInstancesResponse ReplicationInstance
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationInstance]
  DescribeReplicationInstancesResponse
  [ReplicationInstance]
-> DescribeReplicationInstancesResponse -> [ReplicationInstance]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationInstance]
 -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> DescribeReplicationInstancesResponse
-> Const [ReplicationInstance] DescribeReplicationInstancesResponse
Lens'
  DescribeReplicationInstancesResponse (Maybe [ReplicationInstance])
describeReplicationInstancesResponse_replicationInstances
                        ((Maybe [ReplicationInstance]
  -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
 -> DescribeReplicationInstancesResponse
 -> Const
      [ReplicationInstance] DescribeReplicationInstancesResponse)
-> (([ReplicationInstance]
     -> Const [ReplicationInstance] [ReplicationInstance])
    -> Maybe [ReplicationInstance]
    -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> Getting
     [ReplicationInstance]
     DescribeReplicationInstancesResponse
     [ReplicationInstance]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationInstance]
 -> Const [ReplicationInstance] [ReplicationInstance])
-> Maybe [ReplicationInstance]
-> Const [ReplicationInstance] (Maybe [ReplicationInstance])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationInstance -> f ReplicationInstance)
 -> DescribeReplicationInstancesResponse
 -> f DescribeReplicationInstancesResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationInstance -> f ReplicationInstance)
-> (CI Text -> f (CI Text))
-> DescribeReplicationInstancesResponse
-> f DescribeReplicationInstancesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationInstance -> f ReplicationInstance
Lens' ReplicationInstance (Maybe Text)
replicationInstance_replicationInstanceStatus
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationInstance -> f ReplicationInstance)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationInstance
-> f ReplicationInstance
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationInstances) (CI Text)
-> Acceptor DescribeReplicationInstances
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"incompatible-network"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationInstancesResponse -> [ReplicationInstance])
-> Fold DescribeReplicationInstancesResponse ReplicationInstance
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationInstance]
  DescribeReplicationInstancesResponse
  [ReplicationInstance]
-> DescribeReplicationInstancesResponse -> [ReplicationInstance]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationInstance]
 -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> DescribeReplicationInstancesResponse
-> Const [ReplicationInstance] DescribeReplicationInstancesResponse
Lens'
  DescribeReplicationInstancesResponse (Maybe [ReplicationInstance])
describeReplicationInstancesResponse_replicationInstances
                        ((Maybe [ReplicationInstance]
  -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
 -> DescribeReplicationInstancesResponse
 -> Const
      [ReplicationInstance] DescribeReplicationInstancesResponse)
-> (([ReplicationInstance]
     -> Const [ReplicationInstance] [ReplicationInstance])
    -> Maybe [ReplicationInstance]
    -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> Getting
     [ReplicationInstance]
     DescribeReplicationInstancesResponse
     [ReplicationInstance]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationInstance]
 -> Const [ReplicationInstance] [ReplicationInstance])
-> Maybe [ReplicationInstance]
-> Const [ReplicationInstance] (Maybe [ReplicationInstance])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationInstance -> f ReplicationInstance)
 -> DescribeReplicationInstancesResponse
 -> f DescribeReplicationInstancesResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationInstance -> f ReplicationInstance)
-> (CI Text -> f (CI Text))
-> DescribeReplicationInstancesResponse
-> f DescribeReplicationInstancesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationInstance -> f ReplicationInstance
Lens' ReplicationInstance (Maybe Text)
replicationInstance_replicationInstanceStatus
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationInstance -> f ReplicationInstance)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationInstance
-> f ReplicationInstance
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationInstances) (CI Text)
-> Acceptor DescribeReplicationInstances
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"inaccessible-encryption-credentials"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationInstancesResponse -> [ReplicationInstance])
-> Fold DescribeReplicationInstancesResponse ReplicationInstance
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationInstance]
  DescribeReplicationInstancesResponse
  [ReplicationInstance]
-> DescribeReplicationInstancesResponse -> [ReplicationInstance]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationInstance]
 -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> DescribeReplicationInstancesResponse
-> Const [ReplicationInstance] DescribeReplicationInstancesResponse
Lens'
  DescribeReplicationInstancesResponse (Maybe [ReplicationInstance])
describeReplicationInstancesResponse_replicationInstances
                        ((Maybe [ReplicationInstance]
  -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
 -> DescribeReplicationInstancesResponse
 -> Const
      [ReplicationInstance] DescribeReplicationInstancesResponse)
-> (([ReplicationInstance]
     -> Const [ReplicationInstance] [ReplicationInstance])
    -> Maybe [ReplicationInstance]
    -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> Getting
     [ReplicationInstance]
     DescribeReplicationInstancesResponse
     [ReplicationInstance]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationInstance]
 -> Const [ReplicationInstance] [ReplicationInstance])
-> Maybe [ReplicationInstance]
-> Const [ReplicationInstance] (Maybe [ReplicationInstance])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationInstance -> f ReplicationInstance)
 -> DescribeReplicationInstancesResponse
 -> f DescribeReplicationInstancesResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationInstance -> f ReplicationInstance)
-> (CI Text -> f (CI Text))
-> DescribeReplicationInstancesResponse
-> f DescribeReplicationInstancesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationInstance -> f ReplicationInstance
Lens' ReplicationInstance (Maybe Text)
replicationInstance_replicationInstanceStatus
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationInstance -> f ReplicationInstance)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationInstance
-> f ReplicationInstance
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            )
        ]
    }

-- | Polls 'Amazonka.DMS.DescribeReplicationTasks' every 15 seconds until a successful state is reached. An error is returned after 60 failed checks.
newReplicationTaskDeleted :: Core.Wait DescribeReplicationTasks
newReplicationTaskDeleted :: Wait DescribeReplicationTasks
newReplicationTaskDeleted =
  Wait :: forall a. ByteString -> Int -> Seconds -> [Acceptor a] -> Wait a
Core.Wait
    { $sel:_waitName:Wait :: ByteString
Core._waitName =
        ByteString
"ReplicationTaskDeleted",
      $sel:_waitAttempts:Wait :: Int
Core._waitAttempts = Int
60,
      $sel:_waitDelay:Wait :: Seconds
Core._waitDelay = Seconds
15,
      $sel:_waitAcceptors:Wait :: [Acceptor DescribeReplicationTasks]
Core._waitAcceptors =
        [ CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"ready"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"creating"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"stopped"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"running"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"failed"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          ErrorCode -> Accept -> Acceptor DescribeReplicationTasks
forall a. ErrorCode -> Accept -> Acceptor a
Core.matchError
            ErrorCode
"ResourceNotFoundFault"
            Accept
Core.AcceptSuccess
        ]
    }

-- | Polls 'Amazonka.DMS.DescribeReplicationTasks' every 15 seconds until a successful state is reached. An error is returned after 60 failed checks.
newReplicationTaskReady :: Core.Wait DescribeReplicationTasks
newReplicationTaskReady :: Wait DescribeReplicationTasks
newReplicationTaskReady =
  Wait :: forall a. ByteString -> Int -> Seconds -> [Acceptor a] -> Wait a
Core.Wait
    { $sel:_waitName:Wait :: ByteString
Core._waitName = ByteString
"ReplicationTaskReady",
      $sel:_waitAttempts:Wait :: Int
Core._waitAttempts = Int
60,
      $sel:_waitDelay:Wait :: Seconds
Core._waitDelay = Seconds
15,
      $sel:_waitAcceptors:Wait :: [Acceptor DescribeReplicationTasks]
Core._waitAcceptors =
        [ CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAll
            CI Text
"ready"
            Accept
Core.AcceptSuccess
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"starting"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"running"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"stopping"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"stopped"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"failed"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"modifying"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"testing"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"deleting"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            )
        ]
    }

-- | Polls 'Amazonka.DMS.DescribeReplicationInstances' every 15 seconds until a successful state is reached. An error is returned after 60 failed checks.
newReplicationInstanceDeleted :: Core.Wait DescribeReplicationInstances
newReplicationInstanceDeleted :: Wait DescribeReplicationInstances
newReplicationInstanceDeleted =
  Wait :: forall a. ByteString -> Int -> Seconds -> [Acceptor a] -> Wait a
Core.Wait
    { $sel:_waitName:Wait :: ByteString
Core._waitName =
        ByteString
"ReplicationInstanceDeleted",
      $sel:_waitAttempts:Wait :: Int
Core._waitAttempts = Int
60,
      $sel:_waitDelay:Wait :: Seconds
Core._waitDelay = Seconds
15,
      $sel:_waitAcceptors:Wait :: [Acceptor DescribeReplicationInstances]
Core._waitAcceptors =
        [ CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationInstances) (CI Text)
-> Acceptor DescribeReplicationInstances
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"available"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationInstancesResponse -> [ReplicationInstance])
-> Fold DescribeReplicationInstancesResponse ReplicationInstance
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationInstance]
  DescribeReplicationInstancesResponse
  [ReplicationInstance]
-> DescribeReplicationInstancesResponse -> [ReplicationInstance]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationInstance]
 -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> DescribeReplicationInstancesResponse
-> Const [ReplicationInstance] DescribeReplicationInstancesResponse
Lens'
  DescribeReplicationInstancesResponse (Maybe [ReplicationInstance])
describeReplicationInstancesResponse_replicationInstances
                        ((Maybe [ReplicationInstance]
  -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
 -> DescribeReplicationInstancesResponse
 -> Const
      [ReplicationInstance] DescribeReplicationInstancesResponse)
-> (([ReplicationInstance]
     -> Const [ReplicationInstance] [ReplicationInstance])
    -> Maybe [ReplicationInstance]
    -> Const [ReplicationInstance] (Maybe [ReplicationInstance]))
-> Getting
     [ReplicationInstance]
     DescribeReplicationInstancesResponse
     [ReplicationInstance]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationInstance]
 -> Const [ReplicationInstance] [ReplicationInstance])
-> Maybe [ReplicationInstance]
-> Const [ReplicationInstance] (Maybe [ReplicationInstance])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationInstance -> f ReplicationInstance)
 -> DescribeReplicationInstancesResponse
 -> f DescribeReplicationInstancesResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationInstance -> f ReplicationInstance)
-> (CI Text -> f (CI Text))
-> DescribeReplicationInstancesResponse
-> f DescribeReplicationInstancesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationInstance -> f ReplicationInstance
Lens' ReplicationInstance (Maybe Text)
replicationInstance_replicationInstanceStatus
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationInstance -> f ReplicationInstance)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationInstance
-> f ReplicationInstance
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          ErrorCode -> Accept -> Acceptor DescribeReplicationInstances
forall a. ErrorCode -> Accept -> Acceptor a
Core.matchError
            ErrorCode
"ResourceNotFoundFault"
            Accept
Core.AcceptSuccess
        ]
    }

-- | Polls 'Amazonka.DMS.DescribeEndpoints' every 5 seconds until a successful state is reached. An error is returned after 60 failed checks.
newEndpointDeleted :: Core.Wait DescribeEndpoints
newEndpointDeleted :: Wait DescribeEndpoints
newEndpointDeleted =
  Wait :: forall a. ByteString -> Int -> Seconds -> [Acceptor a] -> Wait a
Core.Wait
    { $sel:_waitName:Wait :: ByteString
Core._waitName = ByteString
"EndpointDeleted",
      $sel:_waitAttempts:Wait :: Int
Core._waitAttempts = Int
60,
      $sel:_waitDelay:Wait :: Seconds
Core._waitDelay = Seconds
5,
      $sel:_waitAcceptors:Wait :: [Acceptor DescribeEndpoints]
Core._waitAcceptors =
        [ ErrorCode -> Accept -> Acceptor DescribeEndpoints
forall a. ErrorCode -> Accept -> Acceptor a
Core.matchError
            ErrorCode
"ResourceNotFoundFault"
            Accept
Core.AcceptSuccess,
          CI Text
-> Accept
-> Fold (AWSResponse DescribeEndpoints) (CI Text)
-> Acceptor DescribeEndpoints
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"active"
            Accept
Core.AcceptFailure
            ( (DescribeEndpointsResponse -> [Endpoint])
-> Fold DescribeEndpointsResponse Endpoint
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting [Endpoint] DescribeEndpointsResponse [Endpoint]
-> DescribeEndpointsResponse -> [Endpoint]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [Endpoint] -> Const [Endpoint] (Maybe [Endpoint]))
-> DescribeEndpointsResponse
-> Const [Endpoint] DescribeEndpointsResponse
Lens' DescribeEndpointsResponse (Maybe [Endpoint])
describeEndpointsResponse_endpoints
                        ((Maybe [Endpoint] -> Const [Endpoint] (Maybe [Endpoint]))
 -> DescribeEndpointsResponse
 -> Const [Endpoint] DescribeEndpointsResponse)
-> (([Endpoint] -> Const [Endpoint] [Endpoint])
    -> Maybe [Endpoint] -> Const [Endpoint] (Maybe [Endpoint]))
-> Getting [Endpoint] DescribeEndpointsResponse [Endpoint]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([Endpoint] -> Const [Endpoint] [Endpoint])
-> Maybe [Endpoint] -> Const [Endpoint] (Maybe [Endpoint])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((Endpoint -> f Endpoint)
 -> DescribeEndpointsResponse -> f DescribeEndpointsResponse)
-> ((CI Text -> f (CI Text)) -> Endpoint -> f Endpoint)
-> (CI Text -> f (CI Text))
-> DescribeEndpointsResponse
-> f DescribeEndpointsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text)) -> Endpoint -> f Endpoint
Lens' Endpoint (Maybe Text)
endpoint_status
                ((Maybe Text -> f (Maybe Text)) -> Endpoint -> f Endpoint)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeEndpoints) (CI Text)
-> Acceptor DescribeEndpoints
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"creating"
            Accept
Core.AcceptFailure
            ( (DescribeEndpointsResponse -> [Endpoint])
-> Fold DescribeEndpointsResponse Endpoint
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting [Endpoint] DescribeEndpointsResponse [Endpoint]
-> DescribeEndpointsResponse -> [Endpoint]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [Endpoint] -> Const [Endpoint] (Maybe [Endpoint]))
-> DescribeEndpointsResponse
-> Const [Endpoint] DescribeEndpointsResponse
Lens' DescribeEndpointsResponse (Maybe [Endpoint])
describeEndpointsResponse_endpoints
                        ((Maybe [Endpoint] -> Const [Endpoint] (Maybe [Endpoint]))
 -> DescribeEndpointsResponse
 -> Const [Endpoint] DescribeEndpointsResponse)
-> (([Endpoint] -> Const [Endpoint] [Endpoint])
    -> Maybe [Endpoint] -> Const [Endpoint] (Maybe [Endpoint]))
-> Getting [Endpoint] DescribeEndpointsResponse [Endpoint]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([Endpoint] -> Const [Endpoint] [Endpoint])
-> Maybe [Endpoint] -> Const [Endpoint] (Maybe [Endpoint])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((Endpoint -> f Endpoint)
 -> DescribeEndpointsResponse -> f DescribeEndpointsResponse)
-> ((CI Text -> f (CI Text)) -> Endpoint -> f Endpoint)
-> (CI Text -> f (CI Text))
-> DescribeEndpointsResponse
-> f DescribeEndpointsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text)) -> Endpoint -> f Endpoint
Lens' Endpoint (Maybe Text)
endpoint_status
                ((Maybe Text -> f (Maybe Text)) -> Endpoint -> f Endpoint)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> Endpoint
-> f Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            )
        ]
    }

-- | Polls 'Amazonka.DMS.DescribeReplicationTasks' every 15 seconds until a successful state is reached. An error is returned after 60 failed checks.
newReplicationTaskStopped :: Core.Wait DescribeReplicationTasks
newReplicationTaskStopped :: Wait DescribeReplicationTasks
newReplicationTaskStopped =
  Wait :: forall a. ByteString -> Int -> Seconds -> [Acceptor a] -> Wait a
Core.Wait
    { $sel:_waitName:Wait :: ByteString
Core._waitName =
        ByteString
"ReplicationTaskStopped",
      $sel:_waitAttempts:Wait :: Int
Core._waitAttempts = Int
60,
      $sel:_waitDelay:Wait :: Seconds
Core._waitDelay = Seconds
15,
      $sel:_waitAcceptors:Wait :: [Acceptor DescribeReplicationTasks]
Core._waitAcceptors =
        [ CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAll
            CI Text
"stopped"
            Accept
Core.AcceptSuccess
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"ready"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"creating"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"starting"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"failed"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"modifying"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"testing"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"deleting"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            )
        ]
    }

-- | Polls 'Amazonka.DMS.DescribeReplicationTasks' every 15 seconds until a successful state is reached. An error is returned after 60 failed checks.
newReplicationTaskRunning :: Core.Wait DescribeReplicationTasks
newReplicationTaskRunning :: Wait DescribeReplicationTasks
newReplicationTaskRunning =
  Wait :: forall a. ByteString -> Int -> Seconds -> [Acceptor a] -> Wait a
Core.Wait
    { $sel:_waitName:Wait :: ByteString
Core._waitName =
        ByteString
"ReplicationTaskRunning",
      $sel:_waitAttempts:Wait :: Int
Core._waitAttempts = Int
60,
      $sel:_waitDelay:Wait :: Seconds
Core._waitDelay = Seconds
15,
      $sel:_waitAcceptors:Wait :: [Acceptor DescribeReplicationTasks]
Core._waitAcceptors =
        [ CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAll
            CI Text
"running"
            Accept
Core.AcceptSuccess
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"ready"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"creating"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"stopping"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"stopped"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"failed"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"modifying"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"testing"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeReplicationTasks) (CI Text)
-> Acceptor DescribeReplicationTasks
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"deleting"
            Accept
Core.AcceptFailure
            ( (DescribeReplicationTasksResponse -> [ReplicationTask])
-> Fold DescribeReplicationTasksResponse ReplicationTask
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting
  [ReplicationTask]
  DescribeReplicationTasksResponse
  [ReplicationTask]
-> DescribeReplicationTasksResponse -> [ReplicationTask]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [ReplicationTask]
 -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> DescribeReplicationTasksResponse
-> Const [ReplicationTask] DescribeReplicationTasksResponse
Lens' DescribeReplicationTasksResponse (Maybe [ReplicationTask])
describeReplicationTasksResponse_replicationTasks
                        ((Maybe [ReplicationTask]
  -> Const [ReplicationTask] (Maybe [ReplicationTask]))
 -> DescribeReplicationTasksResponse
 -> Const [ReplicationTask] DescribeReplicationTasksResponse)
-> (([ReplicationTask]
     -> Const [ReplicationTask] [ReplicationTask])
    -> Maybe [ReplicationTask]
    -> Const [ReplicationTask] (Maybe [ReplicationTask]))
-> Getting
     [ReplicationTask]
     DescribeReplicationTasksResponse
     [ReplicationTask]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReplicationTask] -> Const [ReplicationTask] [ReplicationTask])
-> Maybe [ReplicationTask]
-> Const [ReplicationTask] (Maybe [ReplicationTask])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((ReplicationTask -> f ReplicationTask)
 -> DescribeReplicationTasksResponse
 -> f DescribeReplicationTasksResponse)
-> ((CI Text -> f (CI Text))
    -> ReplicationTask -> f ReplicationTask)
-> (CI Text -> f (CI Text))
-> DescribeReplicationTasksResponse
-> f DescribeReplicationTasksResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text))
-> ReplicationTask -> f ReplicationTask
Lens' ReplicationTask (Maybe Text)
replicationTask_status
                ((Maybe Text -> f (Maybe Text))
 -> ReplicationTask -> f ReplicationTask)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> ReplicationTask
-> f ReplicationTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            )
        ]
    }

-- | Polls 'Amazonka.DMS.DescribeConnections' every 5 seconds until a successful state is reached. An error is returned after 60 failed checks.
newTestConnectionSucceeds :: Core.Wait DescribeConnections
newTestConnectionSucceeds :: Wait DescribeConnections
newTestConnectionSucceeds =
  Wait :: forall a. ByteString -> Int -> Seconds -> [Acceptor a] -> Wait a
Core.Wait
    { $sel:_waitName:Wait :: ByteString
Core._waitName =
        ByteString
"TestConnectionSucceeds",
      $sel:_waitAttempts:Wait :: Int
Core._waitAttempts = Int
60,
      $sel:_waitDelay:Wait :: Seconds
Core._waitDelay = Seconds
5,
      $sel:_waitAcceptors:Wait :: [Acceptor DescribeConnections]
Core._waitAcceptors =
        [ CI Text
-> Accept
-> Fold (AWSResponse DescribeConnections) (CI Text)
-> Acceptor DescribeConnections
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAll
            CI Text
"successful"
            Accept
Core.AcceptSuccess
            ( (DescribeConnectionsResponse -> [Connection])
-> Fold DescribeConnectionsResponse Connection
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting [Connection] DescribeConnectionsResponse [Connection]
-> DescribeConnectionsResponse -> [Connection]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [Connection] -> Const [Connection] (Maybe [Connection]))
-> DescribeConnectionsResponse
-> Const [Connection] DescribeConnectionsResponse
Lens' DescribeConnectionsResponse (Maybe [Connection])
describeConnectionsResponse_connections
                        ((Maybe [Connection] -> Const [Connection] (Maybe [Connection]))
 -> DescribeConnectionsResponse
 -> Const [Connection] DescribeConnectionsResponse)
-> (([Connection] -> Const [Connection] [Connection])
    -> Maybe [Connection] -> Const [Connection] (Maybe [Connection]))
-> Getting [Connection] DescribeConnectionsResponse [Connection]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([Connection] -> Const [Connection] [Connection])
-> Maybe [Connection] -> Const [Connection] (Maybe [Connection])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((Connection -> f Connection)
 -> DescribeConnectionsResponse -> f DescribeConnectionsResponse)
-> ((CI Text -> f (CI Text)) -> Connection -> f Connection)
-> (CI Text -> f (CI Text))
-> DescribeConnectionsResponse
-> f DescribeConnectionsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text)) -> Connection -> f Connection
Lens' Connection (Maybe Text)
connection_status
                ((Maybe Text -> f (Maybe Text)) -> Connection -> f Connection)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> Connection
-> f Connection
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            ),
          CI Text
-> Accept
-> Fold (AWSResponse DescribeConnections) (CI Text)
-> Acceptor DescribeConnections
forall b a.
Eq b =>
b -> Accept -> Fold (AWSResponse a) b -> Acceptor a
Core.matchAny
            CI Text
"failed"
            Accept
Core.AcceptFailure
            ( (DescribeConnectionsResponse -> [Connection])
-> Fold DescribeConnectionsResponse Connection
forall (f :: * -> *) s a. Foldable f => (s -> f a) -> Fold s a
Lens.folding
                ( Getting [Connection] DescribeConnectionsResponse [Connection]
-> DescribeConnectionsResponse -> [Connection]
forall r s. Getting [r] s [r] -> s -> [r]
Lens.concatOf
                    ( (Maybe [Connection] -> Const [Connection] (Maybe [Connection]))
-> DescribeConnectionsResponse
-> Const [Connection] DescribeConnectionsResponse
Lens' DescribeConnectionsResponse (Maybe [Connection])
describeConnectionsResponse_connections
                        ((Maybe [Connection] -> Const [Connection] (Maybe [Connection]))
 -> DescribeConnectionsResponse
 -> Const [Connection] DescribeConnectionsResponse)
-> (([Connection] -> Const [Connection] [Connection])
    -> Maybe [Connection] -> Const [Connection] (Maybe [Connection]))
-> Getting [Connection] DescribeConnectionsResponse [Connection]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([Connection] -> Const [Connection] [Connection])
-> Maybe [Connection] -> Const [Connection] (Maybe [Connection])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                    )
                )
                ((Connection -> f Connection)
 -> DescribeConnectionsResponse -> f DescribeConnectionsResponse)
-> ((CI Text -> f (CI Text)) -> Connection -> f Connection)
-> (CI Text -> f (CI Text))
-> DescribeConnectionsResponse
-> f DescribeConnectionsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> f (Maybe Text)) -> Connection -> f Connection
Lens' Connection (Maybe Text)
connection_status
                ((Maybe Text -> f (Maybe Text)) -> Connection -> f Connection)
-> ((CI Text -> f (CI Text)) -> Maybe Text -> f (Maybe Text))
-> (CI Text -> f (CI Text))
-> Connection
-> f Connection
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> f Text) -> Maybe Text -> f (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
                ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> ((CI Text -> f (CI Text)) -> Text -> f Text)
-> (CI Text -> f (CI Text))
-> Maybe Text
-> f (Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> CI Text) -> (CI Text -> f (CI Text)) -> Text -> f Text
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to Text -> CI Text
forall a. ToText a => a -> CI Text
Core.toTextCI
            )
        ]
    }