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