{-# 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.SecurityLake.UpdateSubscriptionNotificationConfiguration
(
UpdateSubscriptionNotificationConfiguration (..),
newUpdateSubscriptionNotificationConfiguration,
updateSubscriptionNotificationConfiguration_createSqs,
updateSubscriptionNotificationConfiguration_httpsApiKeyName,
updateSubscriptionNotificationConfiguration_httpsApiKeyValue,
updateSubscriptionNotificationConfiguration_httpsMethod,
updateSubscriptionNotificationConfiguration_roleArn,
updateSubscriptionNotificationConfiguration_subscriptionEndpoint,
updateSubscriptionNotificationConfiguration_subscriptionId,
UpdateSubscriptionNotificationConfigurationResponse (..),
newUpdateSubscriptionNotificationConfigurationResponse,
updateSubscriptionNotificationConfigurationResponse_queueArn,
updateSubscriptionNotificationConfigurationResponse_httpStatus,
)
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.SecurityLake.Types
data UpdateSubscriptionNotificationConfiguration = UpdateSubscriptionNotificationConfiguration'
{
UpdateSubscriptionNotificationConfiguration -> Maybe Bool
createSqs :: Prelude.Maybe Prelude.Bool,
UpdateSubscriptionNotificationConfiguration -> Maybe Text
httpsApiKeyName :: Prelude.Maybe Prelude.Text,
UpdateSubscriptionNotificationConfiguration -> Maybe Text
httpsApiKeyValue :: Prelude.Maybe Prelude.Text,
UpdateSubscriptionNotificationConfiguration -> Maybe HttpsMethod
httpsMethod :: Prelude.Maybe HttpsMethod,
UpdateSubscriptionNotificationConfiguration -> Maybe Text
roleArn :: Prelude.Maybe Prelude.Text,
UpdateSubscriptionNotificationConfiguration -> Maybe Text
subscriptionEndpoint :: Prelude.Maybe Prelude.Text,
UpdateSubscriptionNotificationConfiguration -> Text
subscriptionId :: Prelude.Text
}
deriving (UpdateSubscriptionNotificationConfiguration
-> UpdateSubscriptionNotificationConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateSubscriptionNotificationConfiguration
-> UpdateSubscriptionNotificationConfiguration -> Bool
$c/= :: UpdateSubscriptionNotificationConfiguration
-> UpdateSubscriptionNotificationConfiguration -> Bool
== :: UpdateSubscriptionNotificationConfiguration
-> UpdateSubscriptionNotificationConfiguration -> Bool
$c== :: UpdateSubscriptionNotificationConfiguration
-> UpdateSubscriptionNotificationConfiguration -> Bool
Prelude.Eq, ReadPrec [UpdateSubscriptionNotificationConfiguration]
ReadPrec UpdateSubscriptionNotificationConfiguration
Int -> ReadS UpdateSubscriptionNotificationConfiguration
ReadS [UpdateSubscriptionNotificationConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateSubscriptionNotificationConfiguration]
$creadListPrec :: ReadPrec [UpdateSubscriptionNotificationConfiguration]
readPrec :: ReadPrec UpdateSubscriptionNotificationConfiguration
$creadPrec :: ReadPrec UpdateSubscriptionNotificationConfiguration
readList :: ReadS [UpdateSubscriptionNotificationConfiguration]
$creadList :: ReadS [UpdateSubscriptionNotificationConfiguration]
readsPrec :: Int -> ReadS UpdateSubscriptionNotificationConfiguration
$creadsPrec :: Int -> ReadS UpdateSubscriptionNotificationConfiguration
Prelude.Read, Int -> UpdateSubscriptionNotificationConfiguration -> ShowS
[UpdateSubscriptionNotificationConfiguration] -> ShowS
UpdateSubscriptionNotificationConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateSubscriptionNotificationConfiguration] -> ShowS
$cshowList :: [UpdateSubscriptionNotificationConfiguration] -> ShowS
show :: UpdateSubscriptionNotificationConfiguration -> String
$cshow :: UpdateSubscriptionNotificationConfiguration -> String
showsPrec :: Int -> UpdateSubscriptionNotificationConfiguration -> ShowS
$cshowsPrec :: Int -> UpdateSubscriptionNotificationConfiguration -> ShowS
Prelude.Show, forall x.
Rep UpdateSubscriptionNotificationConfiguration x
-> UpdateSubscriptionNotificationConfiguration
forall x.
UpdateSubscriptionNotificationConfiguration
-> Rep UpdateSubscriptionNotificationConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateSubscriptionNotificationConfiguration x
-> UpdateSubscriptionNotificationConfiguration
$cfrom :: forall x.
UpdateSubscriptionNotificationConfiguration
-> Rep UpdateSubscriptionNotificationConfiguration x
Prelude.Generic)
newUpdateSubscriptionNotificationConfiguration ::
Prelude.Text ->
UpdateSubscriptionNotificationConfiguration
newUpdateSubscriptionNotificationConfiguration :: Text -> UpdateSubscriptionNotificationConfiguration
newUpdateSubscriptionNotificationConfiguration
Text
pSubscriptionId_ =
UpdateSubscriptionNotificationConfiguration'
{ $sel:createSqs:UpdateSubscriptionNotificationConfiguration' :: Maybe Bool
createSqs =
forall a. Maybe a
Prelude.Nothing,
$sel:httpsApiKeyName:UpdateSubscriptionNotificationConfiguration' :: Maybe Text
httpsApiKeyName =
forall a. Maybe a
Prelude.Nothing,
$sel:httpsApiKeyValue:UpdateSubscriptionNotificationConfiguration' :: Maybe Text
httpsApiKeyValue =
forall a. Maybe a
Prelude.Nothing,
$sel:httpsMethod:UpdateSubscriptionNotificationConfiguration' :: Maybe HttpsMethod
httpsMethod = forall a. Maybe a
Prelude.Nothing,
$sel:roleArn:UpdateSubscriptionNotificationConfiguration' :: Maybe Text
roleArn = forall a. Maybe a
Prelude.Nothing,
$sel:subscriptionEndpoint:UpdateSubscriptionNotificationConfiguration' :: Maybe Text
subscriptionEndpoint =
forall a. Maybe a
Prelude.Nothing,
$sel:subscriptionId:UpdateSubscriptionNotificationConfiguration' :: Text
subscriptionId =
Text
pSubscriptionId_
}
updateSubscriptionNotificationConfiguration_createSqs :: Lens.Lens' UpdateSubscriptionNotificationConfiguration (Prelude.Maybe Prelude.Bool)
updateSubscriptionNotificationConfiguration_createSqs :: Lens' UpdateSubscriptionNotificationConfiguration (Maybe Bool)
updateSubscriptionNotificationConfiguration_createSqs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSubscriptionNotificationConfiguration' {Maybe Bool
createSqs :: Maybe Bool
$sel:createSqs:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Bool
createSqs} -> Maybe Bool
createSqs) (\s :: UpdateSubscriptionNotificationConfiguration
s@UpdateSubscriptionNotificationConfiguration' {} Maybe Bool
a -> UpdateSubscriptionNotificationConfiguration
s {$sel:createSqs:UpdateSubscriptionNotificationConfiguration' :: Maybe Bool
createSqs = Maybe Bool
a} :: UpdateSubscriptionNotificationConfiguration)
updateSubscriptionNotificationConfiguration_httpsApiKeyName :: Lens.Lens' UpdateSubscriptionNotificationConfiguration (Prelude.Maybe Prelude.Text)
updateSubscriptionNotificationConfiguration_httpsApiKeyName :: Lens' UpdateSubscriptionNotificationConfiguration (Maybe Text)
updateSubscriptionNotificationConfiguration_httpsApiKeyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSubscriptionNotificationConfiguration' {Maybe Text
httpsApiKeyName :: Maybe Text
$sel:httpsApiKeyName:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
httpsApiKeyName} -> Maybe Text
httpsApiKeyName) (\s :: UpdateSubscriptionNotificationConfiguration
s@UpdateSubscriptionNotificationConfiguration' {} Maybe Text
a -> UpdateSubscriptionNotificationConfiguration
s {$sel:httpsApiKeyName:UpdateSubscriptionNotificationConfiguration' :: Maybe Text
httpsApiKeyName = Maybe Text
a} :: UpdateSubscriptionNotificationConfiguration)
updateSubscriptionNotificationConfiguration_httpsApiKeyValue :: Lens.Lens' UpdateSubscriptionNotificationConfiguration (Prelude.Maybe Prelude.Text)
updateSubscriptionNotificationConfiguration_httpsApiKeyValue :: Lens' UpdateSubscriptionNotificationConfiguration (Maybe Text)
updateSubscriptionNotificationConfiguration_httpsApiKeyValue = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSubscriptionNotificationConfiguration' {Maybe Text
httpsApiKeyValue :: Maybe Text
$sel:httpsApiKeyValue:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
httpsApiKeyValue} -> Maybe Text
httpsApiKeyValue) (\s :: UpdateSubscriptionNotificationConfiguration
s@UpdateSubscriptionNotificationConfiguration' {} Maybe Text
a -> UpdateSubscriptionNotificationConfiguration
s {$sel:httpsApiKeyValue:UpdateSubscriptionNotificationConfiguration' :: Maybe Text
httpsApiKeyValue = Maybe Text
a} :: UpdateSubscriptionNotificationConfiguration)
updateSubscriptionNotificationConfiguration_httpsMethod :: Lens.Lens' UpdateSubscriptionNotificationConfiguration (Prelude.Maybe HttpsMethod)
updateSubscriptionNotificationConfiguration_httpsMethod :: Lens'
UpdateSubscriptionNotificationConfiguration (Maybe HttpsMethod)
updateSubscriptionNotificationConfiguration_httpsMethod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSubscriptionNotificationConfiguration' {Maybe HttpsMethod
httpsMethod :: Maybe HttpsMethod
$sel:httpsMethod:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe HttpsMethod
httpsMethod} -> Maybe HttpsMethod
httpsMethod) (\s :: UpdateSubscriptionNotificationConfiguration
s@UpdateSubscriptionNotificationConfiguration' {} Maybe HttpsMethod
a -> UpdateSubscriptionNotificationConfiguration
s {$sel:httpsMethod:UpdateSubscriptionNotificationConfiguration' :: Maybe HttpsMethod
httpsMethod = Maybe HttpsMethod
a} :: UpdateSubscriptionNotificationConfiguration)
updateSubscriptionNotificationConfiguration_roleArn :: Lens.Lens' UpdateSubscriptionNotificationConfiguration (Prelude.Maybe Prelude.Text)
updateSubscriptionNotificationConfiguration_roleArn :: Lens' UpdateSubscriptionNotificationConfiguration (Maybe Text)
updateSubscriptionNotificationConfiguration_roleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSubscriptionNotificationConfiguration' {Maybe Text
roleArn :: Maybe Text
$sel:roleArn:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
roleArn} -> Maybe Text
roleArn) (\s :: UpdateSubscriptionNotificationConfiguration
s@UpdateSubscriptionNotificationConfiguration' {} Maybe Text
a -> UpdateSubscriptionNotificationConfiguration
s {$sel:roleArn:UpdateSubscriptionNotificationConfiguration' :: Maybe Text
roleArn = Maybe Text
a} :: UpdateSubscriptionNotificationConfiguration)
updateSubscriptionNotificationConfiguration_subscriptionEndpoint :: Lens.Lens' UpdateSubscriptionNotificationConfiguration (Prelude.Maybe Prelude.Text)
updateSubscriptionNotificationConfiguration_subscriptionEndpoint :: Lens' UpdateSubscriptionNotificationConfiguration (Maybe Text)
updateSubscriptionNotificationConfiguration_subscriptionEndpoint = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSubscriptionNotificationConfiguration' {Maybe Text
subscriptionEndpoint :: Maybe Text
$sel:subscriptionEndpoint:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
subscriptionEndpoint} -> Maybe Text
subscriptionEndpoint) (\s :: UpdateSubscriptionNotificationConfiguration
s@UpdateSubscriptionNotificationConfiguration' {} Maybe Text
a -> UpdateSubscriptionNotificationConfiguration
s {$sel:subscriptionEndpoint:UpdateSubscriptionNotificationConfiguration' :: Maybe Text
subscriptionEndpoint = Maybe Text
a} :: UpdateSubscriptionNotificationConfiguration)
updateSubscriptionNotificationConfiguration_subscriptionId :: Lens.Lens' UpdateSubscriptionNotificationConfiguration Prelude.Text
updateSubscriptionNotificationConfiguration_subscriptionId :: Lens' UpdateSubscriptionNotificationConfiguration Text
updateSubscriptionNotificationConfiguration_subscriptionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSubscriptionNotificationConfiguration' {Text
subscriptionId :: Text
$sel:subscriptionId:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Text
subscriptionId} -> Text
subscriptionId) (\s :: UpdateSubscriptionNotificationConfiguration
s@UpdateSubscriptionNotificationConfiguration' {} Text
a -> UpdateSubscriptionNotificationConfiguration
s {$sel:subscriptionId:UpdateSubscriptionNotificationConfiguration' :: Text
subscriptionId = Text
a} :: UpdateSubscriptionNotificationConfiguration)
instance
Core.AWSRequest
UpdateSubscriptionNotificationConfiguration
where
type
AWSResponse
UpdateSubscriptionNotificationConfiguration =
UpdateSubscriptionNotificationConfigurationResponse
request :: (Service -> Service)
-> UpdateSubscriptionNotificationConfiguration
-> Request UpdateSubscriptionNotificationConfiguration
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 UpdateSubscriptionNotificationConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse UpdateSubscriptionNotificationConfiguration)))
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 Text
-> Int -> UpdateSubscriptionNotificationConfigurationResponse
UpdateSubscriptionNotificationConfigurationResponse'
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
"queueArn")
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
UpdateSubscriptionNotificationConfiguration
where
hashWithSalt :: Int -> UpdateSubscriptionNotificationConfiguration -> Int
hashWithSalt
Int
_salt
UpdateSubscriptionNotificationConfiguration' {Maybe Bool
Maybe Text
Maybe HttpsMethod
Text
subscriptionId :: Text
subscriptionEndpoint :: Maybe Text
roleArn :: Maybe Text
httpsMethod :: Maybe HttpsMethod
httpsApiKeyValue :: Maybe Text
httpsApiKeyName :: Maybe Text
createSqs :: Maybe Bool
$sel:subscriptionId:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Text
$sel:subscriptionEndpoint:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:roleArn:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:httpsMethod:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe HttpsMethod
$sel:httpsApiKeyValue:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:httpsApiKeyName:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:createSqs:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
createSqs
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
httpsApiKeyName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
httpsApiKeyValue
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe HttpsMethod
httpsMethod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
roleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
subscriptionEndpoint
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
subscriptionId
instance
Prelude.NFData
UpdateSubscriptionNotificationConfiguration
where
rnf :: UpdateSubscriptionNotificationConfiguration -> ()
rnf UpdateSubscriptionNotificationConfiguration' {Maybe Bool
Maybe Text
Maybe HttpsMethod
Text
subscriptionId :: Text
subscriptionEndpoint :: Maybe Text
roleArn :: Maybe Text
httpsMethod :: Maybe HttpsMethod
httpsApiKeyValue :: Maybe Text
httpsApiKeyName :: Maybe Text
createSqs :: Maybe Bool
$sel:subscriptionId:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Text
$sel:subscriptionEndpoint:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:roleArn:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:httpsMethod:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe HttpsMethod
$sel:httpsApiKeyValue:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:httpsApiKeyName:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:createSqs:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
createSqs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
httpsApiKeyName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
httpsApiKeyValue
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe HttpsMethod
httpsMethod
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
roleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
subscriptionEndpoint
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
subscriptionId
instance
Data.ToHeaders
UpdateSubscriptionNotificationConfiguration
where
toHeaders :: UpdateSubscriptionNotificationConfiguration -> 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
UpdateSubscriptionNotificationConfiguration
where
toJSON :: UpdateSubscriptionNotificationConfiguration -> Value
toJSON
UpdateSubscriptionNotificationConfiguration' {Maybe Bool
Maybe Text
Maybe HttpsMethod
Text
subscriptionId :: Text
subscriptionEndpoint :: Maybe Text
roleArn :: Maybe Text
httpsMethod :: Maybe HttpsMethod
httpsApiKeyValue :: Maybe Text
httpsApiKeyName :: Maybe Text
createSqs :: Maybe Bool
$sel:subscriptionId:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Text
$sel:subscriptionEndpoint:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:roleArn:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:httpsMethod:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe HttpsMethod
$sel:httpsApiKeyValue:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:httpsApiKeyName:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:createSqs:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"createSqs" 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 Bool
createSqs,
(Key
"httpsApiKeyName" 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
httpsApiKeyName,
(Key
"httpsApiKeyValue" 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
httpsApiKeyValue,
(Key
"httpsMethod" 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 HttpsMethod
httpsMethod,
(Key
"roleArn" 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
roleArn,
(Key
"subscriptionEndpoint" 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
subscriptionEndpoint
]
)
instance
Data.ToPath
UpdateSubscriptionNotificationConfiguration
where
toPath :: UpdateSubscriptionNotificationConfiguration -> ByteString
toPath
UpdateSubscriptionNotificationConfiguration' {Maybe Bool
Maybe Text
Maybe HttpsMethod
Text
subscriptionId :: Text
subscriptionEndpoint :: Maybe Text
roleArn :: Maybe Text
httpsMethod :: Maybe HttpsMethod
httpsApiKeyValue :: Maybe Text
httpsApiKeyName :: Maybe Text
createSqs :: Maybe Bool
$sel:subscriptionId:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Text
$sel:subscriptionEndpoint:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:roleArn:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:httpsMethod:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe HttpsMethod
$sel:httpsApiKeyValue:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:httpsApiKeyName:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Text
$sel:createSqs:UpdateSubscriptionNotificationConfiguration' :: UpdateSubscriptionNotificationConfiguration -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/subscription-notifications/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
subscriptionId
]
instance
Data.ToQuery
UpdateSubscriptionNotificationConfiguration
where
toQuery :: UpdateSubscriptionNotificationConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateSubscriptionNotificationConfigurationResponse = UpdateSubscriptionNotificationConfigurationResponse'
{
UpdateSubscriptionNotificationConfigurationResponse -> Maybe Text
queueArn :: Prelude.Maybe Prelude.Text,
UpdateSubscriptionNotificationConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateSubscriptionNotificationConfigurationResponse
-> UpdateSubscriptionNotificationConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateSubscriptionNotificationConfigurationResponse
-> UpdateSubscriptionNotificationConfigurationResponse -> Bool
$c/= :: UpdateSubscriptionNotificationConfigurationResponse
-> UpdateSubscriptionNotificationConfigurationResponse -> Bool
== :: UpdateSubscriptionNotificationConfigurationResponse
-> UpdateSubscriptionNotificationConfigurationResponse -> Bool
$c== :: UpdateSubscriptionNotificationConfigurationResponse
-> UpdateSubscriptionNotificationConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [UpdateSubscriptionNotificationConfigurationResponse]
ReadPrec UpdateSubscriptionNotificationConfigurationResponse
Int -> ReadS UpdateSubscriptionNotificationConfigurationResponse
ReadS [UpdateSubscriptionNotificationConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateSubscriptionNotificationConfigurationResponse]
$creadListPrec :: ReadPrec [UpdateSubscriptionNotificationConfigurationResponse]
readPrec :: ReadPrec UpdateSubscriptionNotificationConfigurationResponse
$creadPrec :: ReadPrec UpdateSubscriptionNotificationConfigurationResponse
readList :: ReadS [UpdateSubscriptionNotificationConfigurationResponse]
$creadList :: ReadS [UpdateSubscriptionNotificationConfigurationResponse]
readsPrec :: Int -> ReadS UpdateSubscriptionNotificationConfigurationResponse
$creadsPrec :: Int -> ReadS UpdateSubscriptionNotificationConfigurationResponse
Prelude.Read, Int -> UpdateSubscriptionNotificationConfigurationResponse -> ShowS
[UpdateSubscriptionNotificationConfigurationResponse] -> ShowS
UpdateSubscriptionNotificationConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateSubscriptionNotificationConfigurationResponse] -> ShowS
$cshowList :: [UpdateSubscriptionNotificationConfigurationResponse] -> ShowS
show :: UpdateSubscriptionNotificationConfigurationResponse -> String
$cshow :: UpdateSubscriptionNotificationConfigurationResponse -> String
showsPrec :: Int -> UpdateSubscriptionNotificationConfigurationResponse -> ShowS
$cshowsPrec :: Int -> UpdateSubscriptionNotificationConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateSubscriptionNotificationConfigurationResponse x
-> UpdateSubscriptionNotificationConfigurationResponse
forall x.
UpdateSubscriptionNotificationConfigurationResponse
-> Rep UpdateSubscriptionNotificationConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateSubscriptionNotificationConfigurationResponse x
-> UpdateSubscriptionNotificationConfigurationResponse
$cfrom :: forall x.
UpdateSubscriptionNotificationConfigurationResponse
-> Rep UpdateSubscriptionNotificationConfigurationResponse x
Prelude.Generic)
newUpdateSubscriptionNotificationConfigurationResponse ::
Prelude.Int ->
UpdateSubscriptionNotificationConfigurationResponse
newUpdateSubscriptionNotificationConfigurationResponse :: Int -> UpdateSubscriptionNotificationConfigurationResponse
newUpdateSubscriptionNotificationConfigurationResponse
Int
pHttpStatus_ =
UpdateSubscriptionNotificationConfigurationResponse'
{ $sel:queueArn:UpdateSubscriptionNotificationConfigurationResponse' :: Maybe Text
queueArn =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateSubscriptionNotificationConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
updateSubscriptionNotificationConfigurationResponse_queueArn :: Lens.Lens' UpdateSubscriptionNotificationConfigurationResponse (Prelude.Maybe Prelude.Text)
updateSubscriptionNotificationConfigurationResponse_queueArn :: Lens'
UpdateSubscriptionNotificationConfigurationResponse (Maybe Text)
updateSubscriptionNotificationConfigurationResponse_queueArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSubscriptionNotificationConfigurationResponse' {Maybe Text
queueArn :: Maybe Text
$sel:queueArn:UpdateSubscriptionNotificationConfigurationResponse' :: UpdateSubscriptionNotificationConfigurationResponse -> Maybe Text
queueArn} -> Maybe Text
queueArn) (\s :: UpdateSubscriptionNotificationConfigurationResponse
s@UpdateSubscriptionNotificationConfigurationResponse' {} Maybe Text
a -> UpdateSubscriptionNotificationConfigurationResponse
s {$sel:queueArn:UpdateSubscriptionNotificationConfigurationResponse' :: Maybe Text
queueArn = Maybe Text
a} :: UpdateSubscriptionNotificationConfigurationResponse)
updateSubscriptionNotificationConfigurationResponse_httpStatus :: Lens.Lens' UpdateSubscriptionNotificationConfigurationResponse Prelude.Int
updateSubscriptionNotificationConfigurationResponse_httpStatus :: Lens' UpdateSubscriptionNotificationConfigurationResponse Int
updateSubscriptionNotificationConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateSubscriptionNotificationConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateSubscriptionNotificationConfigurationResponse' :: UpdateSubscriptionNotificationConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateSubscriptionNotificationConfigurationResponse
s@UpdateSubscriptionNotificationConfigurationResponse' {} Int
a -> UpdateSubscriptionNotificationConfigurationResponse
s {$sel:httpStatus:UpdateSubscriptionNotificationConfigurationResponse' :: Int
httpStatus = Int
a} :: UpdateSubscriptionNotificationConfigurationResponse)
instance
Prelude.NFData
UpdateSubscriptionNotificationConfigurationResponse
where
rnf :: UpdateSubscriptionNotificationConfigurationResponse -> ()
rnf
UpdateSubscriptionNotificationConfigurationResponse' {Int
Maybe Text
httpStatus :: Int
queueArn :: Maybe Text
$sel:httpStatus:UpdateSubscriptionNotificationConfigurationResponse' :: UpdateSubscriptionNotificationConfigurationResponse -> Int
$sel:queueArn:UpdateSubscriptionNotificationConfigurationResponse' :: UpdateSubscriptionNotificationConfigurationResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
queueArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus