module Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances
(
addTagsToOnPremisesInstances
, AddTagsToOnPremisesInstances
, attopiTags
, attopiInstanceNames
, addTagsToOnPremisesInstancesResponse
, AddTagsToOnPremisesInstancesResponse
) where
import Network.AWS.CodeDeploy.Types
import Network.AWS.CodeDeploy.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data AddTagsToOnPremisesInstances = AddTagsToOnPremisesInstances'
{ _attopiTags :: ![Tag]
, _attopiInstanceNames :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
addTagsToOnPremisesInstances
:: AddTagsToOnPremisesInstances
addTagsToOnPremisesInstances =
AddTagsToOnPremisesInstances'
{ _attopiTags = mempty
, _attopiInstanceNames = mempty
}
attopiTags :: Lens' AddTagsToOnPremisesInstances [Tag]
attopiTags = lens _attopiTags (\ s a -> s{_attopiTags = a}) . _Coerce;
attopiInstanceNames :: Lens' AddTagsToOnPremisesInstances [Text]
attopiInstanceNames = lens _attopiInstanceNames (\ s a -> s{_attopiInstanceNames = a}) . _Coerce;
instance AWSRequest AddTagsToOnPremisesInstances
where
type Rs AddTagsToOnPremisesInstances =
AddTagsToOnPremisesInstancesResponse
request = postJSON codeDeploy
response
= receiveNull AddTagsToOnPremisesInstancesResponse'
instance ToHeaders AddTagsToOnPremisesInstances where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeDeploy_20141006.AddTagsToOnPremisesInstances"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AddTagsToOnPremisesInstances where
toJSON AddTagsToOnPremisesInstances'{..}
= object
(catMaybes
[Just ("tags" .= _attopiTags),
Just ("instanceNames" .= _attopiInstanceNames)])
instance ToPath AddTagsToOnPremisesInstances where
toPath = const "/"
instance ToQuery AddTagsToOnPremisesInstances where
toQuery = const mempty
data AddTagsToOnPremisesInstancesResponse =
AddTagsToOnPremisesInstancesResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
addTagsToOnPremisesInstancesResponse
:: AddTagsToOnPremisesInstancesResponse
addTagsToOnPremisesInstancesResponse = AddTagsToOnPremisesInstancesResponse'