{-# 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.XRay.GetInsightEvents
(
GetInsightEvents (..),
newGetInsightEvents,
getInsightEvents_maxResults,
getInsightEvents_nextToken,
getInsightEvents_insightId,
GetInsightEventsResponse (..),
newGetInsightEventsResponse,
getInsightEventsResponse_insightEvents,
getInsightEventsResponse_nextToken,
getInsightEventsResponse_httpStatus,
)
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.XRay.Types
data GetInsightEvents = GetInsightEvents'
{
GetInsightEvents -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
GetInsightEvents -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetInsightEvents -> Text
insightId :: Prelude.Text
}
deriving (GetInsightEvents -> GetInsightEvents -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetInsightEvents -> GetInsightEvents -> Bool
$c/= :: GetInsightEvents -> GetInsightEvents -> Bool
== :: GetInsightEvents -> GetInsightEvents -> Bool
$c== :: GetInsightEvents -> GetInsightEvents -> Bool
Prelude.Eq, ReadPrec [GetInsightEvents]
ReadPrec GetInsightEvents
Int -> ReadS GetInsightEvents
ReadS [GetInsightEvents]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetInsightEvents]
$creadListPrec :: ReadPrec [GetInsightEvents]
readPrec :: ReadPrec GetInsightEvents
$creadPrec :: ReadPrec GetInsightEvents
readList :: ReadS [GetInsightEvents]
$creadList :: ReadS [GetInsightEvents]
readsPrec :: Int -> ReadS GetInsightEvents
$creadsPrec :: Int -> ReadS GetInsightEvents
Prelude.Read, Int -> GetInsightEvents -> ShowS
[GetInsightEvents] -> ShowS
GetInsightEvents -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetInsightEvents] -> ShowS
$cshowList :: [GetInsightEvents] -> ShowS
show :: GetInsightEvents -> String
$cshow :: GetInsightEvents -> String
showsPrec :: Int -> GetInsightEvents -> ShowS
$cshowsPrec :: Int -> GetInsightEvents -> ShowS
Prelude.Show, forall x. Rep GetInsightEvents x -> GetInsightEvents
forall x. GetInsightEvents -> Rep GetInsightEvents x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetInsightEvents x -> GetInsightEvents
$cfrom :: forall x. GetInsightEvents -> Rep GetInsightEvents x
Prelude.Generic)
newGetInsightEvents ::
Prelude.Text ->
GetInsightEvents
newGetInsightEvents :: Text -> GetInsightEvents
newGetInsightEvents Text
pInsightId_ =
GetInsightEvents'
{ $sel:maxResults:GetInsightEvents' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetInsightEvents' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:insightId:GetInsightEvents' :: Text
insightId = Text
pInsightId_
}
getInsightEvents_maxResults :: Lens.Lens' GetInsightEvents (Prelude.Maybe Prelude.Natural)
getInsightEvents_maxResults :: Lens' GetInsightEvents (Maybe Natural)
getInsightEvents_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInsightEvents' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:GetInsightEvents' :: GetInsightEvents -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: GetInsightEvents
s@GetInsightEvents' {} Maybe Natural
a -> GetInsightEvents
s {$sel:maxResults:GetInsightEvents' :: Maybe Natural
maxResults = Maybe Natural
a} :: GetInsightEvents)
getInsightEvents_nextToken :: Lens.Lens' GetInsightEvents (Prelude.Maybe Prelude.Text)
getInsightEvents_nextToken :: Lens' GetInsightEvents (Maybe Text)
getInsightEvents_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInsightEvents' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetInsightEvents' :: GetInsightEvents -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetInsightEvents
s@GetInsightEvents' {} Maybe Text
a -> GetInsightEvents
s {$sel:nextToken:GetInsightEvents' :: Maybe Text
nextToken = Maybe Text
a} :: GetInsightEvents)
getInsightEvents_insightId :: Lens.Lens' GetInsightEvents Prelude.Text
getInsightEvents_insightId :: Lens' GetInsightEvents Text
getInsightEvents_insightId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInsightEvents' {Text
insightId :: Text
$sel:insightId:GetInsightEvents' :: GetInsightEvents -> Text
insightId} -> Text
insightId) (\s :: GetInsightEvents
s@GetInsightEvents' {} Text
a -> GetInsightEvents
s {$sel:insightId:GetInsightEvents' :: Text
insightId = Text
a} :: GetInsightEvents)
instance Core.AWSRequest GetInsightEvents where
type
AWSResponse GetInsightEvents =
GetInsightEventsResponse
request :: (Service -> Service)
-> GetInsightEvents -> Request GetInsightEvents
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 GetInsightEvents
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetInsightEvents)))
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 [InsightEvent]
-> Maybe Text -> Int -> GetInsightEventsResponse
GetInsightEventsResponse'
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
"InsightEvents" 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 GetInsightEvents where
hashWithSalt :: Int -> GetInsightEvents -> Int
hashWithSalt Int
_salt GetInsightEvents' {Maybe Natural
Maybe Text
Text
insightId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:insightId:GetInsightEvents' :: GetInsightEvents -> Text
$sel:nextToken:GetInsightEvents' :: GetInsightEvents -> Maybe Text
$sel:maxResults:GetInsightEvents' :: GetInsightEvents -> Maybe Natural
..} =
Int
_salt
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
insightId
instance Prelude.NFData GetInsightEvents where
rnf :: GetInsightEvents -> ()
rnf GetInsightEvents' {Maybe Natural
Maybe Text
Text
insightId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:insightId:GetInsightEvents' :: GetInsightEvents -> Text
$sel:nextToken:GetInsightEvents' :: GetInsightEvents -> Maybe Text
$sel:maxResults:GetInsightEvents' :: GetInsightEvents -> Maybe Natural
..} =
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
insightId
instance Data.ToHeaders GetInsightEvents where
toHeaders :: GetInsightEvents -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToJSON GetInsightEvents where
toJSON :: GetInsightEvents -> Value
toJSON GetInsightEvents' {Maybe Natural
Maybe Text
Text
insightId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:insightId:GetInsightEvents' :: GetInsightEvents -> Text
$sel:nextToken:GetInsightEvents' :: GetInsightEvents -> Maybe Text
$sel:maxResults:GetInsightEvents' :: GetInsightEvents -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (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
"InsightId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
insightId)
]
)
instance Data.ToPath GetInsightEvents where
toPath :: GetInsightEvents -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/InsightEvents"
instance Data.ToQuery GetInsightEvents where
toQuery :: GetInsightEvents -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetInsightEventsResponse = GetInsightEventsResponse'
{
GetInsightEventsResponse -> Maybe [InsightEvent]
insightEvents :: Prelude.Maybe [InsightEvent],
GetInsightEventsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetInsightEventsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetInsightEventsResponse -> GetInsightEventsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetInsightEventsResponse -> GetInsightEventsResponse -> Bool
$c/= :: GetInsightEventsResponse -> GetInsightEventsResponse -> Bool
== :: GetInsightEventsResponse -> GetInsightEventsResponse -> Bool
$c== :: GetInsightEventsResponse -> GetInsightEventsResponse -> Bool
Prelude.Eq, ReadPrec [GetInsightEventsResponse]
ReadPrec GetInsightEventsResponse
Int -> ReadS GetInsightEventsResponse
ReadS [GetInsightEventsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetInsightEventsResponse]
$creadListPrec :: ReadPrec [GetInsightEventsResponse]
readPrec :: ReadPrec GetInsightEventsResponse
$creadPrec :: ReadPrec GetInsightEventsResponse
readList :: ReadS [GetInsightEventsResponse]
$creadList :: ReadS [GetInsightEventsResponse]
readsPrec :: Int -> ReadS GetInsightEventsResponse
$creadsPrec :: Int -> ReadS GetInsightEventsResponse
Prelude.Read, Int -> GetInsightEventsResponse -> ShowS
[GetInsightEventsResponse] -> ShowS
GetInsightEventsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetInsightEventsResponse] -> ShowS
$cshowList :: [GetInsightEventsResponse] -> ShowS
show :: GetInsightEventsResponse -> String
$cshow :: GetInsightEventsResponse -> String
showsPrec :: Int -> GetInsightEventsResponse -> ShowS
$cshowsPrec :: Int -> GetInsightEventsResponse -> ShowS
Prelude.Show, forall x.
Rep GetInsightEventsResponse x -> GetInsightEventsResponse
forall x.
GetInsightEventsResponse -> Rep GetInsightEventsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetInsightEventsResponse x -> GetInsightEventsResponse
$cfrom :: forall x.
GetInsightEventsResponse -> Rep GetInsightEventsResponse x
Prelude.Generic)
newGetInsightEventsResponse ::
Prelude.Int ->
GetInsightEventsResponse
newGetInsightEventsResponse :: Int -> GetInsightEventsResponse
newGetInsightEventsResponse Int
pHttpStatus_ =
GetInsightEventsResponse'
{ $sel:insightEvents:GetInsightEventsResponse' :: Maybe [InsightEvent]
insightEvents =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetInsightEventsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetInsightEventsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getInsightEventsResponse_insightEvents :: Lens.Lens' GetInsightEventsResponse (Prelude.Maybe [InsightEvent])
getInsightEventsResponse_insightEvents :: Lens' GetInsightEventsResponse (Maybe [InsightEvent])
getInsightEventsResponse_insightEvents = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInsightEventsResponse' {Maybe [InsightEvent]
insightEvents :: Maybe [InsightEvent]
$sel:insightEvents:GetInsightEventsResponse' :: GetInsightEventsResponse -> Maybe [InsightEvent]
insightEvents} -> Maybe [InsightEvent]
insightEvents) (\s :: GetInsightEventsResponse
s@GetInsightEventsResponse' {} Maybe [InsightEvent]
a -> GetInsightEventsResponse
s {$sel:insightEvents:GetInsightEventsResponse' :: Maybe [InsightEvent]
insightEvents = Maybe [InsightEvent]
a} :: GetInsightEventsResponse) 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
getInsightEventsResponse_nextToken :: Lens.Lens' GetInsightEventsResponse (Prelude.Maybe Prelude.Text)
getInsightEventsResponse_nextToken :: Lens' GetInsightEventsResponse (Maybe Text)
getInsightEventsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInsightEventsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetInsightEventsResponse' :: GetInsightEventsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetInsightEventsResponse
s@GetInsightEventsResponse' {} Maybe Text
a -> GetInsightEventsResponse
s {$sel:nextToken:GetInsightEventsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: GetInsightEventsResponse)
getInsightEventsResponse_httpStatus :: Lens.Lens' GetInsightEventsResponse Prelude.Int
getInsightEventsResponse_httpStatus :: Lens' GetInsightEventsResponse Int
getInsightEventsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInsightEventsResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetInsightEventsResponse' :: GetInsightEventsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetInsightEventsResponse
s@GetInsightEventsResponse' {} Int
a -> GetInsightEventsResponse
s {$sel:httpStatus:GetInsightEventsResponse' :: Int
httpStatus = Int
a} :: GetInsightEventsResponse)
instance Prelude.NFData GetInsightEventsResponse where
rnf :: GetInsightEventsResponse -> ()
rnf GetInsightEventsResponse' {Int
Maybe [InsightEvent]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
insightEvents :: Maybe [InsightEvent]
$sel:httpStatus:GetInsightEventsResponse' :: GetInsightEventsResponse -> Int
$sel:nextToken:GetInsightEventsResponse' :: GetInsightEventsResponse -> Maybe Text
$sel:insightEvents:GetInsightEventsResponse' :: GetInsightEventsResponse -> Maybe [InsightEvent]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [InsightEvent]
insightEvents
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