{-# 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.DisassociateDelegateFromResource
(
disassociateDelegateFromResource
, DisassociateDelegateFromResource
, ddfrOrganizationId
, ddfrResourceId
, ddfrEntityId
, disassociateDelegateFromResourceResponse
, DisassociateDelegateFromResourceResponse
, ddfrrsResponseStatus
) 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 DisassociateDelegateFromResource = DisassociateDelegateFromResource'
{ _ddfrOrganizationId :: !Text
, _ddfrResourceId :: !Text
, _ddfrEntityId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disassociateDelegateFromResource
:: Text
-> Text
-> Text
-> DisassociateDelegateFromResource
disassociateDelegateFromResource pOrganizationId_ pResourceId_ pEntityId_ =
DisassociateDelegateFromResource'
{ _ddfrOrganizationId = pOrganizationId_
, _ddfrResourceId = pResourceId_
, _ddfrEntityId = pEntityId_
}
ddfrOrganizationId :: Lens' DisassociateDelegateFromResource Text
ddfrOrganizationId = lens _ddfrOrganizationId (\ s a -> s{_ddfrOrganizationId = a})
ddfrResourceId :: Lens' DisassociateDelegateFromResource Text
ddfrResourceId = lens _ddfrResourceId (\ s a -> s{_ddfrResourceId = a})
ddfrEntityId :: Lens' DisassociateDelegateFromResource Text
ddfrEntityId = lens _ddfrEntityId (\ s a -> s{_ddfrEntityId = a})
instance AWSRequest DisassociateDelegateFromResource
where
type Rs DisassociateDelegateFromResource =
DisassociateDelegateFromResourceResponse
request = postJSON workMail
response
= receiveEmpty
(\ s h x ->
DisassociateDelegateFromResourceResponse' <$>
(pure (fromEnum s)))
instance Hashable DisassociateDelegateFromResource
where
instance NFData DisassociateDelegateFromResource
where
instance ToHeaders DisassociateDelegateFromResource
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("WorkMailService.DisassociateDelegateFromResource"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DisassociateDelegateFromResource
where
toJSON DisassociateDelegateFromResource'{..}
= object
(catMaybes
[Just ("OrganizationId" .= _ddfrOrganizationId),
Just ("ResourceId" .= _ddfrResourceId),
Just ("EntityId" .= _ddfrEntityId)])
instance ToPath DisassociateDelegateFromResource
where
toPath = const "/"
instance ToQuery DisassociateDelegateFromResource
where
toQuery = const mempty
newtype DisassociateDelegateFromResourceResponse = DisassociateDelegateFromResourceResponse'
{ _ddfrrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disassociateDelegateFromResourceResponse
:: Int
-> DisassociateDelegateFromResourceResponse
disassociateDelegateFromResourceResponse pResponseStatus_ =
DisassociateDelegateFromResourceResponse'
{_ddfrrsResponseStatus = pResponseStatus_}
ddfrrsResponseStatus :: Lens' DisassociateDelegateFromResourceResponse Int
ddfrrsResponseStatus = lens _ddfrrsResponseStatus (\ s a -> s{_ddfrrsResponseStatus = a})
instance NFData
DisassociateDelegateFromResourceResponse
where