{-# 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.DescribeLoadBalancerPolicies
(
DescribeLoadBalancerPolicies (..),
newDescribeLoadBalancerPolicies,
describeLoadBalancerPolicies_loadBalancerName,
describeLoadBalancerPolicies_policyNames,
DescribeLoadBalancerPoliciesResponse (..),
newDescribeLoadBalancerPoliciesResponse,
describeLoadBalancerPoliciesResponse_policyDescriptions,
describeLoadBalancerPoliciesResponse_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 DescribeLoadBalancerPolicies = DescribeLoadBalancerPolicies'
{
DescribeLoadBalancerPolicies -> Maybe Text
loadBalancerName :: Prelude.Maybe Prelude.Text,
DescribeLoadBalancerPolicies -> Maybe [Text]
policyNames :: Prelude.Maybe [Prelude.Text]
}
deriving (DescribeLoadBalancerPolicies
-> DescribeLoadBalancerPolicies -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeLoadBalancerPolicies
-> DescribeLoadBalancerPolicies -> Bool
$c/= :: DescribeLoadBalancerPolicies
-> DescribeLoadBalancerPolicies -> Bool
== :: DescribeLoadBalancerPolicies
-> DescribeLoadBalancerPolicies -> Bool
$c== :: DescribeLoadBalancerPolicies
-> DescribeLoadBalancerPolicies -> Bool
Prelude.Eq, ReadPrec [DescribeLoadBalancerPolicies]
ReadPrec DescribeLoadBalancerPolicies
Int -> ReadS DescribeLoadBalancerPolicies
ReadS [DescribeLoadBalancerPolicies]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeLoadBalancerPolicies]
$creadListPrec :: ReadPrec [DescribeLoadBalancerPolicies]
readPrec :: ReadPrec DescribeLoadBalancerPolicies
$creadPrec :: ReadPrec DescribeLoadBalancerPolicies
readList :: ReadS [DescribeLoadBalancerPolicies]
$creadList :: ReadS [DescribeLoadBalancerPolicies]
readsPrec :: Int -> ReadS DescribeLoadBalancerPolicies
$creadsPrec :: Int -> ReadS DescribeLoadBalancerPolicies
Prelude.Read, Int -> DescribeLoadBalancerPolicies -> ShowS
[DescribeLoadBalancerPolicies] -> ShowS
DescribeLoadBalancerPolicies -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeLoadBalancerPolicies] -> ShowS
$cshowList :: [DescribeLoadBalancerPolicies] -> ShowS
show :: DescribeLoadBalancerPolicies -> String
$cshow :: DescribeLoadBalancerPolicies -> String
showsPrec :: Int -> DescribeLoadBalancerPolicies -> ShowS
$cshowsPrec :: Int -> DescribeLoadBalancerPolicies -> ShowS
Prelude.Show, forall x.
Rep DescribeLoadBalancerPolicies x -> DescribeLoadBalancerPolicies
forall x.
DescribeLoadBalancerPolicies -> Rep DescribeLoadBalancerPolicies x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeLoadBalancerPolicies x -> DescribeLoadBalancerPolicies
$cfrom :: forall x.
DescribeLoadBalancerPolicies -> Rep DescribeLoadBalancerPolicies x
Prelude.Generic)
newDescribeLoadBalancerPolicies ::
DescribeLoadBalancerPolicies
newDescribeLoadBalancerPolicies :: DescribeLoadBalancerPolicies
newDescribeLoadBalancerPolicies =
DescribeLoadBalancerPolicies'
{ $sel:loadBalancerName:DescribeLoadBalancerPolicies' :: Maybe Text
loadBalancerName =
forall a. Maybe a
Prelude.Nothing,
$sel:policyNames:DescribeLoadBalancerPolicies' :: Maybe [Text]
policyNames = forall a. Maybe a
Prelude.Nothing
}
describeLoadBalancerPolicies_loadBalancerName :: Lens.Lens' DescribeLoadBalancerPolicies (Prelude.Maybe Prelude.Text)
describeLoadBalancerPolicies_loadBalancerName :: Lens' DescribeLoadBalancerPolicies (Maybe Text)
describeLoadBalancerPolicies_loadBalancerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLoadBalancerPolicies' {Maybe Text
loadBalancerName :: Maybe Text
$sel:loadBalancerName:DescribeLoadBalancerPolicies' :: DescribeLoadBalancerPolicies -> Maybe Text
loadBalancerName} -> Maybe Text
loadBalancerName) (\s :: DescribeLoadBalancerPolicies
s@DescribeLoadBalancerPolicies' {} Maybe Text
a -> DescribeLoadBalancerPolicies
s {$sel:loadBalancerName:DescribeLoadBalancerPolicies' :: Maybe Text
loadBalancerName = Maybe Text
a} :: DescribeLoadBalancerPolicies)
describeLoadBalancerPolicies_policyNames :: Lens.Lens' DescribeLoadBalancerPolicies (Prelude.Maybe [Prelude.Text])
describeLoadBalancerPolicies_policyNames :: Lens' DescribeLoadBalancerPolicies (Maybe [Text])
describeLoadBalancerPolicies_policyNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLoadBalancerPolicies' {Maybe [Text]
policyNames :: Maybe [Text]
$sel:policyNames:DescribeLoadBalancerPolicies' :: DescribeLoadBalancerPolicies -> Maybe [Text]
policyNames} -> Maybe [Text]
policyNames) (\s :: DescribeLoadBalancerPolicies
s@DescribeLoadBalancerPolicies' {} Maybe [Text]
a -> DescribeLoadBalancerPolicies
s {$sel:policyNames:DescribeLoadBalancerPolicies' :: Maybe [Text]
policyNames = Maybe [Text]
a} :: DescribeLoadBalancerPolicies) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest DescribeLoadBalancerPolicies where
type
AWSResponse DescribeLoadBalancerPolicies =
DescribeLoadBalancerPoliciesResponse
request :: (Service -> Service)
-> DescribeLoadBalancerPolicies
-> Request DescribeLoadBalancerPolicies
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 DescribeLoadBalancerPolicies
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeLoadBalancerPolicies)))
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
"DescribeLoadBalancerPoliciesResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [PolicyDescription]
-> Int -> DescribeLoadBalancerPoliciesResponse
DescribeLoadBalancerPoliciesResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"PolicyDescriptions"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member")
)
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
DescribeLoadBalancerPolicies
where
hashWithSalt :: Int -> DescribeLoadBalancerPolicies -> Int
hashWithSalt Int
_salt DescribeLoadBalancerPolicies' {Maybe [Text]
Maybe Text
policyNames :: Maybe [Text]
loadBalancerName :: Maybe Text
$sel:policyNames:DescribeLoadBalancerPolicies' :: DescribeLoadBalancerPolicies -> Maybe [Text]
$sel:loadBalancerName:DescribeLoadBalancerPolicies' :: DescribeLoadBalancerPolicies -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
loadBalancerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
policyNames
instance Prelude.NFData DescribeLoadBalancerPolicies where
rnf :: DescribeLoadBalancerPolicies -> ()
rnf DescribeLoadBalancerPolicies' {Maybe [Text]
Maybe Text
policyNames :: Maybe [Text]
loadBalancerName :: Maybe Text
$sel:policyNames:DescribeLoadBalancerPolicies' :: DescribeLoadBalancerPolicies -> Maybe [Text]
$sel:loadBalancerName:DescribeLoadBalancerPolicies' :: DescribeLoadBalancerPolicies -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
loadBalancerName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
policyNames
instance Data.ToHeaders DescribeLoadBalancerPolicies where
toHeaders :: DescribeLoadBalancerPolicies -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeLoadBalancerPolicies where
toPath :: DescribeLoadBalancerPolicies -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeLoadBalancerPolicies where
toQuery :: DescribeLoadBalancerPolicies -> QueryString
toQuery DescribeLoadBalancerPolicies' {Maybe [Text]
Maybe Text
policyNames :: Maybe [Text]
loadBalancerName :: Maybe Text
$sel:policyNames:DescribeLoadBalancerPolicies' :: DescribeLoadBalancerPolicies -> Maybe [Text]
$sel:loadBalancerName:DescribeLoadBalancerPolicies' :: DescribeLoadBalancerPolicies -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribeLoadBalancerPolicies" ::
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.=: Maybe Text
loadBalancerName,
ByteString
"PolicyNames"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
policyNames)
]
data DescribeLoadBalancerPoliciesResponse = DescribeLoadBalancerPoliciesResponse'
{
DescribeLoadBalancerPoliciesResponse -> Maybe [PolicyDescription]
policyDescriptions :: Prelude.Maybe [PolicyDescription],
DescribeLoadBalancerPoliciesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeLoadBalancerPoliciesResponse
-> DescribeLoadBalancerPoliciesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeLoadBalancerPoliciesResponse
-> DescribeLoadBalancerPoliciesResponse -> Bool
$c/= :: DescribeLoadBalancerPoliciesResponse
-> DescribeLoadBalancerPoliciesResponse -> Bool
== :: DescribeLoadBalancerPoliciesResponse
-> DescribeLoadBalancerPoliciesResponse -> Bool
$c== :: DescribeLoadBalancerPoliciesResponse
-> DescribeLoadBalancerPoliciesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeLoadBalancerPoliciesResponse]
ReadPrec DescribeLoadBalancerPoliciesResponse
Int -> ReadS DescribeLoadBalancerPoliciesResponse
ReadS [DescribeLoadBalancerPoliciesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeLoadBalancerPoliciesResponse]
$creadListPrec :: ReadPrec [DescribeLoadBalancerPoliciesResponse]
readPrec :: ReadPrec DescribeLoadBalancerPoliciesResponse
$creadPrec :: ReadPrec DescribeLoadBalancerPoliciesResponse
readList :: ReadS [DescribeLoadBalancerPoliciesResponse]
$creadList :: ReadS [DescribeLoadBalancerPoliciesResponse]
readsPrec :: Int -> ReadS DescribeLoadBalancerPoliciesResponse
$creadsPrec :: Int -> ReadS DescribeLoadBalancerPoliciesResponse
Prelude.Read, Int -> DescribeLoadBalancerPoliciesResponse -> ShowS
[DescribeLoadBalancerPoliciesResponse] -> ShowS
DescribeLoadBalancerPoliciesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeLoadBalancerPoliciesResponse] -> ShowS
$cshowList :: [DescribeLoadBalancerPoliciesResponse] -> ShowS
show :: DescribeLoadBalancerPoliciesResponse -> String
$cshow :: DescribeLoadBalancerPoliciesResponse -> String
showsPrec :: Int -> DescribeLoadBalancerPoliciesResponse -> ShowS
$cshowsPrec :: Int -> DescribeLoadBalancerPoliciesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeLoadBalancerPoliciesResponse x
-> DescribeLoadBalancerPoliciesResponse
forall x.
DescribeLoadBalancerPoliciesResponse
-> Rep DescribeLoadBalancerPoliciesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeLoadBalancerPoliciesResponse x
-> DescribeLoadBalancerPoliciesResponse
$cfrom :: forall x.
DescribeLoadBalancerPoliciesResponse
-> Rep DescribeLoadBalancerPoliciesResponse x
Prelude.Generic)
newDescribeLoadBalancerPoliciesResponse ::
Prelude.Int ->
DescribeLoadBalancerPoliciesResponse
newDescribeLoadBalancerPoliciesResponse :: Int -> DescribeLoadBalancerPoliciesResponse
newDescribeLoadBalancerPoliciesResponse Int
pHttpStatus_ =
DescribeLoadBalancerPoliciesResponse'
{ $sel:policyDescriptions:DescribeLoadBalancerPoliciesResponse' :: Maybe [PolicyDescription]
policyDescriptions =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeLoadBalancerPoliciesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeLoadBalancerPoliciesResponse_policyDescriptions :: Lens.Lens' DescribeLoadBalancerPoliciesResponse (Prelude.Maybe [PolicyDescription])
describeLoadBalancerPoliciesResponse_policyDescriptions :: Lens'
DescribeLoadBalancerPoliciesResponse (Maybe [PolicyDescription])
describeLoadBalancerPoliciesResponse_policyDescriptions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLoadBalancerPoliciesResponse' {Maybe [PolicyDescription]
policyDescriptions :: Maybe [PolicyDescription]
$sel:policyDescriptions:DescribeLoadBalancerPoliciesResponse' :: DescribeLoadBalancerPoliciesResponse -> Maybe [PolicyDescription]
policyDescriptions} -> Maybe [PolicyDescription]
policyDescriptions) (\s :: DescribeLoadBalancerPoliciesResponse
s@DescribeLoadBalancerPoliciesResponse' {} Maybe [PolicyDescription]
a -> DescribeLoadBalancerPoliciesResponse
s {$sel:policyDescriptions:DescribeLoadBalancerPoliciesResponse' :: Maybe [PolicyDescription]
policyDescriptions = Maybe [PolicyDescription]
a} :: DescribeLoadBalancerPoliciesResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
describeLoadBalancerPoliciesResponse_httpStatus :: Lens.Lens' DescribeLoadBalancerPoliciesResponse Prelude.Int
describeLoadBalancerPoliciesResponse_httpStatus :: Lens' DescribeLoadBalancerPoliciesResponse Int
describeLoadBalancerPoliciesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLoadBalancerPoliciesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeLoadBalancerPoliciesResponse' :: DescribeLoadBalancerPoliciesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeLoadBalancerPoliciesResponse
s@DescribeLoadBalancerPoliciesResponse' {} Int
a -> DescribeLoadBalancerPoliciesResponse
s {$sel:httpStatus:DescribeLoadBalancerPoliciesResponse' :: Int
httpStatus = Int
a} :: DescribeLoadBalancerPoliciesResponse)
instance
Prelude.NFData
DescribeLoadBalancerPoliciesResponse
where
rnf :: DescribeLoadBalancerPoliciesResponse -> ()
rnf DescribeLoadBalancerPoliciesResponse' {Int
Maybe [PolicyDescription]
httpStatus :: Int
policyDescriptions :: Maybe [PolicyDescription]
$sel:httpStatus:DescribeLoadBalancerPoliciesResponse' :: DescribeLoadBalancerPoliciesResponse -> Int
$sel:policyDescriptions:DescribeLoadBalancerPoliciesResponse' :: DescribeLoadBalancerPoliciesResponse -> Maybe [PolicyDescription]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [PolicyDescription]
policyDescriptions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus