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
instance NFData SetLoggingOptions
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