{-# 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.AppSync.ListDataSources
(
listDataSources
, ListDataSources
, ldsNextToken
, ldsMaxResults
, ldsApiId
, listDataSourcesResponse
, ListDataSourcesResponse
, ldsrsDataSources
, ldsrsNextToken
, ldsrsResponseStatus
) where
import Network.AWS.AppSync.Types
import Network.AWS.AppSync.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListDataSources = ListDataSources'
{ _ldsNextToken :: !(Maybe Text)
, _ldsMaxResults :: !(Maybe Nat)
, _ldsApiId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDataSources
:: Text
-> ListDataSources
listDataSources pApiId_ =
ListDataSources'
{_ldsNextToken = Nothing, _ldsMaxResults = Nothing, _ldsApiId = pApiId_}
ldsNextToken :: Lens' ListDataSources (Maybe Text)
ldsNextToken = lens _ldsNextToken (\ s a -> s{_ldsNextToken = a})
ldsMaxResults :: Lens' ListDataSources (Maybe Natural)
ldsMaxResults = lens _ldsMaxResults (\ s a -> s{_ldsMaxResults = a}) . mapping _Nat
ldsApiId :: Lens' ListDataSources Text
ldsApiId = lens _ldsApiId (\ s a -> s{_ldsApiId = a})
instance AWSRequest ListDataSources where
type Rs ListDataSources = ListDataSourcesResponse
request = get appSync
response
= receiveJSON
(\ s h x ->
ListDataSourcesResponse' <$>
(x .?> "dataSources" .!@ mempty) <*>
(x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListDataSources where
instance NFData ListDataSources where
instance ToHeaders ListDataSources where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListDataSources where
toPath ListDataSources'{..}
= mconcat
["/v1/apis/", toBS _ldsApiId, "/datasources"]
instance ToQuery ListDataSources where
toQuery ListDataSources'{..}
= mconcat
["nextToken" =: _ldsNextToken,
"maxResults" =: _ldsMaxResults]
data ListDataSourcesResponse = ListDataSourcesResponse'
{ _ldsrsDataSources :: !(Maybe [DataSource])
, _ldsrsNextToken :: !(Maybe Text)
, _ldsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDataSourcesResponse
:: Int
-> ListDataSourcesResponse
listDataSourcesResponse pResponseStatus_ =
ListDataSourcesResponse'
{ _ldsrsDataSources = Nothing
, _ldsrsNextToken = Nothing
, _ldsrsResponseStatus = pResponseStatus_
}
ldsrsDataSources :: Lens' ListDataSourcesResponse [DataSource]
ldsrsDataSources = lens _ldsrsDataSources (\ s a -> s{_ldsrsDataSources = a}) . _Default . _Coerce
ldsrsNextToken :: Lens' ListDataSourcesResponse (Maybe Text)
ldsrsNextToken = lens _ldsrsNextToken (\ s a -> s{_ldsrsNextToken = a})
ldsrsResponseStatus :: Lens' ListDataSourcesResponse Int
ldsrsResponseStatus = lens _ldsrsResponseStatus (\ s a -> s{_ldsrsResponseStatus = a})
instance NFData ListDataSourcesResponse where