{-# 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.IoT.StartDetectMitigationActionsTask
(
StartDetectMitigationActionsTask (..),
newStartDetectMitigationActionsTask,
startDetectMitigationActionsTask_includeOnlyActiveViolations,
startDetectMitigationActionsTask_includeSuppressedAlerts,
startDetectMitigationActionsTask_violationEventOccurrenceRange,
startDetectMitigationActionsTask_taskId,
startDetectMitigationActionsTask_target,
startDetectMitigationActionsTask_actions,
startDetectMitigationActionsTask_clientRequestToken,
StartDetectMitigationActionsTaskResponse (..),
newStartDetectMitigationActionsTaskResponse,
startDetectMitigationActionsTaskResponse_taskId,
startDetectMitigationActionsTaskResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoT.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data StartDetectMitigationActionsTask = StartDetectMitigationActionsTask'
{
StartDetectMitigationActionsTask -> Maybe Bool
includeOnlyActiveViolations :: Prelude.Maybe Prelude.Bool,
StartDetectMitigationActionsTask -> Maybe Bool
includeSuppressedAlerts :: Prelude.Maybe Prelude.Bool,
StartDetectMitigationActionsTask
-> Maybe ViolationEventOccurrenceRange
violationEventOccurrenceRange :: Prelude.Maybe ViolationEventOccurrenceRange,
StartDetectMitigationActionsTask -> Text
taskId :: Prelude.Text,
StartDetectMitigationActionsTask
-> DetectMitigationActionsTaskTarget
target :: DetectMitigationActionsTaskTarget,
StartDetectMitigationActionsTask -> NonEmpty Text
actions :: Prelude.NonEmpty Prelude.Text,
StartDetectMitigationActionsTask -> Text
clientRequestToken :: Prelude.Text
}
deriving (StartDetectMitigationActionsTask
-> StartDetectMitigationActionsTask -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartDetectMitigationActionsTask
-> StartDetectMitigationActionsTask -> Bool
$c/= :: StartDetectMitigationActionsTask
-> StartDetectMitigationActionsTask -> Bool
== :: StartDetectMitigationActionsTask
-> StartDetectMitigationActionsTask -> Bool
$c== :: StartDetectMitigationActionsTask
-> StartDetectMitigationActionsTask -> Bool
Prelude.Eq, ReadPrec [StartDetectMitigationActionsTask]
ReadPrec StartDetectMitigationActionsTask
Int -> ReadS StartDetectMitigationActionsTask
ReadS [StartDetectMitigationActionsTask]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartDetectMitigationActionsTask]
$creadListPrec :: ReadPrec [StartDetectMitigationActionsTask]
readPrec :: ReadPrec StartDetectMitigationActionsTask
$creadPrec :: ReadPrec StartDetectMitigationActionsTask
readList :: ReadS [StartDetectMitigationActionsTask]
$creadList :: ReadS [StartDetectMitigationActionsTask]
readsPrec :: Int -> ReadS StartDetectMitigationActionsTask
$creadsPrec :: Int -> ReadS StartDetectMitigationActionsTask
Prelude.Read, Int -> StartDetectMitigationActionsTask -> ShowS
[StartDetectMitigationActionsTask] -> ShowS
StartDetectMitigationActionsTask -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartDetectMitigationActionsTask] -> ShowS
$cshowList :: [StartDetectMitigationActionsTask] -> ShowS
show :: StartDetectMitigationActionsTask -> String
$cshow :: StartDetectMitigationActionsTask -> String
showsPrec :: Int -> StartDetectMitigationActionsTask -> ShowS
$cshowsPrec :: Int -> StartDetectMitigationActionsTask -> ShowS
Prelude.Show, forall x.
Rep StartDetectMitigationActionsTask x
-> StartDetectMitigationActionsTask
forall x.
StartDetectMitigationActionsTask
-> Rep StartDetectMitigationActionsTask x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartDetectMitigationActionsTask x
-> StartDetectMitigationActionsTask
$cfrom :: forall x.
StartDetectMitigationActionsTask
-> Rep StartDetectMitigationActionsTask x
Prelude.Generic)
newStartDetectMitigationActionsTask ::
Prelude.Text ->
DetectMitigationActionsTaskTarget ->
Prelude.NonEmpty Prelude.Text ->
Prelude.Text ->
StartDetectMitigationActionsTask
newStartDetectMitigationActionsTask :: Text
-> DetectMitigationActionsTaskTarget
-> NonEmpty Text
-> Text
-> StartDetectMitigationActionsTask
newStartDetectMitigationActionsTask
Text
pTaskId_
DetectMitigationActionsTaskTarget
pTarget_
NonEmpty Text
pActions_
Text
pClientRequestToken_ =
StartDetectMitigationActionsTask'
{ $sel:includeOnlyActiveViolations:StartDetectMitigationActionsTask' :: Maybe Bool
includeOnlyActiveViolations =
forall a. Maybe a
Prelude.Nothing,
$sel:includeSuppressedAlerts:StartDetectMitigationActionsTask' :: Maybe Bool
includeSuppressedAlerts = forall a. Maybe a
Prelude.Nothing,
$sel:violationEventOccurrenceRange:StartDetectMitigationActionsTask' :: Maybe ViolationEventOccurrenceRange
violationEventOccurrenceRange =
forall a. Maybe a
Prelude.Nothing,
$sel:taskId:StartDetectMitigationActionsTask' :: Text
taskId = Text
pTaskId_,
$sel:target:StartDetectMitigationActionsTask' :: DetectMitigationActionsTaskTarget
target = DetectMitigationActionsTaskTarget
pTarget_,
$sel:actions:StartDetectMitigationActionsTask' :: NonEmpty Text
actions = forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced forall t b. AReview t b -> b -> t
Lens.# NonEmpty Text
pActions_,
$sel:clientRequestToken:StartDetectMitigationActionsTask' :: Text
clientRequestToken = Text
pClientRequestToken_
}
startDetectMitigationActionsTask_includeOnlyActiveViolations :: Lens.Lens' StartDetectMitigationActionsTask (Prelude.Maybe Prelude.Bool)
startDetectMitigationActionsTask_includeOnlyActiveViolations :: Lens' StartDetectMitigationActionsTask (Maybe Bool)
startDetectMitigationActionsTask_includeOnlyActiveViolations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDetectMitigationActionsTask' {Maybe Bool
includeOnlyActiveViolations :: Maybe Bool
$sel:includeOnlyActiveViolations:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Maybe Bool
includeOnlyActiveViolations} -> Maybe Bool
includeOnlyActiveViolations) (\s :: StartDetectMitigationActionsTask
s@StartDetectMitigationActionsTask' {} Maybe Bool
a -> StartDetectMitigationActionsTask
s {$sel:includeOnlyActiveViolations:StartDetectMitigationActionsTask' :: Maybe Bool
includeOnlyActiveViolations = Maybe Bool
a} :: StartDetectMitigationActionsTask)
startDetectMitigationActionsTask_includeSuppressedAlerts :: Lens.Lens' StartDetectMitigationActionsTask (Prelude.Maybe Prelude.Bool)
startDetectMitigationActionsTask_includeSuppressedAlerts :: Lens' StartDetectMitigationActionsTask (Maybe Bool)
startDetectMitigationActionsTask_includeSuppressedAlerts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDetectMitigationActionsTask' {Maybe Bool
includeSuppressedAlerts :: Maybe Bool
$sel:includeSuppressedAlerts:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Maybe Bool
includeSuppressedAlerts} -> Maybe Bool
includeSuppressedAlerts) (\s :: StartDetectMitigationActionsTask
s@StartDetectMitigationActionsTask' {} Maybe Bool
a -> StartDetectMitigationActionsTask
s {$sel:includeSuppressedAlerts:StartDetectMitigationActionsTask' :: Maybe Bool
includeSuppressedAlerts = Maybe Bool
a} :: StartDetectMitigationActionsTask)
startDetectMitigationActionsTask_violationEventOccurrenceRange :: Lens.Lens' StartDetectMitigationActionsTask (Prelude.Maybe ViolationEventOccurrenceRange)
startDetectMitigationActionsTask_violationEventOccurrenceRange :: Lens'
StartDetectMitigationActionsTask
(Maybe ViolationEventOccurrenceRange)
startDetectMitigationActionsTask_violationEventOccurrenceRange = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDetectMitigationActionsTask' {Maybe ViolationEventOccurrenceRange
violationEventOccurrenceRange :: Maybe ViolationEventOccurrenceRange
$sel:violationEventOccurrenceRange:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask
-> Maybe ViolationEventOccurrenceRange
violationEventOccurrenceRange} -> Maybe ViolationEventOccurrenceRange
violationEventOccurrenceRange) (\s :: StartDetectMitigationActionsTask
s@StartDetectMitigationActionsTask' {} Maybe ViolationEventOccurrenceRange
a -> StartDetectMitigationActionsTask
s {$sel:violationEventOccurrenceRange:StartDetectMitigationActionsTask' :: Maybe ViolationEventOccurrenceRange
violationEventOccurrenceRange = Maybe ViolationEventOccurrenceRange
a} :: StartDetectMitigationActionsTask)
startDetectMitigationActionsTask_taskId :: Lens.Lens' StartDetectMitigationActionsTask Prelude.Text
startDetectMitigationActionsTask_taskId :: Lens' StartDetectMitigationActionsTask Text
startDetectMitigationActionsTask_taskId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDetectMitigationActionsTask' {Text
taskId :: Text
$sel:taskId:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Text
taskId} -> Text
taskId) (\s :: StartDetectMitigationActionsTask
s@StartDetectMitigationActionsTask' {} Text
a -> StartDetectMitigationActionsTask
s {$sel:taskId:StartDetectMitigationActionsTask' :: Text
taskId = Text
a} :: StartDetectMitigationActionsTask)
startDetectMitigationActionsTask_target :: Lens.Lens' StartDetectMitigationActionsTask DetectMitigationActionsTaskTarget
startDetectMitigationActionsTask_target :: Lens'
StartDetectMitigationActionsTask DetectMitigationActionsTaskTarget
startDetectMitigationActionsTask_target = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDetectMitigationActionsTask' {DetectMitigationActionsTaskTarget
target :: DetectMitigationActionsTaskTarget
$sel:target:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask
-> DetectMitigationActionsTaskTarget
target} -> DetectMitigationActionsTaskTarget
target) (\s :: StartDetectMitigationActionsTask
s@StartDetectMitigationActionsTask' {} DetectMitigationActionsTaskTarget
a -> StartDetectMitigationActionsTask
s {$sel:target:StartDetectMitigationActionsTask' :: DetectMitigationActionsTaskTarget
target = DetectMitigationActionsTaskTarget
a} :: StartDetectMitigationActionsTask)
startDetectMitigationActionsTask_actions :: Lens.Lens' StartDetectMitigationActionsTask (Prelude.NonEmpty Prelude.Text)
startDetectMitigationActionsTask_actions :: Lens' StartDetectMitigationActionsTask (NonEmpty Text)
startDetectMitigationActionsTask_actions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDetectMitigationActionsTask' {NonEmpty Text
actions :: NonEmpty Text
$sel:actions:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> NonEmpty Text
actions} -> NonEmpty Text
actions) (\s :: StartDetectMitigationActionsTask
s@StartDetectMitigationActionsTask' {} NonEmpty Text
a -> StartDetectMitigationActionsTask
s {$sel:actions:StartDetectMitigationActionsTask' :: NonEmpty Text
actions = NonEmpty Text
a} :: StartDetectMitigationActionsTask) 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
startDetectMitigationActionsTask_clientRequestToken :: Lens.Lens' StartDetectMitigationActionsTask Prelude.Text
startDetectMitigationActionsTask_clientRequestToken :: Lens' StartDetectMitigationActionsTask Text
startDetectMitigationActionsTask_clientRequestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDetectMitigationActionsTask' {Text
clientRequestToken :: Text
$sel:clientRequestToken:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Text
clientRequestToken} -> Text
clientRequestToken) (\s :: StartDetectMitigationActionsTask
s@StartDetectMitigationActionsTask' {} Text
a -> StartDetectMitigationActionsTask
s {$sel:clientRequestToken:StartDetectMitigationActionsTask' :: Text
clientRequestToken = Text
a} :: StartDetectMitigationActionsTask)
instance
Core.AWSRequest
StartDetectMitigationActionsTask
where
type
AWSResponse StartDetectMitigationActionsTask =
StartDetectMitigationActionsTaskResponse
request :: (Service -> Service)
-> StartDetectMitigationActionsTask
-> Request StartDetectMitigationActionsTask
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 StartDetectMitigationActionsTask
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse StartDetectMitigationActionsTask)))
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 -> StartDetectMitigationActionsTaskResponse
StartDetectMitigationActionsTaskResponse'
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
"taskId")
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
StartDetectMitigationActionsTask
where
hashWithSalt :: Int -> StartDetectMitigationActionsTask -> Int
hashWithSalt
Int
_salt
StartDetectMitigationActionsTask' {Maybe Bool
Maybe ViolationEventOccurrenceRange
NonEmpty Text
Text
DetectMitigationActionsTaskTarget
clientRequestToken :: Text
actions :: NonEmpty Text
target :: DetectMitigationActionsTaskTarget
taskId :: Text
violationEventOccurrenceRange :: Maybe ViolationEventOccurrenceRange
includeSuppressedAlerts :: Maybe Bool
includeOnlyActiveViolations :: Maybe Bool
$sel:clientRequestToken:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Text
$sel:actions:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> NonEmpty Text
$sel:target:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask
-> DetectMitigationActionsTaskTarget
$sel:taskId:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Text
$sel:violationEventOccurrenceRange:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask
-> Maybe ViolationEventOccurrenceRange
$sel:includeSuppressedAlerts:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Maybe Bool
$sel:includeOnlyActiveViolations:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
includeOnlyActiveViolations
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
includeSuppressedAlerts
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ViolationEventOccurrenceRange
violationEventOccurrenceRange
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
taskId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` DetectMitigationActionsTaskTarget
target
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty Text
actions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
clientRequestToken
instance
Prelude.NFData
StartDetectMitigationActionsTask
where
rnf :: StartDetectMitigationActionsTask -> ()
rnf StartDetectMitigationActionsTask' {Maybe Bool
Maybe ViolationEventOccurrenceRange
NonEmpty Text
Text
DetectMitigationActionsTaskTarget
clientRequestToken :: Text
actions :: NonEmpty Text
target :: DetectMitigationActionsTaskTarget
taskId :: Text
violationEventOccurrenceRange :: Maybe ViolationEventOccurrenceRange
includeSuppressedAlerts :: Maybe Bool
includeOnlyActiveViolations :: Maybe Bool
$sel:clientRequestToken:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Text
$sel:actions:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> NonEmpty Text
$sel:target:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask
-> DetectMitigationActionsTaskTarget
$sel:taskId:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Text
$sel:violationEventOccurrenceRange:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask
-> Maybe ViolationEventOccurrenceRange
$sel:includeSuppressedAlerts:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Maybe Bool
$sel:includeOnlyActiveViolations:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
includeOnlyActiveViolations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
includeSuppressedAlerts
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ViolationEventOccurrenceRange
violationEventOccurrenceRange
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
taskId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf DetectMitigationActionsTaskTarget
target
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NonEmpty Text
actions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
clientRequestToken
instance
Data.ToHeaders
StartDetectMitigationActionsTask
where
toHeaders :: StartDetectMitigationActionsTask -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToJSON StartDetectMitigationActionsTask where
toJSON :: StartDetectMitigationActionsTask -> Value
toJSON StartDetectMitigationActionsTask' {Maybe Bool
Maybe ViolationEventOccurrenceRange
NonEmpty Text
Text
DetectMitigationActionsTaskTarget
clientRequestToken :: Text
actions :: NonEmpty Text
target :: DetectMitigationActionsTaskTarget
taskId :: Text
violationEventOccurrenceRange :: Maybe ViolationEventOccurrenceRange
includeSuppressedAlerts :: Maybe Bool
includeOnlyActiveViolations :: Maybe Bool
$sel:clientRequestToken:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Text
$sel:actions:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> NonEmpty Text
$sel:target:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask
-> DetectMitigationActionsTaskTarget
$sel:taskId:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Text
$sel:violationEventOccurrenceRange:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask
-> Maybe ViolationEventOccurrenceRange
$sel:includeSuppressedAlerts:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Maybe Bool
$sel:includeOnlyActiveViolations:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"includeOnlyActiveViolations" 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
includeOnlyActiveViolations,
(Key
"includeSuppressedAlerts" 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
includeSuppressedAlerts,
(Key
"violationEventOccurrenceRange" 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 ViolationEventOccurrenceRange
violationEventOccurrenceRange,
forall a. a -> Maybe a
Prelude.Just (Key
"target" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= DetectMitigationActionsTaskTarget
target),
forall a. a -> Maybe a
Prelude.Just (Key
"actions" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty Text
actions),
forall a. a -> Maybe a
Prelude.Just
(Key
"clientRequestToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
clientRequestToken)
]
)
instance Data.ToPath StartDetectMitigationActionsTask where
toPath :: StartDetectMitigationActionsTask -> ByteString
toPath StartDetectMitigationActionsTask' {Maybe Bool
Maybe ViolationEventOccurrenceRange
NonEmpty Text
Text
DetectMitigationActionsTaskTarget
clientRequestToken :: Text
actions :: NonEmpty Text
target :: DetectMitigationActionsTaskTarget
taskId :: Text
violationEventOccurrenceRange :: Maybe ViolationEventOccurrenceRange
includeSuppressedAlerts :: Maybe Bool
includeOnlyActiveViolations :: Maybe Bool
$sel:clientRequestToken:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Text
$sel:actions:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> NonEmpty Text
$sel:target:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask
-> DetectMitigationActionsTaskTarget
$sel:taskId:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Text
$sel:violationEventOccurrenceRange:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask
-> Maybe ViolationEventOccurrenceRange
$sel:includeSuppressedAlerts:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Maybe Bool
$sel:includeOnlyActiveViolations:StartDetectMitigationActionsTask' :: StartDetectMitigationActionsTask -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/detect/mitigationactions/tasks/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
taskId
]
instance
Data.ToQuery
StartDetectMitigationActionsTask
where
toQuery :: StartDetectMitigationActionsTask -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StartDetectMitigationActionsTaskResponse = StartDetectMitigationActionsTaskResponse'
{
StartDetectMitigationActionsTaskResponse -> Maybe Text
taskId :: Prelude.Maybe Prelude.Text,
StartDetectMitigationActionsTaskResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StartDetectMitigationActionsTaskResponse
-> StartDetectMitigationActionsTaskResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartDetectMitigationActionsTaskResponse
-> StartDetectMitigationActionsTaskResponse -> Bool
$c/= :: StartDetectMitigationActionsTaskResponse
-> StartDetectMitigationActionsTaskResponse -> Bool
== :: StartDetectMitigationActionsTaskResponse
-> StartDetectMitigationActionsTaskResponse -> Bool
$c== :: StartDetectMitigationActionsTaskResponse
-> StartDetectMitigationActionsTaskResponse -> Bool
Prelude.Eq, ReadPrec [StartDetectMitigationActionsTaskResponse]
ReadPrec StartDetectMitigationActionsTaskResponse
Int -> ReadS StartDetectMitigationActionsTaskResponse
ReadS [StartDetectMitigationActionsTaskResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartDetectMitigationActionsTaskResponse]
$creadListPrec :: ReadPrec [StartDetectMitigationActionsTaskResponse]
readPrec :: ReadPrec StartDetectMitigationActionsTaskResponse
$creadPrec :: ReadPrec StartDetectMitigationActionsTaskResponse
readList :: ReadS [StartDetectMitigationActionsTaskResponse]
$creadList :: ReadS [StartDetectMitigationActionsTaskResponse]
readsPrec :: Int -> ReadS StartDetectMitigationActionsTaskResponse
$creadsPrec :: Int -> ReadS StartDetectMitigationActionsTaskResponse
Prelude.Read, Int -> StartDetectMitigationActionsTaskResponse -> ShowS
[StartDetectMitigationActionsTaskResponse] -> ShowS
StartDetectMitigationActionsTaskResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartDetectMitigationActionsTaskResponse] -> ShowS
$cshowList :: [StartDetectMitigationActionsTaskResponse] -> ShowS
show :: StartDetectMitigationActionsTaskResponse -> String
$cshow :: StartDetectMitigationActionsTaskResponse -> String
showsPrec :: Int -> StartDetectMitigationActionsTaskResponse -> ShowS
$cshowsPrec :: Int -> StartDetectMitigationActionsTaskResponse -> ShowS
Prelude.Show, forall x.
Rep StartDetectMitigationActionsTaskResponse x
-> StartDetectMitigationActionsTaskResponse
forall x.
StartDetectMitigationActionsTaskResponse
-> Rep StartDetectMitigationActionsTaskResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartDetectMitigationActionsTaskResponse x
-> StartDetectMitigationActionsTaskResponse
$cfrom :: forall x.
StartDetectMitigationActionsTaskResponse
-> Rep StartDetectMitigationActionsTaskResponse x
Prelude.Generic)
newStartDetectMitigationActionsTaskResponse ::
Prelude.Int ->
StartDetectMitigationActionsTaskResponse
newStartDetectMitigationActionsTaskResponse :: Int -> StartDetectMitigationActionsTaskResponse
newStartDetectMitigationActionsTaskResponse
Int
pHttpStatus_ =
StartDetectMitigationActionsTaskResponse'
{ $sel:taskId:StartDetectMitigationActionsTaskResponse' :: Maybe Text
taskId =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StartDetectMitigationActionsTaskResponse' :: Int
httpStatus = Int
pHttpStatus_
}
startDetectMitigationActionsTaskResponse_taskId :: Lens.Lens' StartDetectMitigationActionsTaskResponse (Prelude.Maybe Prelude.Text)
startDetectMitigationActionsTaskResponse_taskId :: Lens' StartDetectMitigationActionsTaskResponse (Maybe Text)
startDetectMitigationActionsTaskResponse_taskId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDetectMitigationActionsTaskResponse' {Maybe Text
taskId :: Maybe Text
$sel:taskId:StartDetectMitigationActionsTaskResponse' :: StartDetectMitigationActionsTaskResponse -> Maybe Text
taskId} -> Maybe Text
taskId) (\s :: StartDetectMitigationActionsTaskResponse
s@StartDetectMitigationActionsTaskResponse' {} Maybe Text
a -> StartDetectMitigationActionsTaskResponse
s {$sel:taskId:StartDetectMitigationActionsTaskResponse' :: Maybe Text
taskId = Maybe Text
a} :: StartDetectMitigationActionsTaskResponse)
startDetectMitigationActionsTaskResponse_httpStatus :: Lens.Lens' StartDetectMitigationActionsTaskResponse Prelude.Int
startDetectMitigationActionsTaskResponse_httpStatus :: Lens' StartDetectMitigationActionsTaskResponse Int
startDetectMitigationActionsTaskResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartDetectMitigationActionsTaskResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartDetectMitigationActionsTaskResponse' :: StartDetectMitigationActionsTaskResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartDetectMitigationActionsTaskResponse
s@StartDetectMitigationActionsTaskResponse' {} Int
a -> StartDetectMitigationActionsTaskResponse
s {$sel:httpStatus:StartDetectMitigationActionsTaskResponse' :: Int
httpStatus = Int
a} :: StartDetectMitigationActionsTaskResponse)
instance
Prelude.NFData
StartDetectMitigationActionsTaskResponse
where
rnf :: StartDetectMitigationActionsTaskResponse -> ()
rnf StartDetectMitigationActionsTaskResponse' {Int
Maybe Text
httpStatus :: Int
taskId :: Maybe Text
$sel:httpStatus:StartDetectMitigationActionsTaskResponse' :: StartDetectMitigationActionsTaskResponse -> Int
$sel:taskId:StartDetectMitigationActionsTaskResponse' :: StartDetectMitigationActionsTaskResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
taskId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus