{-# 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.ListPresets
(
listPresets
, ListPresets
, lpCategory
, lpListBy
, lpNextToken
, lpOrder
, lpMaxResults
, listPresetsResponse
, ListPresetsResponse
, lprsPresets
, lprsNextToken
, lprsResponseStatus
) 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 ListPresets = ListPresets'
{ _lpCategory :: !(Maybe Text)
, _lpListBy :: !(Maybe PresetListBy)
, _lpNextToken :: !(Maybe Text)
, _lpOrder :: !(Maybe Order)
, _lpMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPresets
:: ListPresets
listPresets =
ListPresets'
{ _lpCategory = Nothing
, _lpListBy = Nothing
, _lpNextToken = Nothing
, _lpOrder = Nothing
, _lpMaxResults = Nothing
}
lpCategory :: Lens' ListPresets (Maybe Text)
lpCategory = lens _lpCategory (\ s a -> s{_lpCategory = a})
lpListBy :: Lens' ListPresets (Maybe PresetListBy)
lpListBy = lens _lpListBy (\ s a -> s{_lpListBy = a})
lpNextToken :: Lens' ListPresets (Maybe Text)
lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a})
lpOrder :: Lens' ListPresets (Maybe Order)
lpOrder = lens _lpOrder (\ s a -> s{_lpOrder = a})
lpMaxResults :: Lens' ListPresets (Maybe Int)
lpMaxResults = lens _lpMaxResults (\ s a -> s{_lpMaxResults = a})
instance AWSRequest ListPresets where
type Rs ListPresets = ListPresetsResponse
request = get mediaConvert
response
= receiveJSON
(\ s h x ->
ListPresetsResponse' <$>
(x .?> "presets" .!@ mempty) <*> (x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListPresets where
instance NFData ListPresets where
instance ToHeaders ListPresets where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListPresets where
toPath = const "/2017-08-29/presets"
instance ToQuery ListPresets where
toQuery ListPresets'{..}
= mconcat
["category" =: _lpCategory, "listBy" =: _lpListBy,
"nextToken" =: _lpNextToken, "order" =: _lpOrder,
"maxResults" =: _lpMaxResults]
data ListPresetsResponse = ListPresetsResponse'
{ _lprsPresets :: !(Maybe [Preset])
, _lprsNextToken :: !(Maybe Text)
, _lprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPresetsResponse
:: Int
-> ListPresetsResponse
listPresetsResponse pResponseStatus_ =
ListPresetsResponse'
{ _lprsPresets = Nothing
, _lprsNextToken = Nothing
, _lprsResponseStatus = pResponseStatus_
}
lprsPresets :: Lens' ListPresetsResponse [Preset]
lprsPresets = lens _lprsPresets (\ s a -> s{_lprsPresets = a}) . _Default . _Coerce
lprsNextToken :: Lens' ListPresetsResponse (Maybe Text)
lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a})
lprsResponseStatus :: Lens' ListPresetsResponse Int
lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a})
instance NFData ListPresetsResponse where