{-# 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.DeleteJobTemplate
(
deleteJobTemplate
, DeleteJobTemplate
, djtName
, deleteJobTemplateResponse
, DeleteJobTemplateResponse
, djtrsResponseStatus
) 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 DeleteJobTemplate = DeleteJobTemplate'
{ _djtName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteJobTemplate
:: Text
-> DeleteJobTemplate
deleteJobTemplate pName_ = DeleteJobTemplate' {_djtName = pName_}
djtName :: Lens' DeleteJobTemplate Text
djtName = lens _djtName (\ s a -> s{_djtName = a})
instance AWSRequest DeleteJobTemplate where
type Rs DeleteJobTemplate = DeleteJobTemplateResponse
request = delete mediaConvert
response
= receiveEmpty
(\ s h x ->
DeleteJobTemplateResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteJobTemplate where
instance NFData DeleteJobTemplate where
instance ToHeaders DeleteJobTemplate where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteJobTemplate where
toPath DeleteJobTemplate'{..}
= mconcat
["/2017-08-29/jobTemplates/", toBS _djtName]
instance ToQuery DeleteJobTemplate where
toQuery = const mempty
newtype DeleteJobTemplateResponse = DeleteJobTemplateResponse'
{ _djtrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteJobTemplateResponse
:: Int
-> DeleteJobTemplateResponse
deleteJobTemplateResponse pResponseStatus_ =
DeleteJobTemplateResponse' {_djtrsResponseStatus = pResponseStatus_}
djtrsResponseStatus :: Lens' DeleteJobTemplateResponse Int
djtrsResponseStatus = lens _djtrsResponseStatus (\ s a -> s{_djtrsResponseStatus = a})
instance NFData DeleteJobTemplateResponse where