{-# 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.ResilienceHub.CreateRecommendationTemplate
(
CreateRecommendationTemplate (..),
newCreateRecommendationTemplate,
createRecommendationTemplate_bucketName,
createRecommendationTemplate_clientToken,
createRecommendationTemplate_format,
createRecommendationTemplate_recommendationIds,
createRecommendationTemplate_recommendationTypes,
createRecommendationTemplate_tags,
createRecommendationTemplate_assessmentArn,
createRecommendationTemplate_name,
CreateRecommendationTemplateResponse (..),
newCreateRecommendationTemplateResponse,
createRecommendationTemplateResponse_recommendationTemplate,
createRecommendationTemplateResponse_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 Amazonka.ResilienceHub.Types
import qualified Amazonka.Response as Response
data CreateRecommendationTemplate = CreateRecommendationTemplate'
{
CreateRecommendationTemplate -> Maybe Text
bucketName :: Prelude.Maybe Prelude.Text,
CreateRecommendationTemplate -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
CreateRecommendationTemplate -> Maybe TemplateFormat
format :: Prelude.Maybe TemplateFormat,
CreateRecommendationTemplate -> Maybe (NonEmpty Text)
recommendationIds :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),
CreateRecommendationTemplate
-> Maybe (NonEmpty RenderRecommendationType)
recommendationTypes :: Prelude.Maybe (Prelude.NonEmpty RenderRecommendationType),
CreateRecommendationTemplate
-> Maybe (Sensitive (HashMap Text Text))
tags :: Prelude.Maybe (Data.Sensitive (Prelude.HashMap Prelude.Text Prelude.Text)),
CreateRecommendationTemplate -> Text
assessmentArn :: Prelude.Text,
CreateRecommendationTemplate -> Text
name :: Prelude.Text
}
deriving (CreateRecommendationTemplate
-> CreateRecommendationTemplate -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateRecommendationTemplate
-> CreateRecommendationTemplate -> Bool
$c/= :: CreateRecommendationTemplate
-> CreateRecommendationTemplate -> Bool
== :: CreateRecommendationTemplate
-> CreateRecommendationTemplate -> Bool
$c== :: CreateRecommendationTemplate
-> CreateRecommendationTemplate -> Bool
Prelude.Eq, Int -> CreateRecommendationTemplate -> ShowS
[CreateRecommendationTemplate] -> ShowS
CreateRecommendationTemplate -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateRecommendationTemplate] -> ShowS
$cshowList :: [CreateRecommendationTemplate] -> ShowS
show :: CreateRecommendationTemplate -> String
$cshow :: CreateRecommendationTemplate -> String
showsPrec :: Int -> CreateRecommendationTemplate -> ShowS
$cshowsPrec :: Int -> CreateRecommendationTemplate -> ShowS
Prelude.Show, forall x.
Rep CreateRecommendationTemplate x -> CreateRecommendationTemplate
forall x.
CreateRecommendationTemplate -> Rep CreateRecommendationTemplate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateRecommendationTemplate x -> CreateRecommendationTemplate
$cfrom :: forall x.
CreateRecommendationTemplate -> Rep CreateRecommendationTemplate x
Prelude.Generic)
newCreateRecommendationTemplate ::
Prelude.Text ->
Prelude.Text ->
CreateRecommendationTemplate
newCreateRecommendationTemplate :: Text -> Text -> CreateRecommendationTemplate
newCreateRecommendationTemplate
Text
pAssessmentArn_
Text
pName_ =
CreateRecommendationTemplate'
{ $sel:bucketName:CreateRecommendationTemplate' :: Maybe Text
bucketName =
forall a. Maybe a
Prelude.Nothing,
$sel:clientToken:CreateRecommendationTemplate' :: Maybe Text
clientToken = forall a. Maybe a
Prelude.Nothing,
$sel:format:CreateRecommendationTemplate' :: Maybe TemplateFormat
format = forall a. Maybe a
Prelude.Nothing,
$sel:recommendationIds:CreateRecommendationTemplate' :: Maybe (NonEmpty Text)
recommendationIds = forall a. Maybe a
Prelude.Nothing,
$sel:recommendationTypes:CreateRecommendationTemplate' :: Maybe (NonEmpty RenderRecommendationType)
recommendationTypes = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateRecommendationTemplate' :: Maybe (Sensitive (HashMap Text Text))
tags = forall a. Maybe a
Prelude.Nothing,
$sel:assessmentArn:CreateRecommendationTemplate' :: Text
assessmentArn = Text
pAssessmentArn_,
$sel:name:CreateRecommendationTemplate' :: Text
name = Text
pName_
}
createRecommendationTemplate_bucketName :: Lens.Lens' CreateRecommendationTemplate (Prelude.Maybe Prelude.Text)
createRecommendationTemplate_bucketName :: Lens' CreateRecommendationTemplate (Maybe Text)
createRecommendationTemplate_bucketName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRecommendationTemplate' {Maybe Text
bucketName :: Maybe Text
$sel:bucketName:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe Text
bucketName} -> Maybe Text
bucketName) (\s :: CreateRecommendationTemplate
s@CreateRecommendationTemplate' {} Maybe Text
a -> CreateRecommendationTemplate
s {$sel:bucketName:CreateRecommendationTemplate' :: Maybe Text
bucketName = Maybe Text
a} :: CreateRecommendationTemplate)
createRecommendationTemplate_clientToken :: Lens.Lens' CreateRecommendationTemplate (Prelude.Maybe Prelude.Text)
createRecommendationTemplate_clientToken :: Lens' CreateRecommendationTemplate (Maybe Text)
createRecommendationTemplate_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRecommendationTemplate' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreateRecommendationTemplate
s@CreateRecommendationTemplate' {} Maybe Text
a -> CreateRecommendationTemplate
s {$sel:clientToken:CreateRecommendationTemplate' :: Maybe Text
clientToken = Maybe Text
a} :: CreateRecommendationTemplate)
createRecommendationTemplate_format :: Lens.Lens' CreateRecommendationTemplate (Prelude.Maybe TemplateFormat)
createRecommendationTemplate_format :: Lens' CreateRecommendationTemplate (Maybe TemplateFormat)
createRecommendationTemplate_format = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRecommendationTemplate' {Maybe TemplateFormat
format :: Maybe TemplateFormat
$sel:format:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe TemplateFormat
format} -> Maybe TemplateFormat
format) (\s :: CreateRecommendationTemplate
s@CreateRecommendationTemplate' {} Maybe TemplateFormat
a -> CreateRecommendationTemplate
s {$sel:format:CreateRecommendationTemplate' :: Maybe TemplateFormat
format = Maybe TemplateFormat
a} :: CreateRecommendationTemplate)
createRecommendationTemplate_recommendationIds :: Lens.Lens' CreateRecommendationTemplate (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))
createRecommendationTemplate_recommendationIds :: Lens' CreateRecommendationTemplate (Maybe (NonEmpty Text))
createRecommendationTemplate_recommendationIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRecommendationTemplate' {Maybe (NonEmpty Text)
recommendationIds :: Maybe (NonEmpty Text)
$sel:recommendationIds:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe (NonEmpty Text)
recommendationIds} -> Maybe (NonEmpty Text)
recommendationIds) (\s :: CreateRecommendationTemplate
s@CreateRecommendationTemplate' {} Maybe (NonEmpty Text)
a -> CreateRecommendationTemplate
s {$sel:recommendationIds:CreateRecommendationTemplate' :: Maybe (NonEmpty Text)
recommendationIds = Maybe (NonEmpty Text)
a} :: CreateRecommendationTemplate) 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
createRecommendationTemplate_recommendationTypes :: Lens.Lens' CreateRecommendationTemplate (Prelude.Maybe (Prelude.NonEmpty RenderRecommendationType))
createRecommendationTemplate_recommendationTypes :: Lens'
CreateRecommendationTemplate
(Maybe (NonEmpty RenderRecommendationType))
createRecommendationTemplate_recommendationTypes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRecommendationTemplate' {Maybe (NonEmpty RenderRecommendationType)
recommendationTypes :: Maybe (NonEmpty RenderRecommendationType)
$sel:recommendationTypes:CreateRecommendationTemplate' :: CreateRecommendationTemplate
-> Maybe (NonEmpty RenderRecommendationType)
recommendationTypes} -> Maybe (NonEmpty RenderRecommendationType)
recommendationTypes) (\s :: CreateRecommendationTemplate
s@CreateRecommendationTemplate' {} Maybe (NonEmpty RenderRecommendationType)
a -> CreateRecommendationTemplate
s {$sel:recommendationTypes:CreateRecommendationTemplate' :: Maybe (NonEmpty RenderRecommendationType)
recommendationTypes = Maybe (NonEmpty RenderRecommendationType)
a} :: CreateRecommendationTemplate) 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
createRecommendationTemplate_tags :: Lens.Lens' CreateRecommendationTemplate (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createRecommendationTemplate_tags :: Lens' CreateRecommendationTemplate (Maybe (HashMap Text Text))
createRecommendationTemplate_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRecommendationTemplate' {Maybe (Sensitive (HashMap Text Text))
tags :: Maybe (Sensitive (HashMap Text Text))
$sel:tags:CreateRecommendationTemplate' :: CreateRecommendationTemplate
-> Maybe (Sensitive (HashMap Text Text))
tags} -> Maybe (Sensitive (HashMap Text Text))
tags) (\s :: CreateRecommendationTemplate
s@CreateRecommendationTemplate' {} Maybe (Sensitive (HashMap Text Text))
a -> CreateRecommendationTemplate
s {$sel:tags:CreateRecommendationTemplate' :: Maybe (Sensitive (HashMap Text Text))
tags = Maybe (Sensitive (HashMap Text Text))
a} :: CreateRecommendationTemplate) 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 forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced)
createRecommendationTemplate_assessmentArn :: Lens.Lens' CreateRecommendationTemplate Prelude.Text
createRecommendationTemplate_assessmentArn :: Lens' CreateRecommendationTemplate Text
createRecommendationTemplate_assessmentArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRecommendationTemplate' {Text
assessmentArn :: Text
$sel:assessmentArn:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Text
assessmentArn} -> Text
assessmentArn) (\s :: CreateRecommendationTemplate
s@CreateRecommendationTemplate' {} Text
a -> CreateRecommendationTemplate
s {$sel:assessmentArn:CreateRecommendationTemplate' :: Text
assessmentArn = Text
a} :: CreateRecommendationTemplate)
createRecommendationTemplate_name :: Lens.Lens' CreateRecommendationTemplate Prelude.Text
createRecommendationTemplate_name :: Lens' CreateRecommendationTemplate Text
createRecommendationTemplate_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRecommendationTemplate' {Text
name :: Text
$sel:name:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Text
name} -> Text
name) (\s :: CreateRecommendationTemplate
s@CreateRecommendationTemplate' {} Text
a -> CreateRecommendationTemplate
s {$sel:name:CreateRecommendationTemplate' :: Text
name = Text
a} :: CreateRecommendationTemplate)
instance Core.AWSRequest CreateRecommendationTemplate where
type
AWSResponse CreateRecommendationTemplate =
CreateRecommendationTemplateResponse
request :: (Service -> Service)
-> CreateRecommendationTemplate
-> Request CreateRecommendationTemplate
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 CreateRecommendationTemplate
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateRecommendationTemplate)))
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 RecommendationTemplate
-> Int -> CreateRecommendationTemplateResponse
CreateRecommendationTemplateResponse'
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
"recommendationTemplate")
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
CreateRecommendationTemplate
where
hashWithSalt :: Int -> CreateRecommendationTemplate -> Int
hashWithSalt Int
_salt CreateRecommendationTemplate' {Maybe (NonEmpty Text)
Maybe (NonEmpty RenderRecommendationType)
Maybe Text
Maybe (Sensitive (HashMap Text Text))
Maybe TemplateFormat
Text
name :: Text
assessmentArn :: Text
tags :: Maybe (Sensitive (HashMap Text Text))
recommendationTypes :: Maybe (NonEmpty RenderRecommendationType)
recommendationIds :: Maybe (NonEmpty Text)
format :: Maybe TemplateFormat
clientToken :: Maybe Text
bucketName :: Maybe Text
$sel:name:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Text
$sel:assessmentArn:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Text
$sel:tags:CreateRecommendationTemplate' :: CreateRecommendationTemplate
-> Maybe (Sensitive (HashMap Text Text))
$sel:recommendationTypes:CreateRecommendationTemplate' :: CreateRecommendationTemplate
-> Maybe (NonEmpty RenderRecommendationType)
$sel:recommendationIds:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe (NonEmpty Text)
$sel:format:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe TemplateFormat
$sel:clientToken:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe Text
$sel:bucketName:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
bucketName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TemplateFormat
format
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Text)
recommendationIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty RenderRecommendationType)
recommendationTypes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive (HashMap Text Text))
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
assessmentArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
instance Prelude.NFData CreateRecommendationTemplate where
rnf :: CreateRecommendationTemplate -> ()
rnf CreateRecommendationTemplate' {Maybe (NonEmpty Text)
Maybe (NonEmpty RenderRecommendationType)
Maybe Text
Maybe (Sensitive (HashMap Text Text))
Maybe TemplateFormat
Text
name :: Text
assessmentArn :: Text
tags :: Maybe (Sensitive (HashMap Text Text))
recommendationTypes :: Maybe (NonEmpty RenderRecommendationType)
recommendationIds :: Maybe (NonEmpty Text)
format :: Maybe TemplateFormat
clientToken :: Maybe Text
bucketName :: Maybe Text
$sel:name:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Text
$sel:assessmentArn:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Text
$sel:tags:CreateRecommendationTemplate' :: CreateRecommendationTemplate
-> Maybe (Sensitive (HashMap Text Text))
$sel:recommendationTypes:CreateRecommendationTemplate' :: CreateRecommendationTemplate
-> Maybe (NonEmpty RenderRecommendationType)
$sel:recommendationIds:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe (NonEmpty Text)
$sel:format:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe TemplateFormat
$sel:clientToken:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe Text
$sel:bucketName:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
bucketName
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 TemplateFormat
format
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Text)
recommendationIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty RenderRecommendationType)
recommendationTypes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive (HashMap Text Text))
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
assessmentArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
instance Data.ToHeaders CreateRecommendationTemplate where
toHeaders :: CreateRecommendationTemplate -> 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 CreateRecommendationTemplate where
toJSON :: CreateRecommendationTemplate -> Value
toJSON CreateRecommendationTemplate' {Maybe (NonEmpty Text)
Maybe (NonEmpty RenderRecommendationType)
Maybe Text
Maybe (Sensitive (HashMap Text Text))
Maybe TemplateFormat
Text
name :: Text
assessmentArn :: Text
tags :: Maybe (Sensitive (HashMap Text Text))
recommendationTypes :: Maybe (NonEmpty RenderRecommendationType)
recommendationIds :: Maybe (NonEmpty Text)
format :: Maybe TemplateFormat
clientToken :: Maybe Text
bucketName :: Maybe Text
$sel:name:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Text
$sel:assessmentArn:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Text
$sel:tags:CreateRecommendationTemplate' :: CreateRecommendationTemplate
-> Maybe (Sensitive (HashMap Text Text))
$sel:recommendationTypes:CreateRecommendationTemplate' :: CreateRecommendationTemplate
-> Maybe (NonEmpty RenderRecommendationType)
$sel:recommendationIds:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe (NonEmpty Text)
$sel:format:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe TemplateFormat
$sel:clientToken:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe Text
$sel:bucketName:CreateRecommendationTemplate' :: CreateRecommendationTemplate -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"bucketName" 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
bucketName,
(Key
"clientToken" 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
clientToken,
(Key
"format" 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 TemplateFormat
format,
(Key
"recommendationIds" 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 (NonEmpty Text)
recommendationIds,
(Key
"recommendationTypes" 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 (NonEmpty RenderRecommendationType)
recommendationTypes,
(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 (Sensitive (HashMap Text Text))
tags,
forall a. a -> Maybe a
Prelude.Just (Key
"assessmentArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
assessmentArn),
forall a. a -> Maybe a
Prelude.Just (Key
"name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name)
]
)
instance Data.ToPath CreateRecommendationTemplate where
toPath :: CreateRecommendationTemplate -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/create-recommendation-template"
instance Data.ToQuery CreateRecommendationTemplate where
toQuery :: CreateRecommendationTemplate -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateRecommendationTemplateResponse = CreateRecommendationTemplateResponse'
{
CreateRecommendationTemplateResponse
-> Maybe RecommendationTemplate
recommendationTemplate :: Prelude.Maybe RecommendationTemplate,
CreateRecommendationTemplateResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateRecommendationTemplateResponse
-> CreateRecommendationTemplateResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateRecommendationTemplateResponse
-> CreateRecommendationTemplateResponse -> Bool
$c/= :: CreateRecommendationTemplateResponse
-> CreateRecommendationTemplateResponse -> Bool
== :: CreateRecommendationTemplateResponse
-> CreateRecommendationTemplateResponse -> Bool
$c== :: CreateRecommendationTemplateResponse
-> CreateRecommendationTemplateResponse -> Bool
Prelude.Eq, Int -> CreateRecommendationTemplateResponse -> ShowS
[CreateRecommendationTemplateResponse] -> ShowS
CreateRecommendationTemplateResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateRecommendationTemplateResponse] -> ShowS
$cshowList :: [CreateRecommendationTemplateResponse] -> ShowS
show :: CreateRecommendationTemplateResponse -> String
$cshow :: CreateRecommendationTemplateResponse -> String
showsPrec :: Int -> CreateRecommendationTemplateResponse -> ShowS
$cshowsPrec :: Int -> CreateRecommendationTemplateResponse -> ShowS
Prelude.Show, forall x.
Rep CreateRecommendationTemplateResponse x
-> CreateRecommendationTemplateResponse
forall x.
CreateRecommendationTemplateResponse
-> Rep CreateRecommendationTemplateResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateRecommendationTemplateResponse x
-> CreateRecommendationTemplateResponse
$cfrom :: forall x.
CreateRecommendationTemplateResponse
-> Rep CreateRecommendationTemplateResponse x
Prelude.Generic)
newCreateRecommendationTemplateResponse ::
Prelude.Int ->
CreateRecommendationTemplateResponse
newCreateRecommendationTemplateResponse :: Int -> CreateRecommendationTemplateResponse
newCreateRecommendationTemplateResponse Int
pHttpStatus_ =
CreateRecommendationTemplateResponse'
{ $sel:recommendationTemplate:CreateRecommendationTemplateResponse' :: Maybe RecommendationTemplate
recommendationTemplate =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateRecommendationTemplateResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createRecommendationTemplateResponse_recommendationTemplate :: Lens.Lens' CreateRecommendationTemplateResponse (Prelude.Maybe RecommendationTemplate)
createRecommendationTemplateResponse_recommendationTemplate :: Lens'
CreateRecommendationTemplateResponse (Maybe RecommendationTemplate)
createRecommendationTemplateResponse_recommendationTemplate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRecommendationTemplateResponse' {Maybe RecommendationTemplate
recommendationTemplate :: Maybe RecommendationTemplate
$sel:recommendationTemplate:CreateRecommendationTemplateResponse' :: CreateRecommendationTemplateResponse
-> Maybe RecommendationTemplate
recommendationTemplate} -> Maybe RecommendationTemplate
recommendationTemplate) (\s :: CreateRecommendationTemplateResponse
s@CreateRecommendationTemplateResponse' {} Maybe RecommendationTemplate
a -> CreateRecommendationTemplateResponse
s {$sel:recommendationTemplate:CreateRecommendationTemplateResponse' :: Maybe RecommendationTemplate
recommendationTemplate = Maybe RecommendationTemplate
a} :: CreateRecommendationTemplateResponse)
createRecommendationTemplateResponse_httpStatus :: Lens.Lens' CreateRecommendationTemplateResponse Prelude.Int
createRecommendationTemplateResponse_httpStatus :: Lens' CreateRecommendationTemplateResponse Int
createRecommendationTemplateResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRecommendationTemplateResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateRecommendationTemplateResponse' :: CreateRecommendationTemplateResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateRecommendationTemplateResponse
s@CreateRecommendationTemplateResponse' {} Int
a -> CreateRecommendationTemplateResponse
s {$sel:httpStatus:CreateRecommendationTemplateResponse' :: Int
httpStatus = Int
a} :: CreateRecommendationTemplateResponse)
instance
Prelude.NFData
CreateRecommendationTemplateResponse
where
rnf :: CreateRecommendationTemplateResponse -> ()
rnf CreateRecommendationTemplateResponse' {Int
Maybe RecommendationTemplate
httpStatus :: Int
recommendationTemplate :: Maybe RecommendationTemplate
$sel:httpStatus:CreateRecommendationTemplateResponse' :: CreateRecommendationTemplateResponse -> Int
$sel:recommendationTemplate:CreateRecommendationTemplateResponse' :: CreateRecommendationTemplateResponse
-> Maybe RecommendationTemplate
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe RecommendationTemplate
recommendationTemplate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus