{-# 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.GetEnvironmentTemplateVersion
(
GetEnvironmentTemplateVersion (..),
newGetEnvironmentTemplateVersion,
getEnvironmentTemplateVersion_majorVersion,
getEnvironmentTemplateVersion_minorVersion,
getEnvironmentTemplateVersion_templateName,
GetEnvironmentTemplateVersionResponse (..),
newGetEnvironmentTemplateVersionResponse,
getEnvironmentTemplateVersionResponse_httpStatus,
getEnvironmentTemplateVersionResponse_environmentTemplateVersion,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import Amazonka.Proton.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetEnvironmentTemplateVersion = GetEnvironmentTemplateVersion'
{
GetEnvironmentTemplateVersion -> Text
majorVersion :: Prelude.Text,
GetEnvironmentTemplateVersion -> Text
minorVersion :: Prelude.Text,
GetEnvironmentTemplateVersion -> Text
templateName :: Prelude.Text
}
deriving (GetEnvironmentTemplateVersion
-> GetEnvironmentTemplateVersion -> Bool
(GetEnvironmentTemplateVersion
-> GetEnvironmentTemplateVersion -> Bool)
-> (GetEnvironmentTemplateVersion
-> GetEnvironmentTemplateVersion -> Bool)
-> Eq GetEnvironmentTemplateVersion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetEnvironmentTemplateVersion
-> GetEnvironmentTemplateVersion -> Bool
$c/= :: GetEnvironmentTemplateVersion
-> GetEnvironmentTemplateVersion -> Bool
== :: GetEnvironmentTemplateVersion
-> GetEnvironmentTemplateVersion -> Bool
$c== :: GetEnvironmentTemplateVersion
-> GetEnvironmentTemplateVersion -> Bool
Prelude.Eq, ReadPrec [GetEnvironmentTemplateVersion]
ReadPrec GetEnvironmentTemplateVersion
Int -> ReadS GetEnvironmentTemplateVersion
ReadS [GetEnvironmentTemplateVersion]
(Int -> ReadS GetEnvironmentTemplateVersion)
-> ReadS [GetEnvironmentTemplateVersion]
-> ReadPrec GetEnvironmentTemplateVersion
-> ReadPrec [GetEnvironmentTemplateVersion]
-> Read GetEnvironmentTemplateVersion
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetEnvironmentTemplateVersion]
$creadListPrec :: ReadPrec [GetEnvironmentTemplateVersion]
readPrec :: ReadPrec GetEnvironmentTemplateVersion
$creadPrec :: ReadPrec GetEnvironmentTemplateVersion
readList :: ReadS [GetEnvironmentTemplateVersion]
$creadList :: ReadS [GetEnvironmentTemplateVersion]
readsPrec :: Int -> ReadS GetEnvironmentTemplateVersion
$creadsPrec :: Int -> ReadS GetEnvironmentTemplateVersion
Prelude.Read, Int -> GetEnvironmentTemplateVersion -> ShowS
[GetEnvironmentTemplateVersion] -> ShowS
GetEnvironmentTemplateVersion -> String
(Int -> GetEnvironmentTemplateVersion -> ShowS)
-> (GetEnvironmentTemplateVersion -> String)
-> ([GetEnvironmentTemplateVersion] -> ShowS)
-> Show GetEnvironmentTemplateVersion
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetEnvironmentTemplateVersion] -> ShowS
$cshowList :: [GetEnvironmentTemplateVersion] -> ShowS
show :: GetEnvironmentTemplateVersion -> String
$cshow :: GetEnvironmentTemplateVersion -> String
showsPrec :: Int -> GetEnvironmentTemplateVersion -> ShowS
$cshowsPrec :: Int -> GetEnvironmentTemplateVersion -> ShowS
Prelude.Show, (forall x.
GetEnvironmentTemplateVersion
-> Rep GetEnvironmentTemplateVersion x)
-> (forall x.
Rep GetEnvironmentTemplateVersion x
-> GetEnvironmentTemplateVersion)
-> Generic GetEnvironmentTemplateVersion
forall x.
Rep GetEnvironmentTemplateVersion x
-> GetEnvironmentTemplateVersion
forall x.
GetEnvironmentTemplateVersion
-> Rep GetEnvironmentTemplateVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetEnvironmentTemplateVersion x
-> GetEnvironmentTemplateVersion
$cfrom :: forall x.
GetEnvironmentTemplateVersion
-> Rep GetEnvironmentTemplateVersion x
Prelude.Generic)
newGetEnvironmentTemplateVersion ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
GetEnvironmentTemplateVersion
newGetEnvironmentTemplateVersion :: Text -> Text -> Text -> GetEnvironmentTemplateVersion
newGetEnvironmentTemplateVersion
Text
pMajorVersion_
Text
pMinorVersion_
Text
pTemplateName_ =
GetEnvironmentTemplateVersion' :: Text -> Text -> Text -> GetEnvironmentTemplateVersion
GetEnvironmentTemplateVersion'
{ $sel:majorVersion:GetEnvironmentTemplateVersion' :: Text
majorVersion =
Text
pMajorVersion_,
$sel:minorVersion:GetEnvironmentTemplateVersion' :: Text
minorVersion = Text
pMinorVersion_,
$sel:templateName:GetEnvironmentTemplateVersion' :: Text
templateName = Text
pTemplateName_
}
getEnvironmentTemplateVersion_majorVersion :: Lens.Lens' GetEnvironmentTemplateVersion Prelude.Text
getEnvironmentTemplateVersion_majorVersion :: (Text -> f Text)
-> GetEnvironmentTemplateVersion -> f GetEnvironmentTemplateVersion
getEnvironmentTemplateVersion_majorVersion = (GetEnvironmentTemplateVersion -> Text)
-> (GetEnvironmentTemplateVersion
-> Text -> GetEnvironmentTemplateVersion)
-> Lens
GetEnvironmentTemplateVersion
GetEnvironmentTemplateVersion
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetEnvironmentTemplateVersion' {Text
majorVersion :: Text
$sel:majorVersion:GetEnvironmentTemplateVersion' :: GetEnvironmentTemplateVersion -> Text
majorVersion} -> Text
majorVersion) (\s :: GetEnvironmentTemplateVersion
s@GetEnvironmentTemplateVersion' {} Text
a -> GetEnvironmentTemplateVersion
s {$sel:majorVersion:GetEnvironmentTemplateVersion' :: Text
majorVersion = Text
a} :: GetEnvironmentTemplateVersion)
getEnvironmentTemplateVersion_minorVersion :: Lens.Lens' GetEnvironmentTemplateVersion Prelude.Text
getEnvironmentTemplateVersion_minorVersion :: (Text -> f Text)
-> GetEnvironmentTemplateVersion -> f GetEnvironmentTemplateVersion
getEnvironmentTemplateVersion_minorVersion = (GetEnvironmentTemplateVersion -> Text)
-> (GetEnvironmentTemplateVersion
-> Text -> GetEnvironmentTemplateVersion)
-> Lens
GetEnvironmentTemplateVersion
GetEnvironmentTemplateVersion
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetEnvironmentTemplateVersion' {Text
minorVersion :: Text
$sel:minorVersion:GetEnvironmentTemplateVersion' :: GetEnvironmentTemplateVersion -> Text
minorVersion} -> Text
minorVersion) (\s :: GetEnvironmentTemplateVersion
s@GetEnvironmentTemplateVersion' {} Text
a -> GetEnvironmentTemplateVersion
s {$sel:minorVersion:GetEnvironmentTemplateVersion' :: Text
minorVersion = Text
a} :: GetEnvironmentTemplateVersion)
getEnvironmentTemplateVersion_templateName :: Lens.Lens' GetEnvironmentTemplateVersion Prelude.Text
getEnvironmentTemplateVersion_templateName :: (Text -> f Text)
-> GetEnvironmentTemplateVersion -> f GetEnvironmentTemplateVersion
getEnvironmentTemplateVersion_templateName = (GetEnvironmentTemplateVersion -> Text)
-> (GetEnvironmentTemplateVersion
-> Text -> GetEnvironmentTemplateVersion)
-> Lens
GetEnvironmentTemplateVersion
GetEnvironmentTemplateVersion
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetEnvironmentTemplateVersion' {Text
templateName :: Text
$sel:templateName:GetEnvironmentTemplateVersion' :: GetEnvironmentTemplateVersion -> Text
templateName} -> Text
templateName) (\s :: GetEnvironmentTemplateVersion
s@GetEnvironmentTemplateVersion' {} Text
a -> GetEnvironmentTemplateVersion
s {$sel:templateName:GetEnvironmentTemplateVersion' :: Text
templateName = Text
a} :: GetEnvironmentTemplateVersion)
instance
Core.AWSRequest
GetEnvironmentTemplateVersion
where
type
AWSResponse GetEnvironmentTemplateVersion =
GetEnvironmentTemplateVersionResponse
request :: GetEnvironmentTemplateVersion
-> Request GetEnvironmentTemplateVersion
request = Service
-> GetEnvironmentTemplateVersion
-> Request GetEnvironmentTemplateVersion
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
response :: Logger
-> Service
-> Proxy GetEnvironmentTemplateVersion
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetEnvironmentTemplateVersion)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse GetEnvironmentTemplateVersion))
-> Logger
-> Service
-> Proxy GetEnvironmentTemplateVersion
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetEnvironmentTemplateVersion)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Int
-> EnvironmentTemplateVersion
-> GetEnvironmentTemplateVersionResponse
GetEnvironmentTemplateVersionResponse'
(Int
-> EnvironmentTemplateVersion
-> GetEnvironmentTemplateVersionResponse)
-> Either String Int
-> Either
String
(EnvironmentTemplateVersion
-> GetEnvironmentTemplateVersionResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
Either
String
(EnvironmentTemplateVersion
-> GetEnvironmentTemplateVersionResponse)
-> Either String EnvironmentTemplateVersion
-> Either String GetEnvironmentTemplateVersionResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String EnvironmentTemplateVersion
forall a. FromJSON a => Object -> Text -> Either String a
Core..:> Text
"environmentTemplateVersion")
)
instance
Prelude.Hashable
GetEnvironmentTemplateVersion
instance Prelude.NFData GetEnvironmentTemplateVersion
instance Core.ToHeaders GetEnvironmentTemplateVersion where
toHeaders :: GetEnvironmentTemplateVersion -> ResponseHeaders
toHeaders =
ResponseHeaders -> GetEnvironmentTemplateVersion -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"AwsProton20200720.GetEnvironmentTemplateVersion" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Core.ToJSON GetEnvironmentTemplateVersion where
toJSON :: GetEnvironmentTemplateVersion -> Value
toJSON GetEnvironmentTemplateVersion' {Text
templateName :: Text
minorVersion :: Text
majorVersion :: Text
$sel:templateName:GetEnvironmentTemplateVersion' :: GetEnvironmentTemplateVersion -> Text
$sel:minorVersion:GetEnvironmentTemplateVersion' :: GetEnvironmentTemplateVersion -> Text
$sel:majorVersion:GetEnvironmentTemplateVersion' :: GetEnvironmentTemplateVersion -> Text
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"majorVersion" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
majorVersion),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"minorVersion" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
minorVersion),
Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"templateName" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
templateName)
]
)
instance Core.ToPath GetEnvironmentTemplateVersion where
toPath :: GetEnvironmentTemplateVersion -> ByteString
toPath = ByteString -> GetEnvironmentTemplateVersion -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Core.ToQuery GetEnvironmentTemplateVersion where
toQuery :: GetEnvironmentTemplateVersion -> QueryString
toQuery = QueryString -> GetEnvironmentTemplateVersion -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data GetEnvironmentTemplateVersionResponse = GetEnvironmentTemplateVersionResponse'
{
GetEnvironmentTemplateVersionResponse -> Int
httpStatus :: Prelude.Int,
GetEnvironmentTemplateVersionResponse -> EnvironmentTemplateVersion
environmentTemplateVersion :: EnvironmentTemplateVersion
}
deriving (GetEnvironmentTemplateVersionResponse
-> GetEnvironmentTemplateVersionResponse -> Bool
(GetEnvironmentTemplateVersionResponse
-> GetEnvironmentTemplateVersionResponse -> Bool)
-> (GetEnvironmentTemplateVersionResponse
-> GetEnvironmentTemplateVersionResponse -> Bool)
-> Eq GetEnvironmentTemplateVersionResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetEnvironmentTemplateVersionResponse
-> GetEnvironmentTemplateVersionResponse -> Bool
$c/= :: GetEnvironmentTemplateVersionResponse
-> GetEnvironmentTemplateVersionResponse -> Bool
== :: GetEnvironmentTemplateVersionResponse
-> GetEnvironmentTemplateVersionResponse -> Bool
$c== :: GetEnvironmentTemplateVersionResponse
-> GetEnvironmentTemplateVersionResponse -> Bool
Prelude.Eq, Int -> GetEnvironmentTemplateVersionResponse -> ShowS
[GetEnvironmentTemplateVersionResponse] -> ShowS
GetEnvironmentTemplateVersionResponse -> String
(Int -> GetEnvironmentTemplateVersionResponse -> ShowS)
-> (GetEnvironmentTemplateVersionResponse -> String)
-> ([GetEnvironmentTemplateVersionResponse] -> ShowS)
-> Show GetEnvironmentTemplateVersionResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetEnvironmentTemplateVersionResponse] -> ShowS
$cshowList :: [GetEnvironmentTemplateVersionResponse] -> ShowS
show :: GetEnvironmentTemplateVersionResponse -> String
$cshow :: GetEnvironmentTemplateVersionResponse -> String
showsPrec :: Int -> GetEnvironmentTemplateVersionResponse -> ShowS
$cshowsPrec :: Int -> GetEnvironmentTemplateVersionResponse -> ShowS
Prelude.Show, (forall x.
GetEnvironmentTemplateVersionResponse
-> Rep GetEnvironmentTemplateVersionResponse x)
-> (forall x.
Rep GetEnvironmentTemplateVersionResponse x
-> GetEnvironmentTemplateVersionResponse)
-> Generic GetEnvironmentTemplateVersionResponse
forall x.
Rep GetEnvironmentTemplateVersionResponse x
-> GetEnvironmentTemplateVersionResponse
forall x.
GetEnvironmentTemplateVersionResponse
-> Rep GetEnvironmentTemplateVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetEnvironmentTemplateVersionResponse x
-> GetEnvironmentTemplateVersionResponse
$cfrom :: forall x.
GetEnvironmentTemplateVersionResponse
-> Rep GetEnvironmentTemplateVersionResponse x
Prelude.Generic)
newGetEnvironmentTemplateVersionResponse ::
Prelude.Int ->
EnvironmentTemplateVersion ->
GetEnvironmentTemplateVersionResponse
newGetEnvironmentTemplateVersionResponse :: Int
-> EnvironmentTemplateVersion
-> GetEnvironmentTemplateVersionResponse
newGetEnvironmentTemplateVersionResponse
Int
pHttpStatus_
EnvironmentTemplateVersion
pEnvironmentTemplateVersion_ =
GetEnvironmentTemplateVersionResponse' :: Int
-> EnvironmentTemplateVersion
-> GetEnvironmentTemplateVersionResponse
GetEnvironmentTemplateVersionResponse'
{ $sel:httpStatus:GetEnvironmentTemplateVersionResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:environmentTemplateVersion:GetEnvironmentTemplateVersionResponse' :: EnvironmentTemplateVersion
environmentTemplateVersion =
EnvironmentTemplateVersion
pEnvironmentTemplateVersion_
}
getEnvironmentTemplateVersionResponse_httpStatus :: Lens.Lens' GetEnvironmentTemplateVersionResponse Prelude.Int
getEnvironmentTemplateVersionResponse_httpStatus :: (Int -> f Int)
-> GetEnvironmentTemplateVersionResponse
-> f GetEnvironmentTemplateVersionResponse
getEnvironmentTemplateVersionResponse_httpStatus = (GetEnvironmentTemplateVersionResponse -> Int)
-> (GetEnvironmentTemplateVersionResponse
-> Int -> GetEnvironmentTemplateVersionResponse)
-> Lens
GetEnvironmentTemplateVersionResponse
GetEnvironmentTemplateVersionResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetEnvironmentTemplateVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetEnvironmentTemplateVersionResponse' :: GetEnvironmentTemplateVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetEnvironmentTemplateVersionResponse
s@GetEnvironmentTemplateVersionResponse' {} Int
a -> GetEnvironmentTemplateVersionResponse
s {$sel:httpStatus:GetEnvironmentTemplateVersionResponse' :: Int
httpStatus = Int
a} :: GetEnvironmentTemplateVersionResponse)
getEnvironmentTemplateVersionResponse_environmentTemplateVersion :: Lens.Lens' GetEnvironmentTemplateVersionResponse EnvironmentTemplateVersion
getEnvironmentTemplateVersionResponse_environmentTemplateVersion :: (EnvironmentTemplateVersion -> f EnvironmentTemplateVersion)
-> GetEnvironmentTemplateVersionResponse
-> f GetEnvironmentTemplateVersionResponse
getEnvironmentTemplateVersionResponse_environmentTemplateVersion = (GetEnvironmentTemplateVersionResponse
-> EnvironmentTemplateVersion)
-> (GetEnvironmentTemplateVersionResponse
-> EnvironmentTemplateVersion
-> GetEnvironmentTemplateVersionResponse)
-> Lens
GetEnvironmentTemplateVersionResponse
GetEnvironmentTemplateVersionResponse
EnvironmentTemplateVersion
EnvironmentTemplateVersion
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetEnvironmentTemplateVersionResponse' {EnvironmentTemplateVersion
environmentTemplateVersion :: EnvironmentTemplateVersion
$sel:environmentTemplateVersion:GetEnvironmentTemplateVersionResponse' :: GetEnvironmentTemplateVersionResponse -> EnvironmentTemplateVersion
environmentTemplateVersion} -> EnvironmentTemplateVersion
environmentTemplateVersion) (\s :: GetEnvironmentTemplateVersionResponse
s@GetEnvironmentTemplateVersionResponse' {} EnvironmentTemplateVersion
a -> GetEnvironmentTemplateVersionResponse
s {$sel:environmentTemplateVersion:GetEnvironmentTemplateVersionResponse' :: EnvironmentTemplateVersion
environmentTemplateVersion = EnvironmentTemplateVersion
a} :: GetEnvironmentTemplateVersionResponse)
instance
Prelude.NFData
GetEnvironmentTemplateVersionResponse