{-# 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.CreateLoadBalancerListeners
(
CreateLoadBalancerListeners (..),
newCreateLoadBalancerListeners,
createLoadBalancerListeners_loadBalancerName,
createLoadBalancerListeners_listeners,
CreateLoadBalancerListenersResponse (..),
newCreateLoadBalancerListenersResponse,
createLoadBalancerListenersResponse_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 CreateLoadBalancerListeners = CreateLoadBalancerListeners'
{
CreateLoadBalancerListeners -> Text
loadBalancerName :: Prelude.Text,
CreateLoadBalancerListeners -> [Listener]
listeners :: [Listener]
}
deriving (CreateLoadBalancerListeners -> CreateLoadBalancerListeners -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateLoadBalancerListeners -> CreateLoadBalancerListeners -> Bool
$c/= :: CreateLoadBalancerListeners -> CreateLoadBalancerListeners -> Bool
== :: CreateLoadBalancerListeners -> CreateLoadBalancerListeners -> Bool
$c== :: CreateLoadBalancerListeners -> CreateLoadBalancerListeners -> Bool
Prelude.Eq, ReadPrec [CreateLoadBalancerListeners]
ReadPrec CreateLoadBalancerListeners
Int -> ReadS CreateLoadBalancerListeners
ReadS [CreateLoadBalancerListeners]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateLoadBalancerListeners]
$creadListPrec :: ReadPrec [CreateLoadBalancerListeners]
readPrec :: ReadPrec CreateLoadBalancerListeners
$creadPrec :: ReadPrec CreateLoadBalancerListeners
readList :: ReadS [CreateLoadBalancerListeners]
$creadList :: ReadS [CreateLoadBalancerListeners]
readsPrec :: Int -> ReadS CreateLoadBalancerListeners
$creadsPrec :: Int -> ReadS CreateLoadBalancerListeners
Prelude.Read, Int -> CreateLoadBalancerListeners -> ShowS
[CreateLoadBalancerListeners] -> ShowS
CreateLoadBalancerListeners -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateLoadBalancerListeners] -> ShowS
$cshowList :: [CreateLoadBalancerListeners] -> ShowS
show :: CreateLoadBalancerListeners -> String
$cshow :: CreateLoadBalancerListeners -> String
showsPrec :: Int -> CreateLoadBalancerListeners -> ShowS
$cshowsPrec :: Int -> CreateLoadBalancerListeners -> ShowS
Prelude.Show, forall x.
Rep CreateLoadBalancerListeners x -> CreateLoadBalancerListeners
forall x.
CreateLoadBalancerListeners -> Rep CreateLoadBalancerListeners x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateLoadBalancerListeners x -> CreateLoadBalancerListeners
$cfrom :: forall x.
CreateLoadBalancerListeners -> Rep CreateLoadBalancerListeners x
Prelude.Generic)
newCreateLoadBalancerListeners ::
Prelude.Text ->
CreateLoadBalancerListeners
newCreateLoadBalancerListeners :: Text -> CreateLoadBalancerListeners
newCreateLoadBalancerListeners Text
pLoadBalancerName_ =
CreateLoadBalancerListeners'
{ $sel:loadBalancerName:CreateLoadBalancerListeners' :: Text
loadBalancerName =
Text
pLoadBalancerName_,
$sel:listeners:CreateLoadBalancerListeners' :: [Listener]
listeners = forall a. Monoid a => a
Prelude.mempty
}
createLoadBalancerListeners_loadBalancerName :: Lens.Lens' CreateLoadBalancerListeners Prelude.Text
createLoadBalancerListeners_loadBalancerName :: Lens' CreateLoadBalancerListeners Text
createLoadBalancerListeners_loadBalancerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerListeners' {Text
loadBalancerName :: Text
$sel:loadBalancerName:CreateLoadBalancerListeners' :: CreateLoadBalancerListeners -> Text
loadBalancerName} -> Text
loadBalancerName) (\s :: CreateLoadBalancerListeners
s@CreateLoadBalancerListeners' {} Text
a -> CreateLoadBalancerListeners
s {$sel:loadBalancerName:CreateLoadBalancerListeners' :: Text
loadBalancerName = Text
a} :: CreateLoadBalancerListeners)
createLoadBalancerListeners_listeners :: Lens.Lens' CreateLoadBalancerListeners [Listener]
createLoadBalancerListeners_listeners :: Lens' CreateLoadBalancerListeners [Listener]
createLoadBalancerListeners_listeners = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerListeners' {[Listener]
listeners :: [Listener]
$sel:listeners:CreateLoadBalancerListeners' :: CreateLoadBalancerListeners -> [Listener]
listeners} -> [Listener]
listeners) (\s :: CreateLoadBalancerListeners
s@CreateLoadBalancerListeners' {} [Listener]
a -> CreateLoadBalancerListeners
s {$sel:listeners:CreateLoadBalancerListeners' :: [Listener]
listeners = [Listener]
a} :: CreateLoadBalancerListeners) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest CreateLoadBalancerListeners where
type
AWSResponse CreateLoadBalancerListeners =
CreateLoadBalancerListenersResponse
request :: (Service -> Service)
-> CreateLoadBalancerListeners
-> Request CreateLoadBalancerListeners
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 CreateLoadBalancerListeners
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateLoadBalancerListeners)))
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
"CreateLoadBalancerListenersResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> CreateLoadBalancerListenersResponse
CreateLoadBalancerListenersResponse'
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 CreateLoadBalancerListeners where
hashWithSalt :: Int -> CreateLoadBalancerListeners -> Int
hashWithSalt Int
_salt CreateLoadBalancerListeners' {[Listener]
Text
listeners :: [Listener]
loadBalancerName :: Text
$sel:listeners:CreateLoadBalancerListeners' :: CreateLoadBalancerListeners -> [Listener]
$sel:loadBalancerName:CreateLoadBalancerListeners' :: CreateLoadBalancerListeners -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
loadBalancerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Listener]
listeners
instance Prelude.NFData CreateLoadBalancerListeners where
rnf :: CreateLoadBalancerListeners -> ()
rnf CreateLoadBalancerListeners' {[Listener]
Text
listeners :: [Listener]
loadBalancerName :: Text
$sel:listeners:CreateLoadBalancerListeners' :: CreateLoadBalancerListeners -> [Listener]
$sel:loadBalancerName:CreateLoadBalancerListeners' :: CreateLoadBalancerListeners -> 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 [Listener]
listeners
instance Data.ToHeaders CreateLoadBalancerListeners where
toHeaders :: CreateLoadBalancerListeners -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CreateLoadBalancerListeners where
toPath :: CreateLoadBalancerListeners -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateLoadBalancerListeners where
toQuery :: CreateLoadBalancerListeners -> QueryString
toQuery CreateLoadBalancerListeners' {[Listener]
Text
listeners :: [Listener]
loadBalancerName :: Text
$sel:listeners:CreateLoadBalancerListeners' :: CreateLoadBalancerListeners -> [Listener]
$sel:loadBalancerName:CreateLoadBalancerListeners' :: CreateLoadBalancerListeners -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"CreateLoadBalancerListeners" ::
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
"Listeners"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" [Listener]
listeners
]
data CreateLoadBalancerListenersResponse = CreateLoadBalancerListenersResponse'
{
CreateLoadBalancerListenersResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateLoadBalancerListenersResponse
-> CreateLoadBalancerListenersResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateLoadBalancerListenersResponse
-> CreateLoadBalancerListenersResponse -> Bool
$c/= :: CreateLoadBalancerListenersResponse
-> CreateLoadBalancerListenersResponse -> Bool
== :: CreateLoadBalancerListenersResponse
-> CreateLoadBalancerListenersResponse -> Bool
$c== :: CreateLoadBalancerListenersResponse
-> CreateLoadBalancerListenersResponse -> Bool
Prelude.Eq, ReadPrec [CreateLoadBalancerListenersResponse]
ReadPrec CreateLoadBalancerListenersResponse
Int -> ReadS CreateLoadBalancerListenersResponse
ReadS [CreateLoadBalancerListenersResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateLoadBalancerListenersResponse]
$creadListPrec :: ReadPrec [CreateLoadBalancerListenersResponse]
readPrec :: ReadPrec CreateLoadBalancerListenersResponse
$creadPrec :: ReadPrec CreateLoadBalancerListenersResponse
readList :: ReadS [CreateLoadBalancerListenersResponse]
$creadList :: ReadS [CreateLoadBalancerListenersResponse]
readsPrec :: Int -> ReadS CreateLoadBalancerListenersResponse
$creadsPrec :: Int -> ReadS CreateLoadBalancerListenersResponse
Prelude.Read, Int -> CreateLoadBalancerListenersResponse -> ShowS
[CreateLoadBalancerListenersResponse] -> ShowS
CreateLoadBalancerListenersResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateLoadBalancerListenersResponse] -> ShowS
$cshowList :: [CreateLoadBalancerListenersResponse] -> ShowS
show :: CreateLoadBalancerListenersResponse -> String
$cshow :: CreateLoadBalancerListenersResponse -> String
showsPrec :: Int -> CreateLoadBalancerListenersResponse -> ShowS
$cshowsPrec :: Int -> CreateLoadBalancerListenersResponse -> ShowS
Prelude.Show, forall x.
Rep CreateLoadBalancerListenersResponse x
-> CreateLoadBalancerListenersResponse
forall x.
CreateLoadBalancerListenersResponse
-> Rep CreateLoadBalancerListenersResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateLoadBalancerListenersResponse x
-> CreateLoadBalancerListenersResponse
$cfrom :: forall x.
CreateLoadBalancerListenersResponse
-> Rep CreateLoadBalancerListenersResponse x
Prelude.Generic)
newCreateLoadBalancerListenersResponse ::
Prelude.Int ->
CreateLoadBalancerListenersResponse
newCreateLoadBalancerListenersResponse :: Int -> CreateLoadBalancerListenersResponse
newCreateLoadBalancerListenersResponse Int
pHttpStatus_ =
CreateLoadBalancerListenersResponse'
{ $sel:httpStatus:CreateLoadBalancerListenersResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
createLoadBalancerListenersResponse_httpStatus :: Lens.Lens' CreateLoadBalancerListenersResponse Prelude.Int
createLoadBalancerListenersResponse_httpStatus :: Lens' CreateLoadBalancerListenersResponse Int
createLoadBalancerListenersResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoadBalancerListenersResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateLoadBalancerListenersResponse' :: CreateLoadBalancerListenersResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateLoadBalancerListenersResponse
s@CreateLoadBalancerListenersResponse' {} Int
a -> CreateLoadBalancerListenersResponse
s {$sel:httpStatus:CreateLoadBalancerListenersResponse' :: Int
httpStatus = Int
a} :: CreateLoadBalancerListenersResponse)
instance
Prelude.NFData
CreateLoadBalancerListenersResponse
where
rnf :: CreateLoadBalancerListenersResponse -> ()
rnf CreateLoadBalancerListenersResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateLoadBalancerListenersResponse' :: CreateLoadBalancerListenersResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus