{-# 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.GetConnectors
(
getConnectors
, GetConnectors
, gcNextToken
, gcMaxResults
, getConnectorsResponse
, GetConnectorsResponse
, gcrsConnectorList
, gcrsNextToken
, gcrsResponseStatus
) 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 GetConnectors = GetConnectors'
{ _gcNextToken :: !(Maybe Text)
, _gcMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getConnectors
:: GetConnectors
getConnectors = GetConnectors' {_gcNextToken = Nothing, _gcMaxResults = Nothing}
gcNextToken :: Lens' GetConnectors (Maybe Text)
gcNextToken = lens _gcNextToken (\ s a -> s{_gcNextToken = a})
gcMaxResults :: Lens' GetConnectors (Maybe Int)
gcMaxResults = lens _gcMaxResults (\ s a -> s{_gcMaxResults = a})
instance AWSPager GetConnectors where
page rq rs
| stop (rs ^. gcrsNextToken) = Nothing
| stop (rs ^. gcrsConnectorList) = Nothing
| otherwise =
Just $ rq & gcNextToken .~ rs ^. gcrsNextToken
instance AWSRequest GetConnectors where
type Rs GetConnectors = GetConnectorsResponse
request = postJSON sms
response
= receiveJSON
(\ s h x ->
GetConnectorsResponse' <$>
(x .?> "connectorList" .!@ mempty) <*>
(x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable GetConnectors where
instance NFData GetConnectors where
instance ToHeaders GetConnectors where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSServerMigrationService_V2016_10_24.GetConnectors"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetConnectors where
toJSON GetConnectors'{..}
= object
(catMaybes
[("nextToken" .=) <$> _gcNextToken,
("maxResults" .=) <$> _gcMaxResults])
instance ToPath GetConnectors where
toPath = const "/"
instance ToQuery GetConnectors where
toQuery = const mempty
data GetConnectorsResponse = GetConnectorsResponse'
{ _gcrsConnectorList :: !(Maybe [Connector])
, _gcrsNextToken :: !(Maybe Text)
, _gcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getConnectorsResponse
:: Int
-> GetConnectorsResponse
getConnectorsResponse pResponseStatus_ =
GetConnectorsResponse'
{ _gcrsConnectorList = Nothing
, _gcrsNextToken = Nothing
, _gcrsResponseStatus = pResponseStatus_
}
gcrsConnectorList :: Lens' GetConnectorsResponse [Connector]
gcrsConnectorList = lens _gcrsConnectorList (\ s a -> s{_gcrsConnectorList = a}) . _Default . _Coerce
gcrsNextToken :: Lens' GetConnectorsResponse (Maybe Text)
gcrsNextToken = lens _gcrsNextToken (\ s a -> s{_gcrsNextToken = a})
gcrsResponseStatus :: Lens' GetConnectorsResponse Int
gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a})
instance NFData GetConnectorsResponse where