{-# 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.DeletePartition
(
deletePartition
, DeletePartition
, dpCatalogId
, dpDatabaseName
, dpTableName
, dpPartitionValues
, deletePartitionResponse
, DeletePartitionResponse
, dprsResponseStatus
) 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 DeletePartition = DeletePartition'
{ _dpCatalogId :: !(Maybe Text)
, _dpDatabaseName :: !Text
, _dpTableName :: !Text
, _dpPartitionValues :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deletePartition
:: Text
-> Text
-> DeletePartition
deletePartition pDatabaseName_ pTableName_ =
DeletePartition'
{ _dpCatalogId = Nothing
, _dpDatabaseName = pDatabaseName_
, _dpTableName = pTableName_
, _dpPartitionValues = mempty
}
dpCatalogId :: Lens' DeletePartition (Maybe Text)
dpCatalogId = lens _dpCatalogId (\ s a -> s{_dpCatalogId = a})
dpDatabaseName :: Lens' DeletePartition Text
dpDatabaseName = lens _dpDatabaseName (\ s a -> s{_dpDatabaseName = a})
dpTableName :: Lens' DeletePartition Text
dpTableName = lens _dpTableName (\ s a -> s{_dpTableName = a})
dpPartitionValues :: Lens' DeletePartition [Text]
dpPartitionValues = lens _dpPartitionValues (\ s a -> s{_dpPartitionValues = a}) . _Coerce
instance AWSRequest DeletePartition where
type Rs DeletePartition = DeletePartitionResponse
request = postJSON glue
response
= receiveEmpty
(\ s h x ->
DeletePartitionResponse' <$> (pure (fromEnum s)))
instance Hashable DeletePartition where
instance NFData DeletePartition where
instance ToHeaders DeletePartition where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.DeletePartition" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeletePartition where
toJSON DeletePartition'{..}
= object
(catMaybes
[("CatalogId" .=) <$> _dpCatalogId,
Just ("DatabaseName" .= _dpDatabaseName),
Just ("TableName" .= _dpTableName),
Just ("PartitionValues" .= _dpPartitionValues)])
instance ToPath DeletePartition where
toPath = const "/"
instance ToQuery DeletePartition where
toQuery = const mempty
newtype DeletePartitionResponse = DeletePartitionResponse'
{ _dprsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deletePartitionResponse
:: Int
-> DeletePartitionResponse
deletePartitionResponse pResponseStatus_ =
DeletePartitionResponse' {_dprsResponseStatus = pResponseStatus_}
dprsResponseStatus :: Lens' DeletePartitionResponse Int
dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a})
instance NFData DeletePartitionResponse where