{-# 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.DisassociateApprovalRuleTemplateFromRepository
(
DisassociateApprovalRuleTemplateFromRepository (..),
newDisassociateApprovalRuleTemplateFromRepository,
disassociateApprovalRuleTemplateFromRepository_approvalRuleTemplateName,
disassociateApprovalRuleTemplateFromRepository_repositoryName,
DisassociateApprovalRuleTemplateFromRepositoryResponse (..),
newDisassociateApprovalRuleTemplateFromRepositoryResponse,
)
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 DisassociateApprovalRuleTemplateFromRepository = DisassociateApprovalRuleTemplateFromRepository'
{
DisassociateApprovalRuleTemplateFromRepository -> Text
approvalRuleTemplateName :: Prelude.Text,
DisassociateApprovalRuleTemplateFromRepository -> Text
repositoryName :: Prelude.Text
}
deriving (DisassociateApprovalRuleTemplateFromRepository
-> DisassociateApprovalRuleTemplateFromRepository -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateApprovalRuleTemplateFromRepository
-> DisassociateApprovalRuleTemplateFromRepository -> Bool
$c/= :: DisassociateApprovalRuleTemplateFromRepository
-> DisassociateApprovalRuleTemplateFromRepository -> Bool
== :: DisassociateApprovalRuleTemplateFromRepository
-> DisassociateApprovalRuleTemplateFromRepository -> Bool
$c== :: DisassociateApprovalRuleTemplateFromRepository
-> DisassociateApprovalRuleTemplateFromRepository -> Bool
Prelude.Eq, ReadPrec [DisassociateApprovalRuleTemplateFromRepository]
ReadPrec DisassociateApprovalRuleTemplateFromRepository
Int -> ReadS DisassociateApprovalRuleTemplateFromRepository
ReadS [DisassociateApprovalRuleTemplateFromRepository]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateApprovalRuleTemplateFromRepository]
$creadListPrec :: ReadPrec [DisassociateApprovalRuleTemplateFromRepository]
readPrec :: ReadPrec DisassociateApprovalRuleTemplateFromRepository
$creadPrec :: ReadPrec DisassociateApprovalRuleTemplateFromRepository
readList :: ReadS [DisassociateApprovalRuleTemplateFromRepository]
$creadList :: ReadS [DisassociateApprovalRuleTemplateFromRepository]
readsPrec :: Int -> ReadS DisassociateApprovalRuleTemplateFromRepository
$creadsPrec :: Int -> ReadS DisassociateApprovalRuleTemplateFromRepository
Prelude.Read, Int -> DisassociateApprovalRuleTemplateFromRepository -> ShowS
[DisassociateApprovalRuleTemplateFromRepository] -> ShowS
DisassociateApprovalRuleTemplateFromRepository -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateApprovalRuleTemplateFromRepository] -> ShowS
$cshowList :: [DisassociateApprovalRuleTemplateFromRepository] -> ShowS
show :: DisassociateApprovalRuleTemplateFromRepository -> String
$cshow :: DisassociateApprovalRuleTemplateFromRepository -> String
showsPrec :: Int -> DisassociateApprovalRuleTemplateFromRepository -> ShowS
$cshowsPrec :: Int -> DisassociateApprovalRuleTemplateFromRepository -> ShowS
Prelude.Show, forall x.
Rep DisassociateApprovalRuleTemplateFromRepository x
-> DisassociateApprovalRuleTemplateFromRepository
forall x.
DisassociateApprovalRuleTemplateFromRepository
-> Rep DisassociateApprovalRuleTemplateFromRepository x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateApprovalRuleTemplateFromRepository x
-> DisassociateApprovalRuleTemplateFromRepository
$cfrom :: forall x.
DisassociateApprovalRuleTemplateFromRepository
-> Rep DisassociateApprovalRuleTemplateFromRepository x
Prelude.Generic)
newDisassociateApprovalRuleTemplateFromRepository ::
Prelude.Text ->
Prelude.Text ->
DisassociateApprovalRuleTemplateFromRepository
newDisassociateApprovalRuleTemplateFromRepository :: Text -> Text -> DisassociateApprovalRuleTemplateFromRepository
newDisassociateApprovalRuleTemplateFromRepository
Text
pApprovalRuleTemplateName_
Text
pRepositoryName_ =
DisassociateApprovalRuleTemplateFromRepository'
{ $sel:approvalRuleTemplateName:DisassociateApprovalRuleTemplateFromRepository' :: Text
approvalRuleTemplateName =
Text
pApprovalRuleTemplateName_,
$sel:repositoryName:DisassociateApprovalRuleTemplateFromRepository' :: Text
repositoryName =
Text
pRepositoryName_
}
disassociateApprovalRuleTemplateFromRepository_approvalRuleTemplateName :: Lens.Lens' DisassociateApprovalRuleTemplateFromRepository Prelude.Text
disassociateApprovalRuleTemplateFromRepository_approvalRuleTemplateName :: Lens' DisassociateApprovalRuleTemplateFromRepository Text
disassociateApprovalRuleTemplateFromRepository_approvalRuleTemplateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateApprovalRuleTemplateFromRepository' {Text
approvalRuleTemplateName :: Text
$sel:approvalRuleTemplateName:DisassociateApprovalRuleTemplateFromRepository' :: DisassociateApprovalRuleTemplateFromRepository -> Text
approvalRuleTemplateName} -> Text
approvalRuleTemplateName) (\s :: DisassociateApprovalRuleTemplateFromRepository
s@DisassociateApprovalRuleTemplateFromRepository' {} Text
a -> DisassociateApprovalRuleTemplateFromRepository
s {$sel:approvalRuleTemplateName:DisassociateApprovalRuleTemplateFromRepository' :: Text
approvalRuleTemplateName = Text
a} :: DisassociateApprovalRuleTemplateFromRepository)
disassociateApprovalRuleTemplateFromRepository_repositoryName :: Lens.Lens' DisassociateApprovalRuleTemplateFromRepository Prelude.Text
disassociateApprovalRuleTemplateFromRepository_repositoryName :: Lens' DisassociateApprovalRuleTemplateFromRepository Text
disassociateApprovalRuleTemplateFromRepository_repositoryName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateApprovalRuleTemplateFromRepository' {Text
repositoryName :: Text
$sel:repositoryName:DisassociateApprovalRuleTemplateFromRepository' :: DisassociateApprovalRuleTemplateFromRepository -> Text
repositoryName} -> Text
repositoryName) (\s :: DisassociateApprovalRuleTemplateFromRepository
s@DisassociateApprovalRuleTemplateFromRepository' {} Text
a -> DisassociateApprovalRuleTemplateFromRepository
s {$sel:repositoryName:DisassociateApprovalRuleTemplateFromRepository' :: Text
repositoryName = Text
a} :: DisassociateApprovalRuleTemplateFromRepository)
instance
Core.AWSRequest
DisassociateApprovalRuleTemplateFromRepository
where
type
AWSResponse
DisassociateApprovalRuleTemplateFromRepository =
DisassociateApprovalRuleTemplateFromRepositoryResponse
request :: (Service -> Service)
-> DisassociateApprovalRuleTemplateFromRepository
-> Request DisassociateApprovalRuleTemplateFromRepository
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 DisassociateApprovalRuleTemplateFromRepository
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DisassociateApprovalRuleTemplateFromRepository)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DisassociateApprovalRuleTemplateFromRepositoryResponse
DisassociateApprovalRuleTemplateFromRepositoryResponse'
instance
Prelude.Hashable
DisassociateApprovalRuleTemplateFromRepository
where
hashWithSalt :: Int -> DisassociateApprovalRuleTemplateFromRepository -> Int
hashWithSalt
Int
_salt
DisassociateApprovalRuleTemplateFromRepository' {Text
repositoryName :: Text
approvalRuleTemplateName :: Text
$sel:repositoryName:DisassociateApprovalRuleTemplateFromRepository' :: DisassociateApprovalRuleTemplateFromRepository -> Text
$sel:approvalRuleTemplateName:DisassociateApprovalRuleTemplateFromRepository' :: DisassociateApprovalRuleTemplateFromRepository -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
approvalRuleTemplateName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
repositoryName
instance
Prelude.NFData
DisassociateApprovalRuleTemplateFromRepository
where
rnf :: DisassociateApprovalRuleTemplateFromRepository -> ()
rnf
DisassociateApprovalRuleTemplateFromRepository' {Text
repositoryName :: Text
approvalRuleTemplateName :: Text
$sel:repositoryName:DisassociateApprovalRuleTemplateFromRepository' :: DisassociateApprovalRuleTemplateFromRepository -> Text
$sel:approvalRuleTemplateName:DisassociateApprovalRuleTemplateFromRepository' :: DisassociateApprovalRuleTemplateFromRepository -> 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
repositoryName
instance
Data.ToHeaders
DisassociateApprovalRuleTemplateFromRepository
where
toHeaders :: DisassociateApprovalRuleTemplateFromRepository -> [Header]
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 -> [Header]
Data.=# ( ByteString
"CodeCommit_20150413.DisassociateApprovalRuleTemplateFromRepository" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
DisassociateApprovalRuleTemplateFromRepository
where
toJSON :: DisassociateApprovalRuleTemplateFromRepository -> Value
toJSON
DisassociateApprovalRuleTemplateFromRepository' {Text
repositoryName :: Text
approvalRuleTemplateName :: Text
$sel:repositoryName:DisassociateApprovalRuleTemplateFromRepository' :: DisassociateApprovalRuleTemplateFromRepository -> Text
$sel:approvalRuleTemplateName:DisassociateApprovalRuleTemplateFromRepository' :: DisassociateApprovalRuleTemplateFromRepository -> 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
"repositoryName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
repositoryName)
]
)
instance
Data.ToPath
DisassociateApprovalRuleTemplateFromRepository
where
toPath :: DisassociateApprovalRuleTemplateFromRepository -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DisassociateApprovalRuleTemplateFromRepository
where
toQuery :: DisassociateApprovalRuleTemplateFromRepository -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DisassociateApprovalRuleTemplateFromRepositoryResponse = DisassociateApprovalRuleTemplateFromRepositoryResponse'
{
}
deriving (DisassociateApprovalRuleTemplateFromRepositoryResponse
-> DisassociateApprovalRuleTemplateFromRepositoryResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateApprovalRuleTemplateFromRepositoryResponse
-> DisassociateApprovalRuleTemplateFromRepositoryResponse -> Bool
$c/= :: DisassociateApprovalRuleTemplateFromRepositoryResponse
-> DisassociateApprovalRuleTemplateFromRepositoryResponse -> Bool
== :: DisassociateApprovalRuleTemplateFromRepositoryResponse
-> DisassociateApprovalRuleTemplateFromRepositoryResponse -> Bool
$c== :: DisassociateApprovalRuleTemplateFromRepositoryResponse
-> DisassociateApprovalRuleTemplateFromRepositoryResponse -> Bool
Prelude.Eq, ReadPrec [DisassociateApprovalRuleTemplateFromRepositoryResponse]
ReadPrec DisassociateApprovalRuleTemplateFromRepositoryResponse
Int -> ReadS DisassociateApprovalRuleTemplateFromRepositoryResponse
ReadS [DisassociateApprovalRuleTemplateFromRepositoryResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateApprovalRuleTemplateFromRepositoryResponse]
$creadListPrec :: ReadPrec [DisassociateApprovalRuleTemplateFromRepositoryResponse]
readPrec :: ReadPrec DisassociateApprovalRuleTemplateFromRepositoryResponse
$creadPrec :: ReadPrec DisassociateApprovalRuleTemplateFromRepositoryResponse
readList :: ReadS [DisassociateApprovalRuleTemplateFromRepositoryResponse]
$creadList :: ReadS [DisassociateApprovalRuleTemplateFromRepositoryResponse]
readsPrec :: Int -> ReadS DisassociateApprovalRuleTemplateFromRepositoryResponse
$creadsPrec :: Int -> ReadS DisassociateApprovalRuleTemplateFromRepositoryResponse
Prelude.Read, Int
-> DisassociateApprovalRuleTemplateFromRepositoryResponse -> ShowS
[DisassociateApprovalRuleTemplateFromRepositoryResponse] -> ShowS
DisassociateApprovalRuleTemplateFromRepositoryResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateApprovalRuleTemplateFromRepositoryResponse] -> ShowS
$cshowList :: [DisassociateApprovalRuleTemplateFromRepositoryResponse] -> ShowS
show :: DisassociateApprovalRuleTemplateFromRepositoryResponse -> String
$cshow :: DisassociateApprovalRuleTemplateFromRepositoryResponse -> String
showsPrec :: Int
-> DisassociateApprovalRuleTemplateFromRepositoryResponse -> ShowS
$cshowsPrec :: Int
-> DisassociateApprovalRuleTemplateFromRepositoryResponse -> ShowS
Prelude.Show, forall x.
Rep DisassociateApprovalRuleTemplateFromRepositoryResponse x
-> DisassociateApprovalRuleTemplateFromRepositoryResponse
forall x.
DisassociateApprovalRuleTemplateFromRepositoryResponse
-> Rep DisassociateApprovalRuleTemplateFromRepositoryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateApprovalRuleTemplateFromRepositoryResponse x
-> DisassociateApprovalRuleTemplateFromRepositoryResponse
$cfrom :: forall x.
DisassociateApprovalRuleTemplateFromRepositoryResponse
-> Rep DisassociateApprovalRuleTemplateFromRepositoryResponse x
Prelude.Generic)
newDisassociateApprovalRuleTemplateFromRepositoryResponse ::
DisassociateApprovalRuleTemplateFromRepositoryResponse
newDisassociateApprovalRuleTemplateFromRepositoryResponse :: DisassociateApprovalRuleTemplateFromRepositoryResponse
newDisassociateApprovalRuleTemplateFromRepositoryResponse =
DisassociateApprovalRuleTemplateFromRepositoryResponse
DisassociateApprovalRuleTemplateFromRepositoryResponse'
instance
Prelude.NFData
DisassociateApprovalRuleTemplateFromRepositoryResponse
where
rnf :: DisassociateApprovalRuleTemplateFromRepositoryResponse -> ()
rnf DisassociateApprovalRuleTemplateFromRepositoryResponse
_ = ()