{-# 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.SDB.BatchPutAttributes
(
BatchPutAttributes (..),
newBatchPutAttributes,
batchPutAttributes_domainName,
batchPutAttributes_items,
BatchPutAttributesResponse (..),
newBatchPutAttributesResponse,
)
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SDB.Types
data BatchPutAttributes = BatchPutAttributes'
{
BatchPutAttributes -> Text
domainName :: Prelude.Text,
BatchPutAttributes -> [ReplaceableItem]
items :: [ReplaceableItem]
}
deriving (BatchPutAttributes -> BatchPutAttributes -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BatchPutAttributes -> BatchPutAttributes -> Bool
$c/= :: BatchPutAttributes -> BatchPutAttributes -> Bool
== :: BatchPutAttributes -> BatchPutAttributes -> Bool
$c== :: BatchPutAttributes -> BatchPutAttributes -> Bool
Prelude.Eq, ReadPrec [BatchPutAttributes]
ReadPrec BatchPutAttributes
Int -> ReadS BatchPutAttributes
ReadS [BatchPutAttributes]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BatchPutAttributes]
$creadListPrec :: ReadPrec [BatchPutAttributes]
readPrec :: ReadPrec BatchPutAttributes
$creadPrec :: ReadPrec BatchPutAttributes
readList :: ReadS [BatchPutAttributes]
$creadList :: ReadS [BatchPutAttributes]
readsPrec :: Int -> ReadS BatchPutAttributes
$creadsPrec :: Int -> ReadS BatchPutAttributes
Prelude.Read, Int -> BatchPutAttributes -> ShowS
[BatchPutAttributes] -> ShowS
BatchPutAttributes -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BatchPutAttributes] -> ShowS
$cshowList :: [BatchPutAttributes] -> ShowS
show :: BatchPutAttributes -> String
$cshow :: BatchPutAttributes -> String
showsPrec :: Int -> BatchPutAttributes -> ShowS
$cshowsPrec :: Int -> BatchPutAttributes -> ShowS
Prelude.Show, forall x. Rep BatchPutAttributes x -> BatchPutAttributes
forall x. BatchPutAttributes -> Rep BatchPutAttributes x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep BatchPutAttributes x -> BatchPutAttributes
$cfrom :: forall x. BatchPutAttributes -> Rep BatchPutAttributes x
Prelude.Generic)
newBatchPutAttributes ::
Prelude.Text ->
BatchPutAttributes
newBatchPutAttributes :: Text -> BatchPutAttributes
newBatchPutAttributes Text
pDomainName_ =
BatchPutAttributes'
{ $sel:domainName:BatchPutAttributes' :: Text
domainName = Text
pDomainName_,
$sel:items:BatchPutAttributes' :: [ReplaceableItem]
items = forall a. Monoid a => a
Prelude.mempty
}
batchPutAttributes_domainName :: Lens.Lens' BatchPutAttributes Prelude.Text
batchPutAttributes_domainName :: Lens' BatchPutAttributes Text
batchPutAttributes_domainName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchPutAttributes' {Text
domainName :: Text
$sel:domainName:BatchPutAttributes' :: BatchPutAttributes -> Text
domainName} -> Text
domainName) (\s :: BatchPutAttributes
s@BatchPutAttributes' {} Text
a -> BatchPutAttributes
s {$sel:domainName:BatchPutAttributes' :: Text
domainName = Text
a} :: BatchPutAttributes)
batchPutAttributes_items :: Lens.Lens' BatchPutAttributes [ReplaceableItem]
batchPutAttributes_items :: Lens' BatchPutAttributes [ReplaceableItem]
batchPutAttributes_items = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchPutAttributes' {[ReplaceableItem]
items :: [ReplaceableItem]
$sel:items:BatchPutAttributes' :: BatchPutAttributes -> [ReplaceableItem]
items} -> [ReplaceableItem]
items) (\s :: BatchPutAttributes
s@BatchPutAttributes' {} [ReplaceableItem]
a -> BatchPutAttributes
s {$sel:items:BatchPutAttributes' :: [ReplaceableItem]
items = [ReplaceableItem]
a} :: BatchPutAttributes) 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 BatchPutAttributes where
type
AWSResponse BatchPutAttributes =
BatchPutAttributesResponse
request :: (Service -> Service)
-> BatchPutAttributes -> Request BatchPutAttributes
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy BatchPutAttributes
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse BatchPutAttributes)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull BatchPutAttributesResponse
BatchPutAttributesResponse'
instance Prelude.Hashable BatchPutAttributes where
hashWithSalt :: Int -> BatchPutAttributes -> Int
hashWithSalt Int
_salt BatchPutAttributes' {[ReplaceableItem]
Text
items :: [ReplaceableItem]
domainName :: Text
$sel:items:BatchPutAttributes' :: BatchPutAttributes -> [ReplaceableItem]
$sel:domainName:BatchPutAttributes' :: BatchPutAttributes -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
domainName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [ReplaceableItem]
items
instance Prelude.NFData BatchPutAttributes where
rnf :: BatchPutAttributes -> ()
rnf BatchPutAttributes' {[ReplaceableItem]
Text
items :: [ReplaceableItem]
domainName :: Text
$sel:items:BatchPutAttributes' :: BatchPutAttributes -> [ReplaceableItem]
$sel:domainName:BatchPutAttributes' :: BatchPutAttributes -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
domainName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [ReplaceableItem]
items
instance Data.ToHeaders BatchPutAttributes where
toHeaders :: BatchPutAttributes -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath BatchPutAttributes where
toPath :: BatchPutAttributes -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery BatchPutAttributes where
toQuery :: BatchPutAttributes -> QueryString
toQuery BatchPutAttributes' {[ReplaceableItem]
Text
items :: [ReplaceableItem]
domainName :: Text
$sel:items:BatchPutAttributes' :: BatchPutAttributes -> [ReplaceableItem]
$sel:domainName:BatchPutAttributes' :: BatchPutAttributes -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"BatchPutAttributes" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2009-04-15" :: Prelude.ByteString),
ByteString
"DomainName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
domainName,
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"Item" [ReplaceableItem]
items
]
data BatchPutAttributesResponse = BatchPutAttributesResponse'
{
}
deriving (BatchPutAttributesResponse -> BatchPutAttributesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BatchPutAttributesResponse -> BatchPutAttributesResponse -> Bool
$c/= :: BatchPutAttributesResponse -> BatchPutAttributesResponse -> Bool
== :: BatchPutAttributesResponse -> BatchPutAttributesResponse -> Bool
$c== :: BatchPutAttributesResponse -> BatchPutAttributesResponse -> Bool
Prelude.Eq, ReadPrec [BatchPutAttributesResponse]
ReadPrec BatchPutAttributesResponse
Int -> ReadS BatchPutAttributesResponse
ReadS [BatchPutAttributesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BatchPutAttributesResponse]
$creadListPrec :: ReadPrec [BatchPutAttributesResponse]
readPrec :: ReadPrec BatchPutAttributesResponse
$creadPrec :: ReadPrec BatchPutAttributesResponse
readList :: ReadS [BatchPutAttributesResponse]
$creadList :: ReadS [BatchPutAttributesResponse]
readsPrec :: Int -> ReadS BatchPutAttributesResponse
$creadsPrec :: Int -> ReadS BatchPutAttributesResponse
Prelude.Read, Int -> BatchPutAttributesResponse -> ShowS
[BatchPutAttributesResponse] -> ShowS
BatchPutAttributesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BatchPutAttributesResponse] -> ShowS
$cshowList :: [BatchPutAttributesResponse] -> ShowS
show :: BatchPutAttributesResponse -> String
$cshow :: BatchPutAttributesResponse -> String
showsPrec :: Int -> BatchPutAttributesResponse -> ShowS
$cshowsPrec :: Int -> BatchPutAttributesResponse -> ShowS
Prelude.Show, forall x.
Rep BatchPutAttributesResponse x -> BatchPutAttributesResponse
forall x.
BatchPutAttributesResponse -> Rep BatchPutAttributesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep BatchPutAttributesResponse x -> BatchPutAttributesResponse
$cfrom :: forall x.
BatchPutAttributesResponse -> Rep BatchPutAttributesResponse x
Prelude.Generic)
newBatchPutAttributesResponse ::
BatchPutAttributesResponse
newBatchPutAttributesResponse :: BatchPutAttributesResponse
newBatchPutAttributesResponse =
BatchPutAttributesResponse
BatchPutAttributesResponse'
instance Prelude.NFData BatchPutAttributesResponse where
rnf :: BatchPutAttributesResponse -> ()
rnf BatchPutAttributesResponse
_ = ()