{-# 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.ListMailboxPermissions
(
listMailboxPermissions
, ListMailboxPermissions
, lmpNextToken
, lmpMaxResults
, lmpOrganizationId
, lmpEntityId
, listMailboxPermissionsResponse
, ListMailboxPermissionsResponse
, lmprsNextToken
, lmprsPermissions
, lmprsResponseStatus
) 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 ListMailboxPermissions = ListMailboxPermissions'
{ _lmpNextToken :: !(Maybe Text)
, _lmpMaxResults :: !(Maybe Nat)
, _lmpOrganizationId :: !Text
, _lmpEntityId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listMailboxPermissions
:: Text
-> Text
-> ListMailboxPermissions
listMailboxPermissions pOrganizationId_ pEntityId_ =
ListMailboxPermissions'
{ _lmpNextToken = Nothing
, _lmpMaxResults = Nothing
, _lmpOrganizationId = pOrganizationId_
, _lmpEntityId = pEntityId_
}
lmpNextToken :: Lens' ListMailboxPermissions (Maybe Text)
lmpNextToken = lens _lmpNextToken (\ s a -> s{_lmpNextToken = a})
lmpMaxResults :: Lens' ListMailboxPermissions (Maybe Natural)
lmpMaxResults = lens _lmpMaxResults (\ s a -> s{_lmpMaxResults = a}) . mapping _Nat
lmpOrganizationId :: Lens' ListMailboxPermissions Text
lmpOrganizationId = lens _lmpOrganizationId (\ s a -> s{_lmpOrganizationId = a})
lmpEntityId :: Lens' ListMailboxPermissions Text
lmpEntityId = lens _lmpEntityId (\ s a -> s{_lmpEntityId = a})
instance AWSRequest ListMailboxPermissions where
type Rs ListMailboxPermissions =
ListMailboxPermissionsResponse
request = postJSON workMail
response
= receiveJSON
(\ s h x ->
ListMailboxPermissionsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "Permissions" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListMailboxPermissions where
instance NFData ListMailboxPermissions where
instance ToHeaders ListMailboxPermissions where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("WorkMailService.ListMailboxPermissions" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListMailboxPermissions where
toJSON ListMailboxPermissions'{..}
= object
(catMaybes
[("NextToken" .=) <$> _lmpNextToken,
("MaxResults" .=) <$> _lmpMaxResults,
Just ("OrganizationId" .= _lmpOrganizationId),
Just ("EntityId" .= _lmpEntityId)])
instance ToPath ListMailboxPermissions where
toPath = const "/"
instance ToQuery ListMailboxPermissions where
toQuery = const mempty
data ListMailboxPermissionsResponse = ListMailboxPermissionsResponse'
{ _lmprsNextToken :: !(Maybe Text)
, _lmprsPermissions :: !(Maybe [Permission])
, _lmprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listMailboxPermissionsResponse
:: Int
-> ListMailboxPermissionsResponse
listMailboxPermissionsResponse pResponseStatus_ =
ListMailboxPermissionsResponse'
{ _lmprsNextToken = Nothing
, _lmprsPermissions = Nothing
, _lmprsResponseStatus = pResponseStatus_
}
lmprsNextToken :: Lens' ListMailboxPermissionsResponse (Maybe Text)
lmprsNextToken = lens _lmprsNextToken (\ s a -> s{_lmprsNextToken = a})
lmprsPermissions :: Lens' ListMailboxPermissionsResponse [Permission]
lmprsPermissions = lens _lmprsPermissions (\ s a -> s{_lmprsPermissions = a}) . _Default . _Coerce
lmprsResponseStatus :: Lens' ListMailboxPermissionsResponse Int
lmprsResponseStatus = lens _lmprsResponseStatus (\ s a -> s{_lmprsResponseStatus = a})
instance NFData ListMailboxPermissionsResponse where