{-# 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.ServerlessApplicationRepository.CreateApplicationVersion
(
CreateApplicationVersion (..),
newCreateApplicationVersion,
createApplicationVersion_sourceCodeArchiveUrl,
createApplicationVersion_sourceCodeUrl,
createApplicationVersion_templateBody,
createApplicationVersion_templateUrl,
createApplicationVersion_applicationId,
createApplicationVersion_semanticVersion,
CreateApplicationVersionResponse (..),
newCreateApplicationVersionResponse,
createApplicationVersionResponse_applicationId,
createApplicationVersionResponse_creationTime,
createApplicationVersionResponse_parameterDefinitions,
createApplicationVersionResponse_requiredCapabilities,
createApplicationVersionResponse_resourcesSupported,
createApplicationVersionResponse_semanticVersion,
createApplicationVersionResponse_sourceCodeArchiveUrl,
createApplicationVersionResponse_sourceCodeUrl,
createApplicationVersionResponse_templateUrl,
createApplicationVersionResponse_httpStatus,
)
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.ServerlessApplicationRepository.Types
data CreateApplicationVersion = CreateApplicationVersion'
{
CreateApplicationVersion -> Maybe Text
sourceCodeArchiveUrl :: Prelude.Maybe Prelude.Text,
CreateApplicationVersion -> Maybe Text
sourceCodeUrl :: Prelude.Maybe Prelude.Text,
CreateApplicationVersion -> Maybe Text
templateBody :: Prelude.Maybe Prelude.Text,
CreateApplicationVersion -> Maybe Text
templateUrl :: Prelude.Maybe Prelude.Text,
CreateApplicationVersion -> Text
applicationId :: Prelude.Text,
CreateApplicationVersion -> Text
semanticVersion :: Prelude.Text
}
deriving (CreateApplicationVersion -> CreateApplicationVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateApplicationVersion -> CreateApplicationVersion -> Bool
$c/= :: CreateApplicationVersion -> CreateApplicationVersion -> Bool
== :: CreateApplicationVersion -> CreateApplicationVersion -> Bool
$c== :: CreateApplicationVersion -> CreateApplicationVersion -> Bool
Prelude.Eq, ReadPrec [CreateApplicationVersion]
ReadPrec CreateApplicationVersion
Int -> ReadS CreateApplicationVersion
ReadS [CreateApplicationVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateApplicationVersion]
$creadListPrec :: ReadPrec [CreateApplicationVersion]
readPrec :: ReadPrec CreateApplicationVersion
$creadPrec :: ReadPrec CreateApplicationVersion
readList :: ReadS [CreateApplicationVersion]
$creadList :: ReadS [CreateApplicationVersion]
readsPrec :: Int -> ReadS CreateApplicationVersion
$creadsPrec :: Int -> ReadS CreateApplicationVersion
Prelude.Read, Int -> CreateApplicationVersion -> ShowS
[CreateApplicationVersion] -> ShowS
CreateApplicationVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateApplicationVersion] -> ShowS
$cshowList :: [CreateApplicationVersion] -> ShowS
show :: CreateApplicationVersion -> String
$cshow :: CreateApplicationVersion -> String
showsPrec :: Int -> CreateApplicationVersion -> ShowS
$cshowsPrec :: Int -> CreateApplicationVersion -> ShowS
Prelude.Show, forall x.
Rep CreateApplicationVersion x -> CreateApplicationVersion
forall x.
CreateApplicationVersion -> Rep CreateApplicationVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateApplicationVersion x -> CreateApplicationVersion
$cfrom :: forall x.
CreateApplicationVersion -> Rep CreateApplicationVersion x
Prelude.Generic)
newCreateApplicationVersion ::
Prelude.Text ->
Prelude.Text ->
CreateApplicationVersion
newCreateApplicationVersion :: Text -> Text -> CreateApplicationVersion
newCreateApplicationVersion
Text
pApplicationId_
Text
pSemanticVersion_ =
CreateApplicationVersion'
{ $sel:sourceCodeArchiveUrl:CreateApplicationVersion' :: Maybe Text
sourceCodeArchiveUrl =
forall a. Maybe a
Prelude.Nothing,
$sel:sourceCodeUrl:CreateApplicationVersion' :: Maybe Text
sourceCodeUrl = forall a. Maybe a
Prelude.Nothing,
$sel:templateBody:CreateApplicationVersion' :: Maybe Text
templateBody = forall a. Maybe a
Prelude.Nothing,
$sel:templateUrl:CreateApplicationVersion' :: Maybe Text
templateUrl = forall a. Maybe a
Prelude.Nothing,
$sel:applicationId:CreateApplicationVersion' :: Text
applicationId = Text
pApplicationId_,
$sel:semanticVersion:CreateApplicationVersion' :: Text
semanticVersion = Text
pSemanticVersion_
}
createApplicationVersion_sourceCodeArchiveUrl :: Lens.Lens' CreateApplicationVersion (Prelude.Maybe Prelude.Text)
createApplicationVersion_sourceCodeArchiveUrl :: Lens' CreateApplicationVersion (Maybe Text)
createApplicationVersion_sourceCodeArchiveUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersion' {Maybe Text
sourceCodeArchiveUrl :: Maybe Text
$sel:sourceCodeArchiveUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
sourceCodeArchiveUrl} -> Maybe Text
sourceCodeArchiveUrl) (\s :: CreateApplicationVersion
s@CreateApplicationVersion' {} Maybe Text
a -> CreateApplicationVersion
s {$sel:sourceCodeArchiveUrl:CreateApplicationVersion' :: Maybe Text
sourceCodeArchiveUrl = Maybe Text
a} :: CreateApplicationVersion)
createApplicationVersion_sourceCodeUrl :: Lens.Lens' CreateApplicationVersion (Prelude.Maybe Prelude.Text)
createApplicationVersion_sourceCodeUrl :: Lens' CreateApplicationVersion (Maybe Text)
createApplicationVersion_sourceCodeUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersion' {Maybe Text
sourceCodeUrl :: Maybe Text
$sel:sourceCodeUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
sourceCodeUrl} -> Maybe Text
sourceCodeUrl) (\s :: CreateApplicationVersion
s@CreateApplicationVersion' {} Maybe Text
a -> CreateApplicationVersion
s {$sel:sourceCodeUrl:CreateApplicationVersion' :: Maybe Text
sourceCodeUrl = Maybe Text
a} :: CreateApplicationVersion)
createApplicationVersion_templateBody :: Lens.Lens' CreateApplicationVersion (Prelude.Maybe Prelude.Text)
createApplicationVersion_templateBody :: Lens' CreateApplicationVersion (Maybe Text)
createApplicationVersion_templateBody = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersion' {Maybe Text
templateBody :: Maybe Text
$sel:templateBody:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
templateBody} -> Maybe Text
templateBody) (\s :: CreateApplicationVersion
s@CreateApplicationVersion' {} Maybe Text
a -> CreateApplicationVersion
s {$sel:templateBody:CreateApplicationVersion' :: Maybe Text
templateBody = Maybe Text
a} :: CreateApplicationVersion)
createApplicationVersion_templateUrl :: Lens.Lens' CreateApplicationVersion (Prelude.Maybe Prelude.Text)
createApplicationVersion_templateUrl :: Lens' CreateApplicationVersion (Maybe Text)
createApplicationVersion_templateUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersion' {Maybe Text
templateUrl :: Maybe Text
$sel:templateUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
templateUrl} -> Maybe Text
templateUrl) (\s :: CreateApplicationVersion
s@CreateApplicationVersion' {} Maybe Text
a -> CreateApplicationVersion
s {$sel:templateUrl:CreateApplicationVersion' :: Maybe Text
templateUrl = Maybe Text
a} :: CreateApplicationVersion)
createApplicationVersion_applicationId :: Lens.Lens' CreateApplicationVersion Prelude.Text
createApplicationVersion_applicationId :: Lens' CreateApplicationVersion Text
createApplicationVersion_applicationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersion' {Text
applicationId :: Text
$sel:applicationId:CreateApplicationVersion' :: CreateApplicationVersion -> Text
applicationId} -> Text
applicationId) (\s :: CreateApplicationVersion
s@CreateApplicationVersion' {} Text
a -> CreateApplicationVersion
s {$sel:applicationId:CreateApplicationVersion' :: Text
applicationId = Text
a} :: CreateApplicationVersion)
createApplicationVersion_semanticVersion :: Lens.Lens' CreateApplicationVersion Prelude.Text
createApplicationVersion_semanticVersion :: Lens' CreateApplicationVersion Text
createApplicationVersion_semanticVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersion' {Text
semanticVersion :: Text
$sel:semanticVersion:CreateApplicationVersion' :: CreateApplicationVersion -> Text
semanticVersion} -> Text
semanticVersion) (\s :: CreateApplicationVersion
s@CreateApplicationVersion' {} Text
a -> CreateApplicationVersion
s {$sel:semanticVersion:CreateApplicationVersion' :: Text
semanticVersion = Text
a} :: CreateApplicationVersion)
instance Core.AWSRequest CreateApplicationVersion where
type
AWSResponse CreateApplicationVersion =
CreateApplicationVersionResponse
request :: (Service -> Service)
-> CreateApplicationVersion -> Request CreateApplicationVersion
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateApplicationVersion
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateApplicationVersion)))
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 ->
Maybe Text
-> Maybe Text
-> Maybe [ParameterDefinition]
-> Maybe [Capability]
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> CreateApplicationVersionResponse
CreateApplicationVersionResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"applicationId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"creationTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"parameterDefinitions"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"requiredCapabilities"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"resourcesSupported")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"semanticVersion")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"sourceCodeArchiveUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"sourceCodeUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"templateUrl")
forall (f :: * -> *) a b. Applicative f => 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))
)
instance Prelude.Hashable CreateApplicationVersion where
hashWithSalt :: Int -> CreateApplicationVersion -> Int
hashWithSalt Int
_salt CreateApplicationVersion' {Maybe Text
Text
semanticVersion :: Text
applicationId :: Text
templateUrl :: Maybe Text
templateBody :: Maybe Text
sourceCodeUrl :: Maybe Text
sourceCodeArchiveUrl :: Maybe Text
$sel:semanticVersion:CreateApplicationVersion' :: CreateApplicationVersion -> Text
$sel:applicationId:CreateApplicationVersion' :: CreateApplicationVersion -> Text
$sel:templateUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:templateBody:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:sourceCodeUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:sourceCodeArchiveUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceCodeArchiveUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceCodeUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
templateBody
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
templateUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
applicationId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
semanticVersion
instance Prelude.NFData CreateApplicationVersion where
rnf :: CreateApplicationVersion -> ()
rnf CreateApplicationVersion' {Maybe Text
Text
semanticVersion :: Text
applicationId :: Text
templateUrl :: Maybe Text
templateBody :: Maybe Text
sourceCodeUrl :: Maybe Text
sourceCodeArchiveUrl :: Maybe Text
$sel:semanticVersion:CreateApplicationVersion' :: CreateApplicationVersion -> Text
$sel:applicationId:CreateApplicationVersion' :: CreateApplicationVersion -> Text
$sel:templateUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:templateBody:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:sourceCodeUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:sourceCodeArchiveUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceCodeArchiveUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceCodeUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
templateBody
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
templateUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
applicationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
semanticVersion
instance Data.ToHeaders CreateApplicationVersion where
toHeaders :: CreateApplicationVersion -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateApplicationVersion where
toJSON :: CreateApplicationVersion -> Value
toJSON CreateApplicationVersion' {Maybe Text
Text
semanticVersion :: Text
applicationId :: Text
templateUrl :: Maybe Text
templateBody :: Maybe Text
sourceCodeUrl :: Maybe Text
sourceCodeArchiveUrl :: Maybe Text
$sel:semanticVersion:CreateApplicationVersion' :: CreateApplicationVersion -> Text
$sel:applicationId:CreateApplicationVersion' :: CreateApplicationVersion -> Text
$sel:templateUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:templateBody:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:sourceCodeUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:sourceCodeArchiveUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"sourceCodeArchiveUrl" 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 Text
sourceCodeArchiveUrl,
(Key
"sourceCodeUrl" 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 Text
sourceCodeUrl,
(Key
"templateBody" 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 Text
templateBody,
(Key
"templateUrl" 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 Text
templateUrl
]
)
instance Data.ToPath CreateApplicationVersion where
toPath :: CreateApplicationVersion -> ByteString
toPath CreateApplicationVersion' {Maybe Text
Text
semanticVersion :: Text
applicationId :: Text
templateUrl :: Maybe Text
templateBody :: Maybe Text
sourceCodeUrl :: Maybe Text
sourceCodeArchiveUrl :: Maybe Text
$sel:semanticVersion:CreateApplicationVersion' :: CreateApplicationVersion -> Text
$sel:applicationId:CreateApplicationVersion' :: CreateApplicationVersion -> Text
$sel:templateUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:templateBody:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:sourceCodeUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
$sel:sourceCodeArchiveUrl:CreateApplicationVersion' :: CreateApplicationVersion -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/applications/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
applicationId,
ByteString
"/versions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
semanticVersion
]
instance Data.ToQuery CreateApplicationVersion where
toQuery :: CreateApplicationVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateApplicationVersionResponse = CreateApplicationVersionResponse'
{
CreateApplicationVersionResponse -> Maybe Text
applicationId :: Prelude.Maybe Prelude.Text,
CreateApplicationVersionResponse -> Maybe Text
creationTime :: Prelude.Maybe Prelude.Text,
CreateApplicationVersionResponse -> Maybe [ParameterDefinition]
parameterDefinitions :: Prelude.Maybe [ParameterDefinition],
CreateApplicationVersionResponse -> Maybe [Capability]
requiredCapabilities :: Prelude.Maybe [Capability],
CreateApplicationVersionResponse -> Maybe Bool
resourcesSupported :: Prelude.Maybe Prelude.Bool,
CreateApplicationVersionResponse -> Maybe Text
semanticVersion :: Prelude.Maybe Prelude.Text,
CreateApplicationVersionResponse -> Maybe Text
sourceCodeArchiveUrl :: Prelude.Maybe Prelude.Text,
CreateApplicationVersionResponse -> Maybe Text
sourceCodeUrl :: Prelude.Maybe Prelude.Text,
CreateApplicationVersionResponse -> Maybe Text
templateUrl :: Prelude.Maybe Prelude.Text,
CreateApplicationVersionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateApplicationVersionResponse
-> CreateApplicationVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateApplicationVersionResponse
-> CreateApplicationVersionResponse -> Bool
$c/= :: CreateApplicationVersionResponse
-> CreateApplicationVersionResponse -> Bool
== :: CreateApplicationVersionResponse
-> CreateApplicationVersionResponse -> Bool
$c== :: CreateApplicationVersionResponse
-> CreateApplicationVersionResponse -> Bool
Prelude.Eq, ReadPrec [CreateApplicationVersionResponse]
ReadPrec CreateApplicationVersionResponse
Int -> ReadS CreateApplicationVersionResponse
ReadS [CreateApplicationVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateApplicationVersionResponse]
$creadListPrec :: ReadPrec [CreateApplicationVersionResponse]
readPrec :: ReadPrec CreateApplicationVersionResponse
$creadPrec :: ReadPrec CreateApplicationVersionResponse
readList :: ReadS [CreateApplicationVersionResponse]
$creadList :: ReadS [CreateApplicationVersionResponse]
readsPrec :: Int -> ReadS CreateApplicationVersionResponse
$creadsPrec :: Int -> ReadS CreateApplicationVersionResponse
Prelude.Read, Int -> CreateApplicationVersionResponse -> ShowS
[CreateApplicationVersionResponse] -> ShowS
CreateApplicationVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateApplicationVersionResponse] -> ShowS
$cshowList :: [CreateApplicationVersionResponse] -> ShowS
show :: CreateApplicationVersionResponse -> String
$cshow :: CreateApplicationVersionResponse -> String
showsPrec :: Int -> CreateApplicationVersionResponse -> ShowS
$cshowsPrec :: Int -> CreateApplicationVersionResponse -> ShowS
Prelude.Show, forall x.
Rep CreateApplicationVersionResponse x
-> CreateApplicationVersionResponse
forall x.
CreateApplicationVersionResponse
-> Rep CreateApplicationVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateApplicationVersionResponse x
-> CreateApplicationVersionResponse
$cfrom :: forall x.
CreateApplicationVersionResponse
-> Rep CreateApplicationVersionResponse x
Prelude.Generic)
newCreateApplicationVersionResponse ::
Prelude.Int ->
CreateApplicationVersionResponse
newCreateApplicationVersionResponse :: Int -> CreateApplicationVersionResponse
newCreateApplicationVersionResponse Int
pHttpStatus_ =
CreateApplicationVersionResponse'
{ $sel:applicationId:CreateApplicationVersionResponse' :: Maybe Text
applicationId =
forall a. Maybe a
Prelude.Nothing,
$sel:creationTime:CreateApplicationVersionResponse' :: Maybe Text
creationTime = forall a. Maybe a
Prelude.Nothing,
$sel:parameterDefinitions:CreateApplicationVersionResponse' :: Maybe [ParameterDefinition]
parameterDefinitions = forall a. Maybe a
Prelude.Nothing,
$sel:requiredCapabilities:CreateApplicationVersionResponse' :: Maybe [Capability]
requiredCapabilities = forall a. Maybe a
Prelude.Nothing,
$sel:resourcesSupported:CreateApplicationVersionResponse' :: Maybe Bool
resourcesSupported = forall a. Maybe a
Prelude.Nothing,
$sel:semanticVersion:CreateApplicationVersionResponse' :: Maybe Text
semanticVersion = forall a. Maybe a
Prelude.Nothing,
$sel:sourceCodeArchiveUrl:CreateApplicationVersionResponse' :: Maybe Text
sourceCodeArchiveUrl = forall a. Maybe a
Prelude.Nothing,
$sel:sourceCodeUrl:CreateApplicationVersionResponse' :: Maybe Text
sourceCodeUrl = forall a. Maybe a
Prelude.Nothing,
$sel:templateUrl:CreateApplicationVersionResponse' :: Maybe Text
templateUrl = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateApplicationVersionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createApplicationVersionResponse_applicationId :: Lens.Lens' CreateApplicationVersionResponse (Prelude.Maybe Prelude.Text)
createApplicationVersionResponse_applicationId :: Lens' CreateApplicationVersionResponse (Maybe Text)
createApplicationVersionResponse_applicationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersionResponse' {Maybe Text
applicationId :: Maybe Text
$sel:applicationId:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
applicationId} -> Maybe Text
applicationId) (\s :: CreateApplicationVersionResponse
s@CreateApplicationVersionResponse' {} Maybe Text
a -> CreateApplicationVersionResponse
s {$sel:applicationId:CreateApplicationVersionResponse' :: Maybe Text
applicationId = Maybe Text
a} :: CreateApplicationVersionResponse)
createApplicationVersionResponse_creationTime :: Lens.Lens' CreateApplicationVersionResponse (Prelude.Maybe Prelude.Text)
createApplicationVersionResponse_creationTime :: Lens' CreateApplicationVersionResponse (Maybe Text)
createApplicationVersionResponse_creationTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersionResponse' {Maybe Text
creationTime :: Maybe Text
$sel:creationTime:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
creationTime} -> Maybe Text
creationTime) (\s :: CreateApplicationVersionResponse
s@CreateApplicationVersionResponse' {} Maybe Text
a -> CreateApplicationVersionResponse
s {$sel:creationTime:CreateApplicationVersionResponse' :: Maybe Text
creationTime = Maybe Text
a} :: CreateApplicationVersionResponse)
createApplicationVersionResponse_parameterDefinitions :: Lens.Lens' CreateApplicationVersionResponse (Prelude.Maybe [ParameterDefinition])
createApplicationVersionResponse_parameterDefinitions :: Lens'
CreateApplicationVersionResponse (Maybe [ParameterDefinition])
createApplicationVersionResponse_parameterDefinitions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersionResponse' {Maybe [ParameterDefinition]
parameterDefinitions :: Maybe [ParameterDefinition]
$sel:parameterDefinitions:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe [ParameterDefinition]
parameterDefinitions} -> Maybe [ParameterDefinition]
parameterDefinitions) (\s :: CreateApplicationVersionResponse
s@CreateApplicationVersionResponse' {} Maybe [ParameterDefinition]
a -> CreateApplicationVersionResponse
s {$sel:parameterDefinitions:CreateApplicationVersionResponse' :: Maybe [ParameterDefinition]
parameterDefinitions = Maybe [ParameterDefinition]
a} :: CreateApplicationVersionResponse) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createApplicationVersionResponse_requiredCapabilities :: Lens.Lens' CreateApplicationVersionResponse (Prelude.Maybe [Capability])
createApplicationVersionResponse_requiredCapabilities :: Lens' CreateApplicationVersionResponse (Maybe [Capability])
createApplicationVersionResponse_requiredCapabilities = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersionResponse' {Maybe [Capability]
requiredCapabilities :: Maybe [Capability]
$sel:requiredCapabilities:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe [Capability]
requiredCapabilities} -> Maybe [Capability]
requiredCapabilities) (\s :: CreateApplicationVersionResponse
s@CreateApplicationVersionResponse' {} Maybe [Capability]
a -> CreateApplicationVersionResponse
s {$sel:requiredCapabilities:CreateApplicationVersionResponse' :: Maybe [Capability]
requiredCapabilities = Maybe [Capability]
a} :: CreateApplicationVersionResponse) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createApplicationVersionResponse_resourcesSupported :: Lens.Lens' CreateApplicationVersionResponse (Prelude.Maybe Prelude.Bool)
createApplicationVersionResponse_resourcesSupported :: Lens' CreateApplicationVersionResponse (Maybe Bool)
createApplicationVersionResponse_resourcesSupported = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersionResponse' {Maybe Bool
resourcesSupported :: Maybe Bool
$sel:resourcesSupported:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Bool
resourcesSupported} -> Maybe Bool
resourcesSupported) (\s :: CreateApplicationVersionResponse
s@CreateApplicationVersionResponse' {} Maybe Bool
a -> CreateApplicationVersionResponse
s {$sel:resourcesSupported:CreateApplicationVersionResponse' :: Maybe Bool
resourcesSupported = Maybe Bool
a} :: CreateApplicationVersionResponse)
createApplicationVersionResponse_semanticVersion :: Lens.Lens' CreateApplicationVersionResponse (Prelude.Maybe Prelude.Text)
createApplicationVersionResponse_semanticVersion :: Lens' CreateApplicationVersionResponse (Maybe Text)
createApplicationVersionResponse_semanticVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersionResponse' {Maybe Text
semanticVersion :: Maybe Text
$sel:semanticVersion:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
semanticVersion} -> Maybe Text
semanticVersion) (\s :: CreateApplicationVersionResponse
s@CreateApplicationVersionResponse' {} Maybe Text
a -> CreateApplicationVersionResponse
s {$sel:semanticVersion:CreateApplicationVersionResponse' :: Maybe Text
semanticVersion = Maybe Text
a} :: CreateApplicationVersionResponse)
createApplicationVersionResponse_sourceCodeArchiveUrl :: Lens.Lens' CreateApplicationVersionResponse (Prelude.Maybe Prelude.Text)
createApplicationVersionResponse_sourceCodeArchiveUrl :: Lens' CreateApplicationVersionResponse (Maybe Text)
createApplicationVersionResponse_sourceCodeArchiveUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersionResponse' {Maybe Text
sourceCodeArchiveUrl :: Maybe Text
$sel:sourceCodeArchiveUrl:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
sourceCodeArchiveUrl} -> Maybe Text
sourceCodeArchiveUrl) (\s :: CreateApplicationVersionResponse
s@CreateApplicationVersionResponse' {} Maybe Text
a -> CreateApplicationVersionResponse
s {$sel:sourceCodeArchiveUrl:CreateApplicationVersionResponse' :: Maybe Text
sourceCodeArchiveUrl = Maybe Text
a} :: CreateApplicationVersionResponse)
createApplicationVersionResponse_sourceCodeUrl :: Lens.Lens' CreateApplicationVersionResponse (Prelude.Maybe Prelude.Text)
createApplicationVersionResponse_sourceCodeUrl :: Lens' CreateApplicationVersionResponse (Maybe Text)
createApplicationVersionResponse_sourceCodeUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersionResponse' {Maybe Text
sourceCodeUrl :: Maybe Text
$sel:sourceCodeUrl:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
sourceCodeUrl} -> Maybe Text
sourceCodeUrl) (\s :: CreateApplicationVersionResponse
s@CreateApplicationVersionResponse' {} Maybe Text
a -> CreateApplicationVersionResponse
s {$sel:sourceCodeUrl:CreateApplicationVersionResponse' :: Maybe Text
sourceCodeUrl = Maybe Text
a} :: CreateApplicationVersionResponse)
createApplicationVersionResponse_templateUrl :: Lens.Lens' CreateApplicationVersionResponse (Prelude.Maybe Prelude.Text)
createApplicationVersionResponse_templateUrl :: Lens' CreateApplicationVersionResponse (Maybe Text)
createApplicationVersionResponse_templateUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersionResponse' {Maybe Text
templateUrl :: Maybe Text
$sel:templateUrl:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
templateUrl} -> Maybe Text
templateUrl) (\s :: CreateApplicationVersionResponse
s@CreateApplicationVersionResponse' {} Maybe Text
a -> CreateApplicationVersionResponse
s {$sel:templateUrl:CreateApplicationVersionResponse' :: Maybe Text
templateUrl = Maybe Text
a} :: CreateApplicationVersionResponse)
createApplicationVersionResponse_httpStatus :: Lens.Lens' CreateApplicationVersionResponse Prelude.Int
createApplicationVersionResponse_httpStatus :: Lens' CreateApplicationVersionResponse Int
createApplicationVersionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateApplicationVersionResponse
s@CreateApplicationVersionResponse' {} Int
a -> CreateApplicationVersionResponse
s {$sel:httpStatus:CreateApplicationVersionResponse' :: Int
httpStatus = Int
a} :: CreateApplicationVersionResponse)
instance
Prelude.NFData
CreateApplicationVersionResponse
where
rnf :: CreateApplicationVersionResponse -> ()
rnf CreateApplicationVersionResponse' {Int
Maybe Bool
Maybe [Capability]
Maybe [ParameterDefinition]
Maybe Text
httpStatus :: Int
templateUrl :: Maybe Text
sourceCodeUrl :: Maybe Text
sourceCodeArchiveUrl :: Maybe Text
semanticVersion :: Maybe Text
resourcesSupported :: Maybe Bool
requiredCapabilities :: Maybe [Capability]
parameterDefinitions :: Maybe [ParameterDefinition]
creationTime :: Maybe Text
applicationId :: Maybe Text
$sel:httpStatus:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Int
$sel:templateUrl:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
$sel:sourceCodeUrl:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
$sel:sourceCodeArchiveUrl:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
$sel:semanticVersion:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
$sel:resourcesSupported:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Bool
$sel:requiredCapabilities:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe [Capability]
$sel:parameterDefinitions:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe [ParameterDefinition]
$sel:creationTime:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
$sel:applicationId:CreateApplicationVersionResponse' :: CreateApplicationVersionResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
applicationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
creationTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ParameterDefinition]
parameterDefinitions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Capability]
requiredCapabilities
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
resourcesSupported
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
semanticVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceCodeArchiveUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceCodeUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
templateUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus