{-# 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.GetMergeConflicts
(
getMergeConflicts
, GetMergeConflicts
, gmcRepositoryName
, gmcDestinationCommitSpecifier
, gmcSourceCommitSpecifier
, gmcMergeOption
, getMergeConflictsResponse
, GetMergeConflictsResponse
, gmcrsResponseStatus
, gmcrsMergeable
, gmcrsDestinationCommitId
, gmcrsSourceCommitId
) 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 GetMergeConflicts = GetMergeConflicts'
{ _gmcRepositoryName :: !Text
, _gmcDestinationCommitSpecifier :: !Text
, _gmcSourceCommitSpecifier :: !Text
, _gmcMergeOption :: !MergeOptionTypeEnum
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getMergeConflicts
:: Text
-> Text
-> Text
-> MergeOptionTypeEnum
-> GetMergeConflicts
getMergeConflicts pRepositoryName_ pDestinationCommitSpecifier_ pSourceCommitSpecifier_ pMergeOption_ =
GetMergeConflicts'
{ _gmcRepositoryName = pRepositoryName_
, _gmcDestinationCommitSpecifier = pDestinationCommitSpecifier_
, _gmcSourceCommitSpecifier = pSourceCommitSpecifier_
, _gmcMergeOption = pMergeOption_
}
gmcRepositoryName :: Lens' GetMergeConflicts Text
gmcRepositoryName = lens _gmcRepositoryName (\ s a -> s{_gmcRepositoryName = a})
gmcDestinationCommitSpecifier :: Lens' GetMergeConflicts Text
gmcDestinationCommitSpecifier = lens _gmcDestinationCommitSpecifier (\ s a -> s{_gmcDestinationCommitSpecifier = a})
gmcSourceCommitSpecifier :: Lens' GetMergeConflicts Text
gmcSourceCommitSpecifier = lens _gmcSourceCommitSpecifier (\ s a -> s{_gmcSourceCommitSpecifier = a})
gmcMergeOption :: Lens' GetMergeConflicts MergeOptionTypeEnum
gmcMergeOption = lens _gmcMergeOption (\ s a -> s{_gmcMergeOption = a})
instance AWSRequest GetMergeConflicts where
type Rs GetMergeConflicts = GetMergeConflictsResponse
request = postJSON codeCommit
response
= receiveJSON
(\ s h x ->
GetMergeConflictsResponse' <$>
(pure (fromEnum s)) <*> (x .:> "mergeable") <*>
(x .:> "destinationCommitId")
<*> (x .:> "sourceCommitId"))
instance Hashable GetMergeConflicts where
instance NFData GetMergeConflicts where
instance ToHeaders GetMergeConflicts where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeCommit_20150413.GetMergeConflicts" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetMergeConflicts where
toJSON GetMergeConflicts'{..}
= object
(catMaybes
[Just ("repositoryName" .= _gmcRepositoryName),
Just
("destinationCommitSpecifier" .=
_gmcDestinationCommitSpecifier),
Just
("sourceCommitSpecifier" .=
_gmcSourceCommitSpecifier),
Just ("mergeOption" .= _gmcMergeOption)])
instance ToPath GetMergeConflicts where
toPath = const "/"
instance ToQuery GetMergeConflicts where
toQuery = const mempty
data GetMergeConflictsResponse = GetMergeConflictsResponse'
{ _gmcrsResponseStatus :: !Int
, _gmcrsMergeable :: !Bool
, _gmcrsDestinationCommitId :: !Text
, _gmcrsSourceCommitId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getMergeConflictsResponse
:: Int
-> Bool
-> Text
-> Text
-> GetMergeConflictsResponse
getMergeConflictsResponse pResponseStatus_ pMergeable_ pDestinationCommitId_ pSourceCommitId_ =
GetMergeConflictsResponse'
{ _gmcrsResponseStatus = pResponseStatus_
, _gmcrsMergeable = pMergeable_
, _gmcrsDestinationCommitId = pDestinationCommitId_
, _gmcrsSourceCommitId = pSourceCommitId_
}
gmcrsResponseStatus :: Lens' GetMergeConflictsResponse Int
gmcrsResponseStatus = lens _gmcrsResponseStatus (\ s a -> s{_gmcrsResponseStatus = a})
gmcrsMergeable :: Lens' GetMergeConflictsResponse Bool
gmcrsMergeable = lens _gmcrsMergeable (\ s a -> s{_gmcrsMergeable = a})
gmcrsDestinationCommitId :: Lens' GetMergeConflictsResponse Text
gmcrsDestinationCommitId = lens _gmcrsDestinationCommitId (\ s a -> s{_gmcrsDestinationCommitId = a})
gmcrsSourceCommitId :: Lens' GetMergeConflictsResponse Text
gmcrsSourceCommitId = lens _gmcrsSourceCommitId (\ s a -> s{_gmcrsSourceCommitId = a})
instance NFData GetMergeConflictsResponse where