module Network.AWS.IAM.UpdateAssumeRolePolicy
(
UpdateAssumeRolePolicy
, updateAssumeRolePolicy
, uarpPolicyDocument
, uarpRoleName
, UpdateAssumeRolePolicyResponse
, updateAssumeRolePolicyResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data UpdateAssumeRolePolicy = UpdateAssumeRolePolicy
{ _uarpPolicyDocument :: Text
, _uarpRoleName :: Text
} deriving (Eq, Ord, Show)
updateAssumeRolePolicy :: Text
-> Text
-> UpdateAssumeRolePolicy
updateAssumeRolePolicy p1 p2 = UpdateAssumeRolePolicy
{ _uarpRoleName = p1
, _uarpPolicyDocument = p2
}
uarpPolicyDocument :: Lens' UpdateAssumeRolePolicy Text
uarpPolicyDocument =
lens _uarpPolicyDocument (\s a -> s { _uarpPolicyDocument = a })
uarpRoleName :: Lens' UpdateAssumeRolePolicy Text
uarpRoleName = lens _uarpRoleName (\s a -> s { _uarpRoleName = a })
data UpdateAssumeRolePolicyResponse = UpdateAssumeRolePolicyResponse
deriving (Eq, Ord, Show, Generic)
updateAssumeRolePolicyResponse :: UpdateAssumeRolePolicyResponse
updateAssumeRolePolicyResponse = UpdateAssumeRolePolicyResponse
instance ToPath UpdateAssumeRolePolicy where
toPath = const "/"
instance ToQuery UpdateAssumeRolePolicy where
toQuery UpdateAssumeRolePolicy{..} = mconcat
[ "PolicyDocument" =? _uarpPolicyDocument
, "RoleName" =? _uarpRoleName
]
instance ToHeaders UpdateAssumeRolePolicy
instance AWSRequest UpdateAssumeRolePolicy where
type Sv UpdateAssumeRolePolicy = IAM
type Rs UpdateAssumeRolePolicy = UpdateAssumeRolePolicyResponse
request = post "UpdateAssumeRolePolicy"
response = nullResponse UpdateAssumeRolePolicyResponse