{-# 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.ElasticTranscoder.ListPresets
(
listPresets
, ListPresets
, lAscending
, lPageToken
, listPresetsResponse
, ListPresetsResponse
, lrsNextPageToken
, lrsPresets
, lrsResponseStatus
) where
import Network.AWS.ElasticTranscoder.Types
import Network.AWS.ElasticTranscoder.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListPresets = ListPresets'
{ _lAscending :: !(Maybe Text)
, _lPageToken :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPresets
:: ListPresets
listPresets = ListPresets' {_lAscending = Nothing, _lPageToken = Nothing}
lAscending :: Lens' ListPresets (Maybe Text)
lAscending = lens _lAscending (\ s a -> s{_lAscending = a})
lPageToken :: Lens' ListPresets (Maybe Text)
lPageToken = lens _lPageToken (\ s a -> s{_lPageToken = a})
instance AWSPager ListPresets where
page rq rs
| stop (rs ^. lrsNextPageToken) = Nothing
| stop (rs ^. lrsPresets) = Nothing
| otherwise =
Just $ rq & lPageToken .~ rs ^. lrsNextPageToken
instance AWSRequest ListPresets where
type Rs ListPresets = ListPresetsResponse
request = get elasticTranscoder
response
= receiveJSON
(\ s h x ->
ListPresetsResponse' <$>
(x .?> "NextPageToken") <*>
(x .?> "Presets" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListPresets where
instance NFData ListPresets where
instance ToHeaders ListPresets where
toHeaders = const mempty
instance ToPath ListPresets where
toPath = const "/2012-09-25/presets"
instance ToQuery ListPresets where
toQuery ListPresets'{..}
= mconcat
["Ascending" =: _lAscending,
"PageToken" =: _lPageToken]
data ListPresetsResponse = ListPresetsResponse'
{ _lrsNextPageToken :: !(Maybe Text)
, _lrsPresets :: !(Maybe [Preset])
, _lrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPresetsResponse
:: Int
-> ListPresetsResponse
listPresetsResponse pResponseStatus_ =
ListPresetsResponse'
{ _lrsNextPageToken = Nothing
, _lrsPresets = Nothing
, _lrsResponseStatus = pResponseStatus_
}
lrsNextPageToken :: Lens' ListPresetsResponse (Maybe Text)
lrsNextPageToken = lens _lrsNextPageToken (\ s a -> s{_lrsNextPageToken = a})
lrsPresets :: Lens' ListPresetsResponse [Preset]
lrsPresets = lens _lrsPresets (\ s a -> s{_lrsPresets = a}) . _Default . _Coerce
lrsResponseStatus :: Lens' ListPresetsResponse Int
lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a})
instance NFData ListPresetsResponse where