{-# 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.IoTAnalytics.DeletePipeline
(
deletePipeline
, DeletePipeline
, dPipelineName
, deletePipelineResponse
, DeletePipelineResponse
) where
import Network.AWS.IoTAnalytics.Types
import Network.AWS.IoTAnalytics.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeletePipeline = DeletePipeline'
{ _dPipelineName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deletePipeline
:: Text
-> DeletePipeline
deletePipeline pPipelineName_ =
DeletePipeline' {_dPipelineName = pPipelineName_}
dPipelineName :: Lens' DeletePipeline Text
dPipelineName = lens _dPipelineName (\ s a -> s{_dPipelineName = a})
instance AWSRequest DeletePipeline where
type Rs DeletePipeline = DeletePipelineResponse
request = delete ioTAnalytics
response = receiveNull DeletePipelineResponse'
instance Hashable DeletePipeline where
instance NFData DeletePipeline where
instance ToHeaders DeletePipeline where
toHeaders = const mempty
instance ToPath DeletePipeline where
toPath DeletePipeline'{..}
= mconcat ["/pipelines/", toBS _dPipelineName]
instance ToQuery DeletePipeline where
toQuery = const mempty
data DeletePipelineResponse =
DeletePipelineResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deletePipelineResponse
:: DeletePipelineResponse
deletePipelineResponse = DeletePipelineResponse'
instance NFData DeletePipelineResponse where