{-# 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.ElasticTranscoder.UpdatePipelineStatus
(
updatePipelineStatus
, UpdatePipelineStatus
, upsId
, upsStatus
, updatePipelineStatusResponse
, UpdatePipelineStatusResponse
, upsrsPipeline
, upsrsResponseStatus
) where
import Network.AWS.ElasticTranscoder.Types
import Network.AWS.ElasticTranscoder.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UpdatePipelineStatus = UpdatePipelineStatus'
{ _upsId :: !Text
, _upsStatus :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updatePipelineStatus
:: Text
-> Text
-> UpdatePipelineStatus
updatePipelineStatus pId_ pStatus_ =
UpdatePipelineStatus' {_upsId = pId_, _upsStatus = pStatus_}
upsId :: Lens' UpdatePipelineStatus Text
upsId = lens _upsId (\ s a -> s{_upsId = a})
upsStatus :: Lens' UpdatePipelineStatus Text
upsStatus = lens _upsStatus (\ s a -> s{_upsStatus = a})
instance AWSRequest UpdatePipelineStatus where
type Rs UpdatePipelineStatus =
UpdatePipelineStatusResponse
request = postJSON elasticTranscoder
response
= receiveJSON
(\ s h x ->
UpdatePipelineStatusResponse' <$>
(x .?> "Pipeline") <*> (pure (fromEnum s)))
instance Hashable UpdatePipelineStatus where
instance NFData UpdatePipelineStatus where
instance ToHeaders UpdatePipelineStatus where
toHeaders = const mempty
instance ToJSON UpdatePipelineStatus where
toJSON UpdatePipelineStatus'{..}
= object (catMaybes [Just ("Status" .= _upsStatus)])
instance ToPath UpdatePipelineStatus where
toPath UpdatePipelineStatus'{..}
= mconcat
["/2012-09-25/pipelines/", toBS _upsId, "/status"]
instance ToQuery UpdatePipelineStatus where
toQuery = const mempty
data UpdatePipelineStatusResponse = UpdatePipelineStatusResponse'
{ _upsrsPipeline :: !(Maybe Pipeline)
, _upsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updatePipelineStatusResponse
:: Int
-> UpdatePipelineStatusResponse
updatePipelineStatusResponse pResponseStatus_ =
UpdatePipelineStatusResponse'
{_upsrsPipeline = Nothing, _upsrsResponseStatus = pResponseStatus_}
upsrsPipeline :: Lens' UpdatePipelineStatusResponse (Maybe Pipeline)
upsrsPipeline = lens _upsrsPipeline (\ s a -> s{_upsrsPipeline = a})
upsrsResponseStatus :: Lens' UpdatePipelineStatusResponse Int
upsrsResponseStatus = lens _upsrsResponseStatus (\ s a -> s{_upsrsResponseStatus = a})
instance NFData UpdatePipelineStatusResponse where