module Network.AWS.SSM.DeleteResourceDataSync
(
deleteResourceDataSync
, DeleteResourceDataSync
, drdsSyncName
, deleteResourceDataSyncResponse
, DeleteResourceDataSyncResponse
, drdsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SSM.Types
import Network.AWS.SSM.Types.Product
newtype DeleteResourceDataSync = DeleteResourceDataSync'
{ _drdsSyncName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteResourceDataSync
:: Text
-> DeleteResourceDataSync
deleteResourceDataSync pSyncName_ =
DeleteResourceDataSync' {_drdsSyncName = pSyncName_}
drdsSyncName :: Lens' DeleteResourceDataSync Text
drdsSyncName = lens _drdsSyncName (\ s a -> s{_drdsSyncName = a});
instance AWSRequest DeleteResourceDataSync where
type Rs DeleteResourceDataSync =
DeleteResourceDataSyncResponse
request = postJSON ssm
response
= receiveEmpty
(\ s h x ->
DeleteResourceDataSyncResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteResourceDataSync where
instance NFData DeleteResourceDataSync where
instance ToHeaders DeleteResourceDataSync where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DeleteResourceDataSync" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteResourceDataSync where
toJSON DeleteResourceDataSync'{..}
= object
(catMaybes [Just ("SyncName" .= _drdsSyncName)])
instance ToPath DeleteResourceDataSync where
toPath = const "/"
instance ToQuery DeleteResourceDataSync where
toQuery = const mempty
newtype DeleteResourceDataSyncResponse = DeleteResourceDataSyncResponse'
{ _drdsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteResourceDataSyncResponse
:: Int
-> DeleteResourceDataSyncResponse
deleteResourceDataSyncResponse pResponseStatus_ =
DeleteResourceDataSyncResponse' {_drdsrsResponseStatus = pResponseStatus_}
drdsrsResponseStatus :: Lens' DeleteResourceDataSyncResponse Int
drdsrsResponseStatus = lens _drdsrsResponseStatus (\ s a -> s{_drdsrsResponseStatus = a});
instance NFData DeleteResourceDataSyncResponse where