{-# 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.DeleteConnection
(
deleteConnection
, DeleteConnection
, dcCatalogId
, dcConnectionName
, deleteConnectionResponse
, DeleteConnectionResponse
, dcrsResponseStatus
) 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 DeleteConnection = DeleteConnection'
{ _dcCatalogId :: !(Maybe Text)
, _dcConnectionName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteConnection
:: Text
-> DeleteConnection
deleteConnection pConnectionName_ =
DeleteConnection'
{_dcCatalogId = Nothing, _dcConnectionName = pConnectionName_}
dcCatalogId :: Lens' DeleteConnection (Maybe Text)
dcCatalogId = lens _dcCatalogId (\ s a -> s{_dcCatalogId = a})
dcConnectionName :: Lens' DeleteConnection Text
dcConnectionName = lens _dcConnectionName (\ s a -> s{_dcConnectionName = a})
instance AWSRequest DeleteConnection where
type Rs DeleteConnection = DeleteConnectionResponse
request = postJSON glue
response
= receiveEmpty
(\ s h x ->
DeleteConnectionResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteConnection where
instance NFData DeleteConnection where
instance ToHeaders DeleteConnection where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.DeleteConnection" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteConnection where
toJSON DeleteConnection'{..}
= object
(catMaybes
[("CatalogId" .=) <$> _dcCatalogId,
Just ("ConnectionName" .= _dcConnectionName)])
instance ToPath DeleteConnection where
toPath = const "/"
instance ToQuery DeleteConnection where
toQuery = const mempty
newtype DeleteConnectionResponse = DeleteConnectionResponse'
{ _dcrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteConnectionResponse
:: Int
-> DeleteConnectionResponse
deleteConnectionResponse pResponseStatus_ =
DeleteConnectionResponse' {_dcrsResponseStatus = pResponseStatus_}
dcrsResponseStatus :: Lens' DeleteConnectionResponse Int
dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})
instance NFData DeleteConnectionResponse where