module Network.AWS.Glue.DeleteClassifier
(
deleteClassifier
, DeleteClassifier
, delName
, deleteClassifierResponse
, DeleteClassifierResponse
, drsResponseStatus
) 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
newtype DeleteClassifier = DeleteClassifier'
{ _delName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteClassifier
:: Text
-> DeleteClassifier
deleteClassifier pName_ = DeleteClassifier' {_delName = pName_}
delName :: Lens' DeleteClassifier Text
delName = lens _delName (\ s a -> s{_delName = a});
instance AWSRequest DeleteClassifier where
type Rs DeleteClassifier = DeleteClassifierResponse
request = postJSON glue
response
= receiveEmpty
(\ s h x ->
DeleteClassifierResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteClassifier where
instance NFData DeleteClassifier where
instance ToHeaders DeleteClassifier where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.DeleteClassifier" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteClassifier where
toJSON DeleteClassifier'{..}
= object (catMaybes [Just ("Name" .= _delName)])
instance ToPath DeleteClassifier where
toPath = const "/"
instance ToQuery DeleteClassifier where
toQuery = const mempty
newtype DeleteClassifierResponse = DeleteClassifierResponse'
{ _drsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteClassifierResponse
:: Int
-> DeleteClassifierResponse
deleteClassifierResponse pResponseStatus_ =
DeleteClassifierResponse' {_drsResponseStatus = pResponseStatus_}
drsResponseStatus :: Lens' DeleteClassifierResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
instance NFData DeleteClassifierResponse where