module Network.AWS.Glue.BatchDeleteTable
(
batchDeleteTable
, BatchDeleteTable
, bdtCatalogId
, bdtDatabaseName
, bdtTablesToDelete
, batchDeleteTableResponse
, BatchDeleteTableResponse
, bdtrsErrors
, bdtrsResponseStatus
) where
import Network.AWS.Glue.Types
import Network.AWS.Glue.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data BatchDeleteTable = BatchDeleteTable'
{ _bdtCatalogId :: !(Maybe Text)
, _bdtDatabaseName :: !Text
, _bdtTablesToDelete :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
batchDeleteTable
:: Text
-> BatchDeleteTable
batchDeleteTable pDatabaseName_ =
BatchDeleteTable'
{ _bdtCatalogId = Nothing
, _bdtDatabaseName = pDatabaseName_
, _bdtTablesToDelete = mempty
}
bdtCatalogId :: Lens' BatchDeleteTable (Maybe Text)
bdtCatalogId = lens _bdtCatalogId (\ s a -> s{_bdtCatalogId = a});
bdtDatabaseName :: Lens' BatchDeleteTable Text
bdtDatabaseName = lens _bdtDatabaseName (\ s a -> s{_bdtDatabaseName = a});
bdtTablesToDelete :: Lens' BatchDeleteTable [Text]
bdtTablesToDelete = lens _bdtTablesToDelete (\ s a -> s{_bdtTablesToDelete = a}) . _Coerce;
instance AWSRequest BatchDeleteTable where
type Rs BatchDeleteTable = BatchDeleteTableResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
BatchDeleteTableResponse' <$>
(x .?> "Errors" .!@ mempty) <*> (pure (fromEnum s)))
instance Hashable BatchDeleteTable where
instance NFData BatchDeleteTable where
instance ToHeaders BatchDeleteTable where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.BatchDeleteTable" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON BatchDeleteTable where
toJSON BatchDeleteTable'{..}
= object
(catMaybes
[("CatalogId" .=) <$> _bdtCatalogId,
Just ("DatabaseName" .= _bdtDatabaseName),
Just ("TablesToDelete" .= _bdtTablesToDelete)])
instance ToPath BatchDeleteTable where
toPath = const "/"
instance ToQuery BatchDeleteTable where
toQuery = const mempty
data BatchDeleteTableResponse = BatchDeleteTableResponse'
{ _bdtrsErrors :: !(Maybe [TableError])
, _bdtrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
batchDeleteTableResponse
:: Int
-> BatchDeleteTableResponse
batchDeleteTableResponse pResponseStatus_ =
BatchDeleteTableResponse'
{_bdtrsErrors = Nothing, _bdtrsResponseStatus = pResponseStatus_}
bdtrsErrors :: Lens' BatchDeleteTableResponse [TableError]
bdtrsErrors = lens _bdtrsErrors (\ s a -> s{_bdtrsErrors = a}) . _Default . _Coerce;
bdtrsResponseStatus :: Lens' BatchDeleteTableResponse Int
bdtrsResponseStatus = lens _bdtrsResponseStatus (\ s a -> s{_bdtrsResponseStatus = a});
instance NFData BatchDeleteTableResponse where