{-# 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.PutJobFailureResult
(
putJobFailureResult
, PutJobFailureResult
, pjfrJobId
, pjfrFailureDetails
, putJobFailureResultResponse
, PutJobFailureResultResponse
) 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 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 Hashable PutJobFailureResult where
instance NFData PutJobFailureResult where
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'
instance NFData PutJobFailureResultResponse where