{-# 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.MediaLive.ListChannels
(
listChannels
, ListChannels
, lcNextToken
, lcMaxResults
, listChannelsResponse
, ListChannelsResponse
, lcrsChannels
, lcrsNextToken
, lcrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MediaLive.Types
import Network.AWS.MediaLive.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListChannels = ListChannels'
{ _lcNextToken :: !(Maybe Text)
, _lcMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listChannels
:: ListChannels
listChannels = ListChannels' {_lcNextToken = Nothing, _lcMaxResults = Nothing}
lcNextToken :: Lens' ListChannels (Maybe Text)
lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a})
lcMaxResults :: Lens' ListChannels (Maybe Natural)
lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a}) . mapping _Nat
instance AWSPager ListChannels where
page rq rs
| stop (rs ^. lcrsNextToken) = Nothing
| stop (rs ^. lcrsChannels) = Nothing
| otherwise =
Just $ rq & lcNextToken .~ rs ^. lcrsNextToken
instance AWSRequest ListChannels where
type Rs ListChannels = ListChannelsResponse
request = get mediaLive
response
= receiveJSON
(\ s h x ->
ListChannelsResponse' <$>
(x .?> "channels" .!@ mempty) <*> (x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListChannels where
instance NFData ListChannels where
instance ToHeaders ListChannels where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListChannels where
toPath = const "/prod/channels"
instance ToQuery ListChannels where
toQuery ListChannels'{..}
= mconcat
["nextToken" =: _lcNextToken,
"maxResults" =: _lcMaxResults]
data ListChannelsResponse = ListChannelsResponse'
{ _lcrsChannels :: !(Maybe [ChannelSummary])
, _lcrsNextToken :: !(Maybe Text)
, _lcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listChannelsResponse
:: Int
-> ListChannelsResponse
listChannelsResponse pResponseStatus_ =
ListChannelsResponse'
{ _lcrsChannels = Nothing
, _lcrsNextToken = Nothing
, _lcrsResponseStatus = pResponseStatus_
}
lcrsChannels :: Lens' ListChannelsResponse [ChannelSummary]
lcrsChannels = lens _lcrsChannels (\ s a -> s{_lcrsChannels = a}) . _Default . _Coerce
lcrsNextToken :: Lens' ListChannelsResponse (Maybe Text)
lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a})
lcrsResponseStatus :: Lens' ListChannelsResponse Int
lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a})
instance NFData ListChannelsResponse where