{-# 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 where
instance NFData SetStatus where
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 where