{-# 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.DynamoDB.BatchWriteItem
(
BatchWriteItem (..),
newBatchWriteItem,
batchWriteItem_returnConsumedCapacity,
batchWriteItem_returnItemCollectionMetrics,
batchWriteItem_requestItems,
BatchWriteItemResponse (..),
newBatchWriteItemResponse,
batchWriteItemResponse_consumedCapacity,
batchWriteItemResponse_itemCollectionMetrics,
batchWriteItemResponse_httpStatus,
batchWriteItemResponse_unprocessedItems,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DynamoDB.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data BatchWriteItem = BatchWriteItem'
{ BatchWriteItem -> Maybe ReturnConsumedCapacity
returnConsumedCapacity :: Prelude.Maybe ReturnConsumedCapacity,
BatchWriteItem -> Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics :: Prelude.Maybe ReturnItemCollectionMetrics,
BatchWriteItem -> HashMap Text (NonEmpty WriteRequest)
requestItems :: Prelude.HashMap Prelude.Text (Prelude.NonEmpty WriteRequest)
}
deriving (BatchWriteItem -> BatchWriteItem -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BatchWriteItem -> BatchWriteItem -> Bool
$c/= :: BatchWriteItem -> BatchWriteItem -> Bool
== :: BatchWriteItem -> BatchWriteItem -> Bool
$c== :: BatchWriteItem -> BatchWriteItem -> Bool
Prelude.Eq, ReadPrec [BatchWriteItem]
ReadPrec BatchWriteItem
Int -> ReadS BatchWriteItem
ReadS [BatchWriteItem]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BatchWriteItem]
$creadListPrec :: ReadPrec [BatchWriteItem]
readPrec :: ReadPrec BatchWriteItem
$creadPrec :: ReadPrec BatchWriteItem
readList :: ReadS [BatchWriteItem]
$creadList :: ReadS [BatchWriteItem]
readsPrec :: Int -> ReadS BatchWriteItem
$creadsPrec :: Int -> ReadS BatchWriteItem
Prelude.Read, Int -> BatchWriteItem -> ShowS
[BatchWriteItem] -> ShowS
BatchWriteItem -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BatchWriteItem] -> ShowS
$cshowList :: [BatchWriteItem] -> ShowS
show :: BatchWriteItem -> String
$cshow :: BatchWriteItem -> String
showsPrec :: Int -> BatchWriteItem -> ShowS
$cshowsPrec :: Int -> BatchWriteItem -> ShowS
Prelude.Show, forall x. Rep BatchWriteItem x -> BatchWriteItem
forall x. BatchWriteItem -> Rep BatchWriteItem x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep BatchWriteItem x -> BatchWriteItem
$cfrom :: forall x. BatchWriteItem -> Rep BatchWriteItem x
Prelude.Generic)
newBatchWriteItem ::
BatchWriteItem
newBatchWriteItem :: BatchWriteItem
newBatchWriteItem =
BatchWriteItem'
{ $sel:returnConsumedCapacity:BatchWriteItem' :: Maybe ReturnConsumedCapacity
returnConsumedCapacity =
forall a. Maybe a
Prelude.Nothing,
$sel:returnItemCollectionMetrics:BatchWriteItem' :: Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics = forall a. Maybe a
Prelude.Nothing,
$sel:requestItems:BatchWriteItem' :: HashMap Text (NonEmpty WriteRequest)
requestItems = forall a. Monoid a => a
Prelude.mempty
}
batchWriteItem_returnConsumedCapacity :: Lens.Lens' BatchWriteItem (Prelude.Maybe ReturnConsumedCapacity)
batchWriteItem_returnConsumedCapacity :: Lens' BatchWriteItem (Maybe ReturnConsumedCapacity)
batchWriteItem_returnConsumedCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchWriteItem' {Maybe ReturnConsumedCapacity
returnConsumedCapacity :: Maybe ReturnConsumedCapacity
$sel:returnConsumedCapacity:BatchWriteItem' :: BatchWriteItem -> Maybe ReturnConsumedCapacity
returnConsumedCapacity} -> Maybe ReturnConsumedCapacity
returnConsumedCapacity) (\s :: BatchWriteItem
s@BatchWriteItem' {} Maybe ReturnConsumedCapacity
a -> BatchWriteItem
s {$sel:returnConsumedCapacity:BatchWriteItem' :: Maybe ReturnConsumedCapacity
returnConsumedCapacity = Maybe ReturnConsumedCapacity
a} :: BatchWriteItem)
batchWriteItem_returnItemCollectionMetrics :: Lens.Lens' BatchWriteItem (Prelude.Maybe ReturnItemCollectionMetrics)
batchWriteItem_returnItemCollectionMetrics :: Lens' BatchWriteItem (Maybe ReturnItemCollectionMetrics)
batchWriteItem_returnItemCollectionMetrics = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchWriteItem' {Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
$sel:returnItemCollectionMetrics:BatchWriteItem' :: BatchWriteItem -> Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics} -> Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics) (\s :: BatchWriteItem
s@BatchWriteItem' {} Maybe ReturnItemCollectionMetrics
a -> BatchWriteItem
s {$sel:returnItemCollectionMetrics:BatchWriteItem' :: Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics = Maybe ReturnItemCollectionMetrics
a} :: BatchWriteItem)
batchWriteItem_requestItems :: Lens.Lens' BatchWriteItem (Prelude.HashMap Prelude.Text (Prelude.NonEmpty WriteRequest))
batchWriteItem_requestItems :: Lens' BatchWriteItem (HashMap Text (NonEmpty WriteRequest))
batchWriteItem_requestItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchWriteItem' {HashMap Text (NonEmpty WriteRequest)
requestItems :: HashMap Text (NonEmpty WriteRequest)
$sel:requestItems:BatchWriteItem' :: BatchWriteItem -> HashMap Text (NonEmpty WriteRequest)
requestItems} -> HashMap Text (NonEmpty WriteRequest)
requestItems) (\s :: BatchWriteItem
s@BatchWriteItem' {} HashMap Text (NonEmpty WriteRequest)
a -> BatchWriteItem
s {$sel:requestItems:BatchWriteItem' :: HashMap Text (NonEmpty WriteRequest)
requestItems = HashMap Text (NonEmpty WriteRequest)
a} :: BatchWriteItem) 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 BatchWriteItem where
type
AWSResponse BatchWriteItem =
BatchWriteItemResponse
request :: (Service -> Service) -> BatchWriteItem -> Request BatchWriteItem
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 BatchWriteItem
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse BatchWriteItem)))
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 [ConsumedCapacity]
-> Maybe (HashMap Text [ItemCollectionMetrics])
-> Int
-> HashMap Text (NonEmpty WriteRequest)
-> BatchWriteItemResponse
BatchWriteItemResponse'
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
"ConsumedCapacity"
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
"ItemCollectionMetrics"
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))
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
"UnprocessedItems"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
)
instance Prelude.Hashable BatchWriteItem where
hashWithSalt :: Int -> BatchWriteItem -> Int
hashWithSalt Int
_salt BatchWriteItem' {Maybe ReturnItemCollectionMetrics
Maybe ReturnConsumedCapacity
HashMap Text (NonEmpty WriteRequest)
requestItems :: HashMap Text (NonEmpty WriteRequest)
returnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
returnConsumedCapacity :: Maybe ReturnConsumedCapacity
$sel:requestItems:BatchWriteItem' :: BatchWriteItem -> HashMap Text (NonEmpty WriteRequest)
$sel:returnItemCollectionMetrics:BatchWriteItem' :: BatchWriteItem -> Maybe ReturnItemCollectionMetrics
$sel:returnConsumedCapacity:BatchWriteItem' :: BatchWriteItem -> Maybe ReturnConsumedCapacity
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ReturnConsumedCapacity
returnConsumedCapacity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` HashMap Text (NonEmpty WriteRequest)
requestItems
instance Prelude.NFData BatchWriteItem where
rnf :: BatchWriteItem -> ()
rnf BatchWriteItem' {Maybe ReturnItemCollectionMetrics
Maybe ReturnConsumedCapacity
HashMap Text (NonEmpty WriteRequest)
requestItems :: HashMap Text (NonEmpty WriteRequest)
returnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
returnConsumedCapacity :: Maybe ReturnConsumedCapacity
$sel:requestItems:BatchWriteItem' :: BatchWriteItem -> HashMap Text (NonEmpty WriteRequest)
$sel:returnItemCollectionMetrics:BatchWriteItem' :: BatchWriteItem -> Maybe ReturnItemCollectionMetrics
$sel:returnConsumedCapacity:BatchWriteItem' :: BatchWriteItem -> Maybe ReturnConsumedCapacity
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ReturnConsumedCapacity
returnConsumedCapacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf HashMap Text (NonEmpty WriteRequest)
requestItems
instance Data.ToHeaders BatchWriteItem where
toHeaders :: BatchWriteItem -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"DynamoDB_20120810.BatchWriteItem" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON BatchWriteItem where
toJSON :: BatchWriteItem -> Value
toJSON BatchWriteItem' {Maybe ReturnItemCollectionMetrics
Maybe ReturnConsumedCapacity
HashMap Text (NonEmpty WriteRequest)
requestItems :: HashMap Text (NonEmpty WriteRequest)
returnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
returnConsumedCapacity :: Maybe ReturnConsumedCapacity
$sel:requestItems:BatchWriteItem' :: BatchWriteItem -> HashMap Text (NonEmpty WriteRequest)
$sel:returnItemCollectionMetrics:BatchWriteItem' :: BatchWriteItem -> Maybe ReturnItemCollectionMetrics
$sel:returnConsumedCapacity:BatchWriteItem' :: BatchWriteItem -> Maybe ReturnConsumedCapacity
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ReturnConsumedCapacity" 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 ReturnConsumedCapacity
returnConsumedCapacity,
(Key
"ReturnItemCollectionMetrics" 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 ReturnItemCollectionMetrics
returnItemCollectionMetrics,
forall a. a -> Maybe a
Prelude.Just (Key
"RequestItems" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= HashMap Text (NonEmpty WriteRequest)
requestItems)
]
)
instance Data.ToPath BatchWriteItem where
toPath :: BatchWriteItem -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery BatchWriteItem where
toQuery :: BatchWriteItem -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data BatchWriteItemResponse = BatchWriteItemResponse'
{
BatchWriteItemResponse -> Maybe [ConsumedCapacity]
consumedCapacity :: Prelude.Maybe [ConsumedCapacity],
BatchWriteItemResponse
-> Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics :: Prelude.Maybe (Prelude.HashMap Prelude.Text [ItemCollectionMetrics]),
BatchWriteItemResponse -> Int
httpStatus :: Prelude.Int,
BatchWriteItemResponse -> HashMap Text (NonEmpty WriteRequest)
unprocessedItems :: Prelude.HashMap Prelude.Text (Prelude.NonEmpty WriteRequest)
}
deriving (BatchWriteItemResponse -> BatchWriteItemResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BatchWriteItemResponse -> BatchWriteItemResponse -> Bool
$c/= :: BatchWriteItemResponse -> BatchWriteItemResponse -> Bool
== :: BatchWriteItemResponse -> BatchWriteItemResponse -> Bool
$c== :: BatchWriteItemResponse -> BatchWriteItemResponse -> Bool
Prelude.Eq, ReadPrec [BatchWriteItemResponse]
ReadPrec BatchWriteItemResponse
Int -> ReadS BatchWriteItemResponse
ReadS [BatchWriteItemResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BatchWriteItemResponse]
$creadListPrec :: ReadPrec [BatchWriteItemResponse]
readPrec :: ReadPrec BatchWriteItemResponse
$creadPrec :: ReadPrec BatchWriteItemResponse
readList :: ReadS [BatchWriteItemResponse]
$creadList :: ReadS [BatchWriteItemResponse]
readsPrec :: Int -> ReadS BatchWriteItemResponse
$creadsPrec :: Int -> ReadS BatchWriteItemResponse
Prelude.Read, Int -> BatchWriteItemResponse -> ShowS
[BatchWriteItemResponse] -> ShowS
BatchWriteItemResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BatchWriteItemResponse] -> ShowS
$cshowList :: [BatchWriteItemResponse] -> ShowS
show :: BatchWriteItemResponse -> String
$cshow :: BatchWriteItemResponse -> String
showsPrec :: Int -> BatchWriteItemResponse -> ShowS
$cshowsPrec :: Int -> BatchWriteItemResponse -> ShowS
Prelude.Show, forall x. Rep BatchWriteItemResponse x -> BatchWriteItemResponse
forall x. BatchWriteItemResponse -> Rep BatchWriteItemResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep BatchWriteItemResponse x -> BatchWriteItemResponse
$cfrom :: forall x. BatchWriteItemResponse -> Rep BatchWriteItemResponse x
Prelude.Generic)
newBatchWriteItemResponse ::
Prelude.Int ->
BatchWriteItemResponse
newBatchWriteItemResponse :: Int -> BatchWriteItemResponse
newBatchWriteItemResponse Int
pHttpStatus_ =
BatchWriteItemResponse'
{ $sel:consumedCapacity:BatchWriteItemResponse' :: Maybe [ConsumedCapacity]
consumedCapacity =
forall a. Maybe a
Prelude.Nothing,
$sel:itemCollectionMetrics:BatchWriteItemResponse' :: Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:BatchWriteItemResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:unprocessedItems:BatchWriteItemResponse' :: HashMap Text (NonEmpty WriteRequest)
unprocessedItems = forall a. Monoid a => a
Prelude.mempty
}
batchWriteItemResponse_consumedCapacity :: Lens.Lens' BatchWriteItemResponse (Prelude.Maybe [ConsumedCapacity])
batchWriteItemResponse_consumedCapacity :: Lens' BatchWriteItemResponse (Maybe [ConsumedCapacity])
batchWriteItemResponse_consumedCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchWriteItemResponse' {Maybe [ConsumedCapacity]
consumedCapacity :: Maybe [ConsumedCapacity]
$sel:consumedCapacity:BatchWriteItemResponse' :: BatchWriteItemResponse -> Maybe [ConsumedCapacity]
consumedCapacity} -> Maybe [ConsumedCapacity]
consumedCapacity) (\s :: BatchWriteItemResponse
s@BatchWriteItemResponse' {} Maybe [ConsumedCapacity]
a -> BatchWriteItemResponse
s {$sel:consumedCapacity:BatchWriteItemResponse' :: Maybe [ConsumedCapacity]
consumedCapacity = Maybe [ConsumedCapacity]
a} :: BatchWriteItemResponse) 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
batchWriteItemResponse_itemCollectionMetrics :: Lens.Lens' BatchWriteItemResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text [ItemCollectionMetrics]))
batchWriteItemResponse_itemCollectionMetrics :: Lens'
BatchWriteItemResponse
(Maybe (HashMap Text [ItemCollectionMetrics]))
batchWriteItemResponse_itemCollectionMetrics = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchWriteItemResponse' {Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics :: Maybe (HashMap Text [ItemCollectionMetrics])
$sel:itemCollectionMetrics:BatchWriteItemResponse' :: BatchWriteItemResponse
-> Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics} -> Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics) (\s :: BatchWriteItemResponse
s@BatchWriteItemResponse' {} Maybe (HashMap Text [ItemCollectionMetrics])
a -> BatchWriteItemResponse
s {$sel:itemCollectionMetrics:BatchWriteItemResponse' :: Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics = Maybe (HashMap Text [ItemCollectionMetrics])
a} :: BatchWriteItemResponse) 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
batchWriteItemResponse_httpStatus :: Lens.Lens' BatchWriteItemResponse Prelude.Int
batchWriteItemResponse_httpStatus :: Lens' BatchWriteItemResponse Int
batchWriteItemResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchWriteItemResponse' {Int
httpStatus :: Int
$sel:httpStatus:BatchWriteItemResponse' :: BatchWriteItemResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: BatchWriteItemResponse
s@BatchWriteItemResponse' {} Int
a -> BatchWriteItemResponse
s {$sel:httpStatus:BatchWriteItemResponse' :: Int
httpStatus = Int
a} :: BatchWriteItemResponse)
batchWriteItemResponse_unprocessedItems :: Lens.Lens' BatchWriteItemResponse (Prelude.HashMap Prelude.Text (Prelude.NonEmpty WriteRequest))
batchWriteItemResponse_unprocessedItems :: Lens' BatchWriteItemResponse (HashMap Text (NonEmpty WriteRequest))
batchWriteItemResponse_unprocessedItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchWriteItemResponse' {HashMap Text (NonEmpty WriteRequest)
unprocessedItems :: HashMap Text (NonEmpty WriteRequest)
$sel:unprocessedItems:BatchWriteItemResponse' :: BatchWriteItemResponse -> HashMap Text (NonEmpty WriteRequest)
unprocessedItems} -> HashMap Text (NonEmpty WriteRequest)
unprocessedItems) (\s :: BatchWriteItemResponse
s@BatchWriteItemResponse' {} HashMap Text (NonEmpty WriteRequest)
a -> BatchWriteItemResponse
s {$sel:unprocessedItems:BatchWriteItemResponse' :: HashMap Text (NonEmpty WriteRequest)
unprocessedItems = HashMap Text (NonEmpty WriteRequest)
a} :: BatchWriteItemResponse) 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 Prelude.NFData BatchWriteItemResponse where
rnf :: BatchWriteItemResponse -> ()
rnf BatchWriteItemResponse' {Int
Maybe [ConsumedCapacity]
Maybe (HashMap Text [ItemCollectionMetrics])
HashMap Text (NonEmpty WriteRequest)
unprocessedItems :: HashMap Text (NonEmpty WriteRequest)
httpStatus :: Int
itemCollectionMetrics :: Maybe (HashMap Text [ItemCollectionMetrics])
consumedCapacity :: Maybe [ConsumedCapacity]
$sel:unprocessedItems:BatchWriteItemResponse' :: BatchWriteItemResponse -> HashMap Text (NonEmpty WriteRequest)
$sel:httpStatus:BatchWriteItemResponse' :: BatchWriteItemResponse -> Int
$sel:itemCollectionMetrics:BatchWriteItemResponse' :: BatchWriteItemResponse
-> Maybe (HashMap Text [ItemCollectionMetrics])
$sel:consumedCapacity:BatchWriteItemResponse' :: BatchWriteItemResponse -> Maybe [ConsumedCapacity]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ConsumedCapacity]
consumedCapacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf HashMap Text (NonEmpty WriteRequest)
unprocessedItems