{-# 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.AuditManager.CreateAssessment
(
CreateAssessment (..),
newCreateAssessment,
createAssessment_description,
createAssessment_tags,
createAssessment_name,
createAssessment_assessmentReportsDestination,
createAssessment_scope,
createAssessment_roles,
createAssessment_frameworkId,
CreateAssessmentResponse (..),
newCreateAssessmentResponse,
createAssessmentResponse_assessment,
createAssessmentResponse_httpStatus,
)
where
import Amazonka.AuditManager.Types
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 qualified Amazonka.Response as Response
data CreateAssessment = CreateAssessment'
{
CreateAssessment -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateAssessment -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateAssessment -> Text
name :: Prelude.Text,
CreateAssessment -> AssessmentReportsDestination
assessmentReportsDestination :: AssessmentReportsDestination,
CreateAssessment -> Scope
scope :: Scope,
CreateAssessment -> [Role]
roles :: [Role],
CreateAssessment -> Text
frameworkId :: Prelude.Text
}
deriving (CreateAssessment -> CreateAssessment -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAssessment -> CreateAssessment -> Bool
$c/= :: CreateAssessment -> CreateAssessment -> Bool
== :: CreateAssessment -> CreateAssessment -> Bool
$c== :: CreateAssessment -> CreateAssessment -> Bool
Prelude.Eq, ReadPrec [CreateAssessment]
ReadPrec CreateAssessment
Int -> ReadS CreateAssessment
ReadS [CreateAssessment]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAssessment]
$creadListPrec :: ReadPrec [CreateAssessment]
readPrec :: ReadPrec CreateAssessment
$creadPrec :: ReadPrec CreateAssessment
readList :: ReadS [CreateAssessment]
$creadList :: ReadS [CreateAssessment]
readsPrec :: Int -> ReadS CreateAssessment
$creadsPrec :: Int -> ReadS CreateAssessment
Prelude.Read, Int -> CreateAssessment -> ShowS
[CreateAssessment] -> ShowS
CreateAssessment -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAssessment] -> ShowS
$cshowList :: [CreateAssessment] -> ShowS
show :: CreateAssessment -> String
$cshow :: CreateAssessment -> String
showsPrec :: Int -> CreateAssessment -> ShowS
$cshowsPrec :: Int -> CreateAssessment -> ShowS
Prelude.Show, forall x. Rep CreateAssessment x -> CreateAssessment
forall x. CreateAssessment -> Rep CreateAssessment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateAssessment x -> CreateAssessment
$cfrom :: forall x. CreateAssessment -> Rep CreateAssessment x
Prelude.Generic)
newCreateAssessment ::
Prelude.Text ->
AssessmentReportsDestination ->
Scope ->
Prelude.Text ->
CreateAssessment
newCreateAssessment :: Text
-> AssessmentReportsDestination
-> Scope
-> Text
-> CreateAssessment
newCreateAssessment
Text
pName_
AssessmentReportsDestination
pAssessmentReportsDestination_
Scope
pScope_
Text
pFrameworkId_ =
CreateAssessment'
{ $sel:description:CreateAssessment' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateAssessment' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateAssessment' :: Text
name = Text
pName_,
$sel:assessmentReportsDestination:CreateAssessment' :: AssessmentReportsDestination
assessmentReportsDestination =
AssessmentReportsDestination
pAssessmentReportsDestination_,
$sel:scope:CreateAssessment' :: Scope
scope = Scope
pScope_,
$sel:roles:CreateAssessment' :: [Role]
roles = forall a. Monoid a => a
Prelude.mempty,
$sel:frameworkId:CreateAssessment' :: Text
frameworkId = Text
pFrameworkId_
}
createAssessment_description :: Lens.Lens' CreateAssessment (Prelude.Maybe Prelude.Text)
createAssessment_description :: Lens' CreateAssessment (Maybe Text)
createAssessment_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssessment' {Maybe Text
description :: Maybe Text
$sel:description:CreateAssessment' :: CreateAssessment -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateAssessment
s@CreateAssessment' {} Maybe Text
a -> CreateAssessment
s {$sel:description:CreateAssessment' :: Maybe Text
description = Maybe Text
a} :: CreateAssessment)
createAssessment_tags :: Lens.Lens' CreateAssessment (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createAssessment_tags :: Lens' CreateAssessment (Maybe (HashMap Text Text))
createAssessment_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssessment' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateAssessment' :: CreateAssessment -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateAssessment
s@CreateAssessment' {} Maybe (HashMap Text Text)
a -> CreateAssessment
s {$sel:tags:CreateAssessment' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateAssessment) 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
createAssessment_name :: Lens.Lens' CreateAssessment Prelude.Text
createAssessment_name :: Lens' CreateAssessment Text
createAssessment_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssessment' {Text
name :: Text
$sel:name:CreateAssessment' :: CreateAssessment -> Text
name} -> Text
name) (\s :: CreateAssessment
s@CreateAssessment' {} Text
a -> CreateAssessment
s {$sel:name:CreateAssessment' :: Text
name = Text
a} :: CreateAssessment)
createAssessment_assessmentReportsDestination :: Lens.Lens' CreateAssessment AssessmentReportsDestination
createAssessment_assessmentReportsDestination :: Lens' CreateAssessment AssessmentReportsDestination
createAssessment_assessmentReportsDestination = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssessment' {AssessmentReportsDestination
assessmentReportsDestination :: AssessmentReportsDestination
$sel:assessmentReportsDestination:CreateAssessment' :: CreateAssessment -> AssessmentReportsDestination
assessmentReportsDestination} -> AssessmentReportsDestination
assessmentReportsDestination) (\s :: CreateAssessment
s@CreateAssessment' {} AssessmentReportsDestination
a -> CreateAssessment
s {$sel:assessmentReportsDestination:CreateAssessment' :: AssessmentReportsDestination
assessmentReportsDestination = AssessmentReportsDestination
a} :: CreateAssessment)
createAssessment_scope :: Lens.Lens' CreateAssessment Scope
createAssessment_scope :: Lens' CreateAssessment Scope
createAssessment_scope = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssessment' {Scope
scope :: Scope
$sel:scope:CreateAssessment' :: CreateAssessment -> Scope
scope} -> Scope
scope) (\s :: CreateAssessment
s@CreateAssessment' {} Scope
a -> CreateAssessment
s {$sel:scope:CreateAssessment' :: Scope
scope = Scope
a} :: CreateAssessment)
createAssessment_roles :: Lens.Lens' CreateAssessment [Role]
createAssessment_roles :: Lens' CreateAssessment [Role]
createAssessment_roles = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssessment' {[Role]
roles :: [Role]
$sel:roles:CreateAssessment' :: CreateAssessment -> [Role]
roles} -> [Role]
roles) (\s :: CreateAssessment
s@CreateAssessment' {} [Role]
a -> CreateAssessment
s {$sel:roles:CreateAssessment' :: [Role]
roles = [Role]
a} :: CreateAssessment) 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
createAssessment_frameworkId :: Lens.Lens' CreateAssessment Prelude.Text
createAssessment_frameworkId :: Lens' CreateAssessment Text
createAssessment_frameworkId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssessment' {Text
frameworkId :: Text
$sel:frameworkId:CreateAssessment' :: CreateAssessment -> Text
frameworkId} -> Text
frameworkId) (\s :: CreateAssessment
s@CreateAssessment' {} Text
a -> CreateAssessment
s {$sel:frameworkId:CreateAssessment' :: Text
frameworkId = Text
a} :: CreateAssessment)
instance Core.AWSRequest CreateAssessment where
type
AWSResponse CreateAssessment =
CreateAssessmentResponse
request :: (Service -> Service)
-> CreateAssessment -> Request CreateAssessment
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 CreateAssessment
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateAssessment)))
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 Assessment -> Int -> CreateAssessmentResponse
CreateAssessmentResponse'
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
"assessment")
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 CreateAssessment where
hashWithSalt :: Int -> CreateAssessment -> Int
hashWithSalt Int
_salt CreateAssessment' {[Role]
Maybe Text
Maybe (HashMap Text Text)
Text
AssessmentReportsDestination
Scope
frameworkId :: Text
roles :: [Role]
scope :: Scope
assessmentReportsDestination :: AssessmentReportsDestination
name :: Text
tags :: Maybe (HashMap Text Text)
description :: Maybe Text
$sel:frameworkId:CreateAssessment' :: CreateAssessment -> Text
$sel:roles:CreateAssessment' :: CreateAssessment -> [Role]
$sel:scope:CreateAssessment' :: CreateAssessment -> Scope
$sel:assessmentReportsDestination:CreateAssessment' :: CreateAssessment -> AssessmentReportsDestination
$sel:name:CreateAssessment' :: CreateAssessment -> Text
$sel:tags:CreateAssessment' :: CreateAssessment -> Maybe (HashMap Text Text)
$sel:description:CreateAssessment' :: CreateAssessment -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` AssessmentReportsDestination
assessmentReportsDestination
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Scope
scope
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Role]
roles
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
frameworkId
instance Prelude.NFData CreateAssessment where
rnf :: CreateAssessment -> ()
rnf CreateAssessment' {[Role]
Maybe Text
Maybe (HashMap Text Text)
Text
AssessmentReportsDestination
Scope
frameworkId :: Text
roles :: [Role]
scope :: Scope
assessmentReportsDestination :: AssessmentReportsDestination
name :: Text
tags :: Maybe (HashMap Text Text)
description :: Maybe Text
$sel:frameworkId:CreateAssessment' :: CreateAssessment -> Text
$sel:roles:CreateAssessment' :: CreateAssessment -> [Role]
$sel:scope:CreateAssessment' :: CreateAssessment -> Scope
$sel:assessmentReportsDestination:CreateAssessment' :: CreateAssessment -> AssessmentReportsDestination
$sel:name:CreateAssessment' :: CreateAssessment -> Text
$sel:tags:CreateAssessment' :: CreateAssessment -> Maybe (HashMap Text Text)
$sel:description:CreateAssessment' :: CreateAssessment -> Maybe Text
..} =
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 (HashMap Text Text)
tags
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 AssessmentReportsDestination
assessmentReportsDestination
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Scope
scope
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Role]
roles
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
frameworkId
instance Data.ToHeaders CreateAssessment where
toHeaders :: CreateAssessment -> 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 CreateAssessment where
toJSON :: CreateAssessment -> Value
toJSON CreateAssessment' {[Role]
Maybe Text
Maybe (HashMap Text Text)
Text
AssessmentReportsDestination
Scope
frameworkId :: Text
roles :: [Role]
scope :: Scope
assessmentReportsDestination :: AssessmentReportsDestination
name :: Text
tags :: Maybe (HashMap Text Text)
description :: Maybe Text
$sel:frameworkId:CreateAssessment' :: CreateAssessment -> Text
$sel:roles:CreateAssessment' :: CreateAssessment -> [Role]
$sel:scope:CreateAssessment' :: CreateAssessment -> Scope
$sel:assessmentReportsDestination:CreateAssessment' :: CreateAssessment -> AssessmentReportsDestination
$sel:name:CreateAssessment' :: CreateAssessment -> Text
$sel:tags:CreateAssessment' :: CreateAssessment -> Maybe (HashMap Text Text)
$sel:description:CreateAssessment' :: CreateAssessment -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (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
"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,
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
"assessmentReportsDestination"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= AssessmentReportsDestination
assessmentReportsDestination
),
forall a. a -> Maybe a
Prelude.Just (Key
"scope" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Scope
scope),
forall a. a -> Maybe a
Prelude.Just (Key
"roles" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [Role]
roles),
forall a. a -> Maybe a
Prelude.Just (Key
"frameworkId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
frameworkId)
]
)
instance Data.ToPath CreateAssessment where
toPath :: CreateAssessment -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/assessments"
instance Data.ToQuery CreateAssessment where
toQuery :: CreateAssessment -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateAssessmentResponse = CreateAssessmentResponse'
{ CreateAssessmentResponse -> Maybe Assessment
assessment :: Prelude.Maybe Assessment,
CreateAssessmentResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateAssessmentResponse -> CreateAssessmentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAssessmentResponse -> CreateAssessmentResponse -> Bool
$c/= :: CreateAssessmentResponse -> CreateAssessmentResponse -> Bool
== :: CreateAssessmentResponse -> CreateAssessmentResponse -> Bool
$c== :: CreateAssessmentResponse -> CreateAssessmentResponse -> Bool
Prelude.Eq, ReadPrec [CreateAssessmentResponse]
ReadPrec CreateAssessmentResponse
Int -> ReadS CreateAssessmentResponse
ReadS [CreateAssessmentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAssessmentResponse]
$creadListPrec :: ReadPrec [CreateAssessmentResponse]
readPrec :: ReadPrec CreateAssessmentResponse
$creadPrec :: ReadPrec CreateAssessmentResponse
readList :: ReadS [CreateAssessmentResponse]
$creadList :: ReadS [CreateAssessmentResponse]
readsPrec :: Int -> ReadS CreateAssessmentResponse
$creadsPrec :: Int -> ReadS CreateAssessmentResponse
Prelude.Read, Int -> CreateAssessmentResponse -> ShowS
[CreateAssessmentResponse] -> ShowS
CreateAssessmentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAssessmentResponse] -> ShowS
$cshowList :: [CreateAssessmentResponse] -> ShowS
show :: CreateAssessmentResponse -> String
$cshow :: CreateAssessmentResponse -> String
showsPrec :: Int -> CreateAssessmentResponse -> ShowS
$cshowsPrec :: Int -> CreateAssessmentResponse -> ShowS
Prelude.Show, forall x.
Rep CreateAssessmentResponse x -> CreateAssessmentResponse
forall x.
CreateAssessmentResponse -> Rep CreateAssessmentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateAssessmentResponse x -> CreateAssessmentResponse
$cfrom :: forall x.
CreateAssessmentResponse -> Rep CreateAssessmentResponse x
Prelude.Generic)
newCreateAssessmentResponse ::
Prelude.Int ->
CreateAssessmentResponse
newCreateAssessmentResponse :: Int -> CreateAssessmentResponse
newCreateAssessmentResponse Int
pHttpStatus_ =
CreateAssessmentResponse'
{ $sel:assessment:CreateAssessmentResponse' :: Maybe Assessment
assessment =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateAssessmentResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createAssessmentResponse_assessment :: Lens.Lens' CreateAssessmentResponse (Prelude.Maybe Assessment)
createAssessmentResponse_assessment :: Lens' CreateAssessmentResponse (Maybe Assessment)
createAssessmentResponse_assessment = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssessmentResponse' {Maybe Assessment
assessment :: Maybe Assessment
$sel:assessment:CreateAssessmentResponse' :: CreateAssessmentResponse -> Maybe Assessment
assessment} -> Maybe Assessment
assessment) (\s :: CreateAssessmentResponse
s@CreateAssessmentResponse' {} Maybe Assessment
a -> CreateAssessmentResponse
s {$sel:assessment:CreateAssessmentResponse' :: Maybe Assessment
assessment = Maybe Assessment
a} :: CreateAssessmentResponse)
createAssessmentResponse_httpStatus :: Lens.Lens' CreateAssessmentResponse Prelude.Int
createAssessmentResponse_httpStatus :: Lens' CreateAssessmentResponse Int
createAssessmentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssessmentResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateAssessmentResponse' :: CreateAssessmentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateAssessmentResponse
s@CreateAssessmentResponse' {} Int
a -> CreateAssessmentResponse
s {$sel:httpStatus:CreateAssessmentResponse' :: Int
httpStatus = Int
a} :: CreateAssessmentResponse)
instance Prelude.NFData CreateAssessmentResponse where
rnf :: CreateAssessmentResponse -> ()
rnf CreateAssessmentResponse' {Int
Maybe Assessment
httpStatus :: Int
assessment :: Maybe Assessment
$sel:httpStatus:CreateAssessmentResponse' :: CreateAssessmentResponse -> Int
$sel:assessment:CreateAssessmentResponse' :: CreateAssessmentResponse -> Maybe Assessment
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Assessment
assessment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus