{-# 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.GetPreset
(
getPreset
, GetPreset
, gpName
, getPresetResponse
, GetPresetResponse
, gprsPreset
, gprsResponseStatus
) 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
newtype GetPreset = GetPreset'
{ _gpName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getPreset
:: Text
-> GetPreset
getPreset pName_ = GetPreset' {_gpName = pName_}
gpName :: Lens' GetPreset Text
gpName = lens _gpName (\ s a -> s{_gpName = a})
instance AWSRequest GetPreset where
type Rs GetPreset = GetPresetResponse
request = get mediaConvert
response
= receiveJSON
(\ s h x ->
GetPresetResponse' <$>
(x .?> "preset") <*> (pure (fromEnum s)))
instance Hashable GetPreset where
instance NFData GetPreset where
instance ToHeaders GetPreset where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetPreset where
toPath GetPreset'{..}
= mconcat ["/2017-08-29/presets/", toBS _gpName]
instance ToQuery GetPreset where
toQuery = const mempty
data GetPresetResponse = GetPresetResponse'
{ _gprsPreset :: !(Maybe Preset)
, _gprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getPresetResponse
:: Int
-> GetPresetResponse
getPresetResponse pResponseStatus_ =
GetPresetResponse'
{_gprsPreset = Nothing, _gprsResponseStatus = pResponseStatus_}
gprsPreset :: Lens' GetPresetResponse (Maybe Preset)
gprsPreset = lens _gprsPreset (\ s a -> s{_gprsPreset = a})
gprsResponseStatus :: Lens' GetPresetResponse Int
gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a})
instance NFData GetPresetResponse where