{-# 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.CountPendingDecisionTasks
(
countPendingDecisionTasks
, CountPendingDecisionTasks
, cpdtDomain
, cpdtTaskList
, pendingTaskCount
, PendingTaskCount
, ptcTruncated
, ptcCount
) 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 CountPendingDecisionTasks = CountPendingDecisionTasks'
{ _cpdtDomain :: !Text
, _cpdtTaskList :: !TaskList
} deriving (Eq,Read,Show,Data,Typeable,Generic)
countPendingDecisionTasks
:: Text
-> TaskList
-> CountPendingDecisionTasks
countPendingDecisionTasks pDomain_ pTaskList_ =
CountPendingDecisionTasks'
{ _cpdtDomain = pDomain_
, _cpdtTaskList = pTaskList_
}
cpdtDomain :: Lens' CountPendingDecisionTasks Text
cpdtDomain = lens _cpdtDomain (\ s a -> s{_cpdtDomain = a});
cpdtTaskList :: Lens' CountPendingDecisionTasks TaskList
cpdtTaskList = lens _cpdtTaskList (\ s a -> s{_cpdtTaskList = a});
instance AWSRequest CountPendingDecisionTasks where
type Rs CountPendingDecisionTasks = PendingTaskCount
request = postJSON swf
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance Hashable CountPendingDecisionTasks
instance NFData CountPendingDecisionTasks
instance ToHeaders CountPendingDecisionTasks where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SimpleWorkflowService.CountPendingDecisionTasks" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.0" :: ByteString)])
instance ToJSON CountPendingDecisionTasks where
toJSON CountPendingDecisionTasks'{..}
= object
(catMaybes
[Just ("domain" .= _cpdtDomain),
Just ("taskList" .= _cpdtTaskList)])
instance ToPath CountPendingDecisionTasks where
toPath = const "/"
instance ToQuery CountPendingDecisionTasks where
toQuery = const mempty