{-# 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.RDS.AddTagsToResource
(
addTagsToResource
, AddTagsToResource
, attrResourceName
, attrTags
, addTagsToResourceResponse
, AddTagsToResourceResponse
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.RDS.Types
import Network.AWS.RDS.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data AddTagsToResource = AddTagsToResource'
{ _attrResourceName :: !Text
, _attrTags :: ![Tag]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
addTagsToResource
:: Text
-> AddTagsToResource
addTagsToResource pResourceName_ =
AddTagsToResource' {_attrResourceName = pResourceName_, _attrTags = mempty}
attrResourceName :: Lens' AddTagsToResource Text
attrResourceName = lens _attrResourceName (\ s a -> s{_attrResourceName = a})
attrTags :: Lens' AddTagsToResource [Tag]
attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce
instance AWSRequest AddTagsToResource where
type Rs AddTagsToResource = AddTagsToResourceResponse
request = postQuery rds
response = receiveNull AddTagsToResourceResponse'
instance Hashable AddTagsToResource where
instance NFData AddTagsToResource where
instance ToHeaders AddTagsToResource where
toHeaders = const mempty
instance ToPath AddTagsToResource where
toPath = const "/"
instance ToQuery AddTagsToResource where
toQuery AddTagsToResource'{..}
= mconcat
["Action" =: ("AddTagsToResource" :: ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"ResourceName" =: _attrResourceName,
"Tags" =: toQueryList "Tag" _attrTags]
data AddTagsToResourceResponse =
AddTagsToResourceResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
addTagsToResourceResponse
:: AddTagsToResourceResponse
addTagsToResourceResponse = AddTagsToResourceResponse'
instance NFData AddTagsToResourceResponse where