{-# 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.TransactWriteItems
(
TransactWriteItems (..),
newTransactWriteItems,
transactWriteItems_clientRequestToken,
transactWriteItems_returnConsumedCapacity,
transactWriteItems_returnItemCollectionMetrics,
transactWriteItems_transactItems,
TransactWriteItemsResponse (..),
newTransactWriteItemsResponse,
transactWriteItemsResponse_consumedCapacity,
transactWriteItemsResponse_itemCollectionMetrics,
transactWriteItemsResponse_httpStatus,
)
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 TransactWriteItems = TransactWriteItems'
{
TransactWriteItems -> Maybe Text
clientRequestToken :: Prelude.Maybe Prelude.Text,
TransactWriteItems -> Maybe ReturnConsumedCapacity
returnConsumedCapacity :: Prelude.Maybe ReturnConsumedCapacity,
TransactWriteItems -> Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics :: Prelude.Maybe ReturnItemCollectionMetrics,
TransactWriteItems -> NonEmpty TransactWriteItem
transactItems :: Prelude.NonEmpty TransactWriteItem
}
deriving (TransactWriteItems -> TransactWriteItems -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TransactWriteItems -> TransactWriteItems -> Bool
$c/= :: TransactWriteItems -> TransactWriteItems -> Bool
== :: TransactWriteItems -> TransactWriteItems -> Bool
$c== :: TransactWriteItems -> TransactWriteItems -> Bool
Prelude.Eq, ReadPrec [TransactWriteItems]
ReadPrec TransactWriteItems
Int -> ReadS TransactWriteItems
ReadS [TransactWriteItems]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [TransactWriteItems]
$creadListPrec :: ReadPrec [TransactWriteItems]
readPrec :: ReadPrec TransactWriteItems
$creadPrec :: ReadPrec TransactWriteItems
readList :: ReadS [TransactWriteItems]
$creadList :: ReadS [TransactWriteItems]
readsPrec :: Int -> ReadS TransactWriteItems
$creadsPrec :: Int -> ReadS TransactWriteItems
Prelude.Read, Int -> TransactWriteItems -> ShowS
[TransactWriteItems] -> ShowS
TransactWriteItems -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TransactWriteItems] -> ShowS
$cshowList :: [TransactWriteItems] -> ShowS
show :: TransactWriteItems -> String
$cshow :: TransactWriteItems -> String
showsPrec :: Int -> TransactWriteItems -> ShowS
$cshowsPrec :: Int -> TransactWriteItems -> ShowS
Prelude.Show, forall x. Rep TransactWriteItems x -> TransactWriteItems
forall x. TransactWriteItems -> Rep TransactWriteItems x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep TransactWriteItems x -> TransactWriteItems
$cfrom :: forall x. TransactWriteItems -> Rep TransactWriteItems x
Prelude.Generic)
newTransactWriteItems ::
Prelude.NonEmpty TransactWriteItem ->
TransactWriteItems
newTransactWriteItems :: NonEmpty TransactWriteItem -> TransactWriteItems
newTransactWriteItems NonEmpty TransactWriteItem
pTransactItems_ =
TransactWriteItems'
{ $sel:clientRequestToken:TransactWriteItems' :: Maybe Text
clientRequestToken =
forall a. Maybe a
Prelude.Nothing,
$sel:returnConsumedCapacity:TransactWriteItems' :: Maybe ReturnConsumedCapacity
returnConsumedCapacity = forall a. Maybe a
Prelude.Nothing,
$sel:returnItemCollectionMetrics:TransactWriteItems' :: Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics = forall a. Maybe a
Prelude.Nothing,
$sel:transactItems:TransactWriteItems' :: NonEmpty TransactWriteItem
transactItems = forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced forall t b. AReview t b -> b -> t
Lens.# NonEmpty TransactWriteItem
pTransactItems_
}
transactWriteItems_clientRequestToken :: Lens.Lens' TransactWriteItems (Prelude.Maybe Prelude.Text)
transactWriteItems_clientRequestToken :: Lens' TransactWriteItems (Maybe Text)
transactWriteItems_clientRequestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TransactWriteItems' {Maybe Text
clientRequestToken :: Maybe Text
$sel:clientRequestToken:TransactWriteItems' :: TransactWriteItems -> Maybe Text
clientRequestToken} -> Maybe Text
clientRequestToken) (\s :: TransactWriteItems
s@TransactWriteItems' {} Maybe Text
a -> TransactWriteItems
s {$sel:clientRequestToken:TransactWriteItems' :: Maybe Text
clientRequestToken = Maybe Text
a} :: TransactWriteItems)
transactWriteItems_returnConsumedCapacity :: Lens.Lens' TransactWriteItems (Prelude.Maybe ReturnConsumedCapacity)
transactWriteItems_returnConsumedCapacity :: Lens' TransactWriteItems (Maybe ReturnConsumedCapacity)
transactWriteItems_returnConsumedCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TransactWriteItems' {Maybe ReturnConsumedCapacity
returnConsumedCapacity :: Maybe ReturnConsumedCapacity
$sel:returnConsumedCapacity:TransactWriteItems' :: TransactWriteItems -> Maybe ReturnConsumedCapacity
returnConsumedCapacity} -> Maybe ReturnConsumedCapacity
returnConsumedCapacity) (\s :: TransactWriteItems
s@TransactWriteItems' {} Maybe ReturnConsumedCapacity
a -> TransactWriteItems
s {$sel:returnConsumedCapacity:TransactWriteItems' :: Maybe ReturnConsumedCapacity
returnConsumedCapacity = Maybe ReturnConsumedCapacity
a} :: TransactWriteItems)
transactWriteItems_returnItemCollectionMetrics :: Lens.Lens' TransactWriteItems (Prelude.Maybe ReturnItemCollectionMetrics)
transactWriteItems_returnItemCollectionMetrics :: Lens' TransactWriteItems (Maybe ReturnItemCollectionMetrics)
transactWriteItems_returnItemCollectionMetrics = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TransactWriteItems' {Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
$sel:returnItemCollectionMetrics:TransactWriteItems' :: TransactWriteItems -> Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics} -> Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics) (\s :: TransactWriteItems
s@TransactWriteItems' {} Maybe ReturnItemCollectionMetrics
a -> TransactWriteItems
s {$sel:returnItemCollectionMetrics:TransactWriteItems' :: Maybe ReturnItemCollectionMetrics
returnItemCollectionMetrics = Maybe ReturnItemCollectionMetrics
a} :: TransactWriteItems)
transactWriteItems_transactItems :: Lens.Lens' TransactWriteItems (Prelude.NonEmpty TransactWriteItem)
transactWriteItems_transactItems :: Lens' TransactWriteItems (NonEmpty TransactWriteItem)
transactWriteItems_transactItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TransactWriteItems' {NonEmpty TransactWriteItem
transactItems :: NonEmpty TransactWriteItem
$sel:transactItems:TransactWriteItems' :: TransactWriteItems -> NonEmpty TransactWriteItem
transactItems} -> NonEmpty TransactWriteItem
transactItems) (\s :: TransactWriteItems
s@TransactWriteItems' {} NonEmpty TransactWriteItem
a -> TransactWriteItems
s {$sel:transactItems:TransactWriteItems' :: NonEmpty TransactWriteItem
transactItems = NonEmpty TransactWriteItem
a} :: TransactWriteItems) 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 TransactWriteItems where
type
AWSResponse TransactWriteItems =
TransactWriteItemsResponse
request :: (Service -> Service)
-> TransactWriteItems -> Request TransactWriteItems
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 TransactWriteItems
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse TransactWriteItems)))
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
-> TransactWriteItemsResponse
TransactWriteItemsResponse'
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))
)
instance Prelude.Hashable TransactWriteItems where
hashWithSalt :: Int -> TransactWriteItems -> Int
hashWithSalt Int
_salt TransactWriteItems' {Maybe Text
Maybe ReturnItemCollectionMetrics
Maybe ReturnConsumedCapacity
NonEmpty TransactWriteItem
transactItems :: NonEmpty TransactWriteItem
returnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
returnConsumedCapacity :: Maybe ReturnConsumedCapacity
clientRequestToken :: Maybe Text
$sel:transactItems:TransactWriteItems' :: TransactWriteItems -> NonEmpty TransactWriteItem
$sel:returnItemCollectionMetrics:TransactWriteItems' :: TransactWriteItems -> Maybe ReturnItemCollectionMetrics
$sel:returnConsumedCapacity:TransactWriteItems' :: TransactWriteItems -> Maybe ReturnConsumedCapacity
$sel:clientRequestToken:TransactWriteItems' :: TransactWriteItems -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientRequestToken
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` NonEmpty TransactWriteItem
transactItems
instance Prelude.NFData TransactWriteItems where
rnf :: TransactWriteItems -> ()
rnf TransactWriteItems' {Maybe Text
Maybe ReturnItemCollectionMetrics
Maybe ReturnConsumedCapacity
NonEmpty TransactWriteItem
transactItems :: NonEmpty TransactWriteItem
returnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
returnConsumedCapacity :: Maybe ReturnConsumedCapacity
clientRequestToken :: Maybe Text
$sel:transactItems:TransactWriteItems' :: TransactWriteItems -> NonEmpty TransactWriteItem
$sel:returnItemCollectionMetrics:TransactWriteItems' :: TransactWriteItems -> Maybe ReturnItemCollectionMetrics
$sel:returnConsumedCapacity:TransactWriteItems' :: TransactWriteItems -> Maybe ReturnConsumedCapacity
$sel:clientRequestToken:TransactWriteItems' :: TransactWriteItems -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientRequestToken
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 NonEmpty TransactWriteItem
transactItems
instance Data.ToHeaders TransactWriteItems where
toHeaders :: TransactWriteItems -> 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.TransactWriteItems" ::
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 TransactWriteItems where
toJSON :: TransactWriteItems -> Value
toJSON TransactWriteItems' {Maybe Text
Maybe ReturnItemCollectionMetrics
Maybe ReturnConsumedCapacity
NonEmpty TransactWriteItem
transactItems :: NonEmpty TransactWriteItem
returnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
returnConsumedCapacity :: Maybe ReturnConsumedCapacity
clientRequestToken :: Maybe Text
$sel:transactItems:TransactWriteItems' :: TransactWriteItems -> NonEmpty TransactWriteItem
$sel:returnItemCollectionMetrics:TransactWriteItems' :: TransactWriteItems -> Maybe ReturnItemCollectionMetrics
$sel:returnConsumedCapacity:TransactWriteItems' :: TransactWriteItems -> Maybe ReturnConsumedCapacity
$sel:clientRequestToken:TransactWriteItems' :: TransactWriteItems -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ClientRequestToken" 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
clientRequestToken,
(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
"TransactItems" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty TransactWriteItem
transactItems)
]
)
instance Data.ToPath TransactWriteItems where
toPath :: TransactWriteItems -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery TransactWriteItems where
toQuery :: TransactWriteItems -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data TransactWriteItemsResponse = TransactWriteItemsResponse'
{
TransactWriteItemsResponse -> Maybe [ConsumedCapacity]
consumedCapacity :: Prelude.Maybe [ConsumedCapacity],
TransactWriteItemsResponse
-> Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics :: Prelude.Maybe (Prelude.HashMap Prelude.Text [ItemCollectionMetrics]),
TransactWriteItemsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (TransactWriteItemsResponse -> TransactWriteItemsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TransactWriteItemsResponse -> TransactWriteItemsResponse -> Bool
$c/= :: TransactWriteItemsResponse -> TransactWriteItemsResponse -> Bool
== :: TransactWriteItemsResponse -> TransactWriteItemsResponse -> Bool
$c== :: TransactWriteItemsResponse -> TransactWriteItemsResponse -> Bool
Prelude.Eq, ReadPrec [TransactWriteItemsResponse]
ReadPrec TransactWriteItemsResponse
Int -> ReadS TransactWriteItemsResponse
ReadS [TransactWriteItemsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [TransactWriteItemsResponse]
$creadListPrec :: ReadPrec [TransactWriteItemsResponse]
readPrec :: ReadPrec TransactWriteItemsResponse
$creadPrec :: ReadPrec TransactWriteItemsResponse
readList :: ReadS [TransactWriteItemsResponse]
$creadList :: ReadS [TransactWriteItemsResponse]
readsPrec :: Int -> ReadS TransactWriteItemsResponse
$creadsPrec :: Int -> ReadS TransactWriteItemsResponse
Prelude.Read, Int -> TransactWriteItemsResponse -> ShowS
[TransactWriteItemsResponse] -> ShowS
TransactWriteItemsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TransactWriteItemsResponse] -> ShowS
$cshowList :: [TransactWriteItemsResponse] -> ShowS
show :: TransactWriteItemsResponse -> String
$cshow :: TransactWriteItemsResponse -> String
showsPrec :: Int -> TransactWriteItemsResponse -> ShowS
$cshowsPrec :: Int -> TransactWriteItemsResponse -> ShowS
Prelude.Show, forall x.
Rep TransactWriteItemsResponse x -> TransactWriteItemsResponse
forall x.
TransactWriteItemsResponse -> Rep TransactWriteItemsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep TransactWriteItemsResponse x -> TransactWriteItemsResponse
$cfrom :: forall x.
TransactWriteItemsResponse -> Rep TransactWriteItemsResponse x
Prelude.Generic)
newTransactWriteItemsResponse ::
Prelude.Int ->
TransactWriteItemsResponse
newTransactWriteItemsResponse :: Int -> TransactWriteItemsResponse
newTransactWriteItemsResponse Int
pHttpStatus_ =
TransactWriteItemsResponse'
{ $sel:consumedCapacity:TransactWriteItemsResponse' :: Maybe [ConsumedCapacity]
consumedCapacity =
forall a. Maybe a
Prelude.Nothing,
$sel:itemCollectionMetrics:TransactWriteItemsResponse' :: Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:TransactWriteItemsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
transactWriteItemsResponse_consumedCapacity :: Lens.Lens' TransactWriteItemsResponse (Prelude.Maybe [ConsumedCapacity])
transactWriteItemsResponse_consumedCapacity :: Lens' TransactWriteItemsResponse (Maybe [ConsumedCapacity])
transactWriteItemsResponse_consumedCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TransactWriteItemsResponse' {Maybe [ConsumedCapacity]
consumedCapacity :: Maybe [ConsumedCapacity]
$sel:consumedCapacity:TransactWriteItemsResponse' :: TransactWriteItemsResponse -> Maybe [ConsumedCapacity]
consumedCapacity} -> Maybe [ConsumedCapacity]
consumedCapacity) (\s :: TransactWriteItemsResponse
s@TransactWriteItemsResponse' {} Maybe [ConsumedCapacity]
a -> TransactWriteItemsResponse
s {$sel:consumedCapacity:TransactWriteItemsResponse' :: Maybe [ConsumedCapacity]
consumedCapacity = Maybe [ConsumedCapacity]
a} :: TransactWriteItemsResponse) 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
transactWriteItemsResponse_itemCollectionMetrics :: Lens.Lens' TransactWriteItemsResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text [ItemCollectionMetrics]))
transactWriteItemsResponse_itemCollectionMetrics :: Lens'
TransactWriteItemsResponse
(Maybe (HashMap Text [ItemCollectionMetrics]))
transactWriteItemsResponse_itemCollectionMetrics = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TransactWriteItemsResponse' {Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics :: Maybe (HashMap Text [ItemCollectionMetrics])
$sel:itemCollectionMetrics:TransactWriteItemsResponse' :: TransactWriteItemsResponse
-> Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics} -> Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics) (\s :: TransactWriteItemsResponse
s@TransactWriteItemsResponse' {} Maybe (HashMap Text [ItemCollectionMetrics])
a -> TransactWriteItemsResponse
s {$sel:itemCollectionMetrics:TransactWriteItemsResponse' :: Maybe (HashMap Text [ItemCollectionMetrics])
itemCollectionMetrics = Maybe (HashMap Text [ItemCollectionMetrics])
a} :: TransactWriteItemsResponse) 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
transactWriteItemsResponse_httpStatus :: Lens.Lens' TransactWriteItemsResponse Prelude.Int
transactWriteItemsResponse_httpStatus :: Lens' TransactWriteItemsResponse Int
transactWriteItemsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TransactWriteItemsResponse' {Int
httpStatus :: Int
$sel:httpStatus:TransactWriteItemsResponse' :: TransactWriteItemsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: TransactWriteItemsResponse
s@TransactWriteItemsResponse' {} Int
a -> TransactWriteItemsResponse
s {$sel:httpStatus:TransactWriteItemsResponse' :: Int
httpStatus = Int
a} :: TransactWriteItemsResponse)
instance Prelude.NFData TransactWriteItemsResponse where
rnf :: TransactWriteItemsResponse -> ()
rnf TransactWriteItemsResponse' {Int
Maybe [ConsumedCapacity]
Maybe (HashMap Text [ItemCollectionMetrics])
httpStatus :: Int
itemCollectionMetrics :: Maybe (HashMap Text [ItemCollectionMetrics])
consumedCapacity :: Maybe [ConsumedCapacity]
$sel:httpStatus:TransactWriteItemsResponse' :: TransactWriteItemsResponse -> Int
$sel:itemCollectionMetrics:TransactWriteItemsResponse' :: TransactWriteItemsResponse
-> Maybe (HashMap Text [ItemCollectionMetrics])
$sel:consumedCapacity:TransactWriteItemsResponse' :: TransactWriteItemsResponse -> 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