{-# 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.GetJobTemplate
(
getJobTemplate
, GetJobTemplate
, gjtName
, getJobTemplateResponse
, GetJobTemplateResponse
, gjtrsJobTemplate
, gjtrsResponseStatus
) 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 GetJobTemplate = GetJobTemplate'
{ _gjtName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getJobTemplate
:: Text
-> GetJobTemplate
getJobTemplate pName_ = GetJobTemplate' {_gjtName = pName_}
gjtName :: Lens' GetJobTemplate Text
gjtName = lens _gjtName (\ s a -> s{_gjtName = a})
instance AWSRequest GetJobTemplate where
type Rs GetJobTemplate = GetJobTemplateResponse
request = get mediaConvert
response
= receiveJSON
(\ s h x ->
GetJobTemplateResponse' <$>
(x .?> "jobTemplate") <*> (pure (fromEnum s)))
instance Hashable GetJobTemplate where
instance NFData GetJobTemplate where
instance ToHeaders GetJobTemplate where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetJobTemplate where
toPath GetJobTemplate'{..}
= mconcat
["/2017-08-29/jobTemplates/", toBS _gjtName]
instance ToQuery GetJobTemplate where
toQuery = const mempty
data GetJobTemplateResponse = GetJobTemplateResponse'
{ _gjtrsJobTemplate :: !(Maybe JobTemplate)
, _gjtrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getJobTemplateResponse
:: Int
-> GetJobTemplateResponse
getJobTemplateResponse pResponseStatus_ =
GetJobTemplateResponse'
{_gjtrsJobTemplate = Nothing, _gjtrsResponseStatus = pResponseStatus_}
gjtrsJobTemplate :: Lens' GetJobTemplateResponse (Maybe JobTemplate)
gjtrsJobTemplate = lens _gjtrsJobTemplate (\ s a -> s{_gjtrsJobTemplate = a})
gjtrsResponseStatus :: Lens' GetJobTemplateResponse Int
gjtrsResponseStatus = lens _gjtrsResponseStatus (\ s a -> s{_gjtrsResponseStatus = a})
instance NFData GetJobTemplateResponse where