{-# 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.DeleteFleetAdvisorCollector
(
DeleteFleetAdvisorCollector (..),
newDeleteFleetAdvisorCollector,
deleteFleetAdvisorCollector_collectorReferencedId,
DeleteFleetAdvisorCollectorResponse (..),
newDeleteFleetAdvisorCollectorResponse,
)
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 DeleteFleetAdvisorCollector = DeleteFleetAdvisorCollector'
{
DeleteFleetAdvisorCollector -> Text
collectorReferencedId :: Prelude.Text
}
deriving (DeleteFleetAdvisorCollector -> DeleteFleetAdvisorCollector -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteFleetAdvisorCollector -> DeleteFleetAdvisorCollector -> Bool
$c/= :: DeleteFleetAdvisorCollector -> DeleteFleetAdvisorCollector -> Bool
== :: DeleteFleetAdvisorCollector -> DeleteFleetAdvisorCollector -> Bool
$c== :: DeleteFleetAdvisorCollector -> DeleteFleetAdvisorCollector -> Bool
Prelude.Eq, ReadPrec [DeleteFleetAdvisorCollector]
ReadPrec DeleteFleetAdvisorCollector
Int -> ReadS DeleteFleetAdvisorCollector
ReadS [DeleteFleetAdvisorCollector]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteFleetAdvisorCollector]
$creadListPrec :: ReadPrec [DeleteFleetAdvisorCollector]
readPrec :: ReadPrec DeleteFleetAdvisorCollector
$creadPrec :: ReadPrec DeleteFleetAdvisorCollector
readList :: ReadS [DeleteFleetAdvisorCollector]
$creadList :: ReadS [DeleteFleetAdvisorCollector]
readsPrec :: Int -> ReadS DeleteFleetAdvisorCollector
$creadsPrec :: Int -> ReadS DeleteFleetAdvisorCollector
Prelude.Read, Int -> DeleteFleetAdvisorCollector -> ShowS
[DeleteFleetAdvisorCollector] -> ShowS
DeleteFleetAdvisorCollector -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteFleetAdvisorCollector] -> ShowS
$cshowList :: [DeleteFleetAdvisorCollector] -> ShowS
show :: DeleteFleetAdvisorCollector -> String
$cshow :: DeleteFleetAdvisorCollector -> String
showsPrec :: Int -> DeleteFleetAdvisorCollector -> ShowS
$cshowsPrec :: Int -> DeleteFleetAdvisorCollector -> ShowS
Prelude.Show, forall x.
Rep DeleteFleetAdvisorCollector x -> DeleteFleetAdvisorCollector
forall x.
DeleteFleetAdvisorCollector -> Rep DeleteFleetAdvisorCollector x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteFleetAdvisorCollector x -> DeleteFleetAdvisorCollector
$cfrom :: forall x.
DeleteFleetAdvisorCollector -> Rep DeleteFleetAdvisorCollector x
Prelude.Generic)
newDeleteFleetAdvisorCollector ::
Prelude.Text ->
DeleteFleetAdvisorCollector
newDeleteFleetAdvisorCollector :: Text -> DeleteFleetAdvisorCollector
newDeleteFleetAdvisorCollector
Text
pCollectorReferencedId_ =
DeleteFleetAdvisorCollector'
{ $sel:collectorReferencedId:DeleteFleetAdvisorCollector' :: Text
collectorReferencedId =
Text
pCollectorReferencedId_
}
deleteFleetAdvisorCollector_collectorReferencedId :: Lens.Lens' DeleteFleetAdvisorCollector Prelude.Text
deleteFleetAdvisorCollector_collectorReferencedId :: Lens' DeleteFleetAdvisorCollector Text
deleteFleetAdvisorCollector_collectorReferencedId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFleetAdvisorCollector' {Text
collectorReferencedId :: Text
$sel:collectorReferencedId:DeleteFleetAdvisorCollector' :: DeleteFleetAdvisorCollector -> Text
collectorReferencedId} -> Text
collectorReferencedId) (\s :: DeleteFleetAdvisorCollector
s@DeleteFleetAdvisorCollector' {} Text
a -> DeleteFleetAdvisorCollector
s {$sel:collectorReferencedId:DeleteFleetAdvisorCollector' :: Text
collectorReferencedId = Text
a} :: DeleteFleetAdvisorCollector)
instance Core.AWSRequest DeleteFleetAdvisorCollector where
type
AWSResponse DeleteFleetAdvisorCollector =
DeleteFleetAdvisorCollectorResponse
request :: (Service -> Service)
-> DeleteFleetAdvisorCollector
-> Request DeleteFleetAdvisorCollector
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 DeleteFleetAdvisorCollector
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteFleetAdvisorCollector)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteFleetAdvisorCollectorResponse
DeleteFleetAdvisorCollectorResponse'
instance Prelude.Hashable DeleteFleetAdvisorCollector where
hashWithSalt :: Int -> DeleteFleetAdvisorCollector -> Int
hashWithSalt Int
_salt DeleteFleetAdvisorCollector' {Text
collectorReferencedId :: Text
$sel:collectorReferencedId:DeleteFleetAdvisorCollector' :: DeleteFleetAdvisorCollector -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
collectorReferencedId
instance Prelude.NFData DeleteFleetAdvisorCollector where
rnf :: DeleteFleetAdvisorCollector -> ()
rnf DeleteFleetAdvisorCollector' {Text
collectorReferencedId :: Text
$sel:collectorReferencedId:DeleteFleetAdvisorCollector' :: DeleteFleetAdvisorCollector -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
collectorReferencedId
instance Data.ToHeaders DeleteFleetAdvisorCollector where
toHeaders :: DeleteFleetAdvisorCollector -> [Header]
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 -> [Header]
Data.=# ( ByteString
"AmazonDMSv20160101.DeleteFleetAdvisorCollector" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteFleetAdvisorCollector where
toJSON :: DeleteFleetAdvisorCollector -> Value
toJSON DeleteFleetAdvisorCollector' {Text
collectorReferencedId :: Text
$sel:collectorReferencedId:DeleteFleetAdvisorCollector' :: DeleteFleetAdvisorCollector -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"CollectorReferencedId"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
collectorReferencedId
)
]
)
instance Data.ToPath DeleteFleetAdvisorCollector where
toPath :: DeleteFleetAdvisorCollector -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteFleetAdvisorCollector where
toQuery :: DeleteFleetAdvisorCollector -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteFleetAdvisorCollectorResponse = DeleteFleetAdvisorCollectorResponse'
{
}
deriving (DeleteFleetAdvisorCollectorResponse
-> DeleteFleetAdvisorCollectorResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteFleetAdvisorCollectorResponse
-> DeleteFleetAdvisorCollectorResponse -> Bool
$c/= :: DeleteFleetAdvisorCollectorResponse
-> DeleteFleetAdvisorCollectorResponse -> Bool
== :: DeleteFleetAdvisorCollectorResponse
-> DeleteFleetAdvisorCollectorResponse -> Bool
$c== :: DeleteFleetAdvisorCollectorResponse
-> DeleteFleetAdvisorCollectorResponse -> Bool
Prelude.Eq, ReadPrec [DeleteFleetAdvisorCollectorResponse]
ReadPrec DeleteFleetAdvisorCollectorResponse
Int -> ReadS DeleteFleetAdvisorCollectorResponse
ReadS [DeleteFleetAdvisorCollectorResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteFleetAdvisorCollectorResponse]
$creadListPrec :: ReadPrec [DeleteFleetAdvisorCollectorResponse]
readPrec :: ReadPrec DeleteFleetAdvisorCollectorResponse
$creadPrec :: ReadPrec DeleteFleetAdvisorCollectorResponse
readList :: ReadS [DeleteFleetAdvisorCollectorResponse]
$creadList :: ReadS [DeleteFleetAdvisorCollectorResponse]
readsPrec :: Int -> ReadS DeleteFleetAdvisorCollectorResponse
$creadsPrec :: Int -> ReadS DeleteFleetAdvisorCollectorResponse
Prelude.Read, Int -> DeleteFleetAdvisorCollectorResponse -> ShowS
[DeleteFleetAdvisorCollectorResponse] -> ShowS
DeleteFleetAdvisorCollectorResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteFleetAdvisorCollectorResponse] -> ShowS
$cshowList :: [DeleteFleetAdvisorCollectorResponse] -> ShowS
show :: DeleteFleetAdvisorCollectorResponse -> String
$cshow :: DeleteFleetAdvisorCollectorResponse -> String
showsPrec :: Int -> DeleteFleetAdvisorCollectorResponse -> ShowS
$cshowsPrec :: Int -> DeleteFleetAdvisorCollectorResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteFleetAdvisorCollectorResponse x
-> DeleteFleetAdvisorCollectorResponse
forall x.
DeleteFleetAdvisorCollectorResponse
-> Rep DeleteFleetAdvisorCollectorResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteFleetAdvisorCollectorResponse x
-> DeleteFleetAdvisorCollectorResponse
$cfrom :: forall x.
DeleteFleetAdvisorCollectorResponse
-> Rep DeleteFleetAdvisorCollectorResponse x
Prelude.Generic)
newDeleteFleetAdvisorCollectorResponse ::
DeleteFleetAdvisorCollectorResponse
newDeleteFleetAdvisorCollectorResponse :: DeleteFleetAdvisorCollectorResponse
newDeleteFleetAdvisorCollectorResponse =
DeleteFleetAdvisorCollectorResponse
DeleteFleetAdvisorCollectorResponse'
instance
Prelude.NFData
DeleteFleetAdvisorCollectorResponse
where
rnf :: DeleteFleetAdvisorCollectorResponse -> ()
rnf DeleteFleetAdvisorCollectorResponse
_ = ()