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