module Network.AWS.Config.PutConfigurationRecorder
(
putConfigurationRecorder
, PutConfigurationRecorder
, pcrConfigurationRecorder
, putConfigurationRecorderResponse
, PutConfigurationRecorderResponse
) where
import Network.AWS.Config.Types
import Network.AWS.Config.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype PutConfigurationRecorder = PutConfigurationRecorder'
{ _pcrConfigurationRecorder :: ConfigurationRecorder
} deriving (Eq, Read, Show, Data, Typeable, Generic)
putConfigurationRecorder
:: ConfigurationRecorder
-> PutConfigurationRecorder
putConfigurationRecorder pConfigurationRecorder_ =
PutConfigurationRecorder'
{_pcrConfigurationRecorder = pConfigurationRecorder_}
pcrConfigurationRecorder :: Lens' PutConfigurationRecorder ConfigurationRecorder
pcrConfigurationRecorder = lens _pcrConfigurationRecorder (\ s a -> s{_pcrConfigurationRecorder = a});
instance AWSRequest PutConfigurationRecorder where
type Rs PutConfigurationRecorder =
PutConfigurationRecorderResponse
request = postJSON config
response
= receiveNull PutConfigurationRecorderResponse'
instance Hashable PutConfigurationRecorder where
instance NFData PutConfigurationRecorder where
instance ToHeaders PutConfigurationRecorder where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StarlingDoveService.PutConfigurationRecorder" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON PutConfigurationRecorder where
toJSON PutConfigurationRecorder'{..}
= object
(catMaybes
[Just
("ConfigurationRecorder" .=
_pcrConfigurationRecorder)])
instance ToPath PutConfigurationRecorder where
toPath = const "/"
instance ToQuery PutConfigurationRecorder where
toQuery = const mempty
data PutConfigurationRecorderResponse =
PutConfigurationRecorderResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
putConfigurationRecorderResponse
:: PutConfigurationRecorderResponse
putConfigurationRecorderResponse = PutConfigurationRecorderResponse'
instance NFData PutConfigurationRecorderResponse
where