{-# 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.UpdateJobTemplate
(
updateJobTemplate
, UpdateJobTemplate
, ujtSettings
, ujtCategory
, ujtQueue
, ujtDescription
, ujtName
, updateJobTemplateResponse
, UpdateJobTemplateResponse
, ujtrsJobTemplate
, ujtrsResponseStatus
) 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 UpdateJobTemplate = UpdateJobTemplate'
{ _ujtSettings :: !(Maybe JobTemplateSettings)
, _ujtCategory :: !(Maybe Text)
, _ujtQueue :: !(Maybe Text)
, _ujtDescription :: !(Maybe Text)
, _ujtName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateJobTemplate
:: Text
-> UpdateJobTemplate
updateJobTemplate pName_ =
UpdateJobTemplate'
{ _ujtSettings = Nothing
, _ujtCategory = Nothing
, _ujtQueue = Nothing
, _ujtDescription = Nothing
, _ujtName = pName_
}
ujtSettings :: Lens' UpdateJobTemplate (Maybe JobTemplateSettings)
ujtSettings = lens _ujtSettings (\ s a -> s{_ujtSettings = a})
ujtCategory :: Lens' UpdateJobTemplate (Maybe Text)
ujtCategory = lens _ujtCategory (\ s a -> s{_ujtCategory = a})
ujtQueue :: Lens' UpdateJobTemplate (Maybe Text)
ujtQueue = lens _ujtQueue (\ s a -> s{_ujtQueue = a})
ujtDescription :: Lens' UpdateJobTemplate (Maybe Text)
ujtDescription = lens _ujtDescription (\ s a -> s{_ujtDescription = a})
ujtName :: Lens' UpdateJobTemplate Text
ujtName = lens _ujtName (\ s a -> s{_ujtName = a})
instance AWSRequest UpdateJobTemplate where
type Rs UpdateJobTemplate = UpdateJobTemplateResponse
request = putJSON mediaConvert
response
= receiveJSON
(\ s h x ->
UpdateJobTemplateResponse' <$>
(x .?> "jobTemplate") <*> (pure (fromEnum s)))
instance Hashable UpdateJobTemplate where
instance NFData UpdateJobTemplate where
instance ToHeaders UpdateJobTemplate where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateJobTemplate where
toJSON UpdateJobTemplate'{..}
= object
(catMaybes
[("settings" .=) <$> _ujtSettings,
("category" .=) <$> _ujtCategory,
("queue" .=) <$> _ujtQueue,
("description" .=) <$> _ujtDescription])
instance ToPath UpdateJobTemplate where
toPath UpdateJobTemplate'{..}
= mconcat
["/2017-08-29/jobTemplates/", toBS _ujtName]
instance ToQuery UpdateJobTemplate where
toQuery = const mempty
data UpdateJobTemplateResponse = UpdateJobTemplateResponse'
{ _ujtrsJobTemplate :: !(Maybe JobTemplate)
, _ujtrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateJobTemplateResponse
:: Int
-> UpdateJobTemplateResponse
updateJobTemplateResponse pResponseStatus_ =
UpdateJobTemplateResponse'
{_ujtrsJobTemplate = Nothing, _ujtrsResponseStatus = pResponseStatus_}
ujtrsJobTemplate :: Lens' UpdateJobTemplateResponse (Maybe JobTemplate)
ujtrsJobTemplate = lens _ujtrsJobTemplate (\ s a -> s{_ujtrsJobTemplate = a})
ujtrsResponseStatus :: Lens' UpdateJobTemplateResponse Int
ujtrsResponseStatus = lens _ujtrsResponseStatus (\ s a -> s{_ujtrsResponseStatus = a})
instance NFData UpdateJobTemplateResponse where