{-# 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.CreateJob
(
createJob
, CreateJob
, cjJobTemplate
, cjSettings
, cjQueue
, cjUserMetadata
, cjRole
, cjClientRequestToken
, createJobResponse
, CreateJobResponse
, cjrsJob
, cjrsResponseStatus
) 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 CreateJob = CreateJob'
{ _cjJobTemplate :: !(Maybe Text)
, _cjSettings :: !(Maybe JobSettings)
, _cjQueue :: !(Maybe Text)
, _cjUserMetadata :: !(Maybe (Map Text Text))
, _cjRole :: !(Maybe Text)
, _cjClientRequestToken :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createJob
:: CreateJob
createJob =
CreateJob'
{ _cjJobTemplate = Nothing
, _cjSettings = Nothing
, _cjQueue = Nothing
, _cjUserMetadata = Nothing
, _cjRole = Nothing
, _cjClientRequestToken = Nothing
}
cjJobTemplate :: Lens' CreateJob (Maybe Text)
cjJobTemplate = lens _cjJobTemplate (\ s a -> s{_cjJobTemplate = a})
cjSettings :: Lens' CreateJob (Maybe JobSettings)
cjSettings = lens _cjSettings (\ s a -> s{_cjSettings = a})
cjQueue :: Lens' CreateJob (Maybe Text)
cjQueue = lens _cjQueue (\ s a -> s{_cjQueue = a})
cjUserMetadata :: Lens' CreateJob (HashMap Text Text)
cjUserMetadata = lens _cjUserMetadata (\ s a -> s{_cjUserMetadata = a}) . _Default . _Map
cjRole :: Lens' CreateJob (Maybe Text)
cjRole = lens _cjRole (\ s a -> s{_cjRole = a})
cjClientRequestToken :: Lens' CreateJob (Maybe Text)
cjClientRequestToken = lens _cjClientRequestToken (\ s a -> s{_cjClientRequestToken = a})
instance AWSRequest CreateJob where
type Rs CreateJob = CreateJobResponse
request = postJSON mediaConvert
response
= receiveJSON
(\ s h x ->
CreateJobResponse' <$>
(x .?> "job") <*> (pure (fromEnum s)))
instance Hashable CreateJob where
instance NFData CreateJob where
instance ToHeaders CreateJob where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateJob where
toJSON CreateJob'{..}
= object
(catMaybes
[("jobTemplate" .=) <$> _cjJobTemplate,
("settings" .=) <$> _cjSettings,
("queue" .=) <$> _cjQueue,
("userMetadata" .=) <$> _cjUserMetadata,
("role" .=) <$> _cjRole,
("clientRequestToken" .=) <$> _cjClientRequestToken])
instance ToPath CreateJob where
toPath = const "/2017-08-29/jobs"
instance ToQuery CreateJob where
toQuery = const mempty
data CreateJobResponse = CreateJobResponse'
{ _cjrsJob :: !(Maybe Job)
, _cjrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createJobResponse
:: Int
-> CreateJobResponse
createJobResponse pResponseStatus_ =
CreateJobResponse'
{_cjrsJob = Nothing, _cjrsResponseStatus = pResponseStatus_}
cjrsJob :: Lens' CreateJobResponse (Maybe Job)
cjrsJob = lens _cjrsJob (\ s a -> s{_cjrsJob = a})
cjrsResponseStatus :: Lens' CreateJobResponse Int
cjrsResponseStatus = lens _cjrsResponseStatus (\ s a -> s{_cjrsResponseStatus = a})
instance NFData CreateJobResponse where