{-# 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.SWF.ListOpenWorkflowExecutions
(
listOpenWorkflowExecutions
, ListOpenWorkflowExecutions
, loweNextPageToken
, loweExecutionFilter
, loweTypeFilter
, loweReverseOrder
, loweTagFilter
, loweMaximumPageSize
, loweDomain
, loweStartTimeFilter
, workflowExecutionInfos
, WorkflowExecutionInfos
, weiNextPageToken
, weiExecutionInfos
) where
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SWF.Types
import Network.AWS.SWF.Types.Product
data ListOpenWorkflowExecutions = ListOpenWorkflowExecutions'
{ _loweNextPageToken :: !(Maybe Text)
, _loweExecutionFilter :: !(Maybe WorkflowExecutionFilter)
, _loweTypeFilter :: !(Maybe WorkflowTypeFilter)
, _loweReverseOrder :: !(Maybe Bool)
, _loweTagFilter :: !(Maybe TagFilter)
, _loweMaximumPageSize :: !(Maybe Nat)
, _loweDomain :: !Text
, _loweStartTimeFilter :: !ExecutionTimeFilter
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listOpenWorkflowExecutions
:: Text
-> ExecutionTimeFilter
-> ListOpenWorkflowExecutions
listOpenWorkflowExecutions pDomain_ pStartTimeFilter_ =
ListOpenWorkflowExecutions'
{ _loweNextPageToken = Nothing
, _loweExecutionFilter = Nothing
, _loweTypeFilter = Nothing
, _loweReverseOrder = Nothing
, _loweTagFilter = Nothing
, _loweMaximumPageSize = Nothing
, _loweDomain = pDomain_
, _loweStartTimeFilter = pStartTimeFilter_
}
loweNextPageToken :: Lens' ListOpenWorkflowExecutions (Maybe Text)
loweNextPageToken = lens _loweNextPageToken (\ s a -> s{_loweNextPageToken = a});
loweExecutionFilter :: Lens' ListOpenWorkflowExecutions (Maybe WorkflowExecutionFilter)
loweExecutionFilter = lens _loweExecutionFilter (\ s a -> s{_loweExecutionFilter = a});
loweTypeFilter :: Lens' ListOpenWorkflowExecutions (Maybe WorkflowTypeFilter)
loweTypeFilter = lens _loweTypeFilter (\ s a -> s{_loweTypeFilter = a});
loweReverseOrder :: Lens' ListOpenWorkflowExecutions (Maybe Bool)
loweReverseOrder = lens _loweReverseOrder (\ s a -> s{_loweReverseOrder = a});
loweTagFilter :: Lens' ListOpenWorkflowExecutions (Maybe TagFilter)
loweTagFilter = lens _loweTagFilter (\ s a -> s{_loweTagFilter = a});
loweMaximumPageSize :: Lens' ListOpenWorkflowExecutions (Maybe Natural)
loweMaximumPageSize = lens _loweMaximumPageSize (\ s a -> s{_loweMaximumPageSize = a}) . mapping _Nat;
loweDomain :: Lens' ListOpenWorkflowExecutions Text
loweDomain = lens _loweDomain (\ s a -> s{_loweDomain = a});
loweStartTimeFilter :: Lens' ListOpenWorkflowExecutions ExecutionTimeFilter
loweStartTimeFilter = lens _loweStartTimeFilter (\ s a -> s{_loweStartTimeFilter = a});
instance AWSPager ListOpenWorkflowExecutions where
page rq rs
| stop (rs ^. weiNextPageToken) = Nothing
| stop (rs ^. weiExecutionInfos) = Nothing
| otherwise =
Just $ rq &
loweNextPageToken .~ rs ^. weiNextPageToken
instance AWSRequest ListOpenWorkflowExecutions where
type Rs ListOpenWorkflowExecutions =
WorkflowExecutionInfos
request = postJSON swf
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance Hashable ListOpenWorkflowExecutions
instance NFData ListOpenWorkflowExecutions
instance ToHeaders ListOpenWorkflowExecutions where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SimpleWorkflowService.ListOpenWorkflowExecutions"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.0" :: ByteString)])
instance ToJSON ListOpenWorkflowExecutions where
toJSON ListOpenWorkflowExecutions'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _loweNextPageToken,
("executionFilter" .=) <$> _loweExecutionFilter,
("typeFilter" .=) <$> _loweTypeFilter,
("reverseOrder" .=) <$> _loweReverseOrder,
("tagFilter" .=) <$> _loweTagFilter,
("maximumPageSize" .=) <$> _loweMaximumPageSize,
Just ("domain" .= _loweDomain),
Just ("startTimeFilter" .= _loweStartTimeFilter)])
instance ToPath ListOpenWorkflowExecutions where
toPath = const "/"
instance ToQuery ListOpenWorkflowExecutions where
toQuery = const mempty