{-# 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.Inspector.UnsubscribeFromEvent
(
UnsubscribeFromEvent (..),
newUnsubscribeFromEvent,
unsubscribeFromEvent_resourceArn,
unsubscribeFromEvent_event,
unsubscribeFromEvent_topicArn,
UnsubscribeFromEventResponse (..),
newUnsubscribeFromEventResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Inspector.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UnsubscribeFromEvent = UnsubscribeFromEvent'
{
UnsubscribeFromEvent -> Text
resourceArn :: Prelude.Text,
UnsubscribeFromEvent -> InspectorEvent
event :: InspectorEvent,
UnsubscribeFromEvent -> Text
topicArn :: Prelude.Text
}
deriving (UnsubscribeFromEvent -> UnsubscribeFromEvent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UnsubscribeFromEvent -> UnsubscribeFromEvent -> Bool
$c/= :: UnsubscribeFromEvent -> UnsubscribeFromEvent -> Bool
== :: UnsubscribeFromEvent -> UnsubscribeFromEvent -> Bool
$c== :: UnsubscribeFromEvent -> UnsubscribeFromEvent -> Bool
Prelude.Eq, ReadPrec [UnsubscribeFromEvent]
ReadPrec UnsubscribeFromEvent
Int -> ReadS UnsubscribeFromEvent
ReadS [UnsubscribeFromEvent]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UnsubscribeFromEvent]
$creadListPrec :: ReadPrec [UnsubscribeFromEvent]
readPrec :: ReadPrec UnsubscribeFromEvent
$creadPrec :: ReadPrec UnsubscribeFromEvent
readList :: ReadS [UnsubscribeFromEvent]
$creadList :: ReadS [UnsubscribeFromEvent]
readsPrec :: Int -> ReadS UnsubscribeFromEvent
$creadsPrec :: Int -> ReadS UnsubscribeFromEvent
Prelude.Read, Int -> UnsubscribeFromEvent -> ShowS
[UnsubscribeFromEvent] -> ShowS
UnsubscribeFromEvent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UnsubscribeFromEvent] -> ShowS
$cshowList :: [UnsubscribeFromEvent] -> ShowS
show :: UnsubscribeFromEvent -> String
$cshow :: UnsubscribeFromEvent -> String
showsPrec :: Int -> UnsubscribeFromEvent -> ShowS
$cshowsPrec :: Int -> UnsubscribeFromEvent -> ShowS
Prelude.Show, forall x. Rep UnsubscribeFromEvent x -> UnsubscribeFromEvent
forall x. UnsubscribeFromEvent -> Rep UnsubscribeFromEvent x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UnsubscribeFromEvent x -> UnsubscribeFromEvent
$cfrom :: forall x. UnsubscribeFromEvent -> Rep UnsubscribeFromEvent x
Prelude.Generic)
newUnsubscribeFromEvent ::
Prelude.Text ->
InspectorEvent ->
Prelude.Text ->
UnsubscribeFromEvent
newUnsubscribeFromEvent :: Text -> InspectorEvent -> Text -> UnsubscribeFromEvent
newUnsubscribeFromEvent
Text
pResourceArn_
InspectorEvent
pEvent_
Text
pTopicArn_ =
UnsubscribeFromEvent'
{ $sel:resourceArn:UnsubscribeFromEvent' :: Text
resourceArn = Text
pResourceArn_,
$sel:event:UnsubscribeFromEvent' :: InspectorEvent
event = InspectorEvent
pEvent_,
$sel:topicArn:UnsubscribeFromEvent' :: Text
topicArn = Text
pTopicArn_
}
unsubscribeFromEvent_resourceArn :: Lens.Lens' UnsubscribeFromEvent Prelude.Text
unsubscribeFromEvent_resourceArn :: Lens' UnsubscribeFromEvent Text
unsubscribeFromEvent_resourceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UnsubscribeFromEvent' {Text
resourceArn :: Text
$sel:resourceArn:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> Text
resourceArn} -> Text
resourceArn) (\s :: UnsubscribeFromEvent
s@UnsubscribeFromEvent' {} Text
a -> UnsubscribeFromEvent
s {$sel:resourceArn:UnsubscribeFromEvent' :: Text
resourceArn = Text
a} :: UnsubscribeFromEvent)
unsubscribeFromEvent_event :: Lens.Lens' UnsubscribeFromEvent InspectorEvent
unsubscribeFromEvent_event :: Lens' UnsubscribeFromEvent InspectorEvent
unsubscribeFromEvent_event = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UnsubscribeFromEvent' {InspectorEvent
event :: InspectorEvent
$sel:event:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> InspectorEvent
event} -> InspectorEvent
event) (\s :: UnsubscribeFromEvent
s@UnsubscribeFromEvent' {} InspectorEvent
a -> UnsubscribeFromEvent
s {$sel:event:UnsubscribeFromEvent' :: InspectorEvent
event = InspectorEvent
a} :: UnsubscribeFromEvent)
unsubscribeFromEvent_topicArn :: Lens.Lens' UnsubscribeFromEvent Prelude.Text
unsubscribeFromEvent_topicArn :: Lens' UnsubscribeFromEvent Text
unsubscribeFromEvent_topicArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UnsubscribeFromEvent' {Text
topicArn :: Text
$sel:topicArn:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> Text
topicArn} -> Text
topicArn) (\s :: UnsubscribeFromEvent
s@UnsubscribeFromEvent' {} Text
a -> UnsubscribeFromEvent
s {$sel:topicArn:UnsubscribeFromEvent' :: Text
topicArn = Text
a} :: UnsubscribeFromEvent)
instance Core.AWSRequest UnsubscribeFromEvent where
type
AWSResponse UnsubscribeFromEvent =
UnsubscribeFromEventResponse
request :: (Service -> Service)
-> UnsubscribeFromEvent -> Request UnsubscribeFromEvent
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 UnsubscribeFromEvent
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UnsubscribeFromEvent)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull UnsubscribeFromEventResponse
UnsubscribeFromEventResponse'
instance Prelude.Hashable UnsubscribeFromEvent where
hashWithSalt :: Int -> UnsubscribeFromEvent -> Int
hashWithSalt Int
_salt UnsubscribeFromEvent' {Text
InspectorEvent
topicArn :: Text
event :: InspectorEvent
resourceArn :: Text
$sel:topicArn:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> Text
$sel:event:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> InspectorEvent
$sel:resourceArn:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` InspectorEvent
event
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
topicArn
instance Prelude.NFData UnsubscribeFromEvent where
rnf :: UnsubscribeFromEvent -> ()
rnf UnsubscribeFromEvent' {Text
InspectorEvent
topicArn :: Text
event :: InspectorEvent
resourceArn :: Text
$sel:topicArn:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> Text
$sel:event:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> InspectorEvent
$sel:resourceArn:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
resourceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf InspectorEvent
event
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
topicArn
instance Data.ToHeaders UnsubscribeFromEvent where
toHeaders :: UnsubscribeFromEvent -> [Header]
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 -> [Header]
Data.=# ( ByteString
"InspectorService.UnsubscribeFromEvent" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UnsubscribeFromEvent where
toJSON :: UnsubscribeFromEvent -> Value
toJSON UnsubscribeFromEvent' {Text
InspectorEvent
topicArn :: Text
event :: InspectorEvent
resourceArn :: Text
$sel:topicArn:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> Text
$sel:event:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> InspectorEvent
$sel:resourceArn:UnsubscribeFromEvent' :: UnsubscribeFromEvent -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"resourceArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resourceArn),
forall a. a -> Maybe a
Prelude.Just (Key
"event" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= InspectorEvent
event),
forall a. a -> Maybe a
Prelude.Just (Key
"topicArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
topicArn)
]
)
instance Data.ToPath UnsubscribeFromEvent where
toPath :: UnsubscribeFromEvent -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UnsubscribeFromEvent where
toQuery :: UnsubscribeFromEvent -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UnsubscribeFromEventResponse = UnsubscribeFromEventResponse'
{
}
deriving (UnsubscribeFromEventResponse
-> UnsubscribeFromEventResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UnsubscribeFromEventResponse
-> UnsubscribeFromEventResponse -> Bool
$c/= :: UnsubscribeFromEventResponse
-> UnsubscribeFromEventResponse -> Bool
== :: UnsubscribeFromEventResponse
-> UnsubscribeFromEventResponse -> Bool
$c== :: UnsubscribeFromEventResponse
-> UnsubscribeFromEventResponse -> Bool
Prelude.Eq, ReadPrec [UnsubscribeFromEventResponse]
ReadPrec UnsubscribeFromEventResponse
Int -> ReadS UnsubscribeFromEventResponse
ReadS [UnsubscribeFromEventResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UnsubscribeFromEventResponse]
$creadListPrec :: ReadPrec [UnsubscribeFromEventResponse]
readPrec :: ReadPrec UnsubscribeFromEventResponse
$creadPrec :: ReadPrec UnsubscribeFromEventResponse
readList :: ReadS [UnsubscribeFromEventResponse]
$creadList :: ReadS [UnsubscribeFromEventResponse]
readsPrec :: Int -> ReadS UnsubscribeFromEventResponse
$creadsPrec :: Int -> ReadS UnsubscribeFromEventResponse
Prelude.Read, Int -> UnsubscribeFromEventResponse -> ShowS
[UnsubscribeFromEventResponse] -> ShowS
UnsubscribeFromEventResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UnsubscribeFromEventResponse] -> ShowS
$cshowList :: [UnsubscribeFromEventResponse] -> ShowS
show :: UnsubscribeFromEventResponse -> String
$cshow :: UnsubscribeFromEventResponse -> String
showsPrec :: Int -> UnsubscribeFromEventResponse -> ShowS
$cshowsPrec :: Int -> UnsubscribeFromEventResponse -> ShowS
Prelude.Show, forall x.
Rep UnsubscribeFromEventResponse x -> UnsubscribeFromEventResponse
forall x.
UnsubscribeFromEventResponse -> Rep UnsubscribeFromEventResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UnsubscribeFromEventResponse x -> UnsubscribeFromEventResponse
$cfrom :: forall x.
UnsubscribeFromEventResponse -> Rep UnsubscribeFromEventResponse x
Prelude.Generic)
newUnsubscribeFromEventResponse ::
UnsubscribeFromEventResponse
newUnsubscribeFromEventResponse :: UnsubscribeFromEventResponse
newUnsubscribeFromEventResponse =
UnsubscribeFromEventResponse
UnsubscribeFromEventResponse'
instance Prelude.NFData UnsubscribeFromEventResponse where
rnf :: UnsubscribeFromEventResponse -> ()
rnf UnsubscribeFromEventResponse
_ = ()