{-# 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 #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Network.AWS.Route53.ListReusableDelegationSets -- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Retrieves a list of the reusable delegation sets that are associated with the current AWS account. -- -- module Network.AWS.Route53.ListReusableDelegationSets ( -- * Creating a Request listReusableDelegationSets , ListReusableDelegationSets -- * Request Lenses , lrdsMarker , lrdsMaxItems -- * Destructuring the Response , listReusableDelegationSetsResponse , ListReusableDelegationSetsResponse -- * Response Lenses , lrdsrsNextMarker , lrdsrsResponseStatus , lrdsrsDelegationSets , lrdsrsMarker , lrdsrsIsTruncated , lrdsrsMaxItems ) 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 -- | A request to get a list of the reusable delegation sets that are associated with the current AWS account. -- -- -- -- /See:/ 'listReusableDelegationSets' smart constructor. data ListReusableDelegationSets = ListReusableDelegationSets' { _lrdsMarker :: !(Maybe Text) , _lrdsMaxItems :: !(Maybe Text) } deriving (Eq, Read, Show, Data, Typeable, Generic) -- | Creates a value of 'ListReusableDelegationSets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lrdsMarker' - If the value of @IsTruncated@ in the previous response was @true@ , you have more reusable delegation sets. To get another group, submit another @ListReusableDelegationSets@ request. For the value of @marker@ , specify the value of @NextMarker@ from the previous response, which is the ID of the first reusable delegation set that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more reusable delegation sets to get. -- -- * 'lrdsMaxItems' - The number of reusable delegation sets that you want Amazon Route 53 to return in the response to this request. If you specify a value greater than 100, Amazon Route 53 returns only the first 100 reusable delegation sets. listReusableDelegationSets :: ListReusableDelegationSets listReusableDelegationSets = ListReusableDelegationSets' {_lrdsMarker = Nothing, _lrdsMaxItems = Nothing} -- | If the value of @IsTruncated@ in the previous response was @true@ , you have more reusable delegation sets. To get another group, submit another @ListReusableDelegationSets@ request. For the value of @marker@ , specify the value of @NextMarker@ from the previous response, which is the ID of the first reusable delegation set that Amazon Route 53 will return if you submit another request. If the value of @IsTruncated@ in the previous response was @false@ , there are no more reusable delegation sets to get. lrdsMarker :: Lens' ListReusableDelegationSets (Maybe Text) lrdsMarker = lens _lrdsMarker (\ s a -> s{_lrdsMarker = a}); -- | The number of reusable delegation sets that you want Amazon Route 53 to return in the response to this request. If you specify a value greater than 100, Amazon Route 53 returns only the first 100 reusable delegation sets. lrdsMaxItems :: Lens' ListReusableDelegationSets (Maybe Text) lrdsMaxItems = lens _lrdsMaxItems (\ s a -> s{_lrdsMaxItems = a}); instance AWSRequest ListReusableDelegationSets where type Rs ListReusableDelegationSets = ListReusableDelegationSetsResponse request = get route53 response = receiveXML (\ s h x -> ListReusableDelegationSetsResponse' <$> (x .@? "NextMarker") <*> (pure (fromEnum s)) <*> (x .@? "DelegationSets" .!@ mempty >>= parseXMLList "DelegationSet") <*> (x .@ "Marker") <*> (x .@ "IsTruncated") <*> (x .@ "MaxItems")) instance Hashable ListReusableDelegationSets where instance NFData ListReusableDelegationSets where instance ToHeaders ListReusableDelegationSets where toHeaders = const mempty instance ToPath ListReusableDelegationSets where toPath = const "/2013-04-01/delegationset" instance ToQuery ListReusableDelegationSets where toQuery ListReusableDelegationSets'{..} = mconcat ["marker" =: _lrdsMarker, "maxitems" =: _lrdsMaxItems] -- | A complex type that contains information about the reusable delegation sets that are associated with the current AWS account. -- -- -- -- /See:/ 'listReusableDelegationSetsResponse' smart constructor. data ListReusableDelegationSetsResponse = ListReusableDelegationSetsResponse' { _lrdsrsNextMarker :: !(Maybe Text) , _lrdsrsResponseStatus :: !Int , _lrdsrsDelegationSets :: ![DelegationSet] , _lrdsrsMarker :: !Text , _lrdsrsIsTruncated :: !Bool , _lrdsrsMaxItems :: !Text } deriving (Eq, Read, Show, Data, Typeable, Generic) -- | Creates a value of 'ListReusableDelegationSetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lrdsrsNextMarker' - If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the next reusable delegation set that Amazon Route 53 will return if you submit another @ListReusableDelegationSets@ request and specify the value of @NextMarker@ in the @marker@ parameter. -- -- * 'lrdsrsResponseStatus' - -- | The response status code. -- -- * 'lrdsrsDelegationSets' - A complex type that contains one @DelegationSet@ element for each reusable delegation set that was created by the current AWS account. -- -- * 'lrdsrsMarker' - For the second and subsequent calls to @ListReusableDelegationSets@ , @Marker@ is the value that you specified for the @marker@ parameter in the request that produced the current response. -- -- * 'lrdsrsIsTruncated' - A flag that indicates whether there are more reusable delegation sets to be listed. -- -- * 'lrdsrsMaxItems' - The value that you specified for the @maxitems@ parameter in the call to @ListReusableDelegationSets@ that produced the current response. listReusableDelegationSetsResponse :: Int -- ^ 'lrdsrsResponseStatus' -> Text -- ^ 'lrdsrsMarker' -> Bool -- ^ 'lrdsrsIsTruncated' -> Text -- ^ 'lrdsrsMaxItems' -> ListReusableDelegationSetsResponse listReusableDelegationSetsResponse pResponseStatus_ pMarker_ pIsTruncated_ pMaxItems_ = ListReusableDelegationSetsResponse' { _lrdsrsNextMarker = Nothing , _lrdsrsResponseStatus = pResponseStatus_ , _lrdsrsDelegationSets = mempty , _lrdsrsMarker = pMarker_ , _lrdsrsIsTruncated = pIsTruncated_ , _lrdsrsMaxItems = pMaxItems_ } -- | If @IsTruncated@ is @true@ , the value of @NextMarker@ identifies the next reusable delegation set that Amazon Route 53 will return if you submit another @ListReusableDelegationSets@ request and specify the value of @NextMarker@ in the @marker@ parameter. lrdsrsNextMarker :: Lens' ListReusableDelegationSetsResponse (Maybe Text) lrdsrsNextMarker = lens _lrdsrsNextMarker (\ s a -> s{_lrdsrsNextMarker = a}); -- | -- | The response status code. lrdsrsResponseStatus :: Lens' ListReusableDelegationSetsResponse Int lrdsrsResponseStatus = lens _lrdsrsResponseStatus (\ s a -> s{_lrdsrsResponseStatus = a}); -- | A complex type that contains one @DelegationSet@ element for each reusable delegation set that was created by the current AWS account. lrdsrsDelegationSets :: Lens' ListReusableDelegationSetsResponse [DelegationSet] lrdsrsDelegationSets = lens _lrdsrsDelegationSets (\ s a -> s{_lrdsrsDelegationSets = a}) . _Coerce; -- | For the second and subsequent calls to @ListReusableDelegationSets@ , @Marker@ is the value that you specified for the @marker@ parameter in the request that produced the current response. lrdsrsMarker :: Lens' ListReusableDelegationSetsResponse Text lrdsrsMarker = lens _lrdsrsMarker (\ s a -> s{_lrdsrsMarker = a}); -- | A flag that indicates whether there are more reusable delegation sets to be listed. lrdsrsIsTruncated :: Lens' ListReusableDelegationSetsResponse Bool lrdsrsIsTruncated = lens _lrdsrsIsTruncated (\ s a -> s{_lrdsrsIsTruncated = a}); -- | The value that you specified for the @maxitems@ parameter in the call to @ListReusableDelegationSets@ that produced the current response. lrdsrsMaxItems :: Lens' ListReusableDelegationSetsResponse Text lrdsrsMaxItems = lens _lrdsrsMaxItems (\ s a -> s{_lrdsrsMaxItems = a}); instance NFData ListReusableDelegationSetsResponse where