module Network.AWS.IAM.UpdateAssumeRolePolicy
(
updateAssumeRolePolicy
, UpdateAssumeRolePolicy
, uarpRoleName
, uarpPolicyDocument
, updateAssumeRolePolicyResponse
, UpdateAssumeRolePolicyResponse
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UpdateAssumeRolePolicy = UpdateAssumeRolePolicy'
{ _uarpRoleName :: !Text
, _uarpPolicyDocument :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateAssumeRolePolicy
:: Text
-> Text
-> UpdateAssumeRolePolicy
updateAssumeRolePolicy pRoleName_ pPolicyDocument_ =
UpdateAssumeRolePolicy'
{ _uarpRoleName = pRoleName_
, _uarpPolicyDocument = pPolicyDocument_
}
uarpRoleName :: Lens' UpdateAssumeRolePolicy Text
uarpRoleName = lens _uarpRoleName (\ s a -> s{_uarpRoleName = a});
uarpPolicyDocument :: Lens' UpdateAssumeRolePolicy Text
uarpPolicyDocument = lens _uarpPolicyDocument (\ s a -> s{_uarpPolicyDocument = a});
instance AWSRequest UpdateAssumeRolePolicy where
type Rs UpdateAssumeRolePolicy =
UpdateAssumeRolePolicyResponse
request = postQuery iAM
response
= receiveNull UpdateAssumeRolePolicyResponse'
instance ToHeaders UpdateAssumeRolePolicy where
toHeaders = const mempty
instance ToPath UpdateAssumeRolePolicy where
toPath = const "/"
instance ToQuery UpdateAssumeRolePolicy where
toQuery UpdateAssumeRolePolicy'{..}
= mconcat
["Action" =:
("UpdateAssumeRolePolicy" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"RoleName" =: _uarpRoleName,
"PolicyDocument" =: _uarpPolicyDocument]
data UpdateAssumeRolePolicyResponse =
UpdateAssumeRolePolicyResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
updateAssumeRolePolicyResponse
:: UpdateAssumeRolePolicyResponse
updateAssumeRolePolicyResponse = UpdateAssumeRolePolicyResponse'