{-# 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.UpdatePullRequestTitle
(
UpdatePullRequestTitle (..),
newUpdatePullRequestTitle,
updatePullRequestTitle_pullRequestId,
updatePullRequestTitle_title,
UpdatePullRequestTitleResponse (..),
newUpdatePullRequestTitleResponse,
updatePullRequestTitleResponse_httpStatus,
updatePullRequestTitleResponse_pullRequest,
)
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 UpdatePullRequestTitle = UpdatePullRequestTitle'
{
UpdatePullRequestTitle -> Text
pullRequestId :: Prelude.Text,
UpdatePullRequestTitle -> Text
title :: Prelude.Text
}
deriving (UpdatePullRequestTitle -> UpdatePullRequestTitle -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdatePullRequestTitle -> UpdatePullRequestTitle -> Bool
$c/= :: UpdatePullRequestTitle -> UpdatePullRequestTitle -> Bool
== :: UpdatePullRequestTitle -> UpdatePullRequestTitle -> Bool
$c== :: UpdatePullRequestTitle -> UpdatePullRequestTitle -> Bool
Prelude.Eq, ReadPrec [UpdatePullRequestTitle]
ReadPrec UpdatePullRequestTitle
Int -> ReadS UpdatePullRequestTitle
ReadS [UpdatePullRequestTitle]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdatePullRequestTitle]
$creadListPrec :: ReadPrec [UpdatePullRequestTitle]
readPrec :: ReadPrec UpdatePullRequestTitle
$creadPrec :: ReadPrec UpdatePullRequestTitle
readList :: ReadS [UpdatePullRequestTitle]
$creadList :: ReadS [UpdatePullRequestTitle]
readsPrec :: Int -> ReadS UpdatePullRequestTitle
$creadsPrec :: Int -> ReadS UpdatePullRequestTitle
Prelude.Read, Int -> UpdatePullRequestTitle -> ShowS
[UpdatePullRequestTitle] -> ShowS
UpdatePullRequestTitle -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdatePullRequestTitle] -> ShowS
$cshowList :: [UpdatePullRequestTitle] -> ShowS
show :: UpdatePullRequestTitle -> String
$cshow :: UpdatePullRequestTitle -> String
showsPrec :: Int -> UpdatePullRequestTitle -> ShowS
$cshowsPrec :: Int -> UpdatePullRequestTitle -> ShowS
Prelude.Show, forall x. Rep UpdatePullRequestTitle x -> UpdatePullRequestTitle
forall x. UpdatePullRequestTitle -> Rep UpdatePullRequestTitle x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdatePullRequestTitle x -> UpdatePullRequestTitle
$cfrom :: forall x. UpdatePullRequestTitle -> Rep UpdatePullRequestTitle x
Prelude.Generic)
newUpdatePullRequestTitle ::
Prelude.Text ->
Prelude.Text ->
UpdatePullRequestTitle
newUpdatePullRequestTitle :: Text -> Text -> UpdatePullRequestTitle
newUpdatePullRequestTitle Text
pPullRequestId_ Text
pTitle_ =
UpdatePullRequestTitle'
{ $sel:pullRequestId:UpdatePullRequestTitle' :: Text
pullRequestId =
Text
pPullRequestId_,
$sel:title:UpdatePullRequestTitle' :: Text
title = Text
pTitle_
}
updatePullRequestTitle_pullRequestId :: Lens.Lens' UpdatePullRequestTitle Prelude.Text
updatePullRequestTitle_pullRequestId :: Lens' UpdatePullRequestTitle Text
updatePullRequestTitle_pullRequestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdatePullRequestTitle' {Text
pullRequestId :: Text
$sel:pullRequestId:UpdatePullRequestTitle' :: UpdatePullRequestTitle -> Text
pullRequestId} -> Text
pullRequestId) (\s :: UpdatePullRequestTitle
s@UpdatePullRequestTitle' {} Text
a -> UpdatePullRequestTitle
s {$sel:pullRequestId:UpdatePullRequestTitle' :: Text
pullRequestId = Text
a} :: UpdatePullRequestTitle)
updatePullRequestTitle_title :: Lens.Lens' UpdatePullRequestTitle Prelude.Text
updatePullRequestTitle_title :: Lens' UpdatePullRequestTitle Text
updatePullRequestTitle_title = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdatePullRequestTitle' {Text
title :: Text
$sel:title:UpdatePullRequestTitle' :: UpdatePullRequestTitle -> Text
title} -> Text
title) (\s :: UpdatePullRequestTitle
s@UpdatePullRequestTitle' {} Text
a -> UpdatePullRequestTitle
s {$sel:title:UpdatePullRequestTitle' :: Text
title = Text
a} :: UpdatePullRequestTitle)
instance Core.AWSRequest UpdatePullRequestTitle where
type
AWSResponse UpdatePullRequestTitle =
UpdatePullRequestTitleResponse
request :: (Service -> Service)
-> UpdatePullRequestTitle -> Request UpdatePullRequestTitle
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 UpdatePullRequestTitle
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdatePullRequestTitle)))
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 ->
Int -> PullRequest -> UpdatePullRequestTitleResponse
UpdatePullRequestTitleResponse'
forall (f :: * -> *) a b. Functor 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
"pullRequest")
)
instance Prelude.Hashable UpdatePullRequestTitle where
hashWithSalt :: Int -> UpdatePullRequestTitle -> Int
hashWithSalt Int
_salt UpdatePullRequestTitle' {Text
title :: Text
pullRequestId :: Text
$sel:title:UpdatePullRequestTitle' :: UpdatePullRequestTitle -> Text
$sel:pullRequestId:UpdatePullRequestTitle' :: UpdatePullRequestTitle -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
pullRequestId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
title
instance Prelude.NFData UpdatePullRequestTitle where
rnf :: UpdatePullRequestTitle -> ()
rnf UpdatePullRequestTitle' {Text
title :: Text
pullRequestId :: Text
$sel:title:UpdatePullRequestTitle' :: UpdatePullRequestTitle -> Text
$sel:pullRequestId:UpdatePullRequestTitle' :: UpdatePullRequestTitle -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
pullRequestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
title
instance Data.ToHeaders UpdatePullRequestTitle where
toHeaders :: UpdatePullRequestTitle -> 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.UpdatePullRequestTitle" ::
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 UpdatePullRequestTitle where
toJSON :: UpdatePullRequestTitle -> Value
toJSON UpdatePullRequestTitle' {Text
title :: Text
pullRequestId :: Text
$sel:title:UpdatePullRequestTitle' :: UpdatePullRequestTitle -> Text
$sel:pullRequestId:UpdatePullRequestTitle' :: UpdatePullRequestTitle -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"pullRequestId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
pullRequestId),
forall a. a -> Maybe a
Prelude.Just (Key
"title" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
title)
]
)
instance Data.ToPath UpdatePullRequestTitle where
toPath :: UpdatePullRequestTitle -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdatePullRequestTitle where
toQuery :: UpdatePullRequestTitle -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdatePullRequestTitleResponse = UpdatePullRequestTitleResponse'
{
UpdatePullRequestTitleResponse -> Int
httpStatus :: Prelude.Int,
UpdatePullRequestTitleResponse -> PullRequest
pullRequest :: PullRequest
}
deriving (UpdatePullRequestTitleResponse
-> UpdatePullRequestTitleResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdatePullRequestTitleResponse
-> UpdatePullRequestTitleResponse -> Bool
$c/= :: UpdatePullRequestTitleResponse
-> UpdatePullRequestTitleResponse -> Bool
== :: UpdatePullRequestTitleResponse
-> UpdatePullRequestTitleResponse -> Bool
$c== :: UpdatePullRequestTitleResponse
-> UpdatePullRequestTitleResponse -> Bool
Prelude.Eq, ReadPrec [UpdatePullRequestTitleResponse]
ReadPrec UpdatePullRequestTitleResponse
Int -> ReadS UpdatePullRequestTitleResponse
ReadS [UpdatePullRequestTitleResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdatePullRequestTitleResponse]
$creadListPrec :: ReadPrec [UpdatePullRequestTitleResponse]
readPrec :: ReadPrec UpdatePullRequestTitleResponse
$creadPrec :: ReadPrec UpdatePullRequestTitleResponse
readList :: ReadS [UpdatePullRequestTitleResponse]
$creadList :: ReadS [UpdatePullRequestTitleResponse]
readsPrec :: Int -> ReadS UpdatePullRequestTitleResponse
$creadsPrec :: Int -> ReadS UpdatePullRequestTitleResponse
Prelude.Read, Int -> UpdatePullRequestTitleResponse -> ShowS
[UpdatePullRequestTitleResponse] -> ShowS
UpdatePullRequestTitleResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdatePullRequestTitleResponse] -> ShowS
$cshowList :: [UpdatePullRequestTitleResponse] -> ShowS
show :: UpdatePullRequestTitleResponse -> String
$cshow :: UpdatePullRequestTitleResponse -> String
showsPrec :: Int -> UpdatePullRequestTitleResponse -> ShowS
$cshowsPrec :: Int -> UpdatePullRequestTitleResponse -> ShowS
Prelude.Show, forall x.
Rep UpdatePullRequestTitleResponse x
-> UpdatePullRequestTitleResponse
forall x.
UpdatePullRequestTitleResponse
-> Rep UpdatePullRequestTitleResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdatePullRequestTitleResponse x
-> UpdatePullRequestTitleResponse
$cfrom :: forall x.
UpdatePullRequestTitleResponse
-> Rep UpdatePullRequestTitleResponse x
Prelude.Generic)
newUpdatePullRequestTitleResponse ::
Prelude.Int ->
PullRequest ->
UpdatePullRequestTitleResponse
newUpdatePullRequestTitleResponse :: Int -> PullRequest -> UpdatePullRequestTitleResponse
newUpdatePullRequestTitleResponse
Int
pHttpStatus_
PullRequest
pPullRequest_ =
UpdatePullRequestTitleResponse'
{ $sel:httpStatus:UpdatePullRequestTitleResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:pullRequest:UpdatePullRequestTitleResponse' :: PullRequest
pullRequest = PullRequest
pPullRequest_
}
updatePullRequestTitleResponse_httpStatus :: Lens.Lens' UpdatePullRequestTitleResponse Prelude.Int
updatePullRequestTitleResponse_httpStatus :: Lens' UpdatePullRequestTitleResponse Int
updatePullRequestTitleResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdatePullRequestTitleResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdatePullRequestTitleResponse' :: UpdatePullRequestTitleResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdatePullRequestTitleResponse
s@UpdatePullRequestTitleResponse' {} Int
a -> UpdatePullRequestTitleResponse
s {$sel:httpStatus:UpdatePullRequestTitleResponse' :: Int
httpStatus = Int
a} :: UpdatePullRequestTitleResponse)
updatePullRequestTitleResponse_pullRequest :: Lens.Lens' UpdatePullRequestTitleResponse PullRequest
updatePullRequestTitleResponse_pullRequest :: Lens' UpdatePullRequestTitleResponse PullRequest
updatePullRequestTitleResponse_pullRequest = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdatePullRequestTitleResponse' {PullRequest
pullRequest :: PullRequest
$sel:pullRequest:UpdatePullRequestTitleResponse' :: UpdatePullRequestTitleResponse -> PullRequest
pullRequest} -> PullRequest
pullRequest) (\s :: UpdatePullRequestTitleResponse
s@UpdatePullRequestTitleResponse' {} PullRequest
a -> UpdatePullRequestTitleResponse
s {$sel:pullRequest:UpdatePullRequestTitleResponse' :: PullRequest
pullRequest = PullRequest
a} :: UpdatePullRequestTitleResponse)
instance
Prelude.NFData
UpdatePullRequestTitleResponse
where
rnf :: UpdatePullRequestTitleResponse -> ()
rnf UpdatePullRequestTitleResponse' {Int
PullRequest
pullRequest :: PullRequest
httpStatus :: Int
$sel:pullRequest:UpdatePullRequestTitleResponse' :: UpdatePullRequestTitleResponse -> PullRequest
$sel:httpStatus:UpdatePullRequestTitleResponse' :: UpdatePullRequestTitleResponse -> Int
..} =
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 PullRequest
pullRequest