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