{-# 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.SNS.SetTopicAttributes
(
SetTopicAttributes (..),
newSetTopicAttributes,
setTopicAttributes_attributeValue,
setTopicAttributes_topicArn,
setTopicAttributes_attributeName,
SetTopicAttributesResponse (..),
newSetTopicAttributesResponse,
)
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.SNS.Types
data SetTopicAttributes = SetTopicAttributes'
{
SetTopicAttributes -> Maybe Text
attributeValue :: Prelude.Maybe Prelude.Text,
SetTopicAttributes -> Text
topicArn :: Prelude.Text,
SetTopicAttributes -> Text
attributeName :: Prelude.Text
}
deriving (SetTopicAttributes -> SetTopicAttributes -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetTopicAttributes -> SetTopicAttributes -> Bool
$c/= :: SetTopicAttributes -> SetTopicAttributes -> Bool
== :: SetTopicAttributes -> SetTopicAttributes -> Bool
$c== :: SetTopicAttributes -> SetTopicAttributes -> Bool
Prelude.Eq, ReadPrec [SetTopicAttributes]
ReadPrec SetTopicAttributes
Int -> ReadS SetTopicAttributes
ReadS [SetTopicAttributes]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetTopicAttributes]
$creadListPrec :: ReadPrec [SetTopicAttributes]
readPrec :: ReadPrec SetTopicAttributes
$creadPrec :: ReadPrec SetTopicAttributes
readList :: ReadS [SetTopicAttributes]
$creadList :: ReadS [SetTopicAttributes]
readsPrec :: Int -> ReadS SetTopicAttributes
$creadsPrec :: Int -> ReadS SetTopicAttributes
Prelude.Read, Int -> SetTopicAttributes -> ShowS
[SetTopicAttributes] -> ShowS
SetTopicAttributes -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetTopicAttributes] -> ShowS
$cshowList :: [SetTopicAttributes] -> ShowS
show :: SetTopicAttributes -> String
$cshow :: SetTopicAttributes -> String
showsPrec :: Int -> SetTopicAttributes -> ShowS
$cshowsPrec :: Int -> SetTopicAttributes -> ShowS
Prelude.Show, forall x. Rep SetTopicAttributes x -> SetTopicAttributes
forall x. SetTopicAttributes -> Rep SetTopicAttributes x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SetTopicAttributes x -> SetTopicAttributes
$cfrom :: forall x. SetTopicAttributes -> Rep SetTopicAttributes x
Prelude.Generic)
newSetTopicAttributes ::
Prelude.Text ->
Prelude.Text ->
SetTopicAttributes
newSetTopicAttributes :: Text -> Text -> SetTopicAttributes
newSetTopicAttributes Text
pTopicArn_ Text
pAttributeName_ =
SetTopicAttributes'
{ $sel:attributeValue:SetTopicAttributes' :: Maybe Text
attributeValue =
forall a. Maybe a
Prelude.Nothing,
$sel:topicArn:SetTopicAttributes' :: Text
topicArn = Text
pTopicArn_,
$sel:attributeName:SetTopicAttributes' :: Text
attributeName = Text
pAttributeName_
}
setTopicAttributes_attributeValue :: Lens.Lens' SetTopicAttributes (Prelude.Maybe Prelude.Text)
setTopicAttributes_attributeValue :: Lens' SetTopicAttributes (Maybe Text)
setTopicAttributes_attributeValue = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTopicAttributes' {Maybe Text
attributeValue :: Maybe Text
$sel:attributeValue:SetTopicAttributes' :: SetTopicAttributes -> Maybe Text
attributeValue} -> Maybe Text
attributeValue) (\s :: SetTopicAttributes
s@SetTopicAttributes' {} Maybe Text
a -> SetTopicAttributes
s {$sel:attributeValue:SetTopicAttributes' :: Maybe Text
attributeValue = Maybe Text
a} :: SetTopicAttributes)
setTopicAttributes_topicArn :: Lens.Lens' SetTopicAttributes Prelude.Text
setTopicAttributes_topicArn :: Lens' SetTopicAttributes Text
setTopicAttributes_topicArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTopicAttributes' {Text
topicArn :: Text
$sel:topicArn:SetTopicAttributes' :: SetTopicAttributes -> Text
topicArn} -> Text
topicArn) (\s :: SetTopicAttributes
s@SetTopicAttributes' {} Text
a -> SetTopicAttributes
s {$sel:topicArn:SetTopicAttributes' :: Text
topicArn = Text
a} :: SetTopicAttributes)
setTopicAttributes_attributeName :: Lens.Lens' SetTopicAttributes Prelude.Text
setTopicAttributes_attributeName :: Lens' SetTopicAttributes Text
setTopicAttributes_attributeName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTopicAttributes' {Text
attributeName :: Text
$sel:attributeName:SetTopicAttributes' :: SetTopicAttributes -> Text
attributeName} -> Text
attributeName) (\s :: SetTopicAttributes
s@SetTopicAttributes' {} Text
a -> SetTopicAttributes
s {$sel:attributeName:SetTopicAttributes' :: Text
attributeName = Text
a} :: SetTopicAttributes)
instance Core.AWSRequest SetTopicAttributes where
type
AWSResponse SetTopicAttributes =
SetTopicAttributesResponse
request :: (Service -> Service)
-> SetTopicAttributes -> Request SetTopicAttributes
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 SetTopicAttributes
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SetTopicAttributes)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull SetTopicAttributesResponse
SetTopicAttributesResponse'
instance Prelude.Hashable SetTopicAttributes where
hashWithSalt :: Int -> SetTopicAttributes -> Int
hashWithSalt Int
_salt SetTopicAttributes' {Maybe Text
Text
attributeName :: Text
topicArn :: Text
attributeValue :: Maybe Text
$sel:attributeName:SetTopicAttributes' :: SetTopicAttributes -> Text
$sel:topicArn:SetTopicAttributes' :: SetTopicAttributes -> Text
$sel:attributeValue:SetTopicAttributes' :: SetTopicAttributes -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
attributeValue
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
topicArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
attributeName
instance Prelude.NFData SetTopicAttributes where
rnf :: SetTopicAttributes -> ()
rnf SetTopicAttributes' {Maybe Text
Text
attributeName :: Text
topicArn :: Text
attributeValue :: Maybe Text
$sel:attributeName:SetTopicAttributes' :: SetTopicAttributes -> Text
$sel:topicArn:SetTopicAttributes' :: SetTopicAttributes -> Text
$sel:attributeValue:SetTopicAttributes' :: SetTopicAttributes -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
attributeValue
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
topicArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
attributeName
instance Data.ToHeaders SetTopicAttributes where
toHeaders :: SetTopicAttributes -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath SetTopicAttributes where
toPath :: SetTopicAttributes -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SetTopicAttributes where
toQuery :: SetTopicAttributes -> QueryString
toQuery SetTopicAttributes' {Maybe Text
Text
attributeName :: Text
topicArn :: Text
attributeValue :: Maybe Text
$sel:attributeName:SetTopicAttributes' :: SetTopicAttributes -> Text
$sel:topicArn:SetTopicAttributes' :: SetTopicAttributes -> Text
$sel:attributeValue:SetTopicAttributes' :: SetTopicAttributes -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"SetTopicAttributes" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-03-31" :: Prelude.ByteString),
ByteString
"AttributeValue" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
attributeValue,
ByteString
"TopicArn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
topicArn,
ByteString
"AttributeName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
attributeName
]
data SetTopicAttributesResponse = SetTopicAttributesResponse'
{
}
deriving (SetTopicAttributesResponse -> SetTopicAttributesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetTopicAttributesResponse -> SetTopicAttributesResponse -> Bool
$c/= :: SetTopicAttributesResponse -> SetTopicAttributesResponse -> Bool
== :: SetTopicAttributesResponse -> SetTopicAttributesResponse -> Bool
$c== :: SetTopicAttributesResponse -> SetTopicAttributesResponse -> Bool
Prelude.Eq, ReadPrec [SetTopicAttributesResponse]
ReadPrec SetTopicAttributesResponse
Int -> ReadS SetTopicAttributesResponse
ReadS [SetTopicAttributesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetTopicAttributesResponse]
$creadListPrec :: ReadPrec [SetTopicAttributesResponse]
readPrec :: ReadPrec SetTopicAttributesResponse
$creadPrec :: ReadPrec SetTopicAttributesResponse
readList :: ReadS [SetTopicAttributesResponse]
$creadList :: ReadS [SetTopicAttributesResponse]
readsPrec :: Int -> ReadS SetTopicAttributesResponse
$creadsPrec :: Int -> ReadS SetTopicAttributesResponse
Prelude.Read, Int -> SetTopicAttributesResponse -> ShowS
[SetTopicAttributesResponse] -> ShowS
SetTopicAttributesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetTopicAttributesResponse] -> ShowS
$cshowList :: [SetTopicAttributesResponse] -> ShowS
show :: SetTopicAttributesResponse -> String
$cshow :: SetTopicAttributesResponse -> String
showsPrec :: Int -> SetTopicAttributesResponse -> ShowS
$cshowsPrec :: Int -> SetTopicAttributesResponse -> ShowS
Prelude.Show, forall x.
Rep SetTopicAttributesResponse x -> SetTopicAttributesResponse
forall x.
SetTopicAttributesResponse -> Rep SetTopicAttributesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SetTopicAttributesResponse x -> SetTopicAttributesResponse
$cfrom :: forall x.
SetTopicAttributesResponse -> Rep SetTopicAttributesResponse x
Prelude.Generic)
newSetTopicAttributesResponse ::
SetTopicAttributesResponse
newSetTopicAttributesResponse :: SetTopicAttributesResponse
newSetTopicAttributesResponse =
SetTopicAttributesResponse
SetTopicAttributesResponse'
instance Prelude.NFData SetTopicAttributesResponse where
rnf :: SetTopicAttributesResponse -> ()
rnf SetTopicAttributesResponse
_ = ()