{-# 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.UpdateResource
(
updateResource
, UpdateResource
, urName
, urBookingOptions
, urOrganizationId
, urResourceId
, updateResourceResponse
, UpdateResourceResponse
, urrsResponseStatus
) 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 UpdateResource = UpdateResource'
{ _urName :: !(Maybe Text)
, _urBookingOptions :: !(Maybe BookingOptions)
, _urOrganizationId :: !Text
, _urResourceId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateResource
:: Text
-> Text
-> UpdateResource
updateResource pOrganizationId_ pResourceId_ =
UpdateResource'
{ _urName = Nothing
, _urBookingOptions = Nothing
, _urOrganizationId = pOrganizationId_
, _urResourceId = pResourceId_
}
urName :: Lens' UpdateResource (Maybe Text)
urName = lens _urName (\ s a -> s{_urName = a})
urBookingOptions :: Lens' UpdateResource (Maybe BookingOptions)
urBookingOptions = lens _urBookingOptions (\ s a -> s{_urBookingOptions = a})
urOrganizationId :: Lens' UpdateResource Text
urOrganizationId = lens _urOrganizationId (\ s a -> s{_urOrganizationId = a})
urResourceId :: Lens' UpdateResource Text
urResourceId = lens _urResourceId (\ s a -> s{_urResourceId = a})
instance AWSRequest UpdateResource where
type Rs UpdateResource = UpdateResourceResponse
request = postJSON workMail
response
= receiveEmpty
(\ s h x ->
UpdateResourceResponse' <$> (pure (fromEnum s)))
instance Hashable UpdateResource where
instance NFData UpdateResource where
instance ToHeaders UpdateResource where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("WorkMailService.UpdateResource" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateResource where
toJSON UpdateResource'{..}
= object
(catMaybes
[("Name" .=) <$> _urName,
("BookingOptions" .=) <$> _urBookingOptions,
Just ("OrganizationId" .= _urOrganizationId),
Just ("ResourceId" .= _urResourceId)])
instance ToPath UpdateResource where
toPath = const "/"
instance ToQuery UpdateResource where
toQuery = const mempty
newtype UpdateResourceResponse = UpdateResourceResponse'
{ _urrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateResourceResponse
:: Int
-> UpdateResourceResponse
updateResourceResponse pResponseStatus_ =
UpdateResourceResponse' {_urrsResponseStatus = pResponseStatus_}
urrsResponseStatus :: Lens' UpdateResourceResponse Int
urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a})
instance NFData UpdateResourceResponse where