{-# 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 #-}
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
data Answer = Answer'
{
Answer -> Maybe [ChoiceAnswer]
choiceAnswers :: Prelude.Maybe [ChoiceAnswer],
Answer -> Maybe [Choice]
choices :: Prelude.Maybe [Choice],
Answer -> Maybe Text
helpfulResourceDisplayText :: Prelude.Maybe Prelude.Text,
Answer -> Maybe Text
helpfulResourceUrl :: Prelude.Maybe Prelude.Text,
Answer -> Maybe Text
improvementPlanUrl :: Prelude.Maybe Prelude.Text,
Answer -> Maybe Bool
isApplicable :: Prelude.Maybe Prelude.Bool,
Answer -> Maybe Text
notes :: Prelude.Maybe Prelude.Text,
Answer -> Maybe Text
pillarId :: Prelude.Maybe Prelude.Text,
Answer -> Maybe Text
questionDescription :: Prelude.Maybe Prelude.Text,
Answer -> Maybe Text
questionId :: Prelude.Maybe Prelude.Text,
Answer -> Maybe Text
questionTitle :: Prelude.Maybe Prelude.Text,
Answer -> Maybe AnswerReason
reason :: Prelude.Maybe AnswerReason,
Answer -> Maybe Risk
risk :: Prelude.Maybe Risk,
Answer -> Maybe [Text]
selectedChoices :: Prelude.Maybe [Prelude.Text]
}
deriving (Answer -> Answer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Answer -> Answer -> Bool
$c/= :: Answer -> Answer -> Bool
== :: Answer -> Answer -> Bool
$c== :: Answer -> Answer -> Bool
Prelude.Eq, ReadPrec [Answer]
ReadPrec Answer
Int -> ReadS Answer
ReadS [Answer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Answer]
$creadListPrec :: ReadPrec [Answer]
readPrec :: ReadPrec Answer
$creadPrec :: ReadPrec Answer
readList :: ReadS [Answer]
$creadList :: ReadS [Answer]
readsPrec :: Int -> ReadS Answer
$creadsPrec :: Int -> ReadS Answer
Prelude.Read, Int -> Answer -> ShowS
[Answer] -> ShowS
Answer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Answer] -> ShowS
$cshowList :: [Answer] -> ShowS
show :: Answer -> String
$cshow :: Answer -> String
showsPrec :: Int -> Answer -> ShowS
$cshowsPrec :: Int -> Answer -> ShowS
Prelude.Show, forall x. Rep Answer x -> Answer
forall x. Answer -> Rep Answer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Answer x -> Answer
$cfrom :: forall x. Answer -> Rep Answer x
Prelude.Generic)
newAnswer ::
Answer
newAnswer :: Answer
newAnswer =
Answer'
{ $sel:choiceAnswers:Answer' :: Maybe [ChoiceAnswer]
choiceAnswers = forall a. Maybe a
Prelude.Nothing,
$sel:choices:Answer' :: Maybe [Choice]
choices = forall a. Maybe a
Prelude.Nothing,
$sel:helpfulResourceDisplayText:Answer' :: Maybe Text
helpfulResourceDisplayText = forall a. Maybe a
Prelude.Nothing,
$sel:helpfulResourceUrl:Answer' :: Maybe Text
helpfulResourceUrl = forall a. Maybe a
Prelude.Nothing,
$sel:improvementPlanUrl:Answer' :: Maybe Text
improvementPlanUrl = forall a. Maybe a
Prelude.Nothing,
$sel:isApplicable:Answer' :: Maybe Bool
isApplicable = forall a. Maybe a
Prelude.Nothing,
$sel:notes:Answer' :: Maybe Text
notes = forall a. Maybe a
Prelude.Nothing,
$sel:pillarId:Answer' :: Maybe Text
pillarId = forall a. Maybe a
Prelude.Nothing,
$sel:questionDescription:Answer' :: Maybe Text
questionDescription = forall a. Maybe a
Prelude.Nothing,
$sel:questionId:Answer' :: Maybe Text
questionId = forall a. Maybe a
Prelude.Nothing,
$sel:questionTitle:Answer' :: Maybe Text
questionTitle = forall a. Maybe a
Prelude.Nothing,
$sel:reason:Answer' :: Maybe AnswerReason
reason = forall a. Maybe a
Prelude.Nothing,
$sel:risk:Answer' :: Maybe Risk
risk = forall a. Maybe a
Prelude.Nothing,
$sel:selectedChoices:Answer' :: Maybe [Text]
selectedChoices = forall a. Maybe a
Prelude.Nothing
}
answer_choiceAnswers :: Lens.Lens' Answer (Prelude.Maybe [ChoiceAnswer])
answer_choiceAnswers :: Lens' Answer (Maybe [ChoiceAnswer])
answer_choiceAnswers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe [ChoiceAnswer]
choiceAnswers :: Maybe [ChoiceAnswer]
$sel:choiceAnswers:Answer' :: Answer -> Maybe [ChoiceAnswer]
choiceAnswers} -> Maybe [ChoiceAnswer]
choiceAnswers) (\s :: Answer
s@Answer' {} Maybe [ChoiceAnswer]
a -> Answer
s {$sel:choiceAnswers:Answer' :: Maybe [ChoiceAnswer]
choiceAnswers = Maybe [ChoiceAnswer]
a} :: Answer) 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
answer_choices :: Lens.Lens' Answer (Prelude.Maybe [Choice])
answer_choices :: Lens' Answer (Maybe [Choice])
answer_choices = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe [Choice]
choices :: Maybe [Choice]
$sel:choices:Answer' :: Answer -> Maybe [Choice]
choices} -> Maybe [Choice]
choices) (\s :: Answer
s@Answer' {} Maybe [Choice]
a -> Answer
s {$sel:choices:Answer' :: Maybe [Choice]
choices = Maybe [Choice]
a} :: Answer) 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
answer_helpfulResourceDisplayText :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text)
answer_helpfulResourceDisplayText :: Lens' Answer (Maybe Text)
answer_helpfulResourceDisplayText = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe Text
helpfulResourceDisplayText :: Maybe Text
$sel:helpfulResourceDisplayText:Answer' :: Answer -> Maybe Text
helpfulResourceDisplayText} -> Maybe Text
helpfulResourceDisplayText) (\s :: Answer
s@Answer' {} Maybe Text
a -> Answer
s {$sel:helpfulResourceDisplayText:Answer' :: Maybe Text
helpfulResourceDisplayText = Maybe Text
a} :: Answer)
answer_helpfulResourceUrl :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text)
answer_helpfulResourceUrl :: Lens' Answer (Maybe Text)
answer_helpfulResourceUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe Text
helpfulResourceUrl :: Maybe Text
$sel:helpfulResourceUrl:Answer' :: Answer -> Maybe Text
helpfulResourceUrl} -> Maybe Text
helpfulResourceUrl) (\s :: Answer
s@Answer' {} Maybe Text
a -> Answer
s {$sel:helpfulResourceUrl:Answer' :: Maybe Text
helpfulResourceUrl = Maybe Text
a} :: Answer)
answer_improvementPlanUrl :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text)
answer_improvementPlanUrl :: Lens' Answer (Maybe Text)
answer_improvementPlanUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe Text
improvementPlanUrl :: Maybe Text
$sel:improvementPlanUrl:Answer' :: Answer -> Maybe Text
improvementPlanUrl} -> Maybe Text
improvementPlanUrl) (\s :: Answer
s@Answer' {} Maybe Text
a -> Answer
s {$sel:improvementPlanUrl:Answer' :: Maybe Text
improvementPlanUrl = Maybe Text
a} :: Answer)
answer_isApplicable :: Lens.Lens' Answer (Prelude.Maybe Prelude.Bool)
answer_isApplicable :: Lens' Answer (Maybe Bool)
answer_isApplicable = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe Bool
isApplicable :: Maybe Bool
$sel:isApplicable:Answer' :: Answer -> Maybe Bool
isApplicable} -> Maybe Bool
isApplicable) (\s :: Answer
s@Answer' {} Maybe Bool
a -> Answer
s {$sel:isApplicable:Answer' :: Maybe Bool
isApplicable = Maybe Bool
a} :: Answer)
answer_notes :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text)
answer_notes :: Lens' Answer (Maybe Text)
answer_notes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe Text
notes :: Maybe Text
$sel:notes:Answer' :: Answer -> Maybe Text
notes} -> Maybe Text
notes) (\s :: Answer
s@Answer' {} Maybe Text
a -> Answer
s {$sel:notes:Answer' :: Maybe Text
notes = Maybe Text
a} :: Answer)
answer_pillarId :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text)
answer_pillarId :: Lens' Answer (Maybe Text)
answer_pillarId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe Text
pillarId :: Maybe Text
$sel:pillarId:Answer' :: Answer -> Maybe Text
pillarId} -> Maybe Text
pillarId) (\s :: Answer
s@Answer' {} Maybe Text
a -> Answer
s {$sel:pillarId:Answer' :: Maybe Text
pillarId = Maybe Text
a} :: Answer)
answer_questionDescription :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text)
answer_questionDescription :: Lens' Answer (Maybe Text)
answer_questionDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe Text
questionDescription :: Maybe Text
$sel:questionDescription:Answer' :: Answer -> Maybe Text
questionDescription} -> Maybe Text
questionDescription) (\s :: Answer
s@Answer' {} Maybe Text
a -> Answer
s {$sel:questionDescription:Answer' :: Maybe Text
questionDescription = Maybe Text
a} :: Answer)
answer_questionId :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text)
answer_questionId :: Lens' Answer (Maybe Text)
answer_questionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe Text
questionId :: Maybe Text
$sel:questionId:Answer' :: Answer -> Maybe Text
questionId} -> Maybe Text
questionId) (\s :: Answer
s@Answer' {} Maybe Text
a -> Answer
s {$sel:questionId:Answer' :: Maybe Text
questionId = Maybe Text
a} :: Answer)
answer_questionTitle :: Lens.Lens' Answer (Prelude.Maybe Prelude.Text)
answer_questionTitle :: Lens' Answer (Maybe Text)
answer_questionTitle = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe Text
questionTitle :: Maybe Text
$sel:questionTitle:Answer' :: Answer -> Maybe Text
questionTitle} -> Maybe Text
questionTitle) (\s :: Answer
s@Answer' {} Maybe Text
a -> Answer
s {$sel:questionTitle:Answer' :: Maybe Text
questionTitle = Maybe Text
a} :: Answer)
answer_reason :: Lens.Lens' Answer (Prelude.Maybe AnswerReason)
answer_reason :: Lens' Answer (Maybe AnswerReason)
answer_reason = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe AnswerReason
reason :: Maybe AnswerReason
$sel:reason:Answer' :: Answer -> Maybe AnswerReason
reason} -> Maybe AnswerReason
reason) (\s :: Answer
s@Answer' {} Maybe AnswerReason
a -> Answer
s {$sel:reason:Answer' :: Maybe AnswerReason
reason = Maybe AnswerReason
a} :: Answer)
answer_risk :: Lens.Lens' Answer (Prelude.Maybe Risk)
answer_risk :: Lens' Answer (Maybe Risk)
answer_risk = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe Risk
risk :: Maybe Risk
$sel:risk:Answer' :: Answer -> Maybe Risk
risk} -> Maybe Risk
risk) (\s :: Answer
s@Answer' {} Maybe Risk
a -> Answer
s {$sel:risk:Answer' :: Maybe Risk
risk = Maybe Risk
a} :: Answer)
answer_selectedChoices :: Lens.Lens' Answer (Prelude.Maybe [Prelude.Text])
answer_selectedChoices :: Lens' Answer (Maybe [Text])
answer_selectedChoices = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Answer' {Maybe [Text]
selectedChoices :: Maybe [Text]
$sel:selectedChoices:Answer' :: Answer -> Maybe [Text]
selectedChoices} -> Maybe [Text]
selectedChoices) (\s :: Answer
s@Answer' {} Maybe [Text]
a -> Answer
s {$sel:selectedChoices:Answer' :: Maybe [Text]
selectedChoices = Maybe [Text]
a} :: Answer) 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
instance Data.FromJSON Answer where
parseJSON :: Value -> Parser Answer
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"Answer"
( \Object
x ->
Maybe [ChoiceAnswer]
-> Maybe [Choice]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe AnswerReason
-> Maybe Risk
-> Maybe [Text]
-> Answer
Answer'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ChoiceAnswers" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Choices" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"HelpfulResourceDisplayText")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"HelpfulResourceUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ImprovementPlanUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"IsApplicable")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Notes")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"PillarId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"QuestionDescription")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"QuestionId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"QuestionTitle")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Reason")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Risk")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"SelectedChoices"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
)
instance Prelude.Hashable Answer where
hashWithSalt :: Int -> Answer -> Int
hashWithSalt Int
_salt Answer' {Maybe Bool
Maybe [Text]
Maybe [Choice]
Maybe [ChoiceAnswer]
Maybe Text
Maybe AnswerReason
Maybe Risk
selectedChoices :: Maybe [Text]
risk :: Maybe Risk
reason :: Maybe AnswerReason
questionTitle :: Maybe Text
questionId :: Maybe Text
questionDescription :: Maybe Text
pillarId :: Maybe Text
notes :: Maybe Text
isApplicable :: Maybe Bool
improvementPlanUrl :: Maybe Text
helpfulResourceUrl :: Maybe Text
helpfulResourceDisplayText :: Maybe Text
choices :: Maybe [Choice]
choiceAnswers :: Maybe [ChoiceAnswer]
$sel:selectedChoices:Answer' :: Answer -> Maybe [Text]
$sel:risk:Answer' :: Answer -> Maybe Risk
$sel:reason:Answer' :: Answer -> Maybe AnswerReason
$sel:questionTitle:Answer' :: Answer -> Maybe Text
$sel:questionId:Answer' :: Answer -> Maybe Text
$sel:questionDescription:Answer' :: Answer -> Maybe Text
$sel:pillarId:Answer' :: Answer -> Maybe Text
$sel:notes:Answer' :: Answer -> Maybe Text
$sel:isApplicable:Answer' :: Answer -> Maybe Bool
$sel:improvementPlanUrl:Answer' :: Answer -> Maybe Text
$sel:helpfulResourceUrl:Answer' :: Answer -> Maybe Text
$sel:helpfulResourceDisplayText:Answer' :: Answer -> Maybe Text
$sel:choices:Answer' :: Answer -> Maybe [Choice]
$sel:choiceAnswers:Answer' :: Answer -> Maybe [ChoiceAnswer]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ChoiceAnswer]
choiceAnswers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Choice]
choices
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
helpfulResourceDisplayText
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
helpfulResourceUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
improvementPlanUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
isApplicable
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
notes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
pillarId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
questionDescription
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
questionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
questionTitle
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AnswerReason
reason
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Risk
risk
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
selectedChoices
instance Prelude.NFData Answer where
rnf :: Answer -> ()
rnf Answer' {Maybe Bool
Maybe [Text]
Maybe [Choice]
Maybe [ChoiceAnswer]
Maybe Text
Maybe AnswerReason
Maybe Risk
selectedChoices :: Maybe [Text]
risk :: Maybe Risk
reason :: Maybe AnswerReason
questionTitle :: Maybe Text
questionId :: Maybe Text
questionDescription :: Maybe Text
pillarId :: Maybe Text
notes :: Maybe Text
isApplicable :: Maybe Bool
improvementPlanUrl :: Maybe Text
helpfulResourceUrl :: Maybe Text
helpfulResourceDisplayText :: Maybe Text
choices :: Maybe [Choice]
choiceAnswers :: Maybe [ChoiceAnswer]
$sel:selectedChoices:Answer' :: Answer -> Maybe [Text]
$sel:risk:Answer' :: Answer -> Maybe Risk
$sel:reason:Answer' :: Answer -> Maybe AnswerReason
$sel:questionTitle:Answer' :: Answer -> Maybe Text
$sel:questionId:Answer' :: Answer -> Maybe Text
$sel:questionDescription:Answer' :: Answer -> Maybe Text
$sel:pillarId:Answer' :: Answer -> Maybe Text
$sel:notes:Answer' :: Answer -> Maybe Text
$sel:isApplicable:Answer' :: Answer -> Maybe Bool
$sel:improvementPlanUrl:Answer' :: Answer -> Maybe Text
$sel:helpfulResourceUrl:Answer' :: Answer -> Maybe Text
$sel:helpfulResourceDisplayText:Answer' :: Answer -> Maybe Text
$sel:choices:Answer' :: Answer -> Maybe [Choice]
$sel:choiceAnswers:Answer' :: Answer -> Maybe [ChoiceAnswer]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ChoiceAnswer]
choiceAnswers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Choice]
choices
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
helpfulResourceDisplayText
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
helpfulResourceUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
improvementPlanUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isApplicable
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
notes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
pillarId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
questionDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
questionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
questionTitle
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe AnswerReason
reason
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Risk
risk
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
selectedChoices