{-# 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.AlexaBusiness.ListDeviceEvents
(
ListDeviceEvents (..),
newListDeviceEvents,
listDeviceEvents_eventType,
listDeviceEvents_maxResults,
listDeviceEvents_nextToken,
listDeviceEvents_deviceArn,
ListDeviceEventsResponse (..),
newListDeviceEventsResponse,
listDeviceEventsResponse_deviceEvents,
listDeviceEventsResponse_nextToken,
listDeviceEventsResponse_httpStatus,
)
where
import Amazonka.AlexaBusiness.Types
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
data ListDeviceEvents = ListDeviceEvents'
{
ListDeviceEvents -> Maybe DeviceEventType
eventType :: Prelude.Maybe DeviceEventType,
ListDeviceEvents -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListDeviceEvents -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListDeviceEvents -> Text
deviceArn :: Prelude.Text
}
deriving (ListDeviceEvents -> ListDeviceEvents -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListDeviceEvents -> ListDeviceEvents -> Bool
$c/= :: ListDeviceEvents -> ListDeviceEvents -> Bool
== :: ListDeviceEvents -> ListDeviceEvents -> Bool
$c== :: ListDeviceEvents -> ListDeviceEvents -> Bool
Prelude.Eq, ReadPrec [ListDeviceEvents]
ReadPrec ListDeviceEvents
Int -> ReadS ListDeviceEvents
ReadS [ListDeviceEvents]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListDeviceEvents]
$creadListPrec :: ReadPrec [ListDeviceEvents]
readPrec :: ReadPrec ListDeviceEvents
$creadPrec :: ReadPrec ListDeviceEvents
readList :: ReadS [ListDeviceEvents]
$creadList :: ReadS [ListDeviceEvents]
readsPrec :: Int -> ReadS ListDeviceEvents
$creadsPrec :: Int -> ReadS ListDeviceEvents
Prelude.Read, Int -> ListDeviceEvents -> ShowS
[ListDeviceEvents] -> ShowS
ListDeviceEvents -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListDeviceEvents] -> ShowS
$cshowList :: [ListDeviceEvents] -> ShowS
show :: ListDeviceEvents -> String
$cshow :: ListDeviceEvents -> String
showsPrec :: Int -> ListDeviceEvents -> ShowS
$cshowsPrec :: Int -> ListDeviceEvents -> ShowS
Prelude.Show, forall x. Rep ListDeviceEvents x -> ListDeviceEvents
forall x. ListDeviceEvents -> Rep ListDeviceEvents x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListDeviceEvents x -> ListDeviceEvents
$cfrom :: forall x. ListDeviceEvents -> Rep ListDeviceEvents x
Prelude.Generic)
newListDeviceEvents ::
Prelude.Text ->
ListDeviceEvents
newListDeviceEvents :: Text -> ListDeviceEvents
newListDeviceEvents Text
pDeviceArn_ =
ListDeviceEvents'
{ $sel:eventType:ListDeviceEvents' :: Maybe DeviceEventType
eventType = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListDeviceEvents' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListDeviceEvents' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:deviceArn:ListDeviceEvents' :: Text
deviceArn = Text
pDeviceArn_
}
listDeviceEvents_eventType :: Lens.Lens' ListDeviceEvents (Prelude.Maybe DeviceEventType)
listDeviceEvents_eventType :: Lens' ListDeviceEvents (Maybe DeviceEventType)
listDeviceEvents_eventType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceEvents' {Maybe DeviceEventType
eventType :: Maybe DeviceEventType
$sel:eventType:ListDeviceEvents' :: ListDeviceEvents -> Maybe DeviceEventType
eventType} -> Maybe DeviceEventType
eventType) (\s :: ListDeviceEvents
s@ListDeviceEvents' {} Maybe DeviceEventType
a -> ListDeviceEvents
s {$sel:eventType:ListDeviceEvents' :: Maybe DeviceEventType
eventType = Maybe DeviceEventType
a} :: ListDeviceEvents)
listDeviceEvents_maxResults :: Lens.Lens' ListDeviceEvents (Prelude.Maybe Prelude.Natural)
listDeviceEvents_maxResults :: Lens' ListDeviceEvents (Maybe Natural)
listDeviceEvents_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceEvents' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListDeviceEvents' :: ListDeviceEvents -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListDeviceEvents
s@ListDeviceEvents' {} Maybe Natural
a -> ListDeviceEvents
s {$sel:maxResults:ListDeviceEvents' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListDeviceEvents)
listDeviceEvents_nextToken :: Lens.Lens' ListDeviceEvents (Prelude.Maybe Prelude.Text)
listDeviceEvents_nextToken :: Lens' ListDeviceEvents (Maybe Text)
listDeviceEvents_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceEvents' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListDeviceEvents' :: ListDeviceEvents -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListDeviceEvents
s@ListDeviceEvents' {} Maybe Text
a -> ListDeviceEvents
s {$sel:nextToken:ListDeviceEvents' :: Maybe Text
nextToken = Maybe Text
a} :: ListDeviceEvents)
listDeviceEvents_deviceArn :: Lens.Lens' ListDeviceEvents Prelude.Text
listDeviceEvents_deviceArn :: Lens' ListDeviceEvents Text
listDeviceEvents_deviceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceEvents' {Text
deviceArn :: Text
$sel:deviceArn:ListDeviceEvents' :: ListDeviceEvents -> Text
deviceArn} -> Text
deviceArn) (\s :: ListDeviceEvents
s@ListDeviceEvents' {} Text
a -> ListDeviceEvents
s {$sel:deviceArn:ListDeviceEvents' :: Text
deviceArn = Text
a} :: ListDeviceEvents)
instance Core.AWSPager ListDeviceEvents where
page :: ListDeviceEvents
-> AWSResponse ListDeviceEvents -> Maybe ListDeviceEvents
page ListDeviceEvents
rq AWSResponse ListDeviceEvents
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListDeviceEvents
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListDeviceEventsResponse (Maybe Text)
listDeviceEventsResponse_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 ListDeviceEvents
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListDeviceEventsResponse (Maybe [DeviceEvent])
listDeviceEventsResponse_deviceEvents
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
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListDeviceEvents
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListDeviceEvents (Maybe Text)
listDeviceEvents_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListDeviceEvents
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListDeviceEventsResponse (Maybe Text)
listDeviceEventsResponse_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 ListDeviceEvents where
type
AWSResponse ListDeviceEvents =
ListDeviceEventsResponse
request :: (Service -> Service)
-> ListDeviceEvents -> Request ListDeviceEvents
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 ListDeviceEvents
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListDeviceEvents)))
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 [DeviceEvent]
-> Maybe Text -> Int -> ListDeviceEventsResponse
ListDeviceEventsResponse'
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
"DeviceEvents" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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
"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))
)
instance Prelude.Hashable ListDeviceEvents where
hashWithSalt :: Int -> ListDeviceEvents -> Int
hashWithSalt Int
_salt ListDeviceEvents' {Maybe Natural
Maybe Text
Maybe DeviceEventType
Text
deviceArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
eventType :: Maybe DeviceEventType
$sel:deviceArn:ListDeviceEvents' :: ListDeviceEvents -> Text
$sel:nextToken:ListDeviceEvents' :: ListDeviceEvents -> Maybe Text
$sel:maxResults:ListDeviceEvents' :: ListDeviceEvents -> Maybe Natural
$sel:eventType:ListDeviceEvents' :: ListDeviceEvents -> Maybe DeviceEventType
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DeviceEventType
eventType
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` Text
deviceArn
instance Prelude.NFData ListDeviceEvents where
rnf :: ListDeviceEvents -> ()
rnf ListDeviceEvents' {Maybe Natural
Maybe Text
Maybe DeviceEventType
Text
deviceArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
eventType :: Maybe DeviceEventType
$sel:deviceArn:ListDeviceEvents' :: ListDeviceEvents -> Text
$sel:nextToken:ListDeviceEvents' :: ListDeviceEvents -> Maybe Text
$sel:maxResults:ListDeviceEvents' :: ListDeviceEvents -> Maybe Natural
$sel:eventType:ListDeviceEvents' :: ListDeviceEvents -> Maybe DeviceEventType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DeviceEventType
eventType
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 Text
deviceArn
instance Data.ToHeaders ListDeviceEvents where
toHeaders :: ListDeviceEvents -> 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
"AlexaForBusiness.ListDeviceEvents" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ListDeviceEvents where
toJSON :: ListDeviceEvents -> Value
toJSON ListDeviceEvents' {Maybe Natural
Maybe Text
Maybe DeviceEventType
Text
deviceArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
eventType :: Maybe DeviceEventType
$sel:deviceArn:ListDeviceEvents' :: ListDeviceEvents -> Text
$sel:nextToken:ListDeviceEvents' :: ListDeviceEvents -> Maybe Text
$sel:maxResults:ListDeviceEvents' :: ListDeviceEvents -> Maybe Natural
$sel:eventType:ListDeviceEvents' :: ListDeviceEvents -> Maybe DeviceEventType
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"EventType" 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 DeviceEventType
eventType,
(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,
forall a. a -> Maybe a
Prelude.Just (Key
"DeviceArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
deviceArn)
]
)
instance Data.ToPath ListDeviceEvents where
toPath :: ListDeviceEvents -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListDeviceEvents where
toQuery :: ListDeviceEvents -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListDeviceEventsResponse = ListDeviceEventsResponse'
{
ListDeviceEventsResponse -> Maybe [DeviceEvent]
deviceEvents :: Prelude.Maybe [DeviceEvent],
ListDeviceEventsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListDeviceEventsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListDeviceEventsResponse -> ListDeviceEventsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListDeviceEventsResponse -> ListDeviceEventsResponse -> Bool
$c/= :: ListDeviceEventsResponse -> ListDeviceEventsResponse -> Bool
== :: ListDeviceEventsResponse -> ListDeviceEventsResponse -> Bool
$c== :: ListDeviceEventsResponse -> ListDeviceEventsResponse -> Bool
Prelude.Eq, ReadPrec [ListDeviceEventsResponse]
ReadPrec ListDeviceEventsResponse
Int -> ReadS ListDeviceEventsResponse
ReadS [ListDeviceEventsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListDeviceEventsResponse]
$creadListPrec :: ReadPrec [ListDeviceEventsResponse]
readPrec :: ReadPrec ListDeviceEventsResponse
$creadPrec :: ReadPrec ListDeviceEventsResponse
readList :: ReadS [ListDeviceEventsResponse]
$creadList :: ReadS [ListDeviceEventsResponse]
readsPrec :: Int -> ReadS ListDeviceEventsResponse
$creadsPrec :: Int -> ReadS ListDeviceEventsResponse
Prelude.Read, Int -> ListDeviceEventsResponse -> ShowS
[ListDeviceEventsResponse] -> ShowS
ListDeviceEventsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListDeviceEventsResponse] -> ShowS
$cshowList :: [ListDeviceEventsResponse] -> ShowS
show :: ListDeviceEventsResponse -> String
$cshow :: ListDeviceEventsResponse -> String
showsPrec :: Int -> ListDeviceEventsResponse -> ShowS
$cshowsPrec :: Int -> ListDeviceEventsResponse -> ShowS
Prelude.Show, forall x.
Rep ListDeviceEventsResponse x -> ListDeviceEventsResponse
forall x.
ListDeviceEventsResponse -> Rep ListDeviceEventsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListDeviceEventsResponse x -> ListDeviceEventsResponse
$cfrom :: forall x.
ListDeviceEventsResponse -> Rep ListDeviceEventsResponse x
Prelude.Generic)
newListDeviceEventsResponse ::
Prelude.Int ->
ListDeviceEventsResponse
newListDeviceEventsResponse :: Int -> ListDeviceEventsResponse
newListDeviceEventsResponse Int
pHttpStatus_ =
ListDeviceEventsResponse'
{ $sel:deviceEvents:ListDeviceEventsResponse' :: Maybe [DeviceEvent]
deviceEvents =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListDeviceEventsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListDeviceEventsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listDeviceEventsResponse_deviceEvents :: Lens.Lens' ListDeviceEventsResponse (Prelude.Maybe [DeviceEvent])
listDeviceEventsResponse_deviceEvents :: Lens' ListDeviceEventsResponse (Maybe [DeviceEvent])
listDeviceEventsResponse_deviceEvents = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceEventsResponse' {Maybe [DeviceEvent]
deviceEvents :: Maybe [DeviceEvent]
$sel:deviceEvents:ListDeviceEventsResponse' :: ListDeviceEventsResponse -> Maybe [DeviceEvent]
deviceEvents} -> Maybe [DeviceEvent]
deviceEvents) (\s :: ListDeviceEventsResponse
s@ListDeviceEventsResponse' {} Maybe [DeviceEvent]
a -> ListDeviceEventsResponse
s {$sel:deviceEvents:ListDeviceEventsResponse' :: Maybe [DeviceEvent]
deviceEvents = Maybe [DeviceEvent]
a} :: ListDeviceEventsResponse) 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
listDeviceEventsResponse_nextToken :: Lens.Lens' ListDeviceEventsResponse (Prelude.Maybe Prelude.Text)
listDeviceEventsResponse_nextToken :: Lens' ListDeviceEventsResponse (Maybe Text)
listDeviceEventsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceEventsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListDeviceEventsResponse' :: ListDeviceEventsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListDeviceEventsResponse
s@ListDeviceEventsResponse' {} Maybe Text
a -> ListDeviceEventsResponse
s {$sel:nextToken:ListDeviceEventsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListDeviceEventsResponse)
listDeviceEventsResponse_httpStatus :: Lens.Lens' ListDeviceEventsResponse Prelude.Int
listDeviceEventsResponse_httpStatus :: Lens' ListDeviceEventsResponse Int
listDeviceEventsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceEventsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListDeviceEventsResponse' :: ListDeviceEventsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListDeviceEventsResponse
s@ListDeviceEventsResponse' {} Int
a -> ListDeviceEventsResponse
s {$sel:httpStatus:ListDeviceEventsResponse' :: Int
httpStatus = Int
a} :: ListDeviceEventsResponse)
instance Prelude.NFData ListDeviceEventsResponse where
rnf :: ListDeviceEventsResponse -> ()
rnf ListDeviceEventsResponse' {Int
Maybe [DeviceEvent]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
deviceEvents :: Maybe [DeviceEvent]
$sel:httpStatus:ListDeviceEventsResponse' :: ListDeviceEventsResponse -> Int
$sel:nextToken:ListDeviceEventsResponse' :: ListDeviceEventsResponse -> Maybe Text
$sel:deviceEvents:ListDeviceEventsResponse' :: ListDeviceEventsResponse -> Maybe [DeviceEvent]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [DeviceEvent]
deviceEvents
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 Int
httpStatus