{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.ResilienceHub.CreateRecommendationTemplate
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a new recommendation template.
module Amazonka.ResilienceHub.CreateRecommendationTemplate
  ( -- * Creating a Request
    CreateRecommendationTemplate (..),
    newCreateRecommendationTemplate,

    -- * Request Lenses
    createRecommendationTemplate_bucketName,
    createRecommendationTemplate_clientToken,
    createRecommendationTemplate_format,
    createRecommendationTemplate_recommendationIds,
    createRecommendationTemplate_recommendationTypes,
    createRecommendationTemplate_tags,
    createRecommendationTemplate_assessmentArn,
    createRecommendationTemplate_name,

    -- * Destructuring the Response
    CreateRecommendationTemplateResponse (..),
    newCreateRecommendationTemplateResponse,

    -- * Response Lenses
    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

-- | /See:/ 'newCreateRecommendationTemplate' smart constructor.
data CreateRecommendationTemplate = CreateRecommendationTemplate'
  { -- | The name of the Amazon S3 bucket that will contain the recommendation
    -- template.
    CreateRecommendationTemplate -> Maybe Text
bucketName :: Prelude.Maybe Prelude.Text,
    -- | Used for an idempotency token. A client token is a unique,
    -- case-sensitive string of up to 64 ASCII characters. You should not reuse
    -- the same client token for other API requests.
    CreateRecommendationTemplate -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
    -- | The format for the recommendation template.
    --
    -- [CfnJson]
    --     The template is CloudFormation JSON.
    --
    -- [CfnYaml]
    --     The template is CloudFormation YAML.
    CreateRecommendationTemplate -> Maybe TemplateFormat
format :: Prelude.Maybe TemplateFormat,
    -- | Identifiers for the recommendations used to create a recommendation
    -- template.
    CreateRecommendationTemplate -> Maybe (NonEmpty Text)
recommendationIds :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),
    -- | An array of strings that specify the recommendation template type or
    -- types.
    --
    -- [Alarm]
    --     The template is an AlarmRecommendation template.
    --
    -- [Sop]
    --     The template is a SopRecommendation template.
    --
    -- [Test]
    --     The template is a TestRecommendation template.
    CreateRecommendationTemplate
-> Maybe (NonEmpty RenderRecommendationType)
recommendationTypes :: Prelude.Maybe (Prelude.NonEmpty RenderRecommendationType),
    -- | The tags assigned to the resource. A tag is a label that you assign to
    -- an Amazon Web Services resource. Each tag consists of a key\/value pair.
    CreateRecommendationTemplate
-> Maybe (Sensitive (HashMap Text Text))
tags :: Prelude.Maybe (Data.Sensitive (Prelude.HashMap Prelude.Text Prelude.Text)),
    -- | The Amazon Resource Name (ARN) of the assessment. The format for this
    -- ARN is:
    -- arn:@partition@:resiliencehub:@region@:@account@:app-assessment\/@app-id@.
    -- For more information about ARNs, see
    -- <https://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs)>
    -- in the /AWS General Reference/.
    CreateRecommendationTemplate -> Text
assessmentArn :: Prelude.Text,
    -- | The name for the recommendation template.
    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)

-- |
-- Create a value of 'CreateRecommendationTemplate' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'bucketName', 'createRecommendationTemplate_bucketName' - The name of the Amazon S3 bucket that will contain the recommendation
-- template.
--
-- 'clientToken', 'createRecommendationTemplate_clientToken' - Used for an idempotency token. A client token is a unique,
-- case-sensitive string of up to 64 ASCII characters. You should not reuse
-- the same client token for other API requests.
--
-- 'format', 'createRecommendationTemplate_format' - The format for the recommendation template.
--
-- [CfnJson]
--     The template is CloudFormation JSON.
--
-- [CfnYaml]
--     The template is CloudFormation YAML.
--
-- 'recommendationIds', 'createRecommendationTemplate_recommendationIds' - Identifiers for the recommendations used to create a recommendation
-- template.
--
-- 'recommendationTypes', 'createRecommendationTemplate_recommendationTypes' - An array of strings that specify the recommendation template type or
-- types.
--
-- [Alarm]
--     The template is an AlarmRecommendation template.
--
-- [Sop]
--     The template is a SopRecommendation template.
--
-- [Test]
--     The template is a TestRecommendation template.
--
-- 'tags', 'createRecommendationTemplate_tags' - The tags assigned to the resource. A tag is a label that you assign to
-- an Amazon Web Services resource. Each tag consists of a key\/value pair.
--
-- 'assessmentArn', 'createRecommendationTemplate_assessmentArn' - The Amazon Resource Name (ARN) of the assessment. The format for this
-- ARN is:
-- arn:@partition@:resiliencehub:@region@:@account@:app-assessment\/@app-id@.
-- For more information about ARNs, see
-- <https://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs)>
-- in the /AWS General Reference/.
--
-- 'name', 'createRecommendationTemplate_name' - The name for the recommendation template.
newCreateRecommendationTemplate ::
  -- | 'assessmentArn'
  Prelude.Text ->
  -- | 'name'
  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_
      }

-- | The name of the Amazon S3 bucket that will contain the recommendation
-- template.
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)

-- | Used for an idempotency token. A client token is a unique,
-- case-sensitive string of up to 64 ASCII characters. You should not reuse
-- the same client token for other API requests.
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)

-- | The format for the recommendation template.
--
-- [CfnJson]
--     The template is CloudFormation JSON.
--
-- [CfnYaml]
--     The template is CloudFormation YAML.
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)

-- | Identifiers for the recommendations used to create a recommendation
-- template.
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

-- | An array of strings that specify the recommendation template type or
-- types.
--
-- [Alarm]
--     The template is an AlarmRecommendation template.
--
-- [Sop]
--     The template is a SopRecommendation template.
--
-- [Test]
--     The template is a TestRecommendation template.
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

-- | The tags assigned to the resource. A tag is a label that you assign to
-- an Amazon Web Services resource. Each tag consists of a key\/value pair.
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)

-- | The Amazon Resource Name (ARN) of the assessment. The format for this
-- ARN is:
-- arn:@partition@:resiliencehub:@region@:@account@:app-assessment\/@app-id@.
-- For more information about ARNs, see
-- <https://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs)>
-- in the /AWS General Reference/.
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)

-- | The name for the recommendation template.
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

-- | /See:/ 'newCreateRecommendationTemplateResponse' smart constructor.
data CreateRecommendationTemplateResponse = CreateRecommendationTemplateResponse'
  { -- | The newly created recommendation template, returned as an object. This
    -- object includes the template\'s name, format, status, tags, Amazon S3
    -- bucket location, and more.
    CreateRecommendationTemplateResponse
-> Maybe RecommendationTemplate
recommendationTemplate :: Prelude.Maybe RecommendationTemplate,
    -- | The response's http status code.
    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)

-- |
-- Create a value of 'CreateRecommendationTemplateResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'recommendationTemplate', 'createRecommendationTemplateResponse_recommendationTemplate' - The newly created recommendation template, returned as an object. This
-- object includes the template\'s name, format, status, tags, Amazon S3
-- bucket location, and more.
--
-- 'httpStatus', 'createRecommendationTemplateResponse_httpStatus' - The response's http status code.
newCreateRecommendationTemplateResponse ::
  -- | 'httpStatus'
  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_
    }

-- | The newly created recommendation template, returned as an object. This
-- object includes the template\'s name, format, status, tags, Amazon S3
-- bucket location, and more.
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)

-- | The response's http status code.
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