{-# 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.DAX.UntagResource
(
untagResource
, UntagResource
, urResourceName
, urTagKeys
, untagResourceResponse
, UntagResourceResponse
, urrsTags
, urrsResponseStatus
) where
import Network.AWS.DAX.Types
import Network.AWS.DAX.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UntagResource = UntagResource'
{ _urResourceName :: !Text
, _urTagKeys :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
untagResource
:: Text
-> UntagResource
untagResource pResourceName_ =
UntagResource' {_urResourceName = pResourceName_, _urTagKeys = mempty}
urResourceName :: Lens' UntagResource Text
urResourceName = lens _urResourceName (\ s a -> s{_urResourceName = a})
urTagKeys :: Lens' UntagResource [Text]
urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a}) . _Coerce
instance AWSRequest UntagResource where
type Rs UntagResource = UntagResourceResponse
request = postJSON dax
response
= receiveJSON
(\ s h x ->
UntagResourceResponse' <$>
(x .?> "Tags" .!@ mempty) <*> (pure (fromEnum s)))
instance Hashable UntagResource where
instance NFData UntagResource where
instance ToHeaders UntagResource where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonDAXV3.UntagResource" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UntagResource where
toJSON UntagResource'{..}
= object
(catMaybes
[Just ("ResourceName" .= _urResourceName),
Just ("TagKeys" .= _urTagKeys)])
instance ToPath UntagResource where
toPath = const "/"
instance ToQuery UntagResource where
toQuery = const mempty
data UntagResourceResponse = UntagResourceResponse'
{ _urrsTags :: !(Maybe [Tag])
, _urrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
untagResourceResponse
:: Int
-> UntagResourceResponse
untagResourceResponse pResponseStatus_ =
UntagResourceResponse'
{_urrsTags = Nothing, _urrsResponseStatus = pResponseStatus_}
urrsTags :: Lens' UntagResourceResponse [Tag]
urrsTags = lens _urrsTags (\ s a -> s{_urrsTags = a}) . _Default . _Coerce
urrsResponseStatus :: Lens' UntagResourceResponse Int
urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a})
instance NFData UntagResourceResponse where