{-# 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.IoTAnalytics.ListPipelines
(
listPipelines
, ListPipelines
, lpNextToken
, lpMaxResults
, listPipelinesResponse
, ListPipelinesResponse
, lprsPipelineSummaries
, lprsNextToken
, lprsResponseStatus
) where
import Network.AWS.IoTAnalytics.Types
import Network.AWS.IoTAnalytics.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListPipelines = ListPipelines'
{ _lpNextToken :: !(Maybe Text)
, _lpMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPipelines
:: ListPipelines
listPipelines = ListPipelines' {_lpNextToken = Nothing, _lpMaxResults = Nothing}
lpNextToken :: Lens' ListPipelines (Maybe Text)
lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a})
lpMaxResults :: Lens' ListPipelines (Maybe Natural)
lpMaxResults = lens _lpMaxResults (\ s a -> s{_lpMaxResults = a}) . mapping _Nat
instance AWSRequest ListPipelines where
type Rs ListPipelines = ListPipelinesResponse
request = get ioTAnalytics
response
= receiveJSON
(\ s h x ->
ListPipelinesResponse' <$>
(x .?> "pipelineSummaries" .!@ mempty) <*>
(x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListPipelines where
instance NFData ListPipelines where
instance ToHeaders ListPipelines where
toHeaders = const mempty
instance ToPath ListPipelines where
toPath = const "/pipelines"
instance ToQuery ListPipelines where
toQuery ListPipelines'{..}
= mconcat
["nextToken" =: _lpNextToken,
"maxResults" =: _lpMaxResults]
data ListPipelinesResponse = ListPipelinesResponse'
{ _lprsPipelineSummaries :: !(Maybe [PipelineSummary])
, _lprsNextToken :: !(Maybe Text)
, _lprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPipelinesResponse
:: Int
-> ListPipelinesResponse
listPipelinesResponse pResponseStatus_ =
ListPipelinesResponse'
{ _lprsPipelineSummaries = Nothing
, _lprsNextToken = Nothing
, _lprsResponseStatus = pResponseStatus_
}
lprsPipelineSummaries :: Lens' ListPipelinesResponse [PipelineSummary]
lprsPipelineSummaries = lens _lprsPipelineSummaries (\ s a -> s{_lprsPipelineSummaries = a}) . _Default . _Coerce
lprsNextToken :: Lens' ListPipelinesResponse (Maybe Text)
lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a})
lprsResponseStatus :: Lens' ListPipelinesResponse Int
lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a})
instance NFData ListPipelinesResponse where