{-# 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.CodePipeline.AcknowledgeJob
(
acknowledgeJob
, AcknowledgeJob
, ajJobId
, ajNonce
, acknowledgeJobResponse
, AcknowledgeJobResponse
, ajrsStatus
, ajrsResponseStatus
) where
import Network.AWS.CodePipeline.Types
import Network.AWS.CodePipeline.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data AcknowledgeJob = AcknowledgeJob'
{ _ajJobId :: !Text
, _ajNonce :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
acknowledgeJob
:: Text
-> Text
-> AcknowledgeJob
acknowledgeJob pJobId_ pNonce_ =
AcknowledgeJob' {_ajJobId = pJobId_, _ajNonce = pNonce_}
ajJobId :: Lens' AcknowledgeJob Text
ajJobId = lens _ajJobId (\ s a -> s{_ajJobId = a})
ajNonce :: Lens' AcknowledgeJob Text
ajNonce = lens _ajNonce (\ s a -> s{_ajNonce = a})
instance AWSRequest AcknowledgeJob where
type Rs AcknowledgeJob = AcknowledgeJobResponse
request = postJSON codePipeline
response
= receiveJSON
(\ s h x ->
AcknowledgeJobResponse' <$>
(x .?> "status") <*> (pure (fromEnum s)))
instance Hashable AcknowledgeJob where
instance NFData AcknowledgeJob where
instance ToHeaders AcknowledgeJob where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.AcknowledgeJob" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AcknowledgeJob where
toJSON AcknowledgeJob'{..}
= object
(catMaybes
[Just ("jobId" .= _ajJobId),
Just ("nonce" .= _ajNonce)])
instance ToPath AcknowledgeJob where
toPath = const "/"
instance ToQuery AcknowledgeJob where
toQuery = const mempty
data AcknowledgeJobResponse = AcknowledgeJobResponse'
{ _ajrsStatus :: !(Maybe JobStatus)
, _ajrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
acknowledgeJobResponse
:: Int
-> AcknowledgeJobResponse
acknowledgeJobResponse pResponseStatus_ =
AcknowledgeJobResponse'
{_ajrsStatus = Nothing, _ajrsResponseStatus = pResponseStatus_}
ajrsStatus :: Lens' AcknowledgeJobResponse (Maybe JobStatus)
ajrsStatus = lens _ajrsStatus (\ s a -> s{_ajrsStatus = a})
ajrsResponseStatus :: Lens' AcknowledgeJobResponse Int
ajrsResponseStatus = lens _ajrsResponseStatus (\ s a -> s{_ajrsResponseStatus = a})
instance NFData AcknowledgeJobResponse where