{-# 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.MediaPackage.ListOriginEndpoints
(
listOriginEndpoints
, ListOriginEndpoints
, loeChannelId
, loeNextToken
, loeMaxResults
, listOriginEndpointsResponse
, ListOriginEndpointsResponse
, loersOriginEndpoints
, loersNextToken
, loersResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MediaPackage.Types
import Network.AWS.MediaPackage.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListOriginEndpoints = ListOriginEndpoints'
{ _loeChannelId :: !(Maybe Text)
, _loeNextToken :: !(Maybe Text)
, _loeMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listOriginEndpoints
:: ListOriginEndpoints
listOriginEndpoints =
ListOriginEndpoints'
{_loeChannelId = Nothing, _loeNextToken = Nothing, _loeMaxResults = Nothing}
loeChannelId :: Lens' ListOriginEndpoints (Maybe Text)
loeChannelId = lens _loeChannelId (\ s a -> s{_loeChannelId = a})
loeNextToken :: Lens' ListOriginEndpoints (Maybe Text)
loeNextToken = lens _loeNextToken (\ s a -> s{_loeNextToken = a})
loeMaxResults :: Lens' ListOriginEndpoints (Maybe Natural)
loeMaxResults = lens _loeMaxResults (\ s a -> s{_loeMaxResults = a}) . mapping _Nat
instance AWSPager ListOriginEndpoints where
page rq rs
| stop (rs ^. loersNextToken) = Nothing
| stop (rs ^. loersOriginEndpoints) = Nothing
| otherwise =
Just $ rq & loeNextToken .~ rs ^. loersNextToken
instance AWSRequest ListOriginEndpoints where
type Rs ListOriginEndpoints =
ListOriginEndpointsResponse
request = get mediaPackage
response
= receiveJSON
(\ s h x ->
ListOriginEndpointsResponse' <$>
(x .?> "originEndpoints" .!@ mempty) <*>
(x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListOriginEndpoints where
instance NFData ListOriginEndpoints where
instance ToHeaders ListOriginEndpoints where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListOriginEndpoints where
toPath = const "/origin_endpoints"
instance ToQuery ListOriginEndpoints where
toQuery ListOriginEndpoints'{..}
= mconcat
["channelId" =: _loeChannelId,
"nextToken" =: _loeNextToken,
"maxResults" =: _loeMaxResults]
data ListOriginEndpointsResponse = ListOriginEndpointsResponse'
{ _loersOriginEndpoints :: !(Maybe [OriginEndpoint])
, _loersNextToken :: !(Maybe Text)
, _loersResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listOriginEndpointsResponse
:: Int
-> ListOriginEndpointsResponse
listOriginEndpointsResponse pResponseStatus_ =
ListOriginEndpointsResponse'
{ _loersOriginEndpoints = Nothing
, _loersNextToken = Nothing
, _loersResponseStatus = pResponseStatus_
}
loersOriginEndpoints :: Lens' ListOriginEndpointsResponse [OriginEndpoint]
loersOriginEndpoints = lens _loersOriginEndpoints (\ s a -> s{_loersOriginEndpoints = a}) . _Default . _Coerce
loersNextToken :: Lens' ListOriginEndpointsResponse (Maybe Text)
loersNextToken = lens _loersNextToken (\ s a -> s{_loersNextToken = a})
loersResponseStatus :: Lens' ListOriginEndpointsResponse Int
loersResponseStatus = lens _loersResponseStatus (\ s a -> s{_loersResponseStatus = a})
instance NFData ListOriginEndpointsResponse where