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