module Network.AWS.IAM.RemoveUserFromGroup
(
removeUserFromGroup
, RemoveUserFromGroup
, rufgGroupName
, rufgUserName
, removeUserFromGroupResponse
, RemoveUserFromGroupResponse
) 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 RemoveUserFromGroup = RemoveUserFromGroup'
{ _rufgGroupName :: !Text
, _rufgUserName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
removeUserFromGroup
:: Text
-> Text
-> RemoveUserFromGroup
removeUserFromGroup pGroupName_ pUserName_ =
RemoveUserFromGroup'
{ _rufgGroupName = pGroupName_
, _rufgUserName = pUserName_
}
rufgGroupName :: Lens' RemoveUserFromGroup Text
rufgGroupName = lens _rufgGroupName (\ s a -> s{_rufgGroupName = a});
rufgUserName :: Lens' RemoveUserFromGroup Text
rufgUserName = lens _rufgUserName (\ s a -> s{_rufgUserName = a});
instance AWSRequest RemoveUserFromGroup where
type Rs RemoveUserFromGroup =
RemoveUserFromGroupResponse
request = postQuery iam
response = receiveNull RemoveUserFromGroupResponse'
instance Hashable RemoveUserFromGroup
instance NFData RemoveUserFromGroup
instance ToHeaders RemoveUserFromGroup where
toHeaders = const mempty
instance ToPath RemoveUserFromGroup where
toPath = const "/"
instance ToQuery RemoveUserFromGroup where
toQuery RemoveUserFromGroup'{..}
= mconcat
["Action" =: ("RemoveUserFromGroup" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"GroupName" =: _rufgGroupName,
"UserName" =: _rufgUserName]
data RemoveUserFromGroupResponse =
RemoveUserFromGroupResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
removeUserFromGroupResponse
:: RemoveUserFromGroupResponse
removeUserFromGroupResponse = RemoveUserFromGroupResponse'
instance NFData RemoveUserFromGroupResponse