{-# 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.Route53Domains.ListDomains
(
listDomains
, ListDomains
, ldMarker
, ldMaxItems
, listDomainsResponse
, ListDomainsResponse
, ldrsNextPageMarker
, ldrsResponseStatus
, ldrsDomains
) where
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53Domains.Types
import Network.AWS.Route53Domains.Types.Product
data ListDomains = ListDomains'
{ _ldMarker :: !(Maybe Text)
, _ldMaxItems :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDomains
:: ListDomains
listDomains = ListDomains' {_ldMarker = Nothing, _ldMaxItems = Nothing}
ldMarker :: Lens' ListDomains (Maybe Text)
ldMarker = lens _ldMarker (\ s a -> s{_ldMarker = a})
ldMaxItems :: Lens' ListDomains (Maybe Int)
ldMaxItems = lens _ldMaxItems (\ s a -> s{_ldMaxItems = a})
instance AWSPager ListDomains where
page rq rs
| stop (rs ^. ldrsNextPageMarker) = Nothing
| stop (rs ^. ldrsDomains) = Nothing
| otherwise =
Just $ rq & ldMarker .~ rs ^. ldrsNextPageMarker
instance AWSRequest ListDomains where
type Rs ListDomains = ListDomainsResponse
request = postJSON route53Domains
response
= receiveJSON
(\ s h x ->
ListDomainsResponse' <$>
(x .?> "NextPageMarker") <*> (pure (fromEnum s)) <*>
(x .?> "Domains" .!@ mempty))
instance Hashable ListDomains where
instance NFData ListDomains where
instance ToHeaders ListDomains where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Route53Domains_v20140515.ListDomains" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListDomains where
toJSON ListDomains'{..}
= object
(catMaybes
[("Marker" .=) <$> _ldMarker,
("MaxItems" .=) <$> _ldMaxItems])
instance ToPath ListDomains where
toPath = const "/"
instance ToQuery ListDomains where
toQuery = const mempty
data ListDomainsResponse = ListDomainsResponse'
{ _ldrsNextPageMarker :: !(Maybe Text)
, _ldrsResponseStatus :: !Int
, _ldrsDomains :: ![DomainSummary]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDomainsResponse
:: Int
-> ListDomainsResponse
listDomainsResponse pResponseStatus_ =
ListDomainsResponse'
{ _ldrsNextPageMarker = Nothing
, _ldrsResponseStatus = pResponseStatus_
, _ldrsDomains = mempty
}
ldrsNextPageMarker :: Lens' ListDomainsResponse (Maybe Text)
ldrsNextPageMarker = lens _ldrsNextPageMarker (\ s a -> s{_ldrsNextPageMarker = a})
ldrsResponseStatus :: Lens' ListDomainsResponse Int
ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a})
ldrsDomains :: Lens' ListDomainsResponse [DomainSummary]
ldrsDomains = lens _ldrsDomains (\ s a -> s{_ldrsDomains = a}) . _Coerce
instance NFData ListDomainsResponse where