{-# 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.DeleteReplicationTaskAssessmentRun
(
DeleteReplicationTaskAssessmentRun (..),
newDeleteReplicationTaskAssessmentRun,
deleteReplicationTaskAssessmentRun_replicationTaskAssessmentRunArn,
DeleteReplicationTaskAssessmentRunResponse (..),
newDeleteReplicationTaskAssessmentRunResponse,
deleteReplicationTaskAssessmentRunResponse_replicationTaskAssessmentRun,
deleteReplicationTaskAssessmentRunResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import Amazonka.DMS.Types
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteReplicationTaskAssessmentRun = DeleteReplicationTaskAssessmentRun'
{
DeleteReplicationTaskAssessmentRun -> Text
replicationTaskAssessmentRunArn :: Prelude.Text
}
deriving (DeleteReplicationTaskAssessmentRun
-> DeleteReplicationTaskAssessmentRun -> Bool
(DeleteReplicationTaskAssessmentRun
-> DeleteReplicationTaskAssessmentRun -> Bool)
-> (DeleteReplicationTaskAssessmentRun
-> DeleteReplicationTaskAssessmentRun -> Bool)
-> Eq DeleteReplicationTaskAssessmentRun
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteReplicationTaskAssessmentRun
-> DeleteReplicationTaskAssessmentRun -> Bool
$c/= :: DeleteReplicationTaskAssessmentRun
-> DeleteReplicationTaskAssessmentRun -> Bool
== :: DeleteReplicationTaskAssessmentRun
-> DeleteReplicationTaskAssessmentRun -> Bool
$c== :: DeleteReplicationTaskAssessmentRun
-> DeleteReplicationTaskAssessmentRun -> Bool
Prelude.Eq, ReadPrec [DeleteReplicationTaskAssessmentRun]
ReadPrec DeleteReplicationTaskAssessmentRun
Int -> ReadS DeleteReplicationTaskAssessmentRun
ReadS [DeleteReplicationTaskAssessmentRun]
(Int -> ReadS DeleteReplicationTaskAssessmentRun)
-> ReadS [DeleteReplicationTaskAssessmentRun]
-> ReadPrec DeleteReplicationTaskAssessmentRun
-> ReadPrec [DeleteReplicationTaskAssessmentRun]
-> Read DeleteReplicationTaskAssessmentRun
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteReplicationTaskAssessmentRun]
$creadListPrec :: ReadPrec [DeleteReplicationTaskAssessmentRun]
readPrec :: ReadPrec DeleteReplicationTaskAssessmentRun
$creadPrec :: ReadPrec DeleteReplicationTaskAssessmentRun
readList :: ReadS [DeleteReplicationTaskAssessmentRun]
$creadList :: ReadS [DeleteReplicationTaskAssessmentRun]
readsPrec :: Int -> ReadS DeleteReplicationTaskAssessmentRun
$creadsPrec :: Int -> ReadS DeleteReplicationTaskAssessmentRun
Prelude.Read, Int -> DeleteReplicationTaskAssessmentRun -> ShowS
[DeleteReplicationTaskAssessmentRun] -> ShowS
DeleteReplicationTaskAssessmentRun -> String
(Int -> DeleteReplicationTaskAssessmentRun -> ShowS)
-> (DeleteReplicationTaskAssessmentRun -> String)
-> ([DeleteReplicationTaskAssessmentRun] -> ShowS)
-> Show DeleteReplicationTaskAssessmentRun
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteReplicationTaskAssessmentRun] -> ShowS
$cshowList :: [DeleteReplicationTaskAssessmentRun] -> ShowS
show :: DeleteReplicationTaskAssessmentRun -> String
$cshow :: DeleteReplicationTaskAssessmentRun -> String
showsPrec :: Int -> DeleteReplicationTaskAssessmentRun -> ShowS
$cshowsPrec :: Int -> DeleteReplicationTaskAssessmentRun -> ShowS
Prelude.Show, (forall x.
DeleteReplicationTaskAssessmentRun
-> Rep DeleteReplicationTaskAssessmentRun x)
-> (forall x.
Rep DeleteReplicationTaskAssessmentRun x
-> DeleteReplicationTaskAssessmentRun)
-> Generic DeleteReplicationTaskAssessmentRun
forall x.
Rep DeleteReplicationTaskAssessmentRun x
-> DeleteReplicationTaskAssessmentRun
forall x.
DeleteReplicationTaskAssessmentRun
-> Rep DeleteReplicationTaskAssessmentRun x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteReplicationTaskAssessmentRun x
-> DeleteReplicationTaskAssessmentRun
$cfrom :: forall x.
DeleteReplicationTaskAssessmentRun
-> Rep DeleteReplicationTaskAssessmentRun x
Prelude.Generic)
newDeleteReplicationTaskAssessmentRun ::
Prelude.Text ->
DeleteReplicationTaskAssessmentRun
newDeleteReplicationTaskAssessmentRun :: Text -> DeleteReplicationTaskAssessmentRun
newDeleteReplicationTaskAssessmentRun
Text
pReplicationTaskAssessmentRunArn_ =
DeleteReplicationTaskAssessmentRun' :: Text -> DeleteReplicationTaskAssessmentRun
DeleteReplicationTaskAssessmentRun'
{ $sel:replicationTaskAssessmentRunArn:DeleteReplicationTaskAssessmentRun' :: Text
replicationTaskAssessmentRunArn =
Text
pReplicationTaskAssessmentRunArn_
}
deleteReplicationTaskAssessmentRun_replicationTaskAssessmentRunArn :: Lens.Lens' DeleteReplicationTaskAssessmentRun Prelude.Text
deleteReplicationTaskAssessmentRun_replicationTaskAssessmentRunArn :: (Text -> f Text)
-> DeleteReplicationTaskAssessmentRun
-> f DeleteReplicationTaskAssessmentRun
deleteReplicationTaskAssessmentRun_replicationTaskAssessmentRunArn = (DeleteReplicationTaskAssessmentRun -> Text)
-> (DeleteReplicationTaskAssessmentRun
-> Text -> DeleteReplicationTaskAssessmentRun)
-> Lens
DeleteReplicationTaskAssessmentRun
DeleteReplicationTaskAssessmentRun
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteReplicationTaskAssessmentRun' {Text
replicationTaskAssessmentRunArn :: Text
$sel:replicationTaskAssessmentRunArn:DeleteReplicationTaskAssessmentRun' :: DeleteReplicationTaskAssessmentRun -> Text
replicationTaskAssessmentRunArn} -> Text
replicationTaskAssessmentRunArn) (\s :: DeleteReplicationTaskAssessmentRun
s@DeleteReplicationTaskAssessmentRun' {} Text
a -> DeleteReplicationTaskAssessmentRun
s {$sel:replicationTaskAssessmentRunArn:DeleteReplicationTaskAssessmentRun' :: Text
replicationTaskAssessmentRunArn = Text
a} :: DeleteReplicationTaskAssessmentRun)
instance
Core.AWSRequest
DeleteReplicationTaskAssessmentRun
where
type
AWSResponse DeleteReplicationTaskAssessmentRun =
DeleteReplicationTaskAssessmentRunResponse
request :: DeleteReplicationTaskAssessmentRun
-> Request DeleteReplicationTaskAssessmentRun
request = Service
-> DeleteReplicationTaskAssessmentRun
-> Request DeleteReplicationTaskAssessmentRun
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy DeleteReplicationTaskAssessmentRun
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteReplicationTaskAssessmentRun)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse DeleteReplicationTaskAssessmentRun))
-> Logger
-> Service
-> Proxy DeleteReplicationTaskAssessmentRun
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteReplicationTaskAssessmentRun)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe ReplicationTaskAssessmentRun
-> Int -> DeleteReplicationTaskAssessmentRunResponse
DeleteReplicationTaskAssessmentRunResponse'
(Maybe ReplicationTaskAssessmentRun
-> Int -> DeleteReplicationTaskAssessmentRunResponse)
-> Either String (Maybe ReplicationTaskAssessmentRun)
-> Either
String (Int -> DeleteReplicationTaskAssessmentRunResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object
-> Text -> Either String (Maybe ReplicationTaskAssessmentRun)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"ReplicationTaskAssessmentRun")
Either String (Int -> DeleteReplicationTaskAssessmentRunResponse)
-> Either String Int
-> Either String DeleteReplicationTaskAssessmentRunResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
DeleteReplicationTaskAssessmentRun
instance
Prelude.NFData
DeleteReplicationTaskAssessmentRun
instance
Core.ToHeaders
DeleteReplicationTaskAssessmentRun
where
toHeaders :: DeleteReplicationTaskAssessmentRun -> ResponseHeaders
toHeaders =
ResponseHeaders
-> DeleteReplicationTaskAssessmentRun -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"AmazonDMSv20160101.DeleteReplicationTaskAssessmentRun" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Core.ToJSON
DeleteReplicationTaskAssessmentRun
where
toJSON :: DeleteReplicationTaskAssessmentRun -> Value
toJSON DeleteReplicationTaskAssessmentRun' {Text
replicationTaskAssessmentRunArn :: Text
$sel:replicationTaskAssessmentRunArn:DeleteReplicationTaskAssessmentRun' :: DeleteReplicationTaskAssessmentRun -> Text
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just
( Text
"ReplicationTaskAssessmentRunArn"
Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
replicationTaskAssessmentRunArn
)
]
)
instance
Core.ToPath
DeleteReplicationTaskAssessmentRun
where
toPath :: DeleteReplicationTaskAssessmentRun -> ByteString
toPath = ByteString -> DeleteReplicationTaskAssessmentRun -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Core.ToQuery
DeleteReplicationTaskAssessmentRun
where
toQuery :: DeleteReplicationTaskAssessmentRun -> QueryString
toQuery = QueryString -> DeleteReplicationTaskAssessmentRun -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data DeleteReplicationTaskAssessmentRunResponse = DeleteReplicationTaskAssessmentRunResponse'
{
DeleteReplicationTaskAssessmentRunResponse
-> Maybe ReplicationTaskAssessmentRun
replicationTaskAssessmentRun :: Prelude.Maybe ReplicationTaskAssessmentRun,
DeleteReplicationTaskAssessmentRunResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteReplicationTaskAssessmentRunResponse
-> DeleteReplicationTaskAssessmentRunResponse -> Bool
(DeleteReplicationTaskAssessmentRunResponse
-> DeleteReplicationTaskAssessmentRunResponse -> Bool)
-> (DeleteReplicationTaskAssessmentRunResponse
-> DeleteReplicationTaskAssessmentRunResponse -> Bool)
-> Eq DeleteReplicationTaskAssessmentRunResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteReplicationTaskAssessmentRunResponse
-> DeleteReplicationTaskAssessmentRunResponse -> Bool
$c/= :: DeleteReplicationTaskAssessmentRunResponse
-> DeleteReplicationTaskAssessmentRunResponse -> Bool
== :: DeleteReplicationTaskAssessmentRunResponse
-> DeleteReplicationTaskAssessmentRunResponse -> Bool
$c== :: DeleteReplicationTaskAssessmentRunResponse
-> DeleteReplicationTaskAssessmentRunResponse -> Bool
Prelude.Eq, ReadPrec [DeleteReplicationTaskAssessmentRunResponse]
ReadPrec DeleteReplicationTaskAssessmentRunResponse
Int -> ReadS DeleteReplicationTaskAssessmentRunResponse
ReadS [DeleteReplicationTaskAssessmentRunResponse]
(Int -> ReadS DeleteReplicationTaskAssessmentRunResponse)
-> ReadS [DeleteReplicationTaskAssessmentRunResponse]
-> ReadPrec DeleteReplicationTaskAssessmentRunResponse
-> ReadPrec [DeleteReplicationTaskAssessmentRunResponse]
-> Read DeleteReplicationTaskAssessmentRunResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteReplicationTaskAssessmentRunResponse]
$creadListPrec :: ReadPrec [DeleteReplicationTaskAssessmentRunResponse]
readPrec :: ReadPrec DeleteReplicationTaskAssessmentRunResponse
$creadPrec :: ReadPrec DeleteReplicationTaskAssessmentRunResponse
readList :: ReadS [DeleteReplicationTaskAssessmentRunResponse]
$creadList :: ReadS [DeleteReplicationTaskAssessmentRunResponse]
readsPrec :: Int -> ReadS DeleteReplicationTaskAssessmentRunResponse
$creadsPrec :: Int -> ReadS DeleteReplicationTaskAssessmentRunResponse
Prelude.Read, Int -> DeleteReplicationTaskAssessmentRunResponse -> ShowS
[DeleteReplicationTaskAssessmentRunResponse] -> ShowS
DeleteReplicationTaskAssessmentRunResponse -> String
(Int -> DeleteReplicationTaskAssessmentRunResponse -> ShowS)
-> (DeleteReplicationTaskAssessmentRunResponse -> String)
-> ([DeleteReplicationTaskAssessmentRunResponse] -> ShowS)
-> Show DeleteReplicationTaskAssessmentRunResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteReplicationTaskAssessmentRunResponse] -> ShowS
$cshowList :: [DeleteReplicationTaskAssessmentRunResponse] -> ShowS
show :: DeleteReplicationTaskAssessmentRunResponse -> String
$cshow :: DeleteReplicationTaskAssessmentRunResponse -> String
showsPrec :: Int -> DeleteReplicationTaskAssessmentRunResponse -> ShowS
$cshowsPrec :: Int -> DeleteReplicationTaskAssessmentRunResponse -> ShowS
Prelude.Show, (forall x.
DeleteReplicationTaskAssessmentRunResponse
-> Rep DeleteReplicationTaskAssessmentRunResponse x)
-> (forall x.
Rep DeleteReplicationTaskAssessmentRunResponse x
-> DeleteReplicationTaskAssessmentRunResponse)
-> Generic DeleteReplicationTaskAssessmentRunResponse
forall x.
Rep DeleteReplicationTaskAssessmentRunResponse x
-> DeleteReplicationTaskAssessmentRunResponse
forall x.
DeleteReplicationTaskAssessmentRunResponse
-> Rep DeleteReplicationTaskAssessmentRunResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteReplicationTaskAssessmentRunResponse x
-> DeleteReplicationTaskAssessmentRunResponse
$cfrom :: forall x.
DeleteReplicationTaskAssessmentRunResponse
-> Rep DeleteReplicationTaskAssessmentRunResponse x
Prelude.Generic)
newDeleteReplicationTaskAssessmentRunResponse ::
Prelude.Int ->
DeleteReplicationTaskAssessmentRunResponse
newDeleteReplicationTaskAssessmentRunResponse :: Int -> DeleteReplicationTaskAssessmentRunResponse
newDeleteReplicationTaskAssessmentRunResponse
Int
pHttpStatus_ =
DeleteReplicationTaskAssessmentRunResponse' :: Maybe ReplicationTaskAssessmentRun
-> Int -> DeleteReplicationTaskAssessmentRunResponse
DeleteReplicationTaskAssessmentRunResponse'
{ $sel:replicationTaskAssessmentRun:DeleteReplicationTaskAssessmentRunResponse' :: Maybe ReplicationTaskAssessmentRun
replicationTaskAssessmentRun =
Maybe ReplicationTaskAssessmentRun
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteReplicationTaskAssessmentRunResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteReplicationTaskAssessmentRunResponse_replicationTaskAssessmentRun :: Lens.Lens' DeleteReplicationTaskAssessmentRunResponse (Prelude.Maybe ReplicationTaskAssessmentRun)
deleteReplicationTaskAssessmentRunResponse_replicationTaskAssessmentRun :: (Maybe ReplicationTaskAssessmentRun
-> f (Maybe ReplicationTaskAssessmentRun))
-> DeleteReplicationTaskAssessmentRunResponse
-> f DeleteReplicationTaskAssessmentRunResponse
deleteReplicationTaskAssessmentRunResponse_replicationTaskAssessmentRun = (DeleteReplicationTaskAssessmentRunResponse
-> Maybe ReplicationTaskAssessmentRun)
-> (DeleteReplicationTaskAssessmentRunResponse
-> Maybe ReplicationTaskAssessmentRun
-> DeleteReplicationTaskAssessmentRunResponse)
-> Lens
DeleteReplicationTaskAssessmentRunResponse
DeleteReplicationTaskAssessmentRunResponse
(Maybe ReplicationTaskAssessmentRun)
(Maybe ReplicationTaskAssessmentRun)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteReplicationTaskAssessmentRunResponse' {Maybe ReplicationTaskAssessmentRun
replicationTaskAssessmentRun :: Maybe ReplicationTaskAssessmentRun
$sel:replicationTaskAssessmentRun:DeleteReplicationTaskAssessmentRunResponse' :: DeleteReplicationTaskAssessmentRunResponse
-> Maybe ReplicationTaskAssessmentRun
replicationTaskAssessmentRun} -> Maybe ReplicationTaskAssessmentRun
replicationTaskAssessmentRun) (\s :: DeleteReplicationTaskAssessmentRunResponse
s@DeleteReplicationTaskAssessmentRunResponse' {} Maybe ReplicationTaskAssessmentRun
a -> DeleteReplicationTaskAssessmentRunResponse
s {$sel:replicationTaskAssessmentRun:DeleteReplicationTaskAssessmentRunResponse' :: Maybe ReplicationTaskAssessmentRun
replicationTaskAssessmentRun = Maybe ReplicationTaskAssessmentRun
a} :: DeleteReplicationTaskAssessmentRunResponse)
deleteReplicationTaskAssessmentRunResponse_httpStatus :: Lens.Lens' DeleteReplicationTaskAssessmentRunResponse Prelude.Int
deleteReplicationTaskAssessmentRunResponse_httpStatus :: (Int -> f Int)
-> DeleteReplicationTaskAssessmentRunResponse
-> f DeleteReplicationTaskAssessmentRunResponse
deleteReplicationTaskAssessmentRunResponse_httpStatus = (DeleteReplicationTaskAssessmentRunResponse -> Int)
-> (DeleteReplicationTaskAssessmentRunResponse
-> Int -> DeleteReplicationTaskAssessmentRunResponse)
-> Lens
DeleteReplicationTaskAssessmentRunResponse
DeleteReplicationTaskAssessmentRunResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteReplicationTaskAssessmentRunResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteReplicationTaskAssessmentRunResponse' :: DeleteReplicationTaskAssessmentRunResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteReplicationTaskAssessmentRunResponse
s@DeleteReplicationTaskAssessmentRunResponse' {} Int
a -> DeleteReplicationTaskAssessmentRunResponse
s {$sel:httpStatus:DeleteReplicationTaskAssessmentRunResponse' :: Int
httpStatus = Int
a} :: DeleteReplicationTaskAssessmentRunResponse)
instance
Prelude.NFData
DeleteReplicationTaskAssessmentRunResponse