{-# 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.UpdateClassifier
(
updateClassifier
, UpdateClassifier
, ucGrokClassifier
, ucXMLClassifier
, ucJSONClassifier
, updateClassifierResponse
, UpdateClassifierResponse
, ursResponseStatus
) 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 UpdateClassifier = UpdateClassifier'
{ _ucGrokClassifier :: !(Maybe UpdateGrokClassifierRequest)
, _ucXMLClassifier :: !(Maybe UpdateXMLClassifierRequest)
, _ucJSONClassifier :: !(Maybe UpdateJSONClassifierRequest)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateClassifier
:: UpdateClassifier
updateClassifier =
UpdateClassifier'
{ _ucGrokClassifier = Nothing
, _ucXMLClassifier = Nothing
, _ucJSONClassifier = Nothing
}
ucGrokClassifier :: Lens' UpdateClassifier (Maybe UpdateGrokClassifierRequest)
ucGrokClassifier = lens _ucGrokClassifier (\ s a -> s{_ucGrokClassifier = a})
ucXMLClassifier :: Lens' UpdateClassifier (Maybe UpdateXMLClassifierRequest)
ucXMLClassifier = lens _ucXMLClassifier (\ s a -> s{_ucXMLClassifier = a})
ucJSONClassifier :: Lens' UpdateClassifier (Maybe UpdateJSONClassifierRequest)
ucJSONClassifier = lens _ucJSONClassifier (\ s a -> s{_ucJSONClassifier = a})
instance AWSRequest UpdateClassifier where
type Rs UpdateClassifier = UpdateClassifierResponse
request = postJSON glue
response
= receiveEmpty
(\ s h x ->
UpdateClassifierResponse' <$> (pure (fromEnum s)))
instance Hashable UpdateClassifier where
instance NFData UpdateClassifier where
instance ToHeaders UpdateClassifier where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.UpdateClassifier" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateClassifier where
toJSON UpdateClassifier'{..}
= object
(catMaybes
[("GrokClassifier" .=) <$> _ucGrokClassifier,
("XMLClassifier" .=) <$> _ucXMLClassifier,
("JsonClassifier" .=) <$> _ucJSONClassifier])
instance ToPath UpdateClassifier where
toPath = const "/"
instance ToQuery UpdateClassifier where
toQuery = const mempty
newtype UpdateClassifierResponse = UpdateClassifierResponse'
{ _ursResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateClassifierResponse
:: Int
-> UpdateClassifierResponse
updateClassifierResponse pResponseStatus_ =
UpdateClassifierResponse' {_ursResponseStatus = pResponseStatus_}
ursResponseStatus :: Lens' UpdateClassifierResponse Int
ursResponseStatus = lens _ursResponseStatus (\ s a -> s{_ursResponseStatus = a})
instance NFData UpdateClassifierResponse where