{-# 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.Glue.DeleteTableVersion
(
deleteTableVersion
, DeleteTableVersion
, dtvCatalogId
, dtvDatabaseName
, dtvTableName
, dtvVersionId
, deleteTableVersionResponse
, DeleteTableVersionResponse
, dtvrsResponseStatus
) 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 DeleteTableVersion = DeleteTableVersion'
{ _dtvCatalogId :: !(Maybe Text)
, _dtvDatabaseName :: !Text
, _dtvTableName :: !Text
, _dtvVersionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTableVersion
:: Text
-> Text
-> Text
-> DeleteTableVersion
deleteTableVersion pDatabaseName_ pTableName_ pVersionId_ =
DeleteTableVersion'
{ _dtvCatalogId = Nothing
, _dtvDatabaseName = pDatabaseName_
, _dtvTableName = pTableName_
, _dtvVersionId = pVersionId_
}
dtvCatalogId :: Lens' DeleteTableVersion (Maybe Text)
dtvCatalogId = lens _dtvCatalogId (\ s a -> s{_dtvCatalogId = a})
dtvDatabaseName :: Lens' DeleteTableVersion Text
dtvDatabaseName = lens _dtvDatabaseName (\ s a -> s{_dtvDatabaseName = a})
dtvTableName :: Lens' DeleteTableVersion Text
dtvTableName = lens _dtvTableName (\ s a -> s{_dtvTableName = a})
dtvVersionId :: Lens' DeleteTableVersion Text
dtvVersionId = lens _dtvVersionId (\ s a -> s{_dtvVersionId = a})
instance AWSRequest DeleteTableVersion where
type Rs DeleteTableVersion =
DeleteTableVersionResponse
request = postJSON glue
response
= receiveEmpty
(\ s h x ->
DeleteTableVersionResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteTableVersion where
instance NFData DeleteTableVersion where
instance ToHeaders DeleteTableVersion where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.DeleteTableVersion" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteTableVersion where
toJSON DeleteTableVersion'{..}
= object
(catMaybes
[("CatalogId" .=) <$> _dtvCatalogId,
Just ("DatabaseName" .= _dtvDatabaseName),
Just ("TableName" .= _dtvTableName),
Just ("VersionId" .= _dtvVersionId)])
instance ToPath DeleteTableVersion where
toPath = const "/"
instance ToQuery DeleteTableVersion where
toQuery = const mempty
newtype DeleteTableVersionResponse = DeleteTableVersionResponse'
{ _dtvrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTableVersionResponse
:: Int
-> DeleteTableVersionResponse
deleteTableVersionResponse pResponseStatus_ =
DeleteTableVersionResponse' {_dtvrsResponseStatus = pResponseStatus_}
dtvrsResponseStatus :: Lens' DeleteTableVersionResponse Int
dtvrsResponseStatus = lens _dtvrsResponseStatus (\ s a -> s{_dtvrsResponseStatus = a})
instance NFData DeleteTableVersionResponse where