{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.DMS.ModifyReplicationTask
(
ModifyReplicationTask (..),
newModifyReplicationTask,
modifyReplicationTask_cdcStartPosition,
modifyReplicationTask_cdcStartTime,
modifyReplicationTask_cdcStopPosition,
modifyReplicationTask_migrationType,
modifyReplicationTask_replicationTaskIdentifier,
modifyReplicationTask_replicationTaskSettings,
modifyReplicationTask_tableMappings,
modifyReplicationTask_taskData,
modifyReplicationTask_replicationTaskArn,
ModifyReplicationTaskResponse (..),
newModifyReplicationTaskResponse,
modifyReplicationTaskResponse_replicationTask,
modifyReplicationTaskResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import Amazonka.DMS.Types
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ModifyReplicationTask = ModifyReplicationTask'
{
ModifyReplicationTask -> Maybe Text
cdcStartPosition :: Prelude.Maybe Prelude.Text,
ModifyReplicationTask -> Maybe POSIX
cdcStartTime :: Prelude.Maybe Data.POSIX,
ModifyReplicationTask -> Maybe Text
cdcStopPosition :: Prelude.Maybe Prelude.Text,
ModifyReplicationTask -> Maybe MigrationTypeValue
migrationType :: Prelude.Maybe MigrationTypeValue,
ModifyReplicationTask -> Maybe Text
replicationTaskIdentifier :: Prelude.Maybe Prelude.Text,
ModifyReplicationTask -> Maybe Text
replicationTaskSettings :: Prelude.Maybe Prelude.Text,
ModifyReplicationTask -> Maybe Text
tableMappings :: Prelude.Maybe Prelude.Text,
ModifyReplicationTask -> Maybe Text
taskData :: Prelude.Maybe Prelude.Text,
ModifyReplicationTask -> Text
replicationTaskArn :: Prelude.Text
}
deriving (ModifyReplicationTask -> ModifyReplicationTask -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyReplicationTask -> ModifyReplicationTask -> Bool
$c/= :: ModifyReplicationTask -> ModifyReplicationTask -> Bool
== :: ModifyReplicationTask -> ModifyReplicationTask -> Bool
$c== :: ModifyReplicationTask -> ModifyReplicationTask -> Bool
Prelude.Eq, ReadPrec [ModifyReplicationTask]
ReadPrec ModifyReplicationTask
Int -> ReadS ModifyReplicationTask
ReadS [ModifyReplicationTask]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyReplicationTask]
$creadListPrec :: ReadPrec [ModifyReplicationTask]
readPrec :: ReadPrec ModifyReplicationTask
$creadPrec :: ReadPrec ModifyReplicationTask
readList :: ReadS [ModifyReplicationTask]
$creadList :: ReadS [ModifyReplicationTask]
readsPrec :: Int -> ReadS ModifyReplicationTask
$creadsPrec :: Int -> ReadS ModifyReplicationTask
Prelude.Read, Int -> ModifyReplicationTask -> ShowS
[ModifyReplicationTask] -> ShowS
ModifyReplicationTask -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyReplicationTask] -> ShowS
$cshowList :: [ModifyReplicationTask] -> ShowS
show :: ModifyReplicationTask -> String
$cshow :: ModifyReplicationTask -> String
showsPrec :: Int -> ModifyReplicationTask -> ShowS
$cshowsPrec :: Int -> ModifyReplicationTask -> ShowS
Prelude.Show, forall x. Rep ModifyReplicationTask x -> ModifyReplicationTask
forall x. ModifyReplicationTask -> Rep ModifyReplicationTask x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ModifyReplicationTask x -> ModifyReplicationTask
$cfrom :: forall x. ModifyReplicationTask -> Rep ModifyReplicationTask x
Prelude.Generic)
newModifyReplicationTask ::
Prelude.Text ->
ModifyReplicationTask
newModifyReplicationTask :: Text -> ModifyReplicationTask
newModifyReplicationTask Text
pReplicationTaskArn_ =
ModifyReplicationTask'
{ $sel:cdcStartPosition:ModifyReplicationTask' :: Maybe Text
cdcStartPosition =
forall a. Maybe a
Prelude.Nothing,
$sel:cdcStartTime:ModifyReplicationTask' :: Maybe POSIX
cdcStartTime = forall a. Maybe a
Prelude.Nothing,
$sel:cdcStopPosition:ModifyReplicationTask' :: Maybe Text
cdcStopPosition = forall a. Maybe a
Prelude.Nothing,
$sel:migrationType:ModifyReplicationTask' :: Maybe MigrationTypeValue
migrationType = forall a. Maybe a
Prelude.Nothing,
$sel:replicationTaskIdentifier:ModifyReplicationTask' :: Maybe Text
replicationTaskIdentifier = forall a. Maybe a
Prelude.Nothing,
$sel:replicationTaskSettings:ModifyReplicationTask' :: Maybe Text
replicationTaskSettings = forall a. Maybe a
Prelude.Nothing,
$sel:tableMappings:ModifyReplicationTask' :: Maybe Text
tableMappings = forall a. Maybe a
Prelude.Nothing,
$sel:taskData:ModifyReplicationTask' :: Maybe Text
taskData = forall a. Maybe a
Prelude.Nothing,
$sel:replicationTaskArn:ModifyReplicationTask' :: Text
replicationTaskArn = Text
pReplicationTaskArn_
}
modifyReplicationTask_cdcStartPosition :: Lens.Lens' ModifyReplicationTask (Prelude.Maybe Prelude.Text)
modifyReplicationTask_cdcStartPosition :: Lens' ModifyReplicationTask (Maybe Text)
modifyReplicationTask_cdcStartPosition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTask' {Maybe Text
cdcStartPosition :: Maybe Text
$sel:cdcStartPosition:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
cdcStartPosition} -> Maybe Text
cdcStartPosition) (\s :: ModifyReplicationTask
s@ModifyReplicationTask' {} Maybe Text
a -> ModifyReplicationTask
s {$sel:cdcStartPosition:ModifyReplicationTask' :: Maybe Text
cdcStartPosition = Maybe Text
a} :: ModifyReplicationTask)
modifyReplicationTask_cdcStartTime :: Lens.Lens' ModifyReplicationTask (Prelude.Maybe Prelude.UTCTime)
modifyReplicationTask_cdcStartTime :: Lens' ModifyReplicationTask (Maybe UTCTime)
modifyReplicationTask_cdcStartTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTask' {Maybe POSIX
cdcStartTime :: Maybe POSIX
$sel:cdcStartTime:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe POSIX
cdcStartTime} -> Maybe POSIX
cdcStartTime) (\s :: ModifyReplicationTask
s@ModifyReplicationTask' {} Maybe POSIX
a -> ModifyReplicationTask
s {$sel:cdcStartTime:ModifyReplicationTask' :: Maybe POSIX
cdcStartTime = Maybe POSIX
a} :: ModifyReplicationTask) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
modifyReplicationTask_cdcStopPosition :: Lens.Lens' ModifyReplicationTask (Prelude.Maybe Prelude.Text)
modifyReplicationTask_cdcStopPosition :: Lens' ModifyReplicationTask (Maybe Text)
modifyReplicationTask_cdcStopPosition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTask' {Maybe Text
cdcStopPosition :: Maybe Text
$sel:cdcStopPosition:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
cdcStopPosition} -> Maybe Text
cdcStopPosition) (\s :: ModifyReplicationTask
s@ModifyReplicationTask' {} Maybe Text
a -> ModifyReplicationTask
s {$sel:cdcStopPosition:ModifyReplicationTask' :: Maybe Text
cdcStopPosition = Maybe Text
a} :: ModifyReplicationTask)
modifyReplicationTask_migrationType :: Lens.Lens' ModifyReplicationTask (Prelude.Maybe MigrationTypeValue)
modifyReplicationTask_migrationType :: Lens' ModifyReplicationTask (Maybe MigrationTypeValue)
modifyReplicationTask_migrationType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTask' {Maybe MigrationTypeValue
migrationType :: Maybe MigrationTypeValue
$sel:migrationType:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe MigrationTypeValue
migrationType} -> Maybe MigrationTypeValue
migrationType) (\s :: ModifyReplicationTask
s@ModifyReplicationTask' {} Maybe MigrationTypeValue
a -> ModifyReplicationTask
s {$sel:migrationType:ModifyReplicationTask' :: Maybe MigrationTypeValue
migrationType = Maybe MigrationTypeValue
a} :: ModifyReplicationTask)
modifyReplicationTask_replicationTaskIdentifier :: Lens.Lens' ModifyReplicationTask (Prelude.Maybe Prelude.Text)
modifyReplicationTask_replicationTaskIdentifier :: Lens' ModifyReplicationTask (Maybe Text)
modifyReplicationTask_replicationTaskIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTask' {Maybe Text
replicationTaskIdentifier :: Maybe Text
$sel:replicationTaskIdentifier:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
replicationTaskIdentifier} -> Maybe Text
replicationTaskIdentifier) (\s :: ModifyReplicationTask
s@ModifyReplicationTask' {} Maybe Text
a -> ModifyReplicationTask
s {$sel:replicationTaskIdentifier:ModifyReplicationTask' :: Maybe Text
replicationTaskIdentifier = Maybe Text
a} :: ModifyReplicationTask)
modifyReplicationTask_replicationTaskSettings :: Lens.Lens' ModifyReplicationTask (Prelude.Maybe Prelude.Text)
modifyReplicationTask_replicationTaskSettings :: Lens' ModifyReplicationTask (Maybe Text)
modifyReplicationTask_replicationTaskSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTask' {Maybe Text
replicationTaskSettings :: Maybe Text
$sel:replicationTaskSettings:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
replicationTaskSettings} -> Maybe Text
replicationTaskSettings) (\s :: ModifyReplicationTask
s@ModifyReplicationTask' {} Maybe Text
a -> ModifyReplicationTask
s {$sel:replicationTaskSettings:ModifyReplicationTask' :: Maybe Text
replicationTaskSettings = Maybe Text
a} :: ModifyReplicationTask)
modifyReplicationTask_tableMappings :: Lens.Lens' ModifyReplicationTask (Prelude.Maybe Prelude.Text)
modifyReplicationTask_tableMappings :: Lens' ModifyReplicationTask (Maybe Text)
modifyReplicationTask_tableMappings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTask' {Maybe Text
tableMappings :: Maybe Text
$sel:tableMappings:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
tableMappings} -> Maybe Text
tableMappings) (\s :: ModifyReplicationTask
s@ModifyReplicationTask' {} Maybe Text
a -> ModifyReplicationTask
s {$sel:tableMappings:ModifyReplicationTask' :: Maybe Text
tableMappings = Maybe Text
a} :: ModifyReplicationTask)
modifyReplicationTask_taskData :: Lens.Lens' ModifyReplicationTask (Prelude.Maybe Prelude.Text)
modifyReplicationTask_taskData :: Lens' ModifyReplicationTask (Maybe Text)
modifyReplicationTask_taskData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTask' {Maybe Text
taskData :: Maybe Text
$sel:taskData:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
taskData} -> Maybe Text
taskData) (\s :: ModifyReplicationTask
s@ModifyReplicationTask' {} Maybe Text
a -> ModifyReplicationTask
s {$sel:taskData:ModifyReplicationTask' :: Maybe Text
taskData = Maybe Text
a} :: ModifyReplicationTask)
modifyReplicationTask_replicationTaskArn :: Lens.Lens' ModifyReplicationTask Prelude.Text
modifyReplicationTask_replicationTaskArn :: Lens' ModifyReplicationTask Text
modifyReplicationTask_replicationTaskArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTask' {Text
replicationTaskArn :: Text
$sel:replicationTaskArn:ModifyReplicationTask' :: ModifyReplicationTask -> Text
replicationTaskArn} -> Text
replicationTaskArn) (\s :: ModifyReplicationTask
s@ModifyReplicationTask' {} Text
a -> ModifyReplicationTask
s {$sel:replicationTaskArn:ModifyReplicationTask' :: Text
replicationTaskArn = Text
a} :: ModifyReplicationTask)
instance Core.AWSRequest ModifyReplicationTask where
type
AWSResponse ModifyReplicationTask =
ModifyReplicationTaskResponse
request :: (Service -> Service)
-> ModifyReplicationTask -> Request ModifyReplicationTask
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ModifyReplicationTask
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ModifyReplicationTask)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe ReplicationTask -> Int -> ModifyReplicationTaskResponse
ModifyReplicationTaskResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ReplicationTask")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable ModifyReplicationTask where
hashWithSalt :: Int -> ModifyReplicationTask -> Int
hashWithSalt Int
_salt ModifyReplicationTask' {Maybe Text
Maybe POSIX
Maybe MigrationTypeValue
Text
replicationTaskArn :: Text
taskData :: Maybe Text
tableMappings :: Maybe Text
replicationTaskSettings :: Maybe Text
replicationTaskIdentifier :: Maybe Text
migrationType :: Maybe MigrationTypeValue
cdcStopPosition :: Maybe Text
cdcStartTime :: Maybe POSIX
cdcStartPosition :: Maybe Text
$sel:replicationTaskArn:ModifyReplicationTask' :: ModifyReplicationTask -> Text
$sel:taskData:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:tableMappings:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:replicationTaskSettings:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:replicationTaskIdentifier:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:migrationType:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe MigrationTypeValue
$sel:cdcStopPosition:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:cdcStartTime:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe POSIX
$sel:cdcStartPosition:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cdcStartPosition
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
cdcStartTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cdcStopPosition
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MigrationTypeValue
migrationType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
replicationTaskIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
replicationTaskSettings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
tableMappings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
taskData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
replicationTaskArn
instance Prelude.NFData ModifyReplicationTask where
rnf :: ModifyReplicationTask -> ()
rnf ModifyReplicationTask' {Maybe Text
Maybe POSIX
Maybe MigrationTypeValue
Text
replicationTaskArn :: Text
taskData :: Maybe Text
tableMappings :: Maybe Text
replicationTaskSettings :: Maybe Text
replicationTaskIdentifier :: Maybe Text
migrationType :: Maybe MigrationTypeValue
cdcStopPosition :: Maybe Text
cdcStartTime :: Maybe POSIX
cdcStartPosition :: Maybe Text
$sel:replicationTaskArn:ModifyReplicationTask' :: ModifyReplicationTask -> Text
$sel:taskData:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:tableMappings:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:replicationTaskSettings:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:replicationTaskIdentifier:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:migrationType:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe MigrationTypeValue
$sel:cdcStopPosition:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:cdcStartTime:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe POSIX
$sel:cdcStartPosition:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cdcStartPosition
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
cdcStartTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cdcStopPosition
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MigrationTypeValue
migrationType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
replicationTaskIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
replicationTaskSettings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
tableMappings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
taskData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
replicationTaskArn
instance Data.ToHeaders ModifyReplicationTask where
toHeaders :: ModifyReplicationTask -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AmazonDMSv20160101.ModifyReplicationTask" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ModifyReplicationTask where
toJSON :: ModifyReplicationTask -> Value
toJSON ModifyReplicationTask' {Maybe Text
Maybe POSIX
Maybe MigrationTypeValue
Text
replicationTaskArn :: Text
taskData :: Maybe Text
tableMappings :: Maybe Text
replicationTaskSettings :: Maybe Text
replicationTaskIdentifier :: Maybe Text
migrationType :: Maybe MigrationTypeValue
cdcStopPosition :: Maybe Text
cdcStartTime :: Maybe POSIX
cdcStartPosition :: Maybe Text
$sel:replicationTaskArn:ModifyReplicationTask' :: ModifyReplicationTask -> Text
$sel:taskData:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:tableMappings:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:replicationTaskSettings:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:replicationTaskIdentifier:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:migrationType:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe MigrationTypeValue
$sel:cdcStopPosition:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
$sel:cdcStartTime:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe POSIX
$sel:cdcStartPosition:ModifyReplicationTask' :: ModifyReplicationTask -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CdcStartPosition" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
cdcStartPosition,
(Key
"CdcStartTime" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe POSIX
cdcStartTime,
(Key
"CdcStopPosition" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
cdcStopPosition,
(Key
"MigrationType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MigrationTypeValue
migrationType,
(Key
"ReplicationTaskIdentifier" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
replicationTaskIdentifier,
(Key
"ReplicationTaskSettings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
replicationTaskSettings,
(Key
"TableMappings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
tableMappings,
(Key
"TaskData" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
taskData,
forall a. a -> Maybe a
Prelude.Just
(Key
"ReplicationTaskArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
replicationTaskArn)
]
)
instance Data.ToPath ModifyReplicationTask where
toPath :: ModifyReplicationTask -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ModifyReplicationTask where
toQuery :: ModifyReplicationTask -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ModifyReplicationTaskResponse = ModifyReplicationTaskResponse'
{
ModifyReplicationTaskResponse -> Maybe ReplicationTask
replicationTask :: Prelude.Maybe ReplicationTask,
ModifyReplicationTaskResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ModifyReplicationTaskResponse
-> ModifyReplicationTaskResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyReplicationTaskResponse
-> ModifyReplicationTaskResponse -> Bool
$c/= :: ModifyReplicationTaskResponse
-> ModifyReplicationTaskResponse -> Bool
== :: ModifyReplicationTaskResponse
-> ModifyReplicationTaskResponse -> Bool
$c== :: ModifyReplicationTaskResponse
-> ModifyReplicationTaskResponse -> Bool
Prelude.Eq, ReadPrec [ModifyReplicationTaskResponse]
ReadPrec ModifyReplicationTaskResponse
Int -> ReadS ModifyReplicationTaskResponse
ReadS [ModifyReplicationTaskResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyReplicationTaskResponse]
$creadListPrec :: ReadPrec [ModifyReplicationTaskResponse]
readPrec :: ReadPrec ModifyReplicationTaskResponse
$creadPrec :: ReadPrec ModifyReplicationTaskResponse
readList :: ReadS [ModifyReplicationTaskResponse]
$creadList :: ReadS [ModifyReplicationTaskResponse]
readsPrec :: Int -> ReadS ModifyReplicationTaskResponse
$creadsPrec :: Int -> ReadS ModifyReplicationTaskResponse
Prelude.Read, Int -> ModifyReplicationTaskResponse -> ShowS
[ModifyReplicationTaskResponse] -> ShowS
ModifyReplicationTaskResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyReplicationTaskResponse] -> ShowS
$cshowList :: [ModifyReplicationTaskResponse] -> ShowS
show :: ModifyReplicationTaskResponse -> String
$cshow :: ModifyReplicationTaskResponse -> String
showsPrec :: Int -> ModifyReplicationTaskResponse -> ShowS
$cshowsPrec :: Int -> ModifyReplicationTaskResponse -> ShowS
Prelude.Show, forall x.
Rep ModifyReplicationTaskResponse x
-> ModifyReplicationTaskResponse
forall x.
ModifyReplicationTaskResponse
-> Rep ModifyReplicationTaskResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ModifyReplicationTaskResponse x
-> ModifyReplicationTaskResponse
$cfrom :: forall x.
ModifyReplicationTaskResponse
-> Rep ModifyReplicationTaskResponse x
Prelude.Generic)
newModifyReplicationTaskResponse ::
Prelude.Int ->
ModifyReplicationTaskResponse
newModifyReplicationTaskResponse :: Int -> ModifyReplicationTaskResponse
newModifyReplicationTaskResponse Int
pHttpStatus_ =
ModifyReplicationTaskResponse'
{ $sel:replicationTask:ModifyReplicationTaskResponse' :: Maybe ReplicationTask
replicationTask =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ModifyReplicationTaskResponse' :: Int
httpStatus = Int
pHttpStatus_
}
modifyReplicationTaskResponse_replicationTask :: Lens.Lens' ModifyReplicationTaskResponse (Prelude.Maybe ReplicationTask)
modifyReplicationTaskResponse_replicationTask :: Lens' ModifyReplicationTaskResponse (Maybe ReplicationTask)
modifyReplicationTaskResponse_replicationTask = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTaskResponse' {Maybe ReplicationTask
replicationTask :: Maybe ReplicationTask
$sel:replicationTask:ModifyReplicationTaskResponse' :: ModifyReplicationTaskResponse -> Maybe ReplicationTask
replicationTask} -> Maybe ReplicationTask
replicationTask) (\s :: ModifyReplicationTaskResponse
s@ModifyReplicationTaskResponse' {} Maybe ReplicationTask
a -> ModifyReplicationTaskResponse
s {$sel:replicationTask:ModifyReplicationTaskResponse' :: Maybe ReplicationTask
replicationTask = Maybe ReplicationTask
a} :: ModifyReplicationTaskResponse)
modifyReplicationTaskResponse_httpStatus :: Lens.Lens' ModifyReplicationTaskResponse Prelude.Int
modifyReplicationTaskResponse_httpStatus :: Lens' ModifyReplicationTaskResponse Int
modifyReplicationTaskResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyReplicationTaskResponse' {Int
httpStatus :: Int
$sel:httpStatus:ModifyReplicationTaskResponse' :: ModifyReplicationTaskResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ModifyReplicationTaskResponse
s@ModifyReplicationTaskResponse' {} Int
a -> ModifyReplicationTaskResponse
s {$sel:httpStatus:ModifyReplicationTaskResponse' :: Int
httpStatus = Int
a} :: ModifyReplicationTaskResponse)
instance Prelude.NFData ModifyReplicationTaskResponse where
rnf :: ModifyReplicationTaskResponse -> ()
rnf ModifyReplicationTaskResponse' {Int
Maybe ReplicationTask
httpStatus :: Int
replicationTask :: Maybe ReplicationTask
$sel:httpStatus:ModifyReplicationTaskResponse' :: ModifyReplicationTaskResponse -> Int
$sel:replicationTask:ModifyReplicationTaskResponse' :: ModifyReplicationTaskResponse -> Maybe ReplicationTask
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ReplicationTask
replicationTask
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus