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