{-# 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.PutApprovalResult
(
putApprovalResult
, PutApprovalResult
, parPipelineName
, parStageName
, parActionName
, parResult
, parToken
, putApprovalResultResponse
, PutApprovalResultResponse
, parrsApprovedAt
, parrsResponseStatus
) 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 PutApprovalResult = PutApprovalResult'
{ _parPipelineName :: !Text
, _parStageName :: !Text
, _parActionName :: !Text
, _parResult :: !ApprovalResult
, _parToken :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putApprovalResult
:: Text
-> Text
-> Text
-> ApprovalResult
-> Text
-> PutApprovalResult
putApprovalResult pPipelineName_ pStageName_ pActionName_ pResult_ pToken_ =
PutApprovalResult'
{ _parPipelineName = pPipelineName_
, _parStageName = pStageName_
, _parActionName = pActionName_
, _parResult = pResult_
, _parToken = pToken_
}
parPipelineName :: Lens' PutApprovalResult Text
parPipelineName = lens _parPipelineName (\ s a -> s{_parPipelineName = a});
parStageName :: Lens' PutApprovalResult Text
parStageName = lens _parStageName (\ s a -> s{_parStageName = a});
parActionName :: Lens' PutApprovalResult Text
parActionName = lens _parActionName (\ s a -> s{_parActionName = a});
parResult :: Lens' PutApprovalResult ApprovalResult
parResult = lens _parResult (\ s a -> s{_parResult = a});
parToken :: Lens' PutApprovalResult Text
parToken = lens _parToken (\ s a -> s{_parToken = a});
instance AWSRequest PutApprovalResult where
type Rs PutApprovalResult = PutApprovalResultResponse
request = postJSON codePipeline
response
= receiveJSON
(\ s h x ->
PutApprovalResultResponse' <$>
(x .?> "approvedAt") <*> (pure (fromEnum s)))
instance Hashable PutApprovalResult
instance NFData PutApprovalResult
instance ToHeaders PutApprovalResult where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.PutApprovalResult" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON PutApprovalResult where
toJSON PutApprovalResult'{..}
= object
(catMaybes
[Just ("pipelineName" .= _parPipelineName),
Just ("stageName" .= _parStageName),
Just ("actionName" .= _parActionName),
Just ("result" .= _parResult),
Just ("token" .= _parToken)])
instance ToPath PutApprovalResult where
toPath = const "/"
instance ToQuery PutApprovalResult where
toQuery = const mempty
data PutApprovalResultResponse = PutApprovalResultResponse'
{ _parrsApprovedAt :: !(Maybe POSIX)
, _parrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putApprovalResultResponse
:: Int
-> PutApprovalResultResponse
putApprovalResultResponse pResponseStatus_ =
PutApprovalResultResponse'
{ _parrsApprovedAt = Nothing
, _parrsResponseStatus = pResponseStatus_
}
parrsApprovedAt :: Lens' PutApprovalResultResponse (Maybe UTCTime)
parrsApprovedAt = lens _parrsApprovedAt (\ s a -> s{_parrsApprovedAt = a}) . mapping _Time;
parrsResponseStatus :: Lens' PutApprovalResultResponse Int
parrsResponseStatus = lens _parrsResponseStatus (\ s a -> s{_parrsResponseStatus = a});
instance NFData PutApprovalResultResponse