{-# 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.Schemas.DeleteDiscoverer
(
DeleteDiscoverer (..),
newDeleteDiscoverer,
deleteDiscoverer_discovererId,
DeleteDiscovererResponse (..),
newDeleteDiscovererResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Schemas.Types
data DeleteDiscoverer = DeleteDiscoverer'
{
DeleteDiscoverer -> Text
discovererId :: Prelude.Text
}
deriving (DeleteDiscoverer -> DeleteDiscoverer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDiscoverer -> DeleteDiscoverer -> Bool
$c/= :: DeleteDiscoverer -> DeleteDiscoverer -> Bool
== :: DeleteDiscoverer -> DeleteDiscoverer -> Bool
$c== :: DeleteDiscoverer -> DeleteDiscoverer -> Bool
Prelude.Eq, ReadPrec [DeleteDiscoverer]
ReadPrec DeleteDiscoverer
Int -> ReadS DeleteDiscoverer
ReadS [DeleteDiscoverer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDiscoverer]
$creadListPrec :: ReadPrec [DeleteDiscoverer]
readPrec :: ReadPrec DeleteDiscoverer
$creadPrec :: ReadPrec DeleteDiscoverer
readList :: ReadS [DeleteDiscoverer]
$creadList :: ReadS [DeleteDiscoverer]
readsPrec :: Int -> ReadS DeleteDiscoverer
$creadsPrec :: Int -> ReadS DeleteDiscoverer
Prelude.Read, Int -> DeleteDiscoverer -> ShowS
[DeleteDiscoverer] -> ShowS
DeleteDiscoverer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDiscoverer] -> ShowS
$cshowList :: [DeleteDiscoverer] -> ShowS
show :: DeleteDiscoverer -> String
$cshow :: DeleteDiscoverer -> String
showsPrec :: Int -> DeleteDiscoverer -> ShowS
$cshowsPrec :: Int -> DeleteDiscoverer -> ShowS
Prelude.Show, forall x. Rep DeleteDiscoverer x -> DeleteDiscoverer
forall x. DeleteDiscoverer -> Rep DeleteDiscoverer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteDiscoverer x -> DeleteDiscoverer
$cfrom :: forall x. DeleteDiscoverer -> Rep DeleteDiscoverer x
Prelude.Generic)
newDeleteDiscoverer ::
Prelude.Text ->
DeleteDiscoverer
newDeleteDiscoverer :: Text -> DeleteDiscoverer
newDeleteDiscoverer Text
pDiscovererId_ =
DeleteDiscoverer' {$sel:discovererId:DeleteDiscoverer' :: Text
discovererId = Text
pDiscovererId_}
deleteDiscoverer_discovererId :: Lens.Lens' DeleteDiscoverer Prelude.Text
deleteDiscoverer_discovererId :: Lens' DeleteDiscoverer Text
deleteDiscoverer_discovererId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDiscoverer' {Text
discovererId :: Text
$sel:discovererId:DeleteDiscoverer' :: DeleteDiscoverer -> Text
discovererId} -> Text
discovererId) (\s :: DeleteDiscoverer
s@DeleteDiscoverer' {} Text
a -> DeleteDiscoverer
s {$sel:discovererId:DeleteDiscoverer' :: Text
discovererId = Text
a} :: DeleteDiscoverer)
instance Core.AWSRequest DeleteDiscoverer where
type
AWSResponse DeleteDiscoverer =
DeleteDiscovererResponse
request :: (Service -> Service)
-> DeleteDiscoverer -> Request DeleteDiscoverer
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteDiscoverer
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteDiscoverer)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteDiscovererResponse
DeleteDiscovererResponse'
instance Prelude.Hashable DeleteDiscoverer where
hashWithSalt :: Int -> DeleteDiscoverer -> Int
hashWithSalt Int
_salt DeleteDiscoverer' {Text
discovererId :: Text
$sel:discovererId:DeleteDiscoverer' :: DeleteDiscoverer -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
discovererId
instance Prelude.NFData DeleteDiscoverer where
rnf :: DeleteDiscoverer -> ()
rnf DeleteDiscoverer' {Text
discovererId :: Text
$sel:discovererId:DeleteDiscoverer' :: DeleteDiscoverer -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
discovererId
instance Data.ToHeaders DeleteDiscoverer where
toHeaders :: DeleteDiscoverer -> [Header]
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DeleteDiscoverer where
toPath :: DeleteDiscoverer -> ByteString
toPath DeleteDiscoverer' {Text
discovererId :: Text
$sel:discovererId:DeleteDiscoverer' :: DeleteDiscoverer -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/v1/discoverers/id/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
discovererId]
instance Data.ToQuery DeleteDiscoverer where
toQuery :: DeleteDiscoverer -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteDiscovererResponse = DeleteDiscovererResponse'
{
}
deriving (DeleteDiscovererResponse -> DeleteDiscovererResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDiscovererResponse -> DeleteDiscovererResponse -> Bool
$c/= :: DeleteDiscovererResponse -> DeleteDiscovererResponse -> Bool
== :: DeleteDiscovererResponse -> DeleteDiscovererResponse -> Bool
$c== :: DeleteDiscovererResponse -> DeleteDiscovererResponse -> Bool
Prelude.Eq, ReadPrec [DeleteDiscovererResponse]
ReadPrec DeleteDiscovererResponse
Int -> ReadS DeleteDiscovererResponse
ReadS [DeleteDiscovererResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDiscovererResponse]
$creadListPrec :: ReadPrec [DeleteDiscovererResponse]
readPrec :: ReadPrec DeleteDiscovererResponse
$creadPrec :: ReadPrec DeleteDiscovererResponse
readList :: ReadS [DeleteDiscovererResponse]
$creadList :: ReadS [DeleteDiscovererResponse]
readsPrec :: Int -> ReadS DeleteDiscovererResponse
$creadsPrec :: Int -> ReadS DeleteDiscovererResponse
Prelude.Read, Int -> DeleteDiscovererResponse -> ShowS
[DeleteDiscovererResponse] -> ShowS
DeleteDiscovererResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDiscovererResponse] -> ShowS
$cshowList :: [DeleteDiscovererResponse] -> ShowS
show :: DeleteDiscovererResponse -> String
$cshow :: DeleteDiscovererResponse -> String
showsPrec :: Int -> DeleteDiscovererResponse -> ShowS
$cshowsPrec :: Int -> DeleteDiscovererResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteDiscovererResponse x -> DeleteDiscovererResponse
forall x.
DeleteDiscovererResponse -> Rep DeleteDiscovererResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteDiscovererResponse x -> DeleteDiscovererResponse
$cfrom :: forall x.
DeleteDiscovererResponse -> Rep DeleteDiscovererResponse x
Prelude.Generic)
newDeleteDiscovererResponse ::
DeleteDiscovererResponse
newDeleteDiscovererResponse :: DeleteDiscovererResponse
newDeleteDiscovererResponse =
DeleteDiscovererResponse
DeleteDiscovererResponse'
instance Prelude.NFData DeleteDiscovererResponse where
rnf :: DeleteDiscovererResponse -> ()
rnf DeleteDiscovererResponse
_ = ()