{-# 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.ELB.DeleteLoadBalancerPolicy
(
DeleteLoadBalancerPolicy (..),
newDeleteLoadBalancerPolicy,
deleteLoadBalancerPolicy_loadBalancerName,
deleteLoadBalancerPolicy_policyName,
DeleteLoadBalancerPolicyResponse (..),
newDeleteLoadBalancerPolicyResponse,
deleteLoadBalancerPolicyResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ELB.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteLoadBalancerPolicy = DeleteLoadBalancerPolicy'
{
DeleteLoadBalancerPolicy -> Text
loadBalancerName :: Prelude.Text,
DeleteLoadBalancerPolicy -> Text
policyName :: Prelude.Text
}
deriving (DeleteLoadBalancerPolicy -> DeleteLoadBalancerPolicy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteLoadBalancerPolicy -> DeleteLoadBalancerPolicy -> Bool
$c/= :: DeleteLoadBalancerPolicy -> DeleteLoadBalancerPolicy -> Bool
== :: DeleteLoadBalancerPolicy -> DeleteLoadBalancerPolicy -> Bool
$c== :: DeleteLoadBalancerPolicy -> DeleteLoadBalancerPolicy -> Bool
Prelude.Eq, ReadPrec [DeleteLoadBalancerPolicy]
ReadPrec DeleteLoadBalancerPolicy
Int -> ReadS DeleteLoadBalancerPolicy
ReadS [DeleteLoadBalancerPolicy]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteLoadBalancerPolicy]
$creadListPrec :: ReadPrec [DeleteLoadBalancerPolicy]
readPrec :: ReadPrec DeleteLoadBalancerPolicy
$creadPrec :: ReadPrec DeleteLoadBalancerPolicy
readList :: ReadS [DeleteLoadBalancerPolicy]
$creadList :: ReadS [DeleteLoadBalancerPolicy]
readsPrec :: Int -> ReadS DeleteLoadBalancerPolicy
$creadsPrec :: Int -> ReadS DeleteLoadBalancerPolicy
Prelude.Read, Int -> DeleteLoadBalancerPolicy -> ShowS
[DeleteLoadBalancerPolicy] -> ShowS
DeleteLoadBalancerPolicy -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteLoadBalancerPolicy] -> ShowS
$cshowList :: [DeleteLoadBalancerPolicy] -> ShowS
show :: DeleteLoadBalancerPolicy -> String
$cshow :: DeleteLoadBalancerPolicy -> String
showsPrec :: Int -> DeleteLoadBalancerPolicy -> ShowS
$cshowsPrec :: Int -> DeleteLoadBalancerPolicy -> ShowS
Prelude.Show, forall x.
Rep DeleteLoadBalancerPolicy x -> DeleteLoadBalancerPolicy
forall x.
DeleteLoadBalancerPolicy -> Rep DeleteLoadBalancerPolicy x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteLoadBalancerPolicy x -> DeleteLoadBalancerPolicy
$cfrom :: forall x.
DeleteLoadBalancerPolicy -> Rep DeleteLoadBalancerPolicy x
Prelude.Generic)
newDeleteLoadBalancerPolicy ::
Prelude.Text ->
Prelude.Text ->
DeleteLoadBalancerPolicy
newDeleteLoadBalancerPolicy :: Text -> Text -> DeleteLoadBalancerPolicy
newDeleteLoadBalancerPolicy
Text
pLoadBalancerName_
Text
pPolicyName_ =
DeleteLoadBalancerPolicy'
{ $sel:loadBalancerName:DeleteLoadBalancerPolicy' :: Text
loadBalancerName =
Text
pLoadBalancerName_,
$sel:policyName:DeleteLoadBalancerPolicy' :: Text
policyName = Text
pPolicyName_
}
deleteLoadBalancerPolicy_loadBalancerName :: Lens.Lens' DeleteLoadBalancerPolicy Prelude.Text
deleteLoadBalancerPolicy_loadBalancerName :: Lens' DeleteLoadBalancerPolicy Text
deleteLoadBalancerPolicy_loadBalancerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteLoadBalancerPolicy' {Text
loadBalancerName :: Text
$sel:loadBalancerName:DeleteLoadBalancerPolicy' :: DeleteLoadBalancerPolicy -> Text
loadBalancerName} -> Text
loadBalancerName) (\s :: DeleteLoadBalancerPolicy
s@DeleteLoadBalancerPolicy' {} Text
a -> DeleteLoadBalancerPolicy
s {$sel:loadBalancerName:DeleteLoadBalancerPolicy' :: Text
loadBalancerName = Text
a} :: DeleteLoadBalancerPolicy)
deleteLoadBalancerPolicy_policyName :: Lens.Lens' DeleteLoadBalancerPolicy Prelude.Text
deleteLoadBalancerPolicy_policyName :: Lens' DeleteLoadBalancerPolicy Text
deleteLoadBalancerPolicy_policyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteLoadBalancerPolicy' {Text
policyName :: Text
$sel:policyName:DeleteLoadBalancerPolicy' :: DeleteLoadBalancerPolicy -> Text
policyName} -> Text
policyName) (\s :: DeleteLoadBalancerPolicy
s@DeleteLoadBalancerPolicy' {} Text
a -> DeleteLoadBalancerPolicy
s {$sel:policyName:DeleteLoadBalancerPolicy' :: Text
policyName = Text
a} :: DeleteLoadBalancerPolicy)
instance Core.AWSRequest DeleteLoadBalancerPolicy where
type
AWSResponse DeleteLoadBalancerPolicy =
DeleteLoadBalancerPolicyResponse
request :: (Service -> Service)
-> DeleteLoadBalancerPolicy -> Request DeleteLoadBalancerPolicy
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteLoadBalancerPolicy
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteLoadBalancerPolicy)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"DeleteLoadBalancerPolicyResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> DeleteLoadBalancerPolicyResponse
DeleteLoadBalancerPolicyResponse'
forall (f :: * -> *) a b. Functor 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 DeleteLoadBalancerPolicy where
hashWithSalt :: Int -> DeleteLoadBalancerPolicy -> Int
hashWithSalt Int
_salt DeleteLoadBalancerPolicy' {Text
policyName :: Text
loadBalancerName :: Text
$sel:policyName:DeleteLoadBalancerPolicy' :: DeleteLoadBalancerPolicy -> Text
$sel:loadBalancerName:DeleteLoadBalancerPolicy' :: DeleteLoadBalancerPolicy -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
loadBalancerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
policyName
instance Prelude.NFData DeleteLoadBalancerPolicy where
rnf :: DeleteLoadBalancerPolicy -> ()
rnf DeleteLoadBalancerPolicy' {Text
policyName :: Text
loadBalancerName :: Text
$sel:policyName:DeleteLoadBalancerPolicy' :: DeleteLoadBalancerPolicy -> Text
$sel:loadBalancerName:DeleteLoadBalancerPolicy' :: DeleteLoadBalancerPolicy -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
loadBalancerName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
policyName
instance Data.ToHeaders DeleteLoadBalancerPolicy where
toHeaders :: DeleteLoadBalancerPolicy -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteLoadBalancerPolicy where
toPath :: DeleteLoadBalancerPolicy -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteLoadBalancerPolicy where
toQuery :: DeleteLoadBalancerPolicy -> QueryString
toQuery DeleteLoadBalancerPolicy' {Text
policyName :: Text
loadBalancerName :: Text
$sel:policyName:DeleteLoadBalancerPolicy' :: DeleteLoadBalancerPolicy -> Text
$sel:loadBalancerName:DeleteLoadBalancerPolicy' :: DeleteLoadBalancerPolicy -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DeleteLoadBalancerPolicy" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2012-06-01" :: Prelude.ByteString),
ByteString
"LoadBalancerName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
loadBalancerName,
ByteString
"PolicyName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
policyName
]
data DeleteLoadBalancerPolicyResponse = DeleteLoadBalancerPolicyResponse'
{
DeleteLoadBalancerPolicyResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteLoadBalancerPolicyResponse
-> DeleteLoadBalancerPolicyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteLoadBalancerPolicyResponse
-> DeleteLoadBalancerPolicyResponse -> Bool
$c/= :: DeleteLoadBalancerPolicyResponse
-> DeleteLoadBalancerPolicyResponse -> Bool
== :: DeleteLoadBalancerPolicyResponse
-> DeleteLoadBalancerPolicyResponse -> Bool
$c== :: DeleteLoadBalancerPolicyResponse
-> DeleteLoadBalancerPolicyResponse -> Bool
Prelude.Eq, ReadPrec [DeleteLoadBalancerPolicyResponse]
ReadPrec DeleteLoadBalancerPolicyResponse
Int -> ReadS DeleteLoadBalancerPolicyResponse
ReadS [DeleteLoadBalancerPolicyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteLoadBalancerPolicyResponse]
$creadListPrec :: ReadPrec [DeleteLoadBalancerPolicyResponse]
readPrec :: ReadPrec DeleteLoadBalancerPolicyResponse
$creadPrec :: ReadPrec DeleteLoadBalancerPolicyResponse
readList :: ReadS [DeleteLoadBalancerPolicyResponse]
$creadList :: ReadS [DeleteLoadBalancerPolicyResponse]
readsPrec :: Int -> ReadS DeleteLoadBalancerPolicyResponse
$creadsPrec :: Int -> ReadS DeleteLoadBalancerPolicyResponse
Prelude.Read, Int -> DeleteLoadBalancerPolicyResponse -> ShowS
[DeleteLoadBalancerPolicyResponse] -> ShowS
DeleteLoadBalancerPolicyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteLoadBalancerPolicyResponse] -> ShowS
$cshowList :: [DeleteLoadBalancerPolicyResponse] -> ShowS
show :: DeleteLoadBalancerPolicyResponse -> String
$cshow :: DeleteLoadBalancerPolicyResponse -> String
showsPrec :: Int -> DeleteLoadBalancerPolicyResponse -> ShowS
$cshowsPrec :: Int -> DeleteLoadBalancerPolicyResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteLoadBalancerPolicyResponse x
-> DeleteLoadBalancerPolicyResponse
forall x.
DeleteLoadBalancerPolicyResponse
-> Rep DeleteLoadBalancerPolicyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteLoadBalancerPolicyResponse x
-> DeleteLoadBalancerPolicyResponse
$cfrom :: forall x.
DeleteLoadBalancerPolicyResponse
-> Rep DeleteLoadBalancerPolicyResponse x
Prelude.Generic)
newDeleteLoadBalancerPolicyResponse ::
Prelude.Int ->
DeleteLoadBalancerPolicyResponse
newDeleteLoadBalancerPolicyResponse :: Int -> DeleteLoadBalancerPolicyResponse
newDeleteLoadBalancerPolicyResponse Int
pHttpStatus_ =
DeleteLoadBalancerPolicyResponse'
{ $sel:httpStatus:DeleteLoadBalancerPolicyResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteLoadBalancerPolicyResponse_httpStatus :: Lens.Lens' DeleteLoadBalancerPolicyResponse Prelude.Int
deleteLoadBalancerPolicyResponse_httpStatus :: Lens' DeleteLoadBalancerPolicyResponse Int
deleteLoadBalancerPolicyResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteLoadBalancerPolicyResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteLoadBalancerPolicyResponse' :: DeleteLoadBalancerPolicyResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteLoadBalancerPolicyResponse
s@DeleteLoadBalancerPolicyResponse' {} Int
a -> DeleteLoadBalancerPolicyResponse
s {$sel:httpStatus:DeleteLoadBalancerPolicyResponse' :: Int
httpStatus = Int
a} :: DeleteLoadBalancerPolicyResponse)
instance
Prelude.NFData
DeleteLoadBalancerPolicyResponse
where
rnf :: DeleteLoadBalancerPolicyResponse -> ()
rnf DeleteLoadBalancerPolicyResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteLoadBalancerPolicyResponse' :: DeleteLoadBalancerPolicyResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus