{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE NoImplicitPrelude #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Amazonka.WellArchitected.Types.Answer -- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) module Amazonka.WellArchitected.Types.Answer 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 Amazonka.WellArchitected.Types.AnswerReason import Amazonka.WellArchitected.Types.Choice import Amazonka.WellArchitected.Types.ChoiceAnswer import Amazonka.WellArchitected.Types.Risk -- | An answer of the question. -- -- /See:/ 'newAnswer' smart constructor. data Answer = Answer' { -- | A list of selected choices to a question in your workload. choiceAnswers :: Prelude.Maybe [ChoiceAnswer], choices :: Prelude.Maybe [Choice], -- | The helpful resource text to be displayed. helpfulResourceDisplayText :: Prelude.Maybe Prelude.Text, helpfulResourceUrl :: Prelude.Maybe Prelude.Text, improvementPlanUrl :: Prelude.Maybe Prelude.Text, isApplicable :: Prelude.Maybe Prelude.Bool, notes :: Prelude.Maybe Prelude.Text, pillarId :: Prelude.Maybe Prelude.Text, questionDescription :: Prelude.Maybe Prelude.Text, questionId :: Prelude.Maybe Prelude.Text, questionTitle :: Prelude.Maybe Prelude.Text, -- | The reason why the question is not applicable to your workload. reason :: Prelude.Maybe AnswerReason, risk :: Prelude.Maybe Risk, selectedChoices :: Prelude.Maybe [Prelude.Text] } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'Answer' with all optional fields omitted. -- -- Use or to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'choiceAnswers', 'answer_choiceAnswers' - A list of selected choices to a question in your workload. -- -- 'choices', 'answer_choices' - Undocumented member. -- -- 'helpfulResourceDisplayText', 'answer_helpfulResourceDisplayText' - The helpful resource text to be displayed. -- -- 'helpfulResourceUrl', 'answer_helpfulResourceUrl' - Undocumented member. -- -- 'improvementPlanUrl', 'answer_improvementPlanUrl' - Undocumented member. -- -- 'isApplicable', 'answer_isApplicable' - Undocumented member. -- -- 'notes', 'answer_notes' - Undocumented member. -- -- 'pillarId', 'answer_pillarId' - Undocumented member. -- -- 'questionDescription', 'answer_questionDescription' - Undocumented member. -- -- 'questionId', 'answer_questionId' - Undocumented member. -- -- 'questionTitle', 'answer_questionTitle' - Undocumented member. -- -- 'reason', 'answer_reason' - The reason why the question is not applicable to your workload. -- -- 'risk', 'answer_risk' - Undocumented member. -- -- 'selectedChoices', 'answer_selectedChoices' - Undocumented member. newAnswer :: Answer newAnswer = Answer' { choiceAnswers = Prelude.Nothing, choices = Prelude.Nothing, helpfulResourceDisplayText = Prelude.Nothing, helpfulResourceUrl = Prelude.Nothing, improvementPlanUrl = Prelude.Nothing, isApplicable = Prelude.Nothing, notes = Prelude.Nothing, pillarId = Prelude.Nothing, questionDescription = Prelude.Nothing, questionId = Prelude.Nothing, questionTitle = Prelude.Nothing, reason = Prelude.Nothing, risk = Prelude.Nothing, selectedChoices = Prelude.Nothing } -- | A list of selected choices to a question in your workload. answer_choiceAnswers :: Lens.Lens' Answer (Prelude.Maybe [ChoiceAnswer]) answer_choiceAnswers = Lens.lens (\Answer' {choiceAnswers} -> choiceAnswers) (\s@Answer' {} a -> s {choiceAnswers = a} :: Answer) Prelude.. Lens.mapping Lens.coerced -- | Undocumented member. answer_choices :: Lens.Lens' Answer (Prelude.Maybe [Choice]) answer_choices = Lens.lens (\Answer' {choices} -> choices) (\s@Answer' {} a -> s {choices = a} :: Answer) Prelude.. Lens.mapping Lens.coerced -- | The helpful resource text to be displayed. answer_helpfulResourceDisplayText :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text) answer_helpfulResourceDisplayText = Lens.lens (\Answer' {helpfulResourceDisplayText} -> helpfulResourceDisplayText) (\s@Answer' {} a -> s {helpfulResourceDisplayText = a} :: Answer) -- | Undocumented member. answer_helpfulResourceUrl :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text) answer_helpfulResourceUrl = Lens.lens (\Answer' {helpfulResourceUrl} -> helpfulResourceUrl) (\s@Answer' {} a -> s {helpfulResourceUrl = a} :: Answer) -- | Undocumented member. answer_improvementPlanUrl :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text) answer_improvementPlanUrl = Lens.lens (\Answer' {improvementPlanUrl} -> improvementPlanUrl) (\s@Answer' {} a -> s {improvementPlanUrl = a} :: Answer) -- | Undocumented member. answer_isApplicable :: Lens.Lens' Answer (Prelude.Maybe Prelude.Bool) answer_isApplicable = Lens.lens (\Answer' {isApplicable} -> isApplicable) (\s@Answer' {} a -> s {isApplicable = a} :: Answer) -- | Undocumented member. answer_notes :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text) answer_notes = Lens.lens (\Answer' {notes} -> notes) (\s@Answer' {} a -> s {notes = a} :: Answer) -- | Undocumented member. answer_pillarId :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text) answer_pillarId = Lens.lens (\Answer' {pillarId} -> pillarId) (\s@Answer' {} a -> s {pillarId = a} :: Answer) -- | Undocumented member. answer_questionDescription :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text) answer_questionDescription = Lens.lens (\Answer' {questionDescription} -> questionDescription) (\s@Answer' {} a -> s {questionDescription = a} :: Answer) -- | Undocumented member. answer_questionId :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text) answer_questionId = Lens.lens (\Answer' {questionId} -> questionId) (\s@Answer' {} a -> s {questionId = a} :: Answer) -- | Undocumented member. answer_questionTitle :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text) answer_questionTitle = Lens.lens (\Answer' {questionTitle} -> questionTitle) (\s@Answer' {} a -> s {questionTitle = a} :: Answer) -- | The reason why the question is not applicable to your workload. answer_reason :: Lens.Lens' Answer (Prelude.Maybe AnswerReason) answer_reason = Lens.lens (\Answer' {reason} -> reason) (\s@Answer' {} a -> s {reason = a} :: Answer) -- | Undocumented member. answer_risk :: Lens.Lens' Answer (Prelude.Maybe Risk) answer_risk = Lens.lens (\Answer' {risk} -> risk) (\s@Answer' {} a -> s {risk = a} :: Answer) -- | Undocumented member. answer_selectedChoices :: Lens.Lens' Answer (Prelude.Maybe [Prelude.Text]) answer_selectedChoices = Lens.lens (\Answer' {selectedChoices} -> selectedChoices) (\s@Answer' {} a -> s {selectedChoices = a} :: Answer) Prelude.. Lens.mapping Lens.coerced instance Data.FromJSON Answer where parseJSON = Data.withObject "Answer" ( \x -> Answer' Prelude.<$> (x Data..:? "ChoiceAnswers" Data..!= Prelude.mempty) Prelude.<*> (x Data..:? "Choices" Data..!= Prelude.mempty) Prelude.<*> (x Data..:? "HelpfulResourceDisplayText") Prelude.<*> (x Data..:? "HelpfulResourceUrl") Prelude.<*> (x Data..:? "ImprovementPlanUrl") Prelude.<*> (x Data..:? "IsApplicable") Prelude.<*> (x Data..:? "Notes") Prelude.<*> (x Data..:? "PillarId") Prelude.<*> (x Data..:? "QuestionDescription") Prelude.<*> (x Data..:? "QuestionId") Prelude.<*> (x Data..:? "QuestionTitle") Prelude.<*> (x Data..:? "Reason") Prelude.<*> (x Data..:? "Risk") Prelude.<*> ( x Data..:? "SelectedChoices" Data..!= Prelude.mempty ) ) instance Prelude.Hashable Answer where hashWithSalt _salt Answer' {..} = _salt `Prelude.hashWithSalt` choiceAnswers `Prelude.hashWithSalt` choices `Prelude.hashWithSalt` helpfulResourceDisplayText `Prelude.hashWithSalt` helpfulResourceUrl `Prelude.hashWithSalt` improvementPlanUrl `Prelude.hashWithSalt` isApplicable `Prelude.hashWithSalt` notes `Prelude.hashWithSalt` pillarId `Prelude.hashWithSalt` questionDescription `Prelude.hashWithSalt` questionId `Prelude.hashWithSalt` questionTitle `Prelude.hashWithSalt` reason `Prelude.hashWithSalt` risk `Prelude.hashWithSalt` selectedChoices instance Prelude.NFData Answer where rnf Answer' {..} = Prelude.rnf choiceAnswers `Prelude.seq` Prelude.rnf choices `Prelude.seq` Prelude.rnf helpfulResourceDisplayText `Prelude.seq` Prelude.rnf helpfulResourceUrl `Prelude.seq` Prelude.rnf improvementPlanUrl `Prelude.seq` Prelude.rnf isApplicable `Prelude.seq` Prelude.rnf notes `Prelude.seq` Prelude.rnf pillarId `Prelude.seq` Prelude.rnf questionDescription `Prelude.seq` Prelude.rnf questionId `Prelude.seq` Prelude.rnf questionTitle `Prelude.seq` Prelude.rnf reason `Prelude.seq` Prelude.rnf risk `Prelude.seq` Prelude.rnf selectedChoices