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
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});