{-# 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.GetQueue
(
getQueue
, GetQueue
, gqName
, getQueueResponse
, GetQueueResponse
, gqrsQueue
, gqrsResponseStatus
) 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 GetQueue = GetQueue'
{ _gqName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getQueue
:: Text
-> GetQueue
getQueue pName_ = GetQueue' {_gqName = pName_}
gqName :: Lens' GetQueue Text
gqName = lens _gqName (\ s a -> s{_gqName = a})
instance AWSRequest GetQueue where
type Rs GetQueue = GetQueueResponse
request = get mediaConvert
response
= receiveJSON
(\ s h x ->
GetQueueResponse' <$>
(x .?> "queue") <*> (pure (fromEnum s)))
instance Hashable GetQueue where
instance NFData GetQueue where
instance ToHeaders GetQueue where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetQueue where
toPath GetQueue'{..}
= mconcat ["/2017-08-29/queues/", toBS _gqName]
instance ToQuery GetQueue where
toQuery = const mempty
data GetQueueResponse = GetQueueResponse'
{ _gqrsQueue :: !(Maybe Queue)
, _gqrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getQueueResponse
:: Int
-> GetQueueResponse
getQueueResponse pResponseStatus_ =
GetQueueResponse'
{_gqrsQueue = Nothing, _gqrsResponseStatus = pResponseStatus_}
gqrsQueue :: Lens' GetQueueResponse (Maybe Queue)
gqrsQueue = lens _gqrsQueue (\ s a -> s{_gqrsQueue = a})
gqrsResponseStatus :: Lens' GetQueueResponse Int
gqrsResponseStatus = lens _gqrsResponseStatus (\ s a -> s{_gqrsResponseStatus = a})
instance NFData GetQueueResponse where