{-# 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.Proton.UpdateEnvironmentTemplateVersion
(
UpdateEnvironmentTemplateVersion (..),
newUpdateEnvironmentTemplateVersion,
updateEnvironmentTemplateVersion_description,
updateEnvironmentTemplateVersion_status,
updateEnvironmentTemplateVersion_majorVersion,
updateEnvironmentTemplateVersion_minorVersion,
updateEnvironmentTemplateVersion_templateName,
UpdateEnvironmentTemplateVersionResponse (..),
newUpdateEnvironmentTemplateVersionResponse,
updateEnvironmentTemplateVersionResponse_httpStatus,
updateEnvironmentTemplateVersionResponse_environmentTemplateVersion,
)
where
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 Amazonka.Proton.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateEnvironmentTemplateVersion = UpdateEnvironmentTemplateVersion'
{
UpdateEnvironmentTemplateVersion -> Maybe (Sensitive Text)
description :: Prelude.Maybe (Data.Sensitive Prelude.Text),
UpdateEnvironmentTemplateVersion -> Maybe TemplateVersionStatus
status :: Prelude.Maybe TemplateVersionStatus,
UpdateEnvironmentTemplateVersion -> Text
majorVersion :: Prelude.Text,
UpdateEnvironmentTemplateVersion -> Text
minorVersion :: Prelude.Text,
UpdateEnvironmentTemplateVersion -> Text
templateName :: Prelude.Text
}
deriving (UpdateEnvironmentTemplateVersion
-> UpdateEnvironmentTemplateVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateEnvironmentTemplateVersion
-> UpdateEnvironmentTemplateVersion -> Bool
$c/= :: UpdateEnvironmentTemplateVersion
-> UpdateEnvironmentTemplateVersion -> Bool
== :: UpdateEnvironmentTemplateVersion
-> UpdateEnvironmentTemplateVersion -> Bool
$c== :: UpdateEnvironmentTemplateVersion
-> UpdateEnvironmentTemplateVersion -> Bool
Prelude.Eq, Int -> UpdateEnvironmentTemplateVersion -> ShowS
[UpdateEnvironmentTemplateVersion] -> ShowS
UpdateEnvironmentTemplateVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateEnvironmentTemplateVersion] -> ShowS
$cshowList :: [UpdateEnvironmentTemplateVersion] -> ShowS
show :: UpdateEnvironmentTemplateVersion -> String
$cshow :: UpdateEnvironmentTemplateVersion -> String
showsPrec :: Int -> UpdateEnvironmentTemplateVersion -> ShowS
$cshowsPrec :: Int -> UpdateEnvironmentTemplateVersion -> ShowS
Prelude.Show, forall x.
Rep UpdateEnvironmentTemplateVersion x
-> UpdateEnvironmentTemplateVersion
forall x.
UpdateEnvironmentTemplateVersion
-> Rep UpdateEnvironmentTemplateVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateEnvironmentTemplateVersion x
-> UpdateEnvironmentTemplateVersion
$cfrom :: forall x.
UpdateEnvironmentTemplateVersion
-> Rep UpdateEnvironmentTemplateVersion x
Prelude.Generic)
newUpdateEnvironmentTemplateVersion ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
UpdateEnvironmentTemplateVersion
newUpdateEnvironmentTemplateVersion :: Text -> Text -> Text -> UpdateEnvironmentTemplateVersion
newUpdateEnvironmentTemplateVersion
Text
pMajorVersion_
Text
pMinorVersion_
Text
pTemplateName_ =
UpdateEnvironmentTemplateVersion'
{ $sel:description:UpdateEnvironmentTemplateVersion' :: Maybe (Sensitive Text)
description =
forall a. Maybe a
Prelude.Nothing,
$sel:status:UpdateEnvironmentTemplateVersion' :: Maybe TemplateVersionStatus
status = forall a. Maybe a
Prelude.Nothing,
$sel:majorVersion:UpdateEnvironmentTemplateVersion' :: Text
majorVersion = Text
pMajorVersion_,
$sel:minorVersion:UpdateEnvironmentTemplateVersion' :: Text
minorVersion = Text
pMinorVersion_,
$sel:templateName:UpdateEnvironmentTemplateVersion' :: Text
templateName = Text
pTemplateName_
}
updateEnvironmentTemplateVersion_description :: Lens.Lens' UpdateEnvironmentTemplateVersion (Prelude.Maybe Prelude.Text)
updateEnvironmentTemplateVersion_description :: Lens' UpdateEnvironmentTemplateVersion (Maybe Text)
updateEnvironmentTemplateVersion_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEnvironmentTemplateVersion' {Maybe (Sensitive Text)
description :: Maybe (Sensitive Text)
$sel:description:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Maybe (Sensitive Text)
description} -> Maybe (Sensitive Text)
description) (\s :: UpdateEnvironmentTemplateVersion
s@UpdateEnvironmentTemplateVersion' {} Maybe (Sensitive Text)
a -> UpdateEnvironmentTemplateVersion
s {$sel:description:UpdateEnvironmentTemplateVersion' :: Maybe (Sensitive Text)
description = Maybe (Sensitive Text)
a} :: UpdateEnvironmentTemplateVersion) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall a. Iso' (Sensitive a) a
Data._Sensitive
updateEnvironmentTemplateVersion_status :: Lens.Lens' UpdateEnvironmentTemplateVersion (Prelude.Maybe TemplateVersionStatus)
updateEnvironmentTemplateVersion_status :: Lens'
UpdateEnvironmentTemplateVersion (Maybe TemplateVersionStatus)
updateEnvironmentTemplateVersion_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEnvironmentTemplateVersion' {Maybe TemplateVersionStatus
status :: Maybe TemplateVersionStatus
$sel:status:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Maybe TemplateVersionStatus
status} -> Maybe TemplateVersionStatus
status) (\s :: UpdateEnvironmentTemplateVersion
s@UpdateEnvironmentTemplateVersion' {} Maybe TemplateVersionStatus
a -> UpdateEnvironmentTemplateVersion
s {$sel:status:UpdateEnvironmentTemplateVersion' :: Maybe TemplateVersionStatus
status = Maybe TemplateVersionStatus
a} :: UpdateEnvironmentTemplateVersion)
updateEnvironmentTemplateVersion_majorVersion :: Lens.Lens' UpdateEnvironmentTemplateVersion Prelude.Text
updateEnvironmentTemplateVersion_majorVersion :: Lens' UpdateEnvironmentTemplateVersion Text
updateEnvironmentTemplateVersion_majorVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEnvironmentTemplateVersion' {Text
majorVersion :: Text
$sel:majorVersion:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
majorVersion} -> Text
majorVersion) (\s :: UpdateEnvironmentTemplateVersion
s@UpdateEnvironmentTemplateVersion' {} Text
a -> UpdateEnvironmentTemplateVersion
s {$sel:majorVersion:UpdateEnvironmentTemplateVersion' :: Text
majorVersion = Text
a} :: UpdateEnvironmentTemplateVersion)
updateEnvironmentTemplateVersion_minorVersion :: Lens.Lens' UpdateEnvironmentTemplateVersion Prelude.Text
updateEnvironmentTemplateVersion_minorVersion :: Lens' UpdateEnvironmentTemplateVersion Text
updateEnvironmentTemplateVersion_minorVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEnvironmentTemplateVersion' {Text
minorVersion :: Text
$sel:minorVersion:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
minorVersion} -> Text
minorVersion) (\s :: UpdateEnvironmentTemplateVersion
s@UpdateEnvironmentTemplateVersion' {} Text
a -> UpdateEnvironmentTemplateVersion
s {$sel:minorVersion:UpdateEnvironmentTemplateVersion' :: Text
minorVersion = Text
a} :: UpdateEnvironmentTemplateVersion)
updateEnvironmentTemplateVersion_templateName :: Lens.Lens' UpdateEnvironmentTemplateVersion Prelude.Text
updateEnvironmentTemplateVersion_templateName :: Lens' UpdateEnvironmentTemplateVersion Text
updateEnvironmentTemplateVersion_templateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEnvironmentTemplateVersion' {Text
templateName :: Text
$sel:templateName:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
templateName} -> Text
templateName) (\s :: UpdateEnvironmentTemplateVersion
s@UpdateEnvironmentTemplateVersion' {} Text
a -> UpdateEnvironmentTemplateVersion
s {$sel:templateName:UpdateEnvironmentTemplateVersion' :: Text
templateName = Text
a} :: UpdateEnvironmentTemplateVersion)
instance
Core.AWSRequest
UpdateEnvironmentTemplateVersion
where
type
AWSResponse UpdateEnvironmentTemplateVersion =
UpdateEnvironmentTemplateVersionResponse
request :: (Service -> Service)
-> UpdateEnvironmentTemplateVersion
-> Request UpdateEnvironmentTemplateVersion
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 UpdateEnvironmentTemplateVersion
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse UpdateEnvironmentTemplateVersion)))
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
-> EnvironmentTemplateVersion
-> UpdateEnvironmentTemplateVersionResponse
UpdateEnvironmentTemplateVersionResponse'
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
"environmentTemplateVersion")
)
instance
Prelude.Hashable
UpdateEnvironmentTemplateVersion
where
hashWithSalt :: Int -> UpdateEnvironmentTemplateVersion -> Int
hashWithSalt
Int
_salt
UpdateEnvironmentTemplateVersion' {Maybe (Sensitive Text)
Maybe TemplateVersionStatus
Text
templateName :: Text
minorVersion :: Text
majorVersion :: Text
status :: Maybe TemplateVersionStatus
description :: Maybe (Sensitive Text)
$sel:templateName:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
$sel:minorVersion:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
$sel:majorVersion:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
$sel:status:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Maybe TemplateVersionStatus
$sel:description:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Maybe (Sensitive Text)
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TemplateVersionStatus
status
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
majorVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
minorVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
templateName
instance
Prelude.NFData
UpdateEnvironmentTemplateVersion
where
rnf :: UpdateEnvironmentTemplateVersion -> ()
rnf UpdateEnvironmentTemplateVersion' {Maybe (Sensitive Text)
Maybe TemplateVersionStatus
Text
templateName :: Text
minorVersion :: Text
majorVersion :: Text
status :: Maybe TemplateVersionStatus
description :: Maybe (Sensitive Text)
$sel:templateName:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
$sel:minorVersion:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
$sel:majorVersion:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
$sel:status:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Maybe TemplateVersionStatus
$sel:description:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Maybe (Sensitive Text)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TemplateVersionStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
majorVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
minorVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
templateName
instance
Data.ToHeaders
UpdateEnvironmentTemplateVersion
where
toHeaders :: UpdateEnvironmentTemplateVersion -> 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
"AwsProton20200720.UpdateEnvironmentTemplateVersion" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateEnvironmentTemplateVersion where
toJSON :: UpdateEnvironmentTemplateVersion -> Value
toJSON UpdateEnvironmentTemplateVersion' {Maybe (Sensitive Text)
Maybe TemplateVersionStatus
Text
templateName :: Text
minorVersion :: Text
majorVersion :: Text
status :: Maybe TemplateVersionStatus
description :: Maybe (Sensitive Text)
$sel:templateName:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
$sel:minorVersion:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
$sel:majorVersion:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Text
$sel:status:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Maybe TemplateVersionStatus
$sel:description:UpdateEnvironmentTemplateVersion' :: UpdateEnvironmentTemplateVersion -> Maybe (Sensitive Text)
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"description" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Sensitive Text)
description,
(Key
"status" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TemplateVersionStatus
status,
forall a. a -> Maybe a
Prelude.Just (Key
"majorVersion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
majorVersion),
forall a. a -> Maybe a
Prelude.Just (Key
"minorVersion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
minorVersion),
forall a. a -> Maybe a
Prelude.Just (Key
"templateName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
templateName)
]
)
instance Data.ToPath UpdateEnvironmentTemplateVersion where
toPath :: UpdateEnvironmentTemplateVersion -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
UpdateEnvironmentTemplateVersion
where
toQuery :: UpdateEnvironmentTemplateVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateEnvironmentTemplateVersionResponse = UpdateEnvironmentTemplateVersionResponse'
{
UpdateEnvironmentTemplateVersionResponse -> Int
httpStatus :: Prelude.Int,
UpdateEnvironmentTemplateVersionResponse
-> EnvironmentTemplateVersion
environmentTemplateVersion :: EnvironmentTemplateVersion
}
deriving (UpdateEnvironmentTemplateVersionResponse
-> UpdateEnvironmentTemplateVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateEnvironmentTemplateVersionResponse
-> UpdateEnvironmentTemplateVersionResponse -> Bool
$c/= :: UpdateEnvironmentTemplateVersionResponse
-> UpdateEnvironmentTemplateVersionResponse -> Bool
== :: UpdateEnvironmentTemplateVersionResponse
-> UpdateEnvironmentTemplateVersionResponse -> Bool
$c== :: UpdateEnvironmentTemplateVersionResponse
-> UpdateEnvironmentTemplateVersionResponse -> Bool
Prelude.Eq, Int -> UpdateEnvironmentTemplateVersionResponse -> ShowS
[UpdateEnvironmentTemplateVersionResponse] -> ShowS
UpdateEnvironmentTemplateVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateEnvironmentTemplateVersionResponse] -> ShowS
$cshowList :: [UpdateEnvironmentTemplateVersionResponse] -> ShowS
show :: UpdateEnvironmentTemplateVersionResponse -> String
$cshow :: UpdateEnvironmentTemplateVersionResponse -> String
showsPrec :: Int -> UpdateEnvironmentTemplateVersionResponse -> ShowS
$cshowsPrec :: Int -> UpdateEnvironmentTemplateVersionResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateEnvironmentTemplateVersionResponse x
-> UpdateEnvironmentTemplateVersionResponse
forall x.
UpdateEnvironmentTemplateVersionResponse
-> Rep UpdateEnvironmentTemplateVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateEnvironmentTemplateVersionResponse x
-> UpdateEnvironmentTemplateVersionResponse
$cfrom :: forall x.
UpdateEnvironmentTemplateVersionResponse
-> Rep UpdateEnvironmentTemplateVersionResponse x
Prelude.Generic)
newUpdateEnvironmentTemplateVersionResponse ::
Prelude.Int ->
EnvironmentTemplateVersion ->
UpdateEnvironmentTemplateVersionResponse
newUpdateEnvironmentTemplateVersionResponse :: Int
-> EnvironmentTemplateVersion
-> UpdateEnvironmentTemplateVersionResponse
newUpdateEnvironmentTemplateVersionResponse
Int
pHttpStatus_
EnvironmentTemplateVersion
pEnvironmentTemplateVersion_ =
UpdateEnvironmentTemplateVersionResponse'
{ $sel:httpStatus:UpdateEnvironmentTemplateVersionResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:environmentTemplateVersion:UpdateEnvironmentTemplateVersionResponse' :: EnvironmentTemplateVersion
environmentTemplateVersion =
EnvironmentTemplateVersion
pEnvironmentTemplateVersion_
}
updateEnvironmentTemplateVersionResponse_httpStatus :: Lens.Lens' UpdateEnvironmentTemplateVersionResponse Prelude.Int
updateEnvironmentTemplateVersionResponse_httpStatus :: Lens' UpdateEnvironmentTemplateVersionResponse Int
updateEnvironmentTemplateVersionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEnvironmentTemplateVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateEnvironmentTemplateVersionResponse' :: UpdateEnvironmentTemplateVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateEnvironmentTemplateVersionResponse
s@UpdateEnvironmentTemplateVersionResponse' {} Int
a -> UpdateEnvironmentTemplateVersionResponse
s {$sel:httpStatus:UpdateEnvironmentTemplateVersionResponse' :: Int
httpStatus = Int
a} :: UpdateEnvironmentTemplateVersionResponse)
updateEnvironmentTemplateVersionResponse_environmentTemplateVersion :: Lens.Lens' UpdateEnvironmentTemplateVersionResponse EnvironmentTemplateVersion
updateEnvironmentTemplateVersionResponse_environmentTemplateVersion :: Lens'
UpdateEnvironmentTemplateVersionResponse EnvironmentTemplateVersion
updateEnvironmentTemplateVersionResponse_environmentTemplateVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateEnvironmentTemplateVersionResponse' {EnvironmentTemplateVersion
environmentTemplateVersion :: EnvironmentTemplateVersion
$sel:environmentTemplateVersion:UpdateEnvironmentTemplateVersionResponse' :: UpdateEnvironmentTemplateVersionResponse
-> EnvironmentTemplateVersion
environmentTemplateVersion} -> EnvironmentTemplateVersion
environmentTemplateVersion) (\s :: UpdateEnvironmentTemplateVersionResponse
s@UpdateEnvironmentTemplateVersionResponse' {} EnvironmentTemplateVersion
a -> UpdateEnvironmentTemplateVersionResponse
s {$sel:environmentTemplateVersion:UpdateEnvironmentTemplateVersionResponse' :: EnvironmentTemplateVersion
environmentTemplateVersion = EnvironmentTemplateVersion
a} :: UpdateEnvironmentTemplateVersionResponse)
instance
Prelude.NFData
UpdateEnvironmentTemplateVersionResponse
where
rnf :: UpdateEnvironmentTemplateVersionResponse -> ()
rnf UpdateEnvironmentTemplateVersionResponse' {Int
EnvironmentTemplateVersion
environmentTemplateVersion :: EnvironmentTemplateVersion
httpStatus :: Int
$sel:environmentTemplateVersion:UpdateEnvironmentTemplateVersionResponse' :: UpdateEnvironmentTemplateVersionResponse
-> EnvironmentTemplateVersion
$sel:httpStatus:UpdateEnvironmentTemplateVersionResponse' :: UpdateEnvironmentTemplateVersionResponse -> 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 EnvironmentTemplateVersion
environmentTemplateVersion