{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.CodeCommit.DescribeMergeConflicts
(
DescribeMergeConflicts (..),
newDescribeMergeConflicts,
describeMergeConflicts_conflictDetailLevel,
describeMergeConflicts_conflictResolutionStrategy,
describeMergeConflicts_maxMergeHunks,
describeMergeConflicts_nextToken,
describeMergeConflicts_repositoryName,
describeMergeConflicts_destinationCommitSpecifier,
describeMergeConflicts_sourceCommitSpecifier,
describeMergeConflicts_mergeOption,
describeMergeConflicts_filePath,
DescribeMergeConflictsResponse (..),
newDescribeMergeConflictsResponse,
describeMergeConflictsResponse_baseCommitId,
describeMergeConflictsResponse_nextToken,
describeMergeConflictsResponse_httpStatus,
describeMergeConflictsResponse_conflictMetadata,
describeMergeConflictsResponse_mergeHunks,
describeMergeConflictsResponse_destinationCommitId,
describeMergeConflictsResponse_sourceCommitId,
)
where
import Amazonka.CodeCommit.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeMergeConflicts = DescribeMergeConflicts'
{
DescribeMergeConflicts -> Maybe ConflictDetailLevelTypeEnum
conflictDetailLevel :: Prelude.Maybe ConflictDetailLevelTypeEnum,
DescribeMergeConflicts -> Maybe ConflictResolutionStrategyTypeEnum
conflictResolutionStrategy :: Prelude.Maybe ConflictResolutionStrategyTypeEnum,
DescribeMergeConflicts -> Maybe Int
maxMergeHunks :: Prelude.Maybe Prelude.Int,
DescribeMergeConflicts -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeMergeConflicts -> Text
repositoryName :: Prelude.Text,
DescribeMergeConflicts -> Text
destinationCommitSpecifier :: Prelude.Text,
DescribeMergeConflicts -> Text
sourceCommitSpecifier :: Prelude.Text,
DescribeMergeConflicts -> MergeOptionTypeEnum
mergeOption :: MergeOptionTypeEnum,
DescribeMergeConflicts -> Text
filePath :: Prelude.Text
}
deriving (DescribeMergeConflicts -> DescribeMergeConflicts -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeMergeConflicts -> DescribeMergeConflicts -> Bool
$c/= :: DescribeMergeConflicts -> DescribeMergeConflicts -> Bool
== :: DescribeMergeConflicts -> DescribeMergeConflicts -> Bool
$c== :: DescribeMergeConflicts -> DescribeMergeConflicts -> Bool
Prelude.Eq, ReadPrec [DescribeMergeConflicts]
ReadPrec DescribeMergeConflicts
Int -> ReadS DescribeMergeConflicts
ReadS [DescribeMergeConflicts]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeMergeConflicts]
$creadListPrec :: ReadPrec [DescribeMergeConflicts]
readPrec :: ReadPrec DescribeMergeConflicts
$creadPrec :: ReadPrec DescribeMergeConflicts
readList :: ReadS [DescribeMergeConflicts]
$creadList :: ReadS [DescribeMergeConflicts]
readsPrec :: Int -> ReadS DescribeMergeConflicts
$creadsPrec :: Int -> ReadS DescribeMergeConflicts
Prelude.Read, Int -> DescribeMergeConflicts -> ShowS
[DescribeMergeConflicts] -> ShowS
DescribeMergeConflicts -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeMergeConflicts] -> ShowS
$cshowList :: [DescribeMergeConflicts] -> ShowS
show :: DescribeMergeConflicts -> String
$cshow :: DescribeMergeConflicts -> String
showsPrec :: Int -> DescribeMergeConflicts -> ShowS
$cshowsPrec :: Int -> DescribeMergeConflicts -> ShowS
Prelude.Show, forall x. Rep DescribeMergeConflicts x -> DescribeMergeConflicts
forall x. DescribeMergeConflicts -> Rep DescribeMergeConflicts x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeMergeConflicts x -> DescribeMergeConflicts
$cfrom :: forall x. DescribeMergeConflicts -> Rep DescribeMergeConflicts x
Prelude.Generic)
newDescribeMergeConflicts ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
MergeOptionTypeEnum ->
Prelude.Text ->
DescribeMergeConflicts
newDescribeMergeConflicts :: Text
-> Text
-> Text
-> MergeOptionTypeEnum
-> Text
-> DescribeMergeConflicts
newDescribeMergeConflicts
Text
pRepositoryName_
Text
pDestinationCommitSpecifier_
Text
pSourceCommitSpecifier_
MergeOptionTypeEnum
pMergeOption_
Text
pFilePath_ =
DescribeMergeConflicts'
{ $sel:conflictDetailLevel:DescribeMergeConflicts' :: Maybe ConflictDetailLevelTypeEnum
conflictDetailLevel =
forall a. Maybe a
Prelude.Nothing,
$sel:conflictResolutionStrategy:DescribeMergeConflicts' :: Maybe ConflictResolutionStrategyTypeEnum
conflictResolutionStrategy = forall a. Maybe a
Prelude.Nothing,
$sel:maxMergeHunks:DescribeMergeConflicts' :: Maybe Int
maxMergeHunks = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeMergeConflicts' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:repositoryName:DescribeMergeConflicts' :: Text
repositoryName = Text
pRepositoryName_,
$sel:destinationCommitSpecifier:DescribeMergeConflicts' :: Text
destinationCommitSpecifier =
Text
pDestinationCommitSpecifier_,
$sel:sourceCommitSpecifier:DescribeMergeConflicts' :: Text
sourceCommitSpecifier = Text
pSourceCommitSpecifier_,
$sel:mergeOption:DescribeMergeConflicts' :: MergeOptionTypeEnum
mergeOption = MergeOptionTypeEnum
pMergeOption_,
$sel:filePath:DescribeMergeConflicts' :: Text
filePath = Text
pFilePath_
}
describeMergeConflicts_conflictDetailLevel :: Lens.Lens' DescribeMergeConflicts (Prelude.Maybe ConflictDetailLevelTypeEnum)
describeMergeConflicts_conflictDetailLevel :: Lens' DescribeMergeConflicts (Maybe ConflictDetailLevelTypeEnum)
describeMergeConflicts_conflictDetailLevel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflicts' {Maybe ConflictDetailLevelTypeEnum
conflictDetailLevel :: Maybe ConflictDetailLevelTypeEnum
$sel:conflictDetailLevel:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe ConflictDetailLevelTypeEnum
conflictDetailLevel} -> Maybe ConflictDetailLevelTypeEnum
conflictDetailLevel) (\s :: DescribeMergeConflicts
s@DescribeMergeConflicts' {} Maybe ConflictDetailLevelTypeEnum
a -> DescribeMergeConflicts
s {$sel:conflictDetailLevel:DescribeMergeConflicts' :: Maybe ConflictDetailLevelTypeEnum
conflictDetailLevel = Maybe ConflictDetailLevelTypeEnum
a} :: DescribeMergeConflicts)
describeMergeConflicts_conflictResolutionStrategy :: Lens.Lens' DescribeMergeConflicts (Prelude.Maybe ConflictResolutionStrategyTypeEnum)
describeMergeConflicts_conflictResolutionStrategy :: Lens'
DescribeMergeConflicts (Maybe ConflictResolutionStrategyTypeEnum)
describeMergeConflicts_conflictResolutionStrategy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflicts' {Maybe ConflictResolutionStrategyTypeEnum
conflictResolutionStrategy :: Maybe ConflictResolutionStrategyTypeEnum
$sel:conflictResolutionStrategy:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe ConflictResolutionStrategyTypeEnum
conflictResolutionStrategy} -> Maybe ConflictResolutionStrategyTypeEnum
conflictResolutionStrategy) (\s :: DescribeMergeConflicts
s@DescribeMergeConflicts' {} Maybe ConflictResolutionStrategyTypeEnum
a -> DescribeMergeConflicts
s {$sel:conflictResolutionStrategy:DescribeMergeConflicts' :: Maybe ConflictResolutionStrategyTypeEnum
conflictResolutionStrategy = Maybe ConflictResolutionStrategyTypeEnum
a} :: DescribeMergeConflicts)
describeMergeConflicts_maxMergeHunks :: Lens.Lens' DescribeMergeConflicts (Prelude.Maybe Prelude.Int)
describeMergeConflicts_maxMergeHunks :: Lens' DescribeMergeConflicts (Maybe Int)
describeMergeConflicts_maxMergeHunks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflicts' {Maybe Int
maxMergeHunks :: Maybe Int
$sel:maxMergeHunks:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe Int
maxMergeHunks} -> Maybe Int
maxMergeHunks) (\s :: DescribeMergeConflicts
s@DescribeMergeConflicts' {} Maybe Int
a -> DescribeMergeConflicts
s {$sel:maxMergeHunks:DescribeMergeConflicts' :: Maybe Int
maxMergeHunks = Maybe Int
a} :: DescribeMergeConflicts)
describeMergeConflicts_nextToken :: Lens.Lens' DescribeMergeConflicts (Prelude.Maybe Prelude.Text)
describeMergeConflicts_nextToken :: Lens' DescribeMergeConflicts (Maybe Text)
describeMergeConflicts_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflicts' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeMergeConflicts
s@DescribeMergeConflicts' {} Maybe Text
a -> DescribeMergeConflicts
s {$sel:nextToken:DescribeMergeConflicts' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeMergeConflicts)
describeMergeConflicts_repositoryName :: Lens.Lens' DescribeMergeConflicts Prelude.Text
describeMergeConflicts_repositoryName :: Lens' DescribeMergeConflicts Text
describeMergeConflicts_repositoryName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflicts' {Text
repositoryName :: Text
$sel:repositoryName:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
repositoryName} -> Text
repositoryName) (\s :: DescribeMergeConflicts
s@DescribeMergeConflicts' {} Text
a -> DescribeMergeConflicts
s {$sel:repositoryName:DescribeMergeConflicts' :: Text
repositoryName = Text
a} :: DescribeMergeConflicts)
describeMergeConflicts_destinationCommitSpecifier :: Lens.Lens' DescribeMergeConflicts Prelude.Text
describeMergeConflicts_destinationCommitSpecifier :: Lens' DescribeMergeConflicts Text
describeMergeConflicts_destinationCommitSpecifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflicts' {Text
destinationCommitSpecifier :: Text
$sel:destinationCommitSpecifier:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
destinationCommitSpecifier} -> Text
destinationCommitSpecifier) (\s :: DescribeMergeConflicts
s@DescribeMergeConflicts' {} Text
a -> DescribeMergeConflicts
s {$sel:destinationCommitSpecifier:DescribeMergeConflicts' :: Text
destinationCommitSpecifier = Text
a} :: DescribeMergeConflicts)
describeMergeConflicts_sourceCommitSpecifier :: Lens.Lens' DescribeMergeConflicts Prelude.Text
describeMergeConflicts_sourceCommitSpecifier :: Lens' DescribeMergeConflicts Text
describeMergeConflicts_sourceCommitSpecifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflicts' {Text
sourceCommitSpecifier :: Text
$sel:sourceCommitSpecifier:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
sourceCommitSpecifier} -> Text
sourceCommitSpecifier) (\s :: DescribeMergeConflicts
s@DescribeMergeConflicts' {} Text
a -> DescribeMergeConflicts
s {$sel:sourceCommitSpecifier:DescribeMergeConflicts' :: Text
sourceCommitSpecifier = Text
a} :: DescribeMergeConflicts)
describeMergeConflicts_mergeOption :: Lens.Lens' DescribeMergeConflicts MergeOptionTypeEnum
describeMergeConflicts_mergeOption :: Lens' DescribeMergeConflicts MergeOptionTypeEnum
describeMergeConflicts_mergeOption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflicts' {MergeOptionTypeEnum
mergeOption :: MergeOptionTypeEnum
$sel:mergeOption:DescribeMergeConflicts' :: DescribeMergeConflicts -> MergeOptionTypeEnum
mergeOption} -> MergeOptionTypeEnum
mergeOption) (\s :: DescribeMergeConflicts
s@DescribeMergeConflicts' {} MergeOptionTypeEnum
a -> DescribeMergeConflicts
s {$sel:mergeOption:DescribeMergeConflicts' :: MergeOptionTypeEnum
mergeOption = MergeOptionTypeEnum
a} :: DescribeMergeConflicts)
describeMergeConflicts_filePath :: Lens.Lens' DescribeMergeConflicts Prelude.Text
describeMergeConflicts_filePath :: Lens' DescribeMergeConflicts Text
describeMergeConflicts_filePath = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflicts' {Text
filePath :: Text
$sel:filePath:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
filePath} -> Text
filePath) (\s :: DescribeMergeConflicts
s@DescribeMergeConflicts' {} Text
a -> DescribeMergeConflicts
s {$sel:filePath:DescribeMergeConflicts' :: Text
filePath = Text
a} :: DescribeMergeConflicts)
instance Core.AWSRequest DescribeMergeConflicts where
type
AWSResponse DescribeMergeConflicts =
DescribeMergeConflictsResponse
request :: (Service -> Service)
-> DescribeMergeConflicts -> Request DescribeMergeConflicts
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeMergeConflicts
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeMergeConflicts)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe Text
-> Int
-> ConflictMetadata
-> [MergeHunk]
-> Text
-> Text
-> DescribeMergeConflictsResponse
DescribeMergeConflictsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"baseCommitId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"nextToken")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"conflictMetadata")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"mergeHunks" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"destinationCommitId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"sourceCommitId")
)
instance Prelude.Hashable DescribeMergeConflicts where
hashWithSalt :: Int -> DescribeMergeConflicts -> Int
hashWithSalt Int
_salt DescribeMergeConflicts' {Maybe Int
Maybe Text
Maybe ConflictDetailLevelTypeEnum
Maybe ConflictResolutionStrategyTypeEnum
Text
MergeOptionTypeEnum
filePath :: Text
mergeOption :: MergeOptionTypeEnum
sourceCommitSpecifier :: Text
destinationCommitSpecifier :: Text
repositoryName :: Text
nextToken :: Maybe Text
maxMergeHunks :: Maybe Int
conflictResolutionStrategy :: Maybe ConflictResolutionStrategyTypeEnum
conflictDetailLevel :: Maybe ConflictDetailLevelTypeEnum
$sel:filePath:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:mergeOption:DescribeMergeConflicts' :: DescribeMergeConflicts -> MergeOptionTypeEnum
$sel:sourceCommitSpecifier:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:destinationCommitSpecifier:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:repositoryName:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:nextToken:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe Text
$sel:maxMergeHunks:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe Int
$sel:conflictResolutionStrategy:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe ConflictResolutionStrategyTypeEnum
$sel:conflictDetailLevel:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe ConflictDetailLevelTypeEnum
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ConflictDetailLevelTypeEnum
conflictDetailLevel
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ConflictResolutionStrategyTypeEnum
conflictResolutionStrategy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxMergeHunks
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
repositoryName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
destinationCommitSpecifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sourceCommitSpecifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` MergeOptionTypeEnum
mergeOption
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
filePath
instance Prelude.NFData DescribeMergeConflicts where
rnf :: DescribeMergeConflicts -> ()
rnf DescribeMergeConflicts' {Maybe Int
Maybe Text
Maybe ConflictDetailLevelTypeEnum
Maybe ConflictResolutionStrategyTypeEnum
Text
MergeOptionTypeEnum
filePath :: Text
mergeOption :: MergeOptionTypeEnum
sourceCommitSpecifier :: Text
destinationCommitSpecifier :: Text
repositoryName :: Text
nextToken :: Maybe Text
maxMergeHunks :: Maybe Int
conflictResolutionStrategy :: Maybe ConflictResolutionStrategyTypeEnum
conflictDetailLevel :: Maybe ConflictDetailLevelTypeEnum
$sel:filePath:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:mergeOption:DescribeMergeConflicts' :: DescribeMergeConflicts -> MergeOptionTypeEnum
$sel:sourceCommitSpecifier:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:destinationCommitSpecifier:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:repositoryName:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:nextToken:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe Text
$sel:maxMergeHunks:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe Int
$sel:conflictResolutionStrategy:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe ConflictResolutionStrategyTypeEnum
$sel:conflictDetailLevel:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe ConflictDetailLevelTypeEnum
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ConflictDetailLevelTypeEnum
conflictDetailLevel
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ConflictResolutionStrategyTypeEnum
conflictResolutionStrategy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxMergeHunks
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
repositoryName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
destinationCommitSpecifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sourceCommitSpecifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf MergeOptionTypeEnum
mergeOption
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
filePath
instance Data.ToHeaders DescribeMergeConflicts where
toHeaders :: DescribeMergeConflicts -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"CodeCommit_20150413.DescribeMergeConflicts" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeMergeConflicts where
toJSON :: DescribeMergeConflicts -> Value
toJSON DescribeMergeConflicts' {Maybe Int
Maybe Text
Maybe ConflictDetailLevelTypeEnum
Maybe ConflictResolutionStrategyTypeEnum
Text
MergeOptionTypeEnum
filePath :: Text
mergeOption :: MergeOptionTypeEnum
sourceCommitSpecifier :: Text
destinationCommitSpecifier :: Text
repositoryName :: Text
nextToken :: Maybe Text
maxMergeHunks :: Maybe Int
conflictResolutionStrategy :: Maybe ConflictResolutionStrategyTypeEnum
conflictDetailLevel :: Maybe ConflictDetailLevelTypeEnum
$sel:filePath:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:mergeOption:DescribeMergeConflicts' :: DescribeMergeConflicts -> MergeOptionTypeEnum
$sel:sourceCommitSpecifier:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:destinationCommitSpecifier:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:repositoryName:DescribeMergeConflicts' :: DescribeMergeConflicts -> Text
$sel:nextToken:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe Text
$sel:maxMergeHunks:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe Int
$sel:conflictResolutionStrategy:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe ConflictResolutionStrategyTypeEnum
$sel:conflictDetailLevel:DescribeMergeConflicts' :: DescribeMergeConflicts -> Maybe ConflictDetailLevelTypeEnum
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"conflictDetailLevel" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ConflictDetailLevelTypeEnum
conflictDetailLevel,
(Key
"conflictResolutionStrategy" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ConflictResolutionStrategyTypeEnum
conflictResolutionStrategy,
(Key
"maxMergeHunks" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
maxMergeHunks,
(Key
"nextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken,
forall a. a -> Maybe a
Prelude.Just
(Key
"repositoryName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
repositoryName),
forall a. a -> Maybe a
Prelude.Just
( Key
"destinationCommitSpecifier"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
destinationCommitSpecifier
),
forall a. a -> Maybe a
Prelude.Just
( Key
"sourceCommitSpecifier"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sourceCommitSpecifier
),
forall a. a -> Maybe a
Prelude.Just (Key
"mergeOption" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= MergeOptionTypeEnum
mergeOption),
forall a. a -> Maybe a
Prelude.Just (Key
"filePath" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
filePath)
]
)
instance Data.ToPath DescribeMergeConflicts where
toPath :: DescribeMergeConflicts -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeMergeConflicts where
toQuery :: DescribeMergeConflicts -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeMergeConflictsResponse = DescribeMergeConflictsResponse'
{
DescribeMergeConflictsResponse -> Maybe Text
baseCommitId :: Prelude.Maybe Prelude.Text,
DescribeMergeConflictsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeMergeConflictsResponse -> Int
httpStatus :: Prelude.Int,
DescribeMergeConflictsResponse -> ConflictMetadata
conflictMetadata :: ConflictMetadata,
DescribeMergeConflictsResponse -> [MergeHunk]
mergeHunks :: [MergeHunk],
DescribeMergeConflictsResponse -> Text
destinationCommitId :: Prelude.Text,
DescribeMergeConflictsResponse -> Text
sourceCommitId :: Prelude.Text
}
deriving (DescribeMergeConflictsResponse
-> DescribeMergeConflictsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeMergeConflictsResponse
-> DescribeMergeConflictsResponse -> Bool
$c/= :: DescribeMergeConflictsResponse
-> DescribeMergeConflictsResponse -> Bool
== :: DescribeMergeConflictsResponse
-> DescribeMergeConflictsResponse -> Bool
$c== :: DescribeMergeConflictsResponse
-> DescribeMergeConflictsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeMergeConflictsResponse]
ReadPrec DescribeMergeConflictsResponse
Int -> ReadS DescribeMergeConflictsResponse
ReadS [DescribeMergeConflictsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeMergeConflictsResponse]
$creadListPrec :: ReadPrec [DescribeMergeConflictsResponse]
readPrec :: ReadPrec DescribeMergeConflictsResponse
$creadPrec :: ReadPrec DescribeMergeConflictsResponse
readList :: ReadS [DescribeMergeConflictsResponse]
$creadList :: ReadS [DescribeMergeConflictsResponse]
readsPrec :: Int -> ReadS DescribeMergeConflictsResponse
$creadsPrec :: Int -> ReadS DescribeMergeConflictsResponse
Prelude.Read, Int -> DescribeMergeConflictsResponse -> ShowS
[DescribeMergeConflictsResponse] -> ShowS
DescribeMergeConflictsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeMergeConflictsResponse] -> ShowS
$cshowList :: [DescribeMergeConflictsResponse] -> ShowS
show :: DescribeMergeConflictsResponse -> String
$cshow :: DescribeMergeConflictsResponse -> String
showsPrec :: Int -> DescribeMergeConflictsResponse -> ShowS
$cshowsPrec :: Int -> DescribeMergeConflictsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeMergeConflictsResponse x
-> DescribeMergeConflictsResponse
forall x.
DescribeMergeConflictsResponse
-> Rep DescribeMergeConflictsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeMergeConflictsResponse x
-> DescribeMergeConflictsResponse
$cfrom :: forall x.
DescribeMergeConflictsResponse
-> Rep DescribeMergeConflictsResponse x
Prelude.Generic)
newDescribeMergeConflictsResponse ::
Prelude.Int ->
ConflictMetadata ->
Prelude.Text ->
Prelude.Text ->
DescribeMergeConflictsResponse
newDescribeMergeConflictsResponse :: Int
-> ConflictMetadata
-> Text
-> Text
-> DescribeMergeConflictsResponse
newDescribeMergeConflictsResponse
Int
pHttpStatus_
ConflictMetadata
pConflictMetadata_
Text
pDestinationCommitId_
Text
pSourceCommitId_ =
DescribeMergeConflictsResponse'
{ $sel:baseCommitId:DescribeMergeConflictsResponse' :: Maybe Text
baseCommitId =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeMergeConflictsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeMergeConflictsResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:conflictMetadata:DescribeMergeConflictsResponse' :: ConflictMetadata
conflictMetadata = ConflictMetadata
pConflictMetadata_,
$sel:mergeHunks:DescribeMergeConflictsResponse' :: [MergeHunk]
mergeHunks = forall a. Monoid a => a
Prelude.mempty,
$sel:destinationCommitId:DescribeMergeConflictsResponse' :: Text
destinationCommitId = Text
pDestinationCommitId_,
$sel:sourceCommitId:DescribeMergeConflictsResponse' :: Text
sourceCommitId = Text
pSourceCommitId_
}
describeMergeConflictsResponse_baseCommitId :: Lens.Lens' DescribeMergeConflictsResponse (Prelude.Maybe Prelude.Text)
describeMergeConflictsResponse_baseCommitId :: Lens' DescribeMergeConflictsResponse (Maybe Text)
describeMergeConflictsResponse_baseCommitId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflictsResponse' {Maybe Text
baseCommitId :: Maybe Text
$sel:baseCommitId:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> Maybe Text
baseCommitId} -> Maybe Text
baseCommitId) (\s :: DescribeMergeConflictsResponse
s@DescribeMergeConflictsResponse' {} Maybe Text
a -> DescribeMergeConflictsResponse
s {$sel:baseCommitId:DescribeMergeConflictsResponse' :: Maybe Text
baseCommitId = Maybe Text
a} :: DescribeMergeConflictsResponse)
describeMergeConflictsResponse_nextToken :: Lens.Lens' DescribeMergeConflictsResponse (Prelude.Maybe Prelude.Text)
describeMergeConflictsResponse_nextToken :: Lens' DescribeMergeConflictsResponse (Maybe Text)
describeMergeConflictsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflictsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeMergeConflictsResponse
s@DescribeMergeConflictsResponse' {} Maybe Text
a -> DescribeMergeConflictsResponse
s {$sel:nextToken:DescribeMergeConflictsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeMergeConflictsResponse)
describeMergeConflictsResponse_httpStatus :: Lens.Lens' DescribeMergeConflictsResponse Prelude.Int
describeMergeConflictsResponse_httpStatus :: Lens' DescribeMergeConflictsResponse Int
describeMergeConflictsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflictsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeMergeConflictsResponse
s@DescribeMergeConflictsResponse' {} Int
a -> DescribeMergeConflictsResponse
s {$sel:httpStatus:DescribeMergeConflictsResponse' :: Int
httpStatus = Int
a} :: DescribeMergeConflictsResponse)
describeMergeConflictsResponse_conflictMetadata :: Lens.Lens' DescribeMergeConflictsResponse ConflictMetadata
describeMergeConflictsResponse_conflictMetadata :: Lens' DescribeMergeConflictsResponse ConflictMetadata
describeMergeConflictsResponse_conflictMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflictsResponse' {ConflictMetadata
conflictMetadata :: ConflictMetadata
$sel:conflictMetadata:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> ConflictMetadata
conflictMetadata} -> ConflictMetadata
conflictMetadata) (\s :: DescribeMergeConflictsResponse
s@DescribeMergeConflictsResponse' {} ConflictMetadata
a -> DescribeMergeConflictsResponse
s {$sel:conflictMetadata:DescribeMergeConflictsResponse' :: ConflictMetadata
conflictMetadata = ConflictMetadata
a} :: DescribeMergeConflictsResponse)
describeMergeConflictsResponse_mergeHunks :: Lens.Lens' DescribeMergeConflictsResponse [MergeHunk]
describeMergeConflictsResponse_mergeHunks :: Lens' DescribeMergeConflictsResponse [MergeHunk]
describeMergeConflictsResponse_mergeHunks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflictsResponse' {[MergeHunk]
mergeHunks :: [MergeHunk]
$sel:mergeHunks:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> [MergeHunk]
mergeHunks} -> [MergeHunk]
mergeHunks) (\s :: DescribeMergeConflictsResponse
s@DescribeMergeConflictsResponse' {} [MergeHunk]
a -> DescribeMergeConflictsResponse
s {$sel:mergeHunks:DescribeMergeConflictsResponse' :: [MergeHunk]
mergeHunks = [MergeHunk]
a} :: DescribeMergeConflictsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
describeMergeConflictsResponse_destinationCommitId :: Lens.Lens' DescribeMergeConflictsResponse Prelude.Text
describeMergeConflictsResponse_destinationCommitId :: Lens' DescribeMergeConflictsResponse Text
describeMergeConflictsResponse_destinationCommitId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflictsResponse' {Text
destinationCommitId :: Text
$sel:destinationCommitId:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> Text
destinationCommitId} -> Text
destinationCommitId) (\s :: DescribeMergeConflictsResponse
s@DescribeMergeConflictsResponse' {} Text
a -> DescribeMergeConflictsResponse
s {$sel:destinationCommitId:DescribeMergeConflictsResponse' :: Text
destinationCommitId = Text
a} :: DescribeMergeConflictsResponse)
describeMergeConflictsResponse_sourceCommitId :: Lens.Lens' DescribeMergeConflictsResponse Prelude.Text
describeMergeConflictsResponse_sourceCommitId :: Lens' DescribeMergeConflictsResponse Text
describeMergeConflictsResponse_sourceCommitId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMergeConflictsResponse' {Text
sourceCommitId :: Text
$sel:sourceCommitId:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> Text
sourceCommitId} -> Text
sourceCommitId) (\s :: DescribeMergeConflictsResponse
s@DescribeMergeConflictsResponse' {} Text
a -> DescribeMergeConflictsResponse
s {$sel:sourceCommitId:DescribeMergeConflictsResponse' :: Text
sourceCommitId = Text
a} :: DescribeMergeConflictsResponse)
instance
Prelude.NFData
DescribeMergeConflictsResponse
where
rnf :: DescribeMergeConflictsResponse -> ()
rnf DescribeMergeConflictsResponse' {Int
[MergeHunk]
Maybe Text
Text
ConflictMetadata
sourceCommitId :: Text
destinationCommitId :: Text
mergeHunks :: [MergeHunk]
conflictMetadata :: ConflictMetadata
httpStatus :: Int
nextToken :: Maybe Text
baseCommitId :: Maybe Text
$sel:sourceCommitId:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> Text
$sel:destinationCommitId:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> Text
$sel:mergeHunks:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> [MergeHunk]
$sel:conflictMetadata:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> ConflictMetadata
$sel:httpStatus:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> Int
$sel:nextToken:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> Maybe Text
$sel:baseCommitId:DescribeMergeConflictsResponse' :: DescribeMergeConflictsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
baseCommitId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ConflictMetadata
conflictMetadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [MergeHunk]
mergeHunks
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
destinationCommitId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sourceCommitId