{-# 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.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