module Network.AWS.Support.AddAttachmentsToSet
(
addAttachmentsToSet
, AddAttachmentsToSet
, aatsAttachmentSetId
, aatsAttachments
, addAttachmentsToSetResponse
, AddAttachmentsToSetResponse
, aatsrsExpiryTime
, aatsrsAttachmentSetId
, aatsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Support.Types
import Network.AWS.Support.Types.Product
data AddAttachmentsToSet = AddAttachmentsToSet'
{ _aatsAttachmentSetId :: !(Maybe Text)
, _aatsAttachments :: ![Attachment]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
addAttachmentsToSet
:: AddAttachmentsToSet
addAttachmentsToSet =
AddAttachmentsToSet'
{ _aatsAttachmentSetId = Nothing
, _aatsAttachments = mempty
}
aatsAttachmentSetId :: Lens' AddAttachmentsToSet (Maybe Text)
aatsAttachmentSetId = lens _aatsAttachmentSetId (\ s a -> s{_aatsAttachmentSetId = a});
aatsAttachments :: Lens' AddAttachmentsToSet [Attachment]
aatsAttachments = lens _aatsAttachments (\ s a -> s{_aatsAttachments = a}) . _Coerce;
instance AWSRequest AddAttachmentsToSet where
type Rs AddAttachmentsToSet =
AddAttachmentsToSetResponse
request = postJSON support
response
= receiveJSON
(\ s h x ->
AddAttachmentsToSetResponse' <$>
(x .?> "expiryTime") <*> (x .?> "attachmentSetId")
<*> (pure (fromEnum s)))
instance Hashable AddAttachmentsToSet
instance NFData AddAttachmentsToSet
instance ToHeaders AddAttachmentsToSet where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSSupport_20130415.AddAttachmentsToSet" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AddAttachmentsToSet where
toJSON AddAttachmentsToSet'{..}
= object
(catMaybes
[("attachmentSetId" .=) <$> _aatsAttachmentSetId,
Just ("attachments" .= _aatsAttachments)])
instance ToPath AddAttachmentsToSet where
toPath = const "/"
instance ToQuery AddAttachmentsToSet where
toQuery = const mempty
data AddAttachmentsToSetResponse = AddAttachmentsToSetResponse'
{ _aatsrsExpiryTime :: !(Maybe Text)
, _aatsrsAttachmentSetId :: !(Maybe Text)
, _aatsrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
addAttachmentsToSetResponse
:: Int
-> AddAttachmentsToSetResponse
addAttachmentsToSetResponse pResponseStatus_ =
AddAttachmentsToSetResponse'
{ _aatsrsExpiryTime = Nothing
, _aatsrsAttachmentSetId = Nothing
, _aatsrsResponseStatus = pResponseStatus_
}
aatsrsExpiryTime :: Lens' AddAttachmentsToSetResponse (Maybe Text)
aatsrsExpiryTime = lens _aatsrsExpiryTime (\ s a -> s{_aatsrsExpiryTime = a});
aatsrsAttachmentSetId :: Lens' AddAttachmentsToSetResponse (Maybe Text)
aatsrsAttachmentSetId = lens _aatsrsAttachmentSetId (\ s a -> s{_aatsrsAttachmentSetId = a});
aatsrsResponseStatus :: Lens' AddAttachmentsToSetResponse Int
aatsrsResponseStatus = lens _aatsrsResponseStatus (\ s a -> s{_aatsrsResponseStatus = a});
instance NFData AddAttachmentsToSetResponse