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