{-# 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.DataPipeline.SetStatus
(
setStatus
, SetStatus
, ssPipelineId
, ssObjectIds
, ssStatus
, setStatusResponse
, SetStatusResponse
) where
import Network.AWS.DataPipeline.Types
import Network.AWS.DataPipeline.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SetStatus = SetStatus'
{ _ssPipelineId :: !Text
, _ssObjectIds :: ![Text]
, _ssStatus :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setStatus
:: Text
-> Text
-> SetStatus
setStatus pPipelineId_ pStatus_ =
SetStatus'
{ _ssPipelineId = pPipelineId_
, _ssObjectIds = mempty
, _ssStatus = pStatus_
}
ssPipelineId :: Lens' SetStatus Text
ssPipelineId = lens _ssPipelineId (\ s a -> s{_ssPipelineId = a});
ssObjectIds :: Lens' SetStatus [Text]
ssObjectIds = lens _ssObjectIds (\ s a -> s{_ssObjectIds = a}) . _Coerce;
ssStatus :: Lens' SetStatus Text
ssStatus = lens _ssStatus (\ s a -> s{_ssStatus = a});
instance AWSRequest SetStatus where
type Rs SetStatus = SetStatusResponse
request = postJSON dataPipeline
response = receiveNull SetStatusResponse'
instance Hashable SetStatus
instance NFData SetStatus
instance ToHeaders SetStatus where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DataPipeline.SetStatus" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON SetStatus where
toJSON SetStatus'{..}
= object
(catMaybes
[Just ("pipelineId" .= _ssPipelineId),
Just ("objectIds" .= _ssObjectIds),
Just ("status" .= _ssStatus)])
instance ToPath SetStatus where
toPath = const "/"
instance ToQuery SetStatus where
toQuery = const mempty
data SetStatusResponse =
SetStatusResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
setStatusResponse
:: SetStatusResponse
setStatusResponse = SetStatusResponse'
instance NFData SetStatusResponse