module Network.AWS.IAM.AttachGroupPolicy
(
attachGroupPolicy
, AttachGroupPolicy
, agpGroupName
, agpPolicyARN
, attachGroupPolicyResponse
, AttachGroupPolicyResponse
) 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 AttachGroupPolicy = AttachGroupPolicy'
{ _agpGroupName :: !Text
, _agpPolicyARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
attachGroupPolicy
:: Text
-> Text
-> AttachGroupPolicy
attachGroupPolicy pGroupName_ pPolicyARN_ =
AttachGroupPolicy'
{ _agpGroupName = pGroupName_
, _agpPolicyARN = pPolicyARN_
}
agpGroupName :: Lens' AttachGroupPolicy Text
agpGroupName = lens _agpGroupName (\ s a -> s{_agpGroupName = a});
agpPolicyARN :: Lens' AttachGroupPolicy Text
agpPolicyARN = lens _agpPolicyARN (\ s a -> s{_agpPolicyARN = a});
instance AWSRequest AttachGroupPolicy where
type Rs AttachGroupPolicy = AttachGroupPolicyResponse
request = postQuery iam
response = receiveNull AttachGroupPolicyResponse'
instance Hashable AttachGroupPolicy
instance NFData AttachGroupPolicy
instance ToHeaders AttachGroupPolicy where
toHeaders = const mempty
instance ToPath AttachGroupPolicy where
toPath = const "/"
instance ToQuery AttachGroupPolicy where
toQuery AttachGroupPolicy'{..}
= mconcat
["Action" =: ("AttachGroupPolicy" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"GroupName" =: _agpGroupName,
"PolicyArn" =: _agpPolicyARN]
data AttachGroupPolicyResponse =
AttachGroupPolicyResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
attachGroupPolicyResponse
:: AttachGroupPolicyResponse
attachGroupPolicyResponse = AttachGroupPolicyResponse'
instance NFData AttachGroupPolicyResponse