{-# 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.CancelDetectMitigationActionsTask
(
CancelDetectMitigationActionsTask (..),
newCancelDetectMitigationActionsTask,
cancelDetectMitigationActionsTask_taskId,
CancelDetectMitigationActionsTaskResponse (..),
newCancelDetectMitigationActionsTaskResponse,
cancelDetectMitigationActionsTaskResponse_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 CancelDetectMitigationActionsTask = CancelDetectMitigationActionsTask'
{
CancelDetectMitigationActionsTask -> Text
taskId :: Prelude.Text
}
deriving (CancelDetectMitigationActionsTask
-> CancelDetectMitigationActionsTask -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CancelDetectMitigationActionsTask
-> CancelDetectMitigationActionsTask -> Bool
$c/= :: CancelDetectMitigationActionsTask
-> CancelDetectMitigationActionsTask -> Bool
== :: CancelDetectMitigationActionsTask
-> CancelDetectMitigationActionsTask -> Bool
$c== :: CancelDetectMitigationActionsTask
-> CancelDetectMitigationActionsTask -> Bool
Prelude.Eq, ReadPrec [CancelDetectMitigationActionsTask]
ReadPrec CancelDetectMitigationActionsTask
Int -> ReadS CancelDetectMitigationActionsTask
ReadS [CancelDetectMitigationActionsTask]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CancelDetectMitigationActionsTask]
$creadListPrec :: ReadPrec [CancelDetectMitigationActionsTask]
readPrec :: ReadPrec CancelDetectMitigationActionsTask
$creadPrec :: ReadPrec CancelDetectMitigationActionsTask
readList :: ReadS [CancelDetectMitigationActionsTask]
$creadList :: ReadS [CancelDetectMitigationActionsTask]
readsPrec :: Int -> ReadS CancelDetectMitigationActionsTask
$creadsPrec :: Int -> ReadS CancelDetectMitigationActionsTask
Prelude.Read, Int -> CancelDetectMitigationActionsTask -> ShowS
[CancelDetectMitigationActionsTask] -> ShowS
CancelDetectMitigationActionsTask -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CancelDetectMitigationActionsTask] -> ShowS
$cshowList :: [CancelDetectMitigationActionsTask] -> ShowS
show :: CancelDetectMitigationActionsTask -> String
$cshow :: CancelDetectMitigationActionsTask -> String
showsPrec :: Int -> CancelDetectMitigationActionsTask -> ShowS
$cshowsPrec :: Int -> CancelDetectMitigationActionsTask -> ShowS
Prelude.Show, forall x.
Rep CancelDetectMitigationActionsTask x
-> CancelDetectMitigationActionsTask
forall x.
CancelDetectMitigationActionsTask
-> Rep CancelDetectMitigationActionsTask x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CancelDetectMitigationActionsTask x
-> CancelDetectMitigationActionsTask
$cfrom :: forall x.
CancelDetectMitigationActionsTask
-> Rep CancelDetectMitigationActionsTask x
Prelude.Generic)
newCancelDetectMitigationActionsTask ::
Prelude.Text ->
CancelDetectMitigationActionsTask
newCancelDetectMitigationActionsTask :: Text -> CancelDetectMitigationActionsTask
newCancelDetectMitigationActionsTask Text
pTaskId_ =
CancelDetectMitigationActionsTask'
{ $sel:taskId:CancelDetectMitigationActionsTask' :: Text
taskId =
Text
pTaskId_
}
cancelDetectMitigationActionsTask_taskId :: Lens.Lens' CancelDetectMitigationActionsTask Prelude.Text
cancelDetectMitigationActionsTask_taskId :: Lens' CancelDetectMitigationActionsTask Text
cancelDetectMitigationActionsTask_taskId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelDetectMitigationActionsTask' {Text
taskId :: Text
$sel:taskId:CancelDetectMitigationActionsTask' :: CancelDetectMitigationActionsTask -> Text
taskId} -> Text
taskId) (\s :: CancelDetectMitigationActionsTask
s@CancelDetectMitigationActionsTask' {} Text
a -> CancelDetectMitigationActionsTask
s {$sel:taskId:CancelDetectMitigationActionsTask' :: Text
taskId = Text
a} :: CancelDetectMitigationActionsTask)
instance
Core.AWSRequest
CancelDetectMitigationActionsTask
where
type
AWSResponse CancelDetectMitigationActionsTask =
CancelDetectMitigationActionsTaskResponse
request :: (Service -> Service)
-> CancelDetectMitigationActionsTask
-> Request CancelDetectMitigationActionsTask
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 CancelDetectMitigationActionsTask
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse CancelDetectMitigationActionsTask)))
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 -> CancelDetectMitigationActionsTaskResponse
CancelDetectMitigationActionsTaskResponse'
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
CancelDetectMitigationActionsTask
where
hashWithSalt :: Int -> CancelDetectMitigationActionsTask -> Int
hashWithSalt
Int
_salt
CancelDetectMitigationActionsTask' {Text
taskId :: Text
$sel:taskId:CancelDetectMitigationActionsTask' :: CancelDetectMitigationActionsTask -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
taskId
instance
Prelude.NFData
CancelDetectMitigationActionsTask
where
rnf :: CancelDetectMitigationActionsTask -> ()
rnf CancelDetectMitigationActionsTask' {Text
taskId :: Text
$sel:taskId:CancelDetectMitigationActionsTask' :: CancelDetectMitigationActionsTask -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
taskId
instance
Data.ToHeaders
CancelDetectMitigationActionsTask
where
toHeaders :: CancelDetectMitigationActionsTask -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToJSON
CancelDetectMitigationActionsTask
where
toJSON :: CancelDetectMitigationActionsTask -> Value
toJSON = forall a b. a -> b -> a
Prelude.const (Object -> Value
Data.Object forall a. Monoid a => a
Prelude.mempty)
instance
Data.ToPath
CancelDetectMitigationActionsTask
where
toPath :: CancelDetectMitigationActionsTask -> ByteString
toPath CancelDetectMitigationActionsTask' {Text
taskId :: Text
$sel:taskId:CancelDetectMitigationActionsTask' :: CancelDetectMitigationActionsTask -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/detect/mitigationactions/tasks/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
taskId,
ByteString
"/cancel"
]
instance
Data.ToQuery
CancelDetectMitigationActionsTask
where
toQuery :: CancelDetectMitigationActionsTask -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CancelDetectMitigationActionsTaskResponse = CancelDetectMitigationActionsTaskResponse'
{
CancelDetectMitigationActionsTaskResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CancelDetectMitigationActionsTaskResponse
-> CancelDetectMitigationActionsTaskResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CancelDetectMitigationActionsTaskResponse
-> CancelDetectMitigationActionsTaskResponse -> Bool
$c/= :: CancelDetectMitigationActionsTaskResponse
-> CancelDetectMitigationActionsTaskResponse -> Bool
== :: CancelDetectMitigationActionsTaskResponse
-> CancelDetectMitigationActionsTaskResponse -> Bool
$c== :: CancelDetectMitigationActionsTaskResponse
-> CancelDetectMitigationActionsTaskResponse -> Bool
Prelude.Eq, ReadPrec [CancelDetectMitigationActionsTaskResponse]
ReadPrec CancelDetectMitigationActionsTaskResponse
Int -> ReadS CancelDetectMitigationActionsTaskResponse
ReadS [CancelDetectMitigationActionsTaskResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CancelDetectMitigationActionsTaskResponse]
$creadListPrec :: ReadPrec [CancelDetectMitigationActionsTaskResponse]
readPrec :: ReadPrec CancelDetectMitigationActionsTaskResponse
$creadPrec :: ReadPrec CancelDetectMitigationActionsTaskResponse
readList :: ReadS [CancelDetectMitigationActionsTaskResponse]
$creadList :: ReadS [CancelDetectMitigationActionsTaskResponse]
readsPrec :: Int -> ReadS CancelDetectMitigationActionsTaskResponse
$creadsPrec :: Int -> ReadS CancelDetectMitigationActionsTaskResponse
Prelude.Read, Int -> CancelDetectMitigationActionsTaskResponse -> ShowS
[CancelDetectMitigationActionsTaskResponse] -> ShowS
CancelDetectMitigationActionsTaskResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CancelDetectMitigationActionsTaskResponse] -> ShowS
$cshowList :: [CancelDetectMitigationActionsTaskResponse] -> ShowS
show :: CancelDetectMitigationActionsTaskResponse -> String
$cshow :: CancelDetectMitigationActionsTaskResponse -> String
showsPrec :: Int -> CancelDetectMitigationActionsTaskResponse -> ShowS
$cshowsPrec :: Int -> CancelDetectMitigationActionsTaskResponse -> ShowS
Prelude.Show, forall x.
Rep CancelDetectMitigationActionsTaskResponse x
-> CancelDetectMitigationActionsTaskResponse
forall x.
CancelDetectMitigationActionsTaskResponse
-> Rep CancelDetectMitigationActionsTaskResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CancelDetectMitigationActionsTaskResponse x
-> CancelDetectMitigationActionsTaskResponse
$cfrom :: forall x.
CancelDetectMitigationActionsTaskResponse
-> Rep CancelDetectMitigationActionsTaskResponse x
Prelude.Generic)
newCancelDetectMitigationActionsTaskResponse ::
Prelude.Int ->
CancelDetectMitigationActionsTaskResponse
newCancelDetectMitigationActionsTaskResponse :: Int -> CancelDetectMitigationActionsTaskResponse
newCancelDetectMitigationActionsTaskResponse
Int
pHttpStatus_ =
CancelDetectMitigationActionsTaskResponse'
{ $sel:httpStatus:CancelDetectMitigationActionsTaskResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
cancelDetectMitigationActionsTaskResponse_httpStatus :: Lens.Lens' CancelDetectMitigationActionsTaskResponse Prelude.Int
cancelDetectMitigationActionsTaskResponse_httpStatus :: Lens' CancelDetectMitigationActionsTaskResponse Int
cancelDetectMitigationActionsTaskResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelDetectMitigationActionsTaskResponse' {Int
httpStatus :: Int
$sel:httpStatus:CancelDetectMitigationActionsTaskResponse' :: CancelDetectMitigationActionsTaskResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CancelDetectMitigationActionsTaskResponse
s@CancelDetectMitigationActionsTaskResponse' {} Int
a -> CancelDetectMitigationActionsTaskResponse
s {$sel:httpStatus:CancelDetectMitigationActionsTaskResponse' :: Int
httpStatus = Int
a} :: CancelDetectMitigationActionsTaskResponse)
instance
Prelude.NFData
CancelDetectMitigationActionsTaskResponse
where
rnf :: CancelDetectMitigationActionsTaskResponse -> ()
rnf CancelDetectMitigationActionsTaskResponse' {Int
httpStatus :: Int
$sel:httpStatus:CancelDetectMitigationActionsTaskResponse' :: CancelDetectMitigationActionsTaskResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus