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
instance NFData UpdatePipelineStatus
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