{-# 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.IoT.SetV2LoggingOptions
(
setV2LoggingOptions
, SetV2LoggingOptions
, svloDisableAllLogs
, svloDefaultLogLevel
, svloRoleARN
, setV2LoggingOptionsResponse
, SetV2LoggingOptionsResponse
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SetV2LoggingOptions = SetV2LoggingOptions'
{ _svloDisableAllLogs :: !(Maybe Bool)
, _svloDefaultLogLevel :: !(Maybe LogLevel)
, _svloRoleARN :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
setV2LoggingOptions
:: SetV2LoggingOptions
setV2LoggingOptions =
SetV2LoggingOptions'
{ _svloDisableAllLogs = Nothing
, _svloDefaultLogLevel = Nothing
, _svloRoleARN = Nothing
}
svloDisableAllLogs :: Lens' SetV2LoggingOptions (Maybe Bool)
svloDisableAllLogs = lens _svloDisableAllLogs (\ s a -> s{_svloDisableAllLogs = a})
svloDefaultLogLevel :: Lens' SetV2LoggingOptions (Maybe LogLevel)
svloDefaultLogLevel = lens _svloDefaultLogLevel (\ s a -> s{_svloDefaultLogLevel = a})
svloRoleARN :: Lens' SetV2LoggingOptions (Maybe Text)
svloRoleARN = lens _svloRoleARN (\ s a -> s{_svloRoleARN = a})
instance AWSRequest SetV2LoggingOptions where
type Rs SetV2LoggingOptions =
SetV2LoggingOptionsResponse
request = postJSON ioT
response = receiveNull SetV2LoggingOptionsResponse'
instance Hashable SetV2LoggingOptions where
instance NFData SetV2LoggingOptions where
instance ToHeaders SetV2LoggingOptions where
toHeaders = const mempty
instance ToJSON SetV2LoggingOptions where
toJSON SetV2LoggingOptions'{..}
= object
(catMaybes
[("disableAllLogs" .=) <$> _svloDisableAllLogs,
("defaultLogLevel" .=) <$> _svloDefaultLogLevel,
("roleArn" .=) <$> _svloRoleARN])
instance ToPath SetV2LoggingOptions where
toPath = const "/v2LoggingOptions"
instance ToQuery SetV2LoggingOptions where
toQuery = const mempty
data SetV2LoggingOptionsResponse =
SetV2LoggingOptionsResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
setV2LoggingOptionsResponse
:: SetV2LoggingOptionsResponse
setV2LoggingOptionsResponse = SetV2LoggingOptionsResponse'
instance NFData SetV2LoggingOptionsResponse where