{-# 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.CreateAppCookieStickinessPolicy
(
CreateAppCookieStickinessPolicy (..),
newCreateAppCookieStickinessPolicy,
createAppCookieStickinessPolicy_loadBalancerName,
createAppCookieStickinessPolicy_policyName,
createAppCookieStickinessPolicy_cookieName,
CreateAppCookieStickinessPolicyResponse (..),
newCreateAppCookieStickinessPolicyResponse,
createAppCookieStickinessPolicyResponse_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 CreateAppCookieStickinessPolicy = CreateAppCookieStickinessPolicy'
{
CreateAppCookieStickinessPolicy -> Text
loadBalancerName :: Prelude.Text,
CreateAppCookieStickinessPolicy -> Text
policyName :: Prelude.Text,
CreateAppCookieStickinessPolicy -> Text
cookieName :: Prelude.Text
}
deriving (CreateAppCookieStickinessPolicy
-> CreateAppCookieStickinessPolicy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAppCookieStickinessPolicy
-> CreateAppCookieStickinessPolicy -> Bool
$c/= :: CreateAppCookieStickinessPolicy
-> CreateAppCookieStickinessPolicy -> Bool
== :: CreateAppCookieStickinessPolicy
-> CreateAppCookieStickinessPolicy -> Bool
$c== :: CreateAppCookieStickinessPolicy
-> CreateAppCookieStickinessPolicy -> Bool
Prelude.Eq, ReadPrec [CreateAppCookieStickinessPolicy]
ReadPrec CreateAppCookieStickinessPolicy
Int -> ReadS CreateAppCookieStickinessPolicy
ReadS [CreateAppCookieStickinessPolicy]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAppCookieStickinessPolicy]
$creadListPrec :: ReadPrec [CreateAppCookieStickinessPolicy]
readPrec :: ReadPrec CreateAppCookieStickinessPolicy
$creadPrec :: ReadPrec CreateAppCookieStickinessPolicy
readList :: ReadS [CreateAppCookieStickinessPolicy]
$creadList :: ReadS [CreateAppCookieStickinessPolicy]
readsPrec :: Int -> ReadS CreateAppCookieStickinessPolicy
$creadsPrec :: Int -> ReadS CreateAppCookieStickinessPolicy
Prelude.Read, Int -> CreateAppCookieStickinessPolicy -> ShowS
[CreateAppCookieStickinessPolicy] -> ShowS
CreateAppCookieStickinessPolicy -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAppCookieStickinessPolicy] -> ShowS
$cshowList :: [CreateAppCookieStickinessPolicy] -> ShowS
show :: CreateAppCookieStickinessPolicy -> String
$cshow :: CreateAppCookieStickinessPolicy -> String
showsPrec :: Int -> CreateAppCookieStickinessPolicy -> ShowS
$cshowsPrec :: Int -> CreateAppCookieStickinessPolicy -> ShowS
Prelude.Show, forall x.
Rep CreateAppCookieStickinessPolicy x
-> CreateAppCookieStickinessPolicy
forall x.
CreateAppCookieStickinessPolicy
-> Rep CreateAppCookieStickinessPolicy x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateAppCookieStickinessPolicy x
-> CreateAppCookieStickinessPolicy
$cfrom :: forall x.
CreateAppCookieStickinessPolicy
-> Rep CreateAppCookieStickinessPolicy x
Prelude.Generic)
newCreateAppCookieStickinessPolicy ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
CreateAppCookieStickinessPolicy
newCreateAppCookieStickinessPolicy :: Text -> Text -> Text -> CreateAppCookieStickinessPolicy
newCreateAppCookieStickinessPolicy
Text
pLoadBalancerName_
Text
pPolicyName_
Text
pCookieName_ =
CreateAppCookieStickinessPolicy'
{ $sel:loadBalancerName:CreateAppCookieStickinessPolicy' :: Text
loadBalancerName =
Text
pLoadBalancerName_,
$sel:policyName:CreateAppCookieStickinessPolicy' :: Text
policyName = Text
pPolicyName_,
$sel:cookieName:CreateAppCookieStickinessPolicy' :: Text
cookieName = Text
pCookieName_
}
createAppCookieStickinessPolicy_loadBalancerName :: Lens.Lens' CreateAppCookieStickinessPolicy Prelude.Text
createAppCookieStickinessPolicy_loadBalancerName :: Lens' CreateAppCookieStickinessPolicy Text
createAppCookieStickinessPolicy_loadBalancerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAppCookieStickinessPolicy' {Text
loadBalancerName :: Text
$sel:loadBalancerName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> Text
loadBalancerName} -> Text
loadBalancerName) (\s :: CreateAppCookieStickinessPolicy
s@CreateAppCookieStickinessPolicy' {} Text
a -> CreateAppCookieStickinessPolicy
s {$sel:loadBalancerName:CreateAppCookieStickinessPolicy' :: Text
loadBalancerName = Text
a} :: CreateAppCookieStickinessPolicy)
createAppCookieStickinessPolicy_policyName :: Lens.Lens' CreateAppCookieStickinessPolicy Prelude.Text
createAppCookieStickinessPolicy_policyName :: Lens' CreateAppCookieStickinessPolicy Text
createAppCookieStickinessPolicy_policyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAppCookieStickinessPolicy' {Text
policyName :: Text
$sel:policyName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> Text
policyName} -> Text
policyName) (\s :: CreateAppCookieStickinessPolicy
s@CreateAppCookieStickinessPolicy' {} Text
a -> CreateAppCookieStickinessPolicy
s {$sel:policyName:CreateAppCookieStickinessPolicy' :: Text
policyName = Text
a} :: CreateAppCookieStickinessPolicy)
createAppCookieStickinessPolicy_cookieName :: Lens.Lens' CreateAppCookieStickinessPolicy Prelude.Text
createAppCookieStickinessPolicy_cookieName :: Lens' CreateAppCookieStickinessPolicy Text
createAppCookieStickinessPolicy_cookieName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAppCookieStickinessPolicy' {Text
cookieName :: Text
$sel:cookieName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> Text
cookieName} -> Text
cookieName) (\s :: CreateAppCookieStickinessPolicy
s@CreateAppCookieStickinessPolicy' {} Text
a -> CreateAppCookieStickinessPolicy
s {$sel:cookieName:CreateAppCookieStickinessPolicy' :: Text
cookieName = Text
a} :: CreateAppCookieStickinessPolicy)
instance
Core.AWSRequest
CreateAppCookieStickinessPolicy
where
type
AWSResponse CreateAppCookieStickinessPolicy =
CreateAppCookieStickinessPolicyResponse
request :: (Service -> Service)
-> CreateAppCookieStickinessPolicy
-> Request CreateAppCookieStickinessPolicy
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 CreateAppCookieStickinessPolicy
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse CreateAppCookieStickinessPolicy)))
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
"CreateAppCookieStickinessPolicyResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> CreateAppCookieStickinessPolicyResponse
CreateAppCookieStickinessPolicyResponse'
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
CreateAppCookieStickinessPolicy
where
hashWithSalt :: Int -> CreateAppCookieStickinessPolicy -> Int
hashWithSalt
Int
_salt
CreateAppCookieStickinessPolicy' {Text
cookieName :: Text
policyName :: Text
loadBalancerName :: Text
$sel:cookieName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> Text
$sel:policyName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> Text
$sel:loadBalancerName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> 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
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
cookieName
instance
Prelude.NFData
CreateAppCookieStickinessPolicy
where
rnf :: CreateAppCookieStickinessPolicy -> ()
rnf CreateAppCookieStickinessPolicy' {Text
cookieName :: Text
policyName :: Text
loadBalancerName :: Text
$sel:cookieName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> Text
$sel:policyName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> Text
$sel:loadBalancerName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> 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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
cookieName
instance
Data.ToHeaders
CreateAppCookieStickinessPolicy
where
toHeaders :: CreateAppCookieStickinessPolicy -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CreateAppCookieStickinessPolicy where
toPath :: CreateAppCookieStickinessPolicy -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateAppCookieStickinessPolicy where
toQuery :: CreateAppCookieStickinessPolicy -> QueryString
toQuery CreateAppCookieStickinessPolicy' {Text
cookieName :: Text
policyName :: Text
loadBalancerName :: Text
$sel:cookieName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> Text
$sel:policyName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> Text
$sel:loadBalancerName:CreateAppCookieStickinessPolicy' :: CreateAppCookieStickinessPolicy -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"CreateAppCookieStickinessPolicy" ::
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,
ByteString
"CookieName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
cookieName
]
data CreateAppCookieStickinessPolicyResponse = CreateAppCookieStickinessPolicyResponse'
{
CreateAppCookieStickinessPolicyResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateAppCookieStickinessPolicyResponse
-> CreateAppCookieStickinessPolicyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAppCookieStickinessPolicyResponse
-> CreateAppCookieStickinessPolicyResponse -> Bool
$c/= :: CreateAppCookieStickinessPolicyResponse
-> CreateAppCookieStickinessPolicyResponse -> Bool
== :: CreateAppCookieStickinessPolicyResponse
-> CreateAppCookieStickinessPolicyResponse -> Bool
$c== :: CreateAppCookieStickinessPolicyResponse
-> CreateAppCookieStickinessPolicyResponse -> Bool
Prelude.Eq, ReadPrec [CreateAppCookieStickinessPolicyResponse]
ReadPrec CreateAppCookieStickinessPolicyResponse
Int -> ReadS CreateAppCookieStickinessPolicyResponse
ReadS [CreateAppCookieStickinessPolicyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAppCookieStickinessPolicyResponse]
$creadListPrec :: ReadPrec [CreateAppCookieStickinessPolicyResponse]
readPrec :: ReadPrec CreateAppCookieStickinessPolicyResponse
$creadPrec :: ReadPrec CreateAppCookieStickinessPolicyResponse
readList :: ReadS [CreateAppCookieStickinessPolicyResponse]
$creadList :: ReadS [CreateAppCookieStickinessPolicyResponse]
readsPrec :: Int -> ReadS CreateAppCookieStickinessPolicyResponse
$creadsPrec :: Int -> ReadS CreateAppCookieStickinessPolicyResponse
Prelude.Read, Int -> CreateAppCookieStickinessPolicyResponse -> ShowS
[CreateAppCookieStickinessPolicyResponse] -> ShowS
CreateAppCookieStickinessPolicyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAppCookieStickinessPolicyResponse] -> ShowS
$cshowList :: [CreateAppCookieStickinessPolicyResponse] -> ShowS
show :: CreateAppCookieStickinessPolicyResponse -> String
$cshow :: CreateAppCookieStickinessPolicyResponse -> String
showsPrec :: Int -> CreateAppCookieStickinessPolicyResponse -> ShowS
$cshowsPrec :: Int -> CreateAppCookieStickinessPolicyResponse -> ShowS
Prelude.Show, forall x.
Rep CreateAppCookieStickinessPolicyResponse x
-> CreateAppCookieStickinessPolicyResponse
forall x.
CreateAppCookieStickinessPolicyResponse
-> Rep CreateAppCookieStickinessPolicyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateAppCookieStickinessPolicyResponse x
-> CreateAppCookieStickinessPolicyResponse
$cfrom :: forall x.
CreateAppCookieStickinessPolicyResponse
-> Rep CreateAppCookieStickinessPolicyResponse x
Prelude.Generic)
newCreateAppCookieStickinessPolicyResponse ::
Prelude.Int ->
CreateAppCookieStickinessPolicyResponse
newCreateAppCookieStickinessPolicyResponse :: Int -> CreateAppCookieStickinessPolicyResponse
newCreateAppCookieStickinessPolicyResponse
Int
pHttpStatus_ =
CreateAppCookieStickinessPolicyResponse'
{ $sel:httpStatus:CreateAppCookieStickinessPolicyResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
createAppCookieStickinessPolicyResponse_httpStatus :: Lens.Lens' CreateAppCookieStickinessPolicyResponse Prelude.Int
createAppCookieStickinessPolicyResponse_httpStatus :: Lens' CreateAppCookieStickinessPolicyResponse Int
createAppCookieStickinessPolicyResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAppCookieStickinessPolicyResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateAppCookieStickinessPolicyResponse' :: CreateAppCookieStickinessPolicyResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateAppCookieStickinessPolicyResponse
s@CreateAppCookieStickinessPolicyResponse' {} Int
a -> CreateAppCookieStickinessPolicyResponse
s {$sel:httpStatus:CreateAppCookieStickinessPolicyResponse' :: Int
httpStatus = Int
a} :: CreateAppCookieStickinessPolicyResponse)
instance
Prelude.NFData
CreateAppCookieStickinessPolicyResponse
where
rnf :: CreateAppCookieStickinessPolicyResponse -> ()
rnf CreateAppCookieStickinessPolicyResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateAppCookieStickinessPolicyResponse' :: CreateAppCookieStickinessPolicyResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus