{-# 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.GlobalAccelerator.DeleteCustomRoutingEndpointGroup
(
DeleteCustomRoutingEndpointGroup (..),
newDeleteCustomRoutingEndpointGroup,
deleteCustomRoutingEndpointGroup_endpointGroupArn,
DeleteCustomRoutingEndpointGroupResponse (..),
newDeleteCustomRoutingEndpointGroupResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.GlobalAccelerator.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteCustomRoutingEndpointGroup = DeleteCustomRoutingEndpointGroup'
{
DeleteCustomRoutingEndpointGroup -> Text
endpointGroupArn :: Prelude.Text
}
deriving (DeleteCustomRoutingEndpointGroup
-> DeleteCustomRoutingEndpointGroup -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteCustomRoutingEndpointGroup
-> DeleteCustomRoutingEndpointGroup -> Bool
$c/= :: DeleteCustomRoutingEndpointGroup
-> DeleteCustomRoutingEndpointGroup -> Bool
== :: DeleteCustomRoutingEndpointGroup
-> DeleteCustomRoutingEndpointGroup -> Bool
$c== :: DeleteCustomRoutingEndpointGroup
-> DeleteCustomRoutingEndpointGroup -> Bool
Prelude.Eq, ReadPrec [DeleteCustomRoutingEndpointGroup]
ReadPrec DeleteCustomRoutingEndpointGroup
Int -> ReadS DeleteCustomRoutingEndpointGroup
ReadS [DeleteCustomRoutingEndpointGroup]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteCustomRoutingEndpointGroup]
$creadListPrec :: ReadPrec [DeleteCustomRoutingEndpointGroup]
readPrec :: ReadPrec DeleteCustomRoutingEndpointGroup
$creadPrec :: ReadPrec DeleteCustomRoutingEndpointGroup
readList :: ReadS [DeleteCustomRoutingEndpointGroup]
$creadList :: ReadS [DeleteCustomRoutingEndpointGroup]
readsPrec :: Int -> ReadS DeleteCustomRoutingEndpointGroup
$creadsPrec :: Int -> ReadS DeleteCustomRoutingEndpointGroup
Prelude.Read, Int -> DeleteCustomRoutingEndpointGroup -> ShowS
[DeleteCustomRoutingEndpointGroup] -> ShowS
DeleteCustomRoutingEndpointGroup -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteCustomRoutingEndpointGroup] -> ShowS
$cshowList :: [DeleteCustomRoutingEndpointGroup] -> ShowS
show :: DeleteCustomRoutingEndpointGroup -> String
$cshow :: DeleteCustomRoutingEndpointGroup -> String
showsPrec :: Int -> DeleteCustomRoutingEndpointGroup -> ShowS
$cshowsPrec :: Int -> DeleteCustomRoutingEndpointGroup -> ShowS
Prelude.Show, forall x.
Rep DeleteCustomRoutingEndpointGroup x
-> DeleteCustomRoutingEndpointGroup
forall x.
DeleteCustomRoutingEndpointGroup
-> Rep DeleteCustomRoutingEndpointGroup x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteCustomRoutingEndpointGroup x
-> DeleteCustomRoutingEndpointGroup
$cfrom :: forall x.
DeleteCustomRoutingEndpointGroup
-> Rep DeleteCustomRoutingEndpointGroup x
Prelude.Generic)
newDeleteCustomRoutingEndpointGroup ::
Prelude.Text ->
DeleteCustomRoutingEndpointGroup
newDeleteCustomRoutingEndpointGroup :: Text -> DeleteCustomRoutingEndpointGroup
newDeleteCustomRoutingEndpointGroup
Text
pEndpointGroupArn_ =
DeleteCustomRoutingEndpointGroup'
{ $sel:endpointGroupArn:DeleteCustomRoutingEndpointGroup' :: Text
endpointGroupArn =
Text
pEndpointGroupArn_
}
deleteCustomRoutingEndpointGroup_endpointGroupArn :: Lens.Lens' DeleteCustomRoutingEndpointGroup Prelude.Text
deleteCustomRoutingEndpointGroup_endpointGroupArn :: Lens' DeleteCustomRoutingEndpointGroup Text
deleteCustomRoutingEndpointGroup_endpointGroupArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteCustomRoutingEndpointGroup' {Text
endpointGroupArn :: Text
$sel:endpointGroupArn:DeleteCustomRoutingEndpointGroup' :: DeleteCustomRoutingEndpointGroup -> Text
endpointGroupArn} -> Text
endpointGroupArn) (\s :: DeleteCustomRoutingEndpointGroup
s@DeleteCustomRoutingEndpointGroup' {} Text
a -> DeleteCustomRoutingEndpointGroup
s {$sel:endpointGroupArn:DeleteCustomRoutingEndpointGroup' :: Text
endpointGroupArn = Text
a} :: DeleteCustomRoutingEndpointGroup)
instance
Core.AWSRequest
DeleteCustomRoutingEndpointGroup
where
type
AWSResponse DeleteCustomRoutingEndpointGroup =
DeleteCustomRoutingEndpointGroupResponse
request :: (Service -> Service)
-> DeleteCustomRoutingEndpointGroup
-> Request DeleteCustomRoutingEndpointGroup
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 DeleteCustomRoutingEndpointGroup
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteCustomRoutingEndpointGroup)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteCustomRoutingEndpointGroupResponse
DeleteCustomRoutingEndpointGroupResponse'
instance
Prelude.Hashable
DeleteCustomRoutingEndpointGroup
where
hashWithSalt :: Int -> DeleteCustomRoutingEndpointGroup -> Int
hashWithSalt
Int
_salt
DeleteCustomRoutingEndpointGroup' {Text
endpointGroupArn :: Text
$sel:endpointGroupArn:DeleteCustomRoutingEndpointGroup' :: DeleteCustomRoutingEndpointGroup -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
endpointGroupArn
instance
Prelude.NFData
DeleteCustomRoutingEndpointGroup
where
rnf :: DeleteCustomRoutingEndpointGroup -> ()
rnf DeleteCustomRoutingEndpointGroup' {Text
endpointGroupArn :: Text
$sel:endpointGroupArn:DeleteCustomRoutingEndpointGroup' :: DeleteCustomRoutingEndpointGroup -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
endpointGroupArn
instance
Data.ToHeaders
DeleteCustomRoutingEndpointGroup
where
toHeaders :: DeleteCustomRoutingEndpointGroup -> [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
"GlobalAccelerator_V20180706.DeleteCustomRoutingEndpointGroup" ::
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 DeleteCustomRoutingEndpointGroup where
toJSON :: DeleteCustomRoutingEndpointGroup -> Value
toJSON DeleteCustomRoutingEndpointGroup' {Text
endpointGroupArn :: Text
$sel:endpointGroupArn:DeleteCustomRoutingEndpointGroup' :: DeleteCustomRoutingEndpointGroup -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"EndpointGroupArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
endpointGroupArn)
]
)
instance Data.ToPath DeleteCustomRoutingEndpointGroup where
toPath :: DeleteCustomRoutingEndpointGroup -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DeleteCustomRoutingEndpointGroup
where
toQuery :: DeleteCustomRoutingEndpointGroup -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteCustomRoutingEndpointGroupResponse = DeleteCustomRoutingEndpointGroupResponse'
{
}
deriving (DeleteCustomRoutingEndpointGroupResponse
-> DeleteCustomRoutingEndpointGroupResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteCustomRoutingEndpointGroupResponse
-> DeleteCustomRoutingEndpointGroupResponse -> Bool
$c/= :: DeleteCustomRoutingEndpointGroupResponse
-> DeleteCustomRoutingEndpointGroupResponse -> Bool
== :: DeleteCustomRoutingEndpointGroupResponse
-> DeleteCustomRoutingEndpointGroupResponse -> Bool
$c== :: DeleteCustomRoutingEndpointGroupResponse
-> DeleteCustomRoutingEndpointGroupResponse -> Bool
Prelude.Eq, ReadPrec [DeleteCustomRoutingEndpointGroupResponse]
ReadPrec DeleteCustomRoutingEndpointGroupResponse
Int -> ReadS DeleteCustomRoutingEndpointGroupResponse
ReadS [DeleteCustomRoutingEndpointGroupResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteCustomRoutingEndpointGroupResponse]
$creadListPrec :: ReadPrec [DeleteCustomRoutingEndpointGroupResponse]
readPrec :: ReadPrec DeleteCustomRoutingEndpointGroupResponse
$creadPrec :: ReadPrec DeleteCustomRoutingEndpointGroupResponse
readList :: ReadS [DeleteCustomRoutingEndpointGroupResponse]
$creadList :: ReadS [DeleteCustomRoutingEndpointGroupResponse]
readsPrec :: Int -> ReadS DeleteCustomRoutingEndpointGroupResponse
$creadsPrec :: Int -> ReadS DeleteCustomRoutingEndpointGroupResponse
Prelude.Read, Int -> DeleteCustomRoutingEndpointGroupResponse -> ShowS
[DeleteCustomRoutingEndpointGroupResponse] -> ShowS
DeleteCustomRoutingEndpointGroupResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteCustomRoutingEndpointGroupResponse] -> ShowS
$cshowList :: [DeleteCustomRoutingEndpointGroupResponse] -> ShowS
show :: DeleteCustomRoutingEndpointGroupResponse -> String
$cshow :: DeleteCustomRoutingEndpointGroupResponse -> String
showsPrec :: Int -> DeleteCustomRoutingEndpointGroupResponse -> ShowS
$cshowsPrec :: Int -> DeleteCustomRoutingEndpointGroupResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteCustomRoutingEndpointGroupResponse x
-> DeleteCustomRoutingEndpointGroupResponse
forall x.
DeleteCustomRoutingEndpointGroupResponse
-> Rep DeleteCustomRoutingEndpointGroupResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteCustomRoutingEndpointGroupResponse x
-> DeleteCustomRoutingEndpointGroupResponse
$cfrom :: forall x.
DeleteCustomRoutingEndpointGroupResponse
-> Rep DeleteCustomRoutingEndpointGroupResponse x
Prelude.Generic)
newDeleteCustomRoutingEndpointGroupResponse ::
DeleteCustomRoutingEndpointGroupResponse
newDeleteCustomRoutingEndpointGroupResponse :: DeleteCustomRoutingEndpointGroupResponse
newDeleteCustomRoutingEndpointGroupResponse =
DeleteCustomRoutingEndpointGroupResponse
DeleteCustomRoutingEndpointGroupResponse'
instance
Prelude.NFData
DeleteCustomRoutingEndpointGroupResponse
where
rnf :: DeleteCustomRoutingEndpointGroupResponse -> ()
rnf DeleteCustomRoutingEndpointGroupResponse
_ = ()