{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.WorkMail.DisassociateMemberFromGroup
(
disassociateMemberFromGroup
, DisassociateMemberFromGroup
, dmfgOrganizationId
, dmfgGroupId
, dmfgMemberId
, disassociateMemberFromGroupResponse
, DisassociateMemberFromGroupResponse
, dmfgrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.WorkMail.Types
import Network.AWS.WorkMail.Types.Product
data DisassociateMemberFromGroup = DisassociateMemberFromGroup'
{ _dmfgOrganizationId :: !Text
, _dmfgGroupId :: !Text
, _dmfgMemberId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disassociateMemberFromGroup
:: Text
-> Text
-> Text
-> DisassociateMemberFromGroup
disassociateMemberFromGroup pOrganizationId_ pGroupId_ pMemberId_ =
DisassociateMemberFromGroup'
{ _dmfgOrganizationId = pOrganizationId_
, _dmfgGroupId = pGroupId_
, _dmfgMemberId = pMemberId_
}
dmfgOrganizationId :: Lens' DisassociateMemberFromGroup Text
dmfgOrganizationId = lens _dmfgOrganizationId (\ s a -> s{_dmfgOrganizationId = a})
dmfgGroupId :: Lens' DisassociateMemberFromGroup Text
dmfgGroupId = lens _dmfgGroupId (\ s a -> s{_dmfgGroupId = a})
dmfgMemberId :: Lens' DisassociateMemberFromGroup Text
dmfgMemberId = lens _dmfgMemberId (\ s a -> s{_dmfgMemberId = a})
instance AWSRequest DisassociateMemberFromGroup where
type Rs DisassociateMemberFromGroup =
DisassociateMemberFromGroupResponse
request = postJSON workMail
response
= receiveEmpty
(\ s h x ->
DisassociateMemberFromGroupResponse' <$>
(pure (fromEnum s)))
instance Hashable DisassociateMemberFromGroup where
instance NFData DisassociateMemberFromGroup where
instance ToHeaders DisassociateMemberFromGroup where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("WorkMailService.DisassociateMemberFromGroup" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DisassociateMemberFromGroup where
toJSON DisassociateMemberFromGroup'{..}
= object
(catMaybes
[Just ("OrganizationId" .= _dmfgOrganizationId),
Just ("GroupId" .= _dmfgGroupId),
Just ("MemberId" .= _dmfgMemberId)])
instance ToPath DisassociateMemberFromGroup where
toPath = const "/"
instance ToQuery DisassociateMemberFromGroup where
toQuery = const mempty
newtype DisassociateMemberFromGroupResponse = DisassociateMemberFromGroupResponse'
{ _dmfgrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disassociateMemberFromGroupResponse
:: Int
-> DisassociateMemberFromGroupResponse
disassociateMemberFromGroupResponse pResponseStatus_ =
DisassociateMemberFromGroupResponse'
{_dmfgrsResponseStatus = pResponseStatus_}
dmfgrsResponseStatus :: Lens' DisassociateMemberFromGroupResponse Int
dmfgrsResponseStatus = lens _dmfgrsResponseStatus (\ s a -> s{_dmfgrsResponseStatus = a})
instance NFData DisassociateMemberFromGroupResponse
where