{-# 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.UpdateApprovalRuleTemplateName
(
UpdateApprovalRuleTemplateName (..),
newUpdateApprovalRuleTemplateName,
updateApprovalRuleTemplateName_oldApprovalRuleTemplateName,
updateApprovalRuleTemplateName_newApprovalRuleTemplateName,
UpdateApprovalRuleTemplateNameResponse (..),
newUpdateApprovalRuleTemplateNameResponse,
updateApprovalRuleTemplateNameResponse_httpStatus,
updateApprovalRuleTemplateNameResponse_approvalRuleTemplate,
)
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 UpdateApprovalRuleTemplateName = UpdateApprovalRuleTemplateName'
{
UpdateApprovalRuleTemplateName -> Text
oldApprovalRuleTemplateName :: Prelude.Text,
UpdateApprovalRuleTemplateName -> Text
newApprovalRuleTemplateName' :: Prelude.Text
}
deriving (UpdateApprovalRuleTemplateName
-> UpdateApprovalRuleTemplateName -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateApprovalRuleTemplateName
-> UpdateApprovalRuleTemplateName -> Bool
$c/= :: UpdateApprovalRuleTemplateName
-> UpdateApprovalRuleTemplateName -> Bool
== :: UpdateApprovalRuleTemplateName
-> UpdateApprovalRuleTemplateName -> Bool
$c== :: UpdateApprovalRuleTemplateName
-> UpdateApprovalRuleTemplateName -> Bool
Prelude.Eq, ReadPrec [UpdateApprovalRuleTemplateName]
ReadPrec UpdateApprovalRuleTemplateName
Int -> ReadS UpdateApprovalRuleTemplateName
ReadS [UpdateApprovalRuleTemplateName]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateApprovalRuleTemplateName]
$creadListPrec :: ReadPrec [UpdateApprovalRuleTemplateName]
readPrec :: ReadPrec UpdateApprovalRuleTemplateName
$creadPrec :: ReadPrec UpdateApprovalRuleTemplateName
readList :: ReadS [UpdateApprovalRuleTemplateName]
$creadList :: ReadS [UpdateApprovalRuleTemplateName]
readsPrec :: Int -> ReadS UpdateApprovalRuleTemplateName
$creadsPrec :: Int -> ReadS UpdateApprovalRuleTemplateName
Prelude.Read, Int -> UpdateApprovalRuleTemplateName -> ShowS
[UpdateApprovalRuleTemplateName] -> ShowS
UpdateApprovalRuleTemplateName -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateApprovalRuleTemplateName] -> ShowS
$cshowList :: [UpdateApprovalRuleTemplateName] -> ShowS
show :: UpdateApprovalRuleTemplateName -> String
$cshow :: UpdateApprovalRuleTemplateName -> String
showsPrec :: Int -> UpdateApprovalRuleTemplateName -> ShowS
$cshowsPrec :: Int -> UpdateApprovalRuleTemplateName -> ShowS
Prelude.Show, forall x.
Rep UpdateApprovalRuleTemplateName x
-> UpdateApprovalRuleTemplateName
forall x.
UpdateApprovalRuleTemplateName
-> Rep UpdateApprovalRuleTemplateName x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateApprovalRuleTemplateName x
-> UpdateApprovalRuleTemplateName
$cfrom :: forall x.
UpdateApprovalRuleTemplateName
-> Rep UpdateApprovalRuleTemplateName x
Prelude.Generic)
newUpdateApprovalRuleTemplateName ::
Prelude.Text ->
Prelude.Text ->
UpdateApprovalRuleTemplateName
newUpdateApprovalRuleTemplateName :: Text -> Text -> UpdateApprovalRuleTemplateName
newUpdateApprovalRuleTemplateName
Text
pOldApprovalRuleTemplateName_
Text
pNewApprovalRuleTemplateName_ =
UpdateApprovalRuleTemplateName'
{ $sel:oldApprovalRuleTemplateName:UpdateApprovalRuleTemplateName' :: Text
oldApprovalRuleTemplateName =
Text
pOldApprovalRuleTemplateName_,
$sel:newApprovalRuleTemplateName':UpdateApprovalRuleTemplateName' :: Text
newApprovalRuleTemplateName' =
Text
pNewApprovalRuleTemplateName_
}
updateApprovalRuleTemplateName_oldApprovalRuleTemplateName :: Lens.Lens' UpdateApprovalRuleTemplateName Prelude.Text
updateApprovalRuleTemplateName_oldApprovalRuleTemplateName :: Lens' UpdateApprovalRuleTemplateName Text
updateApprovalRuleTemplateName_oldApprovalRuleTemplateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateApprovalRuleTemplateName' {Text
oldApprovalRuleTemplateName :: Text
$sel:oldApprovalRuleTemplateName:UpdateApprovalRuleTemplateName' :: UpdateApprovalRuleTemplateName -> Text
oldApprovalRuleTemplateName} -> Text
oldApprovalRuleTemplateName) (\s :: UpdateApprovalRuleTemplateName
s@UpdateApprovalRuleTemplateName' {} Text
a -> UpdateApprovalRuleTemplateName
s {$sel:oldApprovalRuleTemplateName:UpdateApprovalRuleTemplateName' :: Text
oldApprovalRuleTemplateName = Text
a} :: UpdateApprovalRuleTemplateName)
updateApprovalRuleTemplateName_newApprovalRuleTemplateName :: Lens.Lens' UpdateApprovalRuleTemplateName Prelude.Text
updateApprovalRuleTemplateName_newApprovalRuleTemplateName :: Lens' UpdateApprovalRuleTemplateName Text
updateApprovalRuleTemplateName_newApprovalRuleTemplateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateApprovalRuleTemplateName' {Text
newApprovalRuleTemplateName' :: Text
$sel:newApprovalRuleTemplateName':UpdateApprovalRuleTemplateName' :: UpdateApprovalRuleTemplateName -> Text
newApprovalRuleTemplateName'} -> Text
newApprovalRuleTemplateName') (\s :: UpdateApprovalRuleTemplateName
s@UpdateApprovalRuleTemplateName' {} Text
a -> UpdateApprovalRuleTemplateName
s {$sel:newApprovalRuleTemplateName':UpdateApprovalRuleTemplateName' :: Text
newApprovalRuleTemplateName' = Text
a} :: UpdateApprovalRuleTemplateName)
instance
Core.AWSRequest
UpdateApprovalRuleTemplateName
where
type
AWSResponse UpdateApprovalRuleTemplateName =
UpdateApprovalRuleTemplateNameResponse
request :: (Service -> Service)
-> UpdateApprovalRuleTemplateName
-> Request UpdateApprovalRuleTemplateName
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 UpdateApprovalRuleTemplateName
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse UpdateApprovalRuleTemplateName)))
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
-> ApprovalRuleTemplate -> UpdateApprovalRuleTemplateNameResponse
UpdateApprovalRuleTemplateNameResponse'
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
"approvalRuleTemplate")
)
instance
Prelude.Hashable
UpdateApprovalRuleTemplateName
where
hashWithSalt :: Int -> UpdateApprovalRuleTemplateName -> Int
hashWithSalt
Int
_salt
UpdateApprovalRuleTemplateName' {Text
newApprovalRuleTemplateName' :: Text
oldApprovalRuleTemplateName :: Text
$sel:newApprovalRuleTemplateName':UpdateApprovalRuleTemplateName' :: UpdateApprovalRuleTemplateName -> Text
$sel:oldApprovalRuleTemplateName:UpdateApprovalRuleTemplateName' :: UpdateApprovalRuleTemplateName -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
oldApprovalRuleTemplateName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
newApprovalRuleTemplateName'
instance
Prelude.NFData
UpdateApprovalRuleTemplateName
where
rnf :: UpdateApprovalRuleTemplateName -> ()
rnf UpdateApprovalRuleTemplateName' {Text
newApprovalRuleTemplateName' :: Text
oldApprovalRuleTemplateName :: Text
$sel:newApprovalRuleTemplateName':UpdateApprovalRuleTemplateName' :: UpdateApprovalRuleTemplateName -> Text
$sel:oldApprovalRuleTemplateName:UpdateApprovalRuleTemplateName' :: UpdateApprovalRuleTemplateName -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
oldApprovalRuleTemplateName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
newApprovalRuleTemplateName'
instance
Data.ToHeaders
UpdateApprovalRuleTemplateName
where
toHeaders :: UpdateApprovalRuleTemplateName -> 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.UpdateApprovalRuleTemplateName" ::
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 UpdateApprovalRuleTemplateName where
toJSON :: UpdateApprovalRuleTemplateName -> Value
toJSON UpdateApprovalRuleTemplateName' {Text
newApprovalRuleTemplateName' :: Text
oldApprovalRuleTemplateName :: Text
$sel:newApprovalRuleTemplateName':UpdateApprovalRuleTemplateName' :: UpdateApprovalRuleTemplateName -> Text
$sel:oldApprovalRuleTemplateName:UpdateApprovalRuleTemplateName' :: UpdateApprovalRuleTemplateName -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"oldApprovalRuleTemplateName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
oldApprovalRuleTemplateName
),
forall a. a -> Maybe a
Prelude.Just
( Key
"newApprovalRuleTemplateName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
newApprovalRuleTemplateName'
)
]
)
instance Data.ToPath UpdateApprovalRuleTemplateName where
toPath :: UpdateApprovalRuleTemplateName -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateApprovalRuleTemplateName where
toQuery :: UpdateApprovalRuleTemplateName -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateApprovalRuleTemplateNameResponse = UpdateApprovalRuleTemplateNameResponse'
{
UpdateApprovalRuleTemplateNameResponse -> Int
httpStatus :: Prelude.Int,
UpdateApprovalRuleTemplateNameResponse -> ApprovalRuleTemplate
approvalRuleTemplate :: ApprovalRuleTemplate
}
deriving (UpdateApprovalRuleTemplateNameResponse
-> UpdateApprovalRuleTemplateNameResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateApprovalRuleTemplateNameResponse
-> UpdateApprovalRuleTemplateNameResponse -> Bool
$c/= :: UpdateApprovalRuleTemplateNameResponse
-> UpdateApprovalRuleTemplateNameResponse -> Bool
== :: UpdateApprovalRuleTemplateNameResponse
-> UpdateApprovalRuleTemplateNameResponse -> Bool
$c== :: UpdateApprovalRuleTemplateNameResponse
-> UpdateApprovalRuleTemplateNameResponse -> Bool
Prelude.Eq, ReadPrec [UpdateApprovalRuleTemplateNameResponse]
ReadPrec UpdateApprovalRuleTemplateNameResponse
Int -> ReadS UpdateApprovalRuleTemplateNameResponse
ReadS [UpdateApprovalRuleTemplateNameResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateApprovalRuleTemplateNameResponse]
$creadListPrec :: ReadPrec [UpdateApprovalRuleTemplateNameResponse]
readPrec :: ReadPrec UpdateApprovalRuleTemplateNameResponse
$creadPrec :: ReadPrec UpdateApprovalRuleTemplateNameResponse
readList :: ReadS [UpdateApprovalRuleTemplateNameResponse]
$creadList :: ReadS [UpdateApprovalRuleTemplateNameResponse]
readsPrec :: Int -> ReadS UpdateApprovalRuleTemplateNameResponse
$creadsPrec :: Int -> ReadS UpdateApprovalRuleTemplateNameResponse
Prelude.Read, Int -> UpdateApprovalRuleTemplateNameResponse -> ShowS
[UpdateApprovalRuleTemplateNameResponse] -> ShowS
UpdateApprovalRuleTemplateNameResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateApprovalRuleTemplateNameResponse] -> ShowS
$cshowList :: [UpdateApprovalRuleTemplateNameResponse] -> ShowS
show :: UpdateApprovalRuleTemplateNameResponse -> String
$cshow :: UpdateApprovalRuleTemplateNameResponse -> String
showsPrec :: Int -> UpdateApprovalRuleTemplateNameResponse -> ShowS
$cshowsPrec :: Int -> UpdateApprovalRuleTemplateNameResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateApprovalRuleTemplateNameResponse x
-> UpdateApprovalRuleTemplateNameResponse
forall x.
UpdateApprovalRuleTemplateNameResponse
-> Rep UpdateApprovalRuleTemplateNameResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateApprovalRuleTemplateNameResponse x
-> UpdateApprovalRuleTemplateNameResponse
$cfrom :: forall x.
UpdateApprovalRuleTemplateNameResponse
-> Rep UpdateApprovalRuleTemplateNameResponse x
Prelude.Generic)
newUpdateApprovalRuleTemplateNameResponse ::
Prelude.Int ->
ApprovalRuleTemplate ->
UpdateApprovalRuleTemplateNameResponse
newUpdateApprovalRuleTemplateNameResponse :: Int
-> ApprovalRuleTemplate -> UpdateApprovalRuleTemplateNameResponse
newUpdateApprovalRuleTemplateNameResponse
Int
pHttpStatus_
ApprovalRuleTemplate
pApprovalRuleTemplate_ =
UpdateApprovalRuleTemplateNameResponse'
{ $sel:httpStatus:UpdateApprovalRuleTemplateNameResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:approvalRuleTemplate:UpdateApprovalRuleTemplateNameResponse' :: ApprovalRuleTemplate
approvalRuleTemplate =
ApprovalRuleTemplate
pApprovalRuleTemplate_
}
updateApprovalRuleTemplateNameResponse_httpStatus :: Lens.Lens' UpdateApprovalRuleTemplateNameResponse Prelude.Int
updateApprovalRuleTemplateNameResponse_httpStatus :: Lens' UpdateApprovalRuleTemplateNameResponse Int
updateApprovalRuleTemplateNameResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateApprovalRuleTemplateNameResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateApprovalRuleTemplateNameResponse' :: UpdateApprovalRuleTemplateNameResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateApprovalRuleTemplateNameResponse
s@UpdateApprovalRuleTemplateNameResponse' {} Int
a -> UpdateApprovalRuleTemplateNameResponse
s {$sel:httpStatus:UpdateApprovalRuleTemplateNameResponse' :: Int
httpStatus = Int
a} :: UpdateApprovalRuleTemplateNameResponse)
updateApprovalRuleTemplateNameResponse_approvalRuleTemplate :: Lens.Lens' UpdateApprovalRuleTemplateNameResponse ApprovalRuleTemplate
updateApprovalRuleTemplateNameResponse_approvalRuleTemplate :: Lens' UpdateApprovalRuleTemplateNameResponse ApprovalRuleTemplate
updateApprovalRuleTemplateNameResponse_approvalRuleTemplate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateApprovalRuleTemplateNameResponse' {ApprovalRuleTemplate
approvalRuleTemplate :: ApprovalRuleTemplate
$sel:approvalRuleTemplate:UpdateApprovalRuleTemplateNameResponse' :: UpdateApprovalRuleTemplateNameResponse -> ApprovalRuleTemplate
approvalRuleTemplate} -> ApprovalRuleTemplate
approvalRuleTemplate) (\s :: UpdateApprovalRuleTemplateNameResponse
s@UpdateApprovalRuleTemplateNameResponse' {} ApprovalRuleTemplate
a -> UpdateApprovalRuleTemplateNameResponse
s {$sel:approvalRuleTemplate:UpdateApprovalRuleTemplateNameResponse' :: ApprovalRuleTemplate
approvalRuleTemplate = ApprovalRuleTemplate
a} :: UpdateApprovalRuleTemplateNameResponse)
instance
Prelude.NFData
UpdateApprovalRuleTemplateNameResponse
where
rnf :: UpdateApprovalRuleTemplateNameResponse -> ()
rnf UpdateApprovalRuleTemplateNameResponse' {Int
ApprovalRuleTemplate
approvalRuleTemplate :: ApprovalRuleTemplate
httpStatus :: Int
$sel:approvalRuleTemplate:UpdateApprovalRuleTemplateNameResponse' :: UpdateApprovalRuleTemplateNameResponse -> ApprovalRuleTemplate
$sel:httpStatus:UpdateApprovalRuleTemplateNameResponse' :: UpdateApprovalRuleTemplateNameResponse -> 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 ApprovalRuleTemplate
approvalRuleTemplate