{-# 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.ImageBuilder.ImportComponent
(
ImportComponent (..),
newImportComponent,
importComponent_changeDescription,
importComponent_data,
importComponent_description,
importComponent_kmsKeyId,
importComponent_tags,
importComponent_uri,
importComponent_name,
importComponent_semanticVersion,
importComponent_type,
importComponent_format,
importComponent_platform,
importComponent_clientToken,
ImportComponentResponse (..),
newImportComponentResponse,
importComponentResponse_clientToken,
importComponentResponse_componentBuildVersionArn,
importComponentResponse_requestId,
importComponentResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ImageBuilder.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ImportComponent = ImportComponent'
{
ImportComponent -> Maybe Text
changeDescription :: Prelude.Maybe Prelude.Text,
ImportComponent -> Maybe Text
data' :: Prelude.Maybe Prelude.Text,
ImportComponent -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
ImportComponent -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
ImportComponent -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
ImportComponent -> Maybe Text
uri :: Prelude.Maybe Prelude.Text,
ImportComponent -> Text
name :: Prelude.Text,
ImportComponent -> Text
semanticVersion :: Prelude.Text,
ImportComponent -> ComponentType
type' :: ComponentType,
ImportComponent -> ComponentFormat
format :: ComponentFormat,
ImportComponent -> Platform
platform :: Platform,
ImportComponent -> Text
clientToken :: Prelude.Text
}
deriving (ImportComponent -> ImportComponent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ImportComponent -> ImportComponent -> Bool
$c/= :: ImportComponent -> ImportComponent -> Bool
== :: ImportComponent -> ImportComponent -> Bool
$c== :: ImportComponent -> ImportComponent -> Bool
Prelude.Eq, ReadPrec [ImportComponent]
ReadPrec ImportComponent
Int -> ReadS ImportComponent
ReadS [ImportComponent]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ImportComponent]
$creadListPrec :: ReadPrec [ImportComponent]
readPrec :: ReadPrec ImportComponent
$creadPrec :: ReadPrec ImportComponent
readList :: ReadS [ImportComponent]
$creadList :: ReadS [ImportComponent]
readsPrec :: Int -> ReadS ImportComponent
$creadsPrec :: Int -> ReadS ImportComponent
Prelude.Read, Int -> ImportComponent -> ShowS
[ImportComponent] -> ShowS
ImportComponent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ImportComponent] -> ShowS
$cshowList :: [ImportComponent] -> ShowS
show :: ImportComponent -> String
$cshow :: ImportComponent -> String
showsPrec :: Int -> ImportComponent -> ShowS
$cshowsPrec :: Int -> ImportComponent -> ShowS
Prelude.Show, forall x. Rep ImportComponent x -> ImportComponent
forall x. ImportComponent -> Rep ImportComponent x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ImportComponent x -> ImportComponent
$cfrom :: forall x. ImportComponent -> Rep ImportComponent x
Prelude.Generic)
newImportComponent ::
Prelude.Text ->
Prelude.Text ->
ComponentType ->
ComponentFormat ->
Platform ->
Prelude.Text ->
ImportComponent
newImportComponent :: Text
-> Text
-> ComponentType
-> ComponentFormat
-> Platform
-> Text
-> ImportComponent
newImportComponent
Text
pName_
Text
pSemanticVersion_
ComponentType
pType_
ComponentFormat
pFormat_
Platform
pPlatform_
Text
pClientToken_ =
ImportComponent'
{ $sel:changeDescription:ImportComponent' :: Maybe Text
changeDescription =
forall a. Maybe a
Prelude.Nothing,
$sel:data':ImportComponent' :: Maybe Text
data' = forall a. Maybe a
Prelude.Nothing,
$sel:description:ImportComponent' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKeyId:ImportComponent' :: Maybe Text
kmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:tags:ImportComponent' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:uri:ImportComponent' :: Maybe Text
uri = forall a. Maybe a
Prelude.Nothing,
$sel:name:ImportComponent' :: Text
name = Text
pName_,
$sel:semanticVersion:ImportComponent' :: Text
semanticVersion = Text
pSemanticVersion_,
$sel:type':ImportComponent' :: ComponentType
type' = ComponentType
pType_,
$sel:format:ImportComponent' :: ComponentFormat
format = ComponentFormat
pFormat_,
$sel:platform:ImportComponent' :: Platform
platform = Platform
pPlatform_,
$sel:clientToken:ImportComponent' :: Text
clientToken = Text
pClientToken_
}
importComponent_changeDescription :: Lens.Lens' ImportComponent (Prelude.Maybe Prelude.Text)
importComponent_changeDescription :: Lens' ImportComponent (Maybe Text)
importComponent_changeDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {Maybe Text
changeDescription :: Maybe Text
$sel:changeDescription:ImportComponent' :: ImportComponent -> Maybe Text
changeDescription} -> Maybe Text
changeDescription) (\s :: ImportComponent
s@ImportComponent' {} Maybe Text
a -> ImportComponent
s {$sel:changeDescription:ImportComponent' :: Maybe Text
changeDescription = Maybe Text
a} :: ImportComponent)
importComponent_data :: Lens.Lens' ImportComponent (Prelude.Maybe Prelude.Text)
importComponent_data :: Lens' ImportComponent (Maybe Text)
importComponent_data = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {Maybe Text
data' :: Maybe Text
$sel:data':ImportComponent' :: ImportComponent -> Maybe Text
data'} -> Maybe Text
data') (\s :: ImportComponent
s@ImportComponent' {} Maybe Text
a -> ImportComponent
s {$sel:data':ImportComponent' :: Maybe Text
data' = Maybe Text
a} :: ImportComponent)
importComponent_description :: Lens.Lens' ImportComponent (Prelude.Maybe Prelude.Text)
importComponent_description :: Lens' ImportComponent (Maybe Text)
importComponent_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {Maybe Text
description :: Maybe Text
$sel:description:ImportComponent' :: ImportComponent -> Maybe Text
description} -> Maybe Text
description) (\s :: ImportComponent
s@ImportComponent' {} Maybe Text
a -> ImportComponent
s {$sel:description:ImportComponent' :: Maybe Text
description = Maybe Text
a} :: ImportComponent)
importComponent_kmsKeyId :: Lens.Lens' ImportComponent (Prelude.Maybe Prelude.Text)
importComponent_kmsKeyId :: Lens' ImportComponent (Maybe Text)
importComponent_kmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {Maybe Text
kmsKeyId :: Maybe Text
$sel:kmsKeyId:ImportComponent' :: ImportComponent -> Maybe Text
kmsKeyId} -> Maybe Text
kmsKeyId) (\s :: ImportComponent
s@ImportComponent' {} Maybe Text
a -> ImportComponent
s {$sel:kmsKeyId:ImportComponent' :: Maybe Text
kmsKeyId = Maybe Text
a} :: ImportComponent)
importComponent_tags :: Lens.Lens' ImportComponent (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
importComponent_tags :: Lens' ImportComponent (Maybe (HashMap Text Text))
importComponent_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:ImportComponent' :: ImportComponent -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: ImportComponent
s@ImportComponent' {} Maybe (HashMap Text Text)
a -> ImportComponent
s {$sel:tags:ImportComponent' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: ImportComponent) 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
importComponent_uri :: Lens.Lens' ImportComponent (Prelude.Maybe Prelude.Text)
importComponent_uri :: Lens' ImportComponent (Maybe Text)
importComponent_uri = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {Maybe Text
uri :: Maybe Text
$sel:uri:ImportComponent' :: ImportComponent -> Maybe Text
uri} -> Maybe Text
uri) (\s :: ImportComponent
s@ImportComponent' {} Maybe Text
a -> ImportComponent
s {$sel:uri:ImportComponent' :: Maybe Text
uri = Maybe Text
a} :: ImportComponent)
importComponent_name :: Lens.Lens' ImportComponent Prelude.Text
importComponent_name :: Lens' ImportComponent Text
importComponent_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {Text
name :: Text
$sel:name:ImportComponent' :: ImportComponent -> Text
name} -> Text
name) (\s :: ImportComponent
s@ImportComponent' {} Text
a -> ImportComponent
s {$sel:name:ImportComponent' :: Text
name = Text
a} :: ImportComponent)
importComponent_semanticVersion :: Lens.Lens' ImportComponent Prelude.Text
importComponent_semanticVersion :: Lens' ImportComponent Text
importComponent_semanticVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {Text
semanticVersion :: Text
$sel:semanticVersion:ImportComponent' :: ImportComponent -> Text
semanticVersion} -> Text
semanticVersion) (\s :: ImportComponent
s@ImportComponent' {} Text
a -> ImportComponent
s {$sel:semanticVersion:ImportComponent' :: Text
semanticVersion = Text
a} :: ImportComponent)
importComponent_type :: Lens.Lens' ImportComponent ComponentType
importComponent_type :: Lens' ImportComponent ComponentType
importComponent_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {ComponentType
type' :: ComponentType
$sel:type':ImportComponent' :: ImportComponent -> ComponentType
type'} -> ComponentType
type') (\s :: ImportComponent
s@ImportComponent' {} ComponentType
a -> ImportComponent
s {$sel:type':ImportComponent' :: ComponentType
type' = ComponentType
a} :: ImportComponent)
importComponent_format :: Lens.Lens' ImportComponent ComponentFormat
importComponent_format :: Lens' ImportComponent ComponentFormat
importComponent_format = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {ComponentFormat
format :: ComponentFormat
$sel:format:ImportComponent' :: ImportComponent -> ComponentFormat
format} -> ComponentFormat
format) (\s :: ImportComponent
s@ImportComponent' {} ComponentFormat
a -> ImportComponent
s {$sel:format:ImportComponent' :: ComponentFormat
format = ComponentFormat
a} :: ImportComponent)
importComponent_platform :: Lens.Lens' ImportComponent Platform
importComponent_platform :: Lens' ImportComponent Platform
importComponent_platform = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {Platform
platform :: Platform
$sel:platform:ImportComponent' :: ImportComponent -> Platform
platform} -> Platform
platform) (\s :: ImportComponent
s@ImportComponent' {} Platform
a -> ImportComponent
s {$sel:platform:ImportComponent' :: Platform
platform = Platform
a} :: ImportComponent)
importComponent_clientToken :: Lens.Lens' ImportComponent Prelude.Text
importComponent_clientToken :: Lens' ImportComponent Text
importComponent_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponent' {Text
clientToken :: Text
$sel:clientToken:ImportComponent' :: ImportComponent -> Text
clientToken} -> Text
clientToken) (\s :: ImportComponent
s@ImportComponent' {} Text
a -> ImportComponent
s {$sel:clientToken:ImportComponent' :: Text
clientToken = Text
a} :: ImportComponent)
instance Core.AWSRequest ImportComponent where
type
AWSResponse ImportComponent =
ImportComponentResponse
request :: (Service -> Service) -> ImportComponent -> Request ImportComponent
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 ImportComponent
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ImportComponent)))
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 Text -> Int -> ImportComponentResponse
ImportComponentResponse'
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
"clientToken")
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
"componentBuildVersionArn")
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
"requestId")
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 ImportComponent where
hashWithSalt :: Int -> ImportComponent -> Int
hashWithSalt Int
_salt ImportComponent' {Maybe Text
Maybe (HashMap Text Text)
Text
ComponentFormat
ComponentType
Platform
clientToken :: Text
platform :: Platform
format :: ComponentFormat
type' :: ComponentType
semanticVersion :: Text
name :: Text
uri :: Maybe Text
tags :: Maybe (HashMap Text Text)
kmsKeyId :: Maybe Text
description :: Maybe Text
data' :: Maybe Text
changeDescription :: Maybe Text
$sel:clientToken:ImportComponent' :: ImportComponent -> Text
$sel:platform:ImportComponent' :: ImportComponent -> Platform
$sel:format:ImportComponent' :: ImportComponent -> ComponentFormat
$sel:type':ImportComponent' :: ImportComponent -> ComponentType
$sel:semanticVersion:ImportComponent' :: ImportComponent -> Text
$sel:name:ImportComponent' :: ImportComponent -> Text
$sel:uri:ImportComponent' :: ImportComponent -> Maybe Text
$sel:tags:ImportComponent' :: ImportComponent -> Maybe (HashMap Text Text)
$sel:kmsKeyId:ImportComponent' :: ImportComponent -> Maybe Text
$sel:description:ImportComponent' :: ImportComponent -> Maybe Text
$sel:data':ImportComponent' :: ImportComponent -> Maybe Text
$sel:changeDescription:ImportComponent' :: ImportComponent -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
changeDescription
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
data'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
uri
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
semanticVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ComponentType
type'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ComponentFormat
format
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Platform
platform
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
clientToken
instance Prelude.NFData ImportComponent where
rnf :: ImportComponent -> ()
rnf ImportComponent' {Maybe Text
Maybe (HashMap Text Text)
Text
ComponentFormat
ComponentType
Platform
clientToken :: Text
platform :: Platform
format :: ComponentFormat
type' :: ComponentType
semanticVersion :: Text
name :: Text
uri :: Maybe Text
tags :: Maybe (HashMap Text Text)
kmsKeyId :: Maybe Text
description :: Maybe Text
data' :: Maybe Text
changeDescription :: Maybe Text
$sel:clientToken:ImportComponent' :: ImportComponent -> Text
$sel:platform:ImportComponent' :: ImportComponent -> Platform
$sel:format:ImportComponent' :: ImportComponent -> ComponentFormat
$sel:type':ImportComponent' :: ImportComponent -> ComponentType
$sel:semanticVersion:ImportComponent' :: ImportComponent -> Text
$sel:name:ImportComponent' :: ImportComponent -> Text
$sel:uri:ImportComponent' :: ImportComponent -> Maybe Text
$sel:tags:ImportComponent' :: ImportComponent -> Maybe (HashMap Text Text)
$sel:kmsKeyId:ImportComponent' :: ImportComponent -> Maybe Text
$sel:description:ImportComponent' :: ImportComponent -> Maybe Text
$sel:data':ImportComponent' :: ImportComponent -> Maybe Text
$sel:changeDescription:ImportComponent' :: ImportComponent -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
changeDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
data'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
uri
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
semanticVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ComponentType
type'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ComponentFormat
format
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Platform
platform
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
clientToken
instance Data.ToHeaders ImportComponent where
toHeaders :: ImportComponent -> 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 ImportComponent where
toJSON :: ImportComponent -> Value
toJSON ImportComponent' {Maybe Text
Maybe (HashMap Text Text)
Text
ComponentFormat
ComponentType
Platform
clientToken :: Text
platform :: Platform
format :: ComponentFormat
type' :: ComponentType
semanticVersion :: Text
name :: Text
uri :: Maybe Text
tags :: Maybe (HashMap Text Text)
kmsKeyId :: Maybe Text
description :: Maybe Text
data' :: Maybe Text
changeDescription :: Maybe Text
$sel:clientToken:ImportComponent' :: ImportComponent -> Text
$sel:platform:ImportComponent' :: ImportComponent -> Platform
$sel:format:ImportComponent' :: ImportComponent -> ComponentFormat
$sel:type':ImportComponent' :: ImportComponent -> ComponentType
$sel:semanticVersion:ImportComponent' :: ImportComponent -> Text
$sel:name:ImportComponent' :: ImportComponent -> Text
$sel:uri:ImportComponent' :: ImportComponent -> Maybe Text
$sel:tags:ImportComponent' :: ImportComponent -> Maybe (HashMap Text Text)
$sel:kmsKeyId:ImportComponent' :: ImportComponent -> Maybe Text
$sel:description:ImportComponent' :: ImportComponent -> Maybe Text
$sel:data':ImportComponent' :: ImportComponent -> Maybe Text
$sel:changeDescription:ImportComponent' :: ImportComponent -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"changeDescription" 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
changeDescription,
(Key
"data" 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
data',
(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 Text
description,
(Key
"kmsKeyId" 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
kmsKeyId,
(Key
"tags" 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 (HashMap Text Text)
tags,
(Key
"uri" 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
uri,
forall a. a -> Maybe a
Prelude.Just (Key
"name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
forall a. a -> Maybe a
Prelude.Just
(Key
"semanticVersion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
semanticVersion),
forall a. a -> Maybe a
Prelude.Just (Key
"type" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ComponentType
type'),
forall a. a -> Maybe a
Prelude.Just (Key
"format" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ComponentFormat
format),
forall a. a -> Maybe a
Prelude.Just (Key
"platform" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Platform
platform),
forall a. a -> Maybe a
Prelude.Just (Key
"clientToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
clientToken)
]
)
instance Data.ToPath ImportComponent where
toPath :: ImportComponent -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/ImportComponent"
instance Data.ToQuery ImportComponent where
toQuery :: ImportComponent -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ImportComponentResponse = ImportComponentResponse'
{
ImportComponentResponse -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
ImportComponentResponse -> Maybe Text
componentBuildVersionArn :: Prelude.Maybe Prelude.Text,
ImportComponentResponse -> Maybe Text
requestId :: Prelude.Maybe Prelude.Text,
ImportComponentResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ImportComponentResponse -> ImportComponentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ImportComponentResponse -> ImportComponentResponse -> Bool
$c/= :: ImportComponentResponse -> ImportComponentResponse -> Bool
== :: ImportComponentResponse -> ImportComponentResponse -> Bool
$c== :: ImportComponentResponse -> ImportComponentResponse -> Bool
Prelude.Eq, ReadPrec [ImportComponentResponse]
ReadPrec ImportComponentResponse
Int -> ReadS ImportComponentResponse
ReadS [ImportComponentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ImportComponentResponse]
$creadListPrec :: ReadPrec [ImportComponentResponse]
readPrec :: ReadPrec ImportComponentResponse
$creadPrec :: ReadPrec ImportComponentResponse
readList :: ReadS [ImportComponentResponse]
$creadList :: ReadS [ImportComponentResponse]
readsPrec :: Int -> ReadS ImportComponentResponse
$creadsPrec :: Int -> ReadS ImportComponentResponse
Prelude.Read, Int -> ImportComponentResponse -> ShowS
[ImportComponentResponse] -> ShowS
ImportComponentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ImportComponentResponse] -> ShowS
$cshowList :: [ImportComponentResponse] -> ShowS
show :: ImportComponentResponse -> String
$cshow :: ImportComponentResponse -> String
showsPrec :: Int -> ImportComponentResponse -> ShowS
$cshowsPrec :: Int -> ImportComponentResponse -> ShowS
Prelude.Show, forall x. Rep ImportComponentResponse x -> ImportComponentResponse
forall x. ImportComponentResponse -> Rep ImportComponentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ImportComponentResponse x -> ImportComponentResponse
$cfrom :: forall x. ImportComponentResponse -> Rep ImportComponentResponse x
Prelude.Generic)
newImportComponentResponse ::
Prelude.Int ->
ImportComponentResponse
newImportComponentResponse :: Int -> ImportComponentResponse
newImportComponentResponse Int
pHttpStatus_ =
ImportComponentResponse'
{ $sel:clientToken:ImportComponentResponse' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:componentBuildVersionArn:ImportComponentResponse' :: Maybe Text
componentBuildVersionArn = forall a. Maybe a
Prelude.Nothing,
$sel:requestId:ImportComponentResponse' :: Maybe Text
requestId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ImportComponentResponse' :: Int
httpStatus = Int
pHttpStatus_
}
importComponentResponse_clientToken :: Lens.Lens' ImportComponentResponse (Prelude.Maybe Prelude.Text)
importComponentResponse_clientToken :: Lens' ImportComponentResponse (Maybe Text)
importComponentResponse_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponentResponse' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:ImportComponentResponse' :: ImportComponentResponse -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: ImportComponentResponse
s@ImportComponentResponse' {} Maybe Text
a -> ImportComponentResponse
s {$sel:clientToken:ImportComponentResponse' :: Maybe Text
clientToken = Maybe Text
a} :: ImportComponentResponse)
importComponentResponse_componentBuildVersionArn :: Lens.Lens' ImportComponentResponse (Prelude.Maybe Prelude.Text)
importComponentResponse_componentBuildVersionArn :: Lens' ImportComponentResponse (Maybe Text)
importComponentResponse_componentBuildVersionArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponentResponse' {Maybe Text
componentBuildVersionArn :: Maybe Text
$sel:componentBuildVersionArn:ImportComponentResponse' :: ImportComponentResponse -> Maybe Text
componentBuildVersionArn} -> Maybe Text
componentBuildVersionArn) (\s :: ImportComponentResponse
s@ImportComponentResponse' {} Maybe Text
a -> ImportComponentResponse
s {$sel:componentBuildVersionArn:ImportComponentResponse' :: Maybe Text
componentBuildVersionArn = Maybe Text
a} :: ImportComponentResponse)
importComponentResponse_requestId :: Lens.Lens' ImportComponentResponse (Prelude.Maybe Prelude.Text)
importComponentResponse_requestId :: Lens' ImportComponentResponse (Maybe Text)
importComponentResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponentResponse' {Maybe Text
requestId :: Maybe Text
$sel:requestId:ImportComponentResponse' :: ImportComponentResponse -> Maybe Text
requestId} -> Maybe Text
requestId) (\s :: ImportComponentResponse
s@ImportComponentResponse' {} Maybe Text
a -> ImportComponentResponse
s {$sel:requestId:ImportComponentResponse' :: Maybe Text
requestId = Maybe Text
a} :: ImportComponentResponse)
importComponentResponse_httpStatus :: Lens.Lens' ImportComponentResponse Prelude.Int
importComponentResponse_httpStatus :: Lens' ImportComponentResponse Int
importComponentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportComponentResponse' {Int
httpStatus :: Int
$sel:httpStatus:ImportComponentResponse' :: ImportComponentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ImportComponentResponse
s@ImportComponentResponse' {} Int
a -> ImportComponentResponse
s {$sel:httpStatus:ImportComponentResponse' :: Int
httpStatus = Int
a} :: ImportComponentResponse)
instance Prelude.NFData ImportComponentResponse where
rnf :: ImportComponentResponse -> ()
rnf ImportComponentResponse' {Int
Maybe Text
httpStatus :: Int
requestId :: Maybe Text
componentBuildVersionArn :: Maybe Text
clientToken :: Maybe Text
$sel:httpStatus:ImportComponentResponse' :: ImportComponentResponse -> Int
$sel:requestId:ImportComponentResponse' :: ImportComponentResponse -> Maybe Text
$sel:componentBuildVersionArn:ImportComponentResponse' :: ImportComponentResponse -> Maybe Text
$sel:clientToken:ImportComponentResponse' :: ImportComponentResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
componentBuildVersionArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
requestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus