{-# 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.DescribeDetectMitigationActionsTask
(
DescribeDetectMitigationActionsTask (..),
newDescribeDetectMitigationActionsTask,
describeDetectMitigationActionsTask_taskId,
DescribeDetectMitigationActionsTaskResponse (..),
newDescribeDetectMitigationActionsTaskResponse,
describeDetectMitigationActionsTaskResponse_taskSummary,
describeDetectMitigationActionsTaskResponse_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 DescribeDetectMitigationActionsTask = DescribeDetectMitigationActionsTask'
{
DescribeDetectMitigationActionsTask -> Text
taskId :: Prelude.Text
}
deriving (DescribeDetectMitigationActionsTask
-> DescribeDetectMitigationActionsTask -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDetectMitigationActionsTask
-> DescribeDetectMitigationActionsTask -> Bool
$c/= :: DescribeDetectMitigationActionsTask
-> DescribeDetectMitigationActionsTask -> Bool
== :: DescribeDetectMitigationActionsTask
-> DescribeDetectMitigationActionsTask -> Bool
$c== :: DescribeDetectMitigationActionsTask
-> DescribeDetectMitigationActionsTask -> Bool
Prelude.Eq, ReadPrec [DescribeDetectMitigationActionsTask]
ReadPrec DescribeDetectMitigationActionsTask
Int -> ReadS DescribeDetectMitigationActionsTask
ReadS [DescribeDetectMitigationActionsTask]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDetectMitigationActionsTask]
$creadListPrec :: ReadPrec [DescribeDetectMitigationActionsTask]
readPrec :: ReadPrec DescribeDetectMitigationActionsTask
$creadPrec :: ReadPrec DescribeDetectMitigationActionsTask
readList :: ReadS [DescribeDetectMitigationActionsTask]
$creadList :: ReadS [DescribeDetectMitigationActionsTask]
readsPrec :: Int -> ReadS DescribeDetectMitigationActionsTask
$creadsPrec :: Int -> ReadS DescribeDetectMitigationActionsTask
Prelude.Read, Int -> DescribeDetectMitigationActionsTask -> ShowS
[DescribeDetectMitigationActionsTask] -> ShowS
DescribeDetectMitigationActionsTask -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDetectMitigationActionsTask] -> ShowS
$cshowList :: [DescribeDetectMitigationActionsTask] -> ShowS
show :: DescribeDetectMitigationActionsTask -> String
$cshow :: DescribeDetectMitigationActionsTask -> String
showsPrec :: Int -> DescribeDetectMitigationActionsTask -> ShowS
$cshowsPrec :: Int -> DescribeDetectMitigationActionsTask -> ShowS
Prelude.Show, forall x.
Rep DescribeDetectMitigationActionsTask x
-> DescribeDetectMitigationActionsTask
forall x.
DescribeDetectMitigationActionsTask
-> Rep DescribeDetectMitigationActionsTask x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDetectMitigationActionsTask x
-> DescribeDetectMitigationActionsTask
$cfrom :: forall x.
DescribeDetectMitigationActionsTask
-> Rep DescribeDetectMitigationActionsTask x
Prelude.Generic)
newDescribeDetectMitigationActionsTask ::
Prelude.Text ->
DescribeDetectMitigationActionsTask
newDescribeDetectMitigationActionsTask :: Text -> DescribeDetectMitigationActionsTask
newDescribeDetectMitigationActionsTask Text
pTaskId_ =
DescribeDetectMitigationActionsTask'
{ $sel:taskId:DescribeDetectMitigationActionsTask' :: Text
taskId =
Text
pTaskId_
}
describeDetectMitigationActionsTask_taskId :: Lens.Lens' DescribeDetectMitigationActionsTask Prelude.Text
describeDetectMitigationActionsTask_taskId :: Lens' DescribeDetectMitigationActionsTask Text
describeDetectMitigationActionsTask_taskId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDetectMitigationActionsTask' {Text
taskId :: Text
$sel:taskId:DescribeDetectMitigationActionsTask' :: DescribeDetectMitigationActionsTask -> Text
taskId} -> Text
taskId) (\s :: DescribeDetectMitigationActionsTask
s@DescribeDetectMitigationActionsTask' {} Text
a -> DescribeDetectMitigationActionsTask
s {$sel:taskId:DescribeDetectMitigationActionsTask' :: Text
taskId = Text
a} :: DescribeDetectMitigationActionsTask)
instance
Core.AWSRequest
DescribeDetectMitigationActionsTask
where
type
AWSResponse DescribeDetectMitigationActionsTask =
DescribeDetectMitigationActionsTaskResponse
request :: (Service -> Service)
-> DescribeDetectMitigationActionsTask
-> Request DescribeDetectMitigationActionsTask
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeDetectMitigationActionsTask
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DescribeDetectMitigationActionsTask)))
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 DetectMitigationActionsTaskSummary
-> Int -> DescribeDetectMitigationActionsTaskResponse
DescribeDetectMitigationActionsTaskResponse'
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
"taskSummary")
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
DescribeDetectMitigationActionsTask
where
hashWithSalt :: Int -> DescribeDetectMitigationActionsTask -> Int
hashWithSalt
Int
_salt
DescribeDetectMitigationActionsTask' {Text
taskId :: Text
$sel:taskId:DescribeDetectMitigationActionsTask' :: DescribeDetectMitigationActionsTask -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
taskId
instance
Prelude.NFData
DescribeDetectMitigationActionsTask
where
rnf :: DescribeDetectMitigationActionsTask -> ()
rnf DescribeDetectMitigationActionsTask' {Text
taskId :: Text
$sel:taskId:DescribeDetectMitigationActionsTask' :: DescribeDetectMitigationActionsTask -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
taskId
instance
Data.ToHeaders
DescribeDetectMitigationActionsTask
where
toHeaders :: DescribeDetectMitigationActionsTask -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
DescribeDetectMitigationActionsTask
where
toPath :: DescribeDetectMitigationActionsTask -> ByteString
toPath DescribeDetectMitigationActionsTask' {Text
taskId :: Text
$sel:taskId:DescribeDetectMitigationActionsTask' :: DescribeDetectMitigationActionsTask -> Text
..} =
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
DescribeDetectMitigationActionsTask
where
toQuery :: DescribeDetectMitigationActionsTask -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeDetectMitigationActionsTaskResponse = DescribeDetectMitigationActionsTaskResponse'
{
DescribeDetectMitigationActionsTaskResponse
-> Maybe DetectMitigationActionsTaskSummary
taskSummary :: Prelude.Maybe DetectMitigationActionsTaskSummary,
DescribeDetectMitigationActionsTaskResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDetectMitigationActionsTaskResponse
-> DescribeDetectMitigationActionsTaskResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDetectMitigationActionsTaskResponse
-> DescribeDetectMitigationActionsTaskResponse -> Bool
$c/= :: DescribeDetectMitigationActionsTaskResponse
-> DescribeDetectMitigationActionsTaskResponse -> Bool
== :: DescribeDetectMitigationActionsTaskResponse
-> DescribeDetectMitigationActionsTaskResponse -> Bool
$c== :: DescribeDetectMitigationActionsTaskResponse
-> DescribeDetectMitigationActionsTaskResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDetectMitigationActionsTaskResponse]
ReadPrec DescribeDetectMitigationActionsTaskResponse
Int -> ReadS DescribeDetectMitigationActionsTaskResponse
ReadS [DescribeDetectMitigationActionsTaskResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDetectMitigationActionsTaskResponse]
$creadListPrec :: ReadPrec [DescribeDetectMitigationActionsTaskResponse]
readPrec :: ReadPrec DescribeDetectMitigationActionsTaskResponse
$creadPrec :: ReadPrec DescribeDetectMitigationActionsTaskResponse
readList :: ReadS [DescribeDetectMitigationActionsTaskResponse]
$creadList :: ReadS [DescribeDetectMitigationActionsTaskResponse]
readsPrec :: Int -> ReadS DescribeDetectMitigationActionsTaskResponse
$creadsPrec :: Int -> ReadS DescribeDetectMitigationActionsTaskResponse
Prelude.Read, Int -> DescribeDetectMitigationActionsTaskResponse -> ShowS
[DescribeDetectMitigationActionsTaskResponse] -> ShowS
DescribeDetectMitigationActionsTaskResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDetectMitigationActionsTaskResponse] -> ShowS
$cshowList :: [DescribeDetectMitigationActionsTaskResponse] -> ShowS
show :: DescribeDetectMitigationActionsTaskResponse -> String
$cshow :: DescribeDetectMitigationActionsTaskResponse -> String
showsPrec :: Int -> DescribeDetectMitigationActionsTaskResponse -> ShowS
$cshowsPrec :: Int -> DescribeDetectMitigationActionsTaskResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeDetectMitigationActionsTaskResponse x
-> DescribeDetectMitigationActionsTaskResponse
forall x.
DescribeDetectMitigationActionsTaskResponse
-> Rep DescribeDetectMitigationActionsTaskResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDetectMitigationActionsTaskResponse x
-> DescribeDetectMitigationActionsTaskResponse
$cfrom :: forall x.
DescribeDetectMitigationActionsTaskResponse
-> Rep DescribeDetectMitigationActionsTaskResponse x
Prelude.Generic)
newDescribeDetectMitigationActionsTaskResponse ::
Prelude.Int ->
DescribeDetectMitigationActionsTaskResponse
newDescribeDetectMitigationActionsTaskResponse :: Int -> DescribeDetectMitigationActionsTaskResponse
newDescribeDetectMitigationActionsTaskResponse
Int
pHttpStatus_ =
DescribeDetectMitigationActionsTaskResponse'
{ $sel:taskSummary:DescribeDetectMitigationActionsTaskResponse' :: Maybe DetectMitigationActionsTaskSummary
taskSummary =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDetectMitigationActionsTaskResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDetectMitigationActionsTaskResponse_taskSummary :: Lens.Lens' DescribeDetectMitigationActionsTaskResponse (Prelude.Maybe DetectMitigationActionsTaskSummary)
describeDetectMitigationActionsTaskResponse_taskSummary :: Lens'
DescribeDetectMitigationActionsTaskResponse
(Maybe DetectMitigationActionsTaskSummary)
describeDetectMitigationActionsTaskResponse_taskSummary = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDetectMitigationActionsTaskResponse' {Maybe DetectMitigationActionsTaskSummary
taskSummary :: Maybe DetectMitigationActionsTaskSummary
$sel:taskSummary:DescribeDetectMitigationActionsTaskResponse' :: DescribeDetectMitigationActionsTaskResponse
-> Maybe DetectMitigationActionsTaskSummary
taskSummary} -> Maybe DetectMitigationActionsTaskSummary
taskSummary) (\s :: DescribeDetectMitigationActionsTaskResponse
s@DescribeDetectMitigationActionsTaskResponse' {} Maybe DetectMitigationActionsTaskSummary
a -> DescribeDetectMitigationActionsTaskResponse
s {$sel:taskSummary:DescribeDetectMitigationActionsTaskResponse' :: Maybe DetectMitigationActionsTaskSummary
taskSummary = Maybe DetectMitigationActionsTaskSummary
a} :: DescribeDetectMitigationActionsTaskResponse)
describeDetectMitigationActionsTaskResponse_httpStatus :: Lens.Lens' DescribeDetectMitigationActionsTaskResponse Prelude.Int
describeDetectMitigationActionsTaskResponse_httpStatus :: Lens' DescribeDetectMitigationActionsTaskResponse Int
describeDetectMitigationActionsTaskResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDetectMitigationActionsTaskResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDetectMitigationActionsTaskResponse' :: DescribeDetectMitigationActionsTaskResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDetectMitigationActionsTaskResponse
s@DescribeDetectMitigationActionsTaskResponse' {} Int
a -> DescribeDetectMitigationActionsTaskResponse
s {$sel:httpStatus:DescribeDetectMitigationActionsTaskResponse' :: Int
httpStatus = Int
a} :: DescribeDetectMitigationActionsTaskResponse)
instance
Prelude.NFData
DescribeDetectMitigationActionsTaskResponse
where
rnf :: DescribeDetectMitigationActionsTaskResponse -> ()
rnf DescribeDetectMitigationActionsTaskResponse' {Int
Maybe DetectMitigationActionsTaskSummary
httpStatus :: Int
taskSummary :: Maybe DetectMitigationActionsTaskSummary
$sel:httpStatus:DescribeDetectMitigationActionsTaskResponse' :: DescribeDetectMitigationActionsTaskResponse -> Int
$sel:taskSummary:DescribeDetectMitigationActionsTaskResponse' :: DescribeDetectMitigationActionsTaskResponse
-> Maybe DetectMitigationActionsTaskSummary
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DetectMitigationActionsTaskSummary
taskSummary
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus