{-# 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.DeleteSubscriptionNotificationConfiguration
(
DeleteSubscriptionNotificationConfiguration (..),
newDeleteSubscriptionNotificationConfiguration,
deleteSubscriptionNotificationConfiguration_subscriptionId,
DeleteSubscriptionNotificationConfigurationResponse (..),
newDeleteSubscriptionNotificationConfigurationResponse,
deleteSubscriptionNotificationConfigurationResponse_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 DeleteSubscriptionNotificationConfiguration = DeleteSubscriptionNotificationConfiguration'
{
DeleteSubscriptionNotificationConfiguration -> Text
subscriptionId :: Prelude.Text
}
deriving (DeleteSubscriptionNotificationConfiguration
-> DeleteSubscriptionNotificationConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSubscriptionNotificationConfiguration
-> DeleteSubscriptionNotificationConfiguration -> Bool
$c/= :: DeleteSubscriptionNotificationConfiguration
-> DeleteSubscriptionNotificationConfiguration -> Bool
== :: DeleteSubscriptionNotificationConfiguration
-> DeleteSubscriptionNotificationConfiguration -> Bool
$c== :: DeleteSubscriptionNotificationConfiguration
-> DeleteSubscriptionNotificationConfiguration -> Bool
Prelude.Eq, ReadPrec [DeleteSubscriptionNotificationConfiguration]
ReadPrec DeleteSubscriptionNotificationConfiguration
Int -> ReadS DeleteSubscriptionNotificationConfiguration
ReadS [DeleteSubscriptionNotificationConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSubscriptionNotificationConfiguration]
$creadListPrec :: ReadPrec [DeleteSubscriptionNotificationConfiguration]
readPrec :: ReadPrec DeleteSubscriptionNotificationConfiguration
$creadPrec :: ReadPrec DeleteSubscriptionNotificationConfiguration
readList :: ReadS [DeleteSubscriptionNotificationConfiguration]
$creadList :: ReadS [DeleteSubscriptionNotificationConfiguration]
readsPrec :: Int -> ReadS DeleteSubscriptionNotificationConfiguration
$creadsPrec :: Int -> ReadS DeleteSubscriptionNotificationConfiguration
Prelude.Read, Int -> DeleteSubscriptionNotificationConfiguration -> ShowS
[DeleteSubscriptionNotificationConfiguration] -> ShowS
DeleteSubscriptionNotificationConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSubscriptionNotificationConfiguration] -> ShowS
$cshowList :: [DeleteSubscriptionNotificationConfiguration] -> ShowS
show :: DeleteSubscriptionNotificationConfiguration -> String
$cshow :: DeleteSubscriptionNotificationConfiguration -> String
showsPrec :: Int -> DeleteSubscriptionNotificationConfiguration -> ShowS
$cshowsPrec :: Int -> DeleteSubscriptionNotificationConfiguration -> ShowS
Prelude.Show, forall x.
Rep DeleteSubscriptionNotificationConfiguration x
-> DeleteSubscriptionNotificationConfiguration
forall x.
DeleteSubscriptionNotificationConfiguration
-> Rep DeleteSubscriptionNotificationConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteSubscriptionNotificationConfiguration x
-> DeleteSubscriptionNotificationConfiguration
$cfrom :: forall x.
DeleteSubscriptionNotificationConfiguration
-> Rep DeleteSubscriptionNotificationConfiguration x
Prelude.Generic)
newDeleteSubscriptionNotificationConfiguration ::
Prelude.Text ->
DeleteSubscriptionNotificationConfiguration
newDeleteSubscriptionNotificationConfiguration :: Text -> DeleteSubscriptionNotificationConfiguration
newDeleteSubscriptionNotificationConfiguration
Text
pSubscriptionId_ =
DeleteSubscriptionNotificationConfiguration'
{ $sel:subscriptionId:DeleteSubscriptionNotificationConfiguration' :: Text
subscriptionId =
Text
pSubscriptionId_
}
deleteSubscriptionNotificationConfiguration_subscriptionId :: Lens.Lens' DeleteSubscriptionNotificationConfiguration Prelude.Text
deleteSubscriptionNotificationConfiguration_subscriptionId :: Lens' DeleteSubscriptionNotificationConfiguration Text
deleteSubscriptionNotificationConfiguration_subscriptionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSubscriptionNotificationConfiguration' {Text
subscriptionId :: Text
$sel:subscriptionId:DeleteSubscriptionNotificationConfiguration' :: DeleteSubscriptionNotificationConfiguration -> Text
subscriptionId} -> Text
subscriptionId) (\s :: DeleteSubscriptionNotificationConfiguration
s@DeleteSubscriptionNotificationConfiguration' {} Text
a -> DeleteSubscriptionNotificationConfiguration
s {$sel:subscriptionId:DeleteSubscriptionNotificationConfiguration' :: Text
subscriptionId = Text
a} :: DeleteSubscriptionNotificationConfiguration)
instance
Core.AWSRequest
DeleteSubscriptionNotificationConfiguration
where
type
AWSResponse
DeleteSubscriptionNotificationConfiguration =
DeleteSubscriptionNotificationConfigurationResponse
request :: (Service -> Service)
-> DeleteSubscriptionNotificationConfiguration
-> Request DeleteSubscriptionNotificationConfiguration
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteSubscriptionNotificationConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DeleteSubscriptionNotificationConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DeleteSubscriptionNotificationConfigurationResponse
DeleteSubscriptionNotificationConfigurationResponse'
forall (f :: * -> *) a b. Functor 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
DeleteSubscriptionNotificationConfiguration
where
hashWithSalt :: Int -> DeleteSubscriptionNotificationConfiguration -> Int
hashWithSalt
Int
_salt
DeleteSubscriptionNotificationConfiguration' {Text
subscriptionId :: Text
$sel:subscriptionId:DeleteSubscriptionNotificationConfiguration' :: DeleteSubscriptionNotificationConfiguration -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
subscriptionId
instance
Prelude.NFData
DeleteSubscriptionNotificationConfiguration
where
rnf :: DeleteSubscriptionNotificationConfiguration -> ()
rnf DeleteSubscriptionNotificationConfiguration' {Text
subscriptionId :: Text
$sel:subscriptionId:DeleteSubscriptionNotificationConfiguration' :: DeleteSubscriptionNotificationConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
subscriptionId
instance
Data.ToHeaders
DeleteSubscriptionNotificationConfiguration
where
toHeaders :: DeleteSubscriptionNotificationConfiguration -> 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.ToPath
DeleteSubscriptionNotificationConfiguration
where
toPath :: DeleteSubscriptionNotificationConfiguration -> ByteString
toPath
DeleteSubscriptionNotificationConfiguration' {Text
subscriptionId :: Text
$sel:subscriptionId:DeleteSubscriptionNotificationConfiguration' :: DeleteSubscriptionNotificationConfiguration -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/subscription-notifications/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
subscriptionId
]
instance
Data.ToQuery
DeleteSubscriptionNotificationConfiguration
where
toQuery :: DeleteSubscriptionNotificationConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteSubscriptionNotificationConfigurationResponse = DeleteSubscriptionNotificationConfigurationResponse'
{
DeleteSubscriptionNotificationConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteSubscriptionNotificationConfigurationResponse
-> DeleteSubscriptionNotificationConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSubscriptionNotificationConfigurationResponse
-> DeleteSubscriptionNotificationConfigurationResponse -> Bool
$c/= :: DeleteSubscriptionNotificationConfigurationResponse
-> DeleteSubscriptionNotificationConfigurationResponse -> Bool
== :: DeleteSubscriptionNotificationConfigurationResponse
-> DeleteSubscriptionNotificationConfigurationResponse -> Bool
$c== :: DeleteSubscriptionNotificationConfigurationResponse
-> DeleteSubscriptionNotificationConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [DeleteSubscriptionNotificationConfigurationResponse]
ReadPrec DeleteSubscriptionNotificationConfigurationResponse
Int -> ReadS DeleteSubscriptionNotificationConfigurationResponse
ReadS [DeleteSubscriptionNotificationConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSubscriptionNotificationConfigurationResponse]
$creadListPrec :: ReadPrec [DeleteSubscriptionNotificationConfigurationResponse]
readPrec :: ReadPrec DeleteSubscriptionNotificationConfigurationResponse
$creadPrec :: ReadPrec DeleteSubscriptionNotificationConfigurationResponse
readList :: ReadS [DeleteSubscriptionNotificationConfigurationResponse]
$creadList :: ReadS [DeleteSubscriptionNotificationConfigurationResponse]
readsPrec :: Int -> ReadS DeleteSubscriptionNotificationConfigurationResponse
$creadsPrec :: Int -> ReadS DeleteSubscriptionNotificationConfigurationResponse
Prelude.Read, Int -> DeleteSubscriptionNotificationConfigurationResponse -> ShowS
[DeleteSubscriptionNotificationConfigurationResponse] -> ShowS
DeleteSubscriptionNotificationConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSubscriptionNotificationConfigurationResponse] -> ShowS
$cshowList :: [DeleteSubscriptionNotificationConfigurationResponse] -> ShowS
show :: DeleteSubscriptionNotificationConfigurationResponse -> String
$cshow :: DeleteSubscriptionNotificationConfigurationResponse -> String
showsPrec :: Int -> DeleteSubscriptionNotificationConfigurationResponse -> ShowS
$cshowsPrec :: Int -> DeleteSubscriptionNotificationConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteSubscriptionNotificationConfigurationResponse x
-> DeleteSubscriptionNotificationConfigurationResponse
forall x.
DeleteSubscriptionNotificationConfigurationResponse
-> Rep DeleteSubscriptionNotificationConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteSubscriptionNotificationConfigurationResponse x
-> DeleteSubscriptionNotificationConfigurationResponse
$cfrom :: forall x.
DeleteSubscriptionNotificationConfigurationResponse
-> Rep DeleteSubscriptionNotificationConfigurationResponse x
Prelude.Generic)
newDeleteSubscriptionNotificationConfigurationResponse ::
Prelude.Int ->
DeleteSubscriptionNotificationConfigurationResponse
newDeleteSubscriptionNotificationConfigurationResponse :: Int -> DeleteSubscriptionNotificationConfigurationResponse
newDeleteSubscriptionNotificationConfigurationResponse
Int
pHttpStatus_ =
DeleteSubscriptionNotificationConfigurationResponse'
{ $sel:httpStatus:DeleteSubscriptionNotificationConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteSubscriptionNotificationConfigurationResponse_httpStatus :: Lens.Lens' DeleteSubscriptionNotificationConfigurationResponse Prelude.Int
deleteSubscriptionNotificationConfigurationResponse_httpStatus :: Lens' DeleteSubscriptionNotificationConfigurationResponse Int
deleteSubscriptionNotificationConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSubscriptionNotificationConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteSubscriptionNotificationConfigurationResponse' :: DeleteSubscriptionNotificationConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteSubscriptionNotificationConfigurationResponse
s@DeleteSubscriptionNotificationConfigurationResponse' {} Int
a -> DeleteSubscriptionNotificationConfigurationResponse
s {$sel:httpStatus:DeleteSubscriptionNotificationConfigurationResponse' :: Int
httpStatus = Int
a} :: DeleteSubscriptionNotificationConfigurationResponse)
instance
Prelude.NFData
DeleteSubscriptionNotificationConfigurationResponse
where
rnf :: DeleteSubscriptionNotificationConfigurationResponse -> ()
rnf
DeleteSubscriptionNotificationConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteSubscriptionNotificationConfigurationResponse' :: DeleteSubscriptionNotificationConfigurationResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus