{-# 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.GetJobDetails
(
getJobDetails
, GetJobDetails
, gjdJobId
, getJobDetailsResponse
, GetJobDetailsResponse
, gjdrsJobDetails
, gjdrsResponseStatus
) 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
newtype GetJobDetails = GetJobDetails'
{ _gjdJobId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getJobDetails
:: Text
-> GetJobDetails
getJobDetails pJobId_ = GetJobDetails' {_gjdJobId = pJobId_}
gjdJobId :: Lens' GetJobDetails Text
gjdJobId = lens _gjdJobId (\ s a -> s{_gjdJobId = a})
instance AWSRequest GetJobDetails where
type Rs GetJobDetails = GetJobDetailsResponse
request = postJSON codePipeline
response
= receiveJSON
(\ s h x ->
GetJobDetailsResponse' <$>
(x .?> "jobDetails") <*> (pure (fromEnum s)))
instance Hashable GetJobDetails where
instance NFData GetJobDetails where
instance ToHeaders GetJobDetails where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.GetJobDetails" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetJobDetails where
toJSON GetJobDetails'{..}
= object (catMaybes [Just ("jobId" .= _gjdJobId)])
instance ToPath GetJobDetails where
toPath = const "/"
instance ToQuery GetJobDetails where
toQuery = const mempty
data GetJobDetailsResponse = GetJobDetailsResponse'
{ _gjdrsJobDetails :: !(Maybe JobDetails)
, _gjdrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
getJobDetailsResponse
:: Int
-> GetJobDetailsResponse
getJobDetailsResponse pResponseStatus_ =
GetJobDetailsResponse'
{_gjdrsJobDetails = Nothing, _gjdrsResponseStatus = pResponseStatus_}
gjdrsJobDetails :: Lens' GetJobDetailsResponse (Maybe JobDetails)
gjdrsJobDetails = lens _gjdrsJobDetails (\ s a -> s{_gjdrsJobDetails = a})
gjdrsResponseStatus :: Lens' GetJobDetailsResponse Int
gjdrsResponseStatus = lens _gjdrsResponseStatus (\ s a -> s{_gjdrsResponseStatus = a})
instance NFData GetJobDetailsResponse where