module Network.AWS.Glue.DeleteTable
(
deleteTable
, DeleteTable
, dtCatalogId
, dtDatabaseName
, dtName
, deleteTableResponse
, DeleteTableResponse
, dtrsResponseStatus
) 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 DeleteTable = DeleteTable'
{ _dtCatalogId :: !(Maybe Text)
, _dtDatabaseName :: !Text
, _dtName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTable
:: Text
-> Text
-> DeleteTable
deleteTable pDatabaseName_ pName_ =
DeleteTable'
{_dtCatalogId = Nothing, _dtDatabaseName = pDatabaseName_, _dtName = pName_}
dtCatalogId :: Lens' DeleteTable (Maybe Text)
dtCatalogId = lens _dtCatalogId (\ s a -> s{_dtCatalogId = a});
dtDatabaseName :: Lens' DeleteTable Text
dtDatabaseName = lens _dtDatabaseName (\ s a -> s{_dtDatabaseName = a});
dtName :: Lens' DeleteTable Text
dtName = lens _dtName (\ s a -> s{_dtName = a});
instance AWSRequest DeleteTable where
type Rs DeleteTable = DeleteTableResponse
request = postJSON glue
response
= receiveEmpty
(\ s h x ->
DeleteTableResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteTable where
instance NFData DeleteTable where
instance ToHeaders DeleteTable where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.DeleteTable" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteTable where
toJSON DeleteTable'{..}
= object
(catMaybes
[("CatalogId" .=) <$> _dtCatalogId,
Just ("DatabaseName" .= _dtDatabaseName),
Just ("Name" .= _dtName)])
instance ToPath DeleteTable where
toPath = const "/"
instance ToQuery DeleteTable where
toQuery = const mempty
newtype DeleteTableResponse = DeleteTableResponse'
{ _dtrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTableResponse
:: Int
-> DeleteTableResponse
deleteTableResponse pResponseStatus_ =
DeleteTableResponse' {_dtrsResponseStatus = pResponseStatus_}
dtrsResponseStatus :: Lens' DeleteTableResponse Int
dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});
instance NFData DeleteTableResponse where