{-# 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.CreatePreset
(
createPreset
, CreatePreset
, cpSettings
, cpCategory
, cpName
, cpDescription
, createPresetResponse
, CreatePresetResponse
, cprsPreset
, cprsResponseStatus
) 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 CreatePreset = CreatePreset'
{ _cpSettings :: !(Maybe PresetSettings)
, _cpCategory :: !(Maybe Text)
, _cpName :: !(Maybe Text)
, _cpDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createPreset
:: CreatePreset
createPreset =
CreatePreset'
{ _cpSettings = Nothing
, _cpCategory = Nothing
, _cpName = Nothing
, _cpDescription = Nothing
}
cpSettings :: Lens' CreatePreset (Maybe PresetSettings)
cpSettings = lens _cpSettings (\ s a -> s{_cpSettings = a})
cpCategory :: Lens' CreatePreset (Maybe Text)
cpCategory = lens _cpCategory (\ s a -> s{_cpCategory = a})
cpName :: Lens' CreatePreset (Maybe Text)
cpName = lens _cpName (\ s a -> s{_cpName = a})
cpDescription :: Lens' CreatePreset (Maybe Text)
cpDescription = lens _cpDescription (\ s a -> s{_cpDescription = a})
instance AWSRequest CreatePreset where
type Rs CreatePreset = CreatePresetResponse
request = postJSON mediaConvert
response
= receiveJSON
(\ s h x ->
CreatePresetResponse' <$>
(x .?> "preset") <*> (pure (fromEnum s)))
instance Hashable CreatePreset where
instance NFData CreatePreset where
instance ToHeaders CreatePreset where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreatePreset where
toJSON CreatePreset'{..}
= object
(catMaybes
[("settings" .=) <$> _cpSettings,
("category" .=) <$> _cpCategory,
("name" .=) <$> _cpName,
("description" .=) <$> _cpDescription])
instance ToPath CreatePreset where
toPath = const "/2017-08-29/presets"
instance ToQuery CreatePreset where
toQuery = const mempty
data CreatePresetResponse = CreatePresetResponse'
{ _cprsPreset :: !(Maybe Preset)
, _cprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createPresetResponse
:: Int
-> CreatePresetResponse
createPresetResponse pResponseStatus_ =
CreatePresetResponse'
{_cprsPreset = Nothing, _cprsResponseStatus = pResponseStatus_}
cprsPreset :: Lens' CreatePresetResponse (Maybe Preset)
cprsPreset = lens _cprsPreset (\ s a -> s{_cprsPreset = a})
cprsResponseStatus :: Lens' CreatePresetResponse Int
cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a})
instance NFData CreatePresetResponse where