{-# 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.SMS.GetServers
(
getServers
, GetServers
, gsNextToken
, gsMaxResults
, getServersResponse
, GetServersResponse
, gsrsServerCatalogStatus
, gsrsLastModifiedOn
, gsrsNextToken
, gsrsServerList
, gsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SMS.Types
import Network.AWS.SMS.Types.Product
data GetServers = GetServers'
{ _gsNextToken :: !(Maybe Text)
, _gsMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getServers
:: GetServers
getServers = GetServers' {_gsNextToken = Nothing, _gsMaxResults = Nothing}
gsNextToken :: Lens' GetServers (Maybe Text)
gsNextToken = lens _gsNextToken (\ s a -> s{_gsNextToken = a})
gsMaxResults :: Lens' GetServers (Maybe Int)
gsMaxResults = lens _gsMaxResults (\ s a -> s{_gsMaxResults = a})
instance AWSPager GetServers where
page rq rs
| stop (rs ^. gsrsNextToken) = Nothing
| stop (rs ^. gsrsServerList) = Nothing
| otherwise =
Just $ rq & gsNextToken .~ rs ^. gsrsNextToken
instance AWSRequest GetServers where
type Rs GetServers = GetServersResponse
request = postJSON sms
response
= receiveJSON
(\ s h x ->
GetServersResponse' <$>
(x .?> "serverCatalogStatus") <*>
(x .?> "lastModifiedOn")
<*> (x .?> "nextToken")
<*> (x .?> "serverList" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetServers where
instance NFData GetServers where
instance ToHeaders GetServers where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSServerMigrationService_V2016_10_24.GetServers"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetServers where
toJSON GetServers'{..}
= object
(catMaybes
[("nextToken" .=) <$> _gsNextToken,
("maxResults" .=) <$> _gsMaxResults])
instance ToPath GetServers where
toPath = const "/"
instance ToQuery GetServers where
toQuery = const mempty
data GetServersResponse = GetServersResponse'
{ _gsrsServerCatalogStatus :: !(Maybe ServerCatalogStatus)
, _gsrsLastModifiedOn :: !(Maybe POSIX)
, _gsrsNextToken :: !(Maybe Text)
, _gsrsServerList :: !(Maybe [Server])
, _gsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getServersResponse
:: Int
-> GetServersResponse
getServersResponse pResponseStatus_ =
GetServersResponse'
{ _gsrsServerCatalogStatus = Nothing
, _gsrsLastModifiedOn = Nothing
, _gsrsNextToken = Nothing
, _gsrsServerList = Nothing
, _gsrsResponseStatus = pResponseStatus_
}
gsrsServerCatalogStatus :: Lens' GetServersResponse (Maybe ServerCatalogStatus)
gsrsServerCatalogStatus = lens _gsrsServerCatalogStatus (\ s a -> s{_gsrsServerCatalogStatus = a})
gsrsLastModifiedOn :: Lens' GetServersResponse (Maybe UTCTime)
gsrsLastModifiedOn = lens _gsrsLastModifiedOn (\ s a -> s{_gsrsLastModifiedOn = a}) . mapping _Time
gsrsNextToken :: Lens' GetServersResponse (Maybe Text)
gsrsNextToken = lens _gsrsNextToken (\ s a -> s{_gsrsNextToken = a})
gsrsServerList :: Lens' GetServersResponse [Server]
gsrsServerList = lens _gsrsServerList (\ s a -> s{_gsrsServerList = a}) . _Default . _Coerce
gsrsResponseStatus :: Lens' GetServersResponse Int
gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a})
instance NFData GetServersResponse where