{-# 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.MediaConvert.ListQueues
(
listQueues
, ListQueues
, lqListBy
, lqNextToken
, lqOrder
, lqMaxResults
, listQueuesResponse
, ListQueuesResponse
, lqrsQueues
, lqrsNextToken
, lqrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MediaConvert.Types
import Network.AWS.MediaConvert.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListQueues = ListQueues'
{ _lqListBy :: !(Maybe QueueListBy)
, _lqNextToken :: !(Maybe Text)
, _lqOrder :: !(Maybe Order)
, _lqMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listQueues
:: ListQueues
listQueues =
ListQueues'
{ _lqListBy = Nothing
, _lqNextToken = Nothing
, _lqOrder = Nothing
, _lqMaxResults = Nothing
}
lqListBy :: Lens' ListQueues (Maybe QueueListBy)
lqListBy = lens _lqListBy (\ s a -> s{_lqListBy = a})
lqNextToken :: Lens' ListQueues (Maybe Text)
lqNextToken = lens _lqNextToken (\ s a -> s{_lqNextToken = a})
lqOrder :: Lens' ListQueues (Maybe Order)
lqOrder = lens _lqOrder (\ s a -> s{_lqOrder = a})
lqMaxResults :: Lens' ListQueues (Maybe Int)
lqMaxResults = lens _lqMaxResults (\ s a -> s{_lqMaxResults = a})
instance AWSRequest ListQueues where
type Rs ListQueues = ListQueuesResponse
request = get mediaConvert
response
= receiveJSON
(\ s h x ->
ListQueuesResponse' <$>
(x .?> "queues" .!@ mempty) <*> (x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListQueues where
instance NFData ListQueues where
instance ToHeaders ListQueues where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListQueues where
toPath = const "/2017-08-29/queues"
instance ToQuery ListQueues where
toQuery ListQueues'{..}
= mconcat
["listBy" =: _lqListBy, "nextToken" =: _lqNextToken,
"order" =: _lqOrder, "maxResults" =: _lqMaxResults]
data ListQueuesResponse = ListQueuesResponse'
{ _lqrsQueues :: !(Maybe [Queue])
, _lqrsNextToken :: !(Maybe Text)
, _lqrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listQueuesResponse
:: Int
-> ListQueuesResponse
listQueuesResponse pResponseStatus_ =
ListQueuesResponse'
{ _lqrsQueues = Nothing
, _lqrsNextToken = Nothing
, _lqrsResponseStatus = pResponseStatus_
}
lqrsQueues :: Lens' ListQueuesResponse [Queue]
lqrsQueues = lens _lqrsQueues (\ s a -> s{_lqrsQueues = a}) . _Default . _Coerce
lqrsNextToken :: Lens' ListQueuesResponse (Maybe Text)
lqrsNextToken = lens _lqrsNextToken (\ s a -> s{_lqrsNextToken = a})
lqrsResponseStatus :: Lens' ListQueuesResponse Int
lqrsResponseStatus = lens _lqrsResponseStatus (\ s a -> s{_lqrsResponseStatus = a})
instance NFData ListQueuesResponse where