{-# 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.BatchAssociateAssessmentReportEvidence
(
BatchAssociateAssessmentReportEvidence (..),
newBatchAssociateAssessmentReportEvidence,
batchAssociateAssessmentReportEvidence_assessmentId,
batchAssociateAssessmentReportEvidence_evidenceFolderId,
batchAssociateAssessmentReportEvidence_evidenceIds,
BatchAssociateAssessmentReportEvidenceResponse (..),
newBatchAssociateAssessmentReportEvidenceResponse,
batchAssociateAssessmentReportEvidenceResponse_errors,
batchAssociateAssessmentReportEvidenceResponse_evidenceIds,
batchAssociateAssessmentReportEvidenceResponse_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 BatchAssociateAssessmentReportEvidence = BatchAssociateAssessmentReportEvidence'
{
BatchAssociateAssessmentReportEvidence -> Text
assessmentId :: Prelude.Text,
BatchAssociateAssessmentReportEvidence -> Text
evidenceFolderId :: Prelude.Text,
BatchAssociateAssessmentReportEvidence -> [Text]
evidenceIds :: [Prelude.Text]
}
deriving (BatchAssociateAssessmentReportEvidence
-> BatchAssociateAssessmentReportEvidence -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BatchAssociateAssessmentReportEvidence
-> BatchAssociateAssessmentReportEvidence -> Bool
$c/= :: BatchAssociateAssessmentReportEvidence
-> BatchAssociateAssessmentReportEvidence -> Bool
== :: BatchAssociateAssessmentReportEvidence
-> BatchAssociateAssessmentReportEvidence -> Bool
$c== :: BatchAssociateAssessmentReportEvidence
-> BatchAssociateAssessmentReportEvidence -> Bool
Prelude.Eq, ReadPrec [BatchAssociateAssessmentReportEvidence]
ReadPrec BatchAssociateAssessmentReportEvidence
Int -> ReadS BatchAssociateAssessmentReportEvidence
ReadS [BatchAssociateAssessmentReportEvidence]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BatchAssociateAssessmentReportEvidence]
$creadListPrec :: ReadPrec [BatchAssociateAssessmentReportEvidence]
readPrec :: ReadPrec BatchAssociateAssessmentReportEvidence
$creadPrec :: ReadPrec BatchAssociateAssessmentReportEvidence
readList :: ReadS [BatchAssociateAssessmentReportEvidence]
$creadList :: ReadS [BatchAssociateAssessmentReportEvidence]
readsPrec :: Int -> ReadS BatchAssociateAssessmentReportEvidence
$creadsPrec :: Int -> ReadS BatchAssociateAssessmentReportEvidence
Prelude.Read, Int -> BatchAssociateAssessmentReportEvidence -> ShowS
[BatchAssociateAssessmentReportEvidence] -> ShowS
BatchAssociateAssessmentReportEvidence -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BatchAssociateAssessmentReportEvidence] -> ShowS
$cshowList :: [BatchAssociateAssessmentReportEvidence] -> ShowS
show :: BatchAssociateAssessmentReportEvidence -> String
$cshow :: BatchAssociateAssessmentReportEvidence -> String
showsPrec :: Int -> BatchAssociateAssessmentReportEvidence -> ShowS
$cshowsPrec :: Int -> BatchAssociateAssessmentReportEvidence -> ShowS
Prelude.Show, forall x.
Rep BatchAssociateAssessmentReportEvidence x
-> BatchAssociateAssessmentReportEvidence
forall x.
BatchAssociateAssessmentReportEvidence
-> Rep BatchAssociateAssessmentReportEvidence x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep BatchAssociateAssessmentReportEvidence x
-> BatchAssociateAssessmentReportEvidence
$cfrom :: forall x.
BatchAssociateAssessmentReportEvidence
-> Rep BatchAssociateAssessmentReportEvidence x
Prelude.Generic)
newBatchAssociateAssessmentReportEvidence ::
Prelude.Text ->
Prelude.Text ->
BatchAssociateAssessmentReportEvidence
newBatchAssociateAssessmentReportEvidence :: Text -> Text -> BatchAssociateAssessmentReportEvidence
newBatchAssociateAssessmentReportEvidence
Text
pAssessmentId_
Text
pEvidenceFolderId_ =
BatchAssociateAssessmentReportEvidence'
{ $sel:assessmentId:BatchAssociateAssessmentReportEvidence' :: Text
assessmentId =
Text
pAssessmentId_,
$sel:evidenceFolderId:BatchAssociateAssessmentReportEvidence' :: Text
evidenceFolderId =
Text
pEvidenceFolderId_,
$sel:evidenceIds:BatchAssociateAssessmentReportEvidence' :: [Text]
evidenceIds = forall a. Monoid a => a
Prelude.mempty
}
batchAssociateAssessmentReportEvidence_assessmentId :: Lens.Lens' BatchAssociateAssessmentReportEvidence Prelude.Text
batchAssociateAssessmentReportEvidence_assessmentId :: Lens' BatchAssociateAssessmentReportEvidence Text
batchAssociateAssessmentReportEvidence_assessmentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchAssociateAssessmentReportEvidence' {Text
assessmentId :: Text
$sel:assessmentId:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> Text
assessmentId} -> Text
assessmentId) (\s :: BatchAssociateAssessmentReportEvidence
s@BatchAssociateAssessmentReportEvidence' {} Text
a -> BatchAssociateAssessmentReportEvidence
s {$sel:assessmentId:BatchAssociateAssessmentReportEvidence' :: Text
assessmentId = Text
a} :: BatchAssociateAssessmentReportEvidence)
batchAssociateAssessmentReportEvidence_evidenceFolderId :: Lens.Lens' BatchAssociateAssessmentReportEvidence Prelude.Text
batchAssociateAssessmentReportEvidence_evidenceFolderId :: Lens' BatchAssociateAssessmentReportEvidence Text
batchAssociateAssessmentReportEvidence_evidenceFolderId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchAssociateAssessmentReportEvidence' {Text
evidenceFolderId :: Text
$sel:evidenceFolderId:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> Text
evidenceFolderId} -> Text
evidenceFolderId) (\s :: BatchAssociateAssessmentReportEvidence
s@BatchAssociateAssessmentReportEvidence' {} Text
a -> BatchAssociateAssessmentReportEvidence
s {$sel:evidenceFolderId:BatchAssociateAssessmentReportEvidence' :: Text
evidenceFolderId = Text
a} :: BatchAssociateAssessmentReportEvidence)
batchAssociateAssessmentReportEvidence_evidenceIds :: Lens.Lens' BatchAssociateAssessmentReportEvidence [Prelude.Text]
batchAssociateAssessmentReportEvidence_evidenceIds :: Lens' BatchAssociateAssessmentReportEvidence [Text]
batchAssociateAssessmentReportEvidence_evidenceIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchAssociateAssessmentReportEvidence' {[Text]
evidenceIds :: [Text]
$sel:evidenceIds:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> [Text]
evidenceIds} -> [Text]
evidenceIds) (\s :: BatchAssociateAssessmentReportEvidence
s@BatchAssociateAssessmentReportEvidence' {} [Text]
a -> BatchAssociateAssessmentReportEvidence
s {$sel:evidenceIds:BatchAssociateAssessmentReportEvidence' :: [Text]
evidenceIds = [Text]
a} :: BatchAssociateAssessmentReportEvidence) 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
instance
Core.AWSRequest
BatchAssociateAssessmentReportEvidence
where
type
AWSResponse
BatchAssociateAssessmentReportEvidence =
BatchAssociateAssessmentReportEvidenceResponse
request :: (Service -> Service)
-> BatchAssociateAssessmentReportEvidence
-> Request BatchAssociateAssessmentReportEvidence
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy BatchAssociateAssessmentReportEvidence
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse BatchAssociateAssessmentReportEvidence)))
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 [AssessmentReportEvidenceError]
-> Maybe [Text]
-> Int
-> BatchAssociateAssessmentReportEvidenceResponse
BatchAssociateAssessmentReportEvidenceResponse'
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
"errors" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ 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 -> Either String (Maybe a)
Data..?> Key
"evidenceIds" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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
BatchAssociateAssessmentReportEvidence
where
hashWithSalt :: Int -> BatchAssociateAssessmentReportEvidence -> Int
hashWithSalt
Int
_salt
BatchAssociateAssessmentReportEvidence' {[Text]
Text
evidenceIds :: [Text]
evidenceFolderId :: Text
assessmentId :: Text
$sel:evidenceIds:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> [Text]
$sel:evidenceFolderId:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> Text
$sel:assessmentId:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
assessmentId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
evidenceFolderId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
evidenceIds
instance
Prelude.NFData
BatchAssociateAssessmentReportEvidence
where
rnf :: BatchAssociateAssessmentReportEvidence -> ()
rnf BatchAssociateAssessmentReportEvidence' {[Text]
Text
evidenceIds :: [Text]
evidenceFolderId :: Text
assessmentId :: Text
$sel:evidenceIds:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> [Text]
$sel:evidenceFolderId:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> Text
$sel:assessmentId:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
assessmentId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
evidenceFolderId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
evidenceIds
instance
Data.ToHeaders
BatchAssociateAssessmentReportEvidence
where
toHeaders :: BatchAssociateAssessmentReportEvidence -> 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
BatchAssociateAssessmentReportEvidence
where
toJSON :: BatchAssociateAssessmentReportEvidence -> Value
toJSON BatchAssociateAssessmentReportEvidence' {[Text]
Text
evidenceIds :: [Text]
evidenceFolderId :: Text
assessmentId :: Text
$sel:evidenceIds:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> [Text]
$sel:evidenceFolderId:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> Text
$sel:assessmentId:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"evidenceFolderId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
evidenceFolderId),
forall a. a -> Maybe a
Prelude.Just (Key
"evidenceIds" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [Text]
evidenceIds)
]
)
instance
Data.ToPath
BatchAssociateAssessmentReportEvidence
where
toPath :: BatchAssociateAssessmentReportEvidence -> ByteString
toPath BatchAssociateAssessmentReportEvidence' {[Text]
Text
evidenceIds :: [Text]
evidenceFolderId :: Text
assessmentId :: Text
$sel:evidenceIds:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> [Text]
$sel:evidenceFolderId:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> Text
$sel:assessmentId:BatchAssociateAssessmentReportEvidence' :: BatchAssociateAssessmentReportEvidence -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/assessments/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
assessmentId,
ByteString
"/batchAssociateToAssessmentReport"
]
instance
Data.ToQuery
BatchAssociateAssessmentReportEvidence
where
toQuery :: BatchAssociateAssessmentReportEvidence -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data BatchAssociateAssessmentReportEvidenceResponse = BatchAssociateAssessmentReportEvidenceResponse'
{
BatchAssociateAssessmentReportEvidenceResponse
-> Maybe [AssessmentReportEvidenceError]
errors :: Prelude.Maybe [AssessmentReportEvidenceError],
BatchAssociateAssessmentReportEvidenceResponse -> Maybe [Text]
evidenceIds :: Prelude.Maybe [Prelude.Text],
BatchAssociateAssessmentReportEvidenceResponse -> Int
httpStatus :: Prelude.Int
}
deriving (BatchAssociateAssessmentReportEvidenceResponse
-> BatchAssociateAssessmentReportEvidenceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BatchAssociateAssessmentReportEvidenceResponse
-> BatchAssociateAssessmentReportEvidenceResponse -> Bool
$c/= :: BatchAssociateAssessmentReportEvidenceResponse
-> BatchAssociateAssessmentReportEvidenceResponse -> Bool
== :: BatchAssociateAssessmentReportEvidenceResponse
-> BatchAssociateAssessmentReportEvidenceResponse -> Bool
$c== :: BatchAssociateAssessmentReportEvidenceResponse
-> BatchAssociateAssessmentReportEvidenceResponse -> Bool
Prelude.Eq, ReadPrec [BatchAssociateAssessmentReportEvidenceResponse]
ReadPrec BatchAssociateAssessmentReportEvidenceResponse
Int -> ReadS BatchAssociateAssessmentReportEvidenceResponse
ReadS [BatchAssociateAssessmentReportEvidenceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BatchAssociateAssessmentReportEvidenceResponse]
$creadListPrec :: ReadPrec [BatchAssociateAssessmentReportEvidenceResponse]
readPrec :: ReadPrec BatchAssociateAssessmentReportEvidenceResponse
$creadPrec :: ReadPrec BatchAssociateAssessmentReportEvidenceResponse
readList :: ReadS [BatchAssociateAssessmentReportEvidenceResponse]
$creadList :: ReadS [BatchAssociateAssessmentReportEvidenceResponse]
readsPrec :: Int -> ReadS BatchAssociateAssessmentReportEvidenceResponse
$creadsPrec :: Int -> ReadS BatchAssociateAssessmentReportEvidenceResponse
Prelude.Read, Int -> BatchAssociateAssessmentReportEvidenceResponse -> ShowS
[BatchAssociateAssessmentReportEvidenceResponse] -> ShowS
BatchAssociateAssessmentReportEvidenceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BatchAssociateAssessmentReportEvidenceResponse] -> ShowS
$cshowList :: [BatchAssociateAssessmentReportEvidenceResponse] -> ShowS
show :: BatchAssociateAssessmentReportEvidenceResponse -> String
$cshow :: BatchAssociateAssessmentReportEvidenceResponse -> String
showsPrec :: Int -> BatchAssociateAssessmentReportEvidenceResponse -> ShowS
$cshowsPrec :: Int -> BatchAssociateAssessmentReportEvidenceResponse -> ShowS
Prelude.Show, forall x.
Rep BatchAssociateAssessmentReportEvidenceResponse x
-> BatchAssociateAssessmentReportEvidenceResponse
forall x.
BatchAssociateAssessmentReportEvidenceResponse
-> Rep BatchAssociateAssessmentReportEvidenceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep BatchAssociateAssessmentReportEvidenceResponse x
-> BatchAssociateAssessmentReportEvidenceResponse
$cfrom :: forall x.
BatchAssociateAssessmentReportEvidenceResponse
-> Rep BatchAssociateAssessmentReportEvidenceResponse x
Prelude.Generic)
newBatchAssociateAssessmentReportEvidenceResponse ::
Prelude.Int ->
BatchAssociateAssessmentReportEvidenceResponse
newBatchAssociateAssessmentReportEvidenceResponse :: Int -> BatchAssociateAssessmentReportEvidenceResponse
newBatchAssociateAssessmentReportEvidenceResponse
Int
pHttpStatus_ =
BatchAssociateAssessmentReportEvidenceResponse'
{ $sel:errors:BatchAssociateAssessmentReportEvidenceResponse' :: Maybe [AssessmentReportEvidenceError]
errors =
forall a. Maybe a
Prelude.Nothing,
$sel:evidenceIds:BatchAssociateAssessmentReportEvidenceResponse' :: Maybe [Text]
evidenceIds =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:BatchAssociateAssessmentReportEvidenceResponse' :: Int
httpStatus = Int
pHttpStatus_
}
batchAssociateAssessmentReportEvidenceResponse_errors :: Lens.Lens' BatchAssociateAssessmentReportEvidenceResponse (Prelude.Maybe [AssessmentReportEvidenceError])
batchAssociateAssessmentReportEvidenceResponse_errors :: Lens'
BatchAssociateAssessmentReportEvidenceResponse
(Maybe [AssessmentReportEvidenceError])
batchAssociateAssessmentReportEvidenceResponse_errors = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchAssociateAssessmentReportEvidenceResponse' {Maybe [AssessmentReportEvidenceError]
errors :: Maybe [AssessmentReportEvidenceError]
$sel:errors:BatchAssociateAssessmentReportEvidenceResponse' :: BatchAssociateAssessmentReportEvidenceResponse
-> Maybe [AssessmentReportEvidenceError]
errors} -> Maybe [AssessmentReportEvidenceError]
errors) (\s :: BatchAssociateAssessmentReportEvidenceResponse
s@BatchAssociateAssessmentReportEvidenceResponse' {} Maybe [AssessmentReportEvidenceError]
a -> BatchAssociateAssessmentReportEvidenceResponse
s {$sel:errors:BatchAssociateAssessmentReportEvidenceResponse' :: Maybe [AssessmentReportEvidenceError]
errors = Maybe [AssessmentReportEvidenceError]
a} :: BatchAssociateAssessmentReportEvidenceResponse) 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
batchAssociateAssessmentReportEvidenceResponse_evidenceIds :: Lens.Lens' BatchAssociateAssessmentReportEvidenceResponse (Prelude.Maybe [Prelude.Text])
batchAssociateAssessmentReportEvidenceResponse_evidenceIds :: Lens' BatchAssociateAssessmentReportEvidenceResponse (Maybe [Text])
batchAssociateAssessmentReportEvidenceResponse_evidenceIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchAssociateAssessmentReportEvidenceResponse' {Maybe [Text]
evidenceIds :: Maybe [Text]
$sel:evidenceIds:BatchAssociateAssessmentReportEvidenceResponse' :: BatchAssociateAssessmentReportEvidenceResponse -> Maybe [Text]
evidenceIds} -> Maybe [Text]
evidenceIds) (\s :: BatchAssociateAssessmentReportEvidenceResponse
s@BatchAssociateAssessmentReportEvidenceResponse' {} Maybe [Text]
a -> BatchAssociateAssessmentReportEvidenceResponse
s {$sel:evidenceIds:BatchAssociateAssessmentReportEvidenceResponse' :: Maybe [Text]
evidenceIds = Maybe [Text]
a} :: BatchAssociateAssessmentReportEvidenceResponse) 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
batchAssociateAssessmentReportEvidenceResponse_httpStatus :: Lens.Lens' BatchAssociateAssessmentReportEvidenceResponse Prelude.Int
batchAssociateAssessmentReportEvidenceResponse_httpStatus :: Lens' BatchAssociateAssessmentReportEvidenceResponse Int
batchAssociateAssessmentReportEvidenceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchAssociateAssessmentReportEvidenceResponse' {Int
httpStatus :: Int
$sel:httpStatus:BatchAssociateAssessmentReportEvidenceResponse' :: BatchAssociateAssessmentReportEvidenceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: BatchAssociateAssessmentReportEvidenceResponse
s@BatchAssociateAssessmentReportEvidenceResponse' {} Int
a -> BatchAssociateAssessmentReportEvidenceResponse
s {$sel:httpStatus:BatchAssociateAssessmentReportEvidenceResponse' :: Int
httpStatus = Int
a} :: BatchAssociateAssessmentReportEvidenceResponse)
instance
Prelude.NFData
BatchAssociateAssessmentReportEvidenceResponse
where
rnf :: BatchAssociateAssessmentReportEvidenceResponse -> ()
rnf
BatchAssociateAssessmentReportEvidenceResponse' {Int
Maybe [Text]
Maybe [AssessmentReportEvidenceError]
httpStatus :: Int
evidenceIds :: Maybe [Text]
errors :: Maybe [AssessmentReportEvidenceError]
$sel:httpStatus:BatchAssociateAssessmentReportEvidenceResponse' :: BatchAssociateAssessmentReportEvidenceResponse -> Int
$sel:evidenceIds:BatchAssociateAssessmentReportEvidenceResponse' :: BatchAssociateAssessmentReportEvidenceResponse -> Maybe [Text]
$sel:errors:BatchAssociateAssessmentReportEvidenceResponse' :: BatchAssociateAssessmentReportEvidenceResponse
-> Maybe [AssessmentReportEvidenceError]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [AssessmentReportEvidenceError]
errors
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
evidenceIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus