{-# 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.RecordActivityTaskHeartbeat
(
RecordActivityTaskHeartbeat (..),
newRecordActivityTaskHeartbeat,
recordActivityTaskHeartbeat_details,
recordActivityTaskHeartbeat_taskToken,
RecordActivityTaskHeartbeatResponse (..),
newRecordActivityTaskHeartbeatResponse,
recordActivityTaskHeartbeatResponse_httpStatus,
recordActivityTaskHeartbeatResponse_cancelRequested,
)
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 RecordActivityTaskHeartbeat = RecordActivityTaskHeartbeat'
{
RecordActivityTaskHeartbeat -> Maybe Text
details :: Prelude.Maybe Prelude.Text,
RecordActivityTaskHeartbeat -> Text
taskToken :: Prelude.Text
}
deriving (RecordActivityTaskHeartbeat -> RecordActivityTaskHeartbeat -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RecordActivityTaskHeartbeat -> RecordActivityTaskHeartbeat -> Bool
$c/= :: RecordActivityTaskHeartbeat -> RecordActivityTaskHeartbeat -> Bool
== :: RecordActivityTaskHeartbeat -> RecordActivityTaskHeartbeat -> Bool
$c== :: RecordActivityTaskHeartbeat -> RecordActivityTaskHeartbeat -> Bool
Prelude.Eq, ReadPrec [RecordActivityTaskHeartbeat]
ReadPrec RecordActivityTaskHeartbeat
Int -> ReadS RecordActivityTaskHeartbeat
ReadS [RecordActivityTaskHeartbeat]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RecordActivityTaskHeartbeat]
$creadListPrec :: ReadPrec [RecordActivityTaskHeartbeat]
readPrec :: ReadPrec RecordActivityTaskHeartbeat
$creadPrec :: ReadPrec RecordActivityTaskHeartbeat
readList :: ReadS [RecordActivityTaskHeartbeat]
$creadList :: ReadS [RecordActivityTaskHeartbeat]
readsPrec :: Int -> ReadS RecordActivityTaskHeartbeat
$creadsPrec :: Int -> ReadS RecordActivityTaskHeartbeat
Prelude.Read, Int -> RecordActivityTaskHeartbeat -> ShowS
[RecordActivityTaskHeartbeat] -> ShowS
RecordActivityTaskHeartbeat -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RecordActivityTaskHeartbeat] -> ShowS
$cshowList :: [RecordActivityTaskHeartbeat] -> ShowS
show :: RecordActivityTaskHeartbeat -> String
$cshow :: RecordActivityTaskHeartbeat -> String
showsPrec :: Int -> RecordActivityTaskHeartbeat -> ShowS
$cshowsPrec :: Int -> RecordActivityTaskHeartbeat -> ShowS
Prelude.Show, forall x.
Rep RecordActivityTaskHeartbeat x -> RecordActivityTaskHeartbeat
forall x.
RecordActivityTaskHeartbeat -> Rep RecordActivityTaskHeartbeat x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RecordActivityTaskHeartbeat x -> RecordActivityTaskHeartbeat
$cfrom :: forall x.
RecordActivityTaskHeartbeat -> Rep RecordActivityTaskHeartbeat x
Prelude.Generic)
newRecordActivityTaskHeartbeat ::
Prelude.Text ->
RecordActivityTaskHeartbeat
newRecordActivityTaskHeartbeat :: Text -> RecordActivityTaskHeartbeat
newRecordActivityTaskHeartbeat Text
pTaskToken_ =
RecordActivityTaskHeartbeat'
{ $sel:details:RecordActivityTaskHeartbeat' :: Maybe Text
details =
forall a. Maybe a
Prelude.Nothing,
$sel:taskToken:RecordActivityTaskHeartbeat' :: Text
taskToken = Text
pTaskToken_
}
recordActivityTaskHeartbeat_details :: Lens.Lens' RecordActivityTaskHeartbeat (Prelude.Maybe Prelude.Text)
recordActivityTaskHeartbeat_details :: Lens' RecordActivityTaskHeartbeat (Maybe Text)
recordActivityTaskHeartbeat_details = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RecordActivityTaskHeartbeat' {Maybe Text
details :: Maybe Text
$sel:details:RecordActivityTaskHeartbeat' :: RecordActivityTaskHeartbeat -> Maybe Text
details} -> Maybe Text
details) (\s :: RecordActivityTaskHeartbeat
s@RecordActivityTaskHeartbeat' {} Maybe Text
a -> RecordActivityTaskHeartbeat
s {$sel:details:RecordActivityTaskHeartbeat' :: Maybe Text
details = Maybe Text
a} :: RecordActivityTaskHeartbeat)
recordActivityTaskHeartbeat_taskToken :: Lens.Lens' RecordActivityTaskHeartbeat Prelude.Text
recordActivityTaskHeartbeat_taskToken :: Lens' RecordActivityTaskHeartbeat Text
recordActivityTaskHeartbeat_taskToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RecordActivityTaskHeartbeat' {Text
taskToken :: Text
$sel:taskToken:RecordActivityTaskHeartbeat' :: RecordActivityTaskHeartbeat -> Text
taskToken} -> Text
taskToken) (\s :: RecordActivityTaskHeartbeat
s@RecordActivityTaskHeartbeat' {} Text
a -> RecordActivityTaskHeartbeat
s {$sel:taskToken:RecordActivityTaskHeartbeat' :: Text
taskToken = Text
a} :: RecordActivityTaskHeartbeat)
instance Core.AWSRequest RecordActivityTaskHeartbeat where
type
AWSResponse RecordActivityTaskHeartbeat =
RecordActivityTaskHeartbeatResponse
request :: (Service -> Service)
-> RecordActivityTaskHeartbeat
-> Request RecordActivityTaskHeartbeat
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 RecordActivityTaskHeartbeat
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse RecordActivityTaskHeartbeat)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Int -> Bool -> RecordActivityTaskHeartbeatResponse
RecordActivityTaskHeartbeatResponse'
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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"cancelRequested")
)
instance Prelude.Hashable RecordActivityTaskHeartbeat where
hashWithSalt :: Int -> RecordActivityTaskHeartbeat -> Int
hashWithSalt Int
_salt RecordActivityTaskHeartbeat' {Maybe Text
Text
taskToken :: Text
details :: Maybe Text
$sel:taskToken:RecordActivityTaskHeartbeat' :: RecordActivityTaskHeartbeat -> Text
$sel:details:RecordActivityTaskHeartbeat' :: RecordActivityTaskHeartbeat -> 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 RecordActivityTaskHeartbeat where
rnf :: RecordActivityTaskHeartbeat -> ()
rnf RecordActivityTaskHeartbeat' {Maybe Text
Text
taskToken :: Text
details :: Maybe Text
$sel:taskToken:RecordActivityTaskHeartbeat' :: RecordActivityTaskHeartbeat -> Text
$sel:details:RecordActivityTaskHeartbeat' :: RecordActivityTaskHeartbeat -> 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 RecordActivityTaskHeartbeat where
toHeaders :: RecordActivityTaskHeartbeat -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"SimpleWorkflowService.RecordActivityTaskHeartbeat" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON RecordActivityTaskHeartbeat where
toJSON :: RecordActivityTaskHeartbeat -> Value
toJSON RecordActivityTaskHeartbeat' {Maybe Text
Text
taskToken :: Text
details :: Maybe Text
$sel:taskToken:RecordActivityTaskHeartbeat' :: RecordActivityTaskHeartbeat -> Text
$sel:details:RecordActivityTaskHeartbeat' :: RecordActivityTaskHeartbeat -> 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 RecordActivityTaskHeartbeat where
toPath :: RecordActivityTaskHeartbeat -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RecordActivityTaskHeartbeat where
toQuery :: RecordActivityTaskHeartbeat -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RecordActivityTaskHeartbeatResponse = RecordActivityTaskHeartbeatResponse'
{
RecordActivityTaskHeartbeatResponse -> Int
httpStatus :: Prelude.Int,
RecordActivityTaskHeartbeatResponse -> Bool
cancelRequested :: Prelude.Bool
}
deriving (RecordActivityTaskHeartbeatResponse
-> RecordActivityTaskHeartbeatResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RecordActivityTaskHeartbeatResponse
-> RecordActivityTaskHeartbeatResponse -> Bool
$c/= :: RecordActivityTaskHeartbeatResponse
-> RecordActivityTaskHeartbeatResponse -> Bool
== :: RecordActivityTaskHeartbeatResponse
-> RecordActivityTaskHeartbeatResponse -> Bool
$c== :: RecordActivityTaskHeartbeatResponse
-> RecordActivityTaskHeartbeatResponse -> Bool
Prelude.Eq, ReadPrec [RecordActivityTaskHeartbeatResponse]
ReadPrec RecordActivityTaskHeartbeatResponse
Int -> ReadS RecordActivityTaskHeartbeatResponse
ReadS [RecordActivityTaskHeartbeatResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RecordActivityTaskHeartbeatResponse]
$creadListPrec :: ReadPrec [RecordActivityTaskHeartbeatResponse]
readPrec :: ReadPrec RecordActivityTaskHeartbeatResponse
$creadPrec :: ReadPrec RecordActivityTaskHeartbeatResponse
readList :: ReadS [RecordActivityTaskHeartbeatResponse]
$creadList :: ReadS [RecordActivityTaskHeartbeatResponse]
readsPrec :: Int -> ReadS RecordActivityTaskHeartbeatResponse
$creadsPrec :: Int -> ReadS RecordActivityTaskHeartbeatResponse
Prelude.Read, Int -> RecordActivityTaskHeartbeatResponse -> ShowS
[RecordActivityTaskHeartbeatResponse] -> ShowS
RecordActivityTaskHeartbeatResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RecordActivityTaskHeartbeatResponse] -> ShowS
$cshowList :: [RecordActivityTaskHeartbeatResponse] -> ShowS
show :: RecordActivityTaskHeartbeatResponse -> String
$cshow :: RecordActivityTaskHeartbeatResponse -> String
showsPrec :: Int -> RecordActivityTaskHeartbeatResponse -> ShowS
$cshowsPrec :: Int -> RecordActivityTaskHeartbeatResponse -> ShowS
Prelude.Show, forall x.
Rep RecordActivityTaskHeartbeatResponse x
-> RecordActivityTaskHeartbeatResponse
forall x.
RecordActivityTaskHeartbeatResponse
-> Rep RecordActivityTaskHeartbeatResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RecordActivityTaskHeartbeatResponse x
-> RecordActivityTaskHeartbeatResponse
$cfrom :: forall x.
RecordActivityTaskHeartbeatResponse
-> Rep RecordActivityTaskHeartbeatResponse x
Prelude.Generic)
newRecordActivityTaskHeartbeatResponse ::
Prelude.Int ->
Prelude.Bool ->
RecordActivityTaskHeartbeatResponse
newRecordActivityTaskHeartbeatResponse :: Int -> Bool -> RecordActivityTaskHeartbeatResponse
newRecordActivityTaskHeartbeatResponse
Int
pHttpStatus_
Bool
pCancelRequested_ =
RecordActivityTaskHeartbeatResponse'
{ $sel:httpStatus:RecordActivityTaskHeartbeatResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:cancelRequested:RecordActivityTaskHeartbeatResponse' :: Bool
cancelRequested = Bool
pCancelRequested_
}
recordActivityTaskHeartbeatResponse_httpStatus :: Lens.Lens' RecordActivityTaskHeartbeatResponse Prelude.Int
recordActivityTaskHeartbeatResponse_httpStatus :: Lens' RecordActivityTaskHeartbeatResponse Int
recordActivityTaskHeartbeatResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RecordActivityTaskHeartbeatResponse' {Int
httpStatus :: Int
$sel:httpStatus:RecordActivityTaskHeartbeatResponse' :: RecordActivityTaskHeartbeatResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RecordActivityTaskHeartbeatResponse
s@RecordActivityTaskHeartbeatResponse' {} Int
a -> RecordActivityTaskHeartbeatResponse
s {$sel:httpStatus:RecordActivityTaskHeartbeatResponse' :: Int
httpStatus = Int
a} :: RecordActivityTaskHeartbeatResponse)
recordActivityTaskHeartbeatResponse_cancelRequested :: Lens.Lens' RecordActivityTaskHeartbeatResponse Prelude.Bool
recordActivityTaskHeartbeatResponse_cancelRequested :: Lens' RecordActivityTaskHeartbeatResponse Bool
recordActivityTaskHeartbeatResponse_cancelRequested = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RecordActivityTaskHeartbeatResponse' {Bool
cancelRequested :: Bool
$sel:cancelRequested:RecordActivityTaskHeartbeatResponse' :: RecordActivityTaskHeartbeatResponse -> Bool
cancelRequested} -> Bool
cancelRequested) (\s :: RecordActivityTaskHeartbeatResponse
s@RecordActivityTaskHeartbeatResponse' {} Bool
a -> RecordActivityTaskHeartbeatResponse
s {$sel:cancelRequested:RecordActivityTaskHeartbeatResponse' :: Bool
cancelRequested = Bool
a} :: RecordActivityTaskHeartbeatResponse)
instance
Prelude.NFData
RecordActivityTaskHeartbeatResponse
where
rnf :: RecordActivityTaskHeartbeatResponse -> ()
rnf RecordActivityTaskHeartbeatResponse' {Bool
Int
cancelRequested :: Bool
httpStatus :: Int
$sel:cancelRequested:RecordActivityTaskHeartbeatResponse' :: RecordActivityTaskHeartbeatResponse -> Bool
$sel:httpStatus:RecordActivityTaskHeartbeatResponse' :: RecordActivityTaskHeartbeatResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
cancelRequested