{-# 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.Route53Resolver.DeleteResolverEndpoint
(
DeleteResolverEndpoint (..),
newDeleteResolverEndpoint,
deleteResolverEndpoint_resolverEndpointId,
DeleteResolverEndpointResponse (..),
newDeleteResolverEndpointResponse,
deleteResolverEndpointResponse_resolverEndpoint,
deleteResolverEndpointResponse_httpStatus,
)
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.Route53Resolver.Types
data DeleteResolverEndpoint = DeleteResolverEndpoint'
{
DeleteResolverEndpoint -> Text
resolverEndpointId :: Prelude.Text
}
deriving (DeleteResolverEndpoint -> DeleteResolverEndpoint -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteResolverEndpoint -> DeleteResolverEndpoint -> Bool
$c/= :: DeleteResolverEndpoint -> DeleteResolverEndpoint -> Bool
== :: DeleteResolverEndpoint -> DeleteResolverEndpoint -> Bool
$c== :: DeleteResolverEndpoint -> DeleteResolverEndpoint -> Bool
Prelude.Eq, ReadPrec [DeleteResolverEndpoint]
ReadPrec DeleteResolverEndpoint
Int -> ReadS DeleteResolverEndpoint
ReadS [DeleteResolverEndpoint]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteResolverEndpoint]
$creadListPrec :: ReadPrec [DeleteResolverEndpoint]
readPrec :: ReadPrec DeleteResolverEndpoint
$creadPrec :: ReadPrec DeleteResolverEndpoint
readList :: ReadS [DeleteResolverEndpoint]
$creadList :: ReadS [DeleteResolverEndpoint]
readsPrec :: Int -> ReadS DeleteResolverEndpoint
$creadsPrec :: Int -> ReadS DeleteResolverEndpoint
Prelude.Read, Int -> DeleteResolverEndpoint -> ShowS
[DeleteResolverEndpoint] -> ShowS
DeleteResolverEndpoint -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteResolverEndpoint] -> ShowS
$cshowList :: [DeleteResolverEndpoint] -> ShowS
show :: DeleteResolverEndpoint -> String
$cshow :: DeleteResolverEndpoint -> String
showsPrec :: Int -> DeleteResolverEndpoint -> ShowS
$cshowsPrec :: Int -> DeleteResolverEndpoint -> ShowS
Prelude.Show, forall x. Rep DeleteResolverEndpoint x -> DeleteResolverEndpoint
forall x. DeleteResolverEndpoint -> Rep DeleteResolverEndpoint x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteResolverEndpoint x -> DeleteResolverEndpoint
$cfrom :: forall x. DeleteResolverEndpoint -> Rep DeleteResolverEndpoint x
Prelude.Generic)
newDeleteResolverEndpoint ::
Prelude.Text ->
DeleteResolverEndpoint
newDeleteResolverEndpoint :: Text -> DeleteResolverEndpoint
newDeleteResolverEndpoint Text
pResolverEndpointId_ =
DeleteResolverEndpoint'
{ $sel:resolverEndpointId:DeleteResolverEndpoint' :: Text
resolverEndpointId =
Text
pResolverEndpointId_
}
deleteResolverEndpoint_resolverEndpointId :: Lens.Lens' DeleteResolverEndpoint Prelude.Text
deleteResolverEndpoint_resolverEndpointId :: Lens' DeleteResolverEndpoint Text
deleteResolverEndpoint_resolverEndpointId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteResolverEndpoint' {Text
resolverEndpointId :: Text
$sel:resolverEndpointId:DeleteResolverEndpoint' :: DeleteResolverEndpoint -> Text
resolverEndpointId} -> Text
resolverEndpointId) (\s :: DeleteResolverEndpoint
s@DeleteResolverEndpoint' {} Text
a -> DeleteResolverEndpoint
s {$sel:resolverEndpointId:DeleteResolverEndpoint' :: Text
resolverEndpointId = Text
a} :: DeleteResolverEndpoint)
instance Core.AWSRequest DeleteResolverEndpoint where
type
AWSResponse DeleteResolverEndpoint =
DeleteResolverEndpointResponse
request :: (Service -> Service)
-> DeleteResolverEndpoint -> Request DeleteResolverEndpoint
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 DeleteResolverEndpoint
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteResolverEndpoint)))
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 ResolverEndpoint -> Int -> DeleteResolverEndpointResponse
DeleteResolverEndpointResponse'
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
"ResolverEndpoint")
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 DeleteResolverEndpoint where
hashWithSalt :: Int -> DeleteResolverEndpoint -> Int
hashWithSalt Int
_salt DeleteResolverEndpoint' {Text
resolverEndpointId :: Text
$sel:resolverEndpointId:DeleteResolverEndpoint' :: DeleteResolverEndpoint -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resolverEndpointId
instance Prelude.NFData DeleteResolverEndpoint where
rnf :: DeleteResolverEndpoint -> ()
rnf DeleteResolverEndpoint' {Text
resolverEndpointId :: Text
$sel:resolverEndpointId:DeleteResolverEndpoint' :: DeleteResolverEndpoint -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
resolverEndpointId
instance Data.ToHeaders DeleteResolverEndpoint where
toHeaders :: DeleteResolverEndpoint -> 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
"Route53Resolver.DeleteResolverEndpoint" ::
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 DeleteResolverEndpoint where
toJSON :: DeleteResolverEndpoint -> Value
toJSON DeleteResolverEndpoint' {Text
resolverEndpointId :: Text
$sel:resolverEndpointId:DeleteResolverEndpoint' :: DeleteResolverEndpoint -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"ResolverEndpointId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resolverEndpointId)
]
)
instance Data.ToPath DeleteResolverEndpoint where
toPath :: DeleteResolverEndpoint -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteResolverEndpoint where
toQuery :: DeleteResolverEndpoint -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteResolverEndpointResponse = DeleteResolverEndpointResponse'
{
DeleteResolverEndpointResponse -> Maybe ResolverEndpoint
resolverEndpoint :: Prelude.Maybe ResolverEndpoint,
DeleteResolverEndpointResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteResolverEndpointResponse
-> DeleteResolverEndpointResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteResolverEndpointResponse
-> DeleteResolverEndpointResponse -> Bool
$c/= :: DeleteResolverEndpointResponse
-> DeleteResolverEndpointResponse -> Bool
== :: DeleteResolverEndpointResponse
-> DeleteResolverEndpointResponse -> Bool
$c== :: DeleteResolverEndpointResponse
-> DeleteResolverEndpointResponse -> Bool
Prelude.Eq, ReadPrec [DeleteResolverEndpointResponse]
ReadPrec DeleteResolverEndpointResponse
Int -> ReadS DeleteResolverEndpointResponse
ReadS [DeleteResolverEndpointResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteResolverEndpointResponse]
$creadListPrec :: ReadPrec [DeleteResolverEndpointResponse]
readPrec :: ReadPrec DeleteResolverEndpointResponse
$creadPrec :: ReadPrec DeleteResolverEndpointResponse
readList :: ReadS [DeleteResolverEndpointResponse]
$creadList :: ReadS [DeleteResolverEndpointResponse]
readsPrec :: Int -> ReadS DeleteResolverEndpointResponse
$creadsPrec :: Int -> ReadS DeleteResolverEndpointResponse
Prelude.Read, Int -> DeleteResolverEndpointResponse -> ShowS
[DeleteResolverEndpointResponse] -> ShowS
DeleteResolverEndpointResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteResolverEndpointResponse] -> ShowS
$cshowList :: [DeleteResolverEndpointResponse] -> ShowS
show :: DeleteResolverEndpointResponse -> String
$cshow :: DeleteResolverEndpointResponse -> String
showsPrec :: Int -> DeleteResolverEndpointResponse -> ShowS
$cshowsPrec :: Int -> DeleteResolverEndpointResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteResolverEndpointResponse x
-> DeleteResolverEndpointResponse
forall x.
DeleteResolverEndpointResponse
-> Rep DeleteResolverEndpointResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteResolverEndpointResponse x
-> DeleteResolverEndpointResponse
$cfrom :: forall x.
DeleteResolverEndpointResponse
-> Rep DeleteResolverEndpointResponse x
Prelude.Generic)
newDeleteResolverEndpointResponse ::
Prelude.Int ->
DeleteResolverEndpointResponse
newDeleteResolverEndpointResponse :: Int -> DeleteResolverEndpointResponse
newDeleteResolverEndpointResponse Int
pHttpStatus_ =
DeleteResolverEndpointResponse'
{ $sel:resolverEndpoint:DeleteResolverEndpointResponse' :: Maybe ResolverEndpoint
resolverEndpoint =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteResolverEndpointResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteResolverEndpointResponse_resolverEndpoint :: Lens.Lens' DeleteResolverEndpointResponse (Prelude.Maybe ResolverEndpoint)
deleteResolverEndpointResponse_resolverEndpoint :: Lens' DeleteResolverEndpointResponse (Maybe ResolverEndpoint)
deleteResolverEndpointResponse_resolverEndpoint = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteResolverEndpointResponse' {Maybe ResolverEndpoint
resolverEndpoint :: Maybe ResolverEndpoint
$sel:resolverEndpoint:DeleteResolverEndpointResponse' :: DeleteResolverEndpointResponse -> Maybe ResolverEndpoint
resolverEndpoint} -> Maybe ResolverEndpoint
resolverEndpoint) (\s :: DeleteResolverEndpointResponse
s@DeleteResolverEndpointResponse' {} Maybe ResolverEndpoint
a -> DeleteResolverEndpointResponse
s {$sel:resolverEndpoint:DeleteResolverEndpointResponse' :: Maybe ResolverEndpoint
resolverEndpoint = Maybe ResolverEndpoint
a} :: DeleteResolverEndpointResponse)
deleteResolverEndpointResponse_httpStatus :: Lens.Lens' DeleteResolverEndpointResponse Prelude.Int
deleteResolverEndpointResponse_httpStatus :: Lens' DeleteResolverEndpointResponse Int
deleteResolverEndpointResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteResolverEndpointResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteResolverEndpointResponse' :: DeleteResolverEndpointResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteResolverEndpointResponse
s@DeleteResolverEndpointResponse' {} Int
a -> DeleteResolverEndpointResponse
s {$sel:httpStatus:DeleteResolverEndpointResponse' :: Int
httpStatus = Int
a} :: DeleteResolverEndpointResponse)
instance
Prelude.NFData
DeleteResolverEndpointResponse
where
rnf :: DeleteResolverEndpointResponse -> ()
rnf DeleteResolverEndpointResponse' {Int
Maybe ResolverEndpoint
httpStatus :: Int
resolverEndpoint :: Maybe ResolverEndpoint
$sel:httpStatus:DeleteResolverEndpointResponse' :: DeleteResolverEndpointResponse -> Int
$sel:resolverEndpoint:DeleteResolverEndpointResponse' :: DeleteResolverEndpointResponse -> Maybe ResolverEndpoint
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ResolverEndpoint
resolverEndpoint
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus