{-# 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.ListInputs
(
listInputs
, ListInputs
, liNextToken
, liMaxResults
, listInputsResponse
, ListInputsResponse
, lirsInputs
, lirsNextToken
, lirsResponseStatus
) 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 ListInputs = ListInputs'
{ _liNextToken :: !(Maybe Text)
, _liMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listInputs
:: ListInputs
listInputs = ListInputs' {_liNextToken = Nothing, _liMaxResults = Nothing}
liNextToken :: Lens' ListInputs (Maybe Text)
liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a})
liMaxResults :: Lens' ListInputs (Maybe Natural)
liMaxResults = lens _liMaxResults (\ s a -> s{_liMaxResults = a}) . mapping _Nat
instance AWSPager ListInputs where
page rq rs
| stop (rs ^. lirsNextToken) = Nothing
| stop (rs ^. lirsInputs) = Nothing
| otherwise =
Just $ rq & liNextToken .~ rs ^. lirsNextToken
instance AWSRequest ListInputs where
type Rs ListInputs = ListInputsResponse
request = get mediaLive
response
= receiveJSON
(\ s h x ->
ListInputsResponse' <$>
(x .?> "inputs" .!@ mempty) <*> (x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListInputs where
instance NFData ListInputs where
instance ToHeaders ListInputs where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListInputs where
toPath = const "/prod/inputs"
instance ToQuery ListInputs where
toQuery ListInputs'{..}
= mconcat
["nextToken" =: _liNextToken,
"maxResults" =: _liMaxResults]
data ListInputsResponse = ListInputsResponse'
{ _lirsInputs :: !(Maybe [Input])
, _lirsNextToken :: !(Maybe Text)
, _lirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listInputsResponse
:: Int
-> ListInputsResponse
listInputsResponse pResponseStatus_ =
ListInputsResponse'
{ _lirsInputs = Nothing
, _lirsNextToken = Nothing
, _lirsResponseStatus = pResponseStatus_
}
lirsInputs :: Lens' ListInputsResponse [Input]
lirsInputs = lens _lirsInputs (\ s a -> s{_lirsInputs = a}) . _Default . _Coerce
lirsNextToken :: Lens' ListInputsResponse (Maybe Text)
lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a})
lirsResponseStatus :: Lens' ListInputsResponse Int
lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a})
instance NFData ListInputsResponse where