{-# 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.SetLoggingOptions
(
setLoggingOptions
, SetLoggingOptions
, sloLoggingOptionsPayload
, setLoggingOptionsResponse
, SetLoggingOptionsResponse
) 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
newtype SetLoggingOptions = SetLoggingOptions'
{ _sloLoggingOptionsPayload :: LoggingOptionsPayload
} deriving (Eq, Read, Show, Data, Typeable, Generic)
setLoggingOptions
:: LoggingOptionsPayload
-> SetLoggingOptions
setLoggingOptions pLoggingOptionsPayload_ =
SetLoggingOptions' {_sloLoggingOptionsPayload = pLoggingOptionsPayload_}
sloLoggingOptionsPayload :: Lens' SetLoggingOptions LoggingOptionsPayload
sloLoggingOptionsPayload = lens _sloLoggingOptionsPayload (\ s a -> s{_sloLoggingOptionsPayload = a})
instance AWSRequest SetLoggingOptions where
type Rs SetLoggingOptions = SetLoggingOptionsResponse
request = postJSON ioT
response = receiveNull SetLoggingOptionsResponse'
instance Hashable SetLoggingOptions where
instance NFData SetLoggingOptions where
instance ToHeaders SetLoggingOptions where
toHeaders = const mempty
instance ToJSON SetLoggingOptions where
toJSON SetLoggingOptions'{..}
= object
(catMaybes
[Just
("loggingOptionsPayload" .=
_sloLoggingOptionsPayload)])
instance ToPath SetLoggingOptions where
toPath = const "/loggingOptions"
instance ToQuery SetLoggingOptions where
toQuery = const mempty
data SetLoggingOptionsResponse =
SetLoggingOptionsResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
setLoggingOptionsResponse
:: SetLoggingOptionsResponse
setLoggingOptionsResponse = SetLoggingOptionsResponse'
instance NFData SetLoggingOptionsResponse where