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