{-# 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.SSMIncidents.ListTimelineEvents
(
ListTimelineEvents (..),
newListTimelineEvents,
listTimelineEvents_filters,
listTimelineEvents_maxResults,
listTimelineEvents_nextToken,
listTimelineEvents_sortBy,
listTimelineEvents_sortOrder,
listTimelineEvents_incidentRecordArn,
ListTimelineEventsResponse (..),
newListTimelineEventsResponse,
listTimelineEventsResponse_nextToken,
listTimelineEventsResponse_httpStatus,
listTimelineEventsResponse_eventSummaries,
)
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.SSMIncidents.Types
data ListTimelineEvents = ListTimelineEvents'
{
ListTimelineEvents -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
ListTimelineEvents -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListTimelineEvents -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTimelineEvents -> Maybe TimelineEventSort
sortBy :: Prelude.Maybe TimelineEventSort,
ListTimelineEvents -> Maybe SortOrder
sortOrder :: Prelude.Maybe SortOrder,
ListTimelineEvents -> Text
incidentRecordArn :: Prelude.Text
}
deriving (ListTimelineEvents -> ListTimelineEvents -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTimelineEvents -> ListTimelineEvents -> Bool
$c/= :: ListTimelineEvents -> ListTimelineEvents -> Bool
== :: ListTimelineEvents -> ListTimelineEvents -> Bool
$c== :: ListTimelineEvents -> ListTimelineEvents -> Bool
Prelude.Eq, ReadPrec [ListTimelineEvents]
ReadPrec ListTimelineEvents
Int -> ReadS ListTimelineEvents
ReadS [ListTimelineEvents]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTimelineEvents]
$creadListPrec :: ReadPrec [ListTimelineEvents]
readPrec :: ReadPrec ListTimelineEvents
$creadPrec :: ReadPrec ListTimelineEvents
readList :: ReadS [ListTimelineEvents]
$creadList :: ReadS [ListTimelineEvents]
readsPrec :: Int -> ReadS ListTimelineEvents
$creadsPrec :: Int -> ReadS ListTimelineEvents
Prelude.Read, Int -> ListTimelineEvents -> ShowS
[ListTimelineEvents] -> ShowS
ListTimelineEvents -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTimelineEvents] -> ShowS
$cshowList :: [ListTimelineEvents] -> ShowS
show :: ListTimelineEvents -> String
$cshow :: ListTimelineEvents -> String
showsPrec :: Int -> ListTimelineEvents -> ShowS
$cshowsPrec :: Int -> ListTimelineEvents -> ShowS
Prelude.Show, forall x. Rep ListTimelineEvents x -> ListTimelineEvents
forall x. ListTimelineEvents -> Rep ListTimelineEvents x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListTimelineEvents x -> ListTimelineEvents
$cfrom :: forall x. ListTimelineEvents -> Rep ListTimelineEvents x
Prelude.Generic)
newListTimelineEvents ::
Prelude.Text ->
ListTimelineEvents
newListTimelineEvents :: Text -> ListTimelineEvents
newListTimelineEvents Text
pIncidentRecordArn_ =
ListTimelineEvents'
{ $sel:filters:ListTimelineEvents' :: Maybe [Filter]
filters = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListTimelineEvents' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListTimelineEvents' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:sortBy:ListTimelineEvents' :: Maybe TimelineEventSort
sortBy = forall a. Maybe a
Prelude.Nothing,
$sel:sortOrder:ListTimelineEvents' :: Maybe SortOrder
sortOrder = forall a. Maybe a
Prelude.Nothing,
$sel:incidentRecordArn:ListTimelineEvents' :: Text
incidentRecordArn = Text
pIncidentRecordArn_
}
listTimelineEvents_filters :: Lens.Lens' ListTimelineEvents (Prelude.Maybe [Filter])
listTimelineEvents_filters :: Lens' ListTimelineEvents (Maybe [Filter])
listTimelineEvents_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTimelineEvents' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:ListTimelineEvents' :: ListTimelineEvents -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: ListTimelineEvents
s@ListTimelineEvents' {} Maybe [Filter]
a -> ListTimelineEvents
s {$sel:filters:ListTimelineEvents' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: ListTimelineEvents) 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
listTimelineEvents_maxResults :: Lens.Lens' ListTimelineEvents (Prelude.Maybe Prelude.Natural)
listTimelineEvents_maxResults :: Lens' ListTimelineEvents (Maybe Natural)
listTimelineEvents_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTimelineEvents' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListTimelineEvents' :: ListTimelineEvents -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListTimelineEvents
s@ListTimelineEvents' {} Maybe Natural
a -> ListTimelineEvents
s {$sel:maxResults:ListTimelineEvents' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListTimelineEvents)
listTimelineEvents_nextToken :: Lens.Lens' ListTimelineEvents (Prelude.Maybe Prelude.Text)
listTimelineEvents_nextToken :: Lens' ListTimelineEvents (Maybe Text)
listTimelineEvents_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTimelineEvents' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTimelineEvents' :: ListTimelineEvents -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTimelineEvents
s@ListTimelineEvents' {} Maybe Text
a -> ListTimelineEvents
s {$sel:nextToken:ListTimelineEvents' :: Maybe Text
nextToken = Maybe Text
a} :: ListTimelineEvents)
listTimelineEvents_sortBy :: Lens.Lens' ListTimelineEvents (Prelude.Maybe TimelineEventSort)
listTimelineEvents_sortBy :: Lens' ListTimelineEvents (Maybe TimelineEventSort)
listTimelineEvents_sortBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTimelineEvents' {Maybe TimelineEventSort
sortBy :: Maybe TimelineEventSort
$sel:sortBy:ListTimelineEvents' :: ListTimelineEvents -> Maybe TimelineEventSort
sortBy} -> Maybe TimelineEventSort
sortBy) (\s :: ListTimelineEvents
s@ListTimelineEvents' {} Maybe TimelineEventSort
a -> ListTimelineEvents
s {$sel:sortBy:ListTimelineEvents' :: Maybe TimelineEventSort
sortBy = Maybe TimelineEventSort
a} :: ListTimelineEvents)
listTimelineEvents_sortOrder :: Lens.Lens' ListTimelineEvents (Prelude.Maybe SortOrder)
listTimelineEvents_sortOrder :: Lens' ListTimelineEvents (Maybe SortOrder)
listTimelineEvents_sortOrder = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTimelineEvents' {Maybe SortOrder
sortOrder :: Maybe SortOrder
$sel:sortOrder:ListTimelineEvents' :: ListTimelineEvents -> Maybe SortOrder
sortOrder} -> Maybe SortOrder
sortOrder) (\s :: ListTimelineEvents
s@ListTimelineEvents' {} Maybe SortOrder
a -> ListTimelineEvents
s {$sel:sortOrder:ListTimelineEvents' :: Maybe SortOrder
sortOrder = Maybe SortOrder
a} :: ListTimelineEvents)
listTimelineEvents_incidentRecordArn :: Lens.Lens' ListTimelineEvents Prelude.Text
listTimelineEvents_incidentRecordArn :: Lens' ListTimelineEvents Text
listTimelineEvents_incidentRecordArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTimelineEvents' {Text
incidentRecordArn :: Text
$sel:incidentRecordArn:ListTimelineEvents' :: ListTimelineEvents -> Text
incidentRecordArn} -> Text
incidentRecordArn) (\s :: ListTimelineEvents
s@ListTimelineEvents' {} Text
a -> ListTimelineEvents
s {$sel:incidentRecordArn:ListTimelineEvents' :: Text
incidentRecordArn = Text
a} :: ListTimelineEvents)
instance Core.AWSPager ListTimelineEvents where
page :: ListTimelineEvents
-> AWSResponse ListTimelineEvents -> Maybe ListTimelineEvents
page ListTimelineEvents
rq AWSResponse ListTimelineEvents
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListTimelineEvents
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListTimelineEventsResponse (Maybe Text)
listTimelineEventsResponse_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 ListTimelineEvents
rs
forall s a. s -> Getting a s a -> a
Lens.^. Lens' ListTimelineEventsResponse [EventSummary]
listTimelineEventsResponse_eventSummaries
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListTimelineEvents
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListTimelineEvents (Maybe Text)
listTimelineEvents_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListTimelineEvents
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListTimelineEventsResponse (Maybe Text)
listTimelineEventsResponse_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 ListTimelineEvents where
type
AWSResponse ListTimelineEvents =
ListTimelineEventsResponse
request :: (Service -> Service)
-> ListTimelineEvents -> Request ListTimelineEvents
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 ListTimelineEvents
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListTimelineEvents)))
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 -> [EventSummary] -> ListTimelineEventsResponse
ListTimelineEventsResponse'
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
"eventSummaries"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
)
instance Prelude.Hashable ListTimelineEvents where
hashWithSalt :: Int -> ListTimelineEvents -> Int
hashWithSalt Int
_salt ListTimelineEvents' {Maybe Natural
Maybe [Filter]
Maybe Text
Maybe SortOrder
Maybe TimelineEventSort
Text
incidentRecordArn :: Text
sortOrder :: Maybe SortOrder
sortBy :: Maybe TimelineEventSort
nextToken :: Maybe Text
maxResults :: Maybe Natural
filters :: Maybe [Filter]
$sel:incidentRecordArn:ListTimelineEvents' :: ListTimelineEvents -> Text
$sel:sortOrder:ListTimelineEvents' :: ListTimelineEvents -> Maybe SortOrder
$sel:sortBy:ListTimelineEvents' :: ListTimelineEvents -> Maybe TimelineEventSort
$sel:nextToken:ListTimelineEvents' :: ListTimelineEvents -> Maybe Text
$sel:maxResults:ListTimelineEvents' :: ListTimelineEvents -> Maybe Natural
$sel:filters:ListTimelineEvents' :: ListTimelineEvents -> Maybe [Filter]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Filter]
filters
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 TimelineEventSort
sortBy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SortOrder
sortOrder
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
incidentRecordArn
instance Prelude.NFData ListTimelineEvents where
rnf :: ListTimelineEvents -> ()
rnf ListTimelineEvents' {Maybe Natural
Maybe [Filter]
Maybe Text
Maybe SortOrder
Maybe TimelineEventSort
Text
incidentRecordArn :: Text
sortOrder :: Maybe SortOrder
sortBy :: Maybe TimelineEventSort
nextToken :: Maybe Text
maxResults :: Maybe Natural
filters :: Maybe [Filter]
$sel:incidentRecordArn:ListTimelineEvents' :: ListTimelineEvents -> Text
$sel:sortOrder:ListTimelineEvents' :: ListTimelineEvents -> Maybe SortOrder
$sel:sortBy:ListTimelineEvents' :: ListTimelineEvents -> Maybe TimelineEventSort
$sel:nextToken:ListTimelineEvents' :: ListTimelineEvents -> Maybe Text
$sel:maxResults:ListTimelineEvents' :: ListTimelineEvents -> Maybe Natural
$sel:filters:ListTimelineEvents' :: ListTimelineEvents -> Maybe [Filter]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Filter]
filters
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 TimelineEventSort
sortBy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SortOrder
sortOrder
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
incidentRecordArn
instance Data.ToHeaders ListTimelineEvents where
toHeaders :: ListTimelineEvents -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ListTimelineEvents where
toJSON :: ListTimelineEvents -> Value
toJSON ListTimelineEvents' {Maybe Natural
Maybe [Filter]
Maybe Text
Maybe SortOrder
Maybe TimelineEventSort
Text
incidentRecordArn :: Text
sortOrder :: Maybe SortOrder
sortBy :: Maybe TimelineEventSort
nextToken :: Maybe Text
maxResults :: Maybe Natural
filters :: Maybe [Filter]
$sel:incidentRecordArn:ListTimelineEvents' :: ListTimelineEvents -> Text
$sel:sortOrder:ListTimelineEvents' :: ListTimelineEvents -> Maybe SortOrder
$sel:sortBy:ListTimelineEvents' :: ListTimelineEvents -> Maybe TimelineEventSort
$sel:nextToken:ListTimelineEvents' :: ListTimelineEvents -> Maybe Text
$sel:maxResults:ListTimelineEvents' :: ListTimelineEvents -> Maybe Natural
$sel:filters:ListTimelineEvents' :: ListTimelineEvents -> Maybe [Filter]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"filters" 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 [Filter]
filters,
(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
"sortBy" 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 TimelineEventSort
sortBy,
(Key
"sortOrder" 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 SortOrder
sortOrder,
forall a. a -> Maybe a
Prelude.Just
(Key
"incidentRecordArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
incidentRecordArn)
]
)
instance Data.ToPath ListTimelineEvents where
toPath :: ListTimelineEvents -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/listTimelineEvents"
instance Data.ToQuery ListTimelineEvents where
toQuery :: ListTimelineEvents -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListTimelineEventsResponse = ListTimelineEventsResponse'
{
ListTimelineEventsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTimelineEventsResponse -> Int
httpStatus :: Prelude.Int,
ListTimelineEventsResponse -> [EventSummary]
eventSummaries :: [EventSummary]
}
deriving (ListTimelineEventsResponse -> ListTimelineEventsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTimelineEventsResponse -> ListTimelineEventsResponse -> Bool
$c/= :: ListTimelineEventsResponse -> ListTimelineEventsResponse -> Bool
== :: ListTimelineEventsResponse -> ListTimelineEventsResponse -> Bool
$c== :: ListTimelineEventsResponse -> ListTimelineEventsResponse -> Bool
Prelude.Eq, ReadPrec [ListTimelineEventsResponse]
ReadPrec ListTimelineEventsResponse
Int -> ReadS ListTimelineEventsResponse
ReadS [ListTimelineEventsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTimelineEventsResponse]
$creadListPrec :: ReadPrec [ListTimelineEventsResponse]
readPrec :: ReadPrec ListTimelineEventsResponse
$creadPrec :: ReadPrec ListTimelineEventsResponse
readList :: ReadS [ListTimelineEventsResponse]
$creadList :: ReadS [ListTimelineEventsResponse]
readsPrec :: Int -> ReadS ListTimelineEventsResponse
$creadsPrec :: Int -> ReadS ListTimelineEventsResponse
Prelude.Read, Int -> ListTimelineEventsResponse -> ShowS
[ListTimelineEventsResponse] -> ShowS
ListTimelineEventsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTimelineEventsResponse] -> ShowS
$cshowList :: [ListTimelineEventsResponse] -> ShowS
show :: ListTimelineEventsResponse -> String
$cshow :: ListTimelineEventsResponse -> String
showsPrec :: Int -> ListTimelineEventsResponse -> ShowS
$cshowsPrec :: Int -> ListTimelineEventsResponse -> ShowS
Prelude.Show, forall x.
Rep ListTimelineEventsResponse x -> ListTimelineEventsResponse
forall x.
ListTimelineEventsResponse -> Rep ListTimelineEventsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListTimelineEventsResponse x -> ListTimelineEventsResponse
$cfrom :: forall x.
ListTimelineEventsResponse -> Rep ListTimelineEventsResponse x
Prelude.Generic)
newListTimelineEventsResponse ::
Prelude.Int ->
ListTimelineEventsResponse
newListTimelineEventsResponse :: Int -> ListTimelineEventsResponse
newListTimelineEventsResponse Int
pHttpStatus_ =
ListTimelineEventsResponse'
{ $sel:nextToken:ListTimelineEventsResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListTimelineEventsResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:eventSummaries:ListTimelineEventsResponse' :: [EventSummary]
eventSummaries = forall a. Monoid a => a
Prelude.mempty
}
listTimelineEventsResponse_nextToken :: Lens.Lens' ListTimelineEventsResponse (Prelude.Maybe Prelude.Text)
listTimelineEventsResponse_nextToken :: Lens' ListTimelineEventsResponse (Maybe Text)
listTimelineEventsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTimelineEventsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTimelineEventsResponse' :: ListTimelineEventsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTimelineEventsResponse
s@ListTimelineEventsResponse' {} Maybe Text
a -> ListTimelineEventsResponse
s {$sel:nextToken:ListTimelineEventsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListTimelineEventsResponse)
listTimelineEventsResponse_httpStatus :: Lens.Lens' ListTimelineEventsResponse Prelude.Int
listTimelineEventsResponse_httpStatus :: Lens' ListTimelineEventsResponse Int
listTimelineEventsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTimelineEventsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListTimelineEventsResponse' :: ListTimelineEventsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListTimelineEventsResponse
s@ListTimelineEventsResponse' {} Int
a -> ListTimelineEventsResponse
s {$sel:httpStatus:ListTimelineEventsResponse' :: Int
httpStatus = Int
a} :: ListTimelineEventsResponse)
listTimelineEventsResponse_eventSummaries :: Lens.Lens' ListTimelineEventsResponse [EventSummary]
listTimelineEventsResponse_eventSummaries :: Lens' ListTimelineEventsResponse [EventSummary]
listTimelineEventsResponse_eventSummaries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTimelineEventsResponse' {[EventSummary]
eventSummaries :: [EventSummary]
$sel:eventSummaries:ListTimelineEventsResponse' :: ListTimelineEventsResponse -> [EventSummary]
eventSummaries} -> [EventSummary]
eventSummaries) (\s :: ListTimelineEventsResponse
s@ListTimelineEventsResponse' {} [EventSummary]
a -> ListTimelineEventsResponse
s {$sel:eventSummaries:ListTimelineEventsResponse' :: [EventSummary]
eventSummaries = [EventSummary]
a} :: ListTimelineEventsResponse) 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 ListTimelineEventsResponse where
rnf :: ListTimelineEventsResponse -> ()
rnf ListTimelineEventsResponse' {Int
[EventSummary]
Maybe Text
eventSummaries :: [EventSummary]
httpStatus :: Int
nextToken :: Maybe Text
$sel:eventSummaries:ListTimelineEventsResponse' :: ListTimelineEventsResponse -> [EventSummary]
$sel:httpStatus:ListTimelineEventsResponse' :: ListTimelineEventsResponse -> Int
$sel:nextToken:ListTimelineEventsResponse' :: ListTimelineEventsResponse -> 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 [EventSummary]
eventSummaries