{-# 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.ReadPreset
(
readPreset
, ReadPreset
, rpId
, readPresetResponse
, ReadPresetResponse
, rprsPreset
, rprsResponseStatus
) where
import Network.AWS.ElasticTranscoder.Types
import Network.AWS.ElasticTranscoder.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype ReadPreset = ReadPreset'
{ _rpId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
readPreset
:: Text
-> ReadPreset
readPreset pId_ = ReadPreset' {_rpId = pId_}
rpId :: Lens' ReadPreset Text
rpId = lens _rpId (\ s a -> s{_rpId = a})
instance AWSRequest ReadPreset where
type Rs ReadPreset = ReadPresetResponse
request = get elasticTranscoder
response
= receiveJSON
(\ s h x ->
ReadPresetResponse' <$>
(x .?> "Preset") <*> (pure (fromEnum s)))
instance Hashable ReadPreset where
instance NFData ReadPreset where
instance ToHeaders ReadPreset where
toHeaders = const mempty
instance ToPath ReadPreset where
toPath ReadPreset'{..}
= mconcat ["/2012-09-25/presets/", toBS _rpId]
instance ToQuery ReadPreset where
toQuery = const mempty
data ReadPresetResponse = ReadPresetResponse'
{ _rprsPreset :: !(Maybe Preset)
, _rprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
readPresetResponse
:: Int
-> ReadPresetResponse
readPresetResponse pResponseStatus_ =
ReadPresetResponse'
{_rprsPreset = Nothing, _rprsResponseStatus = pResponseStatus_}
rprsPreset :: Lens' ReadPresetResponse (Maybe Preset)
rprsPreset = lens _rprsPreset (\ s a -> s{_rprsPreset = a})
rprsResponseStatus :: Lens' ReadPresetResponse Int
rprsResponseStatus = lens _rprsResponseStatus (\ s a -> s{_rprsResponseStatus = a})
instance NFData ReadPresetResponse where