{-# 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.DeletePipeline
(
deletePipeline
, DeletePipeline
, dId
, deletePipelineResponse
, DeletePipelineResponse
, drsResponseStatus
) 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
newtype DeletePipeline = DeletePipeline'
{ _dId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deletePipeline
:: Text
-> DeletePipeline
deletePipeline pId_ = DeletePipeline' {_dId = pId_}
dId :: Lens' DeletePipeline Text
dId = lens _dId (\ s a -> s{_dId = a})
instance AWSRequest DeletePipeline where
type Rs DeletePipeline = DeletePipelineResponse
request = delete elasticTranscoder
response
= receiveEmpty
(\ s h x ->
DeletePipelineResponse' <$> (pure (fromEnum s)))
instance Hashable DeletePipeline where
instance NFData DeletePipeline where
instance ToHeaders DeletePipeline where
toHeaders = const mempty
instance ToPath DeletePipeline where
toPath DeletePipeline'{..}
= mconcat ["/2012-09-25/pipelines/", toBS _dId]
instance ToQuery DeletePipeline where
toQuery = const mempty
newtype DeletePipelineResponse = DeletePipelineResponse'
{ _drsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deletePipelineResponse
:: Int
-> DeletePipelineResponse
deletePipelineResponse pResponseStatus_ =
DeletePipelineResponse' {_drsResponseStatus = pResponseStatus_}
drsResponseStatus :: Lens' DeletePipelineResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
instance NFData DeletePipelineResponse where