module Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances
(
AddTagsToOnPremisesInstances
, addTagsToOnPremisesInstances
, attopiInstanceNames
, attopiTags
, AddTagsToOnPremisesInstancesResponse
, addTagsToOnPremisesInstancesResponse
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CodeDeploy.Types
import qualified GHC.Exts
data AddTagsToOnPremisesInstances = AddTagsToOnPremisesInstances
{ _attopiInstanceNames :: List "instanceNames" Text
, _attopiTags :: List "tags" Tag
} deriving (Eq, Read, Show)
addTagsToOnPremisesInstances :: AddTagsToOnPremisesInstances
addTagsToOnPremisesInstances = AddTagsToOnPremisesInstances
{ _attopiTags = mempty
, _attopiInstanceNames = mempty
}
attopiInstanceNames :: Lens' AddTagsToOnPremisesInstances [Text]
attopiInstanceNames =
lens _attopiInstanceNames (\s a -> s { _attopiInstanceNames = a })
. _List
attopiTags :: Lens' AddTagsToOnPremisesInstances [Tag]
attopiTags = lens _attopiTags (\s a -> s { _attopiTags = a }) . _List
data AddTagsToOnPremisesInstancesResponse = AddTagsToOnPremisesInstancesResponse
deriving (Eq, Ord, Read, Show, Generic)
addTagsToOnPremisesInstancesResponse :: AddTagsToOnPremisesInstancesResponse
addTagsToOnPremisesInstancesResponse = AddTagsToOnPremisesInstancesResponse
instance ToPath AddTagsToOnPremisesInstances where
toPath = const "/"
instance ToQuery AddTagsToOnPremisesInstances where
toQuery = const mempty
instance ToHeaders AddTagsToOnPremisesInstances
instance ToJSON AddTagsToOnPremisesInstances where
toJSON AddTagsToOnPremisesInstances{..} = object
[ "tags" .= _attopiTags
, "instanceNames" .= _attopiInstanceNames
]
instance AWSRequest AddTagsToOnPremisesInstances where
type Sv AddTagsToOnPremisesInstances = CodeDeploy
type Rs AddTagsToOnPremisesInstances = AddTagsToOnPremisesInstancesResponse
request = post "AddTagsToOnPremisesInstances"
response = nullResponse AddTagsToOnPremisesInstancesResponse