module Network.AWS.Route53.ListTagsForResource
(
listTagsForResource
, ListTagsForResource
, ltfrResourceType
, ltfrResourceId
, listTagsForResourceResponse
, ListTagsForResourceResponse
, ltfrrsResponseStatus
, ltfrrsResourceTagSet
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53.Types
import Network.AWS.Route53.Types.Product
data ListTagsForResource = ListTagsForResource'
{ _ltfrResourceType :: !TagResourceType
, _ltfrResourceId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listTagsForResource
:: TagResourceType
-> Text
-> ListTagsForResource
listTagsForResource pResourceType_ pResourceId_ =
ListTagsForResource'
{ _ltfrResourceType = pResourceType_
, _ltfrResourceId = pResourceId_
}
ltfrResourceType :: Lens' ListTagsForResource TagResourceType
ltfrResourceType = lens _ltfrResourceType (\ s a -> s{_ltfrResourceType = a});
ltfrResourceId :: Lens' ListTagsForResource Text
ltfrResourceId = lens _ltfrResourceId (\ s a -> s{_ltfrResourceId = a});
instance AWSRequest ListTagsForResource where
type Rs ListTagsForResource =
ListTagsForResourceResponse
request = get route53
response
= receiveXML
(\ s h x ->
ListTagsForResourceResponse' <$>
(pure (fromEnum s)) <*> (x .@ "ResourceTagSet"))
instance ToHeaders ListTagsForResource where
toHeaders = const mempty
instance ToPath ListTagsForResource where
toPath ListTagsForResource'{..}
= mconcat
["/2013-04-01/tags/", toBS _ltfrResourceType, "/",
toBS _ltfrResourceId]
instance ToQuery ListTagsForResource where
toQuery = const mempty
data ListTagsForResourceResponse = ListTagsForResourceResponse'
{ _ltfrrsResponseStatus :: !Int
, _ltfrrsResourceTagSet :: !ResourceTagSet
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listTagsForResourceResponse
:: Int
-> ResourceTagSet
-> ListTagsForResourceResponse
listTagsForResourceResponse pResponseStatus_ pResourceTagSet_ =
ListTagsForResourceResponse'
{ _ltfrrsResponseStatus = pResponseStatus_
, _ltfrrsResourceTagSet = pResourceTagSet_
}
ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int
ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});
ltfrrsResourceTagSet :: Lens' ListTagsForResourceResponse ResourceTagSet
ltfrrsResourceTagSet = lens _ltfrrsResourceTagSet (\ s a -> s{_ltfrrsResourceTagSet = a});