{-# 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.GetSamplingStatisticSummaries
(
GetSamplingStatisticSummaries (..),
newGetSamplingStatisticSummaries,
getSamplingStatisticSummaries_nextToken,
GetSamplingStatisticSummariesResponse (..),
newGetSamplingStatisticSummariesResponse,
getSamplingStatisticSummariesResponse_nextToken,
getSamplingStatisticSummariesResponse_samplingStatisticSummaries,
getSamplingStatisticSummariesResponse_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 GetSamplingStatisticSummaries = GetSamplingStatisticSummaries'
{
GetSamplingStatisticSummaries -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (GetSamplingStatisticSummaries
-> GetSamplingStatisticSummaries -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSamplingStatisticSummaries
-> GetSamplingStatisticSummaries -> Bool
$c/= :: GetSamplingStatisticSummaries
-> GetSamplingStatisticSummaries -> Bool
== :: GetSamplingStatisticSummaries
-> GetSamplingStatisticSummaries -> Bool
$c== :: GetSamplingStatisticSummaries
-> GetSamplingStatisticSummaries -> Bool
Prelude.Eq, ReadPrec [GetSamplingStatisticSummaries]
ReadPrec GetSamplingStatisticSummaries
Int -> ReadS GetSamplingStatisticSummaries
ReadS [GetSamplingStatisticSummaries]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSamplingStatisticSummaries]
$creadListPrec :: ReadPrec [GetSamplingStatisticSummaries]
readPrec :: ReadPrec GetSamplingStatisticSummaries
$creadPrec :: ReadPrec GetSamplingStatisticSummaries
readList :: ReadS [GetSamplingStatisticSummaries]
$creadList :: ReadS [GetSamplingStatisticSummaries]
readsPrec :: Int -> ReadS GetSamplingStatisticSummaries
$creadsPrec :: Int -> ReadS GetSamplingStatisticSummaries
Prelude.Read, Int -> GetSamplingStatisticSummaries -> ShowS
[GetSamplingStatisticSummaries] -> ShowS
GetSamplingStatisticSummaries -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSamplingStatisticSummaries] -> ShowS
$cshowList :: [GetSamplingStatisticSummaries] -> ShowS
show :: GetSamplingStatisticSummaries -> String
$cshow :: GetSamplingStatisticSummaries -> String
showsPrec :: Int -> GetSamplingStatisticSummaries -> ShowS
$cshowsPrec :: Int -> GetSamplingStatisticSummaries -> ShowS
Prelude.Show, forall x.
Rep GetSamplingStatisticSummaries x
-> GetSamplingStatisticSummaries
forall x.
GetSamplingStatisticSummaries
-> Rep GetSamplingStatisticSummaries x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSamplingStatisticSummaries x
-> GetSamplingStatisticSummaries
$cfrom :: forall x.
GetSamplingStatisticSummaries
-> Rep GetSamplingStatisticSummaries x
Prelude.Generic)
newGetSamplingStatisticSummaries ::
GetSamplingStatisticSummaries
newGetSamplingStatisticSummaries :: GetSamplingStatisticSummaries
newGetSamplingStatisticSummaries =
GetSamplingStatisticSummaries'
{ $sel:nextToken:GetSamplingStatisticSummaries' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing
}
getSamplingStatisticSummaries_nextToken :: Lens.Lens' GetSamplingStatisticSummaries (Prelude.Maybe Prelude.Text)
getSamplingStatisticSummaries_nextToken :: Lens' GetSamplingStatisticSummaries (Maybe Text)
getSamplingStatisticSummaries_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSamplingStatisticSummaries' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetSamplingStatisticSummaries' :: GetSamplingStatisticSummaries -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetSamplingStatisticSummaries
s@GetSamplingStatisticSummaries' {} Maybe Text
a -> GetSamplingStatisticSummaries
s {$sel:nextToken:GetSamplingStatisticSummaries' :: Maybe Text
nextToken = Maybe Text
a} :: GetSamplingStatisticSummaries)
instance Core.AWSPager GetSamplingStatisticSummaries where
page :: GetSamplingStatisticSummaries
-> AWSResponse GetSamplingStatisticSummaries
-> Maybe GetSamplingStatisticSummaries
page GetSamplingStatisticSummaries
rq AWSResponse GetSamplingStatisticSummaries
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse GetSamplingStatisticSummaries
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetSamplingStatisticSummariesResponse (Maybe Text)
getSamplingStatisticSummariesResponse_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 GetSamplingStatisticSummaries
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
GetSamplingStatisticSummariesResponse
(Maybe [SamplingStatisticSummary])
getSamplingStatisticSummariesResponse_samplingStatisticSummaries
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.$ GetSamplingStatisticSummaries
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' GetSamplingStatisticSummaries (Maybe Text)
getSamplingStatisticSummaries_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse GetSamplingStatisticSummaries
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetSamplingStatisticSummariesResponse (Maybe Text)
getSamplingStatisticSummariesResponse_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
GetSamplingStatisticSummaries
where
type
AWSResponse GetSamplingStatisticSummaries =
GetSamplingStatisticSummariesResponse
request :: (Service -> Service)
-> GetSamplingStatisticSummaries
-> Request GetSamplingStatisticSummaries
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 GetSamplingStatisticSummaries
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetSamplingStatisticSummaries)))
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
-> Maybe [SamplingStatisticSummary]
-> Int
-> GetSamplingStatisticSummariesResponse
GetSamplingStatisticSummariesResponse'
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.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"SamplingStatisticSummaries"
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
GetSamplingStatisticSummaries
where
hashWithSalt :: Int -> GetSamplingStatisticSummaries -> Int
hashWithSalt Int
_salt GetSamplingStatisticSummaries' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetSamplingStatisticSummaries' :: GetSamplingStatisticSummaries -> Maybe Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
instance Prelude.NFData GetSamplingStatisticSummaries where
rnf :: GetSamplingStatisticSummaries -> ()
rnf GetSamplingStatisticSummaries' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetSamplingStatisticSummaries' :: GetSamplingStatisticSummaries -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
instance Data.ToHeaders GetSamplingStatisticSummaries where
toHeaders :: GetSamplingStatisticSummaries -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToJSON GetSamplingStatisticSummaries where
toJSON :: GetSamplingStatisticSummaries -> Value
toJSON GetSamplingStatisticSummaries' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetSamplingStatisticSummaries' :: GetSamplingStatisticSummaries -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[(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]
)
instance Data.ToPath GetSamplingStatisticSummaries where
toPath :: GetSamplingStatisticSummaries -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/SamplingStatisticSummaries"
instance Data.ToQuery GetSamplingStatisticSummaries where
toQuery :: GetSamplingStatisticSummaries -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetSamplingStatisticSummariesResponse = GetSamplingStatisticSummariesResponse'
{
GetSamplingStatisticSummariesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetSamplingStatisticSummariesResponse
-> Maybe [SamplingStatisticSummary]
samplingStatisticSummaries :: Prelude.Maybe [SamplingStatisticSummary],
GetSamplingStatisticSummariesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetSamplingStatisticSummariesResponse
-> GetSamplingStatisticSummariesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSamplingStatisticSummariesResponse
-> GetSamplingStatisticSummariesResponse -> Bool
$c/= :: GetSamplingStatisticSummariesResponse
-> GetSamplingStatisticSummariesResponse -> Bool
== :: GetSamplingStatisticSummariesResponse
-> GetSamplingStatisticSummariesResponse -> Bool
$c== :: GetSamplingStatisticSummariesResponse
-> GetSamplingStatisticSummariesResponse -> Bool
Prelude.Eq, ReadPrec [GetSamplingStatisticSummariesResponse]
ReadPrec GetSamplingStatisticSummariesResponse
Int -> ReadS GetSamplingStatisticSummariesResponse
ReadS [GetSamplingStatisticSummariesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSamplingStatisticSummariesResponse]
$creadListPrec :: ReadPrec [GetSamplingStatisticSummariesResponse]
readPrec :: ReadPrec GetSamplingStatisticSummariesResponse
$creadPrec :: ReadPrec GetSamplingStatisticSummariesResponse
readList :: ReadS [GetSamplingStatisticSummariesResponse]
$creadList :: ReadS [GetSamplingStatisticSummariesResponse]
readsPrec :: Int -> ReadS GetSamplingStatisticSummariesResponse
$creadsPrec :: Int -> ReadS GetSamplingStatisticSummariesResponse
Prelude.Read, Int -> GetSamplingStatisticSummariesResponse -> ShowS
[GetSamplingStatisticSummariesResponse] -> ShowS
GetSamplingStatisticSummariesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSamplingStatisticSummariesResponse] -> ShowS
$cshowList :: [GetSamplingStatisticSummariesResponse] -> ShowS
show :: GetSamplingStatisticSummariesResponse -> String
$cshow :: GetSamplingStatisticSummariesResponse -> String
showsPrec :: Int -> GetSamplingStatisticSummariesResponse -> ShowS
$cshowsPrec :: Int -> GetSamplingStatisticSummariesResponse -> ShowS
Prelude.Show, forall x.
Rep GetSamplingStatisticSummariesResponse x
-> GetSamplingStatisticSummariesResponse
forall x.
GetSamplingStatisticSummariesResponse
-> Rep GetSamplingStatisticSummariesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSamplingStatisticSummariesResponse x
-> GetSamplingStatisticSummariesResponse
$cfrom :: forall x.
GetSamplingStatisticSummariesResponse
-> Rep GetSamplingStatisticSummariesResponse x
Prelude.Generic)
newGetSamplingStatisticSummariesResponse ::
Prelude.Int ->
GetSamplingStatisticSummariesResponse
newGetSamplingStatisticSummariesResponse :: Int -> GetSamplingStatisticSummariesResponse
newGetSamplingStatisticSummariesResponse Int
pHttpStatus_ =
GetSamplingStatisticSummariesResponse'
{ $sel:nextToken:GetSamplingStatisticSummariesResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:samplingStatisticSummaries:GetSamplingStatisticSummariesResponse' :: Maybe [SamplingStatisticSummary]
samplingStatisticSummaries =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetSamplingStatisticSummariesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getSamplingStatisticSummariesResponse_nextToken :: Lens.Lens' GetSamplingStatisticSummariesResponse (Prelude.Maybe Prelude.Text)
getSamplingStatisticSummariesResponse_nextToken :: Lens' GetSamplingStatisticSummariesResponse (Maybe Text)
getSamplingStatisticSummariesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSamplingStatisticSummariesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetSamplingStatisticSummariesResponse' :: GetSamplingStatisticSummariesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetSamplingStatisticSummariesResponse
s@GetSamplingStatisticSummariesResponse' {} Maybe Text
a -> GetSamplingStatisticSummariesResponse
s {$sel:nextToken:GetSamplingStatisticSummariesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: GetSamplingStatisticSummariesResponse)
getSamplingStatisticSummariesResponse_samplingStatisticSummaries :: Lens.Lens' GetSamplingStatisticSummariesResponse (Prelude.Maybe [SamplingStatisticSummary])
getSamplingStatisticSummariesResponse_samplingStatisticSummaries :: Lens'
GetSamplingStatisticSummariesResponse
(Maybe [SamplingStatisticSummary])
getSamplingStatisticSummariesResponse_samplingStatisticSummaries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSamplingStatisticSummariesResponse' {Maybe [SamplingStatisticSummary]
samplingStatisticSummaries :: Maybe [SamplingStatisticSummary]
$sel:samplingStatisticSummaries:GetSamplingStatisticSummariesResponse' :: GetSamplingStatisticSummariesResponse
-> Maybe [SamplingStatisticSummary]
samplingStatisticSummaries} -> Maybe [SamplingStatisticSummary]
samplingStatisticSummaries) (\s :: GetSamplingStatisticSummariesResponse
s@GetSamplingStatisticSummariesResponse' {} Maybe [SamplingStatisticSummary]
a -> GetSamplingStatisticSummariesResponse
s {$sel:samplingStatisticSummaries:GetSamplingStatisticSummariesResponse' :: Maybe [SamplingStatisticSummary]
samplingStatisticSummaries = Maybe [SamplingStatisticSummary]
a} :: GetSamplingStatisticSummariesResponse) 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
getSamplingStatisticSummariesResponse_httpStatus :: Lens.Lens' GetSamplingStatisticSummariesResponse Prelude.Int
getSamplingStatisticSummariesResponse_httpStatus :: Lens' GetSamplingStatisticSummariesResponse Int
getSamplingStatisticSummariesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSamplingStatisticSummariesResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetSamplingStatisticSummariesResponse' :: GetSamplingStatisticSummariesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetSamplingStatisticSummariesResponse
s@GetSamplingStatisticSummariesResponse' {} Int
a -> GetSamplingStatisticSummariesResponse
s {$sel:httpStatus:GetSamplingStatisticSummariesResponse' :: Int
httpStatus = Int
a} :: GetSamplingStatisticSummariesResponse)
instance
Prelude.NFData
GetSamplingStatisticSummariesResponse
where
rnf :: GetSamplingStatisticSummariesResponse -> ()
rnf GetSamplingStatisticSummariesResponse' {Int
Maybe [SamplingStatisticSummary]
Maybe Text
httpStatus :: Int
samplingStatisticSummaries :: Maybe [SamplingStatisticSummary]
nextToken :: Maybe Text
$sel:httpStatus:GetSamplingStatisticSummariesResponse' :: GetSamplingStatisticSummariesResponse -> Int
$sel:samplingStatisticSummaries:GetSamplingStatisticSummariesResponse' :: GetSamplingStatisticSummariesResponse
-> Maybe [SamplingStatisticSummary]
$sel:nextToken:GetSamplingStatisticSummariesResponse' :: GetSamplingStatisticSummariesResponse -> 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 Maybe [SamplingStatisticSummary]
samplingStatisticSummaries
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus