{-# 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.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 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
instance NFData GetConnectors
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