module Network.AWS.IAM.AddUserToGroup
(
addUserToGroup
, AddUserToGroup
, autgGroupName
, autgUserName
, addUserToGroupResponse
, AddUserToGroupResponse
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data AddUserToGroup = AddUserToGroup'
{ _autgGroupName :: !Text
, _autgUserName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
addUserToGroup
:: Text
-> Text
-> AddUserToGroup
addUserToGroup pGroupName_ pUserName_ =
AddUserToGroup'
{ _autgGroupName = pGroupName_
, _autgUserName = pUserName_
}
autgGroupName :: Lens' AddUserToGroup Text
autgGroupName = lens _autgGroupName (\ s a -> s{_autgGroupName = a});
autgUserName :: Lens' AddUserToGroup Text
autgUserName = lens _autgUserName (\ s a -> s{_autgUserName = a});
instance AWSRequest AddUserToGroup where
type Sv AddUserToGroup = IAM
type Rs AddUserToGroup = AddUserToGroupResponse
request = postQuery
response = receiveNull AddUserToGroupResponse'
instance ToHeaders AddUserToGroup where
toHeaders = const mempty
instance ToPath AddUserToGroup where
toPath = const "/"
instance ToQuery AddUserToGroup where
toQuery AddUserToGroup'{..}
= mconcat
["Action" =: ("AddUserToGroup" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"GroupName" =: _autgGroupName,
"UserName" =: _autgUserName]
data AddUserToGroupResponse =
AddUserToGroupResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
addUserToGroupResponse
:: AddUserToGroupResponse
addUserToGroupResponse = AddUserToGroupResponse'