{-# 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.CodePipeline.DisableStageTransition
(
DisableStageTransition (..),
newDisableStageTransition,
disableStageTransition_pipelineName,
disableStageTransition_stageName,
disableStageTransition_transitionType,
disableStageTransition_reason,
DisableStageTransitionResponse (..),
newDisableStageTransitionResponse,
)
where
import Amazonka.CodePipeline.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 DisableStageTransition = DisableStageTransition'
{
DisableStageTransition -> Text
pipelineName :: Prelude.Text,
DisableStageTransition -> Text
stageName :: Prelude.Text,
DisableStageTransition -> StageTransitionType
transitionType :: StageTransitionType,
DisableStageTransition -> Text
reason :: Prelude.Text
}
deriving (DisableStageTransition -> DisableStageTransition -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisableStageTransition -> DisableStageTransition -> Bool
$c/= :: DisableStageTransition -> DisableStageTransition -> Bool
== :: DisableStageTransition -> DisableStageTransition -> Bool
$c== :: DisableStageTransition -> DisableStageTransition -> Bool
Prelude.Eq, ReadPrec [DisableStageTransition]
ReadPrec DisableStageTransition
Int -> ReadS DisableStageTransition
ReadS [DisableStageTransition]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisableStageTransition]
$creadListPrec :: ReadPrec [DisableStageTransition]
readPrec :: ReadPrec DisableStageTransition
$creadPrec :: ReadPrec DisableStageTransition
readList :: ReadS [DisableStageTransition]
$creadList :: ReadS [DisableStageTransition]
readsPrec :: Int -> ReadS DisableStageTransition
$creadsPrec :: Int -> ReadS DisableStageTransition
Prelude.Read, Int -> DisableStageTransition -> ShowS
[DisableStageTransition] -> ShowS
DisableStageTransition -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisableStageTransition] -> ShowS
$cshowList :: [DisableStageTransition] -> ShowS
show :: DisableStageTransition -> String
$cshow :: DisableStageTransition -> String
showsPrec :: Int -> DisableStageTransition -> ShowS
$cshowsPrec :: Int -> DisableStageTransition -> ShowS
Prelude.Show, forall x. Rep DisableStageTransition x -> DisableStageTransition
forall x. DisableStageTransition -> Rep DisableStageTransition x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DisableStageTransition x -> DisableStageTransition
$cfrom :: forall x. DisableStageTransition -> Rep DisableStageTransition x
Prelude.Generic)
newDisableStageTransition ::
Prelude.Text ->
Prelude.Text ->
StageTransitionType ->
Prelude.Text ->
DisableStageTransition
newDisableStageTransition :: Text
-> Text -> StageTransitionType -> Text -> DisableStageTransition
newDisableStageTransition
Text
pPipelineName_
Text
pStageName_
StageTransitionType
pTransitionType_
Text
pReason_ =
DisableStageTransition'
{ $sel:pipelineName:DisableStageTransition' :: Text
pipelineName =
Text
pPipelineName_,
$sel:stageName:DisableStageTransition' :: Text
stageName = Text
pStageName_,
$sel:transitionType:DisableStageTransition' :: StageTransitionType
transitionType = StageTransitionType
pTransitionType_,
$sel:reason:DisableStageTransition' :: Text
reason = Text
pReason_
}
disableStageTransition_pipelineName :: Lens.Lens' DisableStageTransition Prelude.Text
disableStageTransition_pipelineName :: Lens' DisableStageTransition Text
disableStageTransition_pipelineName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisableStageTransition' {Text
pipelineName :: Text
$sel:pipelineName:DisableStageTransition' :: DisableStageTransition -> Text
pipelineName} -> Text
pipelineName) (\s :: DisableStageTransition
s@DisableStageTransition' {} Text
a -> DisableStageTransition
s {$sel:pipelineName:DisableStageTransition' :: Text
pipelineName = Text
a} :: DisableStageTransition)
disableStageTransition_stageName :: Lens.Lens' DisableStageTransition Prelude.Text
disableStageTransition_stageName :: Lens' DisableStageTransition Text
disableStageTransition_stageName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisableStageTransition' {Text
stageName :: Text
$sel:stageName:DisableStageTransition' :: DisableStageTransition -> Text
stageName} -> Text
stageName) (\s :: DisableStageTransition
s@DisableStageTransition' {} Text
a -> DisableStageTransition
s {$sel:stageName:DisableStageTransition' :: Text
stageName = Text
a} :: DisableStageTransition)
disableStageTransition_transitionType :: Lens.Lens' DisableStageTransition StageTransitionType
disableStageTransition_transitionType :: Lens' DisableStageTransition StageTransitionType
disableStageTransition_transitionType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisableStageTransition' {StageTransitionType
transitionType :: StageTransitionType
$sel:transitionType:DisableStageTransition' :: DisableStageTransition -> StageTransitionType
transitionType} -> StageTransitionType
transitionType) (\s :: DisableStageTransition
s@DisableStageTransition' {} StageTransitionType
a -> DisableStageTransition
s {$sel:transitionType:DisableStageTransition' :: StageTransitionType
transitionType = StageTransitionType
a} :: DisableStageTransition)
disableStageTransition_reason :: Lens.Lens' DisableStageTransition Prelude.Text
disableStageTransition_reason :: Lens' DisableStageTransition Text
disableStageTransition_reason = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisableStageTransition' {Text
reason :: Text
$sel:reason:DisableStageTransition' :: DisableStageTransition -> Text
reason} -> Text
reason) (\s :: DisableStageTransition
s@DisableStageTransition' {} Text
a -> DisableStageTransition
s {$sel:reason:DisableStageTransition' :: Text
reason = Text
a} :: DisableStageTransition)
instance Core.AWSRequest DisableStageTransition where
type
AWSResponse DisableStageTransition =
DisableStageTransitionResponse
request :: (Service -> Service)
-> DisableStageTransition -> Request DisableStageTransition
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 DisableStageTransition
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DisableStageTransition)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DisableStageTransitionResponse
DisableStageTransitionResponse'
instance Prelude.Hashable DisableStageTransition where
hashWithSalt :: Int -> DisableStageTransition -> Int
hashWithSalt Int
_salt DisableStageTransition' {Text
StageTransitionType
reason :: Text
transitionType :: StageTransitionType
stageName :: Text
pipelineName :: Text
$sel:reason:DisableStageTransition' :: DisableStageTransition -> Text
$sel:transitionType:DisableStageTransition' :: DisableStageTransition -> StageTransitionType
$sel:stageName:DisableStageTransition' :: DisableStageTransition -> Text
$sel:pipelineName:DisableStageTransition' :: DisableStageTransition -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
pipelineName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
stageName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` StageTransitionType
transitionType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
reason
instance Prelude.NFData DisableStageTransition where
rnf :: DisableStageTransition -> ()
rnf DisableStageTransition' {Text
StageTransitionType
reason :: Text
transitionType :: StageTransitionType
stageName :: Text
pipelineName :: Text
$sel:reason:DisableStageTransition' :: DisableStageTransition -> Text
$sel:transitionType:DisableStageTransition' :: DisableStageTransition -> StageTransitionType
$sel:stageName:DisableStageTransition' :: DisableStageTransition -> Text
$sel:pipelineName:DisableStageTransition' :: DisableStageTransition -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
pipelineName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
stageName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf StageTransitionType
transitionType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
reason
instance Data.ToHeaders DisableStageTransition where
toHeaders :: DisableStageTransition -> [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
"CodePipeline_20150709.DisableStageTransition" ::
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 DisableStageTransition where
toJSON :: DisableStageTransition -> Value
toJSON DisableStageTransition' {Text
StageTransitionType
reason :: Text
transitionType :: StageTransitionType
stageName :: Text
pipelineName :: Text
$sel:reason:DisableStageTransition' :: DisableStageTransition -> Text
$sel:transitionType:DisableStageTransition' :: DisableStageTransition -> StageTransitionType
$sel:stageName:DisableStageTransition' :: DisableStageTransition -> Text
$sel:pipelineName:DisableStageTransition' :: DisableStageTransition -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"pipelineName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
pipelineName),
forall a. a -> Maybe a
Prelude.Just (Key
"stageName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
stageName),
forall a. a -> Maybe a
Prelude.Just
(Key
"transitionType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= StageTransitionType
transitionType),
forall a. a -> Maybe a
Prelude.Just (Key
"reason" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
reason)
]
)
instance Data.ToPath DisableStageTransition where
toPath :: DisableStageTransition -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DisableStageTransition where
toQuery :: DisableStageTransition -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DisableStageTransitionResponse = DisableStageTransitionResponse'
{
}
deriving (DisableStageTransitionResponse
-> DisableStageTransitionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisableStageTransitionResponse
-> DisableStageTransitionResponse -> Bool
$c/= :: DisableStageTransitionResponse
-> DisableStageTransitionResponse -> Bool
== :: DisableStageTransitionResponse
-> DisableStageTransitionResponse -> Bool
$c== :: DisableStageTransitionResponse
-> DisableStageTransitionResponse -> Bool
Prelude.Eq, ReadPrec [DisableStageTransitionResponse]
ReadPrec DisableStageTransitionResponse
Int -> ReadS DisableStageTransitionResponse
ReadS [DisableStageTransitionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisableStageTransitionResponse]
$creadListPrec :: ReadPrec [DisableStageTransitionResponse]
readPrec :: ReadPrec DisableStageTransitionResponse
$creadPrec :: ReadPrec DisableStageTransitionResponse
readList :: ReadS [DisableStageTransitionResponse]
$creadList :: ReadS [DisableStageTransitionResponse]
readsPrec :: Int -> ReadS DisableStageTransitionResponse
$creadsPrec :: Int -> ReadS DisableStageTransitionResponse
Prelude.Read, Int -> DisableStageTransitionResponse -> ShowS
[DisableStageTransitionResponse] -> ShowS
DisableStageTransitionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisableStageTransitionResponse] -> ShowS
$cshowList :: [DisableStageTransitionResponse] -> ShowS
show :: DisableStageTransitionResponse -> String
$cshow :: DisableStageTransitionResponse -> String
showsPrec :: Int -> DisableStageTransitionResponse -> ShowS
$cshowsPrec :: Int -> DisableStageTransitionResponse -> ShowS
Prelude.Show, forall x.
Rep DisableStageTransitionResponse x
-> DisableStageTransitionResponse
forall x.
DisableStageTransitionResponse
-> Rep DisableStageTransitionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisableStageTransitionResponse x
-> DisableStageTransitionResponse
$cfrom :: forall x.
DisableStageTransitionResponse
-> Rep DisableStageTransitionResponse x
Prelude.Generic)
newDisableStageTransitionResponse ::
DisableStageTransitionResponse
newDisableStageTransitionResponse :: DisableStageTransitionResponse
newDisableStageTransitionResponse =
DisableStageTransitionResponse
DisableStageTransitionResponse'
instance
Prelude.NFData
DisableStageTransitionResponse
where
rnf :: DisableStageTransitionResponse -> ()
rnf DisableStageTransitionResponse
_ = ()