{-# 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.RespondActivityTaskCompleted
(
RespondActivityTaskCompleted (..),
newRespondActivityTaskCompleted,
respondActivityTaskCompleted_result,
respondActivityTaskCompleted_taskToken,
RespondActivityTaskCompletedResponse (..),
newRespondActivityTaskCompletedResponse,
)
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 RespondActivityTaskCompleted = RespondActivityTaskCompleted'
{
RespondActivityTaskCompleted -> Maybe Text
result :: Prelude.Maybe Prelude.Text,
RespondActivityTaskCompleted -> Text
taskToken :: Prelude.Text
}
deriving (RespondActivityTaskCompleted
-> RespondActivityTaskCompleted -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RespondActivityTaskCompleted
-> RespondActivityTaskCompleted -> Bool
$c/= :: RespondActivityTaskCompleted
-> RespondActivityTaskCompleted -> Bool
== :: RespondActivityTaskCompleted
-> RespondActivityTaskCompleted -> Bool
$c== :: RespondActivityTaskCompleted
-> RespondActivityTaskCompleted -> Bool
Prelude.Eq, ReadPrec [RespondActivityTaskCompleted]
ReadPrec RespondActivityTaskCompleted
Int -> ReadS RespondActivityTaskCompleted
ReadS [RespondActivityTaskCompleted]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RespondActivityTaskCompleted]
$creadListPrec :: ReadPrec [RespondActivityTaskCompleted]
readPrec :: ReadPrec RespondActivityTaskCompleted
$creadPrec :: ReadPrec RespondActivityTaskCompleted
readList :: ReadS [RespondActivityTaskCompleted]
$creadList :: ReadS [RespondActivityTaskCompleted]
readsPrec :: Int -> ReadS RespondActivityTaskCompleted
$creadsPrec :: Int -> ReadS RespondActivityTaskCompleted
Prelude.Read, Int -> RespondActivityTaskCompleted -> ShowS
[RespondActivityTaskCompleted] -> ShowS
RespondActivityTaskCompleted -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RespondActivityTaskCompleted] -> ShowS
$cshowList :: [RespondActivityTaskCompleted] -> ShowS
show :: RespondActivityTaskCompleted -> String
$cshow :: RespondActivityTaskCompleted -> String
showsPrec :: Int -> RespondActivityTaskCompleted -> ShowS
$cshowsPrec :: Int -> RespondActivityTaskCompleted -> ShowS
Prelude.Show, forall x.
Rep RespondActivityTaskCompleted x -> RespondActivityTaskCompleted
forall x.
RespondActivityTaskCompleted -> Rep RespondActivityTaskCompleted x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RespondActivityTaskCompleted x -> RespondActivityTaskCompleted
$cfrom :: forall x.
RespondActivityTaskCompleted -> Rep RespondActivityTaskCompleted x
Prelude.Generic)
newRespondActivityTaskCompleted ::
Prelude.Text ->
RespondActivityTaskCompleted
newRespondActivityTaskCompleted :: Text -> RespondActivityTaskCompleted
newRespondActivityTaskCompleted Text
pTaskToken_ =
RespondActivityTaskCompleted'
{ $sel:result:RespondActivityTaskCompleted' :: Maybe Text
result =
forall a. Maybe a
Prelude.Nothing,
$sel:taskToken:RespondActivityTaskCompleted' :: Text
taskToken = Text
pTaskToken_
}
respondActivityTaskCompleted_result :: Lens.Lens' RespondActivityTaskCompleted (Prelude.Maybe Prelude.Text)
respondActivityTaskCompleted_result :: Lens' RespondActivityTaskCompleted (Maybe Text)
respondActivityTaskCompleted_result = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondActivityTaskCompleted' {Maybe Text
result :: Maybe Text
$sel:result:RespondActivityTaskCompleted' :: RespondActivityTaskCompleted -> Maybe Text
result} -> Maybe Text
result) (\s :: RespondActivityTaskCompleted
s@RespondActivityTaskCompleted' {} Maybe Text
a -> RespondActivityTaskCompleted
s {$sel:result:RespondActivityTaskCompleted' :: Maybe Text
result = Maybe Text
a} :: RespondActivityTaskCompleted)
respondActivityTaskCompleted_taskToken :: Lens.Lens' RespondActivityTaskCompleted Prelude.Text
respondActivityTaskCompleted_taskToken :: Lens' RespondActivityTaskCompleted Text
respondActivityTaskCompleted_taskToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondActivityTaskCompleted' {Text
taskToken :: Text
$sel:taskToken:RespondActivityTaskCompleted' :: RespondActivityTaskCompleted -> Text
taskToken} -> Text
taskToken) (\s :: RespondActivityTaskCompleted
s@RespondActivityTaskCompleted' {} Text
a -> RespondActivityTaskCompleted
s {$sel:taskToken:RespondActivityTaskCompleted' :: Text
taskToken = Text
a} :: RespondActivityTaskCompleted)
instance Core.AWSRequest RespondActivityTaskCompleted where
type
AWSResponse RespondActivityTaskCompleted =
RespondActivityTaskCompletedResponse
request :: (Service -> Service)
-> RespondActivityTaskCompleted
-> Request RespondActivityTaskCompleted
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 RespondActivityTaskCompleted
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse RespondActivityTaskCompleted)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
RespondActivityTaskCompletedResponse
RespondActivityTaskCompletedResponse'
instance
Prelude.Hashable
RespondActivityTaskCompleted
where
hashWithSalt :: Int -> RespondActivityTaskCompleted -> Int
hashWithSalt Int
_salt RespondActivityTaskCompleted' {Maybe Text
Text
taskToken :: Text
result :: Maybe Text
$sel:taskToken:RespondActivityTaskCompleted' :: RespondActivityTaskCompleted -> Text
$sel:result:RespondActivityTaskCompleted' :: RespondActivityTaskCompleted -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
result
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
taskToken
instance Prelude.NFData RespondActivityTaskCompleted where
rnf :: RespondActivityTaskCompleted -> ()
rnf RespondActivityTaskCompleted' {Maybe Text
Text
taskToken :: Text
result :: Maybe Text
$sel:taskToken:RespondActivityTaskCompleted' :: RespondActivityTaskCompleted -> Text
$sel:result:RespondActivityTaskCompleted' :: RespondActivityTaskCompleted -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
result
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
taskToken
instance Data.ToHeaders RespondActivityTaskCompleted where
toHeaders :: RespondActivityTaskCompleted -> [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.RespondActivityTaskCompleted" ::
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 RespondActivityTaskCompleted where
toJSON :: RespondActivityTaskCompleted -> Value
toJSON RespondActivityTaskCompleted' {Maybe Text
Text
taskToken :: Text
result :: Maybe Text
$sel:taskToken:RespondActivityTaskCompleted' :: RespondActivityTaskCompleted -> Text
$sel:result:RespondActivityTaskCompleted' :: RespondActivityTaskCompleted -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"result" 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
result,
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 RespondActivityTaskCompleted where
toPath :: RespondActivityTaskCompleted -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RespondActivityTaskCompleted where
toQuery :: RespondActivityTaskCompleted -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RespondActivityTaskCompletedResponse = RespondActivityTaskCompletedResponse'
{
}
deriving (RespondActivityTaskCompletedResponse
-> RespondActivityTaskCompletedResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RespondActivityTaskCompletedResponse
-> RespondActivityTaskCompletedResponse -> Bool
$c/= :: RespondActivityTaskCompletedResponse
-> RespondActivityTaskCompletedResponse -> Bool
== :: RespondActivityTaskCompletedResponse
-> RespondActivityTaskCompletedResponse -> Bool
$c== :: RespondActivityTaskCompletedResponse
-> RespondActivityTaskCompletedResponse -> Bool
Prelude.Eq, ReadPrec [RespondActivityTaskCompletedResponse]
ReadPrec RespondActivityTaskCompletedResponse
Int -> ReadS RespondActivityTaskCompletedResponse
ReadS [RespondActivityTaskCompletedResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RespondActivityTaskCompletedResponse]
$creadListPrec :: ReadPrec [RespondActivityTaskCompletedResponse]
readPrec :: ReadPrec RespondActivityTaskCompletedResponse
$creadPrec :: ReadPrec RespondActivityTaskCompletedResponse
readList :: ReadS [RespondActivityTaskCompletedResponse]
$creadList :: ReadS [RespondActivityTaskCompletedResponse]
readsPrec :: Int -> ReadS RespondActivityTaskCompletedResponse
$creadsPrec :: Int -> ReadS RespondActivityTaskCompletedResponse
Prelude.Read, Int -> RespondActivityTaskCompletedResponse -> ShowS
[RespondActivityTaskCompletedResponse] -> ShowS
RespondActivityTaskCompletedResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RespondActivityTaskCompletedResponse] -> ShowS
$cshowList :: [RespondActivityTaskCompletedResponse] -> ShowS
show :: RespondActivityTaskCompletedResponse -> String
$cshow :: RespondActivityTaskCompletedResponse -> String
showsPrec :: Int -> RespondActivityTaskCompletedResponse -> ShowS
$cshowsPrec :: Int -> RespondActivityTaskCompletedResponse -> ShowS
Prelude.Show, forall x.
Rep RespondActivityTaskCompletedResponse x
-> RespondActivityTaskCompletedResponse
forall x.
RespondActivityTaskCompletedResponse
-> Rep RespondActivityTaskCompletedResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RespondActivityTaskCompletedResponse x
-> RespondActivityTaskCompletedResponse
$cfrom :: forall x.
RespondActivityTaskCompletedResponse
-> Rep RespondActivityTaskCompletedResponse x
Prelude.Generic)
newRespondActivityTaskCompletedResponse ::
RespondActivityTaskCompletedResponse
newRespondActivityTaskCompletedResponse :: RespondActivityTaskCompletedResponse
newRespondActivityTaskCompletedResponse =
RespondActivityTaskCompletedResponse
RespondActivityTaskCompletedResponse'
instance
Prelude.NFData
RespondActivityTaskCompletedResponse
where
rnf :: RespondActivityTaskCompletedResponse -> ()
rnf RespondActivityTaskCompletedResponse
_ = ()