module Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances
(
removeTagsFromOnPremisesInstances
, RemoveTagsFromOnPremisesInstances
, rtfopiTags
, rtfopiInstanceNames
, removeTagsFromOnPremisesInstancesResponse
, RemoveTagsFromOnPremisesInstancesResponse
) 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 RemoveTagsFromOnPremisesInstances = RemoveTagsFromOnPremisesInstances'
{ _rtfopiTags :: ![Tag]
, _rtfopiInstanceNames :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
removeTagsFromOnPremisesInstances
:: RemoveTagsFromOnPremisesInstances
removeTagsFromOnPremisesInstances =
RemoveTagsFromOnPremisesInstances'
{ _rtfopiTags = mempty
, _rtfopiInstanceNames = mempty
}
rtfopiTags :: Lens' RemoveTagsFromOnPremisesInstances [Tag]
rtfopiTags = lens _rtfopiTags (\ s a -> s{_rtfopiTags = a}) . _Coerce;
rtfopiInstanceNames :: Lens' RemoveTagsFromOnPremisesInstances [Text]
rtfopiInstanceNames = lens _rtfopiInstanceNames (\ s a -> s{_rtfopiInstanceNames = a}) . _Coerce;
instance AWSRequest RemoveTagsFromOnPremisesInstances
where
type Rs RemoveTagsFromOnPremisesInstances =
RemoveTagsFromOnPremisesInstancesResponse
request = postJSON codeDeploy
response
= receiveNull
RemoveTagsFromOnPremisesInstancesResponse'
instance ToHeaders RemoveTagsFromOnPremisesInstances
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeDeploy_20141006.RemoveTagsFromOnPremisesInstances"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RemoveTagsFromOnPremisesInstances
where
toJSON RemoveTagsFromOnPremisesInstances'{..}
= object
(catMaybes
[Just ("tags" .= _rtfopiTags),
Just ("instanceNames" .= _rtfopiInstanceNames)])
instance ToPath RemoveTagsFromOnPremisesInstances
where
toPath = const "/"
instance ToQuery RemoveTagsFromOnPremisesInstances
where
toQuery = const mempty
data RemoveTagsFromOnPremisesInstancesResponse =
RemoveTagsFromOnPremisesInstancesResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
removeTagsFromOnPremisesInstancesResponse
:: RemoveTagsFromOnPremisesInstancesResponse
removeTagsFromOnPremisesInstancesResponse =
RemoveTagsFromOnPremisesInstancesResponse'