{-# 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.CloudHSMv2.ListTags
(
listTags
, ListTags
, ltNextToken
, ltMaxResults
, ltResourceId
, listTagsResponse
, ListTagsResponse
, ltrsNextToken
, ltrsResponseStatus
, ltrsTagList
) where
import Network.AWS.CloudHSMv2.Types
import Network.AWS.CloudHSMv2.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListTags = ListTags'
{ _ltNextToken :: !(Maybe Text)
, _ltMaxResults :: !(Maybe Nat)
, _ltResourceId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listTags
:: Text
-> ListTags
listTags pResourceId_ =
ListTags'
{ _ltNextToken = Nothing
, _ltMaxResults = Nothing
, _ltResourceId = pResourceId_
}
ltNextToken :: Lens' ListTags (Maybe Text)
ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a})
ltMaxResults :: Lens' ListTags (Maybe Natural)
ltMaxResults = lens _ltMaxResults (\ s a -> s{_ltMaxResults = a}) . mapping _Nat
ltResourceId :: Lens' ListTags Text
ltResourceId = lens _ltResourceId (\ s a -> s{_ltResourceId = a})
instance AWSPager ListTags where
page rq rs
| stop (rs ^. ltrsNextToken) = Nothing
| stop (rs ^. ltrsTagList) = Nothing
| otherwise =
Just $ rq & ltNextToken .~ rs ^. ltrsNextToken
instance AWSRequest ListTags where
type Rs ListTags = ListTagsResponse
request = postJSON cloudHSMv2
response
= receiveJSON
(\ s h x ->
ListTagsResponse' <$>
(x .?> "NextToken") <*> (pure (fromEnum s)) <*>
(x .?> "TagList" .!@ mempty))
instance Hashable ListTags where
instance NFData ListTags where
instance ToHeaders ListTags where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("BaldrApiService.ListTags" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListTags where
toJSON ListTags'{..}
= object
(catMaybes
[("NextToken" .=) <$> _ltNextToken,
("MaxResults" .=) <$> _ltMaxResults,
Just ("ResourceId" .= _ltResourceId)])
instance ToPath ListTags where
toPath = const "/"
instance ToQuery ListTags where
toQuery = const mempty
data ListTagsResponse = ListTagsResponse'
{ _ltrsNextToken :: !(Maybe Text)
, _ltrsResponseStatus :: !Int
, _ltrsTagList :: ![Tag]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listTagsResponse
:: Int
-> ListTagsResponse
listTagsResponse pResponseStatus_ =
ListTagsResponse'
{ _ltrsNextToken = Nothing
, _ltrsResponseStatus = pResponseStatus_
, _ltrsTagList = mempty
}
ltrsNextToken :: Lens' ListTagsResponse (Maybe Text)
ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a})
ltrsResponseStatus :: Lens' ListTagsResponse Int
ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})
ltrsTagList :: Lens' ListTagsResponse [Tag]
ltrsTagList = lens _ltrsTagList (\ s a -> s{_ltrsTagList = a}) . _Coerce
instance NFData ListTagsResponse where