module Network.AWS.IAM.GetRolePolicy
(
getRolePolicy
, GetRolePolicy
, grpRoleName
, grpPolicyName
, getRolePolicyResponse
, GetRolePolicyResponse
, grprsResponseStatus
, grprsRoleName
, grprsPolicyName
, grprsPolicyDocument
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetRolePolicy = GetRolePolicy'
{ _grpRoleName :: !Text
, _grpPolicyName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getRolePolicy
:: Text
-> Text
-> GetRolePolicy
getRolePolicy pRoleName_ pPolicyName_ =
GetRolePolicy'
{ _grpRoleName = pRoleName_
, _grpPolicyName = pPolicyName_
}
grpRoleName :: Lens' GetRolePolicy Text
grpRoleName = lens _grpRoleName (\ s a -> s{_grpRoleName = a});
grpPolicyName :: Lens' GetRolePolicy Text
grpPolicyName = lens _grpPolicyName (\ s a -> s{_grpPolicyName = a});
instance AWSRequest GetRolePolicy where
type Rs GetRolePolicy = GetRolePolicyResponse
request = postQuery iam
response
= receiveXMLWrapper "GetRolePolicyResult"
(\ s h x ->
GetRolePolicyResponse' <$>
(pure (fromEnum s)) <*> (x .@ "RoleName") <*>
(x .@ "PolicyName")
<*> (x .@ "PolicyDocument"))
instance Hashable GetRolePolicy
instance NFData GetRolePolicy
instance ToHeaders GetRolePolicy where
toHeaders = const mempty
instance ToPath GetRolePolicy where
toPath = const "/"
instance ToQuery GetRolePolicy where
toQuery GetRolePolicy'{..}
= mconcat
["Action" =: ("GetRolePolicy" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"RoleName" =: _grpRoleName,
"PolicyName" =: _grpPolicyName]
data GetRolePolicyResponse = GetRolePolicyResponse'
{ _grprsResponseStatus :: !Int
, _grprsRoleName :: !Text
, _grprsPolicyName :: !Text
, _grprsPolicyDocument :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getRolePolicyResponse
:: Int
-> Text
-> Text
-> Text
-> GetRolePolicyResponse
getRolePolicyResponse pResponseStatus_ pRoleName_ pPolicyName_ pPolicyDocument_ =
GetRolePolicyResponse'
{ _grprsResponseStatus = pResponseStatus_
, _grprsRoleName = pRoleName_
, _grprsPolicyName = pPolicyName_
, _grprsPolicyDocument = pPolicyDocument_
}
grprsResponseStatus :: Lens' GetRolePolicyResponse Int
grprsResponseStatus = lens _grprsResponseStatus (\ s a -> s{_grprsResponseStatus = a});
grprsRoleName :: Lens' GetRolePolicyResponse Text
grprsRoleName = lens _grprsRoleName (\ s a -> s{_grprsRoleName = a});
grprsPolicyName :: Lens' GetRolePolicyResponse Text
grprsPolicyName = lens _grprsPolicyName (\ s a -> s{_grprsPolicyName = a});
grprsPolicyDocument :: Lens' GetRolePolicyResponse Text
grprsPolicyDocument = lens _grprsPolicyDocument (\ s a -> s{_grprsPolicyDocument = a});
instance NFData GetRolePolicyResponse