{-# 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.ElasticBeanstalk.AssociateEnvironmentOperationsRole
(
AssociateEnvironmentOperationsRole (..),
newAssociateEnvironmentOperationsRole,
associateEnvironmentOperationsRole_environmentName,
associateEnvironmentOperationsRole_operationsRole,
AssociateEnvironmentOperationsRoleResponse (..),
newAssociateEnvironmentOperationsRoleResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ElasticBeanstalk.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data AssociateEnvironmentOperationsRole = AssociateEnvironmentOperationsRole'
{
AssociateEnvironmentOperationsRole -> Text
environmentName :: Prelude.Text,
AssociateEnvironmentOperationsRole -> Text
operationsRole :: Prelude.Text
}
deriving (AssociateEnvironmentOperationsRole
-> AssociateEnvironmentOperationsRole -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AssociateEnvironmentOperationsRole
-> AssociateEnvironmentOperationsRole -> Bool
$c/= :: AssociateEnvironmentOperationsRole
-> AssociateEnvironmentOperationsRole -> Bool
== :: AssociateEnvironmentOperationsRole
-> AssociateEnvironmentOperationsRole -> Bool
$c== :: AssociateEnvironmentOperationsRole
-> AssociateEnvironmentOperationsRole -> Bool
Prelude.Eq, ReadPrec [AssociateEnvironmentOperationsRole]
ReadPrec AssociateEnvironmentOperationsRole
Int -> ReadS AssociateEnvironmentOperationsRole
ReadS [AssociateEnvironmentOperationsRole]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AssociateEnvironmentOperationsRole]
$creadListPrec :: ReadPrec [AssociateEnvironmentOperationsRole]
readPrec :: ReadPrec AssociateEnvironmentOperationsRole
$creadPrec :: ReadPrec AssociateEnvironmentOperationsRole
readList :: ReadS [AssociateEnvironmentOperationsRole]
$creadList :: ReadS [AssociateEnvironmentOperationsRole]
readsPrec :: Int -> ReadS AssociateEnvironmentOperationsRole
$creadsPrec :: Int -> ReadS AssociateEnvironmentOperationsRole
Prelude.Read, Int -> AssociateEnvironmentOperationsRole -> ShowS
[AssociateEnvironmentOperationsRole] -> ShowS
AssociateEnvironmentOperationsRole -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AssociateEnvironmentOperationsRole] -> ShowS
$cshowList :: [AssociateEnvironmentOperationsRole] -> ShowS
show :: AssociateEnvironmentOperationsRole -> String
$cshow :: AssociateEnvironmentOperationsRole -> String
showsPrec :: Int -> AssociateEnvironmentOperationsRole -> ShowS
$cshowsPrec :: Int -> AssociateEnvironmentOperationsRole -> ShowS
Prelude.Show, forall x.
Rep AssociateEnvironmentOperationsRole x
-> AssociateEnvironmentOperationsRole
forall x.
AssociateEnvironmentOperationsRole
-> Rep AssociateEnvironmentOperationsRole x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AssociateEnvironmentOperationsRole x
-> AssociateEnvironmentOperationsRole
$cfrom :: forall x.
AssociateEnvironmentOperationsRole
-> Rep AssociateEnvironmentOperationsRole x
Prelude.Generic)
newAssociateEnvironmentOperationsRole ::
Prelude.Text ->
Prelude.Text ->
AssociateEnvironmentOperationsRole
newAssociateEnvironmentOperationsRole :: Text -> Text -> AssociateEnvironmentOperationsRole
newAssociateEnvironmentOperationsRole
Text
pEnvironmentName_
Text
pOperationsRole_ =
AssociateEnvironmentOperationsRole'
{ $sel:environmentName:AssociateEnvironmentOperationsRole' :: Text
environmentName =
Text
pEnvironmentName_,
$sel:operationsRole:AssociateEnvironmentOperationsRole' :: Text
operationsRole = Text
pOperationsRole_
}
associateEnvironmentOperationsRole_environmentName :: Lens.Lens' AssociateEnvironmentOperationsRole Prelude.Text
associateEnvironmentOperationsRole_environmentName :: Lens' AssociateEnvironmentOperationsRole Text
associateEnvironmentOperationsRole_environmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssociateEnvironmentOperationsRole' {Text
environmentName :: Text
$sel:environmentName:AssociateEnvironmentOperationsRole' :: AssociateEnvironmentOperationsRole -> Text
environmentName} -> Text
environmentName) (\s :: AssociateEnvironmentOperationsRole
s@AssociateEnvironmentOperationsRole' {} Text
a -> AssociateEnvironmentOperationsRole
s {$sel:environmentName:AssociateEnvironmentOperationsRole' :: Text
environmentName = Text
a} :: AssociateEnvironmentOperationsRole)
associateEnvironmentOperationsRole_operationsRole :: Lens.Lens' AssociateEnvironmentOperationsRole Prelude.Text
associateEnvironmentOperationsRole_operationsRole :: Lens' AssociateEnvironmentOperationsRole Text
associateEnvironmentOperationsRole_operationsRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssociateEnvironmentOperationsRole' {Text
operationsRole :: Text
$sel:operationsRole:AssociateEnvironmentOperationsRole' :: AssociateEnvironmentOperationsRole -> Text
operationsRole} -> Text
operationsRole) (\s :: AssociateEnvironmentOperationsRole
s@AssociateEnvironmentOperationsRole' {} Text
a -> AssociateEnvironmentOperationsRole
s {$sel:operationsRole:AssociateEnvironmentOperationsRole' :: Text
operationsRole = Text
a} :: AssociateEnvironmentOperationsRole)
instance
Core.AWSRequest
AssociateEnvironmentOperationsRole
where
type
AWSResponse AssociateEnvironmentOperationsRole =
AssociateEnvironmentOperationsRoleResponse
request :: (Service -> Service)
-> AssociateEnvironmentOperationsRole
-> Request AssociateEnvironmentOperationsRole
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 AssociateEnvironmentOperationsRole
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse AssociateEnvironmentOperationsRole)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
AssociateEnvironmentOperationsRoleResponse
AssociateEnvironmentOperationsRoleResponse'
instance
Prelude.Hashable
AssociateEnvironmentOperationsRole
where
hashWithSalt :: Int -> AssociateEnvironmentOperationsRole -> Int
hashWithSalt
Int
_salt
AssociateEnvironmentOperationsRole' {Text
operationsRole :: Text
environmentName :: Text
$sel:operationsRole:AssociateEnvironmentOperationsRole' :: AssociateEnvironmentOperationsRole -> Text
$sel:environmentName:AssociateEnvironmentOperationsRole' :: AssociateEnvironmentOperationsRole -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
environmentName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
operationsRole
instance
Prelude.NFData
AssociateEnvironmentOperationsRole
where
rnf :: AssociateEnvironmentOperationsRole -> ()
rnf AssociateEnvironmentOperationsRole' {Text
operationsRole :: Text
environmentName :: Text
$sel:operationsRole:AssociateEnvironmentOperationsRole' :: AssociateEnvironmentOperationsRole -> Text
$sel:environmentName:AssociateEnvironmentOperationsRole' :: AssociateEnvironmentOperationsRole -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
environmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
operationsRole
instance
Data.ToHeaders
AssociateEnvironmentOperationsRole
where
toHeaders :: AssociateEnvironmentOperationsRole -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
AssociateEnvironmentOperationsRole
where
toPath :: AssociateEnvironmentOperationsRole -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
AssociateEnvironmentOperationsRole
where
toQuery :: AssociateEnvironmentOperationsRole -> QueryString
toQuery AssociateEnvironmentOperationsRole' {Text
operationsRole :: Text
environmentName :: Text
$sel:operationsRole:AssociateEnvironmentOperationsRole' :: AssociateEnvironmentOperationsRole -> Text
$sel:environmentName:AssociateEnvironmentOperationsRole' :: AssociateEnvironmentOperationsRole -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"AssociateEnvironmentOperationsRole" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"EnvironmentName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
environmentName,
ByteString
"OperationsRole" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
operationsRole
]
data AssociateEnvironmentOperationsRoleResponse = AssociateEnvironmentOperationsRoleResponse'
{
}
deriving (AssociateEnvironmentOperationsRoleResponse
-> AssociateEnvironmentOperationsRoleResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AssociateEnvironmentOperationsRoleResponse
-> AssociateEnvironmentOperationsRoleResponse -> Bool
$c/= :: AssociateEnvironmentOperationsRoleResponse
-> AssociateEnvironmentOperationsRoleResponse -> Bool
== :: AssociateEnvironmentOperationsRoleResponse
-> AssociateEnvironmentOperationsRoleResponse -> Bool
$c== :: AssociateEnvironmentOperationsRoleResponse
-> AssociateEnvironmentOperationsRoleResponse -> Bool
Prelude.Eq, ReadPrec [AssociateEnvironmentOperationsRoleResponse]
ReadPrec AssociateEnvironmentOperationsRoleResponse
Int -> ReadS AssociateEnvironmentOperationsRoleResponse
ReadS [AssociateEnvironmentOperationsRoleResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AssociateEnvironmentOperationsRoleResponse]
$creadListPrec :: ReadPrec [AssociateEnvironmentOperationsRoleResponse]
readPrec :: ReadPrec AssociateEnvironmentOperationsRoleResponse
$creadPrec :: ReadPrec AssociateEnvironmentOperationsRoleResponse
readList :: ReadS [AssociateEnvironmentOperationsRoleResponse]
$creadList :: ReadS [AssociateEnvironmentOperationsRoleResponse]
readsPrec :: Int -> ReadS AssociateEnvironmentOperationsRoleResponse
$creadsPrec :: Int -> ReadS AssociateEnvironmentOperationsRoleResponse
Prelude.Read, Int -> AssociateEnvironmentOperationsRoleResponse -> ShowS
[AssociateEnvironmentOperationsRoleResponse] -> ShowS
AssociateEnvironmentOperationsRoleResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AssociateEnvironmentOperationsRoleResponse] -> ShowS
$cshowList :: [AssociateEnvironmentOperationsRoleResponse] -> ShowS
show :: AssociateEnvironmentOperationsRoleResponse -> String
$cshow :: AssociateEnvironmentOperationsRoleResponse -> String
showsPrec :: Int -> AssociateEnvironmentOperationsRoleResponse -> ShowS
$cshowsPrec :: Int -> AssociateEnvironmentOperationsRoleResponse -> ShowS
Prelude.Show, forall x.
Rep AssociateEnvironmentOperationsRoleResponse x
-> AssociateEnvironmentOperationsRoleResponse
forall x.
AssociateEnvironmentOperationsRoleResponse
-> Rep AssociateEnvironmentOperationsRoleResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AssociateEnvironmentOperationsRoleResponse x
-> AssociateEnvironmentOperationsRoleResponse
$cfrom :: forall x.
AssociateEnvironmentOperationsRoleResponse
-> Rep AssociateEnvironmentOperationsRoleResponse x
Prelude.Generic)
newAssociateEnvironmentOperationsRoleResponse ::
AssociateEnvironmentOperationsRoleResponse
newAssociateEnvironmentOperationsRoleResponse :: AssociateEnvironmentOperationsRoleResponse
newAssociateEnvironmentOperationsRoleResponse =
AssociateEnvironmentOperationsRoleResponse
AssociateEnvironmentOperationsRoleResponse'
instance
Prelude.NFData
AssociateEnvironmentOperationsRoleResponse
where
rnf :: AssociateEnvironmentOperationsRoleResponse -> ()
rnf AssociateEnvironmentOperationsRoleResponse
_ = ()