{-# 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.CancelPipelineReprocessing
(
cancelPipelineReprocessing
, CancelPipelineReprocessing
, cprPipelineName
, cprReprocessingId
, cancelPipelineReprocessingResponse
, CancelPipelineReprocessingResponse
, cprrsResponseStatus
) 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
data CancelPipelineReprocessing = CancelPipelineReprocessing'
{ _cprPipelineName :: !Text
, _cprReprocessingId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
cancelPipelineReprocessing
:: Text
-> Text
-> CancelPipelineReprocessing
cancelPipelineReprocessing pPipelineName_ pReprocessingId_ =
CancelPipelineReprocessing'
{_cprPipelineName = pPipelineName_, _cprReprocessingId = pReprocessingId_}
cprPipelineName :: Lens' CancelPipelineReprocessing Text
cprPipelineName = lens _cprPipelineName (\ s a -> s{_cprPipelineName = a})
cprReprocessingId :: Lens' CancelPipelineReprocessing Text
cprReprocessingId = lens _cprReprocessingId (\ s a -> s{_cprReprocessingId = a})
instance AWSRequest CancelPipelineReprocessing where
type Rs CancelPipelineReprocessing =
CancelPipelineReprocessingResponse
request = delete ioTAnalytics
response
= receiveEmpty
(\ s h x ->
CancelPipelineReprocessingResponse' <$>
(pure (fromEnum s)))
instance Hashable CancelPipelineReprocessing where
instance NFData CancelPipelineReprocessing where
instance ToHeaders CancelPipelineReprocessing where
toHeaders = const mempty
instance ToPath CancelPipelineReprocessing where
toPath CancelPipelineReprocessing'{..}
= mconcat
["/pipelines/", toBS _cprPipelineName,
"/reprocessing/", toBS _cprReprocessingId]
instance ToQuery CancelPipelineReprocessing where
toQuery = const mempty
newtype CancelPipelineReprocessingResponse = CancelPipelineReprocessingResponse'
{ _cprrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
cancelPipelineReprocessingResponse
:: Int
-> CancelPipelineReprocessingResponse
cancelPipelineReprocessingResponse pResponseStatus_ =
CancelPipelineReprocessingResponse' {_cprrsResponseStatus = pResponseStatus_}
cprrsResponseStatus :: Lens' CancelPipelineReprocessingResponse Int
cprrsResponseStatus = lens _cprrsResponseStatus (\ s a -> s{_cprrsResponseStatus = a})
instance NFData CancelPipelineReprocessingResponse
where