{-# 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.SetV2LoggingLevel
(
setV2LoggingLevel
, SetV2LoggingLevel
, svllLogTarget
, svllLogLevel
, setV2LoggingLevelResponse
, SetV2LoggingLevelResponse
) 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 SetV2LoggingLevel = SetV2LoggingLevel'
{ _svllLogTarget :: !LogTarget
, _svllLogLevel :: !LogLevel
} deriving (Eq, Read, Show, Data, Typeable, Generic)
setV2LoggingLevel
:: LogTarget
-> LogLevel
-> SetV2LoggingLevel
setV2LoggingLevel pLogTarget_ pLogLevel_ =
SetV2LoggingLevel' {_svllLogTarget = pLogTarget_, _svllLogLevel = pLogLevel_}
svllLogTarget :: Lens' SetV2LoggingLevel LogTarget
svllLogTarget = lens _svllLogTarget (\ s a -> s{_svllLogTarget = a})
svllLogLevel :: Lens' SetV2LoggingLevel LogLevel
svllLogLevel = lens _svllLogLevel (\ s a -> s{_svllLogLevel = a})
instance AWSRequest SetV2LoggingLevel where
type Rs SetV2LoggingLevel = SetV2LoggingLevelResponse
request = postJSON ioT
response = receiveNull SetV2LoggingLevelResponse'
instance Hashable SetV2LoggingLevel where
instance NFData SetV2LoggingLevel where
instance ToHeaders SetV2LoggingLevel where
toHeaders = const mempty
instance ToJSON SetV2LoggingLevel where
toJSON SetV2LoggingLevel'{..}
= object
(catMaybes
[Just ("logTarget" .= _svllLogTarget),
Just ("logLevel" .= _svllLogLevel)])
instance ToPath SetV2LoggingLevel where
toPath = const "/v2LoggingLevel"
instance ToQuery SetV2LoggingLevel where
toQuery = const mempty
data SetV2LoggingLevelResponse =
SetV2LoggingLevelResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
setV2LoggingLevelResponse
:: SetV2LoggingLevelResponse
setV2LoggingLevelResponse = SetV2LoggingLevelResponse'
instance NFData SetV2LoggingLevelResponse where