{-# 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.APIGateway.UntagResource
(
untagResource
, UntagResource
, urResourceARN
, urTagKeys
, untagResourceResponse
, UntagResourceResponse
) where
import Network.AWS.APIGateway.Types
import Network.AWS.APIGateway.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UntagResource = UntagResource'
{ _urResourceARN :: !Text
, _urTagKeys :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
untagResource
:: Text
-> UntagResource
untagResource pResourceARN_ =
UntagResource' {_urResourceARN = pResourceARN_, _urTagKeys = mempty}
urResourceARN :: Lens' UntagResource Text
urResourceARN = lens _urResourceARN (\ s a -> s{_urResourceARN = a})
urTagKeys :: Lens' UntagResource [Text]
urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a}) . _Coerce
instance AWSRequest UntagResource where
type Rs UntagResource = UntagResourceResponse
request = delete apiGateway
response = receiveNull UntagResourceResponse'
instance Hashable UntagResource where
instance NFData UntagResource where
instance ToHeaders UntagResource where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath UntagResource where
toPath UntagResource'{..}
= mconcat ["/tags/", toBS _urResourceARN]
instance ToQuery UntagResource where
toQuery UntagResource'{..}
= mconcat
["tagKeys" =: toQueryList "member" _urTagKeys]
data UntagResourceResponse =
UntagResourceResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
untagResourceResponse
:: UntagResourceResponse
untagResourceResponse = UntagResourceResponse'
instance NFData UntagResourceResponse where