{-# 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.IAM.UpdateAssumeRolePolicy
(
UpdateAssumeRolePolicy (..),
newUpdateAssumeRolePolicy,
updateAssumeRolePolicy_roleName,
updateAssumeRolePolicy_policyDocument,
UpdateAssumeRolePolicyResponse (..),
newUpdateAssumeRolePolicyResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IAM.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateAssumeRolePolicy = UpdateAssumeRolePolicy'
{
UpdateAssumeRolePolicy -> Text
roleName :: Prelude.Text,
UpdateAssumeRolePolicy -> Text
policyDocument :: Prelude.Text
}
deriving (UpdateAssumeRolePolicy -> UpdateAssumeRolePolicy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateAssumeRolePolicy -> UpdateAssumeRolePolicy -> Bool
$c/= :: UpdateAssumeRolePolicy -> UpdateAssumeRolePolicy -> Bool
== :: UpdateAssumeRolePolicy -> UpdateAssumeRolePolicy -> Bool
$c== :: UpdateAssumeRolePolicy -> UpdateAssumeRolePolicy -> Bool
Prelude.Eq, ReadPrec [UpdateAssumeRolePolicy]
ReadPrec UpdateAssumeRolePolicy
Int -> ReadS UpdateAssumeRolePolicy
ReadS [UpdateAssumeRolePolicy]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateAssumeRolePolicy]
$creadListPrec :: ReadPrec [UpdateAssumeRolePolicy]
readPrec :: ReadPrec UpdateAssumeRolePolicy
$creadPrec :: ReadPrec UpdateAssumeRolePolicy
readList :: ReadS [UpdateAssumeRolePolicy]
$creadList :: ReadS [UpdateAssumeRolePolicy]
readsPrec :: Int -> ReadS UpdateAssumeRolePolicy
$creadsPrec :: Int -> ReadS UpdateAssumeRolePolicy
Prelude.Read, Int -> UpdateAssumeRolePolicy -> ShowS
[UpdateAssumeRolePolicy] -> ShowS
UpdateAssumeRolePolicy -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateAssumeRolePolicy] -> ShowS
$cshowList :: [UpdateAssumeRolePolicy] -> ShowS
show :: UpdateAssumeRolePolicy -> String
$cshow :: UpdateAssumeRolePolicy -> String
showsPrec :: Int -> UpdateAssumeRolePolicy -> ShowS
$cshowsPrec :: Int -> UpdateAssumeRolePolicy -> ShowS
Prelude.Show, forall x. Rep UpdateAssumeRolePolicy x -> UpdateAssumeRolePolicy
forall x. UpdateAssumeRolePolicy -> Rep UpdateAssumeRolePolicy x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateAssumeRolePolicy x -> UpdateAssumeRolePolicy
$cfrom :: forall x. UpdateAssumeRolePolicy -> Rep UpdateAssumeRolePolicy x
Prelude.Generic)
newUpdateAssumeRolePolicy ::
Prelude.Text ->
Prelude.Text ->
UpdateAssumeRolePolicy
newUpdateAssumeRolePolicy :: Text -> Text -> UpdateAssumeRolePolicy
newUpdateAssumeRolePolicy Text
pRoleName_ Text
pPolicyDocument_ =
UpdateAssumeRolePolicy'
{ $sel:roleName:UpdateAssumeRolePolicy' :: Text
roleName = Text
pRoleName_,
$sel:policyDocument:UpdateAssumeRolePolicy' :: Text
policyDocument = Text
pPolicyDocument_
}
updateAssumeRolePolicy_roleName :: Lens.Lens' UpdateAssumeRolePolicy Prelude.Text
updateAssumeRolePolicy_roleName :: Lens' UpdateAssumeRolePolicy Text
updateAssumeRolePolicy_roleName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateAssumeRolePolicy' {Text
roleName :: Text
$sel:roleName:UpdateAssumeRolePolicy' :: UpdateAssumeRolePolicy -> Text
roleName} -> Text
roleName) (\s :: UpdateAssumeRolePolicy
s@UpdateAssumeRolePolicy' {} Text
a -> UpdateAssumeRolePolicy
s {$sel:roleName:UpdateAssumeRolePolicy' :: Text
roleName = Text
a} :: UpdateAssumeRolePolicy)
updateAssumeRolePolicy_policyDocument :: Lens.Lens' UpdateAssumeRolePolicy Prelude.Text
updateAssumeRolePolicy_policyDocument :: Lens' UpdateAssumeRolePolicy Text
updateAssumeRolePolicy_policyDocument = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateAssumeRolePolicy' {Text
policyDocument :: Text
$sel:policyDocument:UpdateAssumeRolePolicy' :: UpdateAssumeRolePolicy -> Text
policyDocument} -> Text
policyDocument) (\s :: UpdateAssumeRolePolicy
s@UpdateAssumeRolePolicy' {} Text
a -> UpdateAssumeRolePolicy
s {$sel:policyDocument:UpdateAssumeRolePolicy' :: Text
policyDocument = Text
a} :: UpdateAssumeRolePolicy)
instance Core.AWSRequest UpdateAssumeRolePolicy where
type
AWSResponse UpdateAssumeRolePolicy =
UpdateAssumeRolePolicyResponse
request :: (Service -> Service)
-> UpdateAssumeRolePolicy -> Request UpdateAssumeRolePolicy
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 UpdateAssumeRolePolicy
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateAssumeRolePolicy)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
UpdateAssumeRolePolicyResponse
UpdateAssumeRolePolicyResponse'
instance Prelude.Hashable UpdateAssumeRolePolicy where
hashWithSalt :: Int -> UpdateAssumeRolePolicy -> Int
hashWithSalt Int
_salt UpdateAssumeRolePolicy' {Text
policyDocument :: Text
roleName :: Text
$sel:policyDocument:UpdateAssumeRolePolicy' :: UpdateAssumeRolePolicy -> Text
$sel:roleName:UpdateAssumeRolePolicy' :: UpdateAssumeRolePolicy -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
roleName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
policyDocument
instance Prelude.NFData UpdateAssumeRolePolicy where
rnf :: UpdateAssumeRolePolicy -> ()
rnf UpdateAssumeRolePolicy' {Text
policyDocument :: Text
roleName :: Text
$sel:policyDocument:UpdateAssumeRolePolicy' :: UpdateAssumeRolePolicy -> Text
$sel:roleName:UpdateAssumeRolePolicy' :: UpdateAssumeRolePolicy -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
roleName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
policyDocument
instance Data.ToHeaders UpdateAssumeRolePolicy where
toHeaders :: UpdateAssumeRolePolicy -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath UpdateAssumeRolePolicy where
toPath :: UpdateAssumeRolePolicy -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateAssumeRolePolicy where
toQuery :: UpdateAssumeRolePolicy -> QueryString
toQuery UpdateAssumeRolePolicy' {Text
policyDocument :: Text
roleName :: Text
$sel:policyDocument:UpdateAssumeRolePolicy' :: UpdateAssumeRolePolicy -> Text
$sel:roleName:UpdateAssumeRolePolicy' :: UpdateAssumeRolePolicy -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"UpdateAssumeRolePolicy" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"RoleName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
roleName,
ByteString
"PolicyDocument" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
policyDocument
]
data UpdateAssumeRolePolicyResponse = UpdateAssumeRolePolicyResponse'
{
}
deriving (UpdateAssumeRolePolicyResponse
-> UpdateAssumeRolePolicyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateAssumeRolePolicyResponse
-> UpdateAssumeRolePolicyResponse -> Bool
$c/= :: UpdateAssumeRolePolicyResponse
-> UpdateAssumeRolePolicyResponse -> Bool
== :: UpdateAssumeRolePolicyResponse
-> UpdateAssumeRolePolicyResponse -> Bool
$c== :: UpdateAssumeRolePolicyResponse
-> UpdateAssumeRolePolicyResponse -> Bool
Prelude.Eq, ReadPrec [UpdateAssumeRolePolicyResponse]
ReadPrec UpdateAssumeRolePolicyResponse
Int -> ReadS UpdateAssumeRolePolicyResponse
ReadS [UpdateAssumeRolePolicyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateAssumeRolePolicyResponse]
$creadListPrec :: ReadPrec [UpdateAssumeRolePolicyResponse]
readPrec :: ReadPrec UpdateAssumeRolePolicyResponse
$creadPrec :: ReadPrec UpdateAssumeRolePolicyResponse
readList :: ReadS [UpdateAssumeRolePolicyResponse]
$creadList :: ReadS [UpdateAssumeRolePolicyResponse]
readsPrec :: Int -> ReadS UpdateAssumeRolePolicyResponse
$creadsPrec :: Int -> ReadS UpdateAssumeRolePolicyResponse
Prelude.Read, Int -> UpdateAssumeRolePolicyResponse -> ShowS
[UpdateAssumeRolePolicyResponse] -> ShowS
UpdateAssumeRolePolicyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateAssumeRolePolicyResponse] -> ShowS
$cshowList :: [UpdateAssumeRolePolicyResponse] -> ShowS
show :: UpdateAssumeRolePolicyResponse -> String
$cshow :: UpdateAssumeRolePolicyResponse -> String
showsPrec :: Int -> UpdateAssumeRolePolicyResponse -> ShowS
$cshowsPrec :: Int -> UpdateAssumeRolePolicyResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateAssumeRolePolicyResponse x
-> UpdateAssumeRolePolicyResponse
forall x.
UpdateAssumeRolePolicyResponse
-> Rep UpdateAssumeRolePolicyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateAssumeRolePolicyResponse x
-> UpdateAssumeRolePolicyResponse
$cfrom :: forall x.
UpdateAssumeRolePolicyResponse
-> Rep UpdateAssumeRolePolicyResponse x
Prelude.Generic)
newUpdateAssumeRolePolicyResponse ::
UpdateAssumeRolePolicyResponse
newUpdateAssumeRolePolicyResponse :: UpdateAssumeRolePolicyResponse
newUpdateAssumeRolePolicyResponse =
UpdateAssumeRolePolicyResponse
UpdateAssumeRolePolicyResponse'
instance
Prelude.NFData
UpdateAssumeRolePolicyResponse
where
rnf :: UpdateAssumeRolePolicyResponse -> ()
rnf UpdateAssumeRolePolicyResponse
_ = ()