module Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances
(
RemoveTagsFromOnPremisesInstances
, removeTagsFromOnPremisesInstances
, rtfopiInstanceNames
, rtfopiTags
, RemoveTagsFromOnPremisesInstancesResponse
, removeTagsFromOnPremisesInstancesResponse
) 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 RemoveTagsFromOnPremisesInstances = RemoveTagsFromOnPremisesInstances
{ _rtfopiInstanceNames :: List "instanceNames" Text
, _rtfopiTags :: List "tags" Tag
} deriving (Eq, Read, Show)
removeTagsFromOnPremisesInstances :: RemoveTagsFromOnPremisesInstances
removeTagsFromOnPremisesInstances = RemoveTagsFromOnPremisesInstances
{ _rtfopiTags = mempty
, _rtfopiInstanceNames = mempty
}
rtfopiInstanceNames :: Lens' RemoveTagsFromOnPremisesInstances [Text]
rtfopiInstanceNames =
lens _rtfopiInstanceNames (\s a -> s { _rtfopiInstanceNames = a })
. _List
rtfopiTags :: Lens' RemoveTagsFromOnPremisesInstances [Tag]
rtfopiTags = lens _rtfopiTags (\s a -> s { _rtfopiTags = a }) . _List
data RemoveTagsFromOnPremisesInstancesResponse = RemoveTagsFromOnPremisesInstancesResponse
deriving (Eq, Ord, Read, Show, Generic)
removeTagsFromOnPremisesInstancesResponse :: RemoveTagsFromOnPremisesInstancesResponse
removeTagsFromOnPremisesInstancesResponse = RemoveTagsFromOnPremisesInstancesResponse
instance ToPath RemoveTagsFromOnPremisesInstances where
toPath = const "/"
instance ToQuery RemoveTagsFromOnPremisesInstances where
toQuery = const mempty
instance ToHeaders RemoveTagsFromOnPremisesInstances
instance ToJSON RemoveTagsFromOnPremisesInstances where
toJSON RemoveTagsFromOnPremisesInstances{..} = object
[ "tags" .= _rtfopiTags
, "instanceNames" .= _rtfopiInstanceNames
]
instance AWSRequest RemoveTagsFromOnPremisesInstances where
type Sv RemoveTagsFromOnPremisesInstances = CodeDeploy
type Rs RemoveTagsFromOnPremisesInstances = RemoveTagsFromOnPremisesInstancesResponse
request = post "RemoveTagsFromOnPremisesInstances"
response = nullResponse RemoveTagsFromOnPremisesInstancesResponse