{-# 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.KinesisAnalytics.AddApplicationCloudWatchLoggingOption
(
addApplicationCloudWatchLoggingOption
, AddApplicationCloudWatchLoggingOption
, aacwloApplicationName
, aacwloCurrentApplicationVersionId
, aacwloCloudWatchLoggingOption
, addApplicationCloudWatchLoggingOptionResponse
, AddApplicationCloudWatchLoggingOptionResponse
, aacwlorsResponseStatus
) 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 AddApplicationCloudWatchLoggingOption = AddApplicationCloudWatchLoggingOption'
{ _aacwloApplicationName :: !Text
, _aacwloCurrentApplicationVersionId :: !Nat
, _aacwloCloudWatchLoggingOption :: !CloudWatchLoggingOption
} deriving (Eq, Read, Show, Data, Typeable, Generic)
addApplicationCloudWatchLoggingOption
:: Text
-> Natural
-> CloudWatchLoggingOption
-> AddApplicationCloudWatchLoggingOption
addApplicationCloudWatchLoggingOption pApplicationName_ pCurrentApplicationVersionId_ pCloudWatchLoggingOption_ =
AddApplicationCloudWatchLoggingOption'
{ _aacwloApplicationName = pApplicationName_
, _aacwloCurrentApplicationVersionId = _Nat # pCurrentApplicationVersionId_
, _aacwloCloudWatchLoggingOption = pCloudWatchLoggingOption_
}
aacwloApplicationName :: Lens' AddApplicationCloudWatchLoggingOption Text
aacwloApplicationName = lens _aacwloApplicationName (\ s a -> s{_aacwloApplicationName = a})
aacwloCurrentApplicationVersionId :: Lens' AddApplicationCloudWatchLoggingOption Natural
aacwloCurrentApplicationVersionId = lens _aacwloCurrentApplicationVersionId (\ s a -> s{_aacwloCurrentApplicationVersionId = a}) . _Nat
aacwloCloudWatchLoggingOption :: Lens' AddApplicationCloudWatchLoggingOption CloudWatchLoggingOption
aacwloCloudWatchLoggingOption = lens _aacwloCloudWatchLoggingOption (\ s a -> s{_aacwloCloudWatchLoggingOption = a})
instance AWSRequest
AddApplicationCloudWatchLoggingOption
where
type Rs AddApplicationCloudWatchLoggingOption =
AddApplicationCloudWatchLoggingOptionResponse
request = postJSON kinesisAnalytics
response
= receiveEmpty
(\ s h x ->
AddApplicationCloudWatchLoggingOptionResponse' <$>
(pure (fromEnum s)))
instance Hashable
AddApplicationCloudWatchLoggingOption
where
instance NFData AddApplicationCloudWatchLoggingOption
where
instance ToHeaders
AddApplicationCloudWatchLoggingOption
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("KinesisAnalytics_20150814.AddApplicationCloudWatchLoggingOption"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AddApplicationCloudWatchLoggingOption
where
toJSON AddApplicationCloudWatchLoggingOption'{..}
= object
(catMaybes
[Just ("ApplicationName" .= _aacwloApplicationName),
Just
("CurrentApplicationVersionId" .=
_aacwloCurrentApplicationVersionId),
Just
("CloudWatchLoggingOption" .=
_aacwloCloudWatchLoggingOption)])
instance ToPath AddApplicationCloudWatchLoggingOption
where
toPath = const "/"
instance ToQuery
AddApplicationCloudWatchLoggingOption
where
toQuery = const mempty
newtype AddApplicationCloudWatchLoggingOptionResponse = AddApplicationCloudWatchLoggingOptionResponse'
{ _aacwlorsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
addApplicationCloudWatchLoggingOptionResponse
:: Int
-> AddApplicationCloudWatchLoggingOptionResponse
addApplicationCloudWatchLoggingOptionResponse pResponseStatus_ =
AddApplicationCloudWatchLoggingOptionResponse'
{_aacwlorsResponseStatus = pResponseStatus_}
aacwlorsResponseStatus :: Lens' AddApplicationCloudWatchLoggingOptionResponse Int
aacwlorsResponseStatus = lens _aacwlorsResponseStatus (\ s a -> s{_aacwlorsResponseStatus = a})
instance NFData
AddApplicationCloudWatchLoggingOptionResponse
where