{-# 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.IoTAnalytics.PutLoggingOptions
(
putLoggingOptions
, PutLoggingOptions
, ploLoggingOptions
, putLoggingOptionsResponse
, PutLoggingOptionsResponse
) where
import Network.AWS.IoTAnalytics.Types
import Network.AWS.IoTAnalytics.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype PutLoggingOptions = PutLoggingOptions'
{ _ploLoggingOptions :: LoggingOptions
} deriving (Eq, Read, Show, Data, Typeable, Generic)
putLoggingOptions
:: LoggingOptions
-> PutLoggingOptions
putLoggingOptions pLoggingOptions_ =
PutLoggingOptions' {_ploLoggingOptions = pLoggingOptions_}
ploLoggingOptions :: Lens' PutLoggingOptions LoggingOptions
ploLoggingOptions = lens _ploLoggingOptions (\ s a -> s{_ploLoggingOptions = a})
instance AWSRequest PutLoggingOptions where
type Rs PutLoggingOptions = PutLoggingOptionsResponse
request = putJSON ioTAnalytics
response = receiveNull PutLoggingOptionsResponse'
instance Hashable PutLoggingOptions where
instance NFData PutLoggingOptions where
instance ToHeaders PutLoggingOptions where
toHeaders = const mempty
instance ToJSON PutLoggingOptions where
toJSON PutLoggingOptions'{..}
= object
(catMaybes
[Just ("loggingOptions" .= _ploLoggingOptions)])
instance ToPath PutLoggingOptions where
toPath = const "/logging"
instance ToQuery PutLoggingOptions where
toQuery = const mempty
data PutLoggingOptionsResponse =
PutLoggingOptionsResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
putLoggingOptionsResponse
:: PutLoggingOptionsResponse
putLoggingOptionsResponse = PutLoggingOptionsResponse'
instance NFData PutLoggingOptionsResponse where