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