module Network.AWS.KinesisAnalytics.DeleteApplicationCloudWatchLoggingOption
(
deleteApplicationCloudWatchLoggingOption
, DeleteApplicationCloudWatchLoggingOption
, dacwloApplicationName
, dacwloCurrentApplicationVersionId
, dacwloCloudWatchLoggingOptionId
, deleteApplicationCloudWatchLoggingOptionResponse
, DeleteApplicationCloudWatchLoggingOptionResponse
, dacwlorsResponseStatus
) where
import Network.AWS.KinesisAnalytics.Types
import Network.AWS.KinesisAnalytics.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteApplicationCloudWatchLoggingOption = DeleteApplicationCloudWatchLoggingOption'
{ _dacwloApplicationName :: !Text
, _dacwloCurrentApplicationVersionId :: !Nat
, _dacwloCloudWatchLoggingOptionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteApplicationCloudWatchLoggingOption
:: Text
-> Natural
-> Text
-> DeleteApplicationCloudWatchLoggingOption
deleteApplicationCloudWatchLoggingOption pApplicationName_ pCurrentApplicationVersionId_ pCloudWatchLoggingOptionId_ =
DeleteApplicationCloudWatchLoggingOption'
{ _dacwloApplicationName = pApplicationName_
, _dacwloCurrentApplicationVersionId = _Nat # pCurrentApplicationVersionId_
, _dacwloCloudWatchLoggingOptionId = pCloudWatchLoggingOptionId_
}
dacwloApplicationName :: Lens' DeleteApplicationCloudWatchLoggingOption Text
dacwloApplicationName = lens _dacwloApplicationName (\ s a -> s{_dacwloApplicationName = a});
dacwloCurrentApplicationVersionId :: Lens' DeleteApplicationCloudWatchLoggingOption Natural
dacwloCurrentApplicationVersionId = lens _dacwloCurrentApplicationVersionId (\ s a -> s{_dacwloCurrentApplicationVersionId = a}) . _Nat;
dacwloCloudWatchLoggingOptionId :: Lens' DeleteApplicationCloudWatchLoggingOption Text
dacwloCloudWatchLoggingOptionId = lens _dacwloCloudWatchLoggingOptionId (\ s a -> s{_dacwloCloudWatchLoggingOptionId = a});
instance AWSRequest
DeleteApplicationCloudWatchLoggingOption
where
type Rs DeleteApplicationCloudWatchLoggingOption =
DeleteApplicationCloudWatchLoggingOptionResponse
request = postJSON kinesisAnalytics
response
= receiveEmpty
(\ s h x ->
DeleteApplicationCloudWatchLoggingOptionResponse' <$>
(pure (fromEnum s)))
instance Hashable
DeleteApplicationCloudWatchLoggingOption
where
instance NFData
DeleteApplicationCloudWatchLoggingOption
where
instance ToHeaders
DeleteApplicationCloudWatchLoggingOption
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("KinesisAnalytics_20150814.DeleteApplicationCloudWatchLoggingOption"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON
DeleteApplicationCloudWatchLoggingOption
where
toJSON DeleteApplicationCloudWatchLoggingOption'{..}
= object
(catMaybes
[Just ("ApplicationName" .= _dacwloApplicationName),
Just
("CurrentApplicationVersionId" .=
_dacwloCurrentApplicationVersionId),
Just
("CloudWatchLoggingOptionId" .=
_dacwloCloudWatchLoggingOptionId)])
instance ToPath
DeleteApplicationCloudWatchLoggingOption
where
toPath = const "/"
instance ToQuery
DeleteApplicationCloudWatchLoggingOption
where
toQuery = const mempty
newtype DeleteApplicationCloudWatchLoggingOptionResponse = DeleteApplicationCloudWatchLoggingOptionResponse'
{ _dacwlorsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteApplicationCloudWatchLoggingOptionResponse
:: Int
-> DeleteApplicationCloudWatchLoggingOptionResponse
deleteApplicationCloudWatchLoggingOptionResponse pResponseStatus_ =
DeleteApplicationCloudWatchLoggingOptionResponse'
{_dacwlorsResponseStatus = pResponseStatus_}
dacwlorsResponseStatus :: Lens' DeleteApplicationCloudWatchLoggingOptionResponse Int
dacwlorsResponseStatus = lens _dacwlorsResponseStatus (\ s a -> s{_dacwlorsResponseStatus = a});
instance NFData
DeleteApplicationCloudWatchLoggingOptionResponse
where