module Network.AWS.Route53.ListTagsForResource
(
ListTagsForResource
, listTagsForResource
, ltfrResourceId
, ltfrResourceType
, ListTagsForResourceResponse
, listTagsForResourceResponse
, ltfrrResourceTagSet
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestXML
import Network.AWS.Route53.Types
import qualified GHC.Exts
data ListTagsForResource = ListTagsForResource
{ _ltfrResourceId :: Text
, _ltfrResourceType :: TagResourceType
} deriving (Eq, Show)
listTagsForResource :: TagResourceType
-> Text
-> ListTagsForResource
listTagsForResource p1 p2 = ListTagsForResource
{ _ltfrResourceType = p1
, _ltfrResourceId = p2
}
ltfrResourceId :: Lens' ListTagsForResource Text
ltfrResourceId = lens _ltfrResourceId (\s a -> s { _ltfrResourceId = a })
ltfrResourceType :: Lens' ListTagsForResource TagResourceType
ltfrResourceType = lens _ltfrResourceType (\s a -> s { _ltfrResourceType = a })
newtype ListTagsForResourceResponse = ListTagsForResourceResponse
{ _ltfrrResourceTagSet :: ResourceTagSet
} deriving (Eq, Show)
listTagsForResourceResponse :: ResourceTagSet
-> ListTagsForResourceResponse
listTagsForResourceResponse p1 = ListTagsForResourceResponse
{ _ltfrrResourceTagSet = p1
}
ltfrrResourceTagSet :: Lens' ListTagsForResourceResponse ResourceTagSet
ltfrrResourceTagSet =
lens _ltfrrResourceTagSet (\s a -> s { _ltfrrResourceTagSet = a })
instance ToPath ListTagsForResource where
toPath ListTagsForResource{..} = mconcat
[ "/2013-04-01/tags/"
, toText _ltfrResourceType
, "/"
, toText _ltfrResourceId
]
instance ToQuery ListTagsForResource where
toQuery = const mempty
instance ToHeaders ListTagsForResource
instance ToXMLRoot ListTagsForResource where
toXMLRoot = const (namespaced ns "ListTagsForResource" [])
instance ToXML ListTagsForResource
instance AWSRequest ListTagsForResource where
type Sv ListTagsForResource = Route53
type Rs ListTagsForResource = ListTagsForResourceResponse
request = get
response = xmlResponse
instance FromXML ListTagsForResourceResponse where
parseXML x = ListTagsForResourceResponse
<$> x .@ "ResourceTagSet"