{-# 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.GetPullRequest
(
getPullRequest
, GetPullRequest
, gprPullRequestId
, getPullRequestResponse
, GetPullRequestResponse
, gprrsResponseStatus
, gprrsPullRequest
) 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
newtype GetPullRequest = GetPullRequest'
{ _gprPullRequestId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getPullRequest
:: Text
-> GetPullRequest
getPullRequest pPullRequestId_ =
GetPullRequest' {_gprPullRequestId = pPullRequestId_}
gprPullRequestId :: Lens' GetPullRequest Text
gprPullRequestId = lens _gprPullRequestId (\ s a -> s{_gprPullRequestId = a})
instance AWSRequest GetPullRequest where
type Rs GetPullRequest = GetPullRequestResponse
request = postJSON codeCommit
response
= receiveJSON
(\ s h x ->
GetPullRequestResponse' <$>
(pure (fromEnum s)) <*> (x .:> "pullRequest"))
instance Hashable GetPullRequest where
instance NFData GetPullRequest where
instance ToHeaders GetPullRequest where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeCommit_20150413.GetPullRequest" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetPullRequest where
toJSON GetPullRequest'{..}
= object
(catMaybes
[Just ("pullRequestId" .= _gprPullRequestId)])
instance ToPath GetPullRequest where
toPath = const "/"
instance ToQuery GetPullRequest where
toQuery = const mempty
data GetPullRequestResponse = GetPullRequestResponse'
{ _gprrsResponseStatus :: !Int
, _gprrsPullRequest :: !PullRequest
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getPullRequestResponse
:: Int
-> PullRequest
-> GetPullRequestResponse
getPullRequestResponse pResponseStatus_ pPullRequest_ =
GetPullRequestResponse'
{_gprrsResponseStatus = pResponseStatus_, _gprrsPullRequest = pPullRequest_}
gprrsResponseStatus :: Lens' GetPullRequestResponse Int
gprrsResponseStatus = lens _gprrsResponseStatus (\ s a -> s{_gprrsResponseStatus = a})
gprrsPullRequest :: Lens' GetPullRequestResponse PullRequest
gprrsPullRequest = lens _gprrsPullRequest (\ s a -> s{_gprrsPullRequest = a})
instance NFData GetPullRequestResponse where