{-# 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.CreateReplicationTask
(
CreateReplicationTask (..),
newCreateReplicationTask,
createReplicationTask_cdcStartPosition,
createReplicationTask_cdcStartTime,
createReplicationTask_cdcStopPosition,
createReplicationTask_replicationTaskSettings,
createReplicationTask_resourceIdentifier,
createReplicationTask_tags,
createReplicationTask_taskData,
createReplicationTask_replicationTaskIdentifier,
createReplicationTask_sourceEndpointArn,
createReplicationTask_targetEndpointArn,
createReplicationTask_replicationInstanceArn,
createReplicationTask_migrationType,
createReplicationTask_tableMappings,
CreateReplicationTaskResponse (..),
newCreateReplicationTaskResponse,
createReplicationTaskResponse_replicationTask,
createReplicationTaskResponse_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 CreateReplicationTask = CreateReplicationTask'
{
CreateReplicationTask -> Maybe Text
cdcStartPosition :: Prelude.Maybe Prelude.Text,
CreateReplicationTask -> Maybe POSIX
cdcStartTime :: Prelude.Maybe Data.POSIX,
CreateReplicationTask -> Maybe Text
cdcStopPosition :: Prelude.Maybe Prelude.Text,
CreateReplicationTask -> Maybe Text
replicationTaskSettings :: Prelude.Maybe Prelude.Text,
CreateReplicationTask -> Maybe Text
resourceIdentifier :: Prelude.Maybe Prelude.Text,
CreateReplicationTask -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateReplicationTask -> Maybe Text
taskData :: Prelude.Maybe Prelude.Text,
CreateReplicationTask -> Text
replicationTaskIdentifier :: Prelude.Text,
CreateReplicationTask -> Text
sourceEndpointArn :: Prelude.Text,
CreateReplicationTask -> Text
targetEndpointArn :: Prelude.Text,
CreateReplicationTask -> Text
replicationInstanceArn :: Prelude.Text,
CreateReplicationTask -> MigrationTypeValue
migrationType :: MigrationTypeValue,
CreateReplicationTask -> Text
tableMappings :: Prelude.Text
}
deriving (CreateReplicationTask -> CreateReplicationTask -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateReplicationTask -> CreateReplicationTask -> Bool
$c/= :: CreateReplicationTask -> CreateReplicationTask -> Bool
== :: CreateReplicationTask -> CreateReplicationTask -> Bool
$c== :: CreateReplicationTask -> CreateReplicationTask -> Bool
Prelude.Eq, ReadPrec [CreateReplicationTask]
ReadPrec CreateReplicationTask
Int -> ReadS CreateReplicationTask
ReadS [CreateReplicationTask]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateReplicationTask]
$creadListPrec :: ReadPrec [CreateReplicationTask]
readPrec :: ReadPrec CreateReplicationTask
$creadPrec :: ReadPrec CreateReplicationTask
readList :: ReadS [CreateReplicationTask]
$creadList :: ReadS [CreateReplicationTask]
readsPrec :: Int -> ReadS CreateReplicationTask
$creadsPrec :: Int -> ReadS CreateReplicationTask
Prelude.Read, Int -> CreateReplicationTask -> ShowS
[CreateReplicationTask] -> ShowS
CreateReplicationTask -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateReplicationTask] -> ShowS
$cshowList :: [CreateReplicationTask] -> ShowS
show :: CreateReplicationTask -> String
$cshow :: CreateReplicationTask -> String
showsPrec :: Int -> CreateReplicationTask -> ShowS
$cshowsPrec :: Int -> CreateReplicationTask -> ShowS
Prelude.Show, forall x. Rep CreateReplicationTask x -> CreateReplicationTask
forall x. CreateReplicationTask -> Rep CreateReplicationTask x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateReplicationTask x -> CreateReplicationTask
$cfrom :: forall x. CreateReplicationTask -> Rep CreateReplicationTask x
Prelude.Generic)
newCreateReplicationTask ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
MigrationTypeValue ->
Prelude.Text ->
CreateReplicationTask
newCreateReplicationTask :: Text
-> Text
-> Text
-> Text
-> MigrationTypeValue
-> Text
-> CreateReplicationTask
newCreateReplicationTask
Text
pReplicationTaskIdentifier_
Text
pSourceEndpointArn_
Text
pTargetEndpointArn_
Text
pReplicationInstanceArn_
MigrationTypeValue
pMigrationType_
Text
pTableMappings_ =
CreateReplicationTask'
{ $sel:cdcStartPosition:CreateReplicationTask' :: Maybe Text
cdcStartPosition =
forall a. Maybe a
Prelude.Nothing,
$sel:cdcStartTime:CreateReplicationTask' :: Maybe POSIX
cdcStartTime = forall a. Maybe a
Prelude.Nothing,
$sel:cdcStopPosition:CreateReplicationTask' :: Maybe Text
cdcStopPosition = forall a. Maybe a
Prelude.Nothing,
$sel:replicationTaskSettings:CreateReplicationTask' :: Maybe Text
replicationTaskSettings = forall a. Maybe a
Prelude.Nothing,
$sel:resourceIdentifier:CreateReplicationTask' :: Maybe Text
resourceIdentifier = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateReplicationTask' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:taskData:CreateReplicationTask' :: Maybe Text
taskData = forall a. Maybe a
Prelude.Nothing,
$sel:replicationTaskIdentifier:CreateReplicationTask' :: Text
replicationTaskIdentifier =
Text
pReplicationTaskIdentifier_,
$sel:sourceEndpointArn:CreateReplicationTask' :: Text
sourceEndpointArn = Text
pSourceEndpointArn_,
$sel:targetEndpointArn:CreateReplicationTask' :: Text
targetEndpointArn = Text
pTargetEndpointArn_,
$sel:replicationInstanceArn:CreateReplicationTask' :: Text
replicationInstanceArn = Text
pReplicationInstanceArn_,
$sel:migrationType:CreateReplicationTask' :: MigrationTypeValue
migrationType = MigrationTypeValue
pMigrationType_,
$sel:tableMappings:CreateReplicationTask' :: Text
tableMappings = Text
pTableMappings_
}
createReplicationTask_cdcStartPosition :: Lens.Lens' CreateReplicationTask (Prelude.Maybe Prelude.Text)
createReplicationTask_cdcStartPosition :: Lens' CreateReplicationTask (Maybe Text)
createReplicationTask_cdcStartPosition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Maybe Text
cdcStartPosition :: Maybe Text
$sel:cdcStartPosition:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
cdcStartPosition} -> Maybe Text
cdcStartPosition) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Maybe Text
a -> CreateReplicationTask
s {$sel:cdcStartPosition:CreateReplicationTask' :: Maybe Text
cdcStartPosition = Maybe Text
a} :: CreateReplicationTask)
createReplicationTask_cdcStartTime :: Lens.Lens' CreateReplicationTask (Prelude.Maybe Prelude.UTCTime)
createReplicationTask_cdcStartTime :: Lens' CreateReplicationTask (Maybe UTCTime)
createReplicationTask_cdcStartTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Maybe POSIX
cdcStartTime :: Maybe POSIX
$sel:cdcStartTime:CreateReplicationTask' :: CreateReplicationTask -> Maybe POSIX
cdcStartTime} -> Maybe POSIX
cdcStartTime) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Maybe POSIX
a -> CreateReplicationTask
s {$sel:cdcStartTime:CreateReplicationTask' :: Maybe POSIX
cdcStartTime = Maybe POSIX
a} :: CreateReplicationTask) 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
createReplicationTask_cdcStopPosition :: Lens.Lens' CreateReplicationTask (Prelude.Maybe Prelude.Text)
createReplicationTask_cdcStopPosition :: Lens' CreateReplicationTask (Maybe Text)
createReplicationTask_cdcStopPosition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Maybe Text
cdcStopPosition :: Maybe Text
$sel:cdcStopPosition:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
cdcStopPosition} -> Maybe Text
cdcStopPosition) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Maybe Text
a -> CreateReplicationTask
s {$sel:cdcStopPosition:CreateReplicationTask' :: Maybe Text
cdcStopPosition = Maybe Text
a} :: CreateReplicationTask)
createReplicationTask_replicationTaskSettings :: Lens.Lens' CreateReplicationTask (Prelude.Maybe Prelude.Text)
createReplicationTask_replicationTaskSettings :: Lens' CreateReplicationTask (Maybe Text)
createReplicationTask_replicationTaskSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Maybe Text
replicationTaskSettings :: Maybe Text
$sel:replicationTaskSettings:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
replicationTaskSettings} -> Maybe Text
replicationTaskSettings) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Maybe Text
a -> CreateReplicationTask
s {$sel:replicationTaskSettings:CreateReplicationTask' :: Maybe Text
replicationTaskSettings = Maybe Text
a} :: CreateReplicationTask)
createReplicationTask_resourceIdentifier :: Lens.Lens' CreateReplicationTask (Prelude.Maybe Prelude.Text)
createReplicationTask_resourceIdentifier :: Lens' CreateReplicationTask (Maybe Text)
createReplicationTask_resourceIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Maybe Text
resourceIdentifier :: Maybe Text
$sel:resourceIdentifier:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
resourceIdentifier} -> Maybe Text
resourceIdentifier) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Maybe Text
a -> CreateReplicationTask
s {$sel:resourceIdentifier:CreateReplicationTask' :: Maybe Text
resourceIdentifier = Maybe Text
a} :: CreateReplicationTask)
createReplicationTask_tags :: Lens.Lens' CreateReplicationTask (Prelude.Maybe [Tag])
createReplicationTask_tags :: Lens' CreateReplicationTask (Maybe [Tag])
createReplicationTask_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateReplicationTask' :: CreateReplicationTask -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Maybe [Tag]
a -> CreateReplicationTask
s {$sel:tags:CreateReplicationTask' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateReplicationTask) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createReplicationTask_taskData :: Lens.Lens' CreateReplicationTask (Prelude.Maybe Prelude.Text)
createReplicationTask_taskData :: Lens' CreateReplicationTask (Maybe Text)
createReplicationTask_taskData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Maybe Text
taskData :: Maybe Text
$sel:taskData:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
taskData} -> Maybe Text
taskData) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Maybe Text
a -> CreateReplicationTask
s {$sel:taskData:CreateReplicationTask' :: Maybe Text
taskData = Maybe Text
a} :: CreateReplicationTask)
createReplicationTask_replicationTaskIdentifier :: Lens.Lens' CreateReplicationTask Prelude.Text
createReplicationTask_replicationTaskIdentifier :: Lens' CreateReplicationTask Text
createReplicationTask_replicationTaskIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Text
replicationTaskIdentifier :: Text
$sel:replicationTaskIdentifier:CreateReplicationTask' :: CreateReplicationTask -> Text
replicationTaskIdentifier} -> Text
replicationTaskIdentifier) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Text
a -> CreateReplicationTask
s {$sel:replicationTaskIdentifier:CreateReplicationTask' :: Text
replicationTaskIdentifier = Text
a} :: CreateReplicationTask)
createReplicationTask_sourceEndpointArn :: Lens.Lens' CreateReplicationTask Prelude.Text
createReplicationTask_sourceEndpointArn :: Lens' CreateReplicationTask Text
createReplicationTask_sourceEndpointArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Text
sourceEndpointArn :: Text
$sel:sourceEndpointArn:CreateReplicationTask' :: CreateReplicationTask -> Text
sourceEndpointArn} -> Text
sourceEndpointArn) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Text
a -> CreateReplicationTask
s {$sel:sourceEndpointArn:CreateReplicationTask' :: Text
sourceEndpointArn = Text
a} :: CreateReplicationTask)
createReplicationTask_targetEndpointArn :: Lens.Lens' CreateReplicationTask Prelude.Text
createReplicationTask_targetEndpointArn :: Lens' CreateReplicationTask Text
createReplicationTask_targetEndpointArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Text
targetEndpointArn :: Text
$sel:targetEndpointArn:CreateReplicationTask' :: CreateReplicationTask -> Text
targetEndpointArn} -> Text
targetEndpointArn) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Text
a -> CreateReplicationTask
s {$sel:targetEndpointArn:CreateReplicationTask' :: Text
targetEndpointArn = Text
a} :: CreateReplicationTask)
createReplicationTask_replicationInstanceArn :: Lens.Lens' CreateReplicationTask Prelude.Text
createReplicationTask_replicationInstanceArn :: Lens' CreateReplicationTask Text
createReplicationTask_replicationInstanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Text
replicationInstanceArn :: Text
$sel:replicationInstanceArn:CreateReplicationTask' :: CreateReplicationTask -> Text
replicationInstanceArn} -> Text
replicationInstanceArn) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Text
a -> CreateReplicationTask
s {$sel:replicationInstanceArn:CreateReplicationTask' :: Text
replicationInstanceArn = Text
a} :: CreateReplicationTask)
createReplicationTask_migrationType :: Lens.Lens' CreateReplicationTask MigrationTypeValue
createReplicationTask_migrationType :: Lens' CreateReplicationTask MigrationTypeValue
createReplicationTask_migrationType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {MigrationTypeValue
migrationType :: MigrationTypeValue
$sel:migrationType:CreateReplicationTask' :: CreateReplicationTask -> MigrationTypeValue
migrationType} -> MigrationTypeValue
migrationType) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} MigrationTypeValue
a -> CreateReplicationTask
s {$sel:migrationType:CreateReplicationTask' :: MigrationTypeValue
migrationType = MigrationTypeValue
a} :: CreateReplicationTask)
createReplicationTask_tableMappings :: Lens.Lens' CreateReplicationTask Prelude.Text
createReplicationTask_tableMappings :: Lens' CreateReplicationTask Text
createReplicationTask_tableMappings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTask' {Text
tableMappings :: Text
$sel:tableMappings:CreateReplicationTask' :: CreateReplicationTask -> Text
tableMappings} -> Text
tableMappings) (\s :: CreateReplicationTask
s@CreateReplicationTask' {} Text
a -> CreateReplicationTask
s {$sel:tableMappings:CreateReplicationTask' :: Text
tableMappings = Text
a} :: CreateReplicationTask)
instance Core.AWSRequest CreateReplicationTask where
type
AWSResponse CreateReplicationTask =
CreateReplicationTaskResponse
request :: (Service -> Service)
-> CreateReplicationTask -> Request CreateReplicationTask
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 CreateReplicationTask
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateReplicationTask)))
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 -> CreateReplicationTaskResponse
CreateReplicationTaskResponse'
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 CreateReplicationTask where
hashWithSalt :: Int -> CreateReplicationTask -> Int
hashWithSalt Int
_salt CreateReplicationTask' {Maybe [Tag]
Maybe Text
Maybe POSIX
Text
MigrationTypeValue
tableMappings :: Text
migrationType :: MigrationTypeValue
replicationInstanceArn :: Text
targetEndpointArn :: Text
sourceEndpointArn :: Text
replicationTaskIdentifier :: Text
taskData :: Maybe Text
tags :: Maybe [Tag]
resourceIdentifier :: Maybe Text
replicationTaskSettings :: Maybe Text
cdcStopPosition :: Maybe Text
cdcStartTime :: Maybe POSIX
cdcStartPosition :: Maybe Text
$sel:tableMappings:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:migrationType:CreateReplicationTask' :: CreateReplicationTask -> MigrationTypeValue
$sel:replicationInstanceArn:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:targetEndpointArn:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:sourceEndpointArn:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:replicationTaskIdentifier:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:taskData:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:tags:CreateReplicationTask' :: CreateReplicationTask -> Maybe [Tag]
$sel:resourceIdentifier:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:replicationTaskSettings:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:cdcStopPosition:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:cdcStartTime:CreateReplicationTask' :: CreateReplicationTask -> Maybe POSIX
$sel:cdcStartPosition:CreateReplicationTask' :: CreateReplicationTask -> 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 Text
replicationTaskSettings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
resourceIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
taskData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
replicationTaskIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sourceEndpointArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
targetEndpointArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
replicationInstanceArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` MigrationTypeValue
migrationType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
tableMappings
instance Prelude.NFData CreateReplicationTask where
rnf :: CreateReplicationTask -> ()
rnf CreateReplicationTask' {Maybe [Tag]
Maybe Text
Maybe POSIX
Text
MigrationTypeValue
tableMappings :: Text
migrationType :: MigrationTypeValue
replicationInstanceArn :: Text
targetEndpointArn :: Text
sourceEndpointArn :: Text
replicationTaskIdentifier :: Text
taskData :: Maybe Text
tags :: Maybe [Tag]
resourceIdentifier :: Maybe Text
replicationTaskSettings :: Maybe Text
cdcStopPosition :: Maybe Text
cdcStartTime :: Maybe POSIX
cdcStartPosition :: Maybe Text
$sel:tableMappings:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:migrationType:CreateReplicationTask' :: CreateReplicationTask -> MigrationTypeValue
$sel:replicationInstanceArn:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:targetEndpointArn:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:sourceEndpointArn:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:replicationTaskIdentifier:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:taskData:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:tags:CreateReplicationTask' :: CreateReplicationTask -> Maybe [Tag]
$sel:resourceIdentifier:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:replicationTaskSettings:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:cdcStopPosition:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:cdcStartTime:CreateReplicationTask' :: CreateReplicationTask -> Maybe POSIX
$sel:cdcStartPosition:CreateReplicationTask' :: CreateReplicationTask -> 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 Text
replicationTaskSettings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
resourceIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
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
replicationTaskIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sourceEndpointArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
targetEndpointArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
replicationInstanceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf MigrationTypeValue
migrationType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
tableMappings
instance Data.ToHeaders CreateReplicationTask where
toHeaders :: CreateReplicationTask -> 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.CreateReplicationTask" ::
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 CreateReplicationTask where
toJSON :: CreateReplicationTask -> Value
toJSON CreateReplicationTask' {Maybe [Tag]
Maybe Text
Maybe POSIX
Text
MigrationTypeValue
tableMappings :: Text
migrationType :: MigrationTypeValue
replicationInstanceArn :: Text
targetEndpointArn :: Text
sourceEndpointArn :: Text
replicationTaskIdentifier :: Text
taskData :: Maybe Text
tags :: Maybe [Tag]
resourceIdentifier :: Maybe Text
replicationTaskSettings :: Maybe Text
cdcStopPosition :: Maybe Text
cdcStartTime :: Maybe POSIX
cdcStartPosition :: Maybe Text
$sel:tableMappings:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:migrationType:CreateReplicationTask' :: CreateReplicationTask -> MigrationTypeValue
$sel:replicationInstanceArn:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:targetEndpointArn:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:sourceEndpointArn:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:replicationTaskIdentifier:CreateReplicationTask' :: CreateReplicationTask -> Text
$sel:taskData:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:tags:CreateReplicationTask' :: CreateReplicationTask -> Maybe [Tag]
$sel:resourceIdentifier:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:replicationTaskSettings:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:cdcStopPosition:CreateReplicationTask' :: CreateReplicationTask -> Maybe Text
$sel:cdcStartTime:CreateReplicationTask' :: CreateReplicationTask -> Maybe POSIX
$sel:cdcStartPosition:CreateReplicationTask' :: CreateReplicationTask -> 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
"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
"ResourceIdentifier" 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
resourceIdentifier,
(Key
"Tags" 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 [Tag]
tags,
(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
"ReplicationTaskIdentifier"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
replicationTaskIdentifier
),
forall a. a -> Maybe a
Prelude.Just
(Key
"SourceEndpointArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sourceEndpointArn),
forall a. a -> Maybe a
Prelude.Just
(Key
"TargetEndpointArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
targetEndpointArn),
forall a. a -> Maybe a
Prelude.Just
( Key
"ReplicationInstanceArn"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
replicationInstanceArn
),
forall a. a -> Maybe a
Prelude.Just (Key
"MigrationType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= MigrationTypeValue
migrationType),
forall a. a -> Maybe a
Prelude.Just
(Key
"TableMappings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
tableMappings)
]
)
instance Data.ToPath CreateReplicationTask where
toPath :: CreateReplicationTask -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateReplicationTask where
toQuery :: CreateReplicationTask -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateReplicationTaskResponse = CreateReplicationTaskResponse'
{
CreateReplicationTaskResponse -> Maybe ReplicationTask
replicationTask :: Prelude.Maybe ReplicationTask,
CreateReplicationTaskResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateReplicationTaskResponse
-> CreateReplicationTaskResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateReplicationTaskResponse
-> CreateReplicationTaskResponse -> Bool
$c/= :: CreateReplicationTaskResponse
-> CreateReplicationTaskResponse -> Bool
== :: CreateReplicationTaskResponse
-> CreateReplicationTaskResponse -> Bool
$c== :: CreateReplicationTaskResponse
-> CreateReplicationTaskResponse -> Bool
Prelude.Eq, ReadPrec [CreateReplicationTaskResponse]
ReadPrec CreateReplicationTaskResponse
Int -> ReadS CreateReplicationTaskResponse
ReadS [CreateReplicationTaskResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateReplicationTaskResponse]
$creadListPrec :: ReadPrec [CreateReplicationTaskResponse]
readPrec :: ReadPrec CreateReplicationTaskResponse
$creadPrec :: ReadPrec CreateReplicationTaskResponse
readList :: ReadS [CreateReplicationTaskResponse]
$creadList :: ReadS [CreateReplicationTaskResponse]
readsPrec :: Int -> ReadS CreateReplicationTaskResponse
$creadsPrec :: Int -> ReadS CreateReplicationTaskResponse
Prelude.Read, Int -> CreateReplicationTaskResponse -> ShowS
[CreateReplicationTaskResponse] -> ShowS
CreateReplicationTaskResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateReplicationTaskResponse] -> ShowS
$cshowList :: [CreateReplicationTaskResponse] -> ShowS
show :: CreateReplicationTaskResponse -> String
$cshow :: CreateReplicationTaskResponse -> String
showsPrec :: Int -> CreateReplicationTaskResponse -> ShowS
$cshowsPrec :: Int -> CreateReplicationTaskResponse -> ShowS
Prelude.Show, forall x.
Rep CreateReplicationTaskResponse x
-> CreateReplicationTaskResponse
forall x.
CreateReplicationTaskResponse
-> Rep CreateReplicationTaskResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateReplicationTaskResponse x
-> CreateReplicationTaskResponse
$cfrom :: forall x.
CreateReplicationTaskResponse
-> Rep CreateReplicationTaskResponse x
Prelude.Generic)
newCreateReplicationTaskResponse ::
Prelude.Int ->
CreateReplicationTaskResponse
newCreateReplicationTaskResponse :: Int -> CreateReplicationTaskResponse
newCreateReplicationTaskResponse Int
pHttpStatus_ =
CreateReplicationTaskResponse'
{ $sel:replicationTask:CreateReplicationTaskResponse' :: Maybe ReplicationTask
replicationTask =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateReplicationTaskResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createReplicationTaskResponse_replicationTask :: Lens.Lens' CreateReplicationTaskResponse (Prelude.Maybe ReplicationTask)
createReplicationTaskResponse_replicationTask :: Lens' CreateReplicationTaskResponse (Maybe ReplicationTask)
createReplicationTaskResponse_replicationTask = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTaskResponse' {Maybe ReplicationTask
replicationTask :: Maybe ReplicationTask
$sel:replicationTask:CreateReplicationTaskResponse' :: CreateReplicationTaskResponse -> Maybe ReplicationTask
replicationTask} -> Maybe ReplicationTask
replicationTask) (\s :: CreateReplicationTaskResponse
s@CreateReplicationTaskResponse' {} Maybe ReplicationTask
a -> CreateReplicationTaskResponse
s {$sel:replicationTask:CreateReplicationTaskResponse' :: Maybe ReplicationTask
replicationTask = Maybe ReplicationTask
a} :: CreateReplicationTaskResponse)
createReplicationTaskResponse_httpStatus :: Lens.Lens' CreateReplicationTaskResponse Prelude.Int
createReplicationTaskResponse_httpStatus :: Lens' CreateReplicationTaskResponse Int
createReplicationTaskResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateReplicationTaskResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateReplicationTaskResponse' :: CreateReplicationTaskResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateReplicationTaskResponse
s@CreateReplicationTaskResponse' {} Int
a -> CreateReplicationTaskResponse
s {$sel:httpStatus:CreateReplicationTaskResponse' :: Int
httpStatus = Int
a} :: CreateReplicationTaskResponse)
instance Prelude.NFData CreateReplicationTaskResponse where
rnf :: CreateReplicationTaskResponse -> ()
rnf CreateReplicationTaskResponse' {Int
Maybe ReplicationTask
httpStatus :: Int
replicationTask :: Maybe ReplicationTask
$sel:httpStatus:CreateReplicationTaskResponse' :: CreateReplicationTaskResponse -> Int
$sel:replicationTask:CreateReplicationTaskResponse' :: CreateReplicationTaskResponse -> 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