{-# 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.ActivatePipeline
(
activatePipeline
, ActivatePipeline
, apStartTimestamp
, apParameterValues
, apPipelineId
, activatePipelineResponse
, ActivatePipelineResponse
, aprsResponseStatus
) 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 ActivatePipeline = ActivatePipeline'
{ _apStartTimestamp :: !(Maybe POSIX)
, _apParameterValues :: !(Maybe [ParameterValue])
, _apPipelineId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activatePipeline
:: Text
-> ActivatePipeline
activatePipeline pPipelineId_ =
ActivatePipeline'
{ _apStartTimestamp = Nothing
, _apParameterValues = Nothing
, _apPipelineId = pPipelineId_
}
apStartTimestamp :: Lens' ActivatePipeline (Maybe UTCTime)
apStartTimestamp = lens _apStartTimestamp (\ s a -> s{_apStartTimestamp = a}) . mapping _Time
apParameterValues :: Lens' ActivatePipeline [ParameterValue]
apParameterValues = lens _apParameterValues (\ s a -> s{_apParameterValues = a}) . _Default . _Coerce
apPipelineId :: Lens' ActivatePipeline Text
apPipelineId = lens _apPipelineId (\ s a -> s{_apPipelineId = a})
instance AWSRequest ActivatePipeline where
type Rs ActivatePipeline = ActivatePipelineResponse
request = postJSON dataPipeline
response
= receiveEmpty
(\ s h x ->
ActivatePipelineResponse' <$> (pure (fromEnum s)))
instance Hashable ActivatePipeline where
instance NFData ActivatePipeline where
instance ToHeaders ActivatePipeline where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DataPipeline.ActivatePipeline" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ActivatePipeline where
toJSON ActivatePipeline'{..}
= object
(catMaybes
[("startTimestamp" .=) <$> _apStartTimestamp,
("parameterValues" .=) <$> _apParameterValues,
Just ("pipelineId" .= _apPipelineId)])
instance ToPath ActivatePipeline where
toPath = const "/"
instance ToQuery ActivatePipeline where
toQuery = const mempty
newtype ActivatePipelineResponse = ActivatePipelineResponse'
{ _aprsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activatePipelineResponse
:: Int
-> ActivatePipelineResponse
activatePipelineResponse pResponseStatus_ =
ActivatePipelineResponse' {_aprsResponseStatus = pResponseStatus_}
aprsResponseStatus :: Lens' ActivatePipelineResponse Int
aprsResponseStatus = lens _aprsResponseStatus (\ s a -> s{_aprsResponseStatus = a})
instance NFData ActivatePipelineResponse where