{-# 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.PostCommentForComparedCommit
(
PostCommentForComparedCommit (..),
newPostCommentForComparedCommit,
postCommentForComparedCommit_beforeCommitId,
postCommentForComparedCommit_clientRequestToken,
postCommentForComparedCommit_location,
postCommentForComparedCommit_repositoryName,
postCommentForComparedCommit_afterCommitId,
postCommentForComparedCommit_content,
PostCommentForComparedCommitResponse (..),
newPostCommentForComparedCommitResponse,
postCommentForComparedCommitResponse_afterBlobId,
postCommentForComparedCommitResponse_afterCommitId,
postCommentForComparedCommitResponse_beforeBlobId,
postCommentForComparedCommitResponse_beforeCommitId,
postCommentForComparedCommitResponse_comment,
postCommentForComparedCommitResponse_location,
postCommentForComparedCommitResponse_repositoryName,
postCommentForComparedCommitResponse_httpStatus,
)
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 =
{
:: Prelude.Maybe Prelude.Text,
:: Prelude.Maybe Prelude.Text,
:: Prelude.Maybe Location,
:: Prelude.Text,
:: Prelude.Text,
:: Prelude.Text
}
deriving (PostCommentForComparedCommit
-> PostCommentForComparedCommit -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostCommentForComparedCommit
-> PostCommentForComparedCommit -> Bool
$c/= :: PostCommentForComparedCommit
-> PostCommentForComparedCommit -> Bool
== :: PostCommentForComparedCommit
-> PostCommentForComparedCommit -> Bool
$c== :: PostCommentForComparedCommit
-> PostCommentForComparedCommit -> Bool
Prelude.Eq, ReadPrec [PostCommentForComparedCommit]
ReadPrec PostCommentForComparedCommit
Int -> ReadS PostCommentForComparedCommit
ReadS [PostCommentForComparedCommit]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PostCommentForComparedCommit]
$creadListPrec :: ReadPrec [PostCommentForComparedCommit]
readPrec :: ReadPrec PostCommentForComparedCommit
$creadPrec :: ReadPrec PostCommentForComparedCommit
readList :: ReadS [PostCommentForComparedCommit]
$creadList :: ReadS [PostCommentForComparedCommit]
readsPrec :: Int -> ReadS PostCommentForComparedCommit
$creadsPrec :: Int -> ReadS PostCommentForComparedCommit
Prelude.Read, Int -> PostCommentForComparedCommit -> ShowS
[PostCommentForComparedCommit] -> ShowS
PostCommentForComparedCommit -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostCommentForComparedCommit] -> ShowS
$cshowList :: [PostCommentForComparedCommit] -> ShowS
show :: PostCommentForComparedCommit -> String
$cshow :: PostCommentForComparedCommit -> String
showsPrec :: Int -> PostCommentForComparedCommit -> ShowS
$cshowsPrec :: Int -> PostCommentForComparedCommit -> ShowS
Prelude.Show, forall x.
Rep PostCommentForComparedCommit x -> PostCommentForComparedCommit
forall x.
PostCommentForComparedCommit -> Rep PostCommentForComparedCommit x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PostCommentForComparedCommit x -> PostCommentForComparedCommit
$cfrom :: forall x.
PostCommentForComparedCommit -> Rep PostCommentForComparedCommit x
Prelude.Generic)
newPostCommentForComparedCommit ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
PostCommentForComparedCommit
Text
pRepositoryName_
Text
pAfterCommitId_
Text
pContent_ =
PostCommentForComparedCommit'
{ $sel:beforeCommitId:PostCommentForComparedCommit' :: Maybe Text
beforeCommitId =
forall a. Maybe a
Prelude.Nothing,
$sel:clientRequestToken:PostCommentForComparedCommit' :: Maybe Text
clientRequestToken = forall a. Maybe a
Prelude.Nothing,
$sel:location:PostCommentForComparedCommit' :: Maybe Location
location = forall a. Maybe a
Prelude.Nothing,
$sel:repositoryName:PostCommentForComparedCommit' :: Text
repositoryName = Text
pRepositoryName_,
$sel:afterCommitId:PostCommentForComparedCommit' :: Text
afterCommitId = Text
pAfterCommitId_,
$sel:content:PostCommentForComparedCommit' :: Text
content = Text
pContent_
}
postCommentForComparedCommit_beforeCommitId :: Lens.Lens' PostCommentForComparedCommit (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommit' {Maybe Text
beforeCommitId :: Maybe Text
$sel:beforeCommitId:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Text
beforeCommitId} -> Maybe Text
beforeCommitId) (\s :: PostCommentForComparedCommit
s@PostCommentForComparedCommit' {} Maybe Text
a -> PostCommentForComparedCommit
s {$sel:beforeCommitId:PostCommentForComparedCommit' :: Maybe Text
beforeCommitId = Maybe Text
a} :: PostCommentForComparedCommit)
postCommentForComparedCommit_clientRequestToken :: Lens.Lens' PostCommentForComparedCommit (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommit' {Maybe Text
clientRequestToken :: Maybe Text
$sel:clientRequestToken:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Text
clientRequestToken} -> Maybe Text
clientRequestToken) (\s :: PostCommentForComparedCommit
s@PostCommentForComparedCommit' {} Maybe Text
a -> PostCommentForComparedCommit
s {$sel:clientRequestToken:PostCommentForComparedCommit' :: Maybe Text
clientRequestToken = Maybe Text
a} :: PostCommentForComparedCommit)
postCommentForComparedCommit_location :: Lens.Lens' PostCommentForComparedCommit (Prelude.Maybe Location)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommit' {Maybe Location
location :: Maybe Location
$sel:location:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Location
location} -> Maybe Location
location) (\s :: PostCommentForComparedCommit
s@PostCommentForComparedCommit' {} Maybe Location
a -> PostCommentForComparedCommit
s {$sel:location:PostCommentForComparedCommit' :: Maybe Location
location = Maybe Location
a} :: PostCommentForComparedCommit)
postCommentForComparedCommit_repositoryName :: Lens.Lens' PostCommentForComparedCommit Prelude.Text
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommit' {Text
repositoryName :: Text
$sel:repositoryName:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
repositoryName} -> Text
repositoryName) (\s :: PostCommentForComparedCommit
s@PostCommentForComparedCommit' {} Text
a -> PostCommentForComparedCommit
s {$sel:repositoryName:PostCommentForComparedCommit' :: Text
repositoryName = Text
a} :: PostCommentForComparedCommit)
postCommentForComparedCommit_afterCommitId :: Lens.Lens' PostCommentForComparedCommit Prelude.Text
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommit' {Text
afterCommitId :: Text
$sel:afterCommitId:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
afterCommitId} -> Text
afterCommitId) (\s :: PostCommentForComparedCommit
s@PostCommentForComparedCommit' {} Text
a -> PostCommentForComparedCommit
s {$sel:afterCommitId:PostCommentForComparedCommit' :: Text
afterCommitId = Text
a} :: PostCommentForComparedCommit)
postCommentForComparedCommit_content :: Lens.Lens' PostCommentForComparedCommit Prelude.Text
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommit' {Text
content :: Text
$sel:content:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
content} -> Text
content) (\s :: PostCommentForComparedCommit
s@PostCommentForComparedCommit' {} Text
a -> PostCommentForComparedCommit
s {$sel:content:PostCommentForComparedCommit' :: Text
content = Text
a} :: PostCommentForComparedCommit)
instance Core.AWSRequest PostCommentForComparedCommit where
type
AWSResponse PostCommentForComparedCommit =
PostCommentForComparedCommitResponse
request :: (Service -> Service)
-> PostCommentForComparedCommit
-> Request PostCommentForComparedCommit
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 PostCommentForComparedCommit
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse PostCommentForComparedCommit)))
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
-> Maybe Text
-> Maybe Text
-> Maybe Comment
-> Maybe Location
-> Maybe Text
-> Int
-> PostCommentForComparedCommitResponse
PostCommentForComparedCommitResponse'
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
"afterBlobId")
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
"afterCommitId")
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
"beforeBlobId")
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
"beforeCommitId")
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
"comment")
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
"location")
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
"repositoryName")
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))
)
instance
Prelude.Hashable
PostCommentForComparedCommit
where
hashWithSalt :: Int -> PostCommentForComparedCommit -> Int
hashWithSalt Int
_salt PostCommentForComparedCommit' {Maybe Text
Maybe Location
Text
content :: Text
afterCommitId :: Text
repositoryName :: Text
location :: Maybe Location
clientRequestToken :: Maybe Text
beforeCommitId :: Maybe Text
$sel:content:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
$sel:afterCommitId:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
$sel:repositoryName:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
$sel:location:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Location
$sel:clientRequestToken:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Text
$sel:beforeCommitId:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
beforeCommitId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientRequestToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Location
location
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
repositoryName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
afterCommitId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
content
instance Prelude.NFData PostCommentForComparedCommit where
rnf :: PostCommentForComparedCommit -> ()
rnf PostCommentForComparedCommit' {Maybe Text
Maybe Location
Text
content :: Text
afterCommitId :: Text
repositoryName :: Text
location :: Maybe Location
clientRequestToken :: Maybe Text
beforeCommitId :: Maybe Text
$sel:content:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
$sel:afterCommitId:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
$sel:repositoryName:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
$sel:location:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Location
$sel:clientRequestToken:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Text
$sel:beforeCommitId:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
beforeCommitId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientRequestToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Location
location
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
afterCommitId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
content
instance Data.ToHeaders PostCommentForComparedCommit where
toHeaders :: PostCommentForComparedCommit -> 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.PostCommentForComparedCommit" ::
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 PostCommentForComparedCommit where
toJSON :: PostCommentForComparedCommit -> Value
toJSON PostCommentForComparedCommit' {Maybe Text
Maybe Location
Text
content :: Text
afterCommitId :: Text
repositoryName :: Text
location :: Maybe Location
clientRequestToken :: Maybe Text
beforeCommitId :: Maybe Text
$sel:content:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
$sel:afterCommitId:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
$sel:repositoryName:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Text
$sel:location:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Location
$sel:clientRequestToken:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Text
$sel:beforeCommitId:PostCommentForComparedCommit' :: PostCommentForComparedCommit -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"beforeCommitId" 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
beforeCommitId,
(Key
"clientRequestToken" 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
clientRequestToken,
(Key
"location" 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 Location
location,
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
"afterCommitId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
afterCommitId),
forall a. a -> Maybe a
Prelude.Just (Key
"content" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
content)
]
)
instance Data.ToPath PostCommentForComparedCommit where
toPath :: PostCommentForComparedCommit -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery PostCommentForComparedCommit where
toQuery :: PostCommentForComparedCommit -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data =
{
:: Prelude.Maybe Prelude.Text,
:: Prelude.Maybe Prelude.Text,
:: Prelude.Maybe Prelude.Text,
:: Prelude.Maybe Prelude.Text,
:: Prelude.Maybe Comment,
:: Prelude.Maybe Location,
:: Prelude.Maybe Prelude.Text,
:: Prelude.Int
}
deriving (PostCommentForComparedCommitResponse
-> PostCommentForComparedCommitResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostCommentForComparedCommitResponse
-> PostCommentForComparedCommitResponse -> Bool
$c/= :: PostCommentForComparedCommitResponse
-> PostCommentForComparedCommitResponse -> Bool
== :: PostCommentForComparedCommitResponse
-> PostCommentForComparedCommitResponse -> Bool
$c== :: PostCommentForComparedCommitResponse
-> PostCommentForComparedCommitResponse -> Bool
Prelude.Eq, ReadPrec [PostCommentForComparedCommitResponse]
ReadPrec PostCommentForComparedCommitResponse
Int -> ReadS PostCommentForComparedCommitResponse
ReadS [PostCommentForComparedCommitResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PostCommentForComparedCommitResponse]
$creadListPrec :: ReadPrec [PostCommentForComparedCommitResponse]
readPrec :: ReadPrec PostCommentForComparedCommitResponse
$creadPrec :: ReadPrec PostCommentForComparedCommitResponse
readList :: ReadS [PostCommentForComparedCommitResponse]
$creadList :: ReadS [PostCommentForComparedCommitResponse]
readsPrec :: Int -> ReadS PostCommentForComparedCommitResponse
$creadsPrec :: Int -> ReadS PostCommentForComparedCommitResponse
Prelude.Read, Int -> PostCommentForComparedCommitResponse -> ShowS
[PostCommentForComparedCommitResponse] -> ShowS
PostCommentForComparedCommitResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostCommentForComparedCommitResponse] -> ShowS
$cshowList :: [PostCommentForComparedCommitResponse] -> ShowS
show :: PostCommentForComparedCommitResponse -> String
$cshow :: PostCommentForComparedCommitResponse -> String
showsPrec :: Int -> PostCommentForComparedCommitResponse -> ShowS
$cshowsPrec :: Int -> PostCommentForComparedCommitResponse -> ShowS
Prelude.Show, forall x.
Rep PostCommentForComparedCommitResponse x
-> PostCommentForComparedCommitResponse
forall x.
PostCommentForComparedCommitResponse
-> Rep PostCommentForComparedCommitResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PostCommentForComparedCommitResponse x
-> PostCommentForComparedCommitResponse
$cfrom :: forall x.
PostCommentForComparedCommitResponse
-> Rep PostCommentForComparedCommitResponse x
Prelude.Generic)
newPostCommentForComparedCommitResponse ::
Prelude.Int ->
PostCommentForComparedCommitResponse
Int
pHttpStatus_ =
PostCommentForComparedCommitResponse'
{ $sel:afterBlobId:PostCommentForComparedCommitResponse' :: Maybe Text
afterBlobId =
forall a. Maybe a
Prelude.Nothing,
$sel:afterCommitId:PostCommentForComparedCommitResponse' :: Maybe Text
afterCommitId = forall a. Maybe a
Prelude.Nothing,
$sel:beforeBlobId:PostCommentForComparedCommitResponse' :: Maybe Text
beforeBlobId = forall a. Maybe a
Prelude.Nothing,
$sel:beforeCommitId:PostCommentForComparedCommitResponse' :: Maybe Text
beforeCommitId = forall a. Maybe a
Prelude.Nothing,
$sel:comment:PostCommentForComparedCommitResponse' :: Maybe Comment
comment = forall a. Maybe a
Prelude.Nothing,
$sel:location:PostCommentForComparedCommitResponse' :: Maybe Location
location = forall a. Maybe a
Prelude.Nothing,
$sel:repositoryName:PostCommentForComparedCommitResponse' :: Maybe Text
repositoryName = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PostCommentForComparedCommitResponse' :: Int
httpStatus = Int
pHttpStatus_
}
postCommentForComparedCommitResponse_afterBlobId :: Lens.Lens' PostCommentForComparedCommitResponse (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommitResponse' {Maybe Text
afterBlobId :: Maybe Text
$sel:afterBlobId:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Text
afterBlobId} -> Maybe Text
afterBlobId) (\s :: PostCommentForComparedCommitResponse
s@PostCommentForComparedCommitResponse' {} Maybe Text
a -> PostCommentForComparedCommitResponse
s {$sel:afterBlobId:PostCommentForComparedCommitResponse' :: Maybe Text
afterBlobId = Maybe Text
a} :: PostCommentForComparedCommitResponse)
postCommentForComparedCommitResponse_afterCommitId :: Lens.Lens' PostCommentForComparedCommitResponse (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommitResponse' {Maybe Text
afterCommitId :: Maybe Text
$sel:afterCommitId:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Text
afterCommitId} -> Maybe Text
afterCommitId) (\s :: PostCommentForComparedCommitResponse
s@PostCommentForComparedCommitResponse' {} Maybe Text
a -> PostCommentForComparedCommitResponse
s {$sel:afterCommitId:PostCommentForComparedCommitResponse' :: Maybe Text
afterCommitId = Maybe Text
a} :: PostCommentForComparedCommitResponse)
postCommentForComparedCommitResponse_beforeBlobId :: Lens.Lens' PostCommentForComparedCommitResponse (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommitResponse' {Maybe Text
beforeBlobId :: Maybe Text
$sel:beforeBlobId:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Text
beforeBlobId} -> Maybe Text
beforeBlobId) (\s :: PostCommentForComparedCommitResponse
s@PostCommentForComparedCommitResponse' {} Maybe Text
a -> PostCommentForComparedCommitResponse
s {$sel:beforeBlobId:PostCommentForComparedCommitResponse' :: Maybe Text
beforeBlobId = Maybe Text
a} :: PostCommentForComparedCommitResponse)
postCommentForComparedCommitResponse_beforeCommitId :: Lens.Lens' PostCommentForComparedCommitResponse (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommitResponse' {Maybe Text
beforeCommitId :: Maybe Text
$sel:beforeCommitId:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Text
beforeCommitId} -> Maybe Text
beforeCommitId) (\s :: PostCommentForComparedCommitResponse
s@PostCommentForComparedCommitResponse' {} Maybe Text
a -> PostCommentForComparedCommitResponse
s {$sel:beforeCommitId:PostCommentForComparedCommitResponse' :: Maybe Text
beforeCommitId = Maybe Text
a} :: PostCommentForComparedCommitResponse)
postCommentForComparedCommitResponse_comment :: Lens.Lens' PostCommentForComparedCommitResponse (Prelude.Maybe Comment)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommitResponse' {Maybe Comment
comment :: Maybe Comment
$sel:comment:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Comment
comment} -> Maybe Comment
comment) (\s :: PostCommentForComparedCommitResponse
s@PostCommentForComparedCommitResponse' {} Maybe Comment
a -> PostCommentForComparedCommitResponse
s {$sel:comment:PostCommentForComparedCommitResponse' :: Maybe Comment
comment = Maybe Comment
a} :: PostCommentForComparedCommitResponse)
postCommentForComparedCommitResponse_location :: Lens.Lens' PostCommentForComparedCommitResponse (Prelude.Maybe Location)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommitResponse' {Maybe Location
location :: Maybe Location
$sel:location:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Location
location} -> Maybe Location
location) (\s :: PostCommentForComparedCommitResponse
s@PostCommentForComparedCommitResponse' {} Maybe Location
a -> PostCommentForComparedCommitResponse
s {$sel:location:PostCommentForComparedCommitResponse' :: Maybe Location
location = Maybe Location
a} :: PostCommentForComparedCommitResponse)
postCommentForComparedCommitResponse_repositoryName :: Lens.Lens' PostCommentForComparedCommitResponse (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommitResponse' {Maybe Text
repositoryName :: Maybe Text
$sel:repositoryName:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Text
repositoryName} -> Maybe Text
repositoryName) (\s :: PostCommentForComparedCommitResponse
s@PostCommentForComparedCommitResponse' {} Maybe Text
a -> PostCommentForComparedCommitResponse
s {$sel:repositoryName:PostCommentForComparedCommitResponse' :: Maybe Text
repositoryName = Maybe Text
a} :: PostCommentForComparedCommitResponse)
postCommentForComparedCommitResponse_httpStatus :: Lens.Lens' PostCommentForComparedCommitResponse Prelude.Int
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostCommentForComparedCommitResponse' {Int
httpStatus :: Int
$sel:httpStatus:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PostCommentForComparedCommitResponse
s@PostCommentForComparedCommitResponse' {} Int
a -> PostCommentForComparedCommitResponse
s {$sel:httpStatus:PostCommentForComparedCommitResponse' :: Int
httpStatus = Int
a} :: PostCommentForComparedCommitResponse)
instance
Prelude.NFData
PostCommentForComparedCommitResponse
where
rnf :: PostCommentForComparedCommitResponse -> ()
rnf PostCommentForComparedCommitResponse' {Int
Maybe Text
Maybe Comment
Maybe Location
httpStatus :: Int
repositoryName :: Maybe Text
location :: Maybe Location
comment :: Maybe Comment
beforeCommitId :: Maybe Text
beforeBlobId :: Maybe Text
afterCommitId :: Maybe Text
afterBlobId :: Maybe Text
$sel:httpStatus:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Int
$sel:repositoryName:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Text
$sel:location:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Location
$sel:comment:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Comment
$sel:beforeCommitId:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Text
$sel:beforeBlobId:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Text
$sel:afterCommitId:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Text
$sel:afterBlobId:PostCommentForComparedCommitResponse' :: PostCommentForComparedCommitResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
afterBlobId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
afterCommitId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
beforeBlobId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
beforeCommitId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Comment
comment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Location
location
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
repositoryName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus