{-# 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.StepFunctions.GetExecutionHistory
(
GetExecutionHistory (..),
newGetExecutionHistory,
getExecutionHistory_includeExecutionData,
getExecutionHistory_maxResults,
getExecutionHistory_nextToken,
getExecutionHistory_reverseOrder,
getExecutionHistory_executionArn,
GetExecutionHistoryResponse (..),
newGetExecutionHistoryResponse,
getExecutionHistoryResponse_nextToken,
getExecutionHistoryResponse_httpStatus,
getExecutionHistoryResponse_events,
)
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.StepFunctions.Types
data GetExecutionHistory = GetExecutionHistory'
{
GetExecutionHistory -> Maybe Bool
includeExecutionData :: Prelude.Maybe Prelude.Bool,
GetExecutionHistory -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
GetExecutionHistory -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetExecutionHistory -> Maybe Bool
reverseOrder :: Prelude.Maybe Prelude.Bool,
GetExecutionHistory -> Text
executionArn :: Prelude.Text
}
deriving (GetExecutionHistory -> GetExecutionHistory -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetExecutionHistory -> GetExecutionHistory -> Bool
$c/= :: GetExecutionHistory -> GetExecutionHistory -> Bool
== :: GetExecutionHistory -> GetExecutionHistory -> Bool
$c== :: GetExecutionHistory -> GetExecutionHistory -> Bool
Prelude.Eq, ReadPrec [GetExecutionHistory]
ReadPrec GetExecutionHistory
Int -> ReadS GetExecutionHistory
ReadS [GetExecutionHistory]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetExecutionHistory]
$creadListPrec :: ReadPrec [GetExecutionHistory]
readPrec :: ReadPrec GetExecutionHistory
$creadPrec :: ReadPrec GetExecutionHistory
readList :: ReadS [GetExecutionHistory]
$creadList :: ReadS [GetExecutionHistory]
readsPrec :: Int -> ReadS GetExecutionHistory
$creadsPrec :: Int -> ReadS GetExecutionHistory
Prelude.Read, Int -> GetExecutionHistory -> ShowS
[GetExecutionHistory] -> ShowS
GetExecutionHistory -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetExecutionHistory] -> ShowS
$cshowList :: [GetExecutionHistory] -> ShowS
show :: GetExecutionHistory -> String
$cshow :: GetExecutionHistory -> String
showsPrec :: Int -> GetExecutionHistory -> ShowS
$cshowsPrec :: Int -> GetExecutionHistory -> ShowS
Prelude.Show, forall x. Rep GetExecutionHistory x -> GetExecutionHistory
forall x. GetExecutionHistory -> Rep GetExecutionHistory x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetExecutionHistory x -> GetExecutionHistory
$cfrom :: forall x. GetExecutionHistory -> Rep GetExecutionHistory x
Prelude.Generic)
newGetExecutionHistory ::
Prelude.Text ->
GetExecutionHistory
newGetExecutionHistory :: Text -> GetExecutionHistory
newGetExecutionHistory Text
pExecutionArn_ =
GetExecutionHistory'
{ $sel:includeExecutionData:GetExecutionHistory' :: Maybe Bool
includeExecutionData =
forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:GetExecutionHistory' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetExecutionHistory' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:reverseOrder:GetExecutionHistory' :: Maybe Bool
reverseOrder = forall a. Maybe a
Prelude.Nothing,
$sel:executionArn:GetExecutionHistory' :: Text
executionArn = Text
pExecutionArn_
}
getExecutionHistory_includeExecutionData :: Lens.Lens' GetExecutionHistory (Prelude.Maybe Prelude.Bool)
getExecutionHistory_includeExecutionData :: Lens' GetExecutionHistory (Maybe Bool)
getExecutionHistory_includeExecutionData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExecutionHistory' {Maybe Bool
includeExecutionData :: Maybe Bool
$sel:includeExecutionData:GetExecutionHistory' :: GetExecutionHistory -> Maybe Bool
includeExecutionData} -> Maybe Bool
includeExecutionData) (\s :: GetExecutionHistory
s@GetExecutionHistory' {} Maybe Bool
a -> GetExecutionHistory
s {$sel:includeExecutionData:GetExecutionHistory' :: Maybe Bool
includeExecutionData = Maybe Bool
a} :: GetExecutionHistory)
getExecutionHistory_maxResults :: Lens.Lens' GetExecutionHistory (Prelude.Maybe Prelude.Natural)
getExecutionHistory_maxResults :: Lens' GetExecutionHistory (Maybe Natural)
getExecutionHistory_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExecutionHistory' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:GetExecutionHistory' :: GetExecutionHistory -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: GetExecutionHistory
s@GetExecutionHistory' {} Maybe Natural
a -> GetExecutionHistory
s {$sel:maxResults:GetExecutionHistory' :: Maybe Natural
maxResults = Maybe Natural
a} :: GetExecutionHistory)
getExecutionHistory_nextToken :: Lens.Lens' GetExecutionHistory (Prelude.Maybe Prelude.Text)
getExecutionHistory_nextToken :: Lens' GetExecutionHistory (Maybe Text)
getExecutionHistory_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExecutionHistory' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetExecutionHistory' :: GetExecutionHistory -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetExecutionHistory
s@GetExecutionHistory' {} Maybe Text
a -> GetExecutionHistory
s {$sel:nextToken:GetExecutionHistory' :: Maybe Text
nextToken = Maybe Text
a} :: GetExecutionHistory)
getExecutionHistory_reverseOrder :: Lens.Lens' GetExecutionHistory (Prelude.Maybe Prelude.Bool)
getExecutionHistory_reverseOrder :: Lens' GetExecutionHistory (Maybe Bool)
getExecutionHistory_reverseOrder = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExecutionHistory' {Maybe Bool
reverseOrder :: Maybe Bool
$sel:reverseOrder:GetExecutionHistory' :: GetExecutionHistory -> Maybe Bool
reverseOrder} -> Maybe Bool
reverseOrder) (\s :: GetExecutionHistory
s@GetExecutionHistory' {} Maybe Bool
a -> GetExecutionHistory
s {$sel:reverseOrder:GetExecutionHistory' :: Maybe Bool
reverseOrder = Maybe Bool
a} :: GetExecutionHistory)
getExecutionHistory_executionArn :: Lens.Lens' GetExecutionHistory Prelude.Text
getExecutionHistory_executionArn :: Lens' GetExecutionHistory Text
getExecutionHistory_executionArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExecutionHistory' {Text
executionArn :: Text
$sel:executionArn:GetExecutionHistory' :: GetExecutionHistory -> Text
executionArn} -> Text
executionArn) (\s :: GetExecutionHistory
s@GetExecutionHistory' {} Text
a -> GetExecutionHistory
s {$sel:executionArn:GetExecutionHistory' :: Text
executionArn = Text
a} :: GetExecutionHistory)
instance Core.AWSPager GetExecutionHistory where
page :: GetExecutionHistory
-> AWSResponse GetExecutionHistory -> Maybe GetExecutionHistory
page GetExecutionHistory
rq AWSResponse GetExecutionHistory
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse GetExecutionHistory
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetExecutionHistoryResponse (Maybe Text)
getExecutionHistoryResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
(AWSResponse GetExecutionHistory
rs forall s a. s -> Getting a s a -> a
Lens.^. Lens' GetExecutionHistoryResponse [HistoryEvent]
getExecutionHistoryResponse_events) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ GetExecutionHistory
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' GetExecutionHistory (Maybe Text)
getExecutionHistory_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse GetExecutionHistory
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetExecutionHistoryResponse (Maybe Text)
getExecutionHistoryResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest GetExecutionHistory where
type
AWSResponse GetExecutionHistory =
GetExecutionHistoryResponse
request :: (Service -> Service)
-> GetExecutionHistory -> Request GetExecutionHistory
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 GetExecutionHistory
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetExecutionHistory)))
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 ->
Maybe Text -> Int -> [HistoryEvent] -> GetExecutionHistoryResponse
GetExecutionHistoryResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"nextToken")
forall (f :: * -> *) a b. Applicative f => 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 (Maybe a)
Data..?> Key
"events" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
)
instance Prelude.Hashable GetExecutionHistory where
hashWithSalt :: Int -> GetExecutionHistory -> Int
hashWithSalt Int
_salt GetExecutionHistory' {Maybe Bool
Maybe Natural
Maybe Text
Text
executionArn :: Text
reverseOrder :: Maybe Bool
nextToken :: Maybe Text
maxResults :: Maybe Natural
includeExecutionData :: Maybe Bool
$sel:executionArn:GetExecutionHistory' :: GetExecutionHistory -> Text
$sel:reverseOrder:GetExecutionHistory' :: GetExecutionHistory -> Maybe Bool
$sel:nextToken:GetExecutionHistory' :: GetExecutionHistory -> Maybe Text
$sel:maxResults:GetExecutionHistory' :: GetExecutionHistory -> Maybe Natural
$sel:includeExecutionData:GetExecutionHistory' :: GetExecutionHistory -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
includeExecutionData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
reverseOrder
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
executionArn
instance Prelude.NFData GetExecutionHistory where
rnf :: GetExecutionHistory -> ()
rnf GetExecutionHistory' {Maybe Bool
Maybe Natural
Maybe Text
Text
executionArn :: Text
reverseOrder :: Maybe Bool
nextToken :: Maybe Text
maxResults :: Maybe Natural
includeExecutionData :: Maybe Bool
$sel:executionArn:GetExecutionHistory' :: GetExecutionHistory -> Text
$sel:reverseOrder:GetExecutionHistory' :: GetExecutionHistory -> Maybe Bool
$sel:nextToken:GetExecutionHistory' :: GetExecutionHistory -> Maybe Text
$sel:maxResults:GetExecutionHistory' :: GetExecutionHistory -> Maybe Natural
$sel:includeExecutionData:GetExecutionHistory' :: GetExecutionHistory -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
includeExecutionData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
reverseOrder
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
executionArn
instance Data.ToHeaders GetExecutionHistory where
toHeaders :: GetExecutionHistory -> 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
"AWSStepFunctions.GetExecutionHistory" ::
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 GetExecutionHistory where
toJSON :: GetExecutionHistory -> Value
toJSON GetExecutionHistory' {Maybe Bool
Maybe Natural
Maybe Text
Text
executionArn :: Text
reverseOrder :: Maybe Bool
nextToken :: Maybe Text
maxResults :: Maybe Natural
includeExecutionData :: Maybe Bool
$sel:executionArn:GetExecutionHistory' :: GetExecutionHistory -> Text
$sel:reverseOrder:GetExecutionHistory' :: GetExecutionHistory -> Maybe Bool
$sel:nextToken:GetExecutionHistory' :: GetExecutionHistory -> Maybe Text
$sel:maxResults:GetExecutionHistory' :: GetExecutionHistory -> Maybe Natural
$sel:includeExecutionData:GetExecutionHistory' :: GetExecutionHistory -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"includeExecutionData" 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 Bool
includeExecutionData,
(Key
"maxResults" 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 Natural
maxResults,
(Key
"nextToken" 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
nextToken,
(Key
"reverseOrder" 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 Bool
reverseOrder,
forall a. a -> Maybe a
Prelude.Just (Key
"executionArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
executionArn)
]
)
instance Data.ToPath GetExecutionHistory where
toPath :: GetExecutionHistory -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetExecutionHistory where
toQuery :: GetExecutionHistory -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetExecutionHistoryResponse = GetExecutionHistoryResponse'
{
GetExecutionHistoryResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetExecutionHistoryResponse -> Int
httpStatus :: Prelude.Int,
GetExecutionHistoryResponse -> [HistoryEvent]
events :: [HistoryEvent]
}
deriving (GetExecutionHistoryResponse -> GetExecutionHistoryResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetExecutionHistoryResponse -> GetExecutionHistoryResponse -> Bool
$c/= :: GetExecutionHistoryResponse -> GetExecutionHistoryResponse -> Bool
== :: GetExecutionHistoryResponse -> GetExecutionHistoryResponse -> Bool
$c== :: GetExecutionHistoryResponse -> GetExecutionHistoryResponse -> Bool
Prelude.Eq, Int -> GetExecutionHistoryResponse -> ShowS
[GetExecutionHistoryResponse] -> ShowS
GetExecutionHistoryResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetExecutionHistoryResponse] -> ShowS
$cshowList :: [GetExecutionHistoryResponse] -> ShowS
show :: GetExecutionHistoryResponse -> String
$cshow :: GetExecutionHistoryResponse -> String
showsPrec :: Int -> GetExecutionHistoryResponse -> ShowS
$cshowsPrec :: Int -> GetExecutionHistoryResponse -> ShowS
Prelude.Show, forall x.
Rep GetExecutionHistoryResponse x -> GetExecutionHistoryResponse
forall x.
GetExecutionHistoryResponse -> Rep GetExecutionHistoryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetExecutionHistoryResponse x -> GetExecutionHistoryResponse
$cfrom :: forall x.
GetExecutionHistoryResponse -> Rep GetExecutionHistoryResponse x
Prelude.Generic)
newGetExecutionHistoryResponse ::
Prelude.Int ->
GetExecutionHistoryResponse
newGetExecutionHistoryResponse :: Int -> GetExecutionHistoryResponse
newGetExecutionHistoryResponse Int
pHttpStatus_ =
GetExecutionHistoryResponse'
{ $sel:nextToken:GetExecutionHistoryResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetExecutionHistoryResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:events:GetExecutionHistoryResponse' :: [HistoryEvent]
events = forall a. Monoid a => a
Prelude.mempty
}
getExecutionHistoryResponse_nextToken :: Lens.Lens' GetExecutionHistoryResponse (Prelude.Maybe Prelude.Text)
getExecutionHistoryResponse_nextToken :: Lens' GetExecutionHistoryResponse (Maybe Text)
getExecutionHistoryResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExecutionHistoryResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetExecutionHistoryResponse' :: GetExecutionHistoryResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetExecutionHistoryResponse
s@GetExecutionHistoryResponse' {} Maybe Text
a -> GetExecutionHistoryResponse
s {$sel:nextToken:GetExecutionHistoryResponse' :: Maybe Text
nextToken = Maybe Text
a} :: GetExecutionHistoryResponse)
getExecutionHistoryResponse_httpStatus :: Lens.Lens' GetExecutionHistoryResponse Prelude.Int
getExecutionHistoryResponse_httpStatus :: Lens' GetExecutionHistoryResponse Int
getExecutionHistoryResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExecutionHistoryResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetExecutionHistoryResponse' :: GetExecutionHistoryResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetExecutionHistoryResponse
s@GetExecutionHistoryResponse' {} Int
a -> GetExecutionHistoryResponse
s {$sel:httpStatus:GetExecutionHistoryResponse' :: Int
httpStatus = Int
a} :: GetExecutionHistoryResponse)
getExecutionHistoryResponse_events :: Lens.Lens' GetExecutionHistoryResponse [HistoryEvent]
getExecutionHistoryResponse_events :: Lens' GetExecutionHistoryResponse [HistoryEvent]
getExecutionHistoryResponse_events = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetExecutionHistoryResponse' {[HistoryEvent]
events :: [HistoryEvent]
$sel:events:GetExecutionHistoryResponse' :: GetExecutionHistoryResponse -> [HistoryEvent]
events} -> [HistoryEvent]
events) (\s :: GetExecutionHistoryResponse
s@GetExecutionHistoryResponse' {} [HistoryEvent]
a -> GetExecutionHistoryResponse
s {$sel:events:GetExecutionHistoryResponse' :: [HistoryEvent]
events = [HistoryEvent]
a} :: GetExecutionHistoryResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Prelude.NFData GetExecutionHistoryResponse where
rnf :: GetExecutionHistoryResponse -> ()
rnf GetExecutionHistoryResponse' {Int
[HistoryEvent]
Maybe Text
events :: [HistoryEvent]
httpStatus :: Int
nextToken :: Maybe Text
$sel:events:GetExecutionHistoryResponse' :: GetExecutionHistoryResponse -> [HistoryEvent]
$sel:httpStatus:GetExecutionHistoryResponse' :: GetExecutionHistoryResponse -> Int
$sel:nextToken:GetExecutionHistoryResponse' :: GetExecutionHistoryResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 [HistoryEvent]
events