{-# 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.SWF.RespondActivityTaskCanceled
(
RespondActivityTaskCanceled (..),
newRespondActivityTaskCanceled,
respondActivityTaskCanceled_details,
respondActivityTaskCanceled_taskToken,
RespondActivityTaskCanceledResponse (..),
newRespondActivityTaskCanceledResponse,
)
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.SWF.Types
data RespondActivityTaskCanceled = RespondActivityTaskCanceled'
{
RespondActivityTaskCanceled -> Maybe Text
details :: Prelude.Maybe Prelude.Text,
RespondActivityTaskCanceled -> Text
taskToken :: Prelude.Text
}
deriving (RespondActivityTaskCanceled -> RespondActivityTaskCanceled -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RespondActivityTaskCanceled -> RespondActivityTaskCanceled -> Bool
$c/= :: RespondActivityTaskCanceled -> RespondActivityTaskCanceled -> Bool
== :: RespondActivityTaskCanceled -> RespondActivityTaskCanceled -> Bool
$c== :: RespondActivityTaskCanceled -> RespondActivityTaskCanceled -> Bool
Prelude.Eq, ReadPrec [RespondActivityTaskCanceled]
ReadPrec RespondActivityTaskCanceled
Int -> ReadS RespondActivityTaskCanceled
ReadS [RespondActivityTaskCanceled]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RespondActivityTaskCanceled]
$creadListPrec :: ReadPrec [RespondActivityTaskCanceled]
readPrec :: ReadPrec RespondActivityTaskCanceled
$creadPrec :: ReadPrec RespondActivityTaskCanceled
readList :: ReadS [RespondActivityTaskCanceled]
$creadList :: ReadS [RespondActivityTaskCanceled]
readsPrec :: Int -> ReadS RespondActivityTaskCanceled
$creadsPrec :: Int -> ReadS RespondActivityTaskCanceled
Prelude.Read, Int -> RespondActivityTaskCanceled -> ShowS
[RespondActivityTaskCanceled] -> ShowS
RespondActivityTaskCanceled -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RespondActivityTaskCanceled] -> ShowS
$cshowList :: [RespondActivityTaskCanceled] -> ShowS
show :: RespondActivityTaskCanceled -> String
$cshow :: RespondActivityTaskCanceled -> String
showsPrec :: Int -> RespondActivityTaskCanceled -> ShowS
$cshowsPrec :: Int -> RespondActivityTaskCanceled -> ShowS
Prelude.Show, forall x.
Rep RespondActivityTaskCanceled x -> RespondActivityTaskCanceled
forall x.
RespondActivityTaskCanceled -> Rep RespondActivityTaskCanceled x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RespondActivityTaskCanceled x -> RespondActivityTaskCanceled
$cfrom :: forall x.
RespondActivityTaskCanceled -> Rep RespondActivityTaskCanceled x
Prelude.Generic)
newRespondActivityTaskCanceled ::
Prelude.Text ->
RespondActivityTaskCanceled
newRespondActivityTaskCanceled :: Text -> RespondActivityTaskCanceled
newRespondActivityTaskCanceled Text
pTaskToken_ =
RespondActivityTaskCanceled'
{ $sel:details:RespondActivityTaskCanceled' :: Maybe Text
details =
forall a. Maybe a
Prelude.Nothing,
$sel:taskToken:RespondActivityTaskCanceled' :: Text
taskToken = Text
pTaskToken_
}
respondActivityTaskCanceled_details :: Lens.Lens' RespondActivityTaskCanceled (Prelude.Maybe Prelude.Text)
respondActivityTaskCanceled_details :: Lens' RespondActivityTaskCanceled (Maybe Text)
respondActivityTaskCanceled_details = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondActivityTaskCanceled' {Maybe Text
details :: Maybe Text
$sel:details:RespondActivityTaskCanceled' :: RespondActivityTaskCanceled -> Maybe Text
details} -> Maybe Text
details) (\s :: RespondActivityTaskCanceled
s@RespondActivityTaskCanceled' {} Maybe Text
a -> RespondActivityTaskCanceled
s {$sel:details:RespondActivityTaskCanceled' :: Maybe Text
details = Maybe Text
a} :: RespondActivityTaskCanceled)
respondActivityTaskCanceled_taskToken :: Lens.Lens' RespondActivityTaskCanceled Prelude.Text
respondActivityTaskCanceled_taskToken :: Lens' RespondActivityTaskCanceled Text
respondActivityTaskCanceled_taskToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondActivityTaskCanceled' {Text
taskToken :: Text
$sel:taskToken:RespondActivityTaskCanceled' :: RespondActivityTaskCanceled -> Text
taskToken} -> Text
taskToken) (\s :: RespondActivityTaskCanceled
s@RespondActivityTaskCanceled' {} Text
a -> RespondActivityTaskCanceled
s {$sel:taskToken:RespondActivityTaskCanceled' :: Text
taskToken = Text
a} :: RespondActivityTaskCanceled)
instance Core.AWSRequest RespondActivityTaskCanceled where
type
AWSResponse RespondActivityTaskCanceled =
RespondActivityTaskCanceledResponse
request :: (Service -> Service)
-> RespondActivityTaskCanceled
-> Request RespondActivityTaskCanceled
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 RespondActivityTaskCanceled
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse RespondActivityTaskCanceled)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
RespondActivityTaskCanceledResponse
RespondActivityTaskCanceledResponse'
instance Prelude.Hashable RespondActivityTaskCanceled where
hashWithSalt :: Int -> RespondActivityTaskCanceled -> Int
hashWithSalt Int
_salt RespondActivityTaskCanceled' {Maybe Text
Text
taskToken :: Text
details :: Maybe Text
$sel:taskToken:RespondActivityTaskCanceled' :: RespondActivityTaskCanceled -> Text
$sel:details:RespondActivityTaskCanceled' :: RespondActivityTaskCanceled -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
details
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
taskToken
instance Prelude.NFData RespondActivityTaskCanceled where
rnf :: RespondActivityTaskCanceled -> ()
rnf RespondActivityTaskCanceled' {Maybe Text
Text
taskToken :: Text
details :: Maybe Text
$sel:taskToken:RespondActivityTaskCanceled' :: RespondActivityTaskCanceled -> Text
$sel:details:RespondActivityTaskCanceled' :: RespondActivityTaskCanceled -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
details
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
taskToken
instance Data.ToHeaders RespondActivityTaskCanceled where
toHeaders :: RespondActivityTaskCanceled -> [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
"SimpleWorkflowService.RespondActivityTaskCanceled" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON RespondActivityTaskCanceled where
toJSON :: RespondActivityTaskCanceled -> Value
toJSON RespondActivityTaskCanceled' {Maybe Text
Text
taskToken :: Text
details :: Maybe Text
$sel:taskToken:RespondActivityTaskCanceled' :: RespondActivityTaskCanceled -> Text
$sel:details:RespondActivityTaskCanceled' :: RespondActivityTaskCanceled -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"details" 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 Text
details,
forall a. a -> Maybe a
Prelude.Just (Key
"taskToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
taskToken)
]
)
instance Data.ToPath RespondActivityTaskCanceled where
toPath :: RespondActivityTaskCanceled -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RespondActivityTaskCanceled where
toQuery :: RespondActivityTaskCanceled -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RespondActivityTaskCanceledResponse = RespondActivityTaskCanceledResponse'
{
}
deriving (RespondActivityTaskCanceledResponse
-> RespondActivityTaskCanceledResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RespondActivityTaskCanceledResponse
-> RespondActivityTaskCanceledResponse -> Bool
$c/= :: RespondActivityTaskCanceledResponse
-> RespondActivityTaskCanceledResponse -> Bool
== :: RespondActivityTaskCanceledResponse
-> RespondActivityTaskCanceledResponse -> Bool
$c== :: RespondActivityTaskCanceledResponse
-> RespondActivityTaskCanceledResponse -> Bool
Prelude.Eq, ReadPrec [RespondActivityTaskCanceledResponse]
ReadPrec RespondActivityTaskCanceledResponse
Int -> ReadS RespondActivityTaskCanceledResponse
ReadS [RespondActivityTaskCanceledResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RespondActivityTaskCanceledResponse]
$creadListPrec :: ReadPrec [RespondActivityTaskCanceledResponse]
readPrec :: ReadPrec RespondActivityTaskCanceledResponse
$creadPrec :: ReadPrec RespondActivityTaskCanceledResponse
readList :: ReadS [RespondActivityTaskCanceledResponse]
$creadList :: ReadS [RespondActivityTaskCanceledResponse]
readsPrec :: Int -> ReadS RespondActivityTaskCanceledResponse
$creadsPrec :: Int -> ReadS RespondActivityTaskCanceledResponse
Prelude.Read, Int -> RespondActivityTaskCanceledResponse -> ShowS
[RespondActivityTaskCanceledResponse] -> ShowS
RespondActivityTaskCanceledResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RespondActivityTaskCanceledResponse] -> ShowS
$cshowList :: [RespondActivityTaskCanceledResponse] -> ShowS
show :: RespondActivityTaskCanceledResponse -> String
$cshow :: RespondActivityTaskCanceledResponse -> String
showsPrec :: Int -> RespondActivityTaskCanceledResponse -> ShowS
$cshowsPrec :: Int -> RespondActivityTaskCanceledResponse -> ShowS
Prelude.Show, forall x.
Rep RespondActivityTaskCanceledResponse x
-> RespondActivityTaskCanceledResponse
forall x.
RespondActivityTaskCanceledResponse
-> Rep RespondActivityTaskCanceledResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RespondActivityTaskCanceledResponse x
-> RespondActivityTaskCanceledResponse
$cfrom :: forall x.
RespondActivityTaskCanceledResponse
-> Rep RespondActivityTaskCanceledResponse x
Prelude.Generic)
newRespondActivityTaskCanceledResponse ::
RespondActivityTaskCanceledResponse
newRespondActivityTaskCanceledResponse :: RespondActivityTaskCanceledResponse
newRespondActivityTaskCanceledResponse =
RespondActivityTaskCanceledResponse
RespondActivityTaskCanceledResponse'
instance
Prelude.NFData
RespondActivityTaskCanceledResponse
where
rnf :: RespondActivityTaskCanceledResponse -> ()
rnf RespondActivityTaskCanceledResponse
_ = ()