module Network.AWS.CodePipeline.PutJobFailureResult
(
putJobFailureResult
, PutJobFailureResult
, pjfrJobId
, pjfrFailureDetails
, putJobFailureResultResponse
, PutJobFailureResultResponse
) 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 PutJobFailureResult = PutJobFailureResult'
{ _pjfrJobId :: !Text
, _pjfrFailureDetails :: !FailureDetails
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putJobFailureResult
:: Text
-> FailureDetails
-> PutJobFailureResult
putJobFailureResult pJobId_ pFailureDetails_ =
PutJobFailureResult'
{ _pjfrJobId = pJobId_
, _pjfrFailureDetails = pFailureDetails_
}
pjfrJobId :: Lens' PutJobFailureResult Text
pjfrJobId = lens _pjfrJobId (\ s a -> s{_pjfrJobId = a});
pjfrFailureDetails :: Lens' PutJobFailureResult FailureDetails
pjfrFailureDetails = lens _pjfrFailureDetails (\ s a -> s{_pjfrFailureDetails = a});
instance AWSRequest PutJobFailureResult where
type Rs PutJobFailureResult =
PutJobFailureResultResponse
request = postJSON codePipeline
response = receiveNull PutJobFailureResultResponse'
instance ToHeaders PutJobFailureResult where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.PutJobFailureResult" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON PutJobFailureResult where
toJSON PutJobFailureResult'{..}
= object
(catMaybes
[Just ("jobId" .= _pjfrJobId),
Just ("failureDetails" .= _pjfrFailureDetails)])
instance ToPath PutJobFailureResult where
toPath = const "/"
instance ToQuery PutJobFailureResult where
toQuery = const mempty
data PutJobFailureResultResponse =
PutJobFailureResultResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
putJobFailureResultResponse
:: PutJobFailureResultResponse
putJobFailureResultResponse = PutJobFailureResultResponse'