{-# 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.CountOpenWorkflowExecutions
(
countOpenWorkflowExecutions
, CountOpenWorkflowExecutions
, coweExecutionFilter
, coweTypeFilter
, coweTagFilter
, coweDomain
, coweStartTimeFilter
, workflowExecutionCount
, WorkflowExecutionCount
, wecTruncated
, wecCount
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SWF.Types
import Network.AWS.SWF.Types.Product
data CountOpenWorkflowExecutions = CountOpenWorkflowExecutions'
{ _coweExecutionFilter :: !(Maybe WorkflowExecutionFilter)
, _coweTypeFilter :: !(Maybe WorkflowTypeFilter)
, _coweTagFilter :: !(Maybe TagFilter)
, _coweDomain :: !Text
, _coweStartTimeFilter :: !ExecutionTimeFilter
} deriving (Eq, Read, Show, Data, Typeable, Generic)
countOpenWorkflowExecutions
:: Text
-> ExecutionTimeFilter
-> CountOpenWorkflowExecutions
countOpenWorkflowExecutions pDomain_ pStartTimeFilter_ =
CountOpenWorkflowExecutions'
{ _coweExecutionFilter = Nothing
, _coweTypeFilter = Nothing
, _coweTagFilter = Nothing
, _coweDomain = pDomain_
, _coweStartTimeFilter = pStartTimeFilter_
}
coweExecutionFilter :: Lens' CountOpenWorkflowExecutions (Maybe WorkflowExecutionFilter)
coweExecutionFilter = lens _coweExecutionFilter (\ s a -> s{_coweExecutionFilter = a})
coweTypeFilter :: Lens' CountOpenWorkflowExecutions (Maybe WorkflowTypeFilter)
coweTypeFilter = lens _coweTypeFilter (\ s a -> s{_coweTypeFilter = a})
coweTagFilter :: Lens' CountOpenWorkflowExecutions (Maybe TagFilter)
coweTagFilter = lens _coweTagFilter (\ s a -> s{_coweTagFilter = a})
coweDomain :: Lens' CountOpenWorkflowExecutions Text
coweDomain = lens _coweDomain (\ s a -> s{_coweDomain = a})
coweStartTimeFilter :: Lens' CountOpenWorkflowExecutions ExecutionTimeFilter
coweStartTimeFilter = lens _coweStartTimeFilter (\ s a -> s{_coweStartTimeFilter = a})
instance AWSRequest CountOpenWorkflowExecutions where
type Rs CountOpenWorkflowExecutions =
WorkflowExecutionCount
request = postJSON swf
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance Hashable CountOpenWorkflowExecutions where
instance NFData CountOpenWorkflowExecutions where
instance ToHeaders CountOpenWorkflowExecutions where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SimpleWorkflowService.CountOpenWorkflowExecutions"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.0" :: ByteString)])
instance ToJSON CountOpenWorkflowExecutions where
toJSON CountOpenWorkflowExecutions'{..}
= object
(catMaybes
[("executionFilter" .=) <$> _coweExecutionFilter,
("typeFilter" .=) <$> _coweTypeFilter,
("tagFilter" .=) <$> _coweTagFilter,
Just ("domain" .= _coweDomain),
Just ("startTimeFilter" .= _coweStartTimeFilter)])
instance ToPath CountOpenWorkflowExecutions where
toPath = const "/"
instance ToQuery CountOpenWorkflowExecutions where
toQuery = const mempty