{-# 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.CodeCommit.UpdatePullRequestTitle
(
updatePullRequestTitle
, UpdatePullRequestTitle
, uprtPullRequestId
, uprtTitle
, updatePullRequestTitleResponse
, UpdatePullRequestTitleResponse
, uprtrsResponseStatus
, uprtrsPullRequest
) where
import Network.AWS.CodeCommit.Types
import Network.AWS.CodeCommit.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UpdatePullRequestTitle = UpdatePullRequestTitle'
{ _uprtPullRequestId :: !Text
, _uprtTitle :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updatePullRequestTitle
:: Text
-> Text
-> UpdatePullRequestTitle
updatePullRequestTitle pPullRequestId_ pTitle_ =
UpdatePullRequestTitle'
{_uprtPullRequestId = pPullRequestId_, _uprtTitle = pTitle_}
uprtPullRequestId :: Lens' UpdatePullRequestTitle Text
uprtPullRequestId = lens _uprtPullRequestId (\ s a -> s{_uprtPullRequestId = a})
uprtTitle :: Lens' UpdatePullRequestTitle Text
uprtTitle = lens _uprtTitle (\ s a -> s{_uprtTitle = a})
instance AWSRequest UpdatePullRequestTitle where
type Rs UpdatePullRequestTitle =
UpdatePullRequestTitleResponse
request = postJSON codeCommit
response
= receiveJSON
(\ s h x ->
UpdatePullRequestTitleResponse' <$>
(pure (fromEnum s)) <*> (x .:> "pullRequest"))
instance Hashable UpdatePullRequestTitle where
instance NFData UpdatePullRequestTitle where
instance ToHeaders UpdatePullRequestTitle where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeCommit_20150413.UpdatePullRequestTitle" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdatePullRequestTitle where
toJSON UpdatePullRequestTitle'{..}
= object
(catMaybes
[Just ("pullRequestId" .= _uprtPullRequestId),
Just ("title" .= _uprtTitle)])
instance ToPath UpdatePullRequestTitle where
toPath = const "/"
instance ToQuery UpdatePullRequestTitle where
toQuery = const mempty
data UpdatePullRequestTitleResponse = UpdatePullRequestTitleResponse'
{ _uprtrsResponseStatus :: !Int
, _uprtrsPullRequest :: !PullRequest
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updatePullRequestTitleResponse
:: Int
-> PullRequest
-> UpdatePullRequestTitleResponse
updatePullRequestTitleResponse pResponseStatus_ pPullRequest_ =
UpdatePullRequestTitleResponse'
{ _uprtrsResponseStatus = pResponseStatus_
, _uprtrsPullRequest = pPullRequest_
}
uprtrsResponseStatus :: Lens' UpdatePullRequestTitleResponse Int
uprtrsResponseStatus = lens _uprtrsResponseStatus (\ s a -> s{_uprtrsResponseStatus = a})
uprtrsPullRequest :: Lens' UpdatePullRequestTitleResponse PullRequest
uprtrsPullRequest = lens _uprtrsPullRequest (\ s a -> s{_uprtrsPullRequest = a})
instance NFData UpdatePullRequestTitleResponse where