{-# 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.CloudFront.UntagResource
(
untagResource
, UntagResource
, urResource
, urTagKeys
, untagResourceResponse
, UntagResourceResponse
) where
import Network.AWS.CloudFront.Types
import Network.AWS.CloudFront.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UntagResource = UntagResource'
{ _urResource :: !Text
, _urTagKeys :: !TagKeys
} deriving (Eq,Read,Show,Data,Typeable,Generic)
untagResource
:: Text
-> TagKeys
-> UntagResource
untagResource pResource_ pTagKeys_ =
UntagResource'
{ _urResource = pResource_
, _urTagKeys = pTagKeys_
}
urResource :: Lens' UntagResource Text
urResource = lens _urResource (\ s a -> s{_urResource = a});
urTagKeys :: Lens' UntagResource TagKeys
urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a});
instance AWSRequest UntagResource where
type Rs UntagResource = UntagResourceResponse
request = postXML cloudFront
response = receiveNull UntagResourceResponse'
instance Hashable UntagResource
instance NFData UntagResource
instance ToElement UntagResource where
toElement
= mkElement
"{http://cloudfront.amazonaws.com/doc/2016-09-29/}TagKeys"
.
_urTagKeys
instance ToHeaders UntagResource where
toHeaders = const mempty
instance ToPath UntagResource where
toPath = const "/2016-09-29/tagging"
instance ToQuery UntagResource where
toQuery UntagResource'{..}
= mconcat
["Resource" =: _urResource, "Operation=Untag"]
data UntagResourceResponse =
UntagResourceResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
untagResourceResponse
:: UntagResourceResponse
untagResourceResponse = UntagResourceResponse'
instance NFData UntagResourceResponse