module Network.AWS.Config.PutConfigurationRecorder
(
PutConfigurationRecorder
, putConfigurationRecorder
, pcrConfigurationRecorder
, PutConfigurationRecorderResponse
, putConfigurationRecorderResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.Config.Types
import qualified GHC.Exts
newtype PutConfigurationRecorder = PutConfigurationRecorder
{ _pcrConfigurationRecorder :: ConfigurationRecorder
} deriving (Eq, Show)
putConfigurationRecorder :: ConfigurationRecorder
-> PutConfigurationRecorder
putConfigurationRecorder p1 = PutConfigurationRecorder
{ _pcrConfigurationRecorder = p1
}
pcrConfigurationRecorder :: Lens' PutConfigurationRecorder ConfigurationRecorder
pcrConfigurationRecorder =
lens _pcrConfigurationRecorder
(\s a -> s { _pcrConfigurationRecorder = a })
data PutConfigurationRecorderResponse = PutConfigurationRecorderResponse
deriving (Eq, Ord, Show, Generic)
putConfigurationRecorderResponse :: PutConfigurationRecorderResponse
putConfigurationRecorderResponse = PutConfigurationRecorderResponse
instance ToPath PutConfigurationRecorder where
toPath = const "/"
instance ToQuery PutConfigurationRecorder where
toQuery = const mempty
instance ToHeaders PutConfigurationRecorder
instance ToJSON PutConfigurationRecorder where
toJSON PutConfigurationRecorder{..} = object
[ "ConfigurationRecorder" .= _pcrConfigurationRecorder
]
instance AWSRequest PutConfigurationRecorder where
type Sv PutConfigurationRecorder = Config
type Rs PutConfigurationRecorder = PutConfigurationRecorderResponse
request = post "PutConfigurationRecorder"
response = nullResponse PutConfigurationRecorderResponse