{-# 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.Lightsail.GetDomains
(
getDomains
, GetDomains
, gdPageToken
, getDomainsResponse
, GetDomainsResponse
, ggrsNextPageToken
, ggrsDomains
, ggrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Lightsail.Types
import Network.AWS.Lightsail.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GetDomains = GetDomains'
{ _gdPageToken :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getDomains
:: GetDomains
getDomains = GetDomains' {_gdPageToken = Nothing}
gdPageToken :: Lens' GetDomains (Maybe Text)
gdPageToken = lens _gdPageToken (\ s a -> s{_gdPageToken = a})
instance AWSPager GetDomains where
page rq rs
| stop (rs ^. ggrsNextPageToken) = Nothing
| stop (rs ^. ggrsDomains) = Nothing
| otherwise =
Just $ rq & gdPageToken .~ rs ^. ggrsNextPageToken
instance AWSRequest GetDomains where
type Rs GetDomains = GetDomainsResponse
request = postJSON lightsail
response
= receiveJSON
(\ s h x ->
GetDomainsResponse' <$>
(x .?> "nextPageToken") <*>
(x .?> "domains" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetDomains where
instance NFData GetDomains where
instance ToHeaders GetDomains where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Lightsail_20161128.GetDomains" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetDomains where
toJSON GetDomains'{..}
= object
(catMaybes [("pageToken" .=) <$> _gdPageToken])
instance ToPath GetDomains where
toPath = const "/"
instance ToQuery GetDomains where
toQuery = const mempty
data GetDomainsResponse = GetDomainsResponse'
{ _ggrsNextPageToken :: !(Maybe Text)
, _ggrsDomains :: !(Maybe [Domain])
, _ggrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getDomainsResponse
:: Int
-> GetDomainsResponse
getDomainsResponse pResponseStatus_ =
GetDomainsResponse'
{ _ggrsNextPageToken = Nothing
, _ggrsDomains = Nothing
, _ggrsResponseStatus = pResponseStatus_
}
ggrsNextPageToken :: Lens' GetDomainsResponse (Maybe Text)
ggrsNextPageToken = lens _ggrsNextPageToken (\ s a -> s{_ggrsNextPageToken = a})
ggrsDomains :: Lens' GetDomainsResponse [Domain]
ggrsDomains = lens _ggrsDomains (\ s a -> s{_ggrsDomains = a}) . _Default . _Coerce
ggrsResponseStatus :: Lens' GetDomainsResponse Int
ggrsResponseStatus = lens _ggrsResponseStatus (\ s a -> s{_ggrsResponseStatus = a})
instance NFData GetDomainsResponse where