{-# 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.GetActiveNames
(
getActiveNames
, GetActiveNames
, ganPageToken
, getActiveNamesResponse
, GetActiveNamesResponse
, ganrsNextPageToken
, ganrsActiveNames
, ganrsResponseStatus
) 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 GetActiveNames = GetActiveNames'
{ _ganPageToken :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getActiveNames
:: GetActiveNames
getActiveNames = GetActiveNames' {_ganPageToken = Nothing}
ganPageToken :: Lens' GetActiveNames (Maybe Text)
ganPageToken = lens _ganPageToken (\ s a -> s{_ganPageToken = a})
instance AWSPager GetActiveNames where
page rq rs
| stop (rs ^. ganrsNextPageToken) = Nothing
| stop (rs ^. ganrsActiveNames) = Nothing
| otherwise =
Just $ rq & ganPageToken .~ rs ^. ganrsNextPageToken
instance AWSRequest GetActiveNames where
type Rs GetActiveNames = GetActiveNamesResponse
request = postJSON lightsail
response
= receiveJSON
(\ s h x ->
GetActiveNamesResponse' <$>
(x .?> "nextPageToken") <*>
(x .?> "activeNames" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetActiveNames where
instance NFData GetActiveNames where
instance ToHeaders GetActiveNames where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Lightsail_20161128.GetActiveNames" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetActiveNames where
toJSON GetActiveNames'{..}
= object
(catMaybes [("pageToken" .=) <$> _ganPageToken])
instance ToPath GetActiveNames where
toPath = const "/"
instance ToQuery GetActiveNames where
toQuery = const mempty
data GetActiveNamesResponse = GetActiveNamesResponse'
{ _ganrsNextPageToken :: !(Maybe Text)
, _ganrsActiveNames :: !(Maybe [Text])
, _ganrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getActiveNamesResponse
:: Int
-> GetActiveNamesResponse
getActiveNamesResponse pResponseStatus_ =
GetActiveNamesResponse'
{ _ganrsNextPageToken = Nothing
, _ganrsActiveNames = Nothing
, _ganrsResponseStatus = pResponseStatus_
}
ganrsNextPageToken :: Lens' GetActiveNamesResponse (Maybe Text)
ganrsNextPageToken = lens _ganrsNextPageToken (\ s a -> s{_ganrsNextPageToken = a})
ganrsActiveNames :: Lens' GetActiveNamesResponse [Text]
ganrsActiveNames = lens _ganrsActiveNames (\ s a -> s{_ganrsActiveNames = a}) . _Default . _Coerce
ganrsResponseStatus :: Lens' GetActiveNamesResponse Int
ganrsResponseStatus = lens _ganrsResponseStatus (\ s a -> s{_ganrsResponseStatus = a})
instance NFData GetActiveNamesResponse where