{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Opentelemetry.Proto.Metrics.V1.Metrics (
AggregationTemporality(..), AggregationTemporality(),
AggregationTemporality'UnrecognizedValue, DataPointFlags(..),
DataPointFlags(), DataPointFlags'UnrecognizedValue, Exemplar(),
Exemplar'Value(..), _Exemplar'AsDouble, _Exemplar'AsInt,
ExponentialHistogram(), ExponentialHistogramDataPoint(),
ExponentialHistogramDataPoint'Buckets(), Gauge(), Histogram(),
HistogramDataPoint(), InstrumentationLibraryMetrics(),
IntDataPoint(), IntExemplar(), IntGauge(), IntHistogram(),
IntHistogramDataPoint(), IntSum(), Metric(), Metric'Data(..),
_Metric'IntGauge, _Metric'Gauge, _Metric'IntSum, _Metric'Sum,
_Metric'IntHistogram, _Metric'Histogram,
_Metric'ExponentialHistogram, _Metric'Summary, MetricsData(),
NumberDataPoint(), NumberDataPoint'Value(..),
_NumberDataPoint'AsDouble, _NumberDataPoint'AsInt,
ResourceMetrics(), Sum(), Summary(), SummaryDataPoint(),
SummaryDataPoint'ValueAtQuantile()
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Opentelemetry.Proto.Common.V1.Common
import qualified Proto.Opentelemetry.Proto.Resource.V1.Resource
newtype AggregationTemporality'UnrecognizedValue
= AggregationTemporality'UnrecognizedValue Data.Int.Int32
deriving stock (AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
(AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool)
-> (AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool)
-> Eq AggregationTemporality'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
$c/= :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
== :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
$c== :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
Prelude.Eq, Eq AggregationTemporality'UnrecognizedValue
Eq AggregationTemporality'UnrecognizedValue
-> (AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Ordering)
-> (AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool)
-> (AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool)
-> (AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool)
-> (AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool)
-> (AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue)
-> (AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue)
-> Ord AggregationTemporality'UnrecognizedValue
AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Ordering
AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
$cmin :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
max :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
$cmax :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue
>= :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
$c>= :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
> :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
$c> :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
<= :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
$c<= :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
< :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
$c< :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Bool
compare :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Ordering
$ccompare :: AggregationTemporality'UnrecognizedValue
-> AggregationTemporality'UnrecognizedValue -> Ordering
$cp1Ord :: Eq AggregationTemporality'UnrecognizedValue
Prelude.Ord, Int -> AggregationTemporality'UnrecognizedValue -> ShowS
[AggregationTemporality'UnrecognizedValue] -> ShowS
AggregationTemporality'UnrecognizedValue -> String
(Int -> AggregationTemporality'UnrecognizedValue -> ShowS)
-> (AggregationTemporality'UnrecognizedValue -> String)
-> ([AggregationTemporality'UnrecognizedValue] -> ShowS)
-> Show AggregationTemporality'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AggregationTemporality'UnrecognizedValue] -> ShowS
$cshowList :: [AggregationTemporality'UnrecognizedValue] -> ShowS
show :: AggregationTemporality'UnrecognizedValue -> String
$cshow :: AggregationTemporality'UnrecognizedValue -> String
showsPrec :: Int -> AggregationTemporality'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> AggregationTemporality'UnrecognizedValue -> ShowS
Prelude.Show)
data AggregationTemporality
= AGGREGATION_TEMPORALITY_UNSPECIFIED |
AGGREGATION_TEMPORALITY_DELTA |
AGGREGATION_TEMPORALITY_CUMULATIVE |
AggregationTemporality'Unrecognized !AggregationTemporality'UnrecognizedValue
deriving stock (Int -> AggregationTemporality -> ShowS
[AggregationTemporality] -> ShowS
AggregationTemporality -> String
(Int -> AggregationTemporality -> ShowS)
-> (AggregationTemporality -> String)
-> ([AggregationTemporality] -> ShowS)
-> Show AggregationTemporality
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AggregationTemporality] -> ShowS
$cshowList :: [AggregationTemporality] -> ShowS
show :: AggregationTemporality -> String
$cshow :: AggregationTemporality -> String
showsPrec :: Int -> AggregationTemporality -> ShowS
$cshowsPrec :: Int -> AggregationTemporality -> ShowS
Prelude.Show, AggregationTemporality -> AggregationTemporality -> Bool
(AggregationTemporality -> AggregationTemporality -> Bool)
-> (AggregationTemporality -> AggregationTemporality -> Bool)
-> Eq AggregationTemporality
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AggregationTemporality -> AggregationTemporality -> Bool
$c/= :: AggregationTemporality -> AggregationTemporality -> Bool
== :: AggregationTemporality -> AggregationTemporality -> Bool
$c== :: AggregationTemporality -> AggregationTemporality -> Bool
Prelude.Eq, Eq AggregationTemporality
Eq AggregationTemporality
-> (AggregationTemporality -> AggregationTemporality -> Ordering)
-> (AggregationTemporality -> AggregationTemporality -> Bool)
-> (AggregationTemporality -> AggregationTemporality -> Bool)
-> (AggregationTemporality -> AggregationTemporality -> Bool)
-> (AggregationTemporality -> AggregationTemporality -> Bool)
-> (AggregationTemporality
-> AggregationTemporality -> AggregationTemporality)
-> (AggregationTemporality
-> AggregationTemporality -> AggregationTemporality)
-> Ord AggregationTemporality
AggregationTemporality -> AggregationTemporality -> Bool
AggregationTemporality -> AggregationTemporality -> Ordering
AggregationTemporality
-> AggregationTemporality -> AggregationTemporality
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: AggregationTemporality
-> AggregationTemporality -> AggregationTemporality
$cmin :: AggregationTemporality
-> AggregationTemporality -> AggregationTemporality
max :: AggregationTemporality
-> AggregationTemporality -> AggregationTemporality
$cmax :: AggregationTemporality
-> AggregationTemporality -> AggregationTemporality
>= :: AggregationTemporality -> AggregationTemporality -> Bool
$c>= :: AggregationTemporality -> AggregationTemporality -> Bool
> :: AggregationTemporality -> AggregationTemporality -> Bool
$c> :: AggregationTemporality -> AggregationTemporality -> Bool
<= :: AggregationTemporality -> AggregationTemporality -> Bool
$c<= :: AggregationTemporality -> AggregationTemporality -> Bool
< :: AggregationTemporality -> AggregationTemporality -> Bool
$c< :: AggregationTemporality -> AggregationTemporality -> Bool
compare :: AggregationTemporality -> AggregationTemporality -> Ordering
$ccompare :: AggregationTemporality -> AggregationTemporality -> Ordering
$cp1Ord :: Eq AggregationTemporality
Prelude.Ord)
instance Data.ProtoLens.MessageEnum AggregationTemporality where
maybeToEnum :: Int -> Maybe AggregationTemporality
maybeToEnum Int
0 = AggregationTemporality -> Maybe AggregationTemporality
forall a. a -> Maybe a
Prelude.Just AggregationTemporality
AGGREGATION_TEMPORALITY_UNSPECIFIED
maybeToEnum Int
1 = AggregationTemporality -> Maybe AggregationTemporality
forall a. a -> Maybe a
Prelude.Just AggregationTemporality
AGGREGATION_TEMPORALITY_DELTA
maybeToEnum Int
2 = AggregationTemporality -> Maybe AggregationTemporality
forall a. a -> Maybe a
Prelude.Just AggregationTemporality
AGGREGATION_TEMPORALITY_CUMULATIVE
maybeToEnum Int
k
= AggregationTemporality -> Maybe AggregationTemporality
forall a. a -> Maybe a
Prelude.Just
(AggregationTemporality'UnrecognizedValue -> AggregationTemporality
AggregationTemporality'Unrecognized
(Int32 -> AggregationTemporality'UnrecognizedValue
AggregationTemporality'UnrecognizedValue
(Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: AggregationTemporality -> String
showEnum AggregationTemporality
AGGREGATION_TEMPORALITY_UNSPECIFIED
= String
"AGGREGATION_TEMPORALITY_UNSPECIFIED"
showEnum AggregationTemporality
AGGREGATION_TEMPORALITY_DELTA
= String
"AGGREGATION_TEMPORALITY_DELTA"
showEnum AggregationTemporality
AGGREGATION_TEMPORALITY_CUMULATIVE
= String
"AGGREGATION_TEMPORALITY_CUMULATIVE"
showEnum
(AggregationTemporality'Unrecognized (AggregationTemporality'UnrecognizedValue Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe AggregationTemporality
readEnum String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"AGGREGATION_TEMPORALITY_UNSPECIFIED"
= AggregationTemporality -> Maybe AggregationTemporality
forall a. a -> Maybe a
Prelude.Just AggregationTemporality
AGGREGATION_TEMPORALITY_UNSPECIFIED
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"AGGREGATION_TEMPORALITY_DELTA"
= AggregationTemporality -> Maybe AggregationTemporality
forall a. a -> Maybe a
Prelude.Just AggregationTemporality
AGGREGATION_TEMPORALITY_DELTA
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"AGGREGATION_TEMPORALITY_CUMULATIVE"
= AggregationTemporality -> Maybe AggregationTemporality
forall a. a -> Maybe a
Prelude.Just AggregationTemporality
AGGREGATION_TEMPORALITY_CUMULATIVE
| Bool
Prelude.otherwise
= Maybe Int
-> (Int -> Maybe AggregationTemporality)
-> Maybe AggregationTemporality
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe AggregationTemporality
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded AggregationTemporality where
minBound :: AggregationTemporality
minBound = AggregationTemporality
AGGREGATION_TEMPORALITY_UNSPECIFIED
maxBound :: AggregationTemporality
maxBound = AggregationTemporality
AGGREGATION_TEMPORALITY_CUMULATIVE
instance Prelude.Enum AggregationTemporality where
toEnum :: Int -> AggregationTemporality
toEnum Int
k__
= AggregationTemporality
-> (AggregationTemporality -> AggregationTemporality)
-> Maybe AggregationTemporality
-> AggregationTemporality
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> AggregationTemporality
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"toEnum: unknown value for enum AggregationTemporality: "
(Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
AggregationTemporality -> AggregationTemporality
forall a. a -> a
Prelude.id (Int -> Maybe AggregationTemporality
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: AggregationTemporality -> Int
fromEnum AggregationTemporality
AGGREGATION_TEMPORALITY_UNSPECIFIED = Int
0
fromEnum AggregationTemporality
AGGREGATION_TEMPORALITY_DELTA = Int
1
fromEnum AggregationTemporality
AGGREGATION_TEMPORALITY_CUMULATIVE = Int
2
fromEnum
(AggregationTemporality'Unrecognized (AggregationTemporality'UnrecognizedValue Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: AggregationTemporality -> AggregationTemporality
succ AggregationTemporality
AGGREGATION_TEMPORALITY_CUMULATIVE
= String -> AggregationTemporality
forall a. HasCallStack => String -> a
Prelude.error
String
"AggregationTemporality.succ: bad argument AGGREGATION_TEMPORALITY_CUMULATIVE. This value would be out of bounds."
succ AggregationTemporality
AGGREGATION_TEMPORALITY_UNSPECIFIED
= AggregationTemporality
AGGREGATION_TEMPORALITY_DELTA
succ AggregationTemporality
AGGREGATION_TEMPORALITY_DELTA
= AggregationTemporality
AGGREGATION_TEMPORALITY_CUMULATIVE
succ (AggregationTemporality'Unrecognized AggregationTemporality'UnrecognizedValue
_)
= String -> AggregationTemporality
forall a. HasCallStack => String -> a
Prelude.error
String
"AggregationTemporality.succ: bad argument: unrecognized value"
pred :: AggregationTemporality -> AggregationTemporality
pred AggregationTemporality
AGGREGATION_TEMPORALITY_UNSPECIFIED
= String -> AggregationTemporality
forall a. HasCallStack => String -> a
Prelude.error
String
"AggregationTemporality.pred: bad argument AGGREGATION_TEMPORALITY_UNSPECIFIED. This value would be out of bounds."
pred AggregationTemporality
AGGREGATION_TEMPORALITY_DELTA
= AggregationTemporality
AGGREGATION_TEMPORALITY_UNSPECIFIED
pred AggregationTemporality
AGGREGATION_TEMPORALITY_CUMULATIVE
= AggregationTemporality
AGGREGATION_TEMPORALITY_DELTA
pred (AggregationTemporality'Unrecognized AggregationTemporality'UnrecognizedValue
_)
= String -> AggregationTemporality
forall a. HasCallStack => String -> a
Prelude.error
String
"AggregationTemporality.pred: bad argument: unrecognized value"
enumFrom :: AggregationTemporality -> [AggregationTemporality]
enumFrom = AggregationTemporality -> [AggregationTemporality]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: AggregationTemporality
-> AggregationTemporality -> [AggregationTemporality]
enumFromTo = AggregationTemporality
-> AggregationTemporality -> [AggregationTemporality]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: AggregationTemporality
-> AggregationTemporality -> [AggregationTemporality]
enumFromThen = AggregationTemporality
-> AggregationTemporality -> [AggregationTemporality]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: AggregationTemporality
-> AggregationTemporality
-> AggregationTemporality
-> [AggregationTemporality]
enumFromThenTo = AggregationTemporality
-> AggregationTemporality
-> AggregationTemporality
-> [AggregationTemporality]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault AggregationTemporality where
fieldDefault :: AggregationTemporality
fieldDefault = AggregationTemporality
AGGREGATION_TEMPORALITY_UNSPECIFIED
instance Control.DeepSeq.NFData AggregationTemporality where
rnf :: AggregationTemporality -> ()
rnf AggregationTemporality
x__ = AggregationTemporality -> () -> ()
Prelude.seq AggregationTemporality
x__ ()
newtype DataPointFlags'UnrecognizedValue
= DataPointFlags'UnrecognizedValue Data.Int.Int32
deriving stock (DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
(DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool)
-> (DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool)
-> Eq DataPointFlags'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
$c/= :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
== :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
$c== :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
Prelude.Eq, Eq DataPointFlags'UnrecognizedValue
Eq DataPointFlags'UnrecognizedValue
-> (DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Ordering)
-> (DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool)
-> (DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool)
-> (DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool)
-> (DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool)
-> (DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue)
-> (DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue)
-> Ord DataPointFlags'UnrecognizedValue
DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Ordering
DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
$cmin :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
max :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
$cmax :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue
>= :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
$c>= :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
> :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
$c> :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
<= :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
$c<= :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
< :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
$c< :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Bool
compare :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Ordering
$ccompare :: DataPointFlags'UnrecognizedValue
-> DataPointFlags'UnrecognizedValue -> Ordering
$cp1Ord :: Eq DataPointFlags'UnrecognizedValue
Prelude.Ord, Int -> DataPointFlags'UnrecognizedValue -> ShowS
[DataPointFlags'UnrecognizedValue] -> ShowS
DataPointFlags'UnrecognizedValue -> String
(Int -> DataPointFlags'UnrecognizedValue -> ShowS)
-> (DataPointFlags'UnrecognizedValue -> String)
-> ([DataPointFlags'UnrecognizedValue] -> ShowS)
-> Show DataPointFlags'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DataPointFlags'UnrecognizedValue] -> ShowS
$cshowList :: [DataPointFlags'UnrecognizedValue] -> ShowS
show :: DataPointFlags'UnrecognizedValue -> String
$cshow :: DataPointFlags'UnrecognizedValue -> String
showsPrec :: Int -> DataPointFlags'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> DataPointFlags'UnrecognizedValue -> ShowS
Prelude.Show)
data DataPointFlags
= FLAG_NONE |
FLAG_NO_RECORDED_VALUE |
DataPointFlags'Unrecognized !DataPointFlags'UnrecognizedValue
deriving stock (Int -> DataPointFlags -> ShowS
[DataPointFlags] -> ShowS
DataPointFlags -> String
(Int -> DataPointFlags -> ShowS)
-> (DataPointFlags -> String)
-> ([DataPointFlags] -> ShowS)
-> Show DataPointFlags
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DataPointFlags] -> ShowS
$cshowList :: [DataPointFlags] -> ShowS
show :: DataPointFlags -> String
$cshow :: DataPointFlags -> String
showsPrec :: Int -> DataPointFlags -> ShowS
$cshowsPrec :: Int -> DataPointFlags -> ShowS
Prelude.Show, DataPointFlags -> DataPointFlags -> Bool
(DataPointFlags -> DataPointFlags -> Bool)
-> (DataPointFlags -> DataPointFlags -> Bool) -> Eq DataPointFlags
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DataPointFlags -> DataPointFlags -> Bool
$c/= :: DataPointFlags -> DataPointFlags -> Bool
== :: DataPointFlags -> DataPointFlags -> Bool
$c== :: DataPointFlags -> DataPointFlags -> Bool
Prelude.Eq, Eq DataPointFlags
Eq DataPointFlags
-> (DataPointFlags -> DataPointFlags -> Ordering)
-> (DataPointFlags -> DataPointFlags -> Bool)
-> (DataPointFlags -> DataPointFlags -> Bool)
-> (DataPointFlags -> DataPointFlags -> Bool)
-> (DataPointFlags -> DataPointFlags -> Bool)
-> (DataPointFlags -> DataPointFlags -> DataPointFlags)
-> (DataPointFlags -> DataPointFlags -> DataPointFlags)
-> Ord DataPointFlags
DataPointFlags -> DataPointFlags -> Bool
DataPointFlags -> DataPointFlags -> Ordering
DataPointFlags -> DataPointFlags -> DataPointFlags
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: DataPointFlags -> DataPointFlags -> DataPointFlags
$cmin :: DataPointFlags -> DataPointFlags -> DataPointFlags
max :: DataPointFlags -> DataPointFlags -> DataPointFlags
$cmax :: DataPointFlags -> DataPointFlags -> DataPointFlags
>= :: DataPointFlags -> DataPointFlags -> Bool
$c>= :: DataPointFlags -> DataPointFlags -> Bool
> :: DataPointFlags -> DataPointFlags -> Bool
$c> :: DataPointFlags -> DataPointFlags -> Bool
<= :: DataPointFlags -> DataPointFlags -> Bool
$c<= :: DataPointFlags -> DataPointFlags -> Bool
< :: DataPointFlags -> DataPointFlags -> Bool
$c< :: DataPointFlags -> DataPointFlags -> Bool
compare :: DataPointFlags -> DataPointFlags -> Ordering
$ccompare :: DataPointFlags -> DataPointFlags -> Ordering
$cp1Ord :: Eq DataPointFlags
Prelude.Ord)
instance Data.ProtoLens.MessageEnum DataPointFlags where
maybeToEnum :: Int -> Maybe DataPointFlags
maybeToEnum Int
0 = DataPointFlags -> Maybe DataPointFlags
forall a. a -> Maybe a
Prelude.Just DataPointFlags
FLAG_NONE
maybeToEnum Int
1 = DataPointFlags -> Maybe DataPointFlags
forall a. a -> Maybe a
Prelude.Just DataPointFlags
FLAG_NO_RECORDED_VALUE
maybeToEnum Int
k
= DataPointFlags -> Maybe DataPointFlags
forall a. a -> Maybe a
Prelude.Just
(DataPointFlags'UnrecognizedValue -> DataPointFlags
DataPointFlags'Unrecognized
(Int32 -> DataPointFlags'UnrecognizedValue
DataPointFlags'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: DataPointFlags -> String
showEnum DataPointFlags
FLAG_NONE = String
"FLAG_NONE"
showEnum DataPointFlags
FLAG_NO_RECORDED_VALUE = String
"FLAG_NO_RECORDED_VALUE"
showEnum
(DataPointFlags'Unrecognized (DataPointFlags'UnrecognizedValue Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe DataPointFlags
readEnum String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"FLAG_NONE" = DataPointFlags -> Maybe DataPointFlags
forall a. a -> Maybe a
Prelude.Just DataPointFlags
FLAG_NONE
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"FLAG_NO_RECORDED_VALUE"
= DataPointFlags -> Maybe DataPointFlags
forall a. a -> Maybe a
Prelude.Just DataPointFlags
FLAG_NO_RECORDED_VALUE
| Bool
Prelude.otherwise
= Maybe Int -> (Int -> Maybe DataPointFlags) -> Maybe DataPointFlags
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe DataPointFlags
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded DataPointFlags where
minBound :: DataPointFlags
minBound = DataPointFlags
FLAG_NONE
maxBound :: DataPointFlags
maxBound = DataPointFlags
FLAG_NO_RECORDED_VALUE
instance Prelude.Enum DataPointFlags where
toEnum :: Int -> DataPointFlags
toEnum Int
k__
= DataPointFlags
-> (DataPointFlags -> DataPointFlags)
-> Maybe DataPointFlags
-> DataPointFlags
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> DataPointFlags
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"toEnum: unknown value for enum DataPointFlags: "
(Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
DataPointFlags -> DataPointFlags
forall a. a -> a
Prelude.id (Int -> Maybe DataPointFlags
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: DataPointFlags -> Int
fromEnum DataPointFlags
FLAG_NONE = Int
0
fromEnum DataPointFlags
FLAG_NO_RECORDED_VALUE = Int
1
fromEnum
(DataPointFlags'Unrecognized (DataPointFlags'UnrecognizedValue Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: DataPointFlags -> DataPointFlags
succ DataPointFlags
FLAG_NO_RECORDED_VALUE
= String -> DataPointFlags
forall a. HasCallStack => String -> a
Prelude.error
String
"DataPointFlags.succ: bad argument FLAG_NO_RECORDED_VALUE. This value would be out of bounds."
succ DataPointFlags
FLAG_NONE = DataPointFlags
FLAG_NO_RECORDED_VALUE
succ (DataPointFlags'Unrecognized DataPointFlags'UnrecognizedValue
_)
= String -> DataPointFlags
forall a. HasCallStack => String -> a
Prelude.error
String
"DataPointFlags.succ: bad argument: unrecognized value"
pred :: DataPointFlags -> DataPointFlags
pred DataPointFlags
FLAG_NONE
= String -> DataPointFlags
forall a. HasCallStack => String -> a
Prelude.error
String
"DataPointFlags.pred: bad argument FLAG_NONE. This value would be out of bounds."
pred DataPointFlags
FLAG_NO_RECORDED_VALUE = DataPointFlags
FLAG_NONE
pred (DataPointFlags'Unrecognized DataPointFlags'UnrecognizedValue
_)
= String -> DataPointFlags
forall a. HasCallStack => String -> a
Prelude.error
String
"DataPointFlags.pred: bad argument: unrecognized value"
enumFrom :: DataPointFlags -> [DataPointFlags]
enumFrom = DataPointFlags -> [DataPointFlags]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: DataPointFlags -> DataPointFlags -> [DataPointFlags]
enumFromTo = DataPointFlags -> DataPointFlags -> [DataPointFlags]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: DataPointFlags -> DataPointFlags -> [DataPointFlags]
enumFromThen = DataPointFlags -> DataPointFlags -> [DataPointFlags]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: DataPointFlags
-> DataPointFlags -> DataPointFlags -> [DataPointFlags]
enumFromThenTo = DataPointFlags
-> DataPointFlags -> DataPointFlags -> [DataPointFlags]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault DataPointFlags where
fieldDefault :: DataPointFlags
fieldDefault = DataPointFlags
FLAG_NONE
instance Control.DeepSeq.NFData DataPointFlags where
rnf :: DataPointFlags -> ()
rnf DataPointFlags
x__ = DataPointFlags -> () -> ()
Prelude.seq DataPointFlags
x__ ()
data Exemplar
= Exemplar'_constructor {Exemplar -> Vector KeyValue
_Exemplar'filteredAttributes :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue),
Exemplar -> Vector StringKeyValue
_Exemplar'filteredLabels :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue),
Exemplar -> Word64
_Exemplar'timeUnixNano :: !Data.Word.Word64,
Exemplar -> ByteString
_Exemplar'spanId :: !Data.ByteString.ByteString,
Exemplar -> ByteString
_Exemplar'traceId :: !Data.ByteString.ByteString,
Exemplar -> Maybe Exemplar'Value
_Exemplar'value :: !(Prelude.Maybe Exemplar'Value),
Exemplar -> FieldSet
_Exemplar'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Exemplar -> Exemplar -> Bool
(Exemplar -> Exemplar -> Bool)
-> (Exemplar -> Exemplar -> Bool) -> Eq Exemplar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Exemplar -> Exemplar -> Bool
$c/= :: Exemplar -> Exemplar -> Bool
== :: Exemplar -> Exemplar -> Bool
$c== :: Exemplar -> Exemplar -> Bool
Prelude.Eq, Eq Exemplar
Eq Exemplar
-> (Exemplar -> Exemplar -> Ordering)
-> (Exemplar -> Exemplar -> Bool)
-> (Exemplar -> Exemplar -> Bool)
-> (Exemplar -> Exemplar -> Bool)
-> (Exemplar -> Exemplar -> Bool)
-> (Exemplar -> Exemplar -> Exemplar)
-> (Exemplar -> Exemplar -> Exemplar)
-> Ord Exemplar
Exemplar -> Exemplar -> Bool
Exemplar -> Exemplar -> Ordering
Exemplar -> Exemplar -> Exemplar
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Exemplar -> Exemplar -> Exemplar
$cmin :: Exemplar -> Exemplar -> Exemplar
max :: Exemplar -> Exemplar -> Exemplar
$cmax :: Exemplar -> Exemplar -> Exemplar
>= :: Exemplar -> Exemplar -> Bool
$c>= :: Exemplar -> Exemplar -> Bool
> :: Exemplar -> Exemplar -> Bool
$c> :: Exemplar -> Exemplar -> Bool
<= :: Exemplar -> Exemplar -> Bool
$c<= :: Exemplar -> Exemplar -> Bool
< :: Exemplar -> Exemplar -> Bool
$c< :: Exemplar -> Exemplar -> Bool
compare :: Exemplar -> Exemplar -> Ordering
$ccompare :: Exemplar -> Exemplar -> Ordering
$cp1Ord :: Eq Exemplar
Prelude.Ord)
instance Prelude.Show Exemplar where
showsPrec :: Int -> Exemplar -> ShowS
showsPrec Int
_ Exemplar
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Exemplar -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Exemplar
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data Exemplar'Value
= Exemplar'AsDouble !Prelude.Double |
Exemplar'AsInt !Data.Int.Int64
deriving stock (Int -> Exemplar'Value -> ShowS
[Exemplar'Value] -> ShowS
Exemplar'Value -> String
(Int -> Exemplar'Value -> ShowS)
-> (Exemplar'Value -> String)
-> ([Exemplar'Value] -> ShowS)
-> Show Exemplar'Value
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Exemplar'Value] -> ShowS
$cshowList :: [Exemplar'Value] -> ShowS
show :: Exemplar'Value -> String
$cshow :: Exemplar'Value -> String
showsPrec :: Int -> Exemplar'Value -> ShowS
$cshowsPrec :: Int -> Exemplar'Value -> ShowS
Prelude.Show, Exemplar'Value -> Exemplar'Value -> Bool
(Exemplar'Value -> Exemplar'Value -> Bool)
-> (Exemplar'Value -> Exemplar'Value -> Bool) -> Eq Exemplar'Value
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Exemplar'Value -> Exemplar'Value -> Bool
$c/= :: Exemplar'Value -> Exemplar'Value -> Bool
== :: Exemplar'Value -> Exemplar'Value -> Bool
$c== :: Exemplar'Value -> Exemplar'Value -> Bool
Prelude.Eq, Eq Exemplar'Value
Eq Exemplar'Value
-> (Exemplar'Value -> Exemplar'Value -> Ordering)
-> (Exemplar'Value -> Exemplar'Value -> Bool)
-> (Exemplar'Value -> Exemplar'Value -> Bool)
-> (Exemplar'Value -> Exemplar'Value -> Bool)
-> (Exemplar'Value -> Exemplar'Value -> Bool)
-> (Exemplar'Value -> Exemplar'Value -> Exemplar'Value)
-> (Exemplar'Value -> Exemplar'Value -> Exemplar'Value)
-> Ord Exemplar'Value
Exemplar'Value -> Exemplar'Value -> Bool
Exemplar'Value -> Exemplar'Value -> Ordering
Exemplar'Value -> Exemplar'Value -> Exemplar'Value
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Exemplar'Value -> Exemplar'Value -> Exemplar'Value
$cmin :: Exemplar'Value -> Exemplar'Value -> Exemplar'Value
max :: Exemplar'Value -> Exemplar'Value -> Exemplar'Value
$cmax :: Exemplar'Value -> Exemplar'Value -> Exemplar'Value
>= :: Exemplar'Value -> Exemplar'Value -> Bool
$c>= :: Exemplar'Value -> Exemplar'Value -> Bool
> :: Exemplar'Value -> Exemplar'Value -> Bool
$c> :: Exemplar'Value -> Exemplar'Value -> Bool
<= :: Exemplar'Value -> Exemplar'Value -> Bool
$c<= :: Exemplar'Value -> Exemplar'Value -> Bool
< :: Exemplar'Value -> Exemplar'Value -> Bool
$c< :: Exemplar'Value -> Exemplar'Value -> Bool
compare :: Exemplar'Value -> Exemplar'Value -> Ordering
$ccompare :: Exemplar'Value -> Exemplar'Value -> Ordering
$cp1Ord :: Eq Exemplar'Value
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Exemplar "filteredAttributes" [Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue] where
fieldOf :: Proxy# "filteredAttributes"
-> ([KeyValue] -> f [KeyValue]) -> Exemplar -> f Exemplar
fieldOf Proxy# "filteredAttributes"
_
= ((Vector KeyValue -> f (Vector KeyValue))
-> Exemplar -> f Exemplar)
-> (([KeyValue] -> f [KeyValue])
-> Vector KeyValue -> f (Vector KeyValue))
-> ([KeyValue] -> f [KeyValue])
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> Vector KeyValue)
-> (Exemplar -> Vector KeyValue -> Exemplar)
-> Lens Exemplar Exemplar (Vector KeyValue) (Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> Vector KeyValue
_Exemplar'filteredAttributes
(\ Exemplar
x__ Vector KeyValue
y__ -> Exemplar
x__ {_Exemplar'filteredAttributes :: Vector KeyValue
_Exemplar'filteredAttributes = Vector KeyValue
y__}))
((Vector KeyValue -> [KeyValue])
-> (Vector KeyValue -> [KeyValue] -> Vector KeyValue)
-> Lens (Vector KeyValue) (Vector KeyValue) [KeyValue] [KeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector KeyValue -> [KeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector KeyValue
_ [KeyValue]
y__ -> [KeyValue] -> Vector KeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [KeyValue]
y__))
instance Data.ProtoLens.Field.HasField Exemplar "vec'filteredAttributes" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue) where
fieldOf :: Proxy# "vec'filteredAttributes"
-> (Vector KeyValue -> f (Vector KeyValue))
-> Exemplar
-> f Exemplar
fieldOf Proxy# "vec'filteredAttributes"
_
= ((Vector KeyValue -> f (Vector KeyValue))
-> Exemplar -> f Exemplar)
-> ((Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue))
-> (Vector KeyValue -> f (Vector KeyValue))
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> Vector KeyValue)
-> (Exemplar -> Vector KeyValue -> Exemplar)
-> Lens Exemplar Exemplar (Vector KeyValue) (Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> Vector KeyValue
_Exemplar'filteredAttributes
(\ Exemplar
x__ Vector KeyValue
y__ -> Exemplar
x__ {_Exemplar'filteredAttributes :: Vector KeyValue
_Exemplar'filteredAttributes = Vector KeyValue
y__}))
(Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Exemplar "filteredLabels" [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue] where
fieldOf :: Proxy# "filteredLabels"
-> ([StringKeyValue] -> f [StringKeyValue])
-> Exemplar
-> f Exemplar
fieldOf Proxy# "filteredLabels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> Exemplar -> f Exemplar)
-> (([StringKeyValue] -> f [StringKeyValue])
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> ([StringKeyValue] -> f [StringKeyValue])
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> Vector StringKeyValue)
-> (Exemplar -> Vector StringKeyValue -> Exemplar)
-> Lens
Exemplar Exemplar (Vector StringKeyValue) (Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> Vector StringKeyValue
_Exemplar'filteredLabels
(\ Exemplar
x__ Vector StringKeyValue
y__ -> Exemplar
x__ {_Exemplar'filteredLabels :: Vector StringKeyValue
_Exemplar'filteredLabels = Vector StringKeyValue
y__}))
((Vector StringKeyValue -> [StringKeyValue])
-> (Vector StringKeyValue
-> [StringKeyValue] -> Vector StringKeyValue)
-> Lens
(Vector StringKeyValue)
(Vector StringKeyValue)
[StringKeyValue]
[StringKeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector StringKeyValue -> [StringKeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector StringKeyValue
_ [StringKeyValue]
y__ -> [StringKeyValue] -> Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StringKeyValue]
y__))
instance Data.ProtoLens.Field.HasField Exemplar "vec'filteredLabels" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue) where
fieldOf :: Proxy# "vec'filteredLabels"
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> Exemplar
-> f Exemplar
fieldOf Proxy# "vec'filteredLabels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> Exemplar -> f Exemplar)
-> ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> Vector StringKeyValue)
-> (Exemplar -> Vector StringKeyValue -> Exemplar)
-> Lens
Exemplar Exemplar (Vector StringKeyValue) (Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> Vector StringKeyValue
_Exemplar'filteredLabels
(\ Exemplar
x__ Vector StringKeyValue
y__ -> Exemplar
x__ {_Exemplar'filteredLabels :: Vector StringKeyValue
_Exemplar'filteredLabels = Vector StringKeyValue
y__}))
(Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Exemplar "timeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "timeUnixNano"
-> (Word64 -> f Word64) -> Exemplar -> f Exemplar
fieldOf Proxy# "timeUnixNano"
_
= ((Word64 -> f Word64) -> Exemplar -> f Exemplar)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> Word64)
-> (Exemplar -> Word64 -> Exemplar)
-> Lens Exemplar Exemplar Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> Word64
_Exemplar'timeUnixNano
(\ Exemplar
x__ Word64
y__ -> Exemplar
x__ {_Exemplar'timeUnixNano :: Word64
_Exemplar'timeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Exemplar "spanId" Data.ByteString.ByteString where
fieldOf :: Proxy# "spanId"
-> (ByteString -> f ByteString) -> Exemplar -> f Exemplar
fieldOf Proxy# "spanId"
_
= ((ByteString -> f ByteString) -> Exemplar -> f Exemplar)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> ByteString)
-> (Exemplar -> ByteString -> Exemplar)
-> Lens Exemplar Exemplar ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> ByteString
_Exemplar'spanId (\ Exemplar
x__ ByteString
y__ -> Exemplar
x__ {_Exemplar'spanId :: ByteString
_Exemplar'spanId = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Exemplar "traceId" Data.ByteString.ByteString where
fieldOf :: Proxy# "traceId"
-> (ByteString -> f ByteString) -> Exemplar -> f Exemplar
fieldOf Proxy# "traceId"
_
= ((ByteString -> f ByteString) -> Exemplar -> f Exemplar)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> ByteString)
-> (Exemplar -> ByteString -> Exemplar)
-> Lens Exemplar Exemplar ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> ByteString
_Exemplar'traceId (\ Exemplar
x__ ByteString
y__ -> Exemplar
x__ {_Exemplar'traceId :: ByteString
_Exemplar'traceId = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Exemplar "maybe'value" (Prelude.Maybe Exemplar'Value) where
fieldOf :: Proxy# "maybe'value"
-> (Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> Exemplar
-> f Exemplar
fieldOf Proxy# "maybe'value"
_
= ((Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> Exemplar -> f Exemplar)
-> ((Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> (Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> Maybe Exemplar'Value)
-> (Exemplar -> Maybe Exemplar'Value -> Exemplar)
-> Lens
Exemplar Exemplar (Maybe Exemplar'Value) (Maybe Exemplar'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> Maybe Exemplar'Value
_Exemplar'value (\ Exemplar
x__ Maybe Exemplar'Value
y__ -> Exemplar
x__ {_Exemplar'value :: Maybe Exemplar'Value
_Exemplar'value = Maybe Exemplar'Value
y__}))
(Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> Maybe Exemplar'Value -> f (Maybe Exemplar'Value)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Exemplar "maybe'asDouble" (Prelude.Maybe Prelude.Double) where
fieldOf :: Proxy# "maybe'asDouble"
-> (Maybe Double -> f (Maybe Double)) -> Exemplar -> f Exemplar
fieldOf Proxy# "maybe'asDouble"
_
= ((Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> Exemplar -> f Exemplar)
-> ((Maybe Double -> f (Maybe Double))
-> Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> (Maybe Double -> f (Maybe Double))
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> Maybe Exemplar'Value)
-> (Exemplar -> Maybe Exemplar'Value -> Exemplar)
-> Lens
Exemplar Exemplar (Maybe Exemplar'Value) (Maybe Exemplar'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> Maybe Exemplar'Value
_Exemplar'value (\ Exemplar
x__ Maybe Exemplar'Value
y__ -> Exemplar
x__ {_Exemplar'value :: Maybe Exemplar'Value
_Exemplar'value = Maybe Exemplar'Value
y__}))
((Maybe Exemplar'Value -> Maybe Double)
-> (Maybe Exemplar'Value -> Maybe Double -> Maybe Exemplar'Value)
-> Lens
(Maybe Exemplar'Value)
(Maybe Exemplar'Value)
(Maybe Double)
(Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Exemplar'Value
x__
-> case Maybe Exemplar'Value
x__ of
(Prelude.Just (Exemplar'AsDouble Double
x__val)) -> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
x__val
Maybe Exemplar'Value
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Exemplar'Value
_ Maybe Double
y__ -> (Double -> Exemplar'Value) -> Maybe Double -> Maybe Exemplar'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Double -> Exemplar'Value
Exemplar'AsDouble Maybe Double
y__))
instance Data.ProtoLens.Field.HasField Exemplar "asDouble" Prelude.Double where
fieldOf :: Proxy# "asDouble" -> (Double -> f Double) -> Exemplar -> f Exemplar
fieldOf Proxy# "asDouble"
_
= ((Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> Exemplar -> f Exemplar)
-> ((Double -> f Double)
-> Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> (Double -> f Double)
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> Maybe Exemplar'Value)
-> (Exemplar -> Maybe Exemplar'Value -> Exemplar)
-> Lens
Exemplar Exemplar (Maybe Exemplar'Value) (Maybe Exemplar'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> Maybe Exemplar'Value
_Exemplar'value (\ Exemplar
x__ Maybe Exemplar'Value
y__ -> Exemplar
x__ {_Exemplar'value :: Maybe Exemplar'Value
_Exemplar'value = Maybe Exemplar'Value
y__}))
(((Maybe Double -> f (Maybe Double))
-> Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> ((Double -> f Double) -> Maybe Double -> f (Maybe Double))
-> (Double -> f Double)
-> Maybe Exemplar'Value
-> f (Maybe Exemplar'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Exemplar'Value -> Maybe Double)
-> (Maybe Exemplar'Value -> Maybe Double -> Maybe Exemplar'Value)
-> Lens
(Maybe Exemplar'Value)
(Maybe Exemplar'Value)
(Maybe Double)
(Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Exemplar'Value
x__
-> case Maybe Exemplar'Value
x__ of
(Prelude.Just (Exemplar'AsDouble Double
x__val)) -> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
x__val
Maybe Exemplar'Value
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Exemplar'Value
_ Maybe Double
y__ -> (Double -> Exemplar'Value) -> Maybe Double -> Maybe Exemplar'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Double -> Exemplar'Value
Exemplar'AsDouble Maybe Double
y__))
(Double -> Lens' (Maybe Double) Double
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField Exemplar "maybe'asInt" (Prelude.Maybe Data.Int.Int64) where
fieldOf :: Proxy# "maybe'asInt"
-> (Maybe Int64 -> f (Maybe Int64)) -> Exemplar -> f Exemplar
fieldOf Proxy# "maybe'asInt"
_
= ((Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> Exemplar -> f Exemplar)
-> ((Maybe Int64 -> f (Maybe Int64))
-> Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> (Maybe Int64 -> f (Maybe Int64))
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> Maybe Exemplar'Value)
-> (Exemplar -> Maybe Exemplar'Value -> Exemplar)
-> Lens
Exemplar Exemplar (Maybe Exemplar'Value) (Maybe Exemplar'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> Maybe Exemplar'Value
_Exemplar'value (\ Exemplar
x__ Maybe Exemplar'Value
y__ -> Exemplar
x__ {_Exemplar'value :: Maybe Exemplar'Value
_Exemplar'value = Maybe Exemplar'Value
y__}))
((Maybe Exemplar'Value -> Maybe Int64)
-> (Maybe Exemplar'Value -> Maybe Int64 -> Maybe Exemplar'Value)
-> Lens
(Maybe Exemplar'Value)
(Maybe Exemplar'Value)
(Maybe Int64)
(Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Exemplar'Value
x__
-> case Maybe Exemplar'Value
x__ of
(Prelude.Just (Exemplar'AsInt Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
Maybe Exemplar'Value
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Exemplar'Value
_ Maybe Int64
y__ -> (Int64 -> Exemplar'Value) -> Maybe Int64 -> Maybe Exemplar'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Exemplar'Value
Exemplar'AsInt Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField Exemplar "asInt" Data.Int.Int64 where
fieldOf :: Proxy# "asInt" -> (Int64 -> f Int64) -> Exemplar -> f Exemplar
fieldOf Proxy# "asInt"
_
= ((Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> Exemplar -> f Exemplar)
-> ((Int64 -> f Int64)
-> Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> (Int64 -> f Int64)
-> Exemplar
-> f Exemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Exemplar -> Maybe Exemplar'Value)
-> (Exemplar -> Maybe Exemplar'Value -> Exemplar)
-> Lens
Exemplar Exemplar (Maybe Exemplar'Value) (Maybe Exemplar'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> Maybe Exemplar'Value
_Exemplar'value (\ Exemplar
x__ Maybe Exemplar'Value
y__ -> Exemplar
x__ {_Exemplar'value :: Maybe Exemplar'Value
_Exemplar'value = Maybe Exemplar'Value
y__}))
(((Maybe Int64 -> f (Maybe Int64))
-> Maybe Exemplar'Value -> f (Maybe Exemplar'Value))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe Exemplar'Value
-> f (Maybe Exemplar'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Exemplar'Value -> Maybe Int64)
-> (Maybe Exemplar'Value -> Maybe Int64 -> Maybe Exemplar'Value)
-> Lens
(Maybe Exemplar'Value)
(Maybe Exemplar'Value)
(Maybe Int64)
(Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Exemplar'Value
x__
-> case Maybe Exemplar'Value
x__ of
(Prelude.Just (Exemplar'AsInt Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
Maybe Exemplar'Value
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Exemplar'Value
_ Maybe Int64
y__ -> (Int64 -> Exemplar'Value) -> Maybe Int64 -> Maybe Exemplar'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Exemplar'Value
Exemplar'AsInt Maybe Int64
y__))
(Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message Exemplar where
messageName :: Proxy Exemplar -> Text
messageName Proxy Exemplar
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.Exemplar"
packedMessageDescriptor :: Proxy Exemplar -> ByteString
packedMessageDescriptor Proxy Exemplar
_
= ByteString
"\n\
\\bExemplar\DC2X\n\
\\DC3filtered_attributes\CAN\a \ETX(\v2'.opentelemetry.proto.common.v1.KeyValueR\DC2filteredAttributes\DC2Z\n\
\\SIfiltered_labels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\SOfilteredLabelsB\STX\CAN\SOH\DC2$\n\
\\SOtime_unix_nano\CAN\STX \SOH(\ACKR\ftimeUnixNano\DC2\GS\n\
\\tas_double\CAN\ETX \SOH(\SOHH\NULR\basDouble\DC2\ETB\n\
\\ACKas_int\CAN\ACK \SOH(\DLEH\NULR\ENQasInt\DC2\ETB\n\
\\aspan_id\CAN\EOT \SOH(\fR\ACKspanId\DC2\EM\n\
\\btrace_id\CAN\ENQ \SOH(\fR\atraceIdB\a\n\
\\ENQvalue"
packedFileDescriptor :: Proxy Exemplar -> ByteString
packedFileDescriptor Proxy Exemplar
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Exemplar)
fieldsByTag
= let
filteredAttributes__field_descriptor :: FieldDescriptor Exemplar
filteredAttributes__field_descriptor
= String
-> FieldTypeDescriptor KeyValue
-> FieldAccessor Exemplar KeyValue
-> FieldDescriptor Exemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"filtered_attributes"
(MessageOrGroup -> FieldTypeDescriptor KeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue)
(Packing
-> Lens' Exemplar [KeyValue] -> FieldAccessor Exemplar KeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "filteredAttributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filteredAttributes")) ::
Data.ProtoLens.FieldDescriptor Exemplar
filteredLabels__field_descriptor :: FieldDescriptor Exemplar
filteredLabels__field_descriptor
= String
-> FieldTypeDescriptor StringKeyValue
-> FieldAccessor Exemplar StringKeyValue
-> FieldDescriptor Exemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"filtered_labels"
(MessageOrGroup -> FieldTypeDescriptor StringKeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)
(Packing
-> Lens' Exemplar [StringKeyValue]
-> FieldAccessor Exemplar StringKeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "filteredLabels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filteredLabels")) ::
Data.ProtoLens.FieldDescriptor Exemplar
timeUnixNano__field_descriptor :: FieldDescriptor Exemplar
timeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor Exemplar Word64
-> FieldDescriptor Exemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens Exemplar Exemplar Word64 Word64
-> FieldAccessor Exemplar Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano")) ::
Data.ProtoLens.FieldDescriptor Exemplar
spanId__field_descriptor :: FieldDescriptor Exemplar
spanId__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Exemplar ByteString
-> FieldDescriptor Exemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"span_id"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(WireDefault ByteString
-> Lens Exemplar Exemplar ByteString ByteString
-> FieldAccessor Exemplar ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "spanId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"spanId")) ::
Data.ProtoLens.FieldDescriptor Exemplar
traceId__field_descriptor :: FieldDescriptor Exemplar
traceId__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Exemplar ByteString
-> FieldDescriptor Exemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"trace_id"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(WireDefault ByteString
-> Lens Exemplar Exemplar ByteString ByteString
-> FieldAccessor Exemplar ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "traceId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"traceId")) ::
Data.ProtoLens.FieldDescriptor Exemplar
asDouble__field_descriptor :: FieldDescriptor Exemplar
asDouble__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor Exemplar Double
-> FieldDescriptor Exemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"as_double"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Lens' Exemplar (Maybe Double) -> FieldAccessor Exemplar Double
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'asDouble" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'asDouble")) ::
Data.ProtoLens.FieldDescriptor Exemplar
asInt__field_descriptor :: FieldDescriptor Exemplar
asInt__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor Exemplar Int64
-> FieldDescriptor Exemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"as_int"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.SFixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Lens' Exemplar (Maybe Int64) -> FieldAccessor Exemplar Int64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'asInt" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'asInt")) ::
Data.ProtoLens.FieldDescriptor Exemplar
in
[(Tag, FieldDescriptor Exemplar)]
-> Map Tag (FieldDescriptor Exemplar)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor Exemplar
filteredAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Exemplar
filteredLabels__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Exemplar
timeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Exemplar
spanId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Exemplar
traceId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Exemplar
asDouble__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor Exemplar
asInt__field_descriptor)]
unknownFields :: LensLike' f Exemplar FieldSet
unknownFields
= (Exemplar -> FieldSet)
-> (Exemplar -> FieldSet -> Exemplar) -> Lens' Exemplar FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Exemplar -> FieldSet
_Exemplar'_unknownFields
(\ Exemplar
x__ FieldSet
y__ -> Exemplar
x__ {_Exemplar'_unknownFields :: FieldSet
_Exemplar'_unknownFields = FieldSet
y__})
defMessage :: Exemplar
defMessage
= Exemplar'_constructor :: Vector KeyValue
-> Vector StringKeyValue
-> Word64
-> ByteString
-> ByteString
-> Maybe Exemplar'Value
-> FieldSet
-> Exemplar
Exemplar'_constructor
{_Exemplar'filteredAttributes :: Vector KeyValue
_Exemplar'filteredAttributes = Vector KeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_Exemplar'filteredLabels :: Vector StringKeyValue
_Exemplar'filteredLabels = Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_Exemplar'timeUnixNano :: Word64
_Exemplar'timeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Exemplar'spanId :: ByteString
_Exemplar'spanId = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Exemplar'traceId :: ByteString
_Exemplar'traceId = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Exemplar'value :: Maybe Exemplar'Value
_Exemplar'value = Maybe Exemplar'Value
forall a. Maybe a
Prelude.Nothing, _Exemplar'_unknownFields :: FieldSet
_Exemplar'_unknownFields = []}
parseMessage :: Parser Exemplar
parseMessage
= let
loop ::
Exemplar
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue
-> Data.ProtoLens.Encoding.Bytes.Parser Exemplar
loop :: Exemplar
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Parser Exemplar
loop Exemplar
x Growing Vector RealWorld KeyValue
mutable'filteredAttributes Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector KeyValue
frozen'filteredAttributes <- IO (Vector KeyValue) -> Parser (Vector KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) KeyValue -> IO (Vector KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld KeyValue
Growing Vector (PrimState IO) KeyValue
mutable'filteredAttributes)
Vector StringKeyValue
frozen'filteredLabels <- IO (Vector StringKeyValue) -> Parser (Vector StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> IO (Vector StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'filteredLabels)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
Exemplar -> Parser Exemplar
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Exemplar Exemplar FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Exemplar -> Exemplar
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Exemplar Exemplar FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter Exemplar Exemplar (Vector KeyValue) (Vector KeyValue)
-> Vector KeyValue -> Exemplar -> Exemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'filteredAttributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'filteredAttributes")
Vector KeyValue
frozen'filteredAttributes
(Setter
Exemplar Exemplar (Vector StringKeyValue) (Vector StringKeyValue)
-> Vector StringKeyValue -> Exemplar -> Exemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'filteredLabels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'filteredLabels")
Vector StringKeyValue
frozen'filteredLabels Exemplar
x)))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
58
-> do !KeyValue
y <- Parser KeyValue -> String -> Parser KeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser KeyValue -> Parser KeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser KeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"filtered_attributes"
Growing Vector RealWorld KeyValue
v <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) KeyValue
-> KeyValue -> IO (Growing Vector (PrimState IO) KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld KeyValue
Growing Vector (PrimState IO) KeyValue
mutable'filteredAttributes KeyValue
y)
Exemplar
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Parser Exemplar
loop Exemplar
x Growing Vector RealWorld KeyValue
v Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
Word64
10
-> do !StringKeyValue
y <- Parser StringKeyValue -> String -> Parser StringKeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StringKeyValue -> Parser StringKeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser StringKeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"filtered_labels"
Growing Vector RealWorld StringKeyValue
v <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> StringKeyValue
-> IO (Growing Vector (PrimState IO) StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'filteredLabels StringKeyValue
y)
Exemplar
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Parser Exemplar
loop Exemplar
x Growing Vector RealWorld KeyValue
mutable'filteredAttributes Growing Vector RealWorld StringKeyValue
v
Word64
17
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"time_unix_nano"
Exemplar
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Parser Exemplar
loop
(Setter Exemplar Exemplar Word64 Word64
-> Word64 -> Exemplar -> Exemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") Word64
y Exemplar
x)
Growing Vector RealWorld KeyValue
mutable'filteredAttributes Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
Word64
34
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
String
"span_id"
Exemplar
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Parser Exemplar
loop
(Setter Exemplar Exemplar ByteString ByteString
-> ByteString -> Exemplar -> Exemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "spanId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"spanId") ByteString
y Exemplar
x)
Growing Vector RealWorld KeyValue
mutable'filteredAttributes Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
Word64
42
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
String
"trace_id"
Exemplar
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Parser Exemplar
loop
(Setter Exemplar Exemplar ByteString ByteString
-> ByteString -> Exemplar -> Exemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "traceId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"traceId") ByteString
y Exemplar
x)
Growing Vector RealWorld KeyValue
mutable'filteredAttributes Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
Word64
25
-> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"as_double"
Exemplar
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Parser Exemplar
loop
(Setter Exemplar Exemplar Double Double
-> Double -> Exemplar -> Exemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "asDouble" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"asDouble") Double
y Exemplar
x)
Growing Vector RealWorld KeyValue
mutable'filteredAttributes Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
Word64
49
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"as_int"
Exemplar
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Parser Exemplar
loop
(Setter Exemplar Exemplar Int64 Int64
-> Int64 -> Exemplar -> Exemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "asInt" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"asInt") Int64
y Exemplar
x)
Growing Vector RealWorld KeyValue
mutable'filteredAttributes Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Exemplar
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Parser Exemplar
loop
(Setter Exemplar Exemplar FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Exemplar -> Exemplar
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Exemplar Exemplar FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Exemplar
x)
Growing Vector RealWorld KeyValue
mutable'filteredAttributes Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
in
Parser Exemplar -> String -> Parser Exemplar
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld KeyValue
mutable'filteredAttributes <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld StringKeyValue
mutable'filteredLabels <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Exemplar
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Parser Exemplar
loop
Exemplar
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld KeyValue
mutable'filteredAttributes
Growing Vector RealWorld StringKeyValue
mutable'filteredLabels)
String
"Exemplar"
buildMessage :: Exemplar -> Builder
buildMessage
= \ Exemplar
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((KeyValue -> Builder) -> Vector KeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ KeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder)
-> (KeyValue -> ByteString) -> KeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
KeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage KeyValue
_v))
(FoldLike
(Vector KeyValue)
Exemplar
Exemplar
(Vector KeyValue)
(Vector KeyValue)
-> Exemplar -> Vector KeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'filteredAttributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'filteredAttributes") Exemplar
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((StringKeyValue -> Builder) -> Vector StringKeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ StringKeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (StringKeyValue -> ByteString) -> StringKeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
StringKeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StringKeyValue
_v))
(FoldLike
(Vector StringKeyValue)
Exemplar
Exemplar
(Vector StringKeyValue)
(Vector StringKeyValue)
-> Exemplar -> Vector StringKeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'filteredLabels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'filteredLabels") Exemplar
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike Word64 Exemplar Exemplar Word64 Word64
-> Exemplar -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") Exemplar
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v = FoldLike ByteString Exemplar Exemplar ByteString ByteString
-> Exemplar -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "spanId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"spanId") Exemplar
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v = FoldLike ByteString Exemplar Exemplar ByteString ByteString
-> Exemplar -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "traceId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"traceId") Exemplar
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Exemplar'Value)
Exemplar
Exemplar
(Maybe Exemplar'Value)
(Maybe Exemplar'Value)
-> Exemplar -> Maybe Exemplar'Value
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value") Exemplar
_x
of
Maybe Exemplar'Value
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (Exemplar'AsDouble Double
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
25)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
v)
(Prelude.Just (Exemplar'AsInt Int64
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
49)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Exemplar Exemplar FieldSet FieldSet
-> Exemplar -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Exemplar Exemplar FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Exemplar
_x)))))))
instance Control.DeepSeq.NFData Exemplar where
rnf :: Exemplar -> ()
rnf
= \ Exemplar
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Exemplar -> FieldSet
_Exemplar'_unknownFields Exemplar
x__)
(Vector KeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Exemplar -> Vector KeyValue
_Exemplar'filteredAttributes Exemplar
x__)
(Vector StringKeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Exemplar -> Vector StringKeyValue
_Exemplar'filteredLabels Exemplar
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Exemplar -> Word64
_Exemplar'timeUnixNano Exemplar
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Exemplar -> ByteString
_Exemplar'spanId Exemplar
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Exemplar -> ByteString
_Exemplar'traceId Exemplar
x__)
(Maybe Exemplar'Value -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Exemplar -> Maybe Exemplar'Value
_Exemplar'value Exemplar
x__) ()))))))
instance Control.DeepSeq.NFData Exemplar'Value where
rnf :: Exemplar'Value -> ()
rnf (Exemplar'AsDouble Double
x__) = Double -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Double
x__
rnf (Exemplar'AsInt Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
_Exemplar'AsDouble ::
Data.ProtoLens.Prism.Prism' Exemplar'Value Prelude.Double
_Exemplar'AsDouble :: p Double (f Double) -> p Exemplar'Value (f Exemplar'Value)
_Exemplar'AsDouble
= (Double -> Exemplar'Value)
-> (Exemplar'Value -> Maybe Double)
-> Prism Exemplar'Value Exemplar'Value Double Double
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Double -> Exemplar'Value
Exemplar'AsDouble
(\ Exemplar'Value
p__
-> case Exemplar'Value
p__ of
(Exemplar'AsDouble Double
p__val) -> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
p__val
Exemplar'Value
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
_Exemplar'AsInt ::
Data.ProtoLens.Prism.Prism' Exemplar'Value Data.Int.Int64
_Exemplar'AsInt :: p Int64 (f Int64) -> p Exemplar'Value (f Exemplar'Value)
_Exemplar'AsInt
= (Int64 -> Exemplar'Value)
-> (Exemplar'Value -> Maybe Int64)
-> Prism Exemplar'Value Exemplar'Value Int64 Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Int64 -> Exemplar'Value
Exemplar'AsInt
(\ Exemplar'Value
p__
-> case Exemplar'Value
p__ of
(Exemplar'AsInt Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
Exemplar'Value
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
data ExponentialHistogram
= ExponentialHistogram'_constructor {ExponentialHistogram -> Vector ExponentialHistogramDataPoint
_ExponentialHistogram'dataPoints :: !(Data.Vector.Vector ExponentialHistogramDataPoint),
ExponentialHistogram -> AggregationTemporality
_ExponentialHistogram'aggregationTemporality :: !AggregationTemporality,
ExponentialHistogram -> FieldSet
_ExponentialHistogram'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ExponentialHistogram -> ExponentialHistogram -> Bool
(ExponentialHistogram -> ExponentialHistogram -> Bool)
-> (ExponentialHistogram -> ExponentialHistogram -> Bool)
-> Eq ExponentialHistogram
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExponentialHistogram -> ExponentialHistogram -> Bool
$c/= :: ExponentialHistogram -> ExponentialHistogram -> Bool
== :: ExponentialHistogram -> ExponentialHistogram -> Bool
$c== :: ExponentialHistogram -> ExponentialHistogram -> Bool
Prelude.Eq, Eq ExponentialHistogram
Eq ExponentialHistogram
-> (ExponentialHistogram -> ExponentialHistogram -> Ordering)
-> (ExponentialHistogram -> ExponentialHistogram -> Bool)
-> (ExponentialHistogram -> ExponentialHistogram -> Bool)
-> (ExponentialHistogram -> ExponentialHistogram -> Bool)
-> (ExponentialHistogram -> ExponentialHistogram -> Bool)
-> (ExponentialHistogram
-> ExponentialHistogram -> ExponentialHistogram)
-> (ExponentialHistogram
-> ExponentialHistogram -> ExponentialHistogram)
-> Ord ExponentialHistogram
ExponentialHistogram -> ExponentialHistogram -> Bool
ExponentialHistogram -> ExponentialHistogram -> Ordering
ExponentialHistogram
-> ExponentialHistogram -> ExponentialHistogram
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: ExponentialHistogram
-> ExponentialHistogram -> ExponentialHistogram
$cmin :: ExponentialHistogram
-> ExponentialHistogram -> ExponentialHistogram
max :: ExponentialHistogram
-> ExponentialHistogram -> ExponentialHistogram
$cmax :: ExponentialHistogram
-> ExponentialHistogram -> ExponentialHistogram
>= :: ExponentialHistogram -> ExponentialHistogram -> Bool
$c>= :: ExponentialHistogram -> ExponentialHistogram -> Bool
> :: ExponentialHistogram -> ExponentialHistogram -> Bool
$c> :: ExponentialHistogram -> ExponentialHistogram -> Bool
<= :: ExponentialHistogram -> ExponentialHistogram -> Bool
$c<= :: ExponentialHistogram -> ExponentialHistogram -> Bool
< :: ExponentialHistogram -> ExponentialHistogram -> Bool
$c< :: ExponentialHistogram -> ExponentialHistogram -> Bool
compare :: ExponentialHistogram -> ExponentialHistogram -> Ordering
$ccompare :: ExponentialHistogram -> ExponentialHistogram -> Ordering
$cp1Ord :: Eq ExponentialHistogram
Prelude.Ord)
instance Prelude.Show ExponentialHistogram where
showsPrec :: Int -> ExponentialHistogram -> ShowS
showsPrec Int
_ ExponentialHistogram
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ExponentialHistogram -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExponentialHistogram
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExponentialHistogram "dataPoints" [ExponentialHistogramDataPoint] where
fieldOf :: Proxy# "dataPoints"
-> ([ExponentialHistogramDataPoint]
-> f [ExponentialHistogramDataPoint])
-> ExponentialHistogram
-> f ExponentialHistogram
fieldOf Proxy# "dataPoints"
_
= ((Vector ExponentialHistogramDataPoint
-> f (Vector ExponentialHistogramDataPoint))
-> ExponentialHistogram -> f ExponentialHistogram)
-> (([ExponentialHistogramDataPoint]
-> f [ExponentialHistogramDataPoint])
-> Vector ExponentialHistogramDataPoint
-> f (Vector ExponentialHistogramDataPoint))
-> ([ExponentialHistogramDataPoint]
-> f [ExponentialHistogramDataPoint])
-> ExponentialHistogram
-> f ExponentialHistogram
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogram -> Vector ExponentialHistogramDataPoint)
-> (ExponentialHistogram
-> Vector ExponentialHistogramDataPoint -> ExponentialHistogram)
-> Lens
ExponentialHistogram
ExponentialHistogram
(Vector ExponentialHistogramDataPoint)
(Vector ExponentialHistogramDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogram -> Vector ExponentialHistogramDataPoint
_ExponentialHistogram'dataPoints
(\ ExponentialHistogram
x__ Vector ExponentialHistogramDataPoint
y__ -> ExponentialHistogram
x__ {_ExponentialHistogram'dataPoints :: Vector ExponentialHistogramDataPoint
_ExponentialHistogram'dataPoints = Vector ExponentialHistogramDataPoint
y__}))
((Vector ExponentialHistogramDataPoint
-> [ExponentialHistogramDataPoint])
-> (Vector ExponentialHistogramDataPoint
-> [ExponentialHistogramDataPoint]
-> Vector ExponentialHistogramDataPoint)
-> Lens
(Vector ExponentialHistogramDataPoint)
(Vector ExponentialHistogramDataPoint)
[ExponentialHistogramDataPoint]
[ExponentialHistogramDataPoint]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector ExponentialHistogramDataPoint
-> [ExponentialHistogramDataPoint]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector ExponentialHistogramDataPoint
_ [ExponentialHistogramDataPoint]
y__ -> [ExponentialHistogramDataPoint]
-> Vector ExponentialHistogramDataPoint
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ExponentialHistogramDataPoint]
y__))
instance Data.ProtoLens.Field.HasField ExponentialHistogram "vec'dataPoints" (Data.Vector.Vector ExponentialHistogramDataPoint) where
fieldOf :: Proxy# "vec'dataPoints"
-> (Vector ExponentialHistogramDataPoint
-> f (Vector ExponentialHistogramDataPoint))
-> ExponentialHistogram
-> f ExponentialHistogram
fieldOf Proxy# "vec'dataPoints"
_
= ((Vector ExponentialHistogramDataPoint
-> f (Vector ExponentialHistogramDataPoint))
-> ExponentialHistogram -> f ExponentialHistogram)
-> ((Vector ExponentialHistogramDataPoint
-> f (Vector ExponentialHistogramDataPoint))
-> Vector ExponentialHistogramDataPoint
-> f (Vector ExponentialHistogramDataPoint))
-> (Vector ExponentialHistogramDataPoint
-> f (Vector ExponentialHistogramDataPoint))
-> ExponentialHistogram
-> f ExponentialHistogram
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogram -> Vector ExponentialHistogramDataPoint)
-> (ExponentialHistogram
-> Vector ExponentialHistogramDataPoint -> ExponentialHistogram)
-> Lens
ExponentialHistogram
ExponentialHistogram
(Vector ExponentialHistogramDataPoint)
(Vector ExponentialHistogramDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogram -> Vector ExponentialHistogramDataPoint
_ExponentialHistogram'dataPoints
(\ ExponentialHistogram
x__ Vector ExponentialHistogramDataPoint
y__ -> ExponentialHistogram
x__ {_ExponentialHistogram'dataPoints :: Vector ExponentialHistogramDataPoint
_ExponentialHistogram'dataPoints = Vector ExponentialHistogramDataPoint
y__}))
(Vector ExponentialHistogramDataPoint
-> f (Vector ExponentialHistogramDataPoint))
-> Vector ExponentialHistogramDataPoint
-> f (Vector ExponentialHistogramDataPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogram "aggregationTemporality" AggregationTemporality where
fieldOf :: Proxy# "aggregationTemporality"
-> (AggregationTemporality -> f AggregationTemporality)
-> ExponentialHistogram
-> f ExponentialHistogram
fieldOf Proxy# "aggregationTemporality"
_
= ((AggregationTemporality -> f AggregationTemporality)
-> ExponentialHistogram -> f ExponentialHistogram)
-> ((AggregationTemporality -> f AggregationTemporality)
-> AggregationTemporality -> f AggregationTemporality)
-> (AggregationTemporality -> f AggregationTemporality)
-> ExponentialHistogram
-> f ExponentialHistogram
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogram -> AggregationTemporality)
-> (ExponentialHistogram
-> AggregationTemporality -> ExponentialHistogram)
-> Lens
ExponentialHistogram
ExponentialHistogram
AggregationTemporality
AggregationTemporality
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogram -> AggregationTemporality
_ExponentialHistogram'aggregationTemporality
(\ ExponentialHistogram
x__ AggregationTemporality
y__
-> ExponentialHistogram
x__ {_ExponentialHistogram'aggregationTemporality :: AggregationTemporality
_ExponentialHistogram'aggregationTemporality = AggregationTemporality
y__}))
(AggregationTemporality -> f AggregationTemporality)
-> AggregationTemporality -> f AggregationTemporality
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExponentialHistogram where
messageName :: Proxy ExponentialHistogram -> Text
messageName Proxy ExponentialHistogram
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.v1.ExponentialHistogram"
packedMessageDescriptor :: Proxy ExponentialHistogram -> ByteString
packedMessageDescriptor Proxy ExponentialHistogram
_
= ByteString
"\n\
\\DC4ExponentialHistogram\DC2^\n\
\\vdata_points\CAN\SOH \ETX(\v2=.opentelemetry.proto.metrics.v1.ExponentialHistogramDataPointR\n\
\dataPoints\DC2o\n\
\\ETBaggregation_temporality\CAN\STX \SOH(\SO26.opentelemetry.proto.metrics.v1.AggregationTemporalityR\SYNaggregationTemporality"
packedFileDescriptor :: Proxy ExponentialHistogram -> ByteString
packedFileDescriptor Proxy ExponentialHistogram
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ExponentialHistogram)
fieldsByTag
= let
dataPoints__field_descriptor :: FieldDescriptor ExponentialHistogram
dataPoints__field_descriptor
= String
-> FieldTypeDescriptor ExponentialHistogramDataPoint
-> FieldAccessor ExponentialHistogram ExponentialHistogramDataPoint
-> FieldDescriptor ExponentialHistogram
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"data_points"
(MessageOrGroup -> FieldTypeDescriptor ExponentialHistogramDataPoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ExponentialHistogramDataPoint)
(Packing
-> Lens' ExponentialHistogram [ExponentialHistogramDataPoint]
-> FieldAccessor ExponentialHistogram ExponentialHistogramDataPoint
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataPoints")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogram
aggregationTemporality__field_descriptor :: FieldDescriptor ExponentialHistogram
aggregationTemporality__field_descriptor
= String
-> FieldTypeDescriptor AggregationTemporality
-> FieldAccessor ExponentialHistogram AggregationTemporality
-> FieldDescriptor ExponentialHistogram
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"aggregation_temporality"
(ScalarField AggregationTemporality
-> FieldTypeDescriptor AggregationTemporality
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField AggregationTemporality
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor AggregationTemporality)
(WireDefault AggregationTemporality
-> Lens
ExponentialHistogram
ExponentialHistogram
AggregationTemporality
AggregationTemporality
-> FieldAccessor ExponentialHistogram AggregationTemporality
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault AggregationTemporality
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogram
in
[(Tag, FieldDescriptor ExponentialHistogram)]
-> Map Tag (FieldDescriptor ExponentialHistogram)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExponentialHistogram
dataPoints__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExponentialHistogram
aggregationTemporality__field_descriptor)]
unknownFields :: LensLike' f ExponentialHistogram FieldSet
unknownFields
= (ExponentialHistogram -> FieldSet)
-> (ExponentialHistogram -> FieldSet -> ExponentialHistogram)
-> Lens' ExponentialHistogram FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogram -> FieldSet
_ExponentialHistogram'_unknownFields
(\ ExponentialHistogram
x__ FieldSet
y__ -> ExponentialHistogram
x__ {_ExponentialHistogram'_unknownFields :: FieldSet
_ExponentialHistogram'_unknownFields = FieldSet
y__})
defMessage :: ExponentialHistogram
defMessage
= ExponentialHistogram'_constructor :: Vector ExponentialHistogramDataPoint
-> AggregationTemporality -> FieldSet -> ExponentialHistogram
ExponentialHistogram'_constructor
{_ExponentialHistogram'dataPoints :: Vector ExponentialHistogramDataPoint
_ExponentialHistogram'dataPoints = Vector ExponentialHistogramDataPoint
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ExponentialHistogram'aggregationTemporality :: AggregationTemporality
_ExponentialHistogram'aggregationTemporality = AggregationTemporality
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ExponentialHistogram'_unknownFields :: FieldSet
_ExponentialHistogram'_unknownFields = []}
parseMessage :: Parser ExponentialHistogram
parseMessage
= let
loop ::
ExponentialHistogram
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ExponentialHistogramDataPoint
-> Data.ProtoLens.Encoding.Bytes.Parser ExponentialHistogram
loop :: ExponentialHistogram
-> Growing Vector RealWorld ExponentialHistogramDataPoint
-> Parser ExponentialHistogram
loop ExponentialHistogram
x Growing Vector RealWorld ExponentialHistogramDataPoint
mutable'dataPoints
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector ExponentialHistogramDataPoint
frozen'dataPoints <- IO (Vector ExponentialHistogramDataPoint)
-> Parser (Vector ExponentialHistogramDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ExponentialHistogramDataPoint
-> IO (Vector ExponentialHistogramDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld ExponentialHistogramDataPoint
Growing Vector (PrimState IO) ExponentialHistogramDataPoint
mutable'dataPoints)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ExponentialHistogram -> Parser ExponentialHistogram
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter ExponentialHistogram ExponentialHistogram FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ExponentialHistogram
-> ExponentialHistogram
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter ExponentialHistogram ExponentialHistogram FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
ExponentialHistogram
ExponentialHistogram
(Vector ExponentialHistogramDataPoint)
(Vector ExponentialHistogramDataPoint)
-> Vector ExponentialHistogramDataPoint
-> ExponentialHistogram
-> ExponentialHistogram
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Vector ExponentialHistogramDataPoint
frozen'dataPoints
ExponentialHistogram
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !ExponentialHistogramDataPoint
y <- Parser ExponentialHistogramDataPoint
-> String -> Parser ExponentialHistogramDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser ExponentialHistogramDataPoint
-> Parser ExponentialHistogramDataPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser ExponentialHistogramDataPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"data_points"
Growing Vector RealWorld ExponentialHistogramDataPoint
v <- IO (Growing Vector RealWorld ExponentialHistogramDataPoint)
-> Parser (Growing Vector RealWorld ExponentialHistogramDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
-> IO (Growing Vector (PrimState IO) ExponentialHistogramDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld ExponentialHistogramDataPoint
Growing Vector (PrimState IO) ExponentialHistogramDataPoint
mutable'dataPoints ExponentialHistogramDataPoint
y)
ExponentialHistogram
-> Growing Vector RealWorld ExponentialHistogramDataPoint
-> Parser ExponentialHistogram
loop ExponentialHistogram
x Growing Vector RealWorld ExponentialHistogramDataPoint
v
Word64
16
-> do AggregationTemporality
y <- Parser AggregationTemporality
-> String -> Parser AggregationTemporality
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> AggregationTemporality)
-> Parser Int -> Parser AggregationTemporality
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> AggregationTemporality
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"aggregation_temporality"
ExponentialHistogram
-> Growing Vector RealWorld ExponentialHistogramDataPoint
-> Parser ExponentialHistogram
loop
(Setter
ExponentialHistogram
ExponentialHistogram
AggregationTemporality
AggregationTemporality
-> AggregationTemporality
-> ExponentialHistogram
-> ExponentialHistogram
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality") AggregationTemporality
y ExponentialHistogram
x)
Growing Vector RealWorld ExponentialHistogramDataPoint
mutable'dataPoints
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ExponentialHistogram
-> Growing Vector RealWorld ExponentialHistogramDataPoint
-> Parser ExponentialHistogram
loop
(Setter ExponentialHistogram ExponentialHistogram FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ExponentialHistogram
-> ExponentialHistogram
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter ExponentialHistogram ExponentialHistogram FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExponentialHistogram
x)
Growing Vector RealWorld ExponentialHistogramDataPoint
mutable'dataPoints
in
Parser ExponentialHistogram
-> String -> Parser ExponentialHistogram
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld ExponentialHistogramDataPoint
mutable'dataPoints <- IO (Growing Vector RealWorld ExponentialHistogramDataPoint)
-> Parser (Growing Vector RealWorld ExponentialHistogramDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld ExponentialHistogramDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
ExponentialHistogram
-> Growing Vector RealWorld ExponentialHistogramDataPoint
-> Parser ExponentialHistogram
loop ExponentialHistogram
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ExponentialHistogramDataPoint
mutable'dataPoints)
String
"ExponentialHistogram"
buildMessage :: ExponentialHistogram -> Builder
buildMessage
= \ ExponentialHistogram
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((ExponentialHistogramDataPoint -> Builder)
-> Vector ExponentialHistogramDataPoint -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ ExponentialHistogramDataPoint
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (ExponentialHistogramDataPoint -> ByteString)
-> ExponentialHistogramDataPoint
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ExponentialHistogramDataPoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ExponentialHistogramDataPoint
_v))
(FoldLike
(Vector ExponentialHistogramDataPoint)
ExponentialHistogram
ExponentialHistogram
(Vector ExponentialHistogramDataPoint)
(Vector ExponentialHistogramDataPoint)
-> ExponentialHistogram -> Vector ExponentialHistogramDataPoint
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") ExponentialHistogram
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: AggregationTemporality
_v
= FoldLike
AggregationTemporality
ExponentialHistogram
ExponentialHistogram
AggregationTemporality
AggregationTemporality
-> ExponentialHistogram -> AggregationTemporality
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality") ExponentialHistogram
_x
in
if AggregationTemporality -> AggregationTemporality -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) AggregationTemporality
_v AggregationTemporality
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Int -> Builder)
-> (AggregationTemporality -> Int)
-> AggregationTemporality
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
AggregationTemporality -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum AggregationTemporality
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ExponentialHistogram
ExponentialHistogram
FieldSet
FieldSet
-> ExponentialHistogram -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ExponentialHistogram
ExponentialHistogram
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ExponentialHistogram
_x)))
instance Control.DeepSeq.NFData ExponentialHistogram where
rnf :: ExponentialHistogram -> ()
rnf
= \ ExponentialHistogram
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogram -> FieldSet
_ExponentialHistogram'_unknownFields ExponentialHistogram
x__)
(Vector ExponentialHistogramDataPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogram -> Vector ExponentialHistogramDataPoint
_ExponentialHistogram'dataPoints ExponentialHistogram
x__)
(AggregationTemporality -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogram -> AggregationTemporality
_ExponentialHistogram'aggregationTemporality ExponentialHistogram
x__) ()))
data ExponentialHistogramDataPoint
= ExponentialHistogramDataPoint'_constructor {ExponentialHistogramDataPoint -> Vector KeyValue
_ExponentialHistogramDataPoint'attributes :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue),
ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'startTimeUnixNano :: !Data.Word.Word64,
ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'timeUnixNano :: !Data.Word.Word64,
ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'count :: !Data.Word.Word64,
ExponentialHistogramDataPoint -> Double
_ExponentialHistogramDataPoint'sum :: !Prelude.Double,
ExponentialHistogramDataPoint -> Int32
_ExponentialHistogramDataPoint'scale :: !Data.Int.Int32,
ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'zeroCount :: !Data.Word.Word64,
ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'positive :: !(Prelude.Maybe ExponentialHistogramDataPoint'Buckets),
ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'negative :: !(Prelude.Maybe ExponentialHistogramDataPoint'Buckets),
ExponentialHistogramDataPoint -> Word32
_ExponentialHistogramDataPoint'flags :: !Data.Word.Word32,
ExponentialHistogramDataPoint -> Vector Exemplar
_ExponentialHistogramDataPoint'exemplars :: !(Data.Vector.Vector Exemplar),
ExponentialHistogramDataPoint -> FieldSet
_ExponentialHistogramDataPoint'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
(ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool)
-> (ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool)
-> Eq ExponentialHistogramDataPoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
$c/= :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
== :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
$c== :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
Prelude.Eq, Eq ExponentialHistogramDataPoint
Eq ExponentialHistogramDataPoint
-> (ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Ordering)
-> (ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool)
-> (ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool)
-> (ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool)
-> (ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool)
-> (ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> ExponentialHistogramDataPoint)
-> (ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> ExponentialHistogramDataPoint)
-> Ord ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Ordering
ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> ExponentialHistogramDataPoint
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> ExponentialHistogramDataPoint
$cmin :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> ExponentialHistogramDataPoint
max :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> ExponentialHistogramDataPoint
$cmax :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> ExponentialHistogramDataPoint
>= :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
$c>= :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
> :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
$c> :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
<= :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
$c<= :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
< :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
$c< :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Bool
compare :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Ordering
$ccompare :: ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint -> Ordering
$cp1Ord :: Eq ExponentialHistogramDataPoint
Prelude.Ord)
instance Prelude.Show ExponentialHistogramDataPoint where
showsPrec :: Int -> ExponentialHistogramDataPoint -> ShowS
showsPrec Int
_ ExponentialHistogramDataPoint
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ExponentialHistogramDataPoint -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExponentialHistogramDataPoint
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "attributes" [Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue] where
fieldOf :: Proxy# "attributes"
-> ([KeyValue] -> f [KeyValue])
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "attributes"
_
= ((Vector KeyValue -> f (Vector KeyValue))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> (([KeyValue] -> f [KeyValue])
-> Vector KeyValue -> f (Vector KeyValue))
-> ([KeyValue] -> f [KeyValue])
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Vector KeyValue)
-> (ExponentialHistogramDataPoint
-> Vector KeyValue -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Vector KeyValue)
(Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Vector KeyValue
_ExponentialHistogramDataPoint'attributes
(\ ExponentialHistogramDataPoint
x__ Vector KeyValue
y__
-> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'attributes :: Vector KeyValue
_ExponentialHistogramDataPoint'attributes = Vector KeyValue
y__}))
((Vector KeyValue -> [KeyValue])
-> (Vector KeyValue -> [KeyValue] -> Vector KeyValue)
-> Lens (Vector KeyValue) (Vector KeyValue) [KeyValue] [KeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector KeyValue -> [KeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector KeyValue
_ [KeyValue]
y__ -> [KeyValue] -> Vector KeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [KeyValue]
y__))
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "vec'attributes" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue) where
fieldOf :: Proxy# "vec'attributes"
-> (Vector KeyValue -> f (Vector KeyValue))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "vec'attributes"
_
= ((Vector KeyValue -> f (Vector KeyValue))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue))
-> (Vector KeyValue -> f (Vector KeyValue))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Vector KeyValue)
-> (ExponentialHistogramDataPoint
-> Vector KeyValue -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Vector KeyValue)
(Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Vector KeyValue
_ExponentialHistogramDataPoint'attributes
(\ ExponentialHistogramDataPoint
x__ Vector KeyValue
y__
-> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'attributes :: Vector KeyValue
_ExponentialHistogramDataPoint'attributes = Vector KeyValue
y__}))
(Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "startTimeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "startTimeUnixNano"
-> (Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "startTimeUnixNano"
_
= ((Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Word64)
-> (ExponentialHistogramDataPoint
-> Word64 -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'startTimeUnixNano
(\ ExponentialHistogramDataPoint
x__ Word64
y__
-> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'startTimeUnixNano :: Word64
_ExponentialHistogramDataPoint'startTimeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "timeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "timeUnixNano"
-> (Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "timeUnixNano"
_
= ((Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Word64)
-> (ExponentialHistogramDataPoint
-> Word64 -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'timeUnixNano
(\ ExponentialHistogramDataPoint
x__ Word64
y__
-> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'timeUnixNano :: Word64
_ExponentialHistogramDataPoint'timeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "count" Data.Word.Word64 where
fieldOf :: Proxy# "count"
-> (Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "count"
_
= ((Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Word64)
-> (ExponentialHistogramDataPoint
-> Word64 -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'count
(\ ExponentialHistogramDataPoint
x__ Word64
y__ -> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'count :: Word64
_ExponentialHistogramDataPoint'count = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "sum" Prelude.Double where
fieldOf :: Proxy# "sum"
-> (Double -> f Double)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "sum"
_
= ((Double -> f Double)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Double)
-> (ExponentialHistogramDataPoint
-> Double -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Double
Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Double
_ExponentialHistogramDataPoint'sum
(\ ExponentialHistogramDataPoint
x__ Double
y__ -> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'sum :: Double
_ExponentialHistogramDataPoint'sum = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "scale" Data.Int.Int32 where
fieldOf :: Proxy# "scale"
-> (Int32 -> f Int32)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "scale"
_
= ((Int32 -> f Int32)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Int32)
-> (ExponentialHistogramDataPoint
-> Int32 -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Int32
Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Int32
_ExponentialHistogramDataPoint'scale
(\ ExponentialHistogramDataPoint
x__ Int32
y__ -> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'scale :: Int32
_ExponentialHistogramDataPoint'scale = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "zeroCount" Data.Word.Word64 where
fieldOf :: Proxy# "zeroCount"
-> (Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "zeroCount"
_
= ((Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Word64)
-> (ExponentialHistogramDataPoint
-> Word64 -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'zeroCount
(\ ExponentialHistogramDataPoint
x__ Word64
y__
-> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'zeroCount :: Word64
_ExponentialHistogramDataPoint'zeroCount = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "positive" ExponentialHistogramDataPoint'Buckets where
fieldOf :: Proxy# "positive"
-> (ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "positive"
_
= ((Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets)
-> Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> (ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets)
-> (ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Maybe ExponentialHistogramDataPoint'Buckets)
(Maybe ExponentialHistogramDataPoint'Buckets)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'positive
(\ ExponentialHistogramDataPoint
x__ Maybe ExponentialHistogramDataPoint'Buckets
y__ -> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'positive :: Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'positive = Maybe ExponentialHistogramDataPoint'Buckets
y__}))
(ExponentialHistogramDataPoint'Buckets
-> Lens'
(Maybe ExponentialHistogramDataPoint'Buckets)
ExponentialHistogramDataPoint'Buckets
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExponentialHistogramDataPoint'Buckets
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "maybe'positive" (Prelude.Maybe ExponentialHistogramDataPoint'Buckets) where
fieldOf :: Proxy# "maybe'positive"
-> (Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "maybe'positive"
_
= ((Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> (Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets)
-> (ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Maybe ExponentialHistogramDataPoint'Buckets)
(Maybe ExponentialHistogramDataPoint'Buckets)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'positive
(\ ExponentialHistogramDataPoint
x__ Maybe ExponentialHistogramDataPoint'Buckets
y__ -> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'positive :: Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'positive = Maybe ExponentialHistogramDataPoint'Buckets
y__}))
(Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "negative" ExponentialHistogramDataPoint'Buckets where
fieldOf :: Proxy# "negative"
-> (ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "negative"
_
= ((Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets)
-> Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> (ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets)
-> (ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Maybe ExponentialHistogramDataPoint'Buckets)
(Maybe ExponentialHistogramDataPoint'Buckets)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'negative
(\ ExponentialHistogramDataPoint
x__ Maybe ExponentialHistogramDataPoint'Buckets
y__ -> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'negative :: Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'negative = Maybe ExponentialHistogramDataPoint'Buckets
y__}))
(ExponentialHistogramDataPoint'Buckets
-> Lens'
(Maybe ExponentialHistogramDataPoint'Buckets)
ExponentialHistogramDataPoint'Buckets
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExponentialHistogramDataPoint'Buckets
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "maybe'negative" (Prelude.Maybe ExponentialHistogramDataPoint'Buckets) where
fieldOf :: Proxy# "maybe'negative"
-> (Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "maybe'negative"
_
= ((Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> (Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets)
-> (ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Maybe ExponentialHistogramDataPoint'Buckets)
(Maybe ExponentialHistogramDataPoint'Buckets)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'negative
(\ ExponentialHistogramDataPoint
x__ Maybe ExponentialHistogramDataPoint'Buckets
y__ -> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'negative :: Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'negative = Maybe ExponentialHistogramDataPoint'Buckets
y__}))
(Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets))
-> Maybe ExponentialHistogramDataPoint'Buckets
-> f (Maybe ExponentialHistogramDataPoint'Buckets)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "flags" Data.Word.Word32 where
fieldOf :: Proxy# "flags"
-> (Word32 -> f Word32)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "flags"
_
= ((Word32 -> f Word32)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Word32)
-> (ExponentialHistogramDataPoint
-> Word32 -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word32
Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Word32
_ExponentialHistogramDataPoint'flags
(\ ExponentialHistogramDataPoint
x__ Word32
y__ -> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'flags :: Word32
_ExponentialHistogramDataPoint'flags = Word32
y__}))
(Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "exemplars" [Exemplar] where
fieldOf :: Proxy# "exemplars"
-> ([Exemplar] -> f [Exemplar])
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "exemplars"
_
= ((Vector Exemplar -> f (Vector Exemplar))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> (([Exemplar] -> f [Exemplar])
-> Vector Exemplar -> f (Vector Exemplar))
-> ([Exemplar] -> f [Exemplar])
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Vector Exemplar)
-> (ExponentialHistogramDataPoint
-> Vector Exemplar -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Vector Exemplar)
(Vector Exemplar)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Vector Exemplar
_ExponentialHistogramDataPoint'exemplars
(\ ExponentialHistogramDataPoint
x__ Vector Exemplar
y__
-> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'exemplars :: Vector Exemplar
_ExponentialHistogramDataPoint'exemplars = Vector Exemplar
y__}))
((Vector Exemplar -> [Exemplar])
-> (Vector Exemplar -> [Exemplar] -> Vector Exemplar)
-> Lens (Vector Exemplar) (Vector Exemplar) [Exemplar] [Exemplar]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Exemplar -> [Exemplar]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Exemplar
_ [Exemplar]
y__ -> [Exemplar] -> Vector Exemplar
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Exemplar]
y__))
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint "vec'exemplars" (Data.Vector.Vector Exemplar) where
fieldOf :: Proxy# "vec'exemplars"
-> (Vector Exemplar -> f (Vector Exemplar))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
fieldOf Proxy# "vec'exemplars"
_
= ((Vector Exemplar -> f (Vector Exemplar))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint)
-> ((Vector Exemplar -> f (Vector Exemplar))
-> Vector Exemplar -> f (Vector Exemplar))
-> (Vector Exemplar -> f (Vector Exemplar))
-> ExponentialHistogramDataPoint
-> f ExponentialHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint -> Vector Exemplar)
-> (ExponentialHistogramDataPoint
-> Vector Exemplar -> ExponentialHistogramDataPoint)
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Vector Exemplar)
(Vector Exemplar)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> Vector Exemplar
_ExponentialHistogramDataPoint'exemplars
(\ ExponentialHistogramDataPoint
x__ Vector Exemplar
y__
-> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'exemplars :: Vector Exemplar
_ExponentialHistogramDataPoint'exemplars = Vector Exemplar
y__}))
(Vector Exemplar -> f (Vector Exemplar))
-> Vector Exemplar -> f (Vector Exemplar)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExponentialHistogramDataPoint where
messageName :: Proxy ExponentialHistogramDataPoint -> Text
messageName Proxy ExponentialHistogramDataPoint
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.v1.ExponentialHistogramDataPoint"
packedMessageDescriptor :: Proxy ExponentialHistogramDataPoint -> ByteString
packedMessageDescriptor Proxy ExponentialHistogramDataPoint
_
= ByteString
"\n\
\\GSExponentialHistogramDataPoint\DC2G\n\
\\n\
\attributes\CAN\SOH \ETX(\v2'.opentelemetry.proto.common.v1.KeyValueR\n\
\attributes\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQcount\CAN\EOT \SOH(\ACKR\ENQcount\DC2\DLE\n\
\\ETXsum\CAN\ENQ \SOH(\SOHR\ETXsum\DC2\DC4\n\
\\ENQscale\CAN\ACK \SOH(\DC1R\ENQscale\DC2\GS\n\
\\n\
\zero_count\CAN\a \SOH(\ACKR\tzeroCount\DC2a\n\
\\bpositive\CAN\b \SOH(\v2E.opentelemetry.proto.metrics.v1.ExponentialHistogramDataPoint.BucketsR\bpositive\DC2a\n\
\\bnegative\CAN\t \SOH(\v2E.opentelemetry.proto.metrics.v1.ExponentialHistogramDataPoint.BucketsR\bnegative\DC2\DC4\n\
\\ENQflags\CAN\n\
\ \SOH(\rR\ENQflags\DC2F\n\
\\texemplars\CAN\v \ETX(\v2(.opentelemetry.proto.metrics.v1.ExemplarR\texemplars\SUBF\n\
\\aBuckets\DC2\SYN\n\
\\ACKoffset\CAN\SOH \SOH(\DC1R\ACKoffset\DC2#\n\
\\rbucket_counts\CAN\STX \ETX(\EOTR\fbucketCounts"
packedFileDescriptor :: Proxy ExponentialHistogramDataPoint -> ByteString
packedFileDescriptor Proxy ExponentialHistogramDataPoint
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ExponentialHistogramDataPoint)
fieldsByTag
= let
attributes__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
attributes__field_descriptor
= String
-> FieldTypeDescriptor KeyValue
-> FieldAccessor ExponentialHistogramDataPoint KeyValue
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"attributes"
(MessageOrGroup -> FieldTypeDescriptor KeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue)
(Packing
-> Lens' ExponentialHistogramDataPoint [KeyValue]
-> FieldAccessor ExponentialHistogramDataPoint KeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attributes")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
startTimeUnixNano__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
startTimeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor ExponentialHistogramDataPoint Word64
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> FieldAccessor ExponentialHistogramDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
timeUnixNano__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
timeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor ExponentialHistogramDataPoint Word64
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> FieldAccessor ExponentialHistogramDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
count__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
count__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor ExponentialHistogramDataPoint Word64
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"count"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> FieldAccessor ExponentialHistogramDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
sum__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
sum__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor ExponentialHistogramDataPoint Double
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"sum"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(WireDefault Double
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Double
Double
-> FieldAccessor ExponentialHistogramDataPoint Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
scale__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
scale__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor ExponentialHistogramDataPoint Int32
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"scale"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.SInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(WireDefault Int32
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Int32
Int32
-> FieldAccessor ExponentialHistogramDataPoint Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "scale" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scale")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
zeroCount__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
zeroCount__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor ExponentialHistogramDataPoint Word64
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"zero_count"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> FieldAccessor ExponentialHistogramDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "zeroCount" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"zeroCount")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
positive__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
positive__field_descriptor
= String
-> FieldTypeDescriptor ExponentialHistogramDataPoint'Buckets
-> FieldAccessor
ExponentialHistogramDataPoint ExponentialHistogramDataPoint'Buckets
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"positive"
(MessageOrGroup
-> FieldTypeDescriptor ExponentialHistogramDataPoint'Buckets
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ExponentialHistogramDataPoint'Buckets)
(Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Maybe ExponentialHistogramDataPoint'Buckets)
(Maybe ExponentialHistogramDataPoint'Buckets)
-> FieldAccessor
ExponentialHistogramDataPoint ExponentialHistogramDataPoint'Buckets
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'positive" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'positive")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
negative__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
negative__field_descriptor
= String
-> FieldTypeDescriptor ExponentialHistogramDataPoint'Buckets
-> FieldAccessor
ExponentialHistogramDataPoint ExponentialHistogramDataPoint'Buckets
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"negative"
(MessageOrGroup
-> FieldTypeDescriptor ExponentialHistogramDataPoint'Buckets
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ExponentialHistogramDataPoint'Buckets)
(Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Maybe ExponentialHistogramDataPoint'Buckets)
(Maybe ExponentialHistogramDataPoint'Buckets)
-> FieldAccessor
ExponentialHistogramDataPoint ExponentialHistogramDataPoint'Buckets
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'negative" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'negative")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
flags__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
flags__field_descriptor
= String
-> FieldTypeDescriptor Word32
-> FieldAccessor ExponentialHistogramDataPoint Word32
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"flags"
(ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(WireDefault Word32
-> Lens
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word32
Word32
-> FieldAccessor ExponentialHistogramDataPoint Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
exemplars__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint
exemplars__field_descriptor
= String
-> FieldTypeDescriptor Exemplar
-> FieldAccessor ExponentialHistogramDataPoint Exemplar
-> FieldDescriptor ExponentialHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"exemplars"
(MessageOrGroup -> FieldTypeDescriptor Exemplar
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Exemplar)
(Packing
-> Lens' ExponentialHistogramDataPoint [Exemplar]
-> FieldAccessor ExponentialHistogramDataPoint Exemplar
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exemplars")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint
in
[(Tag, FieldDescriptor ExponentialHistogramDataPoint)]
-> Map Tag (FieldDescriptor ExponentialHistogramDataPoint)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExponentialHistogramDataPoint
attributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExponentialHistogramDataPoint
startTimeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ExponentialHistogramDataPoint
timeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ExponentialHistogramDataPoint
count__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ExponentialHistogramDataPoint
sum__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ExponentialHistogramDataPoint
scale__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor ExponentialHistogramDataPoint
zeroCount__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor ExponentialHistogramDataPoint
positive__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor ExponentialHistogramDataPoint
negative__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor ExponentialHistogramDataPoint
flags__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor ExponentialHistogramDataPoint
exemplars__field_descriptor)]
unknownFields :: LensLike' f ExponentialHistogramDataPoint FieldSet
unknownFields
= (ExponentialHistogramDataPoint -> FieldSet)
-> (ExponentialHistogramDataPoint
-> FieldSet -> ExponentialHistogramDataPoint)
-> Lens' ExponentialHistogramDataPoint FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint -> FieldSet
_ExponentialHistogramDataPoint'_unknownFields
(\ ExponentialHistogramDataPoint
x__ FieldSet
y__
-> ExponentialHistogramDataPoint
x__ {_ExponentialHistogramDataPoint'_unknownFields :: FieldSet
_ExponentialHistogramDataPoint'_unknownFields = FieldSet
y__})
defMessage :: ExponentialHistogramDataPoint
defMessage
= ExponentialHistogramDataPoint'_constructor :: Vector KeyValue
-> Word64
-> Word64
-> Word64
-> Double
-> Int32
-> Word64
-> Maybe ExponentialHistogramDataPoint'Buckets
-> Maybe ExponentialHistogramDataPoint'Buckets
-> Word32
-> Vector Exemplar
-> FieldSet
-> ExponentialHistogramDataPoint
ExponentialHistogramDataPoint'_constructor
{_ExponentialHistogramDataPoint'attributes :: Vector KeyValue
_ExponentialHistogramDataPoint'attributes = Vector KeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ExponentialHistogramDataPoint'startTimeUnixNano :: Word64
_ExponentialHistogramDataPoint'startTimeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ExponentialHistogramDataPoint'timeUnixNano :: Word64
_ExponentialHistogramDataPoint'timeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ExponentialHistogramDataPoint'count :: Word64
_ExponentialHistogramDataPoint'count = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ExponentialHistogramDataPoint'sum :: Double
_ExponentialHistogramDataPoint'sum = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ExponentialHistogramDataPoint'scale :: Int32
_ExponentialHistogramDataPoint'scale = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ExponentialHistogramDataPoint'zeroCount :: Word64
_ExponentialHistogramDataPoint'zeroCount = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ExponentialHistogramDataPoint'positive :: Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'positive = Maybe ExponentialHistogramDataPoint'Buckets
forall a. Maybe a
Prelude.Nothing,
_ExponentialHistogramDataPoint'negative :: Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'negative = Maybe ExponentialHistogramDataPoint'Buckets
forall a. Maybe a
Prelude.Nothing,
_ExponentialHistogramDataPoint'flags :: Word32
_ExponentialHistogramDataPoint'flags = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ExponentialHistogramDataPoint'exemplars :: Vector Exemplar
_ExponentialHistogramDataPoint'exemplars = Vector Exemplar
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ExponentialHistogramDataPoint'_unknownFields :: FieldSet
_ExponentialHistogramDataPoint'_unknownFields = []}
parseMessage :: Parser ExponentialHistogramDataPoint
parseMessage
= let
loop ::
ExponentialHistogramDataPoint
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Exemplar
-> Data.ProtoLens.Encoding.Bytes.Parser ExponentialHistogramDataPoint
loop :: ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop ExponentialHistogramDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector KeyValue
frozen'attributes <- IO (Vector KeyValue) -> Parser (Vector KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) KeyValue -> IO (Vector KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld KeyValue
Growing Vector (PrimState IO) KeyValue
mutable'attributes)
Vector Exemplar
frozen'exemplars <- IO (Vector Exemplar) -> Parser (Vector Exemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Exemplar -> IO (Vector Exemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Exemplar
Growing Vector (PrimState IO) Exemplar
mutable'exemplars)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ExponentialHistogramDataPoint
-> Parser ExponentialHistogramDataPoint
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Vector KeyValue)
(Vector KeyValue)
-> Vector KeyValue
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'attributes") Vector KeyValue
frozen'attributes
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Vector Exemplar)
(Vector Exemplar)
-> Vector Exemplar
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'exemplars") Vector Exemplar
frozen'exemplars ExponentialHistogramDataPoint
x)))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !KeyValue
y <- Parser KeyValue -> String -> Parser KeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser KeyValue -> Parser KeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser KeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"attributes"
Growing Vector RealWorld KeyValue
v <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) KeyValue
-> KeyValue -> IO (Growing Vector (PrimState IO) KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld KeyValue
Growing Vector (PrimState IO) KeyValue
mutable'attributes KeyValue
y)
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop ExponentialHistogramDataPoint
x Growing Vector RealWorld KeyValue
v Growing Vector RealWorld Exemplar
mutable'exemplars
Word64
17
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64
String
"start_time_unix_nano"
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> Word64
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") Word64
y ExponentialHistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
Word64
25
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"time_unix_nano"
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> Word64
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") Word64
y ExponentialHistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
Word64
33
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"count"
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> Word64
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count") Word64
y ExponentialHistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
Word64
41
-> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"sum"
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Double
Double
-> Double
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") Double
y ExponentialHistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
Word64
48
-> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word32 -> Int32) -> Parser Word32 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word32 -> Int32
Data.ProtoLens.Encoding.Bytes.wordToSignedInt32
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"scale"
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Int32
Int32
-> Int32
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "scale" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scale") Int32
y ExponentialHistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
Word64
57
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"zero_count"
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> Word64
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "zeroCount" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"zeroCount") Word64
y ExponentialHistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
Word64
66
-> do ExponentialHistogramDataPoint'Buckets
y <- Parser ExponentialHistogramDataPoint'Buckets
-> String -> Parser ExponentialHistogramDataPoint'Buckets
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser ExponentialHistogramDataPoint'Buckets
-> Parser ExponentialHistogramDataPoint'Buckets
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ExponentialHistogramDataPoint'Buckets
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"positive"
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "positive" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"positive") ExponentialHistogramDataPoint'Buckets
y ExponentialHistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
Word64
74
-> do ExponentialHistogramDataPoint'Buckets
y <- Parser ExponentialHistogramDataPoint'Buckets
-> String -> Parser ExponentialHistogramDataPoint'Buckets
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser ExponentialHistogramDataPoint'Buckets
-> Parser ExponentialHistogramDataPoint'Buckets
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ExponentialHistogramDataPoint'Buckets
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"negative"
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "negative" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"negative") ExponentialHistogramDataPoint'Buckets
y ExponentialHistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
Word64
80
-> do Word32
y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"flags"
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word32
Word32
-> Word32
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags") Word32
y ExponentialHistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
Word64
90
-> do !Exemplar
y <- Parser Exemplar -> String -> Parser Exemplar
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Exemplar -> Parser Exemplar
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser Exemplar
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"exemplars"
Growing Vector RealWorld Exemplar
v <- IO (Growing Vector RealWorld Exemplar)
-> Parser (Growing Vector RealWorld Exemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Exemplar
-> Exemplar -> IO (Growing Vector (PrimState IO) Exemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Exemplar
Growing Vector (PrimState IO) Exemplar
mutable'exemplars Exemplar
y)
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop ExponentialHistogramDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
v
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
(Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> ExponentialHistogramDataPoint
-> ExponentialHistogramDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExponentialHistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
in
Parser ExponentialHistogramDataPoint
-> String -> Parser ExponentialHistogramDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld KeyValue
mutable'attributes <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Exemplar
mutable'exemplars <- IO (Growing Vector RealWorld Exemplar)
-> Parser (Growing Vector RealWorld Exemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Exemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
ExponentialHistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Parser ExponentialHistogramDataPoint
loop
ExponentialHistogramDataPoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars)
String
"ExponentialHistogramDataPoint"
buildMessage :: ExponentialHistogramDataPoint -> Builder
buildMessage
= \ ExponentialHistogramDataPoint
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((KeyValue -> Builder) -> Vector KeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ KeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (KeyValue -> ByteString) -> KeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
KeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage KeyValue
_v))
(FoldLike
(Vector KeyValue)
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Vector KeyValue)
(Vector KeyValue)
-> ExponentialHistogramDataPoint -> Vector KeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'attributes") ExponentialHistogramDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike
Word64
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> ExponentialHistogramDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") ExponentialHistogramDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike
Word64
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> ExponentialHistogramDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") ExponentialHistogramDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
25)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v = FoldLike
Word64
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> ExponentialHistogramDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count") ExponentialHistogramDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
33)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Double
_v = FoldLike
Double
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Double
Double
-> ExponentialHistogramDataPoint -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") ExponentialHistogramDataPoint
_x
in
if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
41)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v = FoldLike
Int32
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Int32
Int32
-> ExponentialHistogramDataPoint -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "scale" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scale") ExponentialHistogramDataPoint
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
48)
((Word32 -> Builder) -> (Int32 -> Word32) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
Int32 -> Word32
Data.ProtoLens.Encoding.Bytes.signedInt32ToWord Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike
Word64
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word64
Word64
-> ExponentialHistogramDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "zeroCount" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"zeroCount") ExponentialHistogramDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
57)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ExponentialHistogramDataPoint'Buckets)
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Maybe ExponentialHistogramDataPoint'Buckets)
(Maybe ExponentialHistogramDataPoint'Buckets)
-> ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'positive" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'positive") ExponentialHistogramDataPoint
_x
of
Maybe ExponentialHistogramDataPoint'Buckets
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just ExponentialHistogramDataPoint'Buckets
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
((ByteString -> Builder)
-> (ExponentialHistogramDataPoint'Buckets -> ByteString)
-> ExponentialHistogramDataPoint'Buckets
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ExponentialHistogramDataPoint'Buckets -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ExponentialHistogramDataPoint'Buckets
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ExponentialHistogramDataPoint'Buckets)
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Maybe ExponentialHistogramDataPoint'Buckets)
(Maybe ExponentialHistogramDataPoint'Buckets)
-> ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'negative" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'negative") ExponentialHistogramDataPoint
_x
of
Maybe ExponentialHistogramDataPoint'Buckets
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just ExponentialHistogramDataPoint'Buckets
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
((ByteString -> Builder)
-> (ExponentialHistogramDataPoint'Buckets -> ByteString)
-> ExponentialHistogramDataPoint'Buckets
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
ByteString
bs))
ExponentialHistogramDataPoint'Buckets -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ExponentialHistogramDataPoint'Buckets
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word32
_v
= FoldLike
Word32
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
Word32
Word32
-> ExponentialHistogramDataPoint -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags") ExponentialHistogramDataPoint
_x
in
if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
80)
((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Exemplar -> Builder) -> Vector Exemplar -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Exemplar
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
((ByteString -> Builder)
-> (Exemplar -> ByteString) -> Exemplar -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
ByteString
bs))
Exemplar -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Exemplar
_v))
(FoldLike
(Vector Exemplar)
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
(Vector Exemplar)
(Vector Exemplar)
-> ExponentialHistogramDataPoint -> Vector Exemplar
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'exemplars") ExponentialHistogramDataPoint
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
FieldSet
FieldSet
-> ExponentialHistogramDataPoint -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike
FieldSet
ExponentialHistogramDataPoint
ExponentialHistogramDataPoint
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ExponentialHistogramDataPoint
_x))))))))))))
instance Control.DeepSeq.NFData ExponentialHistogramDataPoint where
rnf :: ExponentialHistogramDataPoint -> ()
rnf
= \ ExponentialHistogramDataPoint
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint -> FieldSet
_ExponentialHistogramDataPoint'_unknownFields ExponentialHistogramDataPoint
x__)
(Vector KeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint -> Vector KeyValue
_ExponentialHistogramDataPoint'attributes ExponentialHistogramDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'startTimeUnixNano ExponentialHistogramDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'timeUnixNano ExponentialHistogramDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'count ExponentialHistogramDataPoint
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint -> Double
_ExponentialHistogramDataPoint'sum ExponentialHistogramDataPoint
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint -> Int32
_ExponentialHistogramDataPoint'scale ExponentialHistogramDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint -> Word64
_ExponentialHistogramDataPoint'zeroCount ExponentialHistogramDataPoint
x__)
(Maybe ExponentialHistogramDataPoint'Buckets -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'positive ExponentialHistogramDataPoint
x__)
(Maybe ExponentialHistogramDataPoint'Buckets -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint
-> Maybe ExponentialHistogramDataPoint'Buckets
_ExponentialHistogramDataPoint'negative ExponentialHistogramDataPoint
x__)
(Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint -> Word32
_ExponentialHistogramDataPoint'flags ExponentialHistogramDataPoint
x__)
(Vector Exemplar -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint -> Vector Exemplar
_ExponentialHistogramDataPoint'exemplars ExponentialHistogramDataPoint
x__)
())))))))))))
data ExponentialHistogramDataPoint'Buckets
= ExponentialHistogramDataPoint'Buckets'_constructor {ExponentialHistogramDataPoint'Buckets -> Int32
_ExponentialHistogramDataPoint'Buckets'offset :: !Data.Int.Int32,
ExponentialHistogramDataPoint'Buckets -> Vector Word64
_ExponentialHistogramDataPoint'Buckets'bucketCounts :: !(Data.Vector.Unboxed.Vector Data.Word.Word64),
ExponentialHistogramDataPoint'Buckets -> FieldSet
_ExponentialHistogramDataPoint'Buckets'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
(ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool)
-> (ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool)
-> Eq ExponentialHistogramDataPoint'Buckets
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
$c/= :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
== :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
$c== :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
Prelude.Eq, Eq ExponentialHistogramDataPoint'Buckets
Eq ExponentialHistogramDataPoint'Buckets
-> (ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Ordering)
-> (ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool)
-> (ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool)
-> (ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool)
-> (ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool)
-> (ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets)
-> (ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets)
-> Ord ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Ordering
ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
$cmin :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
max :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
$cmax :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
>= :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
$c>= :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
> :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
$c> :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
<= :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
$c<= :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
< :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
$c< :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Bool
compare :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Ordering
$ccompare :: ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets -> Ordering
$cp1Ord :: Eq ExponentialHistogramDataPoint'Buckets
Prelude.Ord)
instance Prelude.Show ExponentialHistogramDataPoint'Buckets where
showsPrec :: Int -> ExponentialHistogramDataPoint'Buckets -> ShowS
showsPrec Int
_ ExponentialHistogramDataPoint'Buckets
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ExponentialHistogramDataPoint'Buckets -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExponentialHistogramDataPoint'Buckets
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint'Buckets "offset" Data.Int.Int32 where
fieldOf :: Proxy# "offset"
-> (Int32 -> f Int32)
-> ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets
fieldOf Proxy# "offset"
_
= ((Int32 -> f Int32)
-> ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint'Buckets -> Int32)
-> (ExponentialHistogramDataPoint'Buckets
-> Int32 -> ExponentialHistogramDataPoint'Buckets)
-> Lens
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
Int32
Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint'Buckets -> Int32
_ExponentialHistogramDataPoint'Buckets'offset
(\ ExponentialHistogramDataPoint'Buckets
x__ Int32
y__
-> ExponentialHistogramDataPoint'Buckets
x__ {_ExponentialHistogramDataPoint'Buckets'offset :: Int32
_ExponentialHistogramDataPoint'Buckets'offset = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint'Buckets "bucketCounts" [Data.Word.Word64] where
fieldOf :: Proxy# "bucketCounts"
-> ([Word64] -> f [Word64])
-> ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets
fieldOf Proxy# "bucketCounts"
_
= ((Vector Word64 -> f (Vector Word64))
-> ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets)
-> (([Word64] -> f [Word64]) -> Vector Word64 -> f (Vector Word64))
-> ([Word64] -> f [Word64])
-> ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint'Buckets -> Vector Word64)
-> (ExponentialHistogramDataPoint'Buckets
-> Vector Word64 -> ExponentialHistogramDataPoint'Buckets)
-> Lens
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
(Vector Word64)
(Vector Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint'Buckets -> Vector Word64
_ExponentialHistogramDataPoint'Buckets'bucketCounts
(\ ExponentialHistogramDataPoint'Buckets
x__ Vector Word64
y__
-> ExponentialHistogramDataPoint'Buckets
x__
{_ExponentialHistogramDataPoint'Buckets'bucketCounts :: Vector Word64
_ExponentialHistogramDataPoint'Buckets'bucketCounts = Vector Word64
y__}))
((Vector Word64 -> [Word64])
-> (Vector Word64 -> [Word64] -> Vector Word64)
-> Lens (Vector Word64) (Vector Word64) [Word64] [Word64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Word64 -> [Word64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Word64
_ [Word64]
y__ -> [Word64] -> Vector Word64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Word64]
y__))
instance Data.ProtoLens.Field.HasField ExponentialHistogramDataPoint'Buckets "vec'bucketCounts" (Data.Vector.Unboxed.Vector Data.Word.Word64) where
fieldOf :: Proxy# "vec'bucketCounts"
-> (Vector Word64 -> f (Vector Word64))
-> ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets
fieldOf Proxy# "vec'bucketCounts"
_
= ((Vector Word64 -> f (Vector Word64))
-> ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets)
-> ((Vector Word64 -> f (Vector Word64))
-> Vector Word64 -> f (Vector Word64))
-> (Vector Word64 -> f (Vector Word64))
-> ExponentialHistogramDataPoint'Buckets
-> f ExponentialHistogramDataPoint'Buckets
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExponentialHistogramDataPoint'Buckets -> Vector Word64)
-> (ExponentialHistogramDataPoint'Buckets
-> Vector Word64 -> ExponentialHistogramDataPoint'Buckets)
-> Lens
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
(Vector Word64)
(Vector Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint'Buckets -> Vector Word64
_ExponentialHistogramDataPoint'Buckets'bucketCounts
(\ ExponentialHistogramDataPoint'Buckets
x__ Vector Word64
y__
-> ExponentialHistogramDataPoint'Buckets
x__
{_ExponentialHistogramDataPoint'Buckets'bucketCounts :: Vector Word64
_ExponentialHistogramDataPoint'Buckets'bucketCounts = Vector Word64
y__}))
(Vector Word64 -> f (Vector Word64))
-> Vector Word64 -> f (Vector Word64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExponentialHistogramDataPoint'Buckets where
messageName :: Proxy ExponentialHistogramDataPoint'Buckets -> Text
messageName Proxy ExponentialHistogramDataPoint'Buckets
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.v1.ExponentialHistogramDataPoint.Buckets"
packedMessageDescriptor :: Proxy ExponentialHistogramDataPoint'Buckets -> ByteString
packedMessageDescriptor Proxy ExponentialHistogramDataPoint'Buckets
_
= ByteString
"\n\
\\aBuckets\DC2\SYN\n\
\\ACKoffset\CAN\SOH \SOH(\DC1R\ACKoffset\DC2#\n\
\\rbucket_counts\CAN\STX \ETX(\EOTR\fbucketCounts"
packedFileDescriptor :: Proxy ExponentialHistogramDataPoint'Buckets -> ByteString
packedFileDescriptor Proxy ExponentialHistogramDataPoint'Buckets
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ExponentialHistogramDataPoint'Buckets)
fieldsByTag
= let
offset__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint'Buckets
offset__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor ExponentialHistogramDataPoint'Buckets Int32
-> FieldDescriptor ExponentialHistogramDataPoint'Buckets
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"offset"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.SInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(WireDefault Int32
-> Lens
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
Int32
Int32
-> FieldAccessor ExponentialHistogramDataPoint'Buckets Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "offset" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"offset")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint'Buckets
bucketCounts__field_descriptor :: FieldDescriptor ExponentialHistogramDataPoint'Buckets
bucketCounts__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor ExponentialHistogramDataPoint'Buckets Word64
-> FieldDescriptor ExponentialHistogramDataPoint'Buckets
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"bucket_counts"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Packing
-> Lens' ExponentialHistogramDataPoint'Buckets [Word64]
-> FieldAccessor ExponentialHistogramDataPoint'Buckets Word64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "bucketCounts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bucketCounts")) ::
Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint'Buckets
in
[(Tag, FieldDescriptor ExponentialHistogramDataPoint'Buckets)]
-> Map Tag (FieldDescriptor ExponentialHistogramDataPoint'Buckets)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExponentialHistogramDataPoint'Buckets
offset__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExponentialHistogramDataPoint'Buckets
bucketCounts__field_descriptor)]
unknownFields :: LensLike' f ExponentialHistogramDataPoint'Buckets FieldSet
unknownFields
= (ExponentialHistogramDataPoint'Buckets -> FieldSet)
-> (ExponentialHistogramDataPoint'Buckets
-> FieldSet -> ExponentialHistogramDataPoint'Buckets)
-> Lens' ExponentialHistogramDataPoint'Buckets FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExponentialHistogramDataPoint'Buckets -> FieldSet
_ExponentialHistogramDataPoint'Buckets'_unknownFields
(\ ExponentialHistogramDataPoint'Buckets
x__ FieldSet
y__
-> ExponentialHistogramDataPoint'Buckets
x__
{_ExponentialHistogramDataPoint'Buckets'_unknownFields :: FieldSet
_ExponentialHistogramDataPoint'Buckets'_unknownFields = FieldSet
y__})
defMessage :: ExponentialHistogramDataPoint'Buckets
defMessage
= ExponentialHistogramDataPoint'Buckets'_constructor :: Int32
-> Vector Word64
-> FieldSet
-> ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets'_constructor
{_ExponentialHistogramDataPoint'Buckets'offset :: Int32
_ExponentialHistogramDataPoint'Buckets'offset = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ExponentialHistogramDataPoint'Buckets'bucketCounts :: Vector Word64
_ExponentialHistogramDataPoint'Buckets'bucketCounts = Vector Word64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ExponentialHistogramDataPoint'Buckets'_unknownFields :: FieldSet
_ExponentialHistogramDataPoint'Buckets'_unknownFields = []}
parseMessage :: Parser ExponentialHistogramDataPoint'Buckets
parseMessage
= let
loop ::
ExponentialHistogramDataPoint'Buckets
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Word.Word64
-> Data.ProtoLens.Encoding.Bytes.Parser ExponentialHistogramDataPoint'Buckets
loop :: ExponentialHistogramDataPoint'Buckets
-> Growing Vector RealWorld Word64
-> Parser ExponentialHistogramDataPoint'Buckets
loop ExponentialHistogramDataPoint'Buckets
x Growing Vector RealWorld Word64
mutable'bucketCounts
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Word64
frozen'bucketCounts <- IO (Vector Word64) -> Parser (Vector Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Word64 -> IO (Vector Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Word64
Growing Vector (PrimState IO) Word64
mutable'bucketCounts)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ExponentialHistogramDataPoint'Buckets
-> Parser ExponentialHistogramDataPoint'Buckets
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
(Vector Word64)
(Vector Word64)
-> Vector Word64
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'bucketCounts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'bucketCounts")
Vector Word64
frozen'bucketCounts ExponentialHistogramDataPoint'Buckets
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word32 -> Int32) -> Parser Word32 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word32 -> Int32
Data.ProtoLens.Encoding.Bytes.wordToSignedInt32
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"offset"
ExponentialHistogramDataPoint'Buckets
-> Growing Vector RealWorld Word64
-> Parser ExponentialHistogramDataPoint'Buckets
loop
(Setter
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
Int32
Int32
-> Int32
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "offset" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"offset") Int32
y ExponentialHistogramDataPoint'Buckets
x)
Growing Vector RealWorld Word64
mutable'bucketCounts
Word64
16
-> do !Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"bucket_counts"
Growing Vector RealWorld Word64
v <- IO (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Word64
-> Word64 -> IO (Growing Vector (PrimState IO) Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld Word64
Growing Vector (PrimState IO) Word64
mutable'bucketCounts Word64
y)
ExponentialHistogramDataPoint'Buckets
-> Growing Vector RealWorld Word64
-> Parser ExponentialHistogramDataPoint'Buckets
loop ExponentialHistogramDataPoint'Buckets
x Growing Vector RealWorld Word64
v
Word64
18
-> do Growing Vector RealWorld Word64
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop Growing v RealWorld Word64
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Word64
qs
else
do !Word64
q <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
String
"bucket_counts"
Growing v RealWorld Word64
qs' <- IO (Growing v RealWorld Word64)
-> Parser (Growing v RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Word64
-> Word64 -> IO (Growing v (PrimState IO) Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld Word64
Growing v (PrimState IO) Word64
qs Word64
q)
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop Growing v RealWorld Word64
qs'
in forall (v :: * -> *).
Vector v Word64 =>
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop)
Growing Vector RealWorld Word64
mutable'bucketCounts)
ExponentialHistogramDataPoint'Buckets
-> Growing Vector RealWorld Word64
-> Parser ExponentialHistogramDataPoint'Buckets
loop ExponentialHistogramDataPoint'Buckets
x Growing Vector RealWorld Word64
y
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ExponentialHistogramDataPoint'Buckets
-> Growing Vector RealWorld Word64
-> Parser ExponentialHistogramDataPoint'Buckets
loop
(Setter
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> ExponentialHistogramDataPoint'Buckets
-> ExponentialHistogramDataPoint'Buckets
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExponentialHistogramDataPoint'Buckets
x)
Growing Vector RealWorld Word64
mutable'bucketCounts
in
Parser ExponentialHistogramDataPoint'Buckets
-> String -> Parser ExponentialHistogramDataPoint'Buckets
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Word64
mutable'bucketCounts <- IO (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
ExponentialHistogramDataPoint'Buckets
-> Growing Vector RealWorld Word64
-> Parser ExponentialHistogramDataPoint'Buckets
loop ExponentialHistogramDataPoint'Buckets
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Word64
mutable'bucketCounts)
String
"Buckets"
buildMessage :: ExponentialHistogramDataPoint'Buckets -> Builder
buildMessage
= \ ExponentialHistogramDataPoint'Buckets
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v = FoldLike
Int32
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
Int32
Int32
-> ExponentialHistogramDataPoint'Buckets -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "offset" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"offset") ExponentialHistogramDataPoint'Buckets
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
((Word32 -> Builder) -> (Int32 -> Word32) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
Int32 -> Word32
Data.ProtoLens.Encoding.Bytes.signedInt32ToWord Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Word64
p = FoldLike
(Vector Word64)
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
(Vector Word64)
(Vector Word64)
-> ExponentialHistogramDataPoint'Buckets -> Vector Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'bucketCounts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'bucketCounts") ExponentialHistogramDataPoint'Buckets
_x
in
if Vector Word64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Word64
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Word64 -> Builder) -> Vector Word64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Vector Word64
p))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
FieldSet
FieldSet
-> ExponentialHistogramDataPoint'Buckets -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ExponentialHistogramDataPoint'Buckets
ExponentialHistogramDataPoint'Buckets
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ExponentialHistogramDataPoint'Buckets
_x)))
instance Control.DeepSeq.NFData ExponentialHistogramDataPoint'Buckets where
rnf :: ExponentialHistogramDataPoint'Buckets -> ()
rnf
= \ ExponentialHistogramDataPoint'Buckets
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint'Buckets -> FieldSet
_ExponentialHistogramDataPoint'Buckets'_unknownFields ExponentialHistogramDataPoint'Buckets
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint'Buckets -> Int32
_ExponentialHistogramDataPoint'Buckets'offset ExponentialHistogramDataPoint'Buckets
x__)
(Vector Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExponentialHistogramDataPoint'Buckets -> Vector Word64
_ExponentialHistogramDataPoint'Buckets'bucketCounts ExponentialHistogramDataPoint'Buckets
x__) ()))
data Gauge
= Gauge'_constructor {Gauge -> Vector NumberDataPoint
_Gauge'dataPoints :: !(Data.Vector.Vector NumberDataPoint),
Gauge -> FieldSet
_Gauge'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Gauge -> Gauge -> Bool
(Gauge -> Gauge -> Bool) -> (Gauge -> Gauge -> Bool) -> Eq Gauge
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Gauge -> Gauge -> Bool
$c/= :: Gauge -> Gauge -> Bool
== :: Gauge -> Gauge -> Bool
$c== :: Gauge -> Gauge -> Bool
Prelude.Eq, Eq Gauge
Eq Gauge
-> (Gauge -> Gauge -> Ordering)
-> (Gauge -> Gauge -> Bool)
-> (Gauge -> Gauge -> Bool)
-> (Gauge -> Gauge -> Bool)
-> (Gauge -> Gauge -> Bool)
-> (Gauge -> Gauge -> Gauge)
-> (Gauge -> Gauge -> Gauge)
-> Ord Gauge
Gauge -> Gauge -> Bool
Gauge -> Gauge -> Ordering
Gauge -> Gauge -> Gauge
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Gauge -> Gauge -> Gauge
$cmin :: Gauge -> Gauge -> Gauge
max :: Gauge -> Gauge -> Gauge
$cmax :: Gauge -> Gauge -> Gauge
>= :: Gauge -> Gauge -> Bool
$c>= :: Gauge -> Gauge -> Bool
> :: Gauge -> Gauge -> Bool
$c> :: Gauge -> Gauge -> Bool
<= :: Gauge -> Gauge -> Bool
$c<= :: Gauge -> Gauge -> Bool
< :: Gauge -> Gauge -> Bool
$c< :: Gauge -> Gauge -> Bool
compare :: Gauge -> Gauge -> Ordering
$ccompare :: Gauge -> Gauge -> Ordering
$cp1Ord :: Eq Gauge
Prelude.Ord)
instance Prelude.Show Gauge where
showsPrec :: Int -> Gauge -> ShowS
showsPrec Int
_ Gauge
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Gauge -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Gauge
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Gauge "dataPoints" [NumberDataPoint] where
fieldOf :: Proxy# "dataPoints"
-> ([NumberDataPoint] -> f [NumberDataPoint]) -> Gauge -> f Gauge
fieldOf Proxy# "dataPoints"
_
= ((Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Gauge -> f Gauge)
-> (([NumberDataPoint] -> f [NumberDataPoint])
-> Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> ([NumberDataPoint] -> f [NumberDataPoint])
-> Gauge
-> f Gauge
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Gauge -> Vector NumberDataPoint)
-> (Gauge -> Vector NumberDataPoint -> Gauge)
-> Lens
Gauge Gauge (Vector NumberDataPoint) (Vector NumberDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Gauge -> Vector NumberDataPoint
_Gauge'dataPoints (\ Gauge
x__ Vector NumberDataPoint
y__ -> Gauge
x__ {_Gauge'dataPoints :: Vector NumberDataPoint
_Gauge'dataPoints = Vector NumberDataPoint
y__}))
((Vector NumberDataPoint -> [NumberDataPoint])
-> (Vector NumberDataPoint
-> [NumberDataPoint] -> Vector NumberDataPoint)
-> Lens
(Vector NumberDataPoint)
(Vector NumberDataPoint)
[NumberDataPoint]
[NumberDataPoint]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector NumberDataPoint -> [NumberDataPoint]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector NumberDataPoint
_ [NumberDataPoint]
y__ -> [NumberDataPoint] -> Vector NumberDataPoint
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [NumberDataPoint]
y__))
instance Data.ProtoLens.Field.HasField Gauge "vec'dataPoints" (Data.Vector.Vector NumberDataPoint) where
fieldOf :: Proxy# "vec'dataPoints"
-> (Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Gauge
-> f Gauge
fieldOf Proxy# "vec'dataPoints"
_
= ((Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Gauge -> f Gauge)
-> ((Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> (Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Gauge
-> f Gauge
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Gauge -> Vector NumberDataPoint)
-> (Gauge -> Vector NumberDataPoint -> Gauge)
-> Lens
Gauge Gauge (Vector NumberDataPoint) (Vector NumberDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Gauge -> Vector NumberDataPoint
_Gauge'dataPoints (\ Gauge
x__ Vector NumberDataPoint
y__ -> Gauge
x__ {_Gauge'dataPoints :: Vector NumberDataPoint
_Gauge'dataPoints = Vector NumberDataPoint
y__}))
(Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Vector NumberDataPoint -> f (Vector NumberDataPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Gauge where
messageName :: Proxy Gauge -> Text
messageName Proxy Gauge
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.Gauge"
packedMessageDescriptor :: Proxy Gauge -> ByteString
packedMessageDescriptor Proxy Gauge
_
= ByteString
"\n\
\\ENQGauge\DC2P\n\
\\vdata_points\CAN\SOH \ETX(\v2/.opentelemetry.proto.metrics.v1.NumberDataPointR\n\
\dataPoints"
packedFileDescriptor :: Proxy Gauge -> ByteString
packedFileDescriptor Proxy Gauge
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Gauge)
fieldsByTag
= let
dataPoints__field_descriptor :: FieldDescriptor Gauge
dataPoints__field_descriptor
= String
-> FieldTypeDescriptor NumberDataPoint
-> FieldAccessor Gauge NumberDataPoint
-> FieldDescriptor Gauge
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"data_points"
(MessageOrGroup -> FieldTypeDescriptor NumberDataPoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor NumberDataPoint)
(Packing
-> Lens' Gauge [NumberDataPoint]
-> FieldAccessor Gauge NumberDataPoint
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataPoints")) ::
Data.ProtoLens.FieldDescriptor Gauge
in
[(Tag, FieldDescriptor Gauge)] -> Map Tag (FieldDescriptor Gauge)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Gauge
dataPoints__field_descriptor)]
unknownFields :: LensLike' f Gauge FieldSet
unknownFields
= (Gauge -> FieldSet)
-> (Gauge -> FieldSet -> Gauge) -> Lens' Gauge FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Gauge -> FieldSet
_Gauge'_unknownFields
(\ Gauge
x__ FieldSet
y__ -> Gauge
x__ {_Gauge'_unknownFields :: FieldSet
_Gauge'_unknownFields = FieldSet
y__})
defMessage :: Gauge
defMessage
= Gauge'_constructor :: Vector NumberDataPoint -> FieldSet -> Gauge
Gauge'_constructor
{_Gauge'dataPoints :: Vector NumberDataPoint
_Gauge'dataPoints = Vector NumberDataPoint
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_Gauge'_unknownFields :: FieldSet
_Gauge'_unknownFields = []}
parseMessage :: Parser Gauge
parseMessage
= let
loop ::
Gauge
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NumberDataPoint
-> Data.ProtoLens.Encoding.Bytes.Parser Gauge
loop :: Gauge -> Growing Vector RealWorld NumberDataPoint -> Parser Gauge
loop Gauge
x Growing Vector RealWorld NumberDataPoint
mutable'dataPoints
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector NumberDataPoint
frozen'dataPoints <- IO (Vector NumberDataPoint) -> Parser (Vector NumberDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) NumberDataPoint
-> IO (Vector NumberDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld NumberDataPoint
Growing Vector (PrimState IO) NumberDataPoint
mutable'dataPoints)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
Gauge -> Parser Gauge
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Gauge Gauge FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Gauge -> Gauge
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Gauge Gauge FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
Gauge Gauge (Vector NumberDataPoint) (Vector NumberDataPoint)
-> Vector NumberDataPoint -> Gauge -> Gauge
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Vector NumberDataPoint
frozen'dataPoints
Gauge
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !NumberDataPoint
y <- Parser NumberDataPoint -> String -> Parser NumberDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser NumberDataPoint -> Parser NumberDataPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser NumberDataPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"data_points"
Growing Vector RealWorld NumberDataPoint
v <- IO (Growing Vector RealWorld NumberDataPoint)
-> Parser (Growing Vector RealWorld NumberDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) NumberDataPoint
-> NumberDataPoint
-> IO (Growing Vector (PrimState IO) NumberDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld NumberDataPoint
Growing Vector (PrimState IO) NumberDataPoint
mutable'dataPoints NumberDataPoint
y)
Gauge -> Growing Vector RealWorld NumberDataPoint -> Parser Gauge
loop Gauge
x Growing Vector RealWorld NumberDataPoint
v
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Gauge -> Growing Vector RealWorld NumberDataPoint -> Parser Gauge
loop
(Setter Gauge Gauge FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Gauge -> Gauge
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Gauge Gauge FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Gauge
x)
Growing Vector RealWorld NumberDataPoint
mutable'dataPoints
in
Parser Gauge -> String -> Parser Gauge
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld NumberDataPoint
mutable'dataPoints <- IO (Growing Vector RealWorld NumberDataPoint)
-> Parser (Growing Vector RealWorld NumberDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld NumberDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Gauge -> Growing Vector RealWorld NumberDataPoint -> Parser Gauge
loop Gauge
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld NumberDataPoint
mutable'dataPoints)
String
"Gauge"
buildMessage :: Gauge -> Builder
buildMessage
= \ Gauge
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((NumberDataPoint -> Builder) -> Vector NumberDataPoint -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ NumberDataPoint
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (NumberDataPoint -> ByteString) -> NumberDataPoint -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
NumberDataPoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage NumberDataPoint
_v))
(FoldLike
(Vector NumberDataPoint)
Gauge
Gauge
(Vector NumberDataPoint)
(Vector NumberDataPoint)
-> Gauge -> Vector NumberDataPoint
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Gauge
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Gauge Gauge FieldSet FieldSet
-> Gauge -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Gauge Gauge FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Gauge
_x))
instance Control.DeepSeq.NFData Gauge where
rnf :: Gauge -> ()
rnf
= \ Gauge
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Gauge -> FieldSet
_Gauge'_unknownFields Gauge
x__)
(Vector NumberDataPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Gauge -> Vector NumberDataPoint
_Gauge'dataPoints Gauge
x__) ())
data Histogram
= Histogram'_constructor {Histogram -> Vector HistogramDataPoint
_Histogram'dataPoints :: !(Data.Vector.Vector HistogramDataPoint),
Histogram -> AggregationTemporality
_Histogram'aggregationTemporality :: !AggregationTemporality,
Histogram -> FieldSet
_Histogram'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Histogram -> Histogram -> Bool
(Histogram -> Histogram -> Bool)
-> (Histogram -> Histogram -> Bool) -> Eq Histogram
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Histogram -> Histogram -> Bool
$c/= :: Histogram -> Histogram -> Bool
== :: Histogram -> Histogram -> Bool
$c== :: Histogram -> Histogram -> Bool
Prelude.Eq, Eq Histogram
Eq Histogram
-> (Histogram -> Histogram -> Ordering)
-> (Histogram -> Histogram -> Bool)
-> (Histogram -> Histogram -> Bool)
-> (Histogram -> Histogram -> Bool)
-> (Histogram -> Histogram -> Bool)
-> (Histogram -> Histogram -> Histogram)
-> (Histogram -> Histogram -> Histogram)
-> Ord Histogram
Histogram -> Histogram -> Bool
Histogram -> Histogram -> Ordering
Histogram -> Histogram -> Histogram
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Histogram -> Histogram -> Histogram
$cmin :: Histogram -> Histogram -> Histogram
max :: Histogram -> Histogram -> Histogram
$cmax :: Histogram -> Histogram -> Histogram
>= :: Histogram -> Histogram -> Bool
$c>= :: Histogram -> Histogram -> Bool
> :: Histogram -> Histogram -> Bool
$c> :: Histogram -> Histogram -> Bool
<= :: Histogram -> Histogram -> Bool
$c<= :: Histogram -> Histogram -> Bool
< :: Histogram -> Histogram -> Bool
$c< :: Histogram -> Histogram -> Bool
compare :: Histogram -> Histogram -> Ordering
$ccompare :: Histogram -> Histogram -> Ordering
$cp1Ord :: Eq Histogram
Prelude.Ord)
instance Prelude.Show Histogram where
showsPrec :: Int -> Histogram -> ShowS
showsPrec Int
_ Histogram
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Histogram -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Histogram
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Histogram "dataPoints" [HistogramDataPoint] where
fieldOf :: Proxy# "dataPoints"
-> ([HistogramDataPoint] -> f [HistogramDataPoint])
-> Histogram
-> f Histogram
fieldOf Proxy# "dataPoints"
_
= ((Vector HistogramDataPoint -> f (Vector HistogramDataPoint))
-> Histogram -> f Histogram)
-> (([HistogramDataPoint] -> f [HistogramDataPoint])
-> Vector HistogramDataPoint -> f (Vector HistogramDataPoint))
-> ([HistogramDataPoint] -> f [HistogramDataPoint])
-> Histogram
-> f Histogram
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Histogram -> Vector HistogramDataPoint)
-> (Histogram -> Vector HistogramDataPoint -> Histogram)
-> Lens
Histogram
Histogram
(Vector HistogramDataPoint)
(Vector HistogramDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Histogram -> Vector HistogramDataPoint
_Histogram'dataPoints
(\ Histogram
x__ Vector HistogramDataPoint
y__ -> Histogram
x__ {_Histogram'dataPoints :: Vector HistogramDataPoint
_Histogram'dataPoints = Vector HistogramDataPoint
y__}))
((Vector HistogramDataPoint -> [HistogramDataPoint])
-> (Vector HistogramDataPoint
-> [HistogramDataPoint] -> Vector HistogramDataPoint)
-> Lens
(Vector HistogramDataPoint)
(Vector HistogramDataPoint)
[HistogramDataPoint]
[HistogramDataPoint]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector HistogramDataPoint -> [HistogramDataPoint]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector HistogramDataPoint
_ [HistogramDataPoint]
y__ -> [HistogramDataPoint] -> Vector HistogramDataPoint
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [HistogramDataPoint]
y__))
instance Data.ProtoLens.Field.HasField Histogram "vec'dataPoints" (Data.Vector.Vector HistogramDataPoint) where
fieldOf :: Proxy# "vec'dataPoints"
-> (Vector HistogramDataPoint -> f (Vector HistogramDataPoint))
-> Histogram
-> f Histogram
fieldOf Proxy# "vec'dataPoints"
_
= ((Vector HistogramDataPoint -> f (Vector HistogramDataPoint))
-> Histogram -> f Histogram)
-> ((Vector HistogramDataPoint -> f (Vector HistogramDataPoint))
-> Vector HistogramDataPoint -> f (Vector HistogramDataPoint))
-> (Vector HistogramDataPoint -> f (Vector HistogramDataPoint))
-> Histogram
-> f Histogram
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Histogram -> Vector HistogramDataPoint)
-> (Histogram -> Vector HistogramDataPoint -> Histogram)
-> Lens
Histogram
Histogram
(Vector HistogramDataPoint)
(Vector HistogramDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Histogram -> Vector HistogramDataPoint
_Histogram'dataPoints
(\ Histogram
x__ Vector HistogramDataPoint
y__ -> Histogram
x__ {_Histogram'dataPoints :: Vector HistogramDataPoint
_Histogram'dataPoints = Vector HistogramDataPoint
y__}))
(Vector HistogramDataPoint -> f (Vector HistogramDataPoint))
-> Vector HistogramDataPoint -> f (Vector HistogramDataPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Histogram "aggregationTemporality" AggregationTemporality where
fieldOf :: Proxy# "aggregationTemporality"
-> (AggregationTemporality -> f AggregationTemporality)
-> Histogram
-> f Histogram
fieldOf Proxy# "aggregationTemporality"
_
= ((AggregationTemporality -> f AggregationTemporality)
-> Histogram -> f Histogram)
-> ((AggregationTemporality -> f AggregationTemporality)
-> AggregationTemporality -> f AggregationTemporality)
-> (AggregationTemporality -> f AggregationTemporality)
-> Histogram
-> f Histogram
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Histogram -> AggregationTemporality)
-> (Histogram -> AggregationTemporality -> Histogram)
-> Lens
Histogram Histogram AggregationTemporality AggregationTemporality
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Histogram -> AggregationTemporality
_Histogram'aggregationTemporality
(\ Histogram
x__ AggregationTemporality
y__ -> Histogram
x__ {_Histogram'aggregationTemporality :: AggregationTemporality
_Histogram'aggregationTemporality = AggregationTemporality
y__}))
(AggregationTemporality -> f AggregationTemporality)
-> AggregationTemporality -> f AggregationTemporality
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Histogram where
messageName :: Proxy Histogram -> Text
messageName Proxy Histogram
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.Histogram"
packedMessageDescriptor :: Proxy Histogram -> ByteString
packedMessageDescriptor Proxy Histogram
_
= ByteString
"\n\
\\tHistogram\DC2S\n\
\\vdata_points\CAN\SOH \ETX(\v22.opentelemetry.proto.metrics.v1.HistogramDataPointR\n\
\dataPoints\DC2o\n\
\\ETBaggregation_temporality\CAN\STX \SOH(\SO26.opentelemetry.proto.metrics.v1.AggregationTemporalityR\SYNaggregationTemporality"
packedFileDescriptor :: Proxy Histogram -> ByteString
packedFileDescriptor Proxy Histogram
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Histogram)
fieldsByTag
= let
dataPoints__field_descriptor :: FieldDescriptor Histogram
dataPoints__field_descriptor
= String
-> FieldTypeDescriptor HistogramDataPoint
-> FieldAccessor Histogram HistogramDataPoint
-> FieldDescriptor Histogram
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"data_points"
(MessageOrGroup -> FieldTypeDescriptor HistogramDataPoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor HistogramDataPoint)
(Packing
-> Lens' Histogram [HistogramDataPoint]
-> FieldAccessor Histogram HistogramDataPoint
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataPoints")) ::
Data.ProtoLens.FieldDescriptor Histogram
aggregationTemporality__field_descriptor :: FieldDescriptor Histogram
aggregationTemporality__field_descriptor
= String
-> FieldTypeDescriptor AggregationTemporality
-> FieldAccessor Histogram AggregationTemporality
-> FieldDescriptor Histogram
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"aggregation_temporality"
(ScalarField AggregationTemporality
-> FieldTypeDescriptor AggregationTemporality
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField AggregationTemporality
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor AggregationTemporality)
(WireDefault AggregationTemporality
-> Lens
Histogram Histogram AggregationTemporality AggregationTemporality
-> FieldAccessor Histogram AggregationTemporality
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault AggregationTemporality
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality")) ::
Data.ProtoLens.FieldDescriptor Histogram
in
[(Tag, FieldDescriptor Histogram)]
-> Map Tag (FieldDescriptor Histogram)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Histogram
dataPoints__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Histogram
aggregationTemporality__field_descriptor)]
unknownFields :: LensLike' f Histogram FieldSet
unknownFields
= (Histogram -> FieldSet)
-> (Histogram -> FieldSet -> Histogram) -> Lens' Histogram FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Histogram -> FieldSet
_Histogram'_unknownFields
(\ Histogram
x__ FieldSet
y__ -> Histogram
x__ {_Histogram'_unknownFields :: FieldSet
_Histogram'_unknownFields = FieldSet
y__})
defMessage :: Histogram
defMessage
= Histogram'_constructor :: Vector HistogramDataPoint
-> AggregationTemporality -> FieldSet -> Histogram
Histogram'_constructor
{_Histogram'dataPoints :: Vector HistogramDataPoint
_Histogram'dataPoints = Vector HistogramDataPoint
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_Histogram'aggregationTemporality :: AggregationTemporality
_Histogram'aggregationTemporality = AggregationTemporality
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Histogram'_unknownFields :: FieldSet
_Histogram'_unknownFields = []}
parseMessage :: Parser Histogram
parseMessage
= let
loop ::
Histogram
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld HistogramDataPoint
-> Data.ProtoLens.Encoding.Bytes.Parser Histogram
loop :: Histogram
-> Growing Vector RealWorld HistogramDataPoint -> Parser Histogram
loop Histogram
x Growing Vector RealWorld HistogramDataPoint
mutable'dataPoints
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector HistogramDataPoint
frozen'dataPoints <- IO (Vector HistogramDataPoint)
-> Parser (Vector HistogramDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) HistogramDataPoint
-> IO (Vector HistogramDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld HistogramDataPoint
Growing Vector (PrimState IO) HistogramDataPoint
mutable'dataPoints)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
Histogram -> Parser Histogram
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Histogram Histogram FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Histogram -> Histogram
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Histogram Histogram FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
Histogram
Histogram
(Vector HistogramDataPoint)
(Vector HistogramDataPoint)
-> Vector HistogramDataPoint -> Histogram -> Histogram
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Vector HistogramDataPoint
frozen'dataPoints
Histogram
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !HistogramDataPoint
y <- Parser HistogramDataPoint -> String -> Parser HistogramDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser HistogramDataPoint -> Parser HistogramDataPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser HistogramDataPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"data_points"
Growing Vector RealWorld HistogramDataPoint
v <- IO (Growing Vector RealWorld HistogramDataPoint)
-> Parser (Growing Vector RealWorld HistogramDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) HistogramDataPoint
-> HistogramDataPoint
-> IO (Growing Vector (PrimState IO) HistogramDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld HistogramDataPoint
Growing Vector (PrimState IO) HistogramDataPoint
mutable'dataPoints HistogramDataPoint
y)
Histogram
-> Growing Vector RealWorld HistogramDataPoint -> Parser Histogram
loop Histogram
x Growing Vector RealWorld HistogramDataPoint
v
Word64
16
-> do AggregationTemporality
y <- Parser AggregationTemporality
-> String -> Parser AggregationTemporality
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> AggregationTemporality)
-> Parser Int -> Parser AggregationTemporality
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> AggregationTemporality
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"aggregation_temporality"
Histogram
-> Growing Vector RealWorld HistogramDataPoint -> Parser Histogram
loop
(Setter
Histogram Histogram AggregationTemporality AggregationTemporality
-> AggregationTemporality -> Histogram -> Histogram
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality") AggregationTemporality
y Histogram
x)
Growing Vector RealWorld HistogramDataPoint
mutable'dataPoints
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Histogram
-> Growing Vector RealWorld HistogramDataPoint -> Parser Histogram
loop
(Setter Histogram Histogram FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Histogram -> Histogram
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Histogram Histogram FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Histogram
x)
Growing Vector RealWorld HistogramDataPoint
mutable'dataPoints
in
Parser Histogram -> String -> Parser Histogram
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld HistogramDataPoint
mutable'dataPoints <- IO (Growing Vector RealWorld HistogramDataPoint)
-> Parser (Growing Vector RealWorld HistogramDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld HistogramDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Histogram
-> Growing Vector RealWorld HistogramDataPoint -> Parser Histogram
loop Histogram
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld HistogramDataPoint
mutable'dataPoints)
String
"Histogram"
buildMessage :: Histogram -> Builder
buildMessage
= \ Histogram
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((HistogramDataPoint -> Builder)
-> Vector HistogramDataPoint -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ HistogramDataPoint
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (HistogramDataPoint -> ByteString)
-> HistogramDataPoint
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
HistogramDataPoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage HistogramDataPoint
_v))
(FoldLike
(Vector HistogramDataPoint)
Histogram
Histogram
(Vector HistogramDataPoint)
(Vector HistogramDataPoint)
-> Histogram -> Vector HistogramDataPoint
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Histogram
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: AggregationTemporality
_v
= FoldLike
AggregationTemporality
Histogram
Histogram
AggregationTemporality
AggregationTemporality
-> Histogram -> AggregationTemporality
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality") Histogram
_x
in
if AggregationTemporality -> AggregationTemporality -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) AggregationTemporality
_v AggregationTemporality
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Int -> Builder)
-> (AggregationTemporality -> Int)
-> AggregationTemporality
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
AggregationTemporality -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum AggregationTemporality
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Histogram Histogram FieldSet FieldSet
-> Histogram -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Histogram Histogram FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Histogram
_x)))
instance Control.DeepSeq.NFData Histogram where
rnf :: Histogram -> ()
rnf
= \ Histogram
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Histogram -> FieldSet
_Histogram'_unknownFields Histogram
x__)
(Vector HistogramDataPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Histogram -> Vector HistogramDataPoint
_Histogram'dataPoints Histogram
x__)
(AggregationTemporality -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Histogram -> AggregationTemporality
_Histogram'aggregationTemporality Histogram
x__) ()))
data HistogramDataPoint
= HistogramDataPoint'_constructor {HistogramDataPoint -> Vector KeyValue
_HistogramDataPoint'attributes :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue),
HistogramDataPoint -> Vector StringKeyValue
_HistogramDataPoint'labels :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue),
HistogramDataPoint -> Word64
_HistogramDataPoint'startTimeUnixNano :: !Data.Word.Word64,
HistogramDataPoint -> Word64
_HistogramDataPoint'timeUnixNano :: !Data.Word.Word64,
HistogramDataPoint -> Word64
_HistogramDataPoint'count :: !Data.Word.Word64,
HistogramDataPoint -> Double
_HistogramDataPoint'sum :: !Prelude.Double,
HistogramDataPoint -> Vector Word64
_HistogramDataPoint'bucketCounts :: !(Data.Vector.Unboxed.Vector Data.Word.Word64),
HistogramDataPoint -> Vector Double
_HistogramDataPoint'explicitBounds :: !(Data.Vector.Unboxed.Vector Prelude.Double),
HistogramDataPoint -> Vector Exemplar
_HistogramDataPoint'exemplars :: !(Data.Vector.Vector Exemplar),
HistogramDataPoint -> Word32
_HistogramDataPoint'flags :: !Data.Word.Word32,
HistogramDataPoint -> FieldSet
_HistogramDataPoint'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (HistogramDataPoint -> HistogramDataPoint -> Bool
(HistogramDataPoint -> HistogramDataPoint -> Bool)
-> (HistogramDataPoint -> HistogramDataPoint -> Bool)
-> Eq HistogramDataPoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HistogramDataPoint -> HistogramDataPoint -> Bool
$c/= :: HistogramDataPoint -> HistogramDataPoint -> Bool
== :: HistogramDataPoint -> HistogramDataPoint -> Bool
$c== :: HistogramDataPoint -> HistogramDataPoint -> Bool
Prelude.Eq, Eq HistogramDataPoint
Eq HistogramDataPoint
-> (HistogramDataPoint -> HistogramDataPoint -> Ordering)
-> (HistogramDataPoint -> HistogramDataPoint -> Bool)
-> (HistogramDataPoint -> HistogramDataPoint -> Bool)
-> (HistogramDataPoint -> HistogramDataPoint -> Bool)
-> (HistogramDataPoint -> HistogramDataPoint -> Bool)
-> (HistogramDataPoint -> HistogramDataPoint -> HistogramDataPoint)
-> (HistogramDataPoint -> HistogramDataPoint -> HistogramDataPoint)
-> Ord HistogramDataPoint
HistogramDataPoint -> HistogramDataPoint -> Bool
HistogramDataPoint -> HistogramDataPoint -> Ordering
HistogramDataPoint -> HistogramDataPoint -> HistogramDataPoint
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: HistogramDataPoint -> HistogramDataPoint -> HistogramDataPoint
$cmin :: HistogramDataPoint -> HistogramDataPoint -> HistogramDataPoint
max :: HistogramDataPoint -> HistogramDataPoint -> HistogramDataPoint
$cmax :: HistogramDataPoint -> HistogramDataPoint -> HistogramDataPoint
>= :: HistogramDataPoint -> HistogramDataPoint -> Bool
$c>= :: HistogramDataPoint -> HistogramDataPoint -> Bool
> :: HistogramDataPoint -> HistogramDataPoint -> Bool
$c> :: HistogramDataPoint -> HistogramDataPoint -> Bool
<= :: HistogramDataPoint -> HistogramDataPoint -> Bool
$c<= :: HistogramDataPoint -> HistogramDataPoint -> Bool
< :: HistogramDataPoint -> HistogramDataPoint -> Bool
$c< :: HistogramDataPoint -> HistogramDataPoint -> Bool
compare :: HistogramDataPoint -> HistogramDataPoint -> Ordering
$ccompare :: HistogramDataPoint -> HistogramDataPoint -> Ordering
$cp1Ord :: Eq HistogramDataPoint
Prelude.Ord)
instance Prelude.Show HistogramDataPoint where
showsPrec :: Int -> HistogramDataPoint -> ShowS
showsPrec Int
_ HistogramDataPoint
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(HistogramDataPoint -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HistogramDataPoint
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField HistogramDataPoint "attributes" [Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue] where
fieldOf :: Proxy# "attributes"
-> ([KeyValue] -> f [KeyValue])
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "attributes"
_
= ((Vector KeyValue -> f (Vector KeyValue))
-> HistogramDataPoint -> f HistogramDataPoint)
-> (([KeyValue] -> f [KeyValue])
-> Vector KeyValue -> f (Vector KeyValue))
-> ([KeyValue] -> f [KeyValue])
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Vector KeyValue)
-> (HistogramDataPoint -> Vector KeyValue -> HistogramDataPoint)
-> Lens
HistogramDataPoint
HistogramDataPoint
(Vector KeyValue)
(Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Vector KeyValue
_HistogramDataPoint'attributes
(\ HistogramDataPoint
x__ Vector KeyValue
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'attributes :: Vector KeyValue
_HistogramDataPoint'attributes = Vector KeyValue
y__}))
((Vector KeyValue -> [KeyValue])
-> (Vector KeyValue -> [KeyValue] -> Vector KeyValue)
-> Lens (Vector KeyValue) (Vector KeyValue) [KeyValue] [KeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector KeyValue -> [KeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector KeyValue
_ [KeyValue]
y__ -> [KeyValue] -> Vector KeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [KeyValue]
y__))
instance Data.ProtoLens.Field.HasField HistogramDataPoint "vec'attributes" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue) where
fieldOf :: Proxy# "vec'attributes"
-> (Vector KeyValue -> f (Vector KeyValue))
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "vec'attributes"
_
= ((Vector KeyValue -> f (Vector KeyValue))
-> HistogramDataPoint -> f HistogramDataPoint)
-> ((Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue))
-> (Vector KeyValue -> f (Vector KeyValue))
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Vector KeyValue)
-> (HistogramDataPoint -> Vector KeyValue -> HistogramDataPoint)
-> Lens
HistogramDataPoint
HistogramDataPoint
(Vector KeyValue)
(Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Vector KeyValue
_HistogramDataPoint'attributes
(\ HistogramDataPoint
x__ Vector KeyValue
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'attributes :: Vector KeyValue
_HistogramDataPoint'attributes = Vector KeyValue
y__}))
(Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramDataPoint "labels" [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue] where
fieldOf :: Proxy# "labels"
-> ([StringKeyValue] -> f [StringKeyValue])
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "labels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> HistogramDataPoint -> f HistogramDataPoint)
-> (([StringKeyValue] -> f [StringKeyValue])
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> ([StringKeyValue] -> f [StringKeyValue])
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Vector StringKeyValue)
-> (HistogramDataPoint
-> Vector StringKeyValue -> HistogramDataPoint)
-> Lens
HistogramDataPoint
HistogramDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Vector StringKeyValue
_HistogramDataPoint'labels
(\ HistogramDataPoint
x__ Vector StringKeyValue
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'labels :: Vector StringKeyValue
_HistogramDataPoint'labels = Vector StringKeyValue
y__}))
((Vector StringKeyValue -> [StringKeyValue])
-> (Vector StringKeyValue
-> [StringKeyValue] -> Vector StringKeyValue)
-> Lens
(Vector StringKeyValue)
(Vector StringKeyValue)
[StringKeyValue]
[StringKeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector StringKeyValue -> [StringKeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector StringKeyValue
_ [StringKeyValue]
y__ -> [StringKeyValue] -> Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StringKeyValue]
y__))
instance Data.ProtoLens.Field.HasField HistogramDataPoint "vec'labels" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue) where
fieldOf :: Proxy# "vec'labels"
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "vec'labels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> HistogramDataPoint -> f HistogramDataPoint)
-> ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Vector StringKeyValue)
-> (HistogramDataPoint
-> Vector StringKeyValue -> HistogramDataPoint)
-> Lens
HistogramDataPoint
HistogramDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Vector StringKeyValue
_HistogramDataPoint'labels
(\ HistogramDataPoint
x__ Vector StringKeyValue
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'labels :: Vector StringKeyValue
_HistogramDataPoint'labels = Vector StringKeyValue
y__}))
(Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramDataPoint "startTimeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "startTimeUnixNano"
-> (Word64 -> f Word64)
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "startTimeUnixNano"
_
= ((Word64 -> f Word64)
-> HistogramDataPoint -> f HistogramDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Word64)
-> (HistogramDataPoint -> Word64 -> HistogramDataPoint)
-> Lens HistogramDataPoint HistogramDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Word64
_HistogramDataPoint'startTimeUnixNano
(\ HistogramDataPoint
x__ Word64
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'startTimeUnixNano :: Word64
_HistogramDataPoint'startTimeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramDataPoint "timeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "timeUnixNano"
-> (Word64 -> f Word64)
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "timeUnixNano"
_
= ((Word64 -> f Word64)
-> HistogramDataPoint -> f HistogramDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Word64)
-> (HistogramDataPoint -> Word64 -> HistogramDataPoint)
-> Lens HistogramDataPoint HistogramDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Word64
_HistogramDataPoint'timeUnixNano
(\ HistogramDataPoint
x__ Word64
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'timeUnixNano :: Word64
_HistogramDataPoint'timeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramDataPoint "count" Data.Word.Word64 where
fieldOf :: Proxy# "count"
-> (Word64 -> f Word64)
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "count"
_
= ((Word64 -> f Word64)
-> HistogramDataPoint -> f HistogramDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Word64)
-> (HistogramDataPoint -> Word64 -> HistogramDataPoint)
-> Lens HistogramDataPoint HistogramDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Word64
_HistogramDataPoint'count
(\ HistogramDataPoint
x__ Word64
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'count :: Word64
_HistogramDataPoint'count = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramDataPoint "sum" Prelude.Double where
fieldOf :: Proxy# "sum"
-> (Double -> f Double)
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "sum"
_
= ((Double -> f Double)
-> HistogramDataPoint -> f HistogramDataPoint)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Double)
-> (HistogramDataPoint -> Double -> HistogramDataPoint)
-> Lens HistogramDataPoint HistogramDataPoint Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Double
_HistogramDataPoint'sum
(\ HistogramDataPoint
x__ Double
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'sum :: Double
_HistogramDataPoint'sum = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramDataPoint "bucketCounts" [Data.Word.Word64] where
fieldOf :: Proxy# "bucketCounts"
-> ([Word64] -> f [Word64])
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "bucketCounts"
_
= ((Vector Word64 -> f (Vector Word64))
-> HistogramDataPoint -> f HistogramDataPoint)
-> (([Word64] -> f [Word64]) -> Vector Word64 -> f (Vector Word64))
-> ([Word64] -> f [Word64])
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Vector Word64)
-> (HistogramDataPoint -> Vector Word64 -> HistogramDataPoint)
-> Lens
HistogramDataPoint
HistogramDataPoint
(Vector Word64)
(Vector Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Vector Word64
_HistogramDataPoint'bucketCounts
(\ HistogramDataPoint
x__ Vector Word64
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'bucketCounts :: Vector Word64
_HistogramDataPoint'bucketCounts = Vector Word64
y__}))
((Vector Word64 -> [Word64])
-> (Vector Word64 -> [Word64] -> Vector Word64)
-> Lens (Vector Word64) (Vector Word64) [Word64] [Word64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Word64 -> [Word64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Word64
_ [Word64]
y__ -> [Word64] -> Vector Word64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Word64]
y__))
instance Data.ProtoLens.Field.HasField HistogramDataPoint "vec'bucketCounts" (Data.Vector.Unboxed.Vector Data.Word.Word64) where
fieldOf :: Proxy# "vec'bucketCounts"
-> (Vector Word64 -> f (Vector Word64))
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "vec'bucketCounts"
_
= ((Vector Word64 -> f (Vector Word64))
-> HistogramDataPoint -> f HistogramDataPoint)
-> ((Vector Word64 -> f (Vector Word64))
-> Vector Word64 -> f (Vector Word64))
-> (Vector Word64 -> f (Vector Word64))
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Vector Word64)
-> (HistogramDataPoint -> Vector Word64 -> HistogramDataPoint)
-> Lens
HistogramDataPoint
HistogramDataPoint
(Vector Word64)
(Vector Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Vector Word64
_HistogramDataPoint'bucketCounts
(\ HistogramDataPoint
x__ Vector Word64
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'bucketCounts :: Vector Word64
_HistogramDataPoint'bucketCounts = Vector Word64
y__}))
(Vector Word64 -> f (Vector Word64))
-> Vector Word64 -> f (Vector Word64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramDataPoint "explicitBounds" [Prelude.Double] where
fieldOf :: Proxy# "explicitBounds"
-> ([Double] -> f [Double])
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "explicitBounds"
_
= ((Vector Double -> f (Vector Double))
-> HistogramDataPoint -> f HistogramDataPoint)
-> (([Double] -> f [Double]) -> Vector Double -> f (Vector Double))
-> ([Double] -> f [Double])
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Vector Double)
-> (HistogramDataPoint -> Vector Double -> HistogramDataPoint)
-> Lens
HistogramDataPoint
HistogramDataPoint
(Vector Double)
(Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Vector Double
_HistogramDataPoint'explicitBounds
(\ HistogramDataPoint
x__ Vector Double
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'explicitBounds :: Vector Double
_HistogramDataPoint'explicitBounds = Vector Double
y__}))
((Vector Double -> [Double])
-> (Vector Double -> [Double] -> Vector Double)
-> Lens (Vector Double) (Vector Double) [Double] [Double]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Double -> [Double]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Double
_ [Double]
y__ -> [Double] -> Vector Double
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Double]
y__))
instance Data.ProtoLens.Field.HasField HistogramDataPoint "vec'explicitBounds" (Data.Vector.Unboxed.Vector Prelude.Double) where
fieldOf :: Proxy# "vec'explicitBounds"
-> (Vector Double -> f (Vector Double))
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "vec'explicitBounds"
_
= ((Vector Double -> f (Vector Double))
-> HistogramDataPoint -> f HistogramDataPoint)
-> ((Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double))
-> (Vector Double -> f (Vector Double))
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Vector Double)
-> (HistogramDataPoint -> Vector Double -> HistogramDataPoint)
-> Lens
HistogramDataPoint
HistogramDataPoint
(Vector Double)
(Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Vector Double
_HistogramDataPoint'explicitBounds
(\ HistogramDataPoint
x__ Vector Double
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'explicitBounds :: Vector Double
_HistogramDataPoint'explicitBounds = Vector Double
y__}))
(Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramDataPoint "exemplars" [Exemplar] where
fieldOf :: Proxy# "exemplars"
-> ([Exemplar] -> f [Exemplar])
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "exemplars"
_
= ((Vector Exemplar -> f (Vector Exemplar))
-> HistogramDataPoint -> f HistogramDataPoint)
-> (([Exemplar] -> f [Exemplar])
-> Vector Exemplar -> f (Vector Exemplar))
-> ([Exemplar] -> f [Exemplar])
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Vector Exemplar)
-> (HistogramDataPoint -> Vector Exemplar -> HistogramDataPoint)
-> Lens
HistogramDataPoint
HistogramDataPoint
(Vector Exemplar)
(Vector Exemplar)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Vector Exemplar
_HistogramDataPoint'exemplars
(\ HistogramDataPoint
x__ Vector Exemplar
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'exemplars :: Vector Exemplar
_HistogramDataPoint'exemplars = Vector Exemplar
y__}))
((Vector Exemplar -> [Exemplar])
-> (Vector Exemplar -> [Exemplar] -> Vector Exemplar)
-> Lens (Vector Exemplar) (Vector Exemplar) [Exemplar] [Exemplar]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Exemplar -> [Exemplar]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Exemplar
_ [Exemplar]
y__ -> [Exemplar] -> Vector Exemplar
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Exemplar]
y__))
instance Data.ProtoLens.Field.HasField HistogramDataPoint "vec'exemplars" (Data.Vector.Vector Exemplar) where
fieldOf :: Proxy# "vec'exemplars"
-> (Vector Exemplar -> f (Vector Exemplar))
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "vec'exemplars"
_
= ((Vector Exemplar -> f (Vector Exemplar))
-> HistogramDataPoint -> f HistogramDataPoint)
-> ((Vector Exemplar -> f (Vector Exemplar))
-> Vector Exemplar -> f (Vector Exemplar))
-> (Vector Exemplar -> f (Vector Exemplar))
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Vector Exemplar)
-> (HistogramDataPoint -> Vector Exemplar -> HistogramDataPoint)
-> Lens
HistogramDataPoint
HistogramDataPoint
(Vector Exemplar)
(Vector Exemplar)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Vector Exemplar
_HistogramDataPoint'exemplars
(\ HistogramDataPoint
x__ Vector Exemplar
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'exemplars :: Vector Exemplar
_HistogramDataPoint'exemplars = Vector Exemplar
y__}))
(Vector Exemplar -> f (Vector Exemplar))
-> Vector Exemplar -> f (Vector Exemplar)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HistogramDataPoint "flags" Data.Word.Word32 where
fieldOf :: Proxy# "flags"
-> (Word32 -> f Word32)
-> HistogramDataPoint
-> f HistogramDataPoint
fieldOf Proxy# "flags"
_
= ((Word32 -> f Word32)
-> HistogramDataPoint -> f HistogramDataPoint)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> HistogramDataPoint
-> f HistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HistogramDataPoint -> Word32)
-> (HistogramDataPoint -> Word32 -> HistogramDataPoint)
-> Lens HistogramDataPoint HistogramDataPoint Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> Word32
_HistogramDataPoint'flags
(\ HistogramDataPoint
x__ Word32
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'flags :: Word32
_HistogramDataPoint'flags = Word32
y__}))
(Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message HistogramDataPoint where
messageName :: Proxy HistogramDataPoint -> Text
messageName Proxy HistogramDataPoint
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.v1.HistogramDataPoint"
packedMessageDescriptor :: Proxy HistogramDataPoint -> ByteString
packedMessageDescriptor Proxy HistogramDataPoint
_
= ByteString
"\n\
\\DC2HistogramDataPoint\DC2G\n\
\\n\
\attributes\CAN\t \ETX(\v2'.opentelemetry.proto.common.v1.KeyValueR\n\
\attributes\DC2I\n\
\\ACKlabels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\ACKlabelsB\STX\CAN\SOH\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQcount\CAN\EOT \SOH(\ACKR\ENQcount\DC2\DLE\n\
\\ETXsum\CAN\ENQ \SOH(\SOHR\ETXsum\DC2#\n\
\\rbucket_counts\CAN\ACK \ETX(\ACKR\fbucketCounts\DC2'\n\
\\SIexplicit_bounds\CAN\a \ETX(\SOHR\SOexplicitBounds\DC2F\n\
\\texemplars\CAN\b \ETX(\v2(.opentelemetry.proto.metrics.v1.ExemplarR\texemplars\DC2\DC4\n\
\\ENQflags\CAN\n\
\ \SOH(\rR\ENQflags"
packedFileDescriptor :: Proxy HistogramDataPoint -> ByteString
packedFileDescriptor Proxy HistogramDataPoint
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor HistogramDataPoint)
fieldsByTag
= let
attributes__field_descriptor :: FieldDescriptor HistogramDataPoint
attributes__field_descriptor
= String
-> FieldTypeDescriptor KeyValue
-> FieldAccessor HistogramDataPoint KeyValue
-> FieldDescriptor HistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"attributes"
(MessageOrGroup -> FieldTypeDescriptor KeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue)
(Packing
-> Lens' HistogramDataPoint [KeyValue]
-> FieldAccessor HistogramDataPoint KeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attributes")) ::
Data.ProtoLens.FieldDescriptor HistogramDataPoint
labels__field_descriptor :: FieldDescriptor HistogramDataPoint
labels__field_descriptor
= String
-> FieldTypeDescriptor StringKeyValue
-> FieldAccessor HistogramDataPoint StringKeyValue
-> FieldDescriptor HistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"labels"
(MessageOrGroup -> FieldTypeDescriptor StringKeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)
(Packing
-> Lens' HistogramDataPoint [StringKeyValue]
-> FieldAccessor HistogramDataPoint StringKeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"labels")) ::
Data.ProtoLens.FieldDescriptor HistogramDataPoint
startTimeUnixNano__field_descriptor :: FieldDescriptor HistogramDataPoint
startTimeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor HistogramDataPoint Word64
-> FieldDescriptor HistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens HistogramDataPoint HistogramDataPoint Word64 Word64
-> FieldAccessor HistogramDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano")) ::
Data.ProtoLens.FieldDescriptor HistogramDataPoint
timeUnixNano__field_descriptor :: FieldDescriptor HistogramDataPoint
timeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor HistogramDataPoint Word64
-> FieldDescriptor HistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens HistogramDataPoint HistogramDataPoint Word64 Word64
-> FieldAccessor HistogramDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano")) ::
Data.ProtoLens.FieldDescriptor HistogramDataPoint
count__field_descriptor :: FieldDescriptor HistogramDataPoint
count__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor HistogramDataPoint Word64
-> FieldDescriptor HistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"count"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens HistogramDataPoint HistogramDataPoint Word64 Word64
-> FieldAccessor HistogramDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count")) ::
Data.ProtoLens.FieldDescriptor HistogramDataPoint
sum__field_descriptor :: FieldDescriptor HistogramDataPoint
sum__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor HistogramDataPoint Double
-> FieldDescriptor HistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"sum"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(WireDefault Double
-> Lens HistogramDataPoint HistogramDataPoint Double Double
-> FieldAccessor HistogramDataPoint Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum")) ::
Data.ProtoLens.FieldDescriptor HistogramDataPoint
bucketCounts__field_descriptor :: FieldDescriptor HistogramDataPoint
bucketCounts__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor HistogramDataPoint Word64
-> FieldDescriptor HistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"bucket_counts"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Packing
-> Lens' HistogramDataPoint [Word64]
-> FieldAccessor HistogramDataPoint Word64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "bucketCounts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bucketCounts")) ::
Data.ProtoLens.FieldDescriptor HistogramDataPoint
explicitBounds__field_descriptor :: FieldDescriptor HistogramDataPoint
explicitBounds__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor HistogramDataPoint Double
-> FieldDescriptor HistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"explicit_bounds"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Packing
-> Lens' HistogramDataPoint [Double]
-> FieldAccessor HistogramDataPoint Double
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "explicitBounds" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"explicitBounds")) ::
Data.ProtoLens.FieldDescriptor HistogramDataPoint
exemplars__field_descriptor :: FieldDescriptor HistogramDataPoint
exemplars__field_descriptor
= String
-> FieldTypeDescriptor Exemplar
-> FieldAccessor HistogramDataPoint Exemplar
-> FieldDescriptor HistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"exemplars"
(MessageOrGroup -> FieldTypeDescriptor Exemplar
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Exemplar)
(Packing
-> Lens' HistogramDataPoint [Exemplar]
-> FieldAccessor HistogramDataPoint Exemplar
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exemplars")) ::
Data.ProtoLens.FieldDescriptor HistogramDataPoint
flags__field_descriptor :: FieldDescriptor HistogramDataPoint
flags__field_descriptor
= String
-> FieldTypeDescriptor Word32
-> FieldAccessor HistogramDataPoint Word32
-> FieldDescriptor HistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"flags"
(ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(WireDefault Word32
-> Lens HistogramDataPoint HistogramDataPoint Word32 Word32
-> FieldAccessor HistogramDataPoint Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags")) ::
Data.ProtoLens.FieldDescriptor HistogramDataPoint
in
[(Tag, FieldDescriptor HistogramDataPoint)]
-> Map Tag (FieldDescriptor HistogramDataPoint)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor HistogramDataPoint
attributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor HistogramDataPoint
labels__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor HistogramDataPoint
startTimeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor HistogramDataPoint
timeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor HistogramDataPoint
count__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor HistogramDataPoint
sum__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor HistogramDataPoint
bucketCounts__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor HistogramDataPoint
explicitBounds__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor HistogramDataPoint
exemplars__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor HistogramDataPoint
flags__field_descriptor)]
unknownFields :: LensLike' f HistogramDataPoint FieldSet
unknownFields
= (HistogramDataPoint -> FieldSet)
-> (HistogramDataPoint -> FieldSet -> HistogramDataPoint)
-> Lens' HistogramDataPoint FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HistogramDataPoint -> FieldSet
_HistogramDataPoint'_unknownFields
(\ HistogramDataPoint
x__ FieldSet
y__ -> HistogramDataPoint
x__ {_HistogramDataPoint'_unknownFields :: FieldSet
_HistogramDataPoint'_unknownFields = FieldSet
y__})
defMessage :: HistogramDataPoint
defMessage
= HistogramDataPoint'_constructor :: Vector KeyValue
-> Vector StringKeyValue
-> Word64
-> Word64
-> Word64
-> Double
-> Vector Word64
-> Vector Double
-> Vector Exemplar
-> Word32
-> FieldSet
-> HistogramDataPoint
HistogramDataPoint'_constructor
{_HistogramDataPoint'attributes :: Vector KeyValue
_HistogramDataPoint'attributes = Vector KeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_HistogramDataPoint'labels :: Vector StringKeyValue
_HistogramDataPoint'labels = Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_HistogramDataPoint'startTimeUnixNano :: Word64
_HistogramDataPoint'startTimeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HistogramDataPoint'timeUnixNano :: Word64
_HistogramDataPoint'timeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HistogramDataPoint'count :: Word64
_HistogramDataPoint'count = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HistogramDataPoint'sum :: Double
_HistogramDataPoint'sum = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HistogramDataPoint'bucketCounts :: Vector Word64
_HistogramDataPoint'bucketCounts = Vector Word64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_HistogramDataPoint'explicitBounds :: Vector Double
_HistogramDataPoint'explicitBounds = Vector Double
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_HistogramDataPoint'exemplars :: Vector Exemplar
_HistogramDataPoint'exemplars = Vector Exemplar
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_HistogramDataPoint'flags :: Word32
_HistogramDataPoint'flags = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HistogramDataPoint'_unknownFields :: FieldSet
_HistogramDataPoint'_unknownFields = []}
parseMessage :: Parser HistogramDataPoint
parseMessage
= let
loop ::
HistogramDataPoint
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Word.Word64
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Exemplar
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Double
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue
-> Data.ProtoLens.Encoding.Bytes.Parser HistogramDataPoint
loop :: HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
HistogramDataPoint
x
Growing Vector RealWorld KeyValue
mutable'attributes
Growing Vector RealWorld Word64
mutable'bucketCounts
Growing Vector RealWorld Exemplar
mutable'exemplars
Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector KeyValue
frozen'attributes <- IO (Vector KeyValue) -> Parser (Vector KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) KeyValue -> IO (Vector KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld KeyValue
Growing Vector (PrimState IO) KeyValue
mutable'attributes)
Vector Word64
frozen'bucketCounts <- IO (Vector Word64) -> Parser (Vector Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Word64 -> IO (Vector Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Word64
Growing Vector (PrimState IO) Word64
mutable'bucketCounts)
Vector Exemplar
frozen'exemplars <- IO (Vector Exemplar) -> Parser (Vector Exemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Exemplar -> IO (Vector Exemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Exemplar
Growing Vector (PrimState IO) Exemplar
mutable'exemplars)
Vector Double
frozen'explicitBounds <- IO (Vector Double) -> Parser (Vector Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double -> IO (Vector Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Double
Growing Vector (PrimState IO) Double
mutable'explicitBounds)
Vector StringKeyValue
frozen'labels <- IO (Vector StringKeyValue) -> Parser (Vector StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> IO (Vector StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'labels)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
HistogramDataPoint -> Parser HistogramDataPoint
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter HistogramDataPoint HistogramDataPoint FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> HistogramDataPoint
-> HistogramDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter HistogramDataPoint HistogramDataPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
HistogramDataPoint
HistogramDataPoint
(Vector KeyValue)
(Vector KeyValue)
-> Vector KeyValue -> HistogramDataPoint -> HistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'attributes") Vector KeyValue
frozen'attributes
(Setter
HistogramDataPoint
HistogramDataPoint
(Vector Word64)
(Vector Word64)
-> Vector Word64 -> HistogramDataPoint -> HistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'bucketCounts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'bucketCounts")
Vector Word64
frozen'bucketCounts
(Setter
HistogramDataPoint
HistogramDataPoint
(Vector Exemplar)
(Vector Exemplar)
-> Vector Exemplar -> HistogramDataPoint -> HistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'exemplars") Vector Exemplar
frozen'exemplars
(Setter
HistogramDataPoint
HistogramDataPoint
(Vector Double)
(Vector Double)
-> Vector Double -> HistogramDataPoint -> HistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'explicitBounds" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'explicitBounds")
Vector Double
frozen'explicitBounds
(Setter
HistogramDataPoint
HistogramDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
-> Vector StringKeyValue
-> HistogramDataPoint
-> HistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'labels") Vector StringKeyValue
frozen'labels
HistogramDataPoint
x))))))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
74
-> do !KeyValue
y <- Parser KeyValue -> String -> Parser KeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser KeyValue -> Parser KeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser KeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"attributes"
Growing Vector RealWorld KeyValue
v <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) KeyValue
-> KeyValue -> IO (Growing Vector (PrimState IO) KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld KeyValue
Growing Vector (PrimState IO) KeyValue
mutable'attributes KeyValue
y)
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
HistogramDataPoint
x Growing Vector RealWorld KeyValue
v Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
10
-> do !StringKeyValue
y <- Parser StringKeyValue -> String -> Parser StringKeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StringKeyValue -> Parser StringKeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser StringKeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"labels"
Growing Vector RealWorld StringKeyValue
v <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> StringKeyValue
-> IO (Growing Vector (PrimState IO) StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'labels StringKeyValue
y)
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
HistogramDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
mutable'exemplars
Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
v
Word64
17
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64
String
"start_time_unix_nano"
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
(Setter HistogramDataPoint HistogramDataPoint Word64 Word64
-> Word64 -> HistogramDataPoint -> HistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") Word64
y HistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
mutable'exemplars
Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
25
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"time_unix_nano"
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
(Setter HistogramDataPoint HistogramDataPoint Word64 Word64
-> Word64 -> HistogramDataPoint -> HistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") Word64
y HistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
mutable'exemplars
Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
33
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"count"
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
(Setter HistogramDataPoint HistogramDataPoint Word64 Word64
-> Word64 -> HistogramDataPoint -> HistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count") Word64
y HistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
mutable'exemplars
Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
41
-> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"sum"
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
(Setter HistogramDataPoint HistogramDataPoint Double Double
-> Double -> HistogramDataPoint -> HistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") Double
y HistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
mutable'exemplars
Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
49
-> do !Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"bucket_counts"
Growing Vector RealWorld Word64
v <- IO (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Word64
-> Word64 -> IO (Growing Vector (PrimState IO) Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld Word64
Growing Vector (PrimState IO) Word64
mutable'bucketCounts Word64
y)
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
HistogramDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
v Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
50
-> do Growing Vector RealWorld Word64
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop Growing v RealWorld Word64
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Word64
qs
else
do !Word64
q <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64
String
"bucket_counts"
Growing v RealWorld Word64
qs' <- IO (Growing v RealWorld Word64)
-> Parser (Growing v RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Word64
-> Word64 -> IO (Growing v (PrimState IO) Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld Word64
Growing v (PrimState IO) Word64
qs Word64
q)
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop Growing v RealWorld Word64
qs'
in forall (v :: * -> *).
Vector v Word64 =>
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop)
Growing Vector RealWorld Word64
mutable'bucketCounts)
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
HistogramDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
y Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
57
-> do !Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"explicit_bounds"
Growing Vector RealWorld Double
v <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double
-> Double -> IO (Growing Vector (PrimState IO) Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld Double
Growing Vector (PrimState IO) Double
mutable'explicitBounds Double
y)
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
HistogramDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld Double
v
Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
58
-> do Growing Vector RealWorld Double
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop Growing v RealWorld Double
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Double
qs
else
do !Double
q <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"explicit_bounds"
Growing v RealWorld Double
qs' <- IO (Growing v RealWorld Double)
-> Parser (Growing v RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Double
-> Double -> IO (Growing v (PrimState IO) Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld Double
Growing v (PrimState IO) Double
qs Double
q)
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop Growing v RealWorld Double
qs'
in forall (v :: * -> *).
Vector v Double =>
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop)
Growing Vector RealWorld Double
mutable'explicitBounds)
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
HistogramDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld Double
y
Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
66
-> do !Exemplar
y <- Parser Exemplar -> String -> Parser Exemplar
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Exemplar -> Parser Exemplar
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser Exemplar
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"exemplars"
Growing Vector RealWorld Exemplar
v <- IO (Growing Vector RealWorld Exemplar)
-> Parser (Growing Vector RealWorld Exemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Exemplar
-> Exemplar -> IO (Growing Vector (PrimState IO) Exemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Exemplar
Growing Vector (PrimState IO) Exemplar
mutable'exemplars Exemplar
y)
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
HistogramDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
v Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
80
-> do Word32
y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"flags"
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
(Setter HistogramDataPoint HistogramDataPoint Word32 Word32
-> Word32 -> HistogramDataPoint -> HistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags") Word32
y HistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
mutable'exemplars
Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
(Setter HistogramDataPoint HistogramDataPoint FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> HistogramDataPoint
-> HistogramDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter HistogramDataPoint HistogramDataPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) HistogramDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld Exemplar
mutable'exemplars
Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels
in
Parser HistogramDataPoint -> String -> Parser HistogramDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld KeyValue
mutable'attributes <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Word64
mutable'bucketCounts <- IO (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Exemplar
mutable'exemplars <- IO (Growing Vector RealWorld Exemplar)
-> Parser (Growing Vector RealWorld Exemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Exemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Double
mutable'explicitBounds <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld StringKeyValue
mutable'labels <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
HistogramDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser HistogramDataPoint
loop
HistogramDataPoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Word64
mutable'bucketCounts
Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels)
String
"HistogramDataPoint"
buildMessage :: HistogramDataPoint -> Builder
buildMessage
= \ HistogramDataPoint
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((KeyValue -> Builder) -> Vector KeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ KeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
((ByteString -> Builder)
-> (KeyValue -> ByteString) -> KeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
KeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage KeyValue
_v))
(FoldLike
(Vector KeyValue)
HistogramDataPoint
HistogramDataPoint
(Vector KeyValue)
(Vector KeyValue)
-> HistogramDataPoint -> Vector KeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'attributes") HistogramDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((StringKeyValue -> Builder) -> Vector StringKeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ StringKeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (StringKeyValue -> ByteString) -> StringKeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
StringKeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StringKeyValue
_v))
(FoldLike
(Vector StringKeyValue)
HistogramDataPoint
HistogramDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
-> HistogramDataPoint -> Vector StringKeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'labels") HistogramDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike Word64 HistogramDataPoint HistogramDataPoint Word64 Word64
-> HistogramDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") HistogramDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike Word64 HistogramDataPoint HistogramDataPoint Word64 Word64
-> HistogramDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") HistogramDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
25)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v = FoldLike Word64 HistogramDataPoint HistogramDataPoint Word64 Word64
-> HistogramDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count") HistogramDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
33)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Double
_v = FoldLike Double HistogramDataPoint HistogramDataPoint Double Double
-> HistogramDataPoint -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") HistogramDataPoint
_x
in
if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
41)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Word64
p = FoldLike
(Vector Word64)
HistogramDataPoint
HistogramDataPoint
(Vector Word64)
(Vector Word64)
-> HistogramDataPoint -> Vector Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'bucketCounts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'bucketCounts") HistogramDataPoint
_x
in
if Vector Word64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Word64
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Word64 -> Builder) -> Vector Word64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Vector Word64
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Double
p = FoldLike
(Vector Double)
HistogramDataPoint
HistogramDataPoint
(Vector Double)
(Vector Double)
-> HistogramDataPoint -> Vector Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'explicitBounds" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'explicitBounds") HistogramDataPoint
_x
in
if Vector Double -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Double
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Double -> Builder) -> Vector Double -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord)
Vector Double
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Exemplar -> Builder) -> Vector Exemplar -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Exemplar
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
((ByteString -> Builder)
-> (Exemplar -> ByteString) -> Exemplar -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
ByteString
bs))
Exemplar -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Exemplar
_v))
(FoldLike
(Vector Exemplar)
HistogramDataPoint
HistogramDataPoint
(Vector Exemplar)
(Vector Exemplar)
-> HistogramDataPoint -> Vector Exemplar
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'exemplars") HistogramDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word32
_v
= FoldLike Word32 HistogramDataPoint HistogramDataPoint Word32 Word32
-> HistogramDataPoint -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags") HistogramDataPoint
_x
in
if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
80)
((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet HistogramDataPoint HistogramDataPoint FieldSet FieldSet
-> HistogramDataPoint -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike
FieldSet HistogramDataPoint HistogramDataPoint FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields HistogramDataPoint
_x)))))))))))
instance Control.DeepSeq.NFData HistogramDataPoint where
rnf :: HistogramDataPoint -> ()
rnf
= \ HistogramDataPoint
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> FieldSet
_HistogramDataPoint'_unknownFields HistogramDataPoint
x__)
(Vector KeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> Vector KeyValue
_HistogramDataPoint'attributes HistogramDataPoint
x__)
(Vector StringKeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> Vector StringKeyValue
_HistogramDataPoint'labels HistogramDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> Word64
_HistogramDataPoint'startTimeUnixNano HistogramDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> Word64
_HistogramDataPoint'timeUnixNano HistogramDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> Word64
_HistogramDataPoint'count HistogramDataPoint
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> Double
_HistogramDataPoint'sum HistogramDataPoint
x__)
(Vector Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> Vector Word64
_HistogramDataPoint'bucketCounts HistogramDataPoint
x__)
(Vector Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> Vector Double
_HistogramDataPoint'explicitBounds HistogramDataPoint
x__)
(Vector Exemplar -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> Vector Exemplar
_HistogramDataPoint'exemplars HistogramDataPoint
x__)
(Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HistogramDataPoint -> Word32
_HistogramDataPoint'flags HistogramDataPoint
x__) ()))))))))))
data InstrumentationLibraryMetrics
= InstrumentationLibraryMetrics'_constructor {InstrumentationLibraryMetrics -> Maybe InstrumentationLibrary
_InstrumentationLibraryMetrics'instrumentationLibrary :: !(Prelude.Maybe Proto.Opentelemetry.Proto.Common.V1.Common.InstrumentationLibrary),
InstrumentationLibraryMetrics -> Vector Metric
_InstrumentationLibraryMetrics'metrics :: !(Data.Vector.Vector Metric),
InstrumentationLibraryMetrics -> Text
_InstrumentationLibraryMetrics'schemaUrl :: !Data.Text.Text,
InstrumentationLibraryMetrics -> FieldSet
_InstrumentationLibraryMetrics'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
(InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool)
-> (InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool)
-> Eq InstrumentationLibraryMetrics
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
$c/= :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
== :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
$c== :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
Prelude.Eq, Eq InstrumentationLibraryMetrics
Eq InstrumentationLibraryMetrics
-> (InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Ordering)
-> (InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool)
-> (InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool)
-> (InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool)
-> (InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool)
-> (InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> InstrumentationLibraryMetrics)
-> (InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> InstrumentationLibraryMetrics)
-> Ord InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Ordering
InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> InstrumentationLibraryMetrics
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> InstrumentationLibraryMetrics
$cmin :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> InstrumentationLibraryMetrics
max :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> InstrumentationLibraryMetrics
$cmax :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> InstrumentationLibraryMetrics
>= :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
$c>= :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
> :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
$c> :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
<= :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
$c<= :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
< :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
$c< :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Bool
compare :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Ordering
$ccompare :: InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics -> Ordering
$cp1Ord :: Eq InstrumentationLibraryMetrics
Prelude.Ord)
instance Prelude.Show InstrumentationLibraryMetrics where
showsPrec :: Int -> InstrumentationLibraryMetrics -> ShowS
showsPrec Int
_ InstrumentationLibraryMetrics
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(InstrumentationLibraryMetrics -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort InstrumentationLibraryMetrics
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField InstrumentationLibraryMetrics "instrumentationLibrary" Proto.Opentelemetry.Proto.Common.V1.Common.InstrumentationLibrary where
fieldOf :: Proxy# "instrumentationLibrary"
-> (InstrumentationLibrary -> f InstrumentationLibrary)
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics
fieldOf Proxy# "instrumentationLibrary"
_
= ((Maybe InstrumentationLibrary -> f (Maybe InstrumentationLibrary))
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics)
-> ((InstrumentationLibrary -> f InstrumentationLibrary)
-> Maybe InstrumentationLibrary
-> f (Maybe InstrumentationLibrary))
-> (InstrumentationLibrary -> f InstrumentationLibrary)
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((InstrumentationLibraryMetrics -> Maybe InstrumentationLibrary)
-> (InstrumentationLibraryMetrics
-> Maybe InstrumentationLibrary -> InstrumentationLibraryMetrics)
-> Lens
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
(Maybe InstrumentationLibrary)
(Maybe InstrumentationLibrary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
InstrumentationLibraryMetrics -> Maybe InstrumentationLibrary
_InstrumentationLibraryMetrics'instrumentationLibrary
(\ InstrumentationLibraryMetrics
x__ Maybe InstrumentationLibrary
y__
-> InstrumentationLibraryMetrics
x__
{_InstrumentationLibraryMetrics'instrumentationLibrary :: Maybe InstrumentationLibrary
_InstrumentationLibraryMetrics'instrumentationLibrary = Maybe InstrumentationLibrary
y__}))
(InstrumentationLibrary
-> Lens' (Maybe InstrumentationLibrary) InstrumentationLibrary
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens InstrumentationLibrary
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField InstrumentationLibraryMetrics "maybe'instrumentationLibrary" (Prelude.Maybe Proto.Opentelemetry.Proto.Common.V1.Common.InstrumentationLibrary) where
fieldOf :: Proxy# "maybe'instrumentationLibrary"
-> (Maybe InstrumentationLibrary
-> f (Maybe InstrumentationLibrary))
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics
fieldOf Proxy# "maybe'instrumentationLibrary"
_
= ((Maybe InstrumentationLibrary -> f (Maybe InstrumentationLibrary))
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics)
-> ((Maybe InstrumentationLibrary
-> f (Maybe InstrumentationLibrary))
-> Maybe InstrumentationLibrary
-> f (Maybe InstrumentationLibrary))
-> (Maybe InstrumentationLibrary
-> f (Maybe InstrumentationLibrary))
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((InstrumentationLibraryMetrics -> Maybe InstrumentationLibrary)
-> (InstrumentationLibraryMetrics
-> Maybe InstrumentationLibrary -> InstrumentationLibraryMetrics)
-> Lens
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
(Maybe InstrumentationLibrary)
(Maybe InstrumentationLibrary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
InstrumentationLibraryMetrics -> Maybe InstrumentationLibrary
_InstrumentationLibraryMetrics'instrumentationLibrary
(\ InstrumentationLibraryMetrics
x__ Maybe InstrumentationLibrary
y__
-> InstrumentationLibraryMetrics
x__
{_InstrumentationLibraryMetrics'instrumentationLibrary :: Maybe InstrumentationLibrary
_InstrumentationLibraryMetrics'instrumentationLibrary = Maybe InstrumentationLibrary
y__}))
(Maybe InstrumentationLibrary -> f (Maybe InstrumentationLibrary))
-> Maybe InstrumentationLibrary -> f (Maybe InstrumentationLibrary)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField InstrumentationLibraryMetrics "metrics" [Metric] where
fieldOf :: Proxy# "metrics"
-> ([Metric] -> f [Metric])
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics
fieldOf Proxy# "metrics"
_
= ((Vector Metric -> f (Vector Metric))
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics)
-> (([Metric] -> f [Metric]) -> Vector Metric -> f (Vector Metric))
-> ([Metric] -> f [Metric])
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((InstrumentationLibraryMetrics -> Vector Metric)
-> (InstrumentationLibraryMetrics
-> Vector Metric -> InstrumentationLibraryMetrics)
-> Lens
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
(Vector Metric)
(Vector Metric)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
InstrumentationLibraryMetrics -> Vector Metric
_InstrumentationLibraryMetrics'metrics
(\ InstrumentationLibraryMetrics
x__ Vector Metric
y__ -> InstrumentationLibraryMetrics
x__ {_InstrumentationLibraryMetrics'metrics :: Vector Metric
_InstrumentationLibraryMetrics'metrics = Vector Metric
y__}))
((Vector Metric -> [Metric])
-> (Vector Metric -> [Metric] -> Vector Metric)
-> Lens (Vector Metric) (Vector Metric) [Metric] [Metric]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Metric -> [Metric]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Metric
_ [Metric]
y__ -> [Metric] -> Vector Metric
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Metric]
y__))
instance Data.ProtoLens.Field.HasField InstrumentationLibraryMetrics "vec'metrics" (Data.Vector.Vector Metric) where
fieldOf :: Proxy# "vec'metrics"
-> (Vector Metric -> f (Vector Metric))
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics
fieldOf Proxy# "vec'metrics"
_
= ((Vector Metric -> f (Vector Metric))
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics)
-> ((Vector Metric -> f (Vector Metric))
-> Vector Metric -> f (Vector Metric))
-> (Vector Metric -> f (Vector Metric))
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((InstrumentationLibraryMetrics -> Vector Metric)
-> (InstrumentationLibraryMetrics
-> Vector Metric -> InstrumentationLibraryMetrics)
-> Lens
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
(Vector Metric)
(Vector Metric)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
InstrumentationLibraryMetrics -> Vector Metric
_InstrumentationLibraryMetrics'metrics
(\ InstrumentationLibraryMetrics
x__ Vector Metric
y__ -> InstrumentationLibraryMetrics
x__ {_InstrumentationLibraryMetrics'metrics :: Vector Metric
_InstrumentationLibraryMetrics'metrics = Vector Metric
y__}))
(Vector Metric -> f (Vector Metric))
-> Vector Metric -> f (Vector Metric)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField InstrumentationLibraryMetrics "schemaUrl" Data.Text.Text where
fieldOf :: Proxy# "schemaUrl"
-> (Text -> f Text)
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics
fieldOf Proxy# "schemaUrl"
_
= ((Text -> f Text)
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> InstrumentationLibraryMetrics
-> f InstrumentationLibraryMetrics
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((InstrumentationLibraryMetrics -> Text)
-> (InstrumentationLibraryMetrics
-> Text -> InstrumentationLibraryMetrics)
-> Lens
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
InstrumentationLibraryMetrics -> Text
_InstrumentationLibraryMetrics'schemaUrl
(\ InstrumentationLibraryMetrics
x__ Text
y__
-> InstrumentationLibraryMetrics
x__ {_InstrumentationLibraryMetrics'schemaUrl :: Text
_InstrumentationLibraryMetrics'schemaUrl = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message InstrumentationLibraryMetrics where
messageName :: Proxy InstrumentationLibraryMetrics -> Text
messageName Proxy InstrumentationLibraryMetrics
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.v1.InstrumentationLibraryMetrics"
packedMessageDescriptor :: Proxy InstrumentationLibraryMetrics -> ByteString
packedMessageDescriptor Proxy InstrumentationLibraryMetrics
_
= ByteString
"\n\
\\GSInstrumentationLibraryMetrics\DC2n\n\
\\ETBinstrumentation_library\CAN\SOH \SOH(\v25.opentelemetry.proto.common.v1.InstrumentationLibraryR\SYNinstrumentationLibrary\DC2@\n\
\\ametrics\CAN\STX \ETX(\v2&.opentelemetry.proto.metrics.v1.MetricR\ametrics\DC2\GS\n\
\\n\
\schema_url\CAN\ETX \SOH(\tR\tschemaUrl"
packedFileDescriptor :: Proxy InstrumentationLibraryMetrics -> ByteString
packedFileDescriptor Proxy InstrumentationLibraryMetrics
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor InstrumentationLibraryMetrics)
fieldsByTag
= let
instrumentationLibrary__field_descriptor :: FieldDescriptor InstrumentationLibraryMetrics
instrumentationLibrary__field_descriptor
= String
-> FieldTypeDescriptor InstrumentationLibrary
-> FieldAccessor
InstrumentationLibraryMetrics InstrumentationLibrary
-> FieldDescriptor InstrumentationLibraryMetrics
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"instrumentation_library"
(MessageOrGroup -> FieldTypeDescriptor InstrumentationLibrary
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.InstrumentationLibrary)
(Lens
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
(Maybe InstrumentationLibrary)
(Maybe InstrumentationLibrary)
-> FieldAccessor
InstrumentationLibraryMetrics InstrumentationLibrary
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'instrumentationLibrary" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'instrumentationLibrary")) ::
Data.ProtoLens.FieldDescriptor InstrumentationLibraryMetrics
metrics__field_descriptor :: FieldDescriptor InstrumentationLibraryMetrics
metrics__field_descriptor
= String
-> FieldTypeDescriptor Metric
-> FieldAccessor InstrumentationLibraryMetrics Metric
-> FieldDescriptor InstrumentationLibraryMetrics
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"metrics"
(MessageOrGroup -> FieldTypeDescriptor Metric
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Metric)
(Packing
-> Lens' InstrumentationLibraryMetrics [Metric]
-> FieldAccessor InstrumentationLibraryMetrics Metric
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "metrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metrics")) ::
Data.ProtoLens.FieldDescriptor InstrumentationLibraryMetrics
schemaUrl__field_descriptor :: FieldDescriptor InstrumentationLibraryMetrics
schemaUrl__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor InstrumentationLibraryMetrics Text
-> FieldDescriptor InstrumentationLibraryMetrics
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schema_url"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
Text
Text
-> FieldAccessor InstrumentationLibraryMetrics Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "schemaUrl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"schemaUrl")) ::
Data.ProtoLens.FieldDescriptor InstrumentationLibraryMetrics
in
[(Tag, FieldDescriptor InstrumentationLibraryMetrics)]
-> Map Tag (FieldDescriptor InstrumentationLibraryMetrics)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor InstrumentationLibraryMetrics
instrumentationLibrary__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor InstrumentationLibraryMetrics
metrics__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor InstrumentationLibraryMetrics
schemaUrl__field_descriptor)]
unknownFields :: LensLike' f InstrumentationLibraryMetrics FieldSet
unknownFields
= (InstrumentationLibraryMetrics -> FieldSet)
-> (InstrumentationLibraryMetrics
-> FieldSet -> InstrumentationLibraryMetrics)
-> Lens' InstrumentationLibraryMetrics FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
InstrumentationLibraryMetrics -> FieldSet
_InstrumentationLibraryMetrics'_unknownFields
(\ InstrumentationLibraryMetrics
x__ FieldSet
y__
-> InstrumentationLibraryMetrics
x__ {_InstrumentationLibraryMetrics'_unknownFields :: FieldSet
_InstrumentationLibraryMetrics'_unknownFields = FieldSet
y__})
defMessage :: InstrumentationLibraryMetrics
defMessage
= InstrumentationLibraryMetrics'_constructor :: Maybe InstrumentationLibrary
-> Vector Metric
-> Text
-> FieldSet
-> InstrumentationLibraryMetrics
InstrumentationLibraryMetrics'_constructor
{_InstrumentationLibraryMetrics'instrumentationLibrary :: Maybe InstrumentationLibrary
_InstrumentationLibraryMetrics'instrumentationLibrary = Maybe InstrumentationLibrary
forall a. Maybe a
Prelude.Nothing,
_InstrumentationLibraryMetrics'metrics :: Vector Metric
_InstrumentationLibraryMetrics'metrics = Vector Metric
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_InstrumentationLibraryMetrics'schemaUrl :: Text
_InstrumentationLibraryMetrics'schemaUrl = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_InstrumentationLibraryMetrics'_unknownFields :: FieldSet
_InstrumentationLibraryMetrics'_unknownFields = []}
parseMessage :: Parser InstrumentationLibraryMetrics
parseMessage
= let
loop ::
InstrumentationLibraryMetrics
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Metric
-> Data.ProtoLens.Encoding.Bytes.Parser InstrumentationLibraryMetrics
loop :: InstrumentationLibraryMetrics
-> Growing Vector RealWorld Metric
-> Parser InstrumentationLibraryMetrics
loop InstrumentationLibraryMetrics
x Growing Vector RealWorld Metric
mutable'metrics
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Metric
frozen'metrics <- IO (Vector Metric) -> Parser (Vector Metric)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Metric -> IO (Vector Metric)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Metric
Growing Vector (PrimState IO) Metric
mutable'metrics)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
InstrumentationLibraryMetrics
-> Parser InstrumentationLibraryMetrics
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
(Vector Metric)
(Vector Metric)
-> Vector Metric
-> InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'metrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'metrics") Vector Metric
frozen'metrics InstrumentationLibraryMetrics
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do InstrumentationLibrary
y <- Parser InstrumentationLibrary
-> String -> Parser InstrumentationLibrary
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser InstrumentationLibrary -> Parser InstrumentationLibrary
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser InstrumentationLibrary
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"instrumentation_library"
InstrumentationLibraryMetrics
-> Growing Vector RealWorld Metric
-> Parser InstrumentationLibraryMetrics
loop
(Setter
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
InstrumentationLibrary
InstrumentationLibrary
-> InstrumentationLibrary
-> InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "instrumentationLibrary" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"instrumentationLibrary") InstrumentationLibrary
y InstrumentationLibraryMetrics
x)
Growing Vector RealWorld Metric
mutable'metrics
Word64
18
-> do !Metric
y <- Parser Metric -> String -> Parser Metric
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Metric -> Parser Metric
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser Metric
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"metrics"
Growing Vector RealWorld Metric
v <- IO (Growing Vector RealWorld Metric)
-> Parser (Growing Vector RealWorld Metric)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Metric
-> Metric -> IO (Growing Vector (PrimState IO) Metric)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Metric
Growing Vector (PrimState IO) Metric
mutable'metrics Metric
y)
InstrumentationLibraryMetrics
-> Growing Vector RealWorld Metric
-> Parser InstrumentationLibraryMetrics
loop InstrumentationLibraryMetrics
x Growing Vector RealWorld Metric
v
Word64
26
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
String
"schema_url"
InstrumentationLibraryMetrics
-> Growing Vector RealWorld Metric
-> Parser InstrumentationLibraryMetrics
loop
(Setter
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
Text
Text
-> Text
-> InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "schemaUrl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"schemaUrl") Text
y InstrumentationLibraryMetrics
x)
Growing Vector RealWorld Metric
mutable'metrics
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
InstrumentationLibraryMetrics
-> Growing Vector RealWorld Metric
-> Parser InstrumentationLibraryMetrics
loop
(Setter
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) InstrumentationLibraryMetrics
x)
Growing Vector RealWorld Metric
mutable'metrics
in
Parser InstrumentationLibraryMetrics
-> String -> Parser InstrumentationLibraryMetrics
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Metric
mutable'metrics <- IO (Growing Vector RealWorld Metric)
-> Parser (Growing Vector RealWorld Metric)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Metric)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
InstrumentationLibraryMetrics
-> Growing Vector RealWorld Metric
-> Parser InstrumentationLibraryMetrics
loop InstrumentationLibraryMetrics
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Metric
mutable'metrics)
String
"InstrumentationLibraryMetrics"
buildMessage :: InstrumentationLibraryMetrics -> Builder
buildMessage
= \ InstrumentationLibraryMetrics
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe InstrumentationLibrary)
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
(Maybe InstrumentationLibrary)
(Maybe InstrumentationLibrary)
-> InstrumentationLibraryMetrics -> Maybe InstrumentationLibrary
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'instrumentationLibrary" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'instrumentationLibrary") InstrumentationLibraryMetrics
_x
of
Maybe InstrumentationLibrary
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just InstrumentationLibrary
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (InstrumentationLibrary -> ByteString)
-> InstrumentationLibrary
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
InstrumentationLibrary -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage InstrumentationLibrary
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Metric -> Builder) -> Vector Metric -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Metric
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Metric -> ByteString) -> Metric -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Metric -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Metric
_v))
(FoldLike
(Vector Metric)
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
(Vector Metric)
(Vector Metric)
-> InstrumentationLibraryMetrics -> Vector Metric
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'metrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'metrics") InstrumentationLibraryMetrics
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
Text
Text
-> InstrumentationLibraryMetrics -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "schemaUrl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"schemaUrl") InstrumentationLibraryMetrics
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
FieldSet
FieldSet
-> InstrumentationLibraryMetrics -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
InstrumentationLibraryMetrics
InstrumentationLibraryMetrics
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields InstrumentationLibraryMetrics
_x))))
instance Control.DeepSeq.NFData InstrumentationLibraryMetrics where
rnf :: InstrumentationLibraryMetrics -> ()
rnf
= \ InstrumentationLibraryMetrics
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(InstrumentationLibraryMetrics -> FieldSet
_InstrumentationLibraryMetrics'_unknownFields InstrumentationLibraryMetrics
x__)
(Maybe InstrumentationLibrary -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(InstrumentationLibraryMetrics -> Maybe InstrumentationLibrary
_InstrumentationLibraryMetrics'instrumentationLibrary InstrumentationLibraryMetrics
x__)
(Vector Metric -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(InstrumentationLibraryMetrics -> Vector Metric
_InstrumentationLibraryMetrics'metrics InstrumentationLibraryMetrics
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(InstrumentationLibraryMetrics -> Text
_InstrumentationLibraryMetrics'schemaUrl InstrumentationLibraryMetrics
x__) ())))
data IntDataPoint
= IntDataPoint'_constructor {IntDataPoint -> Vector StringKeyValue
_IntDataPoint'labels :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue),
IntDataPoint -> Word64
_IntDataPoint'startTimeUnixNano :: !Data.Word.Word64,
IntDataPoint -> Word64
_IntDataPoint'timeUnixNano :: !Data.Word.Word64,
IntDataPoint -> Int64
_IntDataPoint'value :: !Data.Int.Int64,
IntDataPoint -> Vector IntExemplar
_IntDataPoint'exemplars :: !(Data.Vector.Vector IntExemplar),
IntDataPoint -> FieldSet
_IntDataPoint'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (IntDataPoint -> IntDataPoint -> Bool
(IntDataPoint -> IntDataPoint -> Bool)
-> (IntDataPoint -> IntDataPoint -> Bool) -> Eq IntDataPoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IntDataPoint -> IntDataPoint -> Bool
$c/= :: IntDataPoint -> IntDataPoint -> Bool
== :: IntDataPoint -> IntDataPoint -> Bool
$c== :: IntDataPoint -> IntDataPoint -> Bool
Prelude.Eq, Eq IntDataPoint
Eq IntDataPoint
-> (IntDataPoint -> IntDataPoint -> Ordering)
-> (IntDataPoint -> IntDataPoint -> Bool)
-> (IntDataPoint -> IntDataPoint -> Bool)
-> (IntDataPoint -> IntDataPoint -> Bool)
-> (IntDataPoint -> IntDataPoint -> Bool)
-> (IntDataPoint -> IntDataPoint -> IntDataPoint)
-> (IntDataPoint -> IntDataPoint -> IntDataPoint)
-> Ord IntDataPoint
IntDataPoint -> IntDataPoint -> Bool
IntDataPoint -> IntDataPoint -> Ordering
IntDataPoint -> IntDataPoint -> IntDataPoint
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: IntDataPoint -> IntDataPoint -> IntDataPoint
$cmin :: IntDataPoint -> IntDataPoint -> IntDataPoint
max :: IntDataPoint -> IntDataPoint -> IntDataPoint
$cmax :: IntDataPoint -> IntDataPoint -> IntDataPoint
>= :: IntDataPoint -> IntDataPoint -> Bool
$c>= :: IntDataPoint -> IntDataPoint -> Bool
> :: IntDataPoint -> IntDataPoint -> Bool
$c> :: IntDataPoint -> IntDataPoint -> Bool
<= :: IntDataPoint -> IntDataPoint -> Bool
$c<= :: IntDataPoint -> IntDataPoint -> Bool
< :: IntDataPoint -> IntDataPoint -> Bool
$c< :: IntDataPoint -> IntDataPoint -> Bool
compare :: IntDataPoint -> IntDataPoint -> Ordering
$ccompare :: IntDataPoint -> IntDataPoint -> Ordering
$cp1Ord :: Eq IntDataPoint
Prelude.Ord)
instance Prelude.Show IntDataPoint where
showsPrec :: Int -> IntDataPoint -> ShowS
showsPrec Int
_ IntDataPoint
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(IntDataPoint -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort IntDataPoint
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField IntDataPoint "labels" [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue] where
fieldOf :: Proxy# "labels"
-> ([StringKeyValue] -> f [StringKeyValue])
-> IntDataPoint
-> f IntDataPoint
fieldOf Proxy# "labels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntDataPoint -> f IntDataPoint)
-> (([StringKeyValue] -> f [StringKeyValue])
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> ([StringKeyValue] -> f [StringKeyValue])
-> IntDataPoint
-> f IntDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntDataPoint -> Vector StringKeyValue)
-> (IntDataPoint -> Vector StringKeyValue -> IntDataPoint)
-> Lens
IntDataPoint
IntDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntDataPoint -> Vector StringKeyValue
_IntDataPoint'labels
(\ IntDataPoint
x__ Vector StringKeyValue
y__ -> IntDataPoint
x__ {_IntDataPoint'labels :: Vector StringKeyValue
_IntDataPoint'labels = Vector StringKeyValue
y__}))
((Vector StringKeyValue -> [StringKeyValue])
-> (Vector StringKeyValue
-> [StringKeyValue] -> Vector StringKeyValue)
-> Lens
(Vector StringKeyValue)
(Vector StringKeyValue)
[StringKeyValue]
[StringKeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector StringKeyValue -> [StringKeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector StringKeyValue
_ [StringKeyValue]
y__ -> [StringKeyValue] -> Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StringKeyValue]
y__))
instance Data.ProtoLens.Field.HasField IntDataPoint "vec'labels" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue) where
fieldOf :: Proxy# "vec'labels"
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntDataPoint
-> f IntDataPoint
fieldOf Proxy# "vec'labels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntDataPoint -> f IntDataPoint)
-> ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntDataPoint
-> f IntDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntDataPoint -> Vector StringKeyValue)
-> (IntDataPoint -> Vector StringKeyValue -> IntDataPoint)
-> Lens
IntDataPoint
IntDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntDataPoint -> Vector StringKeyValue
_IntDataPoint'labels
(\ IntDataPoint
x__ Vector StringKeyValue
y__ -> IntDataPoint
x__ {_IntDataPoint'labels :: Vector StringKeyValue
_IntDataPoint'labels = Vector StringKeyValue
y__}))
(Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntDataPoint "startTimeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "startTimeUnixNano"
-> (Word64 -> f Word64) -> IntDataPoint -> f IntDataPoint
fieldOf Proxy# "startTimeUnixNano"
_
= ((Word64 -> f Word64) -> IntDataPoint -> f IntDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> IntDataPoint
-> f IntDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntDataPoint -> Word64)
-> (IntDataPoint -> Word64 -> IntDataPoint)
-> Lens IntDataPoint IntDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntDataPoint -> Word64
_IntDataPoint'startTimeUnixNano
(\ IntDataPoint
x__ Word64
y__ -> IntDataPoint
x__ {_IntDataPoint'startTimeUnixNano :: Word64
_IntDataPoint'startTimeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntDataPoint "timeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "timeUnixNano"
-> (Word64 -> f Word64) -> IntDataPoint -> f IntDataPoint
fieldOf Proxy# "timeUnixNano"
_
= ((Word64 -> f Word64) -> IntDataPoint -> f IntDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> IntDataPoint
-> f IntDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntDataPoint -> Word64)
-> (IntDataPoint -> Word64 -> IntDataPoint)
-> Lens IntDataPoint IntDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntDataPoint -> Word64
_IntDataPoint'timeUnixNano
(\ IntDataPoint
x__ Word64
y__ -> IntDataPoint
x__ {_IntDataPoint'timeUnixNano :: Word64
_IntDataPoint'timeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntDataPoint "value" Data.Int.Int64 where
fieldOf :: Proxy# "value"
-> (Int64 -> f Int64) -> IntDataPoint -> f IntDataPoint
fieldOf Proxy# "value"
_
= ((Int64 -> f Int64) -> IntDataPoint -> f IntDataPoint)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> IntDataPoint
-> f IntDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntDataPoint -> Int64)
-> (IntDataPoint -> Int64 -> IntDataPoint)
-> Lens IntDataPoint IntDataPoint Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntDataPoint -> Int64
_IntDataPoint'value (\ IntDataPoint
x__ Int64
y__ -> IntDataPoint
x__ {_IntDataPoint'value :: Int64
_IntDataPoint'value = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntDataPoint "exemplars" [IntExemplar] where
fieldOf :: Proxy# "exemplars"
-> ([IntExemplar] -> f [IntExemplar])
-> IntDataPoint
-> f IntDataPoint
fieldOf Proxy# "exemplars"
_
= ((Vector IntExemplar -> f (Vector IntExemplar))
-> IntDataPoint -> f IntDataPoint)
-> (([IntExemplar] -> f [IntExemplar])
-> Vector IntExemplar -> f (Vector IntExemplar))
-> ([IntExemplar] -> f [IntExemplar])
-> IntDataPoint
-> f IntDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntDataPoint -> Vector IntExemplar)
-> (IntDataPoint -> Vector IntExemplar -> IntDataPoint)
-> Lens
IntDataPoint IntDataPoint (Vector IntExemplar) (Vector IntExemplar)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntDataPoint -> Vector IntExemplar
_IntDataPoint'exemplars
(\ IntDataPoint
x__ Vector IntExemplar
y__ -> IntDataPoint
x__ {_IntDataPoint'exemplars :: Vector IntExemplar
_IntDataPoint'exemplars = Vector IntExemplar
y__}))
((Vector IntExemplar -> [IntExemplar])
-> (Vector IntExemplar -> [IntExemplar] -> Vector IntExemplar)
-> Lens
(Vector IntExemplar)
(Vector IntExemplar)
[IntExemplar]
[IntExemplar]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector IntExemplar -> [IntExemplar]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector IntExemplar
_ [IntExemplar]
y__ -> [IntExemplar] -> Vector IntExemplar
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [IntExemplar]
y__))
instance Data.ProtoLens.Field.HasField IntDataPoint "vec'exemplars" (Data.Vector.Vector IntExemplar) where
fieldOf :: Proxy# "vec'exemplars"
-> (Vector IntExemplar -> f (Vector IntExemplar))
-> IntDataPoint
-> f IntDataPoint
fieldOf Proxy# "vec'exemplars"
_
= ((Vector IntExemplar -> f (Vector IntExemplar))
-> IntDataPoint -> f IntDataPoint)
-> ((Vector IntExemplar -> f (Vector IntExemplar))
-> Vector IntExemplar -> f (Vector IntExemplar))
-> (Vector IntExemplar -> f (Vector IntExemplar))
-> IntDataPoint
-> f IntDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntDataPoint -> Vector IntExemplar)
-> (IntDataPoint -> Vector IntExemplar -> IntDataPoint)
-> Lens
IntDataPoint IntDataPoint (Vector IntExemplar) (Vector IntExemplar)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntDataPoint -> Vector IntExemplar
_IntDataPoint'exemplars
(\ IntDataPoint
x__ Vector IntExemplar
y__ -> IntDataPoint
x__ {_IntDataPoint'exemplars :: Vector IntExemplar
_IntDataPoint'exemplars = Vector IntExemplar
y__}))
(Vector IntExemplar -> f (Vector IntExemplar))
-> Vector IntExemplar -> f (Vector IntExemplar)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message IntDataPoint where
messageName :: Proxy IntDataPoint -> Text
messageName Proxy IntDataPoint
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.IntDataPoint"
packedMessageDescriptor :: Proxy IntDataPoint -> ByteString
packedMessageDescriptor Proxy IntDataPoint
_
= ByteString
"\n\
\\fIntDataPoint\DC2E\n\
\\ACKlabels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\ACKlabels\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQvalue\CAN\EOT \SOH(\DLER\ENQvalue\DC2I\n\
\\texemplars\CAN\ENQ \ETX(\v2+.opentelemetry.proto.metrics.v1.IntExemplarR\texemplars:\STX\CAN\SOH"
packedFileDescriptor :: Proxy IntDataPoint -> ByteString
packedFileDescriptor Proxy IntDataPoint
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor IntDataPoint)
fieldsByTag
= let
labels__field_descriptor :: FieldDescriptor IntDataPoint
labels__field_descriptor
= String
-> FieldTypeDescriptor StringKeyValue
-> FieldAccessor IntDataPoint StringKeyValue
-> FieldDescriptor IntDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"labels"
(MessageOrGroup -> FieldTypeDescriptor StringKeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)
(Packing
-> Lens' IntDataPoint [StringKeyValue]
-> FieldAccessor IntDataPoint StringKeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"labels")) ::
Data.ProtoLens.FieldDescriptor IntDataPoint
startTimeUnixNano__field_descriptor :: FieldDescriptor IntDataPoint
startTimeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor IntDataPoint Word64
-> FieldDescriptor IntDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens IntDataPoint IntDataPoint Word64 Word64
-> FieldAccessor IntDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano")) ::
Data.ProtoLens.FieldDescriptor IntDataPoint
timeUnixNano__field_descriptor :: FieldDescriptor IntDataPoint
timeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor IntDataPoint Word64
-> FieldDescriptor IntDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens IntDataPoint IntDataPoint Word64 Word64
-> FieldAccessor IntDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano")) ::
Data.ProtoLens.FieldDescriptor IntDataPoint
value__field_descriptor :: FieldDescriptor IntDataPoint
value__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor IntDataPoint Int64
-> FieldDescriptor IntDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"value"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.SFixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens IntDataPoint IntDataPoint Int64 Int64
-> FieldAccessor IntDataPoint Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor IntDataPoint
exemplars__field_descriptor :: FieldDescriptor IntDataPoint
exemplars__field_descriptor
= String
-> FieldTypeDescriptor IntExemplar
-> FieldAccessor IntDataPoint IntExemplar
-> FieldDescriptor IntDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"exemplars"
(MessageOrGroup -> FieldTypeDescriptor IntExemplar
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor IntExemplar)
(Packing
-> Lens' IntDataPoint [IntExemplar]
-> FieldAccessor IntDataPoint IntExemplar
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exemplars")) ::
Data.ProtoLens.FieldDescriptor IntDataPoint
in
[(Tag, FieldDescriptor IntDataPoint)]
-> Map Tag (FieldDescriptor IntDataPoint)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor IntDataPoint
labels__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor IntDataPoint
startTimeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor IntDataPoint
timeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor IntDataPoint
value__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor IntDataPoint
exemplars__field_descriptor)]
unknownFields :: LensLike' f IntDataPoint FieldSet
unknownFields
= (IntDataPoint -> FieldSet)
-> (IntDataPoint -> FieldSet -> IntDataPoint)
-> Lens' IntDataPoint FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntDataPoint -> FieldSet
_IntDataPoint'_unknownFields
(\ IntDataPoint
x__ FieldSet
y__ -> IntDataPoint
x__ {_IntDataPoint'_unknownFields :: FieldSet
_IntDataPoint'_unknownFields = FieldSet
y__})
defMessage :: IntDataPoint
defMessage
= IntDataPoint'_constructor :: Vector StringKeyValue
-> Word64
-> Word64
-> Int64
-> Vector IntExemplar
-> FieldSet
-> IntDataPoint
IntDataPoint'_constructor
{_IntDataPoint'labels :: Vector StringKeyValue
_IntDataPoint'labels = Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_IntDataPoint'startTimeUnixNano :: Word64
_IntDataPoint'startTimeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntDataPoint'timeUnixNano :: Word64
_IntDataPoint'timeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntDataPoint'value :: Int64
_IntDataPoint'value = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntDataPoint'exemplars :: Vector IntExemplar
_IntDataPoint'exemplars = Vector IntExemplar
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_IntDataPoint'_unknownFields :: FieldSet
_IntDataPoint'_unknownFields = []}
parseMessage :: Parser IntDataPoint
parseMessage
= let
loop ::
IntDataPoint
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld IntExemplar
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue
-> Data.ProtoLens.Encoding.Bytes.Parser IntDataPoint
loop :: IntDataPoint
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser IntDataPoint
loop IntDataPoint
x Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector IntExemplar
frozen'exemplars <- IO (Vector IntExemplar) -> Parser (Vector IntExemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) IntExemplar
-> IO (Vector IntExemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld IntExemplar
Growing Vector (PrimState IO) IntExemplar
mutable'exemplars)
Vector StringKeyValue
frozen'labels <- IO (Vector StringKeyValue) -> Parser (Vector StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> IO (Vector StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'labels)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
IntDataPoint -> Parser IntDataPoint
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter IntDataPoint IntDataPoint FieldSet FieldSet
-> (FieldSet -> FieldSet) -> IntDataPoint -> IntDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter IntDataPoint IntDataPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
IntDataPoint IntDataPoint (Vector IntExemplar) (Vector IntExemplar)
-> Vector IntExemplar -> IntDataPoint -> IntDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'exemplars") Vector IntExemplar
frozen'exemplars
(Setter
IntDataPoint
IntDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
-> Vector StringKeyValue -> IntDataPoint -> IntDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'labels") Vector StringKeyValue
frozen'labels IntDataPoint
x)))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !StringKeyValue
y <- Parser StringKeyValue -> String -> Parser StringKeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StringKeyValue -> Parser StringKeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser StringKeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"labels"
Growing Vector RealWorld StringKeyValue
v <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> StringKeyValue
-> IO (Growing Vector (PrimState IO) StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'labels StringKeyValue
y)
IntDataPoint
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser IntDataPoint
loop IntDataPoint
x Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
v
Word64
17
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64
String
"start_time_unix_nano"
IntDataPoint
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser IntDataPoint
loop
(Setter IntDataPoint IntDataPoint Word64 Word64
-> Word64 -> IntDataPoint -> IntDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") Word64
y IntDataPoint
x)
Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
25
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"time_unix_nano"
IntDataPoint
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser IntDataPoint
loop
(Setter IntDataPoint IntDataPoint Word64 Word64
-> Word64 -> IntDataPoint -> IntDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") Word64
y IntDataPoint
x)
Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
33
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"value"
IntDataPoint
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser IntDataPoint
loop
(Setter IntDataPoint IntDataPoint Int64 Int64
-> Int64 -> IntDataPoint -> IntDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Int64
y IntDataPoint
x)
Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
42
-> do !IntExemplar
y <- Parser IntExemplar -> String -> Parser IntExemplar
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser IntExemplar -> Parser IntExemplar
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser IntExemplar
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"exemplars"
Growing Vector RealWorld IntExemplar
v <- IO (Growing Vector RealWorld IntExemplar)
-> Parser (Growing Vector RealWorld IntExemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) IntExemplar
-> IntExemplar -> IO (Growing Vector (PrimState IO) IntExemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld IntExemplar
Growing Vector (PrimState IO) IntExemplar
mutable'exemplars IntExemplar
y)
IntDataPoint
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser IntDataPoint
loop IntDataPoint
x Growing Vector RealWorld IntExemplar
v Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
IntDataPoint
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser IntDataPoint
loop
(Setter IntDataPoint IntDataPoint FieldSet FieldSet
-> (FieldSet -> FieldSet) -> IntDataPoint -> IntDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter IntDataPoint IntDataPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) IntDataPoint
x)
Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
in
Parser IntDataPoint -> String -> Parser IntDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld IntExemplar
mutable'exemplars <- IO (Growing Vector RealWorld IntExemplar)
-> Parser (Growing Vector RealWorld IntExemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld IntExemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld StringKeyValue
mutable'labels <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
IntDataPoint
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser IntDataPoint
loop IntDataPoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels)
String
"IntDataPoint"
buildMessage :: IntDataPoint -> Builder
buildMessage
= \ IntDataPoint
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((StringKeyValue -> Builder) -> Vector StringKeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ StringKeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (StringKeyValue -> ByteString) -> StringKeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
StringKeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StringKeyValue
_v))
(FoldLike
(Vector StringKeyValue)
IntDataPoint
IntDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
-> IntDataPoint -> Vector StringKeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'labels") IntDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike Word64 IntDataPoint IntDataPoint Word64 Word64
-> IntDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") IntDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike Word64 IntDataPoint IntDataPoint Word64 Word64
-> IntDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") IntDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
25)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike Int64 IntDataPoint IntDataPoint Int64 Int64
-> IntDataPoint -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") IntDataPoint
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
33)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((IntExemplar -> Builder) -> Vector IntExemplar -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ IntExemplar
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder)
-> (IntExemplar -> ByteString) -> IntExemplar -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
IntExemplar -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage IntExemplar
_v))
(FoldLike
(Vector IntExemplar)
IntDataPoint
IntDataPoint
(Vector IntExemplar)
(Vector IntExemplar)
-> IntDataPoint -> Vector IntExemplar
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'exemplars") IntDataPoint
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet IntDataPoint IntDataPoint FieldSet FieldSet
-> IntDataPoint -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet IntDataPoint IntDataPoint FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields IntDataPoint
_x))))))
instance Control.DeepSeq.NFData IntDataPoint where
rnf :: IntDataPoint -> ()
rnf
= \ IntDataPoint
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntDataPoint -> FieldSet
_IntDataPoint'_unknownFields IntDataPoint
x__)
(Vector StringKeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntDataPoint -> Vector StringKeyValue
_IntDataPoint'labels IntDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntDataPoint -> Word64
_IntDataPoint'startTimeUnixNano IntDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntDataPoint -> Word64
_IntDataPoint'timeUnixNano IntDataPoint
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntDataPoint -> Int64
_IntDataPoint'value IntDataPoint
x__)
(Vector IntExemplar -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (IntDataPoint -> Vector IntExemplar
_IntDataPoint'exemplars IntDataPoint
x__) ())))))
data IntExemplar
= IntExemplar'_constructor {IntExemplar -> Vector StringKeyValue
_IntExemplar'filteredLabels :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue),
IntExemplar -> Word64
_IntExemplar'timeUnixNano :: !Data.Word.Word64,
IntExemplar -> Int64
_IntExemplar'value :: !Data.Int.Int64,
IntExemplar -> ByteString
_IntExemplar'spanId :: !Data.ByteString.ByteString,
IntExemplar -> ByteString
_IntExemplar'traceId :: !Data.ByteString.ByteString,
IntExemplar -> FieldSet
_IntExemplar'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (IntExemplar -> IntExemplar -> Bool
(IntExemplar -> IntExemplar -> Bool)
-> (IntExemplar -> IntExemplar -> Bool) -> Eq IntExemplar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IntExemplar -> IntExemplar -> Bool
$c/= :: IntExemplar -> IntExemplar -> Bool
== :: IntExemplar -> IntExemplar -> Bool
$c== :: IntExemplar -> IntExemplar -> Bool
Prelude.Eq, Eq IntExemplar
Eq IntExemplar
-> (IntExemplar -> IntExemplar -> Ordering)
-> (IntExemplar -> IntExemplar -> Bool)
-> (IntExemplar -> IntExemplar -> Bool)
-> (IntExemplar -> IntExemplar -> Bool)
-> (IntExemplar -> IntExemplar -> Bool)
-> (IntExemplar -> IntExemplar -> IntExemplar)
-> (IntExemplar -> IntExemplar -> IntExemplar)
-> Ord IntExemplar
IntExemplar -> IntExemplar -> Bool
IntExemplar -> IntExemplar -> Ordering
IntExemplar -> IntExemplar -> IntExemplar
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: IntExemplar -> IntExemplar -> IntExemplar
$cmin :: IntExemplar -> IntExemplar -> IntExemplar
max :: IntExemplar -> IntExemplar -> IntExemplar
$cmax :: IntExemplar -> IntExemplar -> IntExemplar
>= :: IntExemplar -> IntExemplar -> Bool
$c>= :: IntExemplar -> IntExemplar -> Bool
> :: IntExemplar -> IntExemplar -> Bool
$c> :: IntExemplar -> IntExemplar -> Bool
<= :: IntExemplar -> IntExemplar -> Bool
$c<= :: IntExemplar -> IntExemplar -> Bool
< :: IntExemplar -> IntExemplar -> Bool
$c< :: IntExemplar -> IntExemplar -> Bool
compare :: IntExemplar -> IntExemplar -> Ordering
$ccompare :: IntExemplar -> IntExemplar -> Ordering
$cp1Ord :: Eq IntExemplar
Prelude.Ord)
instance Prelude.Show IntExemplar where
showsPrec :: Int -> IntExemplar -> ShowS
showsPrec Int
_ IntExemplar
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(IntExemplar -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort IntExemplar
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField IntExemplar "filteredLabels" [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue] where
fieldOf :: Proxy# "filteredLabels"
-> ([StringKeyValue] -> f [StringKeyValue])
-> IntExemplar
-> f IntExemplar
fieldOf Proxy# "filteredLabels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntExemplar -> f IntExemplar)
-> (([StringKeyValue] -> f [StringKeyValue])
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> ([StringKeyValue] -> f [StringKeyValue])
-> IntExemplar
-> f IntExemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntExemplar -> Vector StringKeyValue)
-> (IntExemplar -> Vector StringKeyValue -> IntExemplar)
-> Lens
IntExemplar
IntExemplar
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntExemplar -> Vector StringKeyValue
_IntExemplar'filteredLabels
(\ IntExemplar
x__ Vector StringKeyValue
y__ -> IntExemplar
x__ {_IntExemplar'filteredLabels :: Vector StringKeyValue
_IntExemplar'filteredLabels = Vector StringKeyValue
y__}))
((Vector StringKeyValue -> [StringKeyValue])
-> (Vector StringKeyValue
-> [StringKeyValue] -> Vector StringKeyValue)
-> Lens
(Vector StringKeyValue)
(Vector StringKeyValue)
[StringKeyValue]
[StringKeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector StringKeyValue -> [StringKeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector StringKeyValue
_ [StringKeyValue]
y__ -> [StringKeyValue] -> Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StringKeyValue]
y__))
instance Data.ProtoLens.Field.HasField IntExemplar "vec'filteredLabels" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue) where
fieldOf :: Proxy# "vec'filteredLabels"
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntExemplar
-> f IntExemplar
fieldOf Proxy# "vec'filteredLabels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntExemplar -> f IntExemplar)
-> ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntExemplar
-> f IntExemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntExemplar -> Vector StringKeyValue)
-> (IntExemplar -> Vector StringKeyValue -> IntExemplar)
-> Lens
IntExemplar
IntExemplar
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntExemplar -> Vector StringKeyValue
_IntExemplar'filteredLabels
(\ IntExemplar
x__ Vector StringKeyValue
y__ -> IntExemplar
x__ {_IntExemplar'filteredLabels :: Vector StringKeyValue
_IntExemplar'filteredLabels = Vector StringKeyValue
y__}))
(Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntExemplar "timeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "timeUnixNano"
-> (Word64 -> f Word64) -> IntExemplar -> f IntExemplar
fieldOf Proxy# "timeUnixNano"
_
= ((Word64 -> f Word64) -> IntExemplar -> f IntExemplar)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> IntExemplar
-> f IntExemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntExemplar -> Word64)
-> (IntExemplar -> Word64 -> IntExemplar)
-> Lens IntExemplar IntExemplar Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntExemplar -> Word64
_IntExemplar'timeUnixNano
(\ IntExemplar
x__ Word64
y__ -> IntExemplar
x__ {_IntExemplar'timeUnixNano :: Word64
_IntExemplar'timeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntExemplar "value" Data.Int.Int64 where
fieldOf :: Proxy# "value"
-> (Int64 -> f Int64) -> IntExemplar -> f IntExemplar
fieldOf Proxy# "value"
_
= ((Int64 -> f Int64) -> IntExemplar -> f IntExemplar)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> IntExemplar
-> f IntExemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntExemplar -> Int64)
-> (IntExemplar -> Int64 -> IntExemplar)
-> Lens IntExemplar IntExemplar Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntExemplar -> Int64
_IntExemplar'value (\ IntExemplar
x__ Int64
y__ -> IntExemplar
x__ {_IntExemplar'value :: Int64
_IntExemplar'value = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntExemplar "spanId" Data.ByteString.ByteString where
fieldOf :: Proxy# "spanId"
-> (ByteString -> f ByteString) -> IntExemplar -> f IntExemplar
fieldOf Proxy# "spanId"
_
= ((ByteString -> f ByteString) -> IntExemplar -> f IntExemplar)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> IntExemplar
-> f IntExemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntExemplar -> ByteString)
-> (IntExemplar -> ByteString -> IntExemplar)
-> Lens IntExemplar IntExemplar ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntExemplar -> ByteString
_IntExemplar'spanId (\ IntExemplar
x__ ByteString
y__ -> IntExemplar
x__ {_IntExemplar'spanId :: ByteString
_IntExemplar'spanId = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntExemplar "traceId" Data.ByteString.ByteString where
fieldOf :: Proxy# "traceId"
-> (ByteString -> f ByteString) -> IntExemplar -> f IntExemplar
fieldOf Proxy# "traceId"
_
= ((ByteString -> f ByteString) -> IntExemplar -> f IntExemplar)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> IntExemplar
-> f IntExemplar
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntExemplar -> ByteString)
-> (IntExemplar -> ByteString -> IntExemplar)
-> Lens IntExemplar IntExemplar ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntExemplar -> ByteString
_IntExemplar'traceId
(\ IntExemplar
x__ ByteString
y__ -> IntExemplar
x__ {_IntExemplar'traceId :: ByteString
_IntExemplar'traceId = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message IntExemplar where
messageName :: Proxy IntExemplar -> Text
messageName Proxy IntExemplar
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.IntExemplar"
packedMessageDescriptor :: Proxy IntExemplar -> ByteString
packedMessageDescriptor Proxy IntExemplar
_
= ByteString
"\n\
\\vIntExemplar\DC2V\n\
\\SIfiltered_labels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\SOfilteredLabels\DC2$\n\
\\SOtime_unix_nano\CAN\STX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQvalue\CAN\ETX \SOH(\DLER\ENQvalue\DC2\ETB\n\
\\aspan_id\CAN\EOT \SOH(\fR\ACKspanId\DC2\EM\n\
\\btrace_id\CAN\ENQ \SOH(\fR\atraceId:\STX\CAN\SOH"
packedFileDescriptor :: Proxy IntExemplar -> ByteString
packedFileDescriptor Proxy IntExemplar
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor IntExemplar)
fieldsByTag
= let
filteredLabels__field_descriptor :: FieldDescriptor IntExemplar
filteredLabels__field_descriptor
= String
-> FieldTypeDescriptor StringKeyValue
-> FieldAccessor IntExemplar StringKeyValue
-> FieldDescriptor IntExemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"filtered_labels"
(MessageOrGroup -> FieldTypeDescriptor StringKeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)
(Packing
-> Lens' IntExemplar [StringKeyValue]
-> FieldAccessor IntExemplar StringKeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "filteredLabels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filteredLabels")) ::
Data.ProtoLens.FieldDescriptor IntExemplar
timeUnixNano__field_descriptor :: FieldDescriptor IntExemplar
timeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor IntExemplar Word64
-> FieldDescriptor IntExemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens IntExemplar IntExemplar Word64 Word64
-> FieldAccessor IntExemplar Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano")) ::
Data.ProtoLens.FieldDescriptor IntExemplar
value__field_descriptor :: FieldDescriptor IntExemplar
value__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor IntExemplar Int64
-> FieldDescriptor IntExemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"value"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.SFixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens IntExemplar IntExemplar Int64 Int64
-> FieldAccessor IntExemplar Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor IntExemplar
spanId__field_descriptor :: FieldDescriptor IntExemplar
spanId__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor IntExemplar ByteString
-> FieldDescriptor IntExemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"span_id"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(WireDefault ByteString
-> Lens IntExemplar IntExemplar ByteString ByteString
-> FieldAccessor IntExemplar ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "spanId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"spanId")) ::
Data.ProtoLens.FieldDescriptor IntExemplar
traceId__field_descriptor :: FieldDescriptor IntExemplar
traceId__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor IntExemplar ByteString
-> FieldDescriptor IntExemplar
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"trace_id"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(WireDefault ByteString
-> Lens IntExemplar IntExemplar ByteString ByteString
-> FieldAccessor IntExemplar ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "traceId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"traceId")) ::
Data.ProtoLens.FieldDescriptor IntExemplar
in
[(Tag, FieldDescriptor IntExemplar)]
-> Map Tag (FieldDescriptor IntExemplar)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor IntExemplar
filteredLabels__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor IntExemplar
timeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor IntExemplar
value__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor IntExemplar
spanId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor IntExemplar
traceId__field_descriptor)]
unknownFields :: LensLike' f IntExemplar FieldSet
unknownFields
= (IntExemplar -> FieldSet)
-> (IntExemplar -> FieldSet -> IntExemplar)
-> Lens' IntExemplar FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntExemplar -> FieldSet
_IntExemplar'_unknownFields
(\ IntExemplar
x__ FieldSet
y__ -> IntExemplar
x__ {_IntExemplar'_unknownFields :: FieldSet
_IntExemplar'_unknownFields = FieldSet
y__})
defMessage :: IntExemplar
defMessage
= IntExemplar'_constructor :: Vector StringKeyValue
-> Word64
-> Int64
-> ByteString
-> ByteString
-> FieldSet
-> IntExemplar
IntExemplar'_constructor
{_IntExemplar'filteredLabels :: Vector StringKeyValue
_IntExemplar'filteredLabels = Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_IntExemplar'timeUnixNano :: Word64
_IntExemplar'timeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntExemplar'value :: Int64
_IntExemplar'value = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntExemplar'spanId :: ByteString
_IntExemplar'spanId = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntExemplar'traceId :: ByteString
_IntExemplar'traceId = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntExemplar'_unknownFields :: FieldSet
_IntExemplar'_unknownFields = []}
parseMessage :: Parser IntExemplar
parseMessage
= let
loop ::
IntExemplar
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue
-> Data.ProtoLens.Encoding.Bytes.Parser IntExemplar
loop :: IntExemplar
-> Growing Vector RealWorld StringKeyValue -> Parser IntExemplar
loop IntExemplar
x Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector StringKeyValue
frozen'filteredLabels <- IO (Vector StringKeyValue) -> Parser (Vector StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> IO (Vector StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'filteredLabels)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
IntExemplar -> Parser IntExemplar
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter IntExemplar IntExemplar FieldSet FieldSet
-> (FieldSet -> FieldSet) -> IntExemplar -> IntExemplar
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter IntExemplar IntExemplar FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
IntExemplar
IntExemplar
(Vector StringKeyValue)
(Vector StringKeyValue)
-> Vector StringKeyValue -> IntExemplar -> IntExemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'filteredLabels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'filteredLabels")
Vector StringKeyValue
frozen'filteredLabels IntExemplar
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !StringKeyValue
y <- Parser StringKeyValue -> String -> Parser StringKeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StringKeyValue -> Parser StringKeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser StringKeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"filtered_labels"
Growing Vector RealWorld StringKeyValue
v <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> StringKeyValue
-> IO (Growing Vector (PrimState IO) StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'filteredLabels StringKeyValue
y)
IntExemplar
-> Growing Vector RealWorld StringKeyValue -> Parser IntExemplar
loop IntExemplar
x Growing Vector RealWorld StringKeyValue
v
Word64
17
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"time_unix_nano"
IntExemplar
-> Growing Vector RealWorld StringKeyValue -> Parser IntExemplar
loop
(Setter IntExemplar IntExemplar Word64 Word64
-> Word64 -> IntExemplar -> IntExemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") Word64
y IntExemplar
x)
Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
Word64
25
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"value"
IntExemplar
-> Growing Vector RealWorld StringKeyValue -> Parser IntExemplar
loop
(Setter IntExemplar IntExemplar Int64 Int64
-> Int64 -> IntExemplar -> IntExemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Int64
y IntExemplar
x)
Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
Word64
34
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
String
"span_id"
IntExemplar
-> Growing Vector RealWorld StringKeyValue -> Parser IntExemplar
loop
(Setter IntExemplar IntExemplar ByteString ByteString
-> ByteString -> IntExemplar -> IntExemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "spanId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"spanId") ByteString
y IntExemplar
x)
Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
Word64
42
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
String
"trace_id"
IntExemplar
-> Growing Vector RealWorld StringKeyValue -> Parser IntExemplar
loop
(Setter IntExemplar IntExemplar ByteString ByteString
-> ByteString -> IntExemplar -> IntExemplar
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "traceId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"traceId") ByteString
y IntExemplar
x)
Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
IntExemplar
-> Growing Vector RealWorld StringKeyValue -> Parser IntExemplar
loop
(Setter IntExemplar IntExemplar FieldSet FieldSet
-> (FieldSet -> FieldSet) -> IntExemplar -> IntExemplar
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter IntExemplar IntExemplar FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) IntExemplar
x)
Growing Vector RealWorld StringKeyValue
mutable'filteredLabels
in
Parser IntExemplar -> String -> Parser IntExemplar
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld StringKeyValue
mutable'filteredLabels <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
IntExemplar
-> Growing Vector RealWorld StringKeyValue -> Parser IntExemplar
loop IntExemplar
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld StringKeyValue
mutable'filteredLabels)
String
"IntExemplar"
buildMessage :: IntExemplar -> Builder
buildMessage
= \ IntExemplar
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((StringKeyValue -> Builder) -> Vector StringKeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ StringKeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (StringKeyValue -> ByteString) -> StringKeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
StringKeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StringKeyValue
_v))
(FoldLike
(Vector StringKeyValue)
IntExemplar
IntExemplar
(Vector StringKeyValue)
(Vector StringKeyValue)
-> IntExemplar -> Vector StringKeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'filteredLabels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'filteredLabels") IntExemplar
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike Word64 IntExemplar IntExemplar Word64 Word64
-> IntExemplar -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") IntExemplar
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike Int64 IntExemplar IntExemplar Int64 Int64
-> IntExemplar -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") IntExemplar
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
25)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v = FoldLike ByteString IntExemplar IntExemplar ByteString ByteString
-> IntExemplar -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "spanId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"spanId") IntExemplar
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v = FoldLike ByteString IntExemplar IntExemplar ByteString ByteString
-> IntExemplar -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "traceId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"traceId") IntExemplar
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet IntExemplar IntExemplar FieldSet FieldSet
-> IntExemplar -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet IntExemplar IntExemplar FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields IntExemplar
_x))))))
instance Control.DeepSeq.NFData IntExemplar where
rnf :: IntExemplar -> ()
rnf
= \ IntExemplar
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntExemplar -> FieldSet
_IntExemplar'_unknownFields IntExemplar
x__)
(Vector StringKeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntExemplar -> Vector StringKeyValue
_IntExemplar'filteredLabels IntExemplar
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntExemplar -> Word64
_IntExemplar'timeUnixNano IntExemplar
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntExemplar -> Int64
_IntExemplar'value IntExemplar
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntExemplar -> ByteString
_IntExemplar'spanId IntExemplar
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (IntExemplar -> ByteString
_IntExemplar'traceId IntExemplar
x__) ())))))
data IntGauge
= IntGauge'_constructor {IntGauge -> Vector IntDataPoint
_IntGauge'dataPoints :: !(Data.Vector.Vector IntDataPoint),
IntGauge -> FieldSet
_IntGauge'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (IntGauge -> IntGauge -> Bool
(IntGauge -> IntGauge -> Bool)
-> (IntGauge -> IntGauge -> Bool) -> Eq IntGauge
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IntGauge -> IntGauge -> Bool
$c/= :: IntGauge -> IntGauge -> Bool
== :: IntGauge -> IntGauge -> Bool
$c== :: IntGauge -> IntGauge -> Bool
Prelude.Eq, Eq IntGauge
Eq IntGauge
-> (IntGauge -> IntGauge -> Ordering)
-> (IntGauge -> IntGauge -> Bool)
-> (IntGauge -> IntGauge -> Bool)
-> (IntGauge -> IntGauge -> Bool)
-> (IntGauge -> IntGauge -> Bool)
-> (IntGauge -> IntGauge -> IntGauge)
-> (IntGauge -> IntGauge -> IntGauge)
-> Ord IntGauge
IntGauge -> IntGauge -> Bool
IntGauge -> IntGauge -> Ordering
IntGauge -> IntGauge -> IntGauge
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: IntGauge -> IntGauge -> IntGauge
$cmin :: IntGauge -> IntGauge -> IntGauge
max :: IntGauge -> IntGauge -> IntGauge
$cmax :: IntGauge -> IntGauge -> IntGauge
>= :: IntGauge -> IntGauge -> Bool
$c>= :: IntGauge -> IntGauge -> Bool
> :: IntGauge -> IntGauge -> Bool
$c> :: IntGauge -> IntGauge -> Bool
<= :: IntGauge -> IntGauge -> Bool
$c<= :: IntGauge -> IntGauge -> Bool
< :: IntGauge -> IntGauge -> Bool
$c< :: IntGauge -> IntGauge -> Bool
compare :: IntGauge -> IntGauge -> Ordering
$ccompare :: IntGauge -> IntGauge -> Ordering
$cp1Ord :: Eq IntGauge
Prelude.Ord)
instance Prelude.Show IntGauge where
showsPrec :: Int -> IntGauge -> ShowS
showsPrec Int
_ IntGauge
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(IntGauge -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort IntGauge
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField IntGauge "dataPoints" [IntDataPoint] where
fieldOf :: Proxy# "dataPoints"
-> ([IntDataPoint] -> f [IntDataPoint]) -> IntGauge -> f IntGauge
fieldOf Proxy# "dataPoints"
_
= ((Vector IntDataPoint -> f (Vector IntDataPoint))
-> IntGauge -> f IntGauge)
-> (([IntDataPoint] -> f [IntDataPoint])
-> Vector IntDataPoint -> f (Vector IntDataPoint))
-> ([IntDataPoint] -> f [IntDataPoint])
-> IntGauge
-> f IntGauge
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntGauge -> Vector IntDataPoint)
-> (IntGauge -> Vector IntDataPoint -> IntGauge)
-> Lens
IntGauge IntGauge (Vector IntDataPoint) (Vector IntDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntGauge -> Vector IntDataPoint
_IntGauge'dataPoints
(\ IntGauge
x__ Vector IntDataPoint
y__ -> IntGauge
x__ {_IntGauge'dataPoints :: Vector IntDataPoint
_IntGauge'dataPoints = Vector IntDataPoint
y__}))
((Vector IntDataPoint -> [IntDataPoint])
-> (Vector IntDataPoint -> [IntDataPoint] -> Vector IntDataPoint)
-> Lens
(Vector IntDataPoint)
(Vector IntDataPoint)
[IntDataPoint]
[IntDataPoint]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector IntDataPoint -> [IntDataPoint]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector IntDataPoint
_ [IntDataPoint]
y__ -> [IntDataPoint] -> Vector IntDataPoint
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [IntDataPoint]
y__))
instance Data.ProtoLens.Field.HasField IntGauge "vec'dataPoints" (Data.Vector.Vector IntDataPoint) where
fieldOf :: Proxy# "vec'dataPoints"
-> (Vector IntDataPoint -> f (Vector IntDataPoint))
-> IntGauge
-> f IntGauge
fieldOf Proxy# "vec'dataPoints"
_
= ((Vector IntDataPoint -> f (Vector IntDataPoint))
-> IntGauge -> f IntGauge)
-> ((Vector IntDataPoint -> f (Vector IntDataPoint))
-> Vector IntDataPoint -> f (Vector IntDataPoint))
-> (Vector IntDataPoint -> f (Vector IntDataPoint))
-> IntGauge
-> f IntGauge
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntGauge -> Vector IntDataPoint)
-> (IntGauge -> Vector IntDataPoint -> IntGauge)
-> Lens
IntGauge IntGauge (Vector IntDataPoint) (Vector IntDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntGauge -> Vector IntDataPoint
_IntGauge'dataPoints
(\ IntGauge
x__ Vector IntDataPoint
y__ -> IntGauge
x__ {_IntGauge'dataPoints :: Vector IntDataPoint
_IntGauge'dataPoints = Vector IntDataPoint
y__}))
(Vector IntDataPoint -> f (Vector IntDataPoint))
-> Vector IntDataPoint -> f (Vector IntDataPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message IntGauge where
messageName :: Proxy IntGauge -> Text
messageName Proxy IntGauge
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.IntGauge"
packedMessageDescriptor :: Proxy IntGauge -> ByteString
packedMessageDescriptor Proxy IntGauge
_
= ByteString
"\n\
\\bIntGauge\DC2M\n\
\\vdata_points\CAN\SOH \ETX(\v2,.opentelemetry.proto.metrics.v1.IntDataPointR\n\
\dataPoints:\STX\CAN\SOH"
packedFileDescriptor :: Proxy IntGauge -> ByteString
packedFileDescriptor Proxy IntGauge
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor IntGauge)
fieldsByTag
= let
dataPoints__field_descriptor :: FieldDescriptor IntGauge
dataPoints__field_descriptor
= String
-> FieldTypeDescriptor IntDataPoint
-> FieldAccessor IntGauge IntDataPoint
-> FieldDescriptor IntGauge
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"data_points"
(MessageOrGroup -> FieldTypeDescriptor IntDataPoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor IntDataPoint)
(Packing
-> Lens' IntGauge [IntDataPoint]
-> FieldAccessor IntGauge IntDataPoint
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataPoints")) ::
Data.ProtoLens.FieldDescriptor IntGauge
in
[(Tag, FieldDescriptor IntGauge)]
-> Map Tag (FieldDescriptor IntGauge)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor IntGauge
dataPoints__field_descriptor)]
unknownFields :: LensLike' f IntGauge FieldSet
unknownFields
= (IntGauge -> FieldSet)
-> (IntGauge -> FieldSet -> IntGauge) -> Lens' IntGauge FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntGauge -> FieldSet
_IntGauge'_unknownFields
(\ IntGauge
x__ FieldSet
y__ -> IntGauge
x__ {_IntGauge'_unknownFields :: FieldSet
_IntGauge'_unknownFields = FieldSet
y__})
defMessage :: IntGauge
defMessage
= IntGauge'_constructor :: Vector IntDataPoint -> FieldSet -> IntGauge
IntGauge'_constructor
{_IntGauge'dataPoints :: Vector IntDataPoint
_IntGauge'dataPoints = Vector IntDataPoint
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_IntGauge'_unknownFields :: FieldSet
_IntGauge'_unknownFields = []}
parseMessage :: Parser IntGauge
parseMessage
= let
loop ::
IntGauge
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld IntDataPoint
-> Data.ProtoLens.Encoding.Bytes.Parser IntGauge
loop :: IntGauge
-> Growing Vector RealWorld IntDataPoint -> Parser IntGauge
loop IntGauge
x Growing Vector RealWorld IntDataPoint
mutable'dataPoints
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector IntDataPoint
frozen'dataPoints <- IO (Vector IntDataPoint) -> Parser (Vector IntDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) IntDataPoint
-> IO (Vector IntDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld IntDataPoint
Growing Vector (PrimState IO) IntDataPoint
mutable'dataPoints)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
IntGauge -> Parser IntGauge
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter IntGauge IntGauge FieldSet FieldSet
-> (FieldSet -> FieldSet) -> IntGauge -> IntGauge
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter IntGauge IntGauge FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
IntGauge IntGauge (Vector IntDataPoint) (Vector IntDataPoint)
-> Vector IntDataPoint -> IntGauge -> IntGauge
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Vector IntDataPoint
frozen'dataPoints
IntGauge
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !IntDataPoint
y <- Parser IntDataPoint -> String -> Parser IntDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser IntDataPoint -> Parser IntDataPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser IntDataPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"data_points"
Growing Vector RealWorld IntDataPoint
v <- IO (Growing Vector RealWorld IntDataPoint)
-> Parser (Growing Vector RealWorld IntDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) IntDataPoint
-> IntDataPoint -> IO (Growing Vector (PrimState IO) IntDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld IntDataPoint
Growing Vector (PrimState IO) IntDataPoint
mutable'dataPoints IntDataPoint
y)
IntGauge
-> Growing Vector RealWorld IntDataPoint -> Parser IntGauge
loop IntGauge
x Growing Vector RealWorld IntDataPoint
v
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
IntGauge
-> Growing Vector RealWorld IntDataPoint -> Parser IntGauge
loop
(Setter IntGauge IntGauge FieldSet FieldSet
-> (FieldSet -> FieldSet) -> IntGauge -> IntGauge
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter IntGauge IntGauge FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) IntGauge
x)
Growing Vector RealWorld IntDataPoint
mutable'dataPoints
in
Parser IntGauge -> String -> Parser IntGauge
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld IntDataPoint
mutable'dataPoints <- IO (Growing Vector RealWorld IntDataPoint)
-> Parser (Growing Vector RealWorld IntDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld IntDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
IntGauge
-> Growing Vector RealWorld IntDataPoint -> Parser IntGauge
loop IntGauge
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld IntDataPoint
mutable'dataPoints)
String
"IntGauge"
buildMessage :: IntGauge -> Builder
buildMessage
= \ IntGauge
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((IntDataPoint -> Builder) -> Vector IntDataPoint -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ IntDataPoint
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (IntDataPoint -> ByteString) -> IntDataPoint -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
IntDataPoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage IntDataPoint
_v))
(FoldLike
(Vector IntDataPoint)
IntGauge
IntGauge
(Vector IntDataPoint)
(Vector IntDataPoint)
-> IntGauge -> Vector IntDataPoint
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") IntGauge
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet IntGauge IntGauge FieldSet FieldSet
-> IntGauge -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet IntGauge IntGauge FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields IntGauge
_x))
instance Control.DeepSeq.NFData IntGauge where
rnf :: IntGauge -> ()
rnf
= \ IntGauge
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntGauge -> FieldSet
_IntGauge'_unknownFields IntGauge
x__)
(Vector IntDataPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (IntGauge -> Vector IntDataPoint
_IntGauge'dataPoints IntGauge
x__) ())
data IntHistogram
= IntHistogram'_constructor {IntHistogram -> Vector IntHistogramDataPoint
_IntHistogram'dataPoints :: !(Data.Vector.Vector IntHistogramDataPoint),
IntHistogram -> AggregationTemporality
_IntHistogram'aggregationTemporality :: !AggregationTemporality,
IntHistogram -> FieldSet
_IntHistogram'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (IntHistogram -> IntHistogram -> Bool
(IntHistogram -> IntHistogram -> Bool)
-> (IntHistogram -> IntHistogram -> Bool) -> Eq IntHistogram
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IntHistogram -> IntHistogram -> Bool
$c/= :: IntHistogram -> IntHistogram -> Bool
== :: IntHistogram -> IntHistogram -> Bool
$c== :: IntHistogram -> IntHistogram -> Bool
Prelude.Eq, Eq IntHistogram
Eq IntHistogram
-> (IntHistogram -> IntHistogram -> Ordering)
-> (IntHistogram -> IntHistogram -> Bool)
-> (IntHistogram -> IntHistogram -> Bool)
-> (IntHistogram -> IntHistogram -> Bool)
-> (IntHistogram -> IntHistogram -> Bool)
-> (IntHistogram -> IntHistogram -> IntHistogram)
-> (IntHistogram -> IntHistogram -> IntHistogram)
-> Ord IntHistogram
IntHistogram -> IntHistogram -> Bool
IntHistogram -> IntHistogram -> Ordering
IntHistogram -> IntHistogram -> IntHistogram
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: IntHistogram -> IntHistogram -> IntHistogram
$cmin :: IntHistogram -> IntHistogram -> IntHistogram
max :: IntHistogram -> IntHistogram -> IntHistogram
$cmax :: IntHistogram -> IntHistogram -> IntHistogram
>= :: IntHistogram -> IntHistogram -> Bool
$c>= :: IntHistogram -> IntHistogram -> Bool
> :: IntHistogram -> IntHistogram -> Bool
$c> :: IntHistogram -> IntHistogram -> Bool
<= :: IntHistogram -> IntHistogram -> Bool
$c<= :: IntHistogram -> IntHistogram -> Bool
< :: IntHistogram -> IntHistogram -> Bool
$c< :: IntHistogram -> IntHistogram -> Bool
compare :: IntHistogram -> IntHistogram -> Ordering
$ccompare :: IntHistogram -> IntHistogram -> Ordering
$cp1Ord :: Eq IntHistogram
Prelude.Ord)
instance Prelude.Show IntHistogram where
showsPrec :: Int -> IntHistogram -> ShowS
showsPrec Int
_ IntHistogram
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(IntHistogram -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort IntHistogram
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField IntHistogram "dataPoints" [IntHistogramDataPoint] where
fieldOf :: Proxy# "dataPoints"
-> ([IntHistogramDataPoint] -> f [IntHistogramDataPoint])
-> IntHistogram
-> f IntHistogram
fieldOf Proxy# "dataPoints"
_
= ((Vector IntHistogramDataPoint -> f (Vector IntHistogramDataPoint))
-> IntHistogram -> f IntHistogram)
-> (([IntHistogramDataPoint] -> f [IntHistogramDataPoint])
-> Vector IntHistogramDataPoint
-> f (Vector IntHistogramDataPoint))
-> ([IntHistogramDataPoint] -> f [IntHistogramDataPoint])
-> IntHistogram
-> f IntHistogram
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogram -> Vector IntHistogramDataPoint)
-> (IntHistogram -> Vector IntHistogramDataPoint -> IntHistogram)
-> Lens
IntHistogram
IntHistogram
(Vector IntHistogramDataPoint)
(Vector IntHistogramDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogram -> Vector IntHistogramDataPoint
_IntHistogram'dataPoints
(\ IntHistogram
x__ Vector IntHistogramDataPoint
y__ -> IntHistogram
x__ {_IntHistogram'dataPoints :: Vector IntHistogramDataPoint
_IntHistogram'dataPoints = Vector IntHistogramDataPoint
y__}))
((Vector IntHistogramDataPoint -> [IntHistogramDataPoint])
-> (Vector IntHistogramDataPoint
-> [IntHistogramDataPoint] -> Vector IntHistogramDataPoint)
-> Lens
(Vector IntHistogramDataPoint)
(Vector IntHistogramDataPoint)
[IntHistogramDataPoint]
[IntHistogramDataPoint]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector IntHistogramDataPoint -> [IntHistogramDataPoint]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector IntHistogramDataPoint
_ [IntHistogramDataPoint]
y__ -> [IntHistogramDataPoint] -> Vector IntHistogramDataPoint
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [IntHistogramDataPoint]
y__))
instance Data.ProtoLens.Field.HasField IntHistogram "vec'dataPoints" (Data.Vector.Vector IntHistogramDataPoint) where
fieldOf :: Proxy# "vec'dataPoints"
-> (Vector IntHistogramDataPoint
-> f (Vector IntHistogramDataPoint))
-> IntHistogram
-> f IntHistogram
fieldOf Proxy# "vec'dataPoints"
_
= ((Vector IntHistogramDataPoint -> f (Vector IntHistogramDataPoint))
-> IntHistogram -> f IntHistogram)
-> ((Vector IntHistogramDataPoint
-> f (Vector IntHistogramDataPoint))
-> Vector IntHistogramDataPoint
-> f (Vector IntHistogramDataPoint))
-> (Vector IntHistogramDataPoint
-> f (Vector IntHistogramDataPoint))
-> IntHistogram
-> f IntHistogram
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogram -> Vector IntHistogramDataPoint)
-> (IntHistogram -> Vector IntHistogramDataPoint -> IntHistogram)
-> Lens
IntHistogram
IntHistogram
(Vector IntHistogramDataPoint)
(Vector IntHistogramDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogram -> Vector IntHistogramDataPoint
_IntHistogram'dataPoints
(\ IntHistogram
x__ Vector IntHistogramDataPoint
y__ -> IntHistogram
x__ {_IntHistogram'dataPoints :: Vector IntHistogramDataPoint
_IntHistogram'dataPoints = Vector IntHistogramDataPoint
y__}))
(Vector IntHistogramDataPoint -> f (Vector IntHistogramDataPoint))
-> Vector IntHistogramDataPoint -> f (Vector IntHistogramDataPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntHistogram "aggregationTemporality" AggregationTemporality where
fieldOf :: Proxy# "aggregationTemporality"
-> (AggregationTemporality -> f AggregationTemporality)
-> IntHistogram
-> f IntHistogram
fieldOf Proxy# "aggregationTemporality"
_
= ((AggregationTemporality -> f AggregationTemporality)
-> IntHistogram -> f IntHistogram)
-> ((AggregationTemporality -> f AggregationTemporality)
-> AggregationTemporality -> f AggregationTemporality)
-> (AggregationTemporality -> f AggregationTemporality)
-> IntHistogram
-> f IntHistogram
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogram -> AggregationTemporality)
-> (IntHistogram -> AggregationTemporality -> IntHistogram)
-> Lens
IntHistogram
IntHistogram
AggregationTemporality
AggregationTemporality
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogram -> AggregationTemporality
_IntHistogram'aggregationTemporality
(\ IntHistogram
x__ AggregationTemporality
y__ -> IntHistogram
x__ {_IntHistogram'aggregationTemporality :: AggregationTemporality
_IntHistogram'aggregationTemporality = AggregationTemporality
y__}))
(AggregationTemporality -> f AggregationTemporality)
-> AggregationTemporality -> f AggregationTemporality
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message IntHistogram where
messageName :: Proxy IntHistogram -> Text
messageName Proxy IntHistogram
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.IntHistogram"
packedMessageDescriptor :: Proxy IntHistogram -> ByteString
packedMessageDescriptor Proxy IntHistogram
_
= ByteString
"\n\
\\fIntHistogram\DC2V\n\
\\vdata_points\CAN\SOH \ETX(\v25.opentelemetry.proto.metrics.v1.IntHistogramDataPointR\n\
\dataPoints\DC2o\n\
\\ETBaggregation_temporality\CAN\STX \SOH(\SO26.opentelemetry.proto.metrics.v1.AggregationTemporalityR\SYNaggregationTemporality:\STX\CAN\SOH"
packedFileDescriptor :: Proxy IntHistogram -> ByteString
packedFileDescriptor Proxy IntHistogram
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor IntHistogram)
fieldsByTag
= let
dataPoints__field_descriptor :: FieldDescriptor IntHistogram
dataPoints__field_descriptor
= String
-> FieldTypeDescriptor IntHistogramDataPoint
-> FieldAccessor IntHistogram IntHistogramDataPoint
-> FieldDescriptor IntHistogram
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"data_points"
(MessageOrGroup -> FieldTypeDescriptor IntHistogramDataPoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor IntHistogramDataPoint)
(Packing
-> Lens' IntHistogram [IntHistogramDataPoint]
-> FieldAccessor IntHistogram IntHistogramDataPoint
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataPoints")) ::
Data.ProtoLens.FieldDescriptor IntHistogram
aggregationTemporality__field_descriptor :: FieldDescriptor IntHistogram
aggregationTemporality__field_descriptor
= String
-> FieldTypeDescriptor AggregationTemporality
-> FieldAccessor IntHistogram AggregationTemporality
-> FieldDescriptor IntHistogram
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"aggregation_temporality"
(ScalarField AggregationTemporality
-> FieldTypeDescriptor AggregationTemporality
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField AggregationTemporality
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor AggregationTemporality)
(WireDefault AggregationTemporality
-> Lens
IntHistogram
IntHistogram
AggregationTemporality
AggregationTemporality
-> FieldAccessor IntHistogram AggregationTemporality
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault AggregationTemporality
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality")) ::
Data.ProtoLens.FieldDescriptor IntHistogram
in
[(Tag, FieldDescriptor IntHistogram)]
-> Map Tag (FieldDescriptor IntHistogram)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor IntHistogram
dataPoints__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor IntHistogram
aggregationTemporality__field_descriptor)]
unknownFields :: LensLike' f IntHistogram FieldSet
unknownFields
= (IntHistogram -> FieldSet)
-> (IntHistogram -> FieldSet -> IntHistogram)
-> Lens' IntHistogram FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogram -> FieldSet
_IntHistogram'_unknownFields
(\ IntHistogram
x__ FieldSet
y__ -> IntHistogram
x__ {_IntHistogram'_unknownFields :: FieldSet
_IntHistogram'_unknownFields = FieldSet
y__})
defMessage :: IntHistogram
defMessage
= IntHistogram'_constructor :: Vector IntHistogramDataPoint
-> AggregationTemporality -> FieldSet -> IntHistogram
IntHistogram'_constructor
{_IntHistogram'dataPoints :: Vector IntHistogramDataPoint
_IntHistogram'dataPoints = Vector IntHistogramDataPoint
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_IntHistogram'aggregationTemporality :: AggregationTemporality
_IntHistogram'aggregationTemporality = AggregationTemporality
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntHistogram'_unknownFields :: FieldSet
_IntHistogram'_unknownFields = []}
parseMessage :: Parser IntHistogram
parseMessage
= let
loop ::
IntHistogram
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld IntHistogramDataPoint
-> Data.ProtoLens.Encoding.Bytes.Parser IntHistogram
loop :: IntHistogram
-> Growing Vector RealWorld IntHistogramDataPoint
-> Parser IntHistogram
loop IntHistogram
x Growing Vector RealWorld IntHistogramDataPoint
mutable'dataPoints
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector IntHistogramDataPoint
frozen'dataPoints <- IO (Vector IntHistogramDataPoint)
-> Parser (Vector IntHistogramDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) IntHistogramDataPoint
-> IO (Vector IntHistogramDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld IntHistogramDataPoint
Growing Vector (PrimState IO) IntHistogramDataPoint
mutable'dataPoints)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
IntHistogram -> Parser IntHistogram
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter IntHistogram IntHistogram FieldSet FieldSet
-> (FieldSet -> FieldSet) -> IntHistogram -> IntHistogram
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter IntHistogram IntHistogram FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
IntHistogram
IntHistogram
(Vector IntHistogramDataPoint)
(Vector IntHistogramDataPoint)
-> Vector IntHistogramDataPoint -> IntHistogram -> IntHistogram
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Vector IntHistogramDataPoint
frozen'dataPoints
IntHistogram
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !IntHistogramDataPoint
y <- Parser IntHistogramDataPoint
-> String -> Parser IntHistogramDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser IntHistogramDataPoint -> Parser IntHistogramDataPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser IntHistogramDataPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"data_points"
Growing Vector RealWorld IntHistogramDataPoint
v <- IO (Growing Vector RealWorld IntHistogramDataPoint)
-> Parser (Growing Vector RealWorld IntHistogramDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) IntHistogramDataPoint
-> IntHistogramDataPoint
-> IO (Growing Vector (PrimState IO) IntHistogramDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld IntHistogramDataPoint
Growing Vector (PrimState IO) IntHistogramDataPoint
mutable'dataPoints IntHistogramDataPoint
y)
IntHistogram
-> Growing Vector RealWorld IntHistogramDataPoint
-> Parser IntHistogram
loop IntHistogram
x Growing Vector RealWorld IntHistogramDataPoint
v
Word64
16
-> do AggregationTemporality
y <- Parser AggregationTemporality
-> String -> Parser AggregationTemporality
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> AggregationTemporality)
-> Parser Int -> Parser AggregationTemporality
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> AggregationTemporality
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"aggregation_temporality"
IntHistogram
-> Growing Vector RealWorld IntHistogramDataPoint
-> Parser IntHistogram
loop
(Setter
IntHistogram
IntHistogram
AggregationTemporality
AggregationTemporality
-> AggregationTemporality -> IntHistogram -> IntHistogram
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality") AggregationTemporality
y IntHistogram
x)
Growing Vector RealWorld IntHistogramDataPoint
mutable'dataPoints
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
IntHistogram
-> Growing Vector RealWorld IntHistogramDataPoint
-> Parser IntHistogram
loop
(Setter IntHistogram IntHistogram FieldSet FieldSet
-> (FieldSet -> FieldSet) -> IntHistogram -> IntHistogram
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter IntHistogram IntHistogram FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) IntHistogram
x)
Growing Vector RealWorld IntHistogramDataPoint
mutable'dataPoints
in
Parser IntHistogram -> String -> Parser IntHistogram
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld IntHistogramDataPoint
mutable'dataPoints <- IO (Growing Vector RealWorld IntHistogramDataPoint)
-> Parser (Growing Vector RealWorld IntHistogramDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld IntHistogramDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
IntHistogram
-> Growing Vector RealWorld IntHistogramDataPoint
-> Parser IntHistogram
loop IntHistogram
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld IntHistogramDataPoint
mutable'dataPoints)
String
"IntHistogram"
buildMessage :: IntHistogram -> Builder
buildMessage
= \ IntHistogram
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((IntHistogramDataPoint -> Builder)
-> Vector IntHistogramDataPoint -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ IntHistogramDataPoint
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (IntHistogramDataPoint -> ByteString)
-> IntHistogramDataPoint
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
IntHistogramDataPoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage IntHistogramDataPoint
_v))
(FoldLike
(Vector IntHistogramDataPoint)
IntHistogram
IntHistogram
(Vector IntHistogramDataPoint)
(Vector IntHistogramDataPoint)
-> IntHistogram -> Vector IntHistogramDataPoint
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") IntHistogram
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: AggregationTemporality
_v
= FoldLike
AggregationTemporality
IntHistogram
IntHistogram
AggregationTemporality
AggregationTemporality
-> IntHistogram -> AggregationTemporality
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality") IntHistogram
_x
in
if AggregationTemporality -> AggregationTemporality -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) AggregationTemporality
_v AggregationTemporality
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Int -> Builder)
-> (AggregationTemporality -> Int)
-> AggregationTemporality
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
AggregationTemporality -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum AggregationTemporality
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet IntHistogram IntHistogram FieldSet FieldSet
-> IntHistogram -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet IntHistogram IntHistogram FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields IntHistogram
_x)))
instance Control.DeepSeq.NFData IntHistogram where
rnf :: IntHistogram -> ()
rnf
= \ IntHistogram
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogram -> FieldSet
_IntHistogram'_unknownFields IntHistogram
x__)
(Vector IntHistogramDataPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogram -> Vector IntHistogramDataPoint
_IntHistogram'dataPoints IntHistogram
x__)
(AggregationTemporality -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogram -> AggregationTemporality
_IntHistogram'aggregationTemporality IntHistogram
x__) ()))
data IntHistogramDataPoint
= IntHistogramDataPoint'_constructor {IntHistogramDataPoint -> Vector StringKeyValue
_IntHistogramDataPoint'labels :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue),
IntHistogramDataPoint -> Word64
_IntHistogramDataPoint'startTimeUnixNano :: !Data.Word.Word64,
IntHistogramDataPoint -> Word64
_IntHistogramDataPoint'timeUnixNano :: !Data.Word.Word64,
IntHistogramDataPoint -> Word64
_IntHistogramDataPoint'count :: !Data.Word.Word64,
IntHistogramDataPoint -> Int64
_IntHistogramDataPoint'sum :: !Data.Int.Int64,
IntHistogramDataPoint -> Vector Word64
_IntHistogramDataPoint'bucketCounts :: !(Data.Vector.Unboxed.Vector Data.Word.Word64),
IntHistogramDataPoint -> Vector Double
_IntHistogramDataPoint'explicitBounds :: !(Data.Vector.Unboxed.Vector Prelude.Double),
IntHistogramDataPoint -> Vector IntExemplar
_IntHistogramDataPoint'exemplars :: !(Data.Vector.Vector IntExemplar),
IntHistogramDataPoint -> FieldSet
_IntHistogramDataPoint'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
(IntHistogramDataPoint -> IntHistogramDataPoint -> Bool)
-> (IntHistogramDataPoint -> IntHistogramDataPoint -> Bool)
-> Eq IntHistogramDataPoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
$c/= :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
== :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
$c== :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
Prelude.Eq, Eq IntHistogramDataPoint
Eq IntHistogramDataPoint
-> (IntHistogramDataPoint -> IntHistogramDataPoint -> Ordering)
-> (IntHistogramDataPoint -> IntHistogramDataPoint -> Bool)
-> (IntHistogramDataPoint -> IntHistogramDataPoint -> Bool)
-> (IntHistogramDataPoint -> IntHistogramDataPoint -> Bool)
-> (IntHistogramDataPoint -> IntHistogramDataPoint -> Bool)
-> (IntHistogramDataPoint
-> IntHistogramDataPoint -> IntHistogramDataPoint)
-> (IntHistogramDataPoint
-> IntHistogramDataPoint -> IntHistogramDataPoint)
-> Ord IntHistogramDataPoint
IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
IntHistogramDataPoint -> IntHistogramDataPoint -> Ordering
IntHistogramDataPoint
-> IntHistogramDataPoint -> IntHistogramDataPoint
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: IntHistogramDataPoint
-> IntHistogramDataPoint -> IntHistogramDataPoint
$cmin :: IntHistogramDataPoint
-> IntHistogramDataPoint -> IntHistogramDataPoint
max :: IntHistogramDataPoint
-> IntHistogramDataPoint -> IntHistogramDataPoint
$cmax :: IntHistogramDataPoint
-> IntHistogramDataPoint -> IntHistogramDataPoint
>= :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
$c>= :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
> :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
$c> :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
<= :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
$c<= :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
< :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
$c< :: IntHistogramDataPoint -> IntHistogramDataPoint -> Bool
compare :: IntHistogramDataPoint -> IntHistogramDataPoint -> Ordering
$ccompare :: IntHistogramDataPoint -> IntHistogramDataPoint -> Ordering
$cp1Ord :: Eq IntHistogramDataPoint
Prelude.Ord)
instance Prelude.Show IntHistogramDataPoint where
showsPrec :: Int -> IntHistogramDataPoint -> ShowS
showsPrec Int
_ IntHistogramDataPoint
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(IntHistogramDataPoint -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort IntHistogramDataPoint
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "labels" [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue] where
fieldOf :: Proxy# "labels"
-> ([StringKeyValue] -> f [StringKeyValue])
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "labels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> (([StringKeyValue] -> f [StringKeyValue])
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> ([StringKeyValue] -> f [StringKeyValue])
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Vector StringKeyValue)
-> (IntHistogramDataPoint
-> Vector StringKeyValue -> IntHistogramDataPoint)
-> Lens
IntHistogramDataPoint
IntHistogramDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Vector StringKeyValue
_IntHistogramDataPoint'labels
(\ IntHistogramDataPoint
x__ Vector StringKeyValue
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'labels :: Vector StringKeyValue
_IntHistogramDataPoint'labels = Vector StringKeyValue
y__}))
((Vector StringKeyValue -> [StringKeyValue])
-> (Vector StringKeyValue
-> [StringKeyValue] -> Vector StringKeyValue)
-> Lens
(Vector StringKeyValue)
(Vector StringKeyValue)
[StringKeyValue]
[StringKeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector StringKeyValue -> [StringKeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector StringKeyValue
_ [StringKeyValue]
y__ -> [StringKeyValue] -> Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StringKeyValue]
y__))
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "vec'labels" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue) where
fieldOf :: Proxy# "vec'labels"
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "vec'labels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Vector StringKeyValue)
-> (IntHistogramDataPoint
-> Vector StringKeyValue -> IntHistogramDataPoint)
-> Lens
IntHistogramDataPoint
IntHistogramDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Vector StringKeyValue
_IntHistogramDataPoint'labels
(\ IntHistogramDataPoint
x__ Vector StringKeyValue
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'labels :: Vector StringKeyValue
_IntHistogramDataPoint'labels = Vector StringKeyValue
y__}))
(Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "startTimeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "startTimeUnixNano"
-> (Word64 -> f Word64)
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "startTimeUnixNano"
_
= ((Word64 -> f Word64)
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Word64)
-> (IntHistogramDataPoint -> Word64 -> IntHistogramDataPoint)
-> Lens IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Word64
_IntHistogramDataPoint'startTimeUnixNano
(\ IntHistogramDataPoint
x__ Word64
y__
-> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'startTimeUnixNano :: Word64
_IntHistogramDataPoint'startTimeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "timeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "timeUnixNano"
-> (Word64 -> f Word64)
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "timeUnixNano"
_
= ((Word64 -> f Word64)
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Word64)
-> (IntHistogramDataPoint -> Word64 -> IntHistogramDataPoint)
-> Lens IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Word64
_IntHistogramDataPoint'timeUnixNano
(\ IntHistogramDataPoint
x__ Word64
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'timeUnixNano :: Word64
_IntHistogramDataPoint'timeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "count" Data.Word.Word64 where
fieldOf :: Proxy# "count"
-> (Word64 -> f Word64)
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "count"
_
= ((Word64 -> f Word64)
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Word64)
-> (IntHistogramDataPoint -> Word64 -> IntHistogramDataPoint)
-> Lens IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Word64
_IntHistogramDataPoint'count
(\ IntHistogramDataPoint
x__ Word64
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'count :: Word64
_IntHistogramDataPoint'count = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "sum" Data.Int.Int64 where
fieldOf :: Proxy# "sum"
-> (Int64 -> f Int64)
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "sum"
_
= ((Int64 -> f Int64)
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Int64)
-> (IntHistogramDataPoint -> Int64 -> IntHistogramDataPoint)
-> Lens IntHistogramDataPoint IntHistogramDataPoint Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Int64
_IntHistogramDataPoint'sum
(\ IntHistogramDataPoint
x__ Int64
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'sum :: Int64
_IntHistogramDataPoint'sum = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "bucketCounts" [Data.Word.Word64] where
fieldOf :: Proxy# "bucketCounts"
-> ([Word64] -> f [Word64])
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "bucketCounts"
_
= ((Vector Word64 -> f (Vector Word64))
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> (([Word64] -> f [Word64]) -> Vector Word64 -> f (Vector Word64))
-> ([Word64] -> f [Word64])
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Vector Word64)
-> (IntHistogramDataPoint
-> Vector Word64 -> IntHistogramDataPoint)
-> Lens
IntHistogramDataPoint
IntHistogramDataPoint
(Vector Word64)
(Vector Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Vector Word64
_IntHistogramDataPoint'bucketCounts
(\ IntHistogramDataPoint
x__ Vector Word64
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'bucketCounts :: Vector Word64
_IntHistogramDataPoint'bucketCounts = Vector Word64
y__}))
((Vector Word64 -> [Word64])
-> (Vector Word64 -> [Word64] -> Vector Word64)
-> Lens (Vector Word64) (Vector Word64) [Word64] [Word64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Word64 -> [Word64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Word64
_ [Word64]
y__ -> [Word64] -> Vector Word64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Word64]
y__))
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "vec'bucketCounts" (Data.Vector.Unboxed.Vector Data.Word.Word64) where
fieldOf :: Proxy# "vec'bucketCounts"
-> (Vector Word64 -> f (Vector Word64))
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "vec'bucketCounts"
_
= ((Vector Word64 -> f (Vector Word64))
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> ((Vector Word64 -> f (Vector Word64))
-> Vector Word64 -> f (Vector Word64))
-> (Vector Word64 -> f (Vector Word64))
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Vector Word64)
-> (IntHistogramDataPoint
-> Vector Word64 -> IntHistogramDataPoint)
-> Lens
IntHistogramDataPoint
IntHistogramDataPoint
(Vector Word64)
(Vector Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Vector Word64
_IntHistogramDataPoint'bucketCounts
(\ IntHistogramDataPoint
x__ Vector Word64
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'bucketCounts :: Vector Word64
_IntHistogramDataPoint'bucketCounts = Vector Word64
y__}))
(Vector Word64 -> f (Vector Word64))
-> Vector Word64 -> f (Vector Word64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "explicitBounds" [Prelude.Double] where
fieldOf :: Proxy# "explicitBounds"
-> ([Double] -> f [Double])
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "explicitBounds"
_
= ((Vector Double -> f (Vector Double))
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> (([Double] -> f [Double]) -> Vector Double -> f (Vector Double))
-> ([Double] -> f [Double])
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Vector Double)
-> (IntHistogramDataPoint
-> Vector Double -> IntHistogramDataPoint)
-> Lens
IntHistogramDataPoint
IntHistogramDataPoint
(Vector Double)
(Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Vector Double
_IntHistogramDataPoint'explicitBounds
(\ IntHistogramDataPoint
x__ Vector Double
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'explicitBounds :: Vector Double
_IntHistogramDataPoint'explicitBounds = Vector Double
y__}))
((Vector Double -> [Double])
-> (Vector Double -> [Double] -> Vector Double)
-> Lens (Vector Double) (Vector Double) [Double] [Double]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Double -> [Double]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Double
_ [Double]
y__ -> [Double] -> Vector Double
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Double]
y__))
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "vec'explicitBounds" (Data.Vector.Unboxed.Vector Prelude.Double) where
fieldOf :: Proxy# "vec'explicitBounds"
-> (Vector Double -> f (Vector Double))
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "vec'explicitBounds"
_
= ((Vector Double -> f (Vector Double))
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> ((Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double))
-> (Vector Double -> f (Vector Double))
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Vector Double)
-> (IntHistogramDataPoint
-> Vector Double -> IntHistogramDataPoint)
-> Lens
IntHistogramDataPoint
IntHistogramDataPoint
(Vector Double)
(Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Vector Double
_IntHistogramDataPoint'explicitBounds
(\ IntHistogramDataPoint
x__ Vector Double
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'explicitBounds :: Vector Double
_IntHistogramDataPoint'explicitBounds = Vector Double
y__}))
(Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "exemplars" [IntExemplar] where
fieldOf :: Proxy# "exemplars"
-> ([IntExemplar] -> f [IntExemplar])
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "exemplars"
_
= ((Vector IntExemplar -> f (Vector IntExemplar))
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> (([IntExemplar] -> f [IntExemplar])
-> Vector IntExemplar -> f (Vector IntExemplar))
-> ([IntExemplar] -> f [IntExemplar])
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Vector IntExemplar)
-> (IntHistogramDataPoint
-> Vector IntExemplar -> IntHistogramDataPoint)
-> Lens
IntHistogramDataPoint
IntHistogramDataPoint
(Vector IntExemplar)
(Vector IntExemplar)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Vector IntExemplar
_IntHistogramDataPoint'exemplars
(\ IntHistogramDataPoint
x__ Vector IntExemplar
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'exemplars :: Vector IntExemplar
_IntHistogramDataPoint'exemplars = Vector IntExemplar
y__}))
((Vector IntExemplar -> [IntExemplar])
-> (Vector IntExemplar -> [IntExemplar] -> Vector IntExemplar)
-> Lens
(Vector IntExemplar)
(Vector IntExemplar)
[IntExemplar]
[IntExemplar]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector IntExemplar -> [IntExemplar]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector IntExemplar
_ [IntExemplar]
y__ -> [IntExemplar] -> Vector IntExemplar
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [IntExemplar]
y__))
instance Data.ProtoLens.Field.HasField IntHistogramDataPoint "vec'exemplars" (Data.Vector.Vector IntExemplar) where
fieldOf :: Proxy# "vec'exemplars"
-> (Vector IntExemplar -> f (Vector IntExemplar))
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
fieldOf Proxy# "vec'exemplars"
_
= ((Vector IntExemplar -> f (Vector IntExemplar))
-> IntHistogramDataPoint -> f IntHistogramDataPoint)
-> ((Vector IntExemplar -> f (Vector IntExemplar))
-> Vector IntExemplar -> f (Vector IntExemplar))
-> (Vector IntExemplar -> f (Vector IntExemplar))
-> IntHistogramDataPoint
-> f IntHistogramDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntHistogramDataPoint -> Vector IntExemplar)
-> (IntHistogramDataPoint
-> Vector IntExemplar -> IntHistogramDataPoint)
-> Lens
IntHistogramDataPoint
IntHistogramDataPoint
(Vector IntExemplar)
(Vector IntExemplar)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> Vector IntExemplar
_IntHistogramDataPoint'exemplars
(\ IntHistogramDataPoint
x__ Vector IntExemplar
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'exemplars :: Vector IntExemplar
_IntHistogramDataPoint'exemplars = Vector IntExemplar
y__}))
(Vector IntExemplar -> f (Vector IntExemplar))
-> Vector IntExemplar -> f (Vector IntExemplar)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message IntHistogramDataPoint where
messageName :: Proxy IntHistogramDataPoint -> Text
messageName Proxy IntHistogramDataPoint
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.v1.IntHistogramDataPoint"
packedMessageDescriptor :: Proxy IntHistogramDataPoint -> ByteString
packedMessageDescriptor Proxy IntHistogramDataPoint
_
= ByteString
"\n\
\\NAKIntHistogramDataPoint\DC2E\n\
\\ACKlabels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\ACKlabels\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQcount\CAN\EOT \SOH(\ACKR\ENQcount\DC2\DLE\n\
\\ETXsum\CAN\ENQ \SOH(\DLER\ETXsum\DC2#\n\
\\rbucket_counts\CAN\ACK \ETX(\ACKR\fbucketCounts\DC2'\n\
\\SIexplicit_bounds\CAN\a \ETX(\SOHR\SOexplicitBounds\DC2I\n\
\\texemplars\CAN\b \ETX(\v2+.opentelemetry.proto.metrics.v1.IntExemplarR\texemplars:\STX\CAN\SOH"
packedFileDescriptor :: Proxy IntHistogramDataPoint -> ByteString
packedFileDescriptor Proxy IntHistogramDataPoint
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor IntHistogramDataPoint)
fieldsByTag
= let
labels__field_descriptor :: FieldDescriptor IntHistogramDataPoint
labels__field_descriptor
= String
-> FieldTypeDescriptor StringKeyValue
-> FieldAccessor IntHistogramDataPoint StringKeyValue
-> FieldDescriptor IntHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"labels"
(MessageOrGroup -> FieldTypeDescriptor StringKeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)
(Packing
-> Lens' IntHistogramDataPoint [StringKeyValue]
-> FieldAccessor IntHistogramDataPoint StringKeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"labels")) ::
Data.ProtoLens.FieldDescriptor IntHistogramDataPoint
startTimeUnixNano__field_descriptor :: FieldDescriptor IntHistogramDataPoint
startTimeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor IntHistogramDataPoint Word64
-> FieldDescriptor IntHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
-> FieldAccessor IntHistogramDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano")) ::
Data.ProtoLens.FieldDescriptor IntHistogramDataPoint
timeUnixNano__field_descriptor :: FieldDescriptor IntHistogramDataPoint
timeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor IntHistogramDataPoint Word64
-> FieldDescriptor IntHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
-> FieldAccessor IntHistogramDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano")) ::
Data.ProtoLens.FieldDescriptor IntHistogramDataPoint
count__field_descriptor :: FieldDescriptor IntHistogramDataPoint
count__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor IntHistogramDataPoint Word64
-> FieldDescriptor IntHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"count"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
-> FieldAccessor IntHistogramDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count")) ::
Data.ProtoLens.FieldDescriptor IntHistogramDataPoint
sum__field_descriptor :: FieldDescriptor IntHistogramDataPoint
sum__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor IntHistogramDataPoint Int64
-> FieldDescriptor IntHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"sum"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.SFixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens IntHistogramDataPoint IntHistogramDataPoint Int64 Int64
-> FieldAccessor IntHistogramDataPoint Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum")) ::
Data.ProtoLens.FieldDescriptor IntHistogramDataPoint
bucketCounts__field_descriptor :: FieldDescriptor IntHistogramDataPoint
bucketCounts__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor IntHistogramDataPoint Word64
-> FieldDescriptor IntHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"bucket_counts"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Packing
-> Lens' IntHistogramDataPoint [Word64]
-> FieldAccessor IntHistogramDataPoint Word64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "bucketCounts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bucketCounts")) ::
Data.ProtoLens.FieldDescriptor IntHistogramDataPoint
explicitBounds__field_descriptor :: FieldDescriptor IntHistogramDataPoint
explicitBounds__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor IntHistogramDataPoint Double
-> FieldDescriptor IntHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"explicit_bounds"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Packing
-> Lens' IntHistogramDataPoint [Double]
-> FieldAccessor IntHistogramDataPoint Double
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "explicitBounds" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"explicitBounds")) ::
Data.ProtoLens.FieldDescriptor IntHistogramDataPoint
exemplars__field_descriptor :: FieldDescriptor IntHistogramDataPoint
exemplars__field_descriptor
= String
-> FieldTypeDescriptor IntExemplar
-> FieldAccessor IntHistogramDataPoint IntExemplar
-> FieldDescriptor IntHistogramDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"exemplars"
(MessageOrGroup -> FieldTypeDescriptor IntExemplar
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor IntExemplar)
(Packing
-> Lens' IntHistogramDataPoint [IntExemplar]
-> FieldAccessor IntHistogramDataPoint IntExemplar
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exemplars")) ::
Data.ProtoLens.FieldDescriptor IntHistogramDataPoint
in
[(Tag, FieldDescriptor IntHistogramDataPoint)]
-> Map Tag (FieldDescriptor IntHistogramDataPoint)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor IntHistogramDataPoint
labels__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor IntHistogramDataPoint
startTimeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor IntHistogramDataPoint
timeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor IntHistogramDataPoint
count__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor IntHistogramDataPoint
sum__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor IntHistogramDataPoint
bucketCounts__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor IntHistogramDataPoint
explicitBounds__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor IntHistogramDataPoint
exemplars__field_descriptor)]
unknownFields :: LensLike' f IntHistogramDataPoint FieldSet
unknownFields
= (IntHistogramDataPoint -> FieldSet)
-> (IntHistogramDataPoint -> FieldSet -> IntHistogramDataPoint)
-> Lens' IntHistogramDataPoint FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntHistogramDataPoint -> FieldSet
_IntHistogramDataPoint'_unknownFields
(\ IntHistogramDataPoint
x__ FieldSet
y__ -> IntHistogramDataPoint
x__ {_IntHistogramDataPoint'_unknownFields :: FieldSet
_IntHistogramDataPoint'_unknownFields = FieldSet
y__})
defMessage :: IntHistogramDataPoint
defMessage
= IntHistogramDataPoint'_constructor :: Vector StringKeyValue
-> Word64
-> Word64
-> Word64
-> Int64
-> Vector Word64
-> Vector Double
-> Vector IntExemplar
-> FieldSet
-> IntHistogramDataPoint
IntHistogramDataPoint'_constructor
{_IntHistogramDataPoint'labels :: Vector StringKeyValue
_IntHistogramDataPoint'labels = Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_IntHistogramDataPoint'startTimeUnixNano :: Word64
_IntHistogramDataPoint'startTimeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntHistogramDataPoint'timeUnixNano :: Word64
_IntHistogramDataPoint'timeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntHistogramDataPoint'count :: Word64
_IntHistogramDataPoint'count = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntHistogramDataPoint'sum :: Int64
_IntHistogramDataPoint'sum = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntHistogramDataPoint'bucketCounts :: Vector Word64
_IntHistogramDataPoint'bucketCounts = Vector Word64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_IntHistogramDataPoint'explicitBounds :: Vector Double
_IntHistogramDataPoint'explicitBounds = Vector Double
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_IntHistogramDataPoint'exemplars :: Vector IntExemplar
_IntHistogramDataPoint'exemplars = Vector IntExemplar
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_IntHistogramDataPoint'_unknownFields :: FieldSet
_IntHistogramDataPoint'_unknownFields = []}
parseMessage :: Parser IntHistogramDataPoint
parseMessage
= let
loop ::
IntHistogramDataPoint
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Word.Word64
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld IntExemplar
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Double
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue
-> Data.ProtoLens.Encoding.Bytes.Parser IntHistogramDataPoint
loop :: IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop
IntHistogramDataPoint
x
Growing Vector RealWorld Word64
mutable'bucketCounts
Growing Vector RealWorld IntExemplar
mutable'exemplars
Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Word64
frozen'bucketCounts <- IO (Vector Word64) -> Parser (Vector Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Word64 -> IO (Vector Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Word64
Growing Vector (PrimState IO) Word64
mutable'bucketCounts)
Vector IntExemplar
frozen'exemplars <- IO (Vector IntExemplar) -> Parser (Vector IntExemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) IntExemplar
-> IO (Vector IntExemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld IntExemplar
Growing Vector (PrimState IO) IntExemplar
mutable'exemplars)
Vector Double
frozen'explicitBounds <- IO (Vector Double) -> Parser (Vector Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double -> IO (Vector Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Double
Growing Vector (PrimState IO) Double
mutable'explicitBounds)
Vector StringKeyValue
frozen'labels <- IO (Vector StringKeyValue) -> Parser (Vector StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> IO (Vector StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'labels)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
IntHistogramDataPoint -> Parser IntHistogramDataPoint
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
IntHistogramDataPoint IntHistogramDataPoint FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> IntHistogramDataPoint
-> IntHistogramDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter
IntHistogramDataPoint IntHistogramDataPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
IntHistogramDataPoint
IntHistogramDataPoint
(Vector Word64)
(Vector Word64)
-> Vector Word64 -> IntHistogramDataPoint -> IntHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'bucketCounts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'bucketCounts")
Vector Word64
frozen'bucketCounts
(Setter
IntHistogramDataPoint
IntHistogramDataPoint
(Vector IntExemplar)
(Vector IntExemplar)
-> Vector IntExemplar
-> IntHistogramDataPoint
-> IntHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'exemplars") Vector IntExemplar
frozen'exemplars
(Setter
IntHistogramDataPoint
IntHistogramDataPoint
(Vector Double)
(Vector Double)
-> Vector Double -> IntHistogramDataPoint -> IntHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'explicitBounds" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'explicitBounds")
Vector Double
frozen'explicitBounds
(Setter
IntHistogramDataPoint
IntHistogramDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
-> Vector StringKeyValue
-> IntHistogramDataPoint
-> IntHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'labels") Vector StringKeyValue
frozen'labels
IntHistogramDataPoint
x)))))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !StringKeyValue
y <- Parser StringKeyValue -> String -> Parser StringKeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StringKeyValue -> Parser StringKeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser StringKeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"labels"
Growing Vector RealWorld StringKeyValue
v <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> StringKeyValue
-> IO (Growing Vector (PrimState IO) StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'labels StringKeyValue
y)
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop
IntHistogramDataPoint
x Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
v
Word64
17
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64
String
"start_time_unix_nano"
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop
(Setter IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
-> Word64 -> IntHistogramDataPoint -> IntHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") Word64
y IntHistogramDataPoint
x)
Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
25
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"time_unix_nano"
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop
(Setter IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
-> Word64 -> IntHistogramDataPoint -> IntHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") Word64
y IntHistogramDataPoint
x)
Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
33
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"count"
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop
(Setter IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
-> Word64 -> IntHistogramDataPoint -> IntHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count") Word64
y IntHistogramDataPoint
x)
Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
41
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"sum"
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop
(Setter IntHistogramDataPoint IntHistogramDataPoint Int64 Int64
-> Int64 -> IntHistogramDataPoint -> IntHistogramDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") Int64
y IntHistogramDataPoint
x)
Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
49
-> do !Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"bucket_counts"
Growing Vector RealWorld Word64
v <- IO (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Word64
-> Word64 -> IO (Growing Vector (PrimState IO) Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld Word64
Growing Vector (PrimState IO) Word64
mutable'bucketCounts Word64
y)
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop IntHistogramDataPoint
x Growing Vector RealWorld Word64
v Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
50
-> do Growing Vector RealWorld Word64
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop Growing v RealWorld Word64
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Word64
qs
else
do !Word64
q <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64
String
"bucket_counts"
Growing v RealWorld Word64
qs' <- IO (Growing v RealWorld Word64)
-> Parser (Growing v RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Word64
-> Word64 -> IO (Growing v (PrimState IO) Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld Word64
Growing v (PrimState IO) Word64
qs Word64
q)
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop Growing v RealWorld Word64
qs'
in forall (v :: * -> *).
Vector v Word64 =>
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop)
Growing Vector RealWorld Word64
mutable'bucketCounts)
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop IntHistogramDataPoint
x Growing Vector RealWorld Word64
y Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
57
-> do !Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"explicit_bounds"
Growing Vector RealWorld Double
v <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double
-> Double -> IO (Growing Vector (PrimState IO) Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld Double
Growing Vector (PrimState IO) Double
mutable'explicitBounds Double
y)
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop IntHistogramDataPoint
x Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld Double
v Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
58
-> do Growing Vector RealWorld Double
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop Growing v RealWorld Double
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Double
qs
else
do !Double
q <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"explicit_bounds"
Growing v RealWorld Double
qs' <- IO (Growing v RealWorld Double)
-> Parser (Growing v RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Double
-> Double -> IO (Growing v (PrimState IO) Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld Double
Growing v (PrimState IO) Double
qs Double
q)
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop Growing v RealWorld Double
qs'
in forall (v :: * -> *).
Vector v Double =>
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop)
Growing Vector RealWorld Double
mutable'explicitBounds)
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop IntHistogramDataPoint
x Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld Double
y Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
66
-> do !IntExemplar
y <- Parser IntExemplar -> String -> Parser IntExemplar
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser IntExemplar -> Parser IntExemplar
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser IntExemplar
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"exemplars"
Growing Vector RealWorld IntExemplar
v <- IO (Growing Vector RealWorld IntExemplar)
-> Parser (Growing Vector RealWorld IntExemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) IntExemplar
-> IntExemplar -> IO (Growing Vector (PrimState IO) IntExemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld IntExemplar
Growing Vector (PrimState IO) IntExemplar
mutable'exemplars IntExemplar
y)
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop IntHistogramDataPoint
x Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld IntExemplar
v Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop
(Setter
IntHistogramDataPoint IntHistogramDataPoint FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> IntHistogramDataPoint
-> IntHistogramDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter
IntHistogramDataPoint IntHistogramDataPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) IntHistogramDataPoint
x)
Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld IntExemplar
mutable'exemplars Growing Vector RealWorld Double
mutable'explicitBounds
Growing Vector RealWorld StringKeyValue
mutable'labels
in
Parser IntHistogramDataPoint
-> String -> Parser IntHistogramDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Word64
mutable'bucketCounts <- IO (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld IntExemplar
mutable'exemplars <- IO (Growing Vector RealWorld IntExemplar)
-> Parser (Growing Vector RealWorld IntExemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld IntExemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Double
mutable'explicitBounds <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld StringKeyValue
mutable'labels <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
IntHistogramDataPoint
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld IntExemplar
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld StringKeyValue
-> Parser IntHistogramDataPoint
loop
IntHistogramDataPoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Word64
mutable'bucketCounts Growing Vector RealWorld IntExemplar
mutable'exemplars
Growing Vector RealWorld Double
mutable'explicitBounds Growing Vector RealWorld StringKeyValue
mutable'labels)
String
"IntHistogramDataPoint"
buildMessage :: IntHistogramDataPoint -> Builder
buildMessage
= \ IntHistogramDataPoint
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((StringKeyValue -> Builder) -> Vector StringKeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ StringKeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (StringKeyValue -> ByteString) -> StringKeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
StringKeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StringKeyValue
_v))
(FoldLike
(Vector StringKeyValue)
IntHistogramDataPoint
IntHistogramDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
-> IntHistogramDataPoint -> Vector StringKeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'labels") IntHistogramDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike
Word64 IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
-> IntHistogramDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") IntHistogramDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike
Word64 IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
-> IntHistogramDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") IntHistogramDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
25)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v = FoldLike
Word64 IntHistogramDataPoint IntHistogramDataPoint Word64 Word64
-> IntHistogramDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count") IntHistogramDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
33)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Int64
_v = FoldLike
Int64 IntHistogramDataPoint IntHistogramDataPoint Int64 Int64
-> IntHistogramDataPoint -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") IntHistogramDataPoint
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
41)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Word64
p = FoldLike
(Vector Word64)
IntHistogramDataPoint
IntHistogramDataPoint
(Vector Word64)
(Vector Word64)
-> IntHistogramDataPoint -> Vector Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'bucketCounts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'bucketCounts") IntHistogramDataPoint
_x
in
if Vector Word64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Word64
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Word64 -> Builder) -> Vector Word64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Vector Word64
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Double
p = FoldLike
(Vector Double)
IntHistogramDataPoint
IntHistogramDataPoint
(Vector Double)
(Vector Double)
-> IntHistogramDataPoint -> Vector Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'explicitBounds" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'explicitBounds") IntHistogramDataPoint
_x
in
if Vector Double -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Double
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Double -> Builder) -> Vector Double -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord)
Vector Double
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((IntExemplar -> Builder) -> Vector IntExemplar -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ IntExemplar
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
((ByteString -> Builder)
-> (IntExemplar -> ByteString) -> IntExemplar -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
IntExemplar -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage IntExemplar
_v))
(FoldLike
(Vector IntExemplar)
IntHistogramDataPoint
IntHistogramDataPoint
(Vector IntExemplar)
(Vector IntExemplar)
-> IntHistogramDataPoint -> Vector IntExemplar
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'exemplars") IntHistogramDataPoint
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
IntHistogramDataPoint
IntHistogramDataPoint
FieldSet
FieldSet
-> IntHistogramDataPoint -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
IntHistogramDataPoint
IntHistogramDataPoint
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields IntHistogramDataPoint
_x)))))))))
instance Control.DeepSeq.NFData IntHistogramDataPoint where
rnf :: IntHistogramDataPoint -> ()
rnf
= \ IntHistogramDataPoint
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogramDataPoint -> FieldSet
_IntHistogramDataPoint'_unknownFields IntHistogramDataPoint
x__)
(Vector StringKeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogramDataPoint -> Vector StringKeyValue
_IntHistogramDataPoint'labels IntHistogramDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogramDataPoint -> Word64
_IntHistogramDataPoint'startTimeUnixNano IntHistogramDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogramDataPoint -> Word64
_IntHistogramDataPoint'timeUnixNano IntHistogramDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogramDataPoint -> Word64
_IntHistogramDataPoint'count IntHistogramDataPoint
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogramDataPoint -> Int64
_IntHistogramDataPoint'sum IntHistogramDataPoint
x__)
(Vector Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogramDataPoint -> Vector Word64
_IntHistogramDataPoint'bucketCounts IntHistogramDataPoint
x__)
(Vector Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogramDataPoint -> Vector Double
_IntHistogramDataPoint'explicitBounds IntHistogramDataPoint
x__)
(Vector IntExemplar -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntHistogramDataPoint -> Vector IntExemplar
_IntHistogramDataPoint'exemplars IntHistogramDataPoint
x__) ()))))))))
data IntSum
= IntSum'_constructor {IntSum -> Vector IntDataPoint
_IntSum'dataPoints :: !(Data.Vector.Vector IntDataPoint),
IntSum -> AggregationTemporality
_IntSum'aggregationTemporality :: !AggregationTemporality,
IntSum -> Bool
_IntSum'isMonotonic :: !Prelude.Bool,
IntSum -> FieldSet
_IntSum'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (IntSum -> IntSum -> Bool
(IntSum -> IntSum -> Bool)
-> (IntSum -> IntSum -> Bool) -> Eq IntSum
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IntSum -> IntSum -> Bool
$c/= :: IntSum -> IntSum -> Bool
== :: IntSum -> IntSum -> Bool
$c== :: IntSum -> IntSum -> Bool
Prelude.Eq, Eq IntSum
Eq IntSum
-> (IntSum -> IntSum -> Ordering)
-> (IntSum -> IntSum -> Bool)
-> (IntSum -> IntSum -> Bool)
-> (IntSum -> IntSum -> Bool)
-> (IntSum -> IntSum -> Bool)
-> (IntSum -> IntSum -> IntSum)
-> (IntSum -> IntSum -> IntSum)
-> Ord IntSum
IntSum -> IntSum -> Bool
IntSum -> IntSum -> Ordering
IntSum -> IntSum -> IntSum
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: IntSum -> IntSum -> IntSum
$cmin :: IntSum -> IntSum -> IntSum
max :: IntSum -> IntSum -> IntSum
$cmax :: IntSum -> IntSum -> IntSum
>= :: IntSum -> IntSum -> Bool
$c>= :: IntSum -> IntSum -> Bool
> :: IntSum -> IntSum -> Bool
$c> :: IntSum -> IntSum -> Bool
<= :: IntSum -> IntSum -> Bool
$c<= :: IntSum -> IntSum -> Bool
< :: IntSum -> IntSum -> Bool
$c< :: IntSum -> IntSum -> Bool
compare :: IntSum -> IntSum -> Ordering
$ccompare :: IntSum -> IntSum -> Ordering
$cp1Ord :: Eq IntSum
Prelude.Ord)
instance Prelude.Show IntSum where
showsPrec :: Int -> IntSum -> ShowS
showsPrec Int
_ IntSum
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(IntSum -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort IntSum
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField IntSum "dataPoints" [IntDataPoint] where
fieldOf :: Proxy# "dataPoints"
-> ([IntDataPoint] -> f [IntDataPoint]) -> IntSum -> f IntSum
fieldOf Proxy# "dataPoints"
_
= ((Vector IntDataPoint -> f (Vector IntDataPoint))
-> IntSum -> f IntSum)
-> (([IntDataPoint] -> f [IntDataPoint])
-> Vector IntDataPoint -> f (Vector IntDataPoint))
-> ([IntDataPoint] -> f [IntDataPoint])
-> IntSum
-> f IntSum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntSum -> Vector IntDataPoint)
-> (IntSum -> Vector IntDataPoint -> IntSum)
-> Lens IntSum IntSum (Vector IntDataPoint) (Vector IntDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntSum -> Vector IntDataPoint
_IntSum'dataPoints (\ IntSum
x__ Vector IntDataPoint
y__ -> IntSum
x__ {_IntSum'dataPoints :: Vector IntDataPoint
_IntSum'dataPoints = Vector IntDataPoint
y__}))
((Vector IntDataPoint -> [IntDataPoint])
-> (Vector IntDataPoint -> [IntDataPoint] -> Vector IntDataPoint)
-> Lens
(Vector IntDataPoint)
(Vector IntDataPoint)
[IntDataPoint]
[IntDataPoint]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector IntDataPoint -> [IntDataPoint]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector IntDataPoint
_ [IntDataPoint]
y__ -> [IntDataPoint] -> Vector IntDataPoint
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [IntDataPoint]
y__))
instance Data.ProtoLens.Field.HasField IntSum "vec'dataPoints" (Data.Vector.Vector IntDataPoint) where
fieldOf :: Proxy# "vec'dataPoints"
-> (Vector IntDataPoint -> f (Vector IntDataPoint))
-> IntSum
-> f IntSum
fieldOf Proxy# "vec'dataPoints"
_
= ((Vector IntDataPoint -> f (Vector IntDataPoint))
-> IntSum -> f IntSum)
-> ((Vector IntDataPoint -> f (Vector IntDataPoint))
-> Vector IntDataPoint -> f (Vector IntDataPoint))
-> (Vector IntDataPoint -> f (Vector IntDataPoint))
-> IntSum
-> f IntSum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntSum -> Vector IntDataPoint)
-> (IntSum -> Vector IntDataPoint -> IntSum)
-> Lens IntSum IntSum (Vector IntDataPoint) (Vector IntDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntSum -> Vector IntDataPoint
_IntSum'dataPoints (\ IntSum
x__ Vector IntDataPoint
y__ -> IntSum
x__ {_IntSum'dataPoints :: Vector IntDataPoint
_IntSum'dataPoints = Vector IntDataPoint
y__}))
(Vector IntDataPoint -> f (Vector IntDataPoint))
-> Vector IntDataPoint -> f (Vector IntDataPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntSum "aggregationTemporality" AggregationTemporality where
fieldOf :: Proxy# "aggregationTemporality"
-> (AggregationTemporality -> f AggregationTemporality)
-> IntSum
-> f IntSum
fieldOf Proxy# "aggregationTemporality"
_
= ((AggregationTemporality -> f AggregationTemporality)
-> IntSum -> f IntSum)
-> ((AggregationTemporality -> f AggregationTemporality)
-> AggregationTemporality -> f AggregationTemporality)
-> (AggregationTemporality -> f AggregationTemporality)
-> IntSum
-> f IntSum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntSum -> AggregationTemporality)
-> (IntSum -> AggregationTemporality -> IntSum)
-> Lens IntSum IntSum AggregationTemporality AggregationTemporality
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntSum -> AggregationTemporality
_IntSum'aggregationTemporality
(\ IntSum
x__ AggregationTemporality
y__ -> IntSum
x__ {_IntSum'aggregationTemporality :: AggregationTemporality
_IntSum'aggregationTemporality = AggregationTemporality
y__}))
(AggregationTemporality -> f AggregationTemporality)
-> AggregationTemporality -> f AggregationTemporality
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField IntSum "isMonotonic" Prelude.Bool where
fieldOf :: Proxy# "isMonotonic" -> (Bool -> f Bool) -> IntSum -> f IntSum
fieldOf Proxy# "isMonotonic"
_
= ((Bool -> f Bool) -> IntSum -> f IntSum)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> IntSum
-> f IntSum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((IntSum -> Bool)
-> (IntSum -> Bool -> IntSum) -> Lens IntSum IntSum Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntSum -> Bool
_IntSum'isMonotonic (\ IntSum
x__ Bool
y__ -> IntSum
x__ {_IntSum'isMonotonic :: Bool
_IntSum'isMonotonic = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message IntSum where
messageName :: Proxy IntSum -> Text
messageName Proxy IntSum
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.IntSum"
packedMessageDescriptor :: Proxy IntSum -> ByteString
packedMessageDescriptor Proxy IntSum
_
= ByteString
"\n\
\\ACKIntSum\DC2M\n\
\\vdata_points\CAN\SOH \ETX(\v2,.opentelemetry.proto.metrics.v1.IntDataPointR\n\
\dataPoints\DC2o\n\
\\ETBaggregation_temporality\CAN\STX \SOH(\SO26.opentelemetry.proto.metrics.v1.AggregationTemporalityR\SYNaggregationTemporality\DC2!\n\
\\fis_monotonic\CAN\ETX \SOH(\bR\visMonotonic:\STX\CAN\SOH"
packedFileDescriptor :: Proxy IntSum -> ByteString
packedFileDescriptor Proxy IntSum
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor IntSum)
fieldsByTag
= let
dataPoints__field_descriptor :: FieldDescriptor IntSum
dataPoints__field_descriptor
= String
-> FieldTypeDescriptor IntDataPoint
-> FieldAccessor IntSum IntDataPoint
-> FieldDescriptor IntSum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"data_points"
(MessageOrGroup -> FieldTypeDescriptor IntDataPoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor IntDataPoint)
(Packing
-> Lens' IntSum [IntDataPoint] -> FieldAccessor IntSum IntDataPoint
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataPoints")) ::
Data.ProtoLens.FieldDescriptor IntSum
aggregationTemporality__field_descriptor :: FieldDescriptor IntSum
aggregationTemporality__field_descriptor
= String
-> FieldTypeDescriptor AggregationTemporality
-> FieldAccessor IntSum AggregationTemporality
-> FieldDescriptor IntSum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"aggregation_temporality"
(ScalarField AggregationTemporality
-> FieldTypeDescriptor AggregationTemporality
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField AggregationTemporality
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor AggregationTemporality)
(WireDefault AggregationTemporality
-> Lens IntSum IntSum AggregationTemporality AggregationTemporality
-> FieldAccessor IntSum AggregationTemporality
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault AggregationTemporality
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality")) ::
Data.ProtoLens.FieldDescriptor IntSum
isMonotonic__field_descriptor :: FieldDescriptor IntSum
isMonotonic__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor IntSum Bool
-> FieldDescriptor IntSum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"is_monotonic"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens IntSum IntSum Bool Bool -> FieldAccessor IntSum Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "isMonotonic" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isMonotonic")) ::
Data.ProtoLens.FieldDescriptor IntSum
in
[(Tag, FieldDescriptor IntSum)] -> Map Tag (FieldDescriptor IntSum)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor IntSum
dataPoints__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor IntSum
aggregationTemporality__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor IntSum
isMonotonic__field_descriptor)]
unknownFields :: LensLike' f IntSum FieldSet
unknownFields
= (IntSum -> FieldSet)
-> (IntSum -> FieldSet -> IntSum) -> Lens' IntSum FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
IntSum -> FieldSet
_IntSum'_unknownFields
(\ IntSum
x__ FieldSet
y__ -> IntSum
x__ {_IntSum'_unknownFields :: FieldSet
_IntSum'_unknownFields = FieldSet
y__})
defMessage :: IntSum
defMessage
= IntSum'_constructor :: Vector IntDataPoint
-> AggregationTemporality -> Bool -> FieldSet -> IntSum
IntSum'_constructor
{_IntSum'dataPoints :: Vector IntDataPoint
_IntSum'dataPoints = Vector IntDataPoint
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_IntSum'aggregationTemporality :: AggregationTemporality
_IntSum'aggregationTemporality = AggregationTemporality
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntSum'isMonotonic :: Bool
_IntSum'isMonotonic = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_IntSum'_unknownFields :: FieldSet
_IntSum'_unknownFields = []}
parseMessage :: Parser IntSum
parseMessage
= let
loop ::
IntSum
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld IntDataPoint
-> Data.ProtoLens.Encoding.Bytes.Parser IntSum
loop :: IntSum -> Growing Vector RealWorld IntDataPoint -> Parser IntSum
loop IntSum
x Growing Vector RealWorld IntDataPoint
mutable'dataPoints
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector IntDataPoint
frozen'dataPoints <- IO (Vector IntDataPoint) -> Parser (Vector IntDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) IntDataPoint
-> IO (Vector IntDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld IntDataPoint
Growing Vector (PrimState IO) IntDataPoint
mutable'dataPoints)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
IntSum -> Parser IntSum
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter IntSum IntSum FieldSet FieldSet
-> (FieldSet -> FieldSet) -> IntSum -> IntSum
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter IntSum IntSum FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter IntSum IntSum (Vector IntDataPoint) (Vector IntDataPoint)
-> Vector IntDataPoint -> IntSum -> IntSum
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Vector IntDataPoint
frozen'dataPoints
IntSum
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !IntDataPoint
y <- Parser IntDataPoint -> String -> Parser IntDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser IntDataPoint -> Parser IntDataPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser IntDataPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"data_points"
Growing Vector RealWorld IntDataPoint
v <- IO (Growing Vector RealWorld IntDataPoint)
-> Parser (Growing Vector RealWorld IntDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) IntDataPoint
-> IntDataPoint -> IO (Growing Vector (PrimState IO) IntDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld IntDataPoint
Growing Vector (PrimState IO) IntDataPoint
mutable'dataPoints IntDataPoint
y)
IntSum -> Growing Vector RealWorld IntDataPoint -> Parser IntSum
loop IntSum
x Growing Vector RealWorld IntDataPoint
v
Word64
16
-> do AggregationTemporality
y <- Parser AggregationTemporality
-> String -> Parser AggregationTemporality
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> AggregationTemporality)
-> Parser Int -> Parser AggregationTemporality
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> AggregationTemporality
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"aggregation_temporality"
IntSum -> Growing Vector RealWorld IntDataPoint -> Parser IntSum
loop
(Setter IntSum IntSum AggregationTemporality AggregationTemporality
-> AggregationTemporality -> IntSum -> IntSum
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality") AggregationTemporality
y IntSum
x)
Growing Vector RealWorld IntDataPoint
mutable'dataPoints
Word64
24
-> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"is_monotonic"
IntSum -> Growing Vector RealWorld IntDataPoint -> Parser IntSum
loop
(Setter IntSum IntSum Bool Bool -> Bool -> IntSum -> IntSum
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "isMonotonic" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isMonotonic") Bool
y IntSum
x)
Growing Vector RealWorld IntDataPoint
mutable'dataPoints
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
IntSum -> Growing Vector RealWorld IntDataPoint -> Parser IntSum
loop
(Setter IntSum IntSum FieldSet FieldSet
-> (FieldSet -> FieldSet) -> IntSum -> IntSum
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter IntSum IntSum FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) IntSum
x)
Growing Vector RealWorld IntDataPoint
mutable'dataPoints
in
Parser IntSum -> String -> Parser IntSum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld IntDataPoint
mutable'dataPoints <- IO (Growing Vector RealWorld IntDataPoint)
-> Parser (Growing Vector RealWorld IntDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld IntDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
IntSum -> Growing Vector RealWorld IntDataPoint -> Parser IntSum
loop IntSum
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld IntDataPoint
mutable'dataPoints)
String
"IntSum"
buildMessage :: IntSum -> Builder
buildMessage
= \ IntSum
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((IntDataPoint -> Builder) -> Vector IntDataPoint -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ IntDataPoint
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (IntDataPoint -> ByteString) -> IntDataPoint -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
IntDataPoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage IntDataPoint
_v))
(FoldLike
(Vector IntDataPoint)
IntSum
IntSum
(Vector IntDataPoint)
(Vector IntDataPoint)
-> IntSum -> Vector IntDataPoint
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") IntSum
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: AggregationTemporality
_v
= FoldLike
AggregationTemporality
IntSum
IntSum
AggregationTemporality
AggregationTemporality
-> IntSum -> AggregationTemporality
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality") IntSum
_x
in
if AggregationTemporality -> AggregationTemporality -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) AggregationTemporality
_v AggregationTemporality
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Int -> Builder)
-> (AggregationTemporality -> Int)
-> AggregationTemporality
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
AggregationTemporality -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum AggregationTemporality
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool IntSum IntSum Bool Bool -> IntSum -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "isMonotonic" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isMonotonic") IntSum
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
Bool
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet IntSum IntSum FieldSet FieldSet
-> IntSum -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet IntSum IntSum FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields IntSum
_x))))
instance Control.DeepSeq.NFData IntSum where
rnf :: IntSum -> ()
rnf
= \ IntSum
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntSum -> FieldSet
_IntSum'_unknownFields IntSum
x__)
(Vector IntDataPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntSum -> Vector IntDataPoint
_IntSum'dataPoints IntSum
x__)
(AggregationTemporality -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(IntSum -> AggregationTemporality
_IntSum'aggregationTemporality IntSum
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (IntSum -> Bool
_IntSum'isMonotonic IntSum
x__) ())))
data Metric
= Metric'_constructor {Metric -> Text
_Metric'name :: !Data.Text.Text,
Metric -> Text
_Metric'description :: !Data.Text.Text,
Metric -> Text
_Metric'unit :: !Data.Text.Text,
Metric -> Maybe Metric'Data
_Metric'data' :: !(Prelude.Maybe Metric'Data),
Metric -> FieldSet
_Metric'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Metric -> Metric -> Bool
(Metric -> Metric -> Bool)
-> (Metric -> Metric -> Bool) -> Eq Metric
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Metric -> Metric -> Bool
$c/= :: Metric -> Metric -> Bool
== :: Metric -> Metric -> Bool
$c== :: Metric -> Metric -> Bool
Prelude.Eq, Eq Metric
Eq Metric
-> (Metric -> Metric -> Ordering)
-> (Metric -> Metric -> Bool)
-> (Metric -> Metric -> Bool)
-> (Metric -> Metric -> Bool)
-> (Metric -> Metric -> Bool)
-> (Metric -> Metric -> Metric)
-> (Metric -> Metric -> Metric)
-> Ord Metric
Metric -> Metric -> Bool
Metric -> Metric -> Ordering
Metric -> Metric -> Metric
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Metric -> Metric -> Metric
$cmin :: Metric -> Metric -> Metric
max :: Metric -> Metric -> Metric
$cmax :: Metric -> Metric -> Metric
>= :: Metric -> Metric -> Bool
$c>= :: Metric -> Metric -> Bool
> :: Metric -> Metric -> Bool
$c> :: Metric -> Metric -> Bool
<= :: Metric -> Metric -> Bool
$c<= :: Metric -> Metric -> Bool
< :: Metric -> Metric -> Bool
$c< :: Metric -> Metric -> Bool
compare :: Metric -> Metric -> Ordering
$ccompare :: Metric -> Metric -> Ordering
$cp1Ord :: Eq Metric
Prelude.Ord)
instance Prelude.Show Metric where
showsPrec :: Int -> Metric -> ShowS
showsPrec Int
_ Metric
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Metric -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Metric
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data Metric'Data
= Metric'IntGauge !IntGauge |
Metric'Gauge !Gauge |
Metric'IntSum !IntSum |
Metric'Sum !Sum |
Metric'IntHistogram !IntHistogram |
Metric'Histogram !Histogram |
Metric'ExponentialHistogram !ExponentialHistogram |
Metric'Summary !Summary
deriving stock (Int -> Metric'Data -> ShowS
[Metric'Data] -> ShowS
Metric'Data -> String
(Int -> Metric'Data -> ShowS)
-> (Metric'Data -> String)
-> ([Metric'Data] -> ShowS)
-> Show Metric'Data
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Metric'Data] -> ShowS
$cshowList :: [Metric'Data] -> ShowS
show :: Metric'Data -> String
$cshow :: Metric'Data -> String
showsPrec :: Int -> Metric'Data -> ShowS
$cshowsPrec :: Int -> Metric'Data -> ShowS
Prelude.Show, Metric'Data -> Metric'Data -> Bool
(Metric'Data -> Metric'Data -> Bool)
-> (Metric'Data -> Metric'Data -> Bool) -> Eq Metric'Data
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Metric'Data -> Metric'Data -> Bool
$c/= :: Metric'Data -> Metric'Data -> Bool
== :: Metric'Data -> Metric'Data -> Bool
$c== :: Metric'Data -> Metric'Data -> Bool
Prelude.Eq, Eq Metric'Data
Eq Metric'Data
-> (Metric'Data -> Metric'Data -> Ordering)
-> (Metric'Data -> Metric'Data -> Bool)
-> (Metric'Data -> Metric'Data -> Bool)
-> (Metric'Data -> Metric'Data -> Bool)
-> (Metric'Data -> Metric'Data -> Bool)
-> (Metric'Data -> Metric'Data -> Metric'Data)
-> (Metric'Data -> Metric'Data -> Metric'Data)
-> Ord Metric'Data
Metric'Data -> Metric'Data -> Bool
Metric'Data -> Metric'Data -> Ordering
Metric'Data -> Metric'Data -> Metric'Data
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Metric'Data -> Metric'Data -> Metric'Data
$cmin :: Metric'Data -> Metric'Data -> Metric'Data
max :: Metric'Data -> Metric'Data -> Metric'Data
$cmax :: Metric'Data -> Metric'Data -> Metric'Data
>= :: Metric'Data -> Metric'Data -> Bool
$c>= :: Metric'Data -> Metric'Data -> Bool
> :: Metric'Data -> Metric'Data -> Bool
$c> :: Metric'Data -> Metric'Data -> Bool
<= :: Metric'Data -> Metric'Data -> Bool
$c<= :: Metric'Data -> Metric'Data -> Bool
< :: Metric'Data -> Metric'Data -> Bool
$c< :: Metric'Data -> Metric'Data -> Bool
compare :: Metric'Data -> Metric'Data -> Ordering
$ccompare :: Metric'Data -> Metric'Data -> Ordering
$cp1Ord :: Eq Metric'Data
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Metric "name" Data.Text.Text where
fieldOf :: Proxy# "name" -> (Text -> f Text) -> Metric -> f Metric
fieldOf Proxy# "name"
_
= ((Text -> f Text) -> Metric -> f Metric)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Text)
-> (Metric -> Text -> Metric) -> Lens Metric Metric Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Text
_Metric'name (\ Metric
x__ Text
y__ -> Metric
x__ {_Metric'name :: Text
_Metric'name = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Metric "description" Data.Text.Text where
fieldOf :: Proxy# "description" -> (Text -> f Text) -> Metric -> f Metric
fieldOf Proxy# "description"
_
= ((Text -> f Text) -> Metric -> f Metric)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Text)
-> (Metric -> Text -> Metric) -> Lens Metric Metric Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Text
_Metric'description (\ Metric
x__ Text
y__ -> Metric
x__ {_Metric'description :: Text
_Metric'description = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Metric "unit" Data.Text.Text where
fieldOf :: Proxy# "unit" -> (Text -> f Text) -> Metric -> f Metric
fieldOf Proxy# "unit"
_
= ((Text -> f Text) -> Metric -> f Metric)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Text)
-> (Metric -> Text -> Metric) -> Lens Metric Metric Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Text
_Metric'unit (\ Metric
x__ Text
y__ -> Metric
x__ {_Metric'unit :: Text
_Metric'unit = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Metric "maybe'data'" (Prelude.Maybe Metric'Data) where
fieldOf :: Proxy# "maybe'data'"
-> (Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric
-> f Metric
fieldOf Proxy# "maybe'data'"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
(Maybe Metric'Data -> f (Maybe Metric'Data))
-> Maybe Metric'Data -> f (Maybe Metric'Data)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Metric "maybe'intGauge" (Prelude.Maybe IntGauge) where
fieldOf :: Proxy# "maybe'intGauge"
-> (Maybe IntGauge -> f (Maybe IntGauge)) -> Metric -> f Metric
fieldOf Proxy# "maybe'intGauge"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Maybe IntGauge -> f (Maybe IntGauge))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Maybe IntGauge -> f (Maybe IntGauge))
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
((Maybe Metric'Data -> Maybe IntGauge)
-> (Maybe Metric'Data -> Maybe IntGauge -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe IntGauge)
(Maybe IntGauge)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'IntGauge IntGauge
x__val)) -> IntGauge -> Maybe IntGauge
forall a. a -> Maybe a
Prelude.Just IntGauge
x__val
Maybe Metric'Data
_otherwise -> Maybe IntGauge
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe IntGauge
y__ -> (IntGauge -> Metric'Data) -> Maybe IntGauge -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap IntGauge -> Metric'Data
Metric'IntGauge Maybe IntGauge
y__))
instance Data.ProtoLens.Field.HasField Metric "intGauge" IntGauge where
fieldOf :: Proxy# "intGauge" -> (IntGauge -> f IntGauge) -> Metric -> f Metric
fieldOf Proxy# "intGauge"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((IntGauge -> f IntGauge)
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (IntGauge -> f IntGauge)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
(((Maybe IntGauge -> f (Maybe IntGauge))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> ((IntGauge -> f IntGauge)
-> Maybe IntGauge -> f (Maybe IntGauge))
-> (IntGauge -> f IntGauge)
-> Maybe Metric'Data
-> f (Maybe Metric'Data)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Metric'Data -> Maybe IntGauge)
-> (Maybe Metric'Data -> Maybe IntGauge -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe IntGauge)
(Maybe IntGauge)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'IntGauge IntGauge
x__val)) -> IntGauge -> Maybe IntGauge
forall a. a -> Maybe a
Prelude.Just IntGauge
x__val
Maybe Metric'Data
_otherwise -> Maybe IntGauge
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe IntGauge
y__ -> (IntGauge -> Metric'Data) -> Maybe IntGauge -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap IntGauge -> Metric'Data
Metric'IntGauge Maybe IntGauge
y__))
(IntGauge -> Lens' (Maybe IntGauge) IntGauge
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens IntGauge
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Metric "maybe'gauge" (Prelude.Maybe Gauge) where
fieldOf :: Proxy# "maybe'gauge"
-> (Maybe Gauge -> f (Maybe Gauge)) -> Metric -> f Metric
fieldOf Proxy# "maybe'gauge"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Maybe Gauge -> f (Maybe Gauge))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Maybe Gauge -> f (Maybe Gauge))
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
((Maybe Metric'Data -> Maybe Gauge)
-> (Maybe Metric'Data -> Maybe Gauge -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data) (Maybe Metric'Data) (Maybe Gauge) (Maybe Gauge)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'Gauge Gauge
x__val)) -> Gauge -> Maybe Gauge
forall a. a -> Maybe a
Prelude.Just Gauge
x__val
Maybe Metric'Data
_otherwise -> Maybe Gauge
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe Gauge
y__ -> (Gauge -> Metric'Data) -> Maybe Gauge -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Gauge -> Metric'Data
Metric'Gauge Maybe Gauge
y__))
instance Data.ProtoLens.Field.HasField Metric "gauge" Gauge where
fieldOf :: Proxy# "gauge" -> (Gauge -> f Gauge) -> Metric -> f Metric
fieldOf Proxy# "gauge"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Gauge -> f Gauge)
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Gauge -> f Gauge)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
(((Maybe Gauge -> f (Maybe Gauge))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> ((Gauge -> f Gauge) -> Maybe Gauge -> f (Maybe Gauge))
-> (Gauge -> f Gauge)
-> Maybe Metric'Data
-> f (Maybe Metric'Data)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Metric'Data -> Maybe Gauge)
-> (Maybe Metric'Data -> Maybe Gauge -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data) (Maybe Metric'Data) (Maybe Gauge) (Maybe Gauge)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'Gauge Gauge
x__val)) -> Gauge -> Maybe Gauge
forall a. a -> Maybe a
Prelude.Just Gauge
x__val
Maybe Metric'Data
_otherwise -> Maybe Gauge
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe Gauge
y__ -> (Gauge -> Metric'Data) -> Maybe Gauge -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Gauge -> Metric'Data
Metric'Gauge Maybe Gauge
y__))
(Gauge -> Lens' (Maybe Gauge) Gauge
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Gauge
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Metric "maybe'intSum" (Prelude.Maybe IntSum) where
fieldOf :: Proxy# "maybe'intSum"
-> (Maybe IntSum -> f (Maybe IntSum)) -> Metric -> f Metric
fieldOf Proxy# "maybe'intSum"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Maybe IntSum -> f (Maybe IntSum))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Maybe IntSum -> f (Maybe IntSum))
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
((Maybe Metric'Data -> Maybe IntSum)
-> (Maybe Metric'Data -> Maybe IntSum -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe IntSum)
(Maybe IntSum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'IntSum IntSum
x__val)) -> IntSum -> Maybe IntSum
forall a. a -> Maybe a
Prelude.Just IntSum
x__val
Maybe Metric'Data
_otherwise -> Maybe IntSum
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe IntSum
y__ -> (IntSum -> Metric'Data) -> Maybe IntSum -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap IntSum -> Metric'Data
Metric'IntSum Maybe IntSum
y__))
instance Data.ProtoLens.Field.HasField Metric "intSum" IntSum where
fieldOf :: Proxy# "intSum" -> (IntSum -> f IntSum) -> Metric -> f Metric
fieldOf Proxy# "intSum"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((IntSum -> f IntSum)
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (IntSum -> f IntSum)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
(((Maybe IntSum -> f (Maybe IntSum))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> ((IntSum -> f IntSum) -> Maybe IntSum -> f (Maybe IntSum))
-> (IntSum -> f IntSum)
-> Maybe Metric'Data
-> f (Maybe Metric'Data)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Metric'Data -> Maybe IntSum)
-> (Maybe Metric'Data -> Maybe IntSum -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe IntSum)
(Maybe IntSum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'IntSum IntSum
x__val)) -> IntSum -> Maybe IntSum
forall a. a -> Maybe a
Prelude.Just IntSum
x__val
Maybe Metric'Data
_otherwise -> Maybe IntSum
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe IntSum
y__ -> (IntSum -> Metric'Data) -> Maybe IntSum -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap IntSum -> Metric'Data
Metric'IntSum Maybe IntSum
y__))
(IntSum -> Lens' (Maybe IntSum) IntSum
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens IntSum
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Metric "maybe'sum" (Prelude.Maybe Sum) where
fieldOf :: Proxy# "maybe'sum"
-> (Maybe Sum -> f (Maybe Sum)) -> Metric -> f Metric
fieldOf Proxy# "maybe'sum"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Maybe Sum -> f (Maybe Sum))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Maybe Sum -> f (Maybe Sum))
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
((Maybe Metric'Data -> Maybe Sum)
-> (Maybe Metric'Data -> Maybe Sum -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data) (Maybe Metric'Data) (Maybe Sum) (Maybe Sum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'Sum Sum
x__val)) -> Sum -> Maybe Sum
forall a. a -> Maybe a
Prelude.Just Sum
x__val
Maybe Metric'Data
_otherwise -> Maybe Sum
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe Sum
y__ -> (Sum -> Metric'Data) -> Maybe Sum -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Sum -> Metric'Data
Metric'Sum Maybe Sum
y__))
instance Data.ProtoLens.Field.HasField Metric "sum" Sum where
fieldOf :: Proxy# "sum" -> (Sum -> f Sum) -> Metric -> f Metric
fieldOf Proxy# "sum"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Sum -> f Sum) -> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Sum -> f Sum)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
(((Maybe Sum -> f (Maybe Sum))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> ((Sum -> f Sum) -> Maybe Sum -> f (Maybe Sum))
-> (Sum -> f Sum)
-> Maybe Metric'Data
-> f (Maybe Metric'Data)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Metric'Data -> Maybe Sum)
-> (Maybe Metric'Data -> Maybe Sum -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data) (Maybe Metric'Data) (Maybe Sum) (Maybe Sum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'Sum Sum
x__val)) -> Sum -> Maybe Sum
forall a. a -> Maybe a
Prelude.Just Sum
x__val
Maybe Metric'Data
_otherwise -> Maybe Sum
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe Sum
y__ -> (Sum -> Metric'Data) -> Maybe Sum -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Sum -> Metric'Data
Metric'Sum Maybe Sum
y__))
(Sum -> Lens' (Maybe Sum) Sum
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Sum
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Metric "maybe'intHistogram" (Prelude.Maybe IntHistogram) where
fieldOf :: Proxy# "maybe'intHistogram"
-> (Maybe IntHistogram -> f (Maybe IntHistogram))
-> Metric
-> f Metric
fieldOf Proxy# "maybe'intHistogram"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Maybe IntHistogram -> f (Maybe IntHistogram))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Maybe IntHistogram -> f (Maybe IntHistogram))
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
((Maybe Metric'Data -> Maybe IntHistogram)
-> (Maybe Metric'Data -> Maybe IntHistogram -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe IntHistogram)
(Maybe IntHistogram)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'IntHistogram IntHistogram
x__val)) -> IntHistogram -> Maybe IntHistogram
forall a. a -> Maybe a
Prelude.Just IntHistogram
x__val
Maybe Metric'Data
_otherwise -> Maybe IntHistogram
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe IntHistogram
y__ -> (IntHistogram -> Metric'Data)
-> Maybe IntHistogram -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap IntHistogram -> Metric'Data
Metric'IntHistogram Maybe IntHistogram
y__))
instance Data.ProtoLens.Field.HasField Metric "intHistogram" IntHistogram where
fieldOf :: Proxy# "intHistogram"
-> (IntHistogram -> f IntHistogram) -> Metric -> f Metric
fieldOf Proxy# "intHistogram"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((IntHistogram -> f IntHistogram)
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (IntHistogram -> f IntHistogram)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
(((Maybe IntHistogram -> f (Maybe IntHistogram))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> ((IntHistogram -> f IntHistogram)
-> Maybe IntHistogram -> f (Maybe IntHistogram))
-> (IntHistogram -> f IntHistogram)
-> Maybe Metric'Data
-> f (Maybe Metric'Data)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Metric'Data -> Maybe IntHistogram)
-> (Maybe Metric'Data -> Maybe IntHistogram -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe IntHistogram)
(Maybe IntHistogram)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'IntHistogram IntHistogram
x__val)) -> IntHistogram -> Maybe IntHistogram
forall a. a -> Maybe a
Prelude.Just IntHistogram
x__val
Maybe Metric'Data
_otherwise -> Maybe IntHistogram
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe IntHistogram
y__ -> (IntHistogram -> Metric'Data)
-> Maybe IntHistogram -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap IntHistogram -> Metric'Data
Metric'IntHistogram Maybe IntHistogram
y__))
(IntHistogram -> Lens' (Maybe IntHistogram) IntHistogram
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens IntHistogram
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Metric "maybe'histogram" (Prelude.Maybe Histogram) where
fieldOf :: Proxy# "maybe'histogram"
-> (Maybe Histogram -> f (Maybe Histogram)) -> Metric -> f Metric
fieldOf Proxy# "maybe'histogram"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Maybe Histogram -> f (Maybe Histogram))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Maybe Histogram -> f (Maybe Histogram))
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
((Maybe Metric'Data -> Maybe Histogram)
-> (Maybe Metric'Data -> Maybe Histogram -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe Histogram)
(Maybe Histogram)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'Histogram Histogram
x__val)) -> Histogram -> Maybe Histogram
forall a. a -> Maybe a
Prelude.Just Histogram
x__val
Maybe Metric'Data
_otherwise -> Maybe Histogram
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe Histogram
y__ -> (Histogram -> Metric'Data) -> Maybe Histogram -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Histogram -> Metric'Data
Metric'Histogram Maybe Histogram
y__))
instance Data.ProtoLens.Field.HasField Metric "histogram" Histogram where
fieldOf :: Proxy# "histogram"
-> (Histogram -> f Histogram) -> Metric -> f Metric
fieldOf Proxy# "histogram"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Histogram -> f Histogram)
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Histogram -> f Histogram)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
(((Maybe Histogram -> f (Maybe Histogram))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> ((Histogram -> f Histogram)
-> Maybe Histogram -> f (Maybe Histogram))
-> (Histogram -> f Histogram)
-> Maybe Metric'Data
-> f (Maybe Metric'Data)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Metric'Data -> Maybe Histogram)
-> (Maybe Metric'Data -> Maybe Histogram -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe Histogram)
(Maybe Histogram)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'Histogram Histogram
x__val)) -> Histogram -> Maybe Histogram
forall a. a -> Maybe a
Prelude.Just Histogram
x__val
Maybe Metric'Data
_otherwise -> Maybe Histogram
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe Histogram
y__ -> (Histogram -> Metric'Data) -> Maybe Histogram -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Histogram -> Metric'Data
Metric'Histogram Maybe Histogram
y__))
(Histogram -> Lens' (Maybe Histogram) Histogram
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Histogram
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Metric "maybe'exponentialHistogram" (Prelude.Maybe ExponentialHistogram) where
fieldOf :: Proxy# "maybe'exponentialHistogram"
-> (Maybe ExponentialHistogram -> f (Maybe ExponentialHistogram))
-> Metric
-> f Metric
fieldOf Proxy# "maybe'exponentialHistogram"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Maybe ExponentialHistogram -> f (Maybe ExponentialHistogram))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Maybe ExponentialHistogram -> f (Maybe ExponentialHistogram))
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
((Maybe Metric'Data -> Maybe ExponentialHistogram)
-> (Maybe Metric'Data
-> Maybe ExponentialHistogram -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe ExponentialHistogram)
(Maybe ExponentialHistogram)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'ExponentialHistogram ExponentialHistogram
x__val))
-> ExponentialHistogram -> Maybe ExponentialHistogram
forall a. a -> Maybe a
Prelude.Just ExponentialHistogram
x__val
Maybe Metric'Data
_otherwise -> Maybe ExponentialHistogram
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe ExponentialHistogram
y__ -> (ExponentialHistogram -> Metric'Data)
-> Maybe ExponentialHistogram -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ExponentialHistogram -> Metric'Data
Metric'ExponentialHistogram Maybe ExponentialHistogram
y__))
instance Data.ProtoLens.Field.HasField Metric "exponentialHistogram" ExponentialHistogram where
fieldOf :: Proxy# "exponentialHistogram"
-> (ExponentialHistogram -> f ExponentialHistogram)
-> Metric
-> f Metric
fieldOf Proxy# "exponentialHistogram"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((ExponentialHistogram -> f ExponentialHistogram)
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (ExponentialHistogram -> f ExponentialHistogram)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
(((Maybe ExponentialHistogram -> f (Maybe ExponentialHistogram))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> ((ExponentialHistogram -> f ExponentialHistogram)
-> Maybe ExponentialHistogram -> f (Maybe ExponentialHistogram))
-> (ExponentialHistogram -> f ExponentialHistogram)
-> Maybe Metric'Data
-> f (Maybe Metric'Data)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Metric'Data -> Maybe ExponentialHistogram)
-> (Maybe Metric'Data
-> Maybe ExponentialHistogram -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe ExponentialHistogram)
(Maybe ExponentialHistogram)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'ExponentialHistogram ExponentialHistogram
x__val))
-> ExponentialHistogram -> Maybe ExponentialHistogram
forall a. a -> Maybe a
Prelude.Just ExponentialHistogram
x__val
Maybe Metric'Data
_otherwise -> Maybe ExponentialHistogram
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe ExponentialHistogram
y__ -> (ExponentialHistogram -> Metric'Data)
-> Maybe ExponentialHistogram -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ExponentialHistogram -> Metric'Data
Metric'ExponentialHistogram Maybe ExponentialHistogram
y__))
(ExponentialHistogram
-> Lens' (Maybe ExponentialHistogram) ExponentialHistogram
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExponentialHistogram
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Metric "maybe'summary" (Prelude.Maybe Summary) where
fieldOf :: Proxy# "maybe'summary"
-> (Maybe Summary -> f (Maybe Summary)) -> Metric -> f Metric
fieldOf Proxy# "maybe'summary"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Maybe Summary -> f (Maybe Summary))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Maybe Summary -> f (Maybe Summary))
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
((Maybe Metric'Data -> Maybe Summary)
-> (Maybe Metric'Data -> Maybe Summary -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe Summary)
(Maybe Summary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'Summary Summary
x__val)) -> Summary -> Maybe Summary
forall a. a -> Maybe a
Prelude.Just Summary
x__val
Maybe Metric'Data
_otherwise -> Maybe Summary
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe Summary
y__ -> (Summary -> Metric'Data) -> Maybe Summary -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Summary -> Metric'Data
Metric'Summary Maybe Summary
y__))
instance Data.ProtoLens.Field.HasField Metric "summary" Summary where
fieldOf :: Proxy# "summary" -> (Summary -> f Summary) -> Metric -> f Metric
fieldOf Proxy# "summary"
_
= ((Maybe Metric'Data -> f (Maybe Metric'Data))
-> Metric -> f Metric)
-> ((Summary -> f Summary)
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> (Summary -> f Summary)
-> Metric
-> f Metric
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Metric -> Maybe Metric'Data)
-> (Metric -> Maybe Metric'Data -> Metric)
-> Lens Metric Metric (Maybe Metric'Data) (Maybe Metric'Data)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> Maybe Metric'Data
_Metric'data' (\ Metric
x__ Maybe Metric'Data
y__ -> Metric
x__ {_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
y__}))
(((Maybe Summary -> f (Maybe Summary))
-> Maybe Metric'Data -> f (Maybe Metric'Data))
-> ((Summary -> f Summary) -> Maybe Summary -> f (Maybe Summary))
-> (Summary -> f Summary)
-> Maybe Metric'Data
-> f (Maybe Metric'Data)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Metric'Data -> Maybe Summary)
-> (Maybe Metric'Data -> Maybe Summary -> Maybe Metric'Data)
-> Lens
(Maybe Metric'Data)
(Maybe Metric'Data)
(Maybe Summary)
(Maybe Summary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Metric'Data
x__
-> case Maybe Metric'Data
x__ of
(Prelude.Just (Metric'Summary Summary
x__val)) -> Summary -> Maybe Summary
forall a. a -> Maybe a
Prelude.Just Summary
x__val
Maybe Metric'Data
_otherwise -> Maybe Summary
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Metric'Data
_ Maybe Summary
y__ -> (Summary -> Metric'Data) -> Maybe Summary -> Maybe Metric'Data
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Summary -> Metric'Data
Metric'Summary Maybe Summary
y__))
(Summary -> Lens' (Maybe Summary) Summary
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Summary
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message Metric where
messageName :: Proxy Metric -> Text
messageName Proxy Metric
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.Metric"
packedMessageDescriptor :: Proxy Metric -> ByteString
packedMessageDescriptor Proxy Metric
_
= ByteString
"\n\
\\ACKMetric\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2 \n\
\\vdescription\CAN\STX \SOH(\tR\vdescription\DC2\DC2\n\
\\EOTunit\CAN\ETX \SOH(\tR\EOTunit\DC2K\n\
\\tint_gauge\CAN\EOT \SOH(\v2(.opentelemetry.proto.metrics.v1.IntGaugeH\NULR\bintGaugeB\STX\CAN\SOH\DC2=\n\
\\ENQgauge\CAN\ENQ \SOH(\v2%.opentelemetry.proto.metrics.v1.GaugeH\NULR\ENQgauge\DC2E\n\
\\aint_sum\CAN\ACK \SOH(\v2&.opentelemetry.proto.metrics.v1.IntSumH\NULR\ACKintSumB\STX\CAN\SOH\DC27\n\
\\ETXsum\CAN\a \SOH(\v2#.opentelemetry.proto.metrics.v1.SumH\NULR\ETXsum\DC2W\n\
\\rint_histogram\CAN\b \SOH(\v2,.opentelemetry.proto.metrics.v1.IntHistogramH\NULR\fintHistogramB\STX\CAN\SOH\DC2I\n\
\\thistogram\CAN\t \SOH(\v2).opentelemetry.proto.metrics.v1.HistogramH\NULR\thistogram\DC2k\n\
\\NAKexponential_histogram\CAN\n\
\ \SOH(\v24.opentelemetry.proto.metrics.v1.ExponentialHistogramH\NULR\DC4exponentialHistogram\DC2C\n\
\\asummary\CAN\v \SOH(\v2'.opentelemetry.proto.metrics.v1.SummaryH\NULR\asummaryB\ACK\n\
\\EOTdata"
packedFileDescriptor :: Proxy Metric -> ByteString
packedFileDescriptor Proxy Metric
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Metric)
fieldsByTag
= let
name__field_descriptor :: FieldDescriptor Metric
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Metric Text
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens Metric Metric Text Text -> FieldAccessor Metric Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
Data.ProtoLens.FieldDescriptor Metric
description__field_descriptor :: FieldDescriptor Metric
description__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Metric Text
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"description"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens Metric Metric Text Text -> FieldAccessor Metric Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description")) ::
Data.ProtoLens.FieldDescriptor Metric
unit__field_descriptor :: FieldDescriptor Metric
unit__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Metric Text
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"unit"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens Metric Metric Text Text -> FieldAccessor Metric Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "unit" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"unit")) ::
Data.ProtoLens.FieldDescriptor Metric
intGauge__field_descriptor :: FieldDescriptor Metric
intGauge__field_descriptor
= String
-> FieldTypeDescriptor IntGauge
-> FieldAccessor Metric IntGauge
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"int_gauge"
(MessageOrGroup -> FieldTypeDescriptor IntGauge
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor IntGauge)
(Lens' Metric (Maybe IntGauge) -> FieldAccessor Metric IntGauge
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'intGauge" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'intGauge")) ::
Data.ProtoLens.FieldDescriptor Metric
gauge__field_descriptor :: FieldDescriptor Metric
gauge__field_descriptor
= String
-> FieldTypeDescriptor Gauge
-> FieldAccessor Metric Gauge
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"gauge"
(MessageOrGroup -> FieldTypeDescriptor Gauge
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Gauge)
(Lens' Metric (Maybe Gauge) -> FieldAccessor Metric Gauge
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'gauge" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'gauge")) ::
Data.ProtoLens.FieldDescriptor Metric
intSum__field_descriptor :: FieldDescriptor Metric
intSum__field_descriptor
= String
-> FieldTypeDescriptor IntSum
-> FieldAccessor Metric IntSum
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"int_sum"
(MessageOrGroup -> FieldTypeDescriptor IntSum
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor IntSum)
(Lens' Metric (Maybe IntSum) -> FieldAccessor Metric IntSum
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'intSum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'intSum")) ::
Data.ProtoLens.FieldDescriptor Metric
sum__field_descriptor :: FieldDescriptor Metric
sum__field_descriptor
= String
-> FieldTypeDescriptor Sum
-> FieldAccessor Metric Sum
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"sum"
(MessageOrGroup -> FieldTypeDescriptor Sum
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Sum)
(Lens' Metric (Maybe Sum) -> FieldAccessor Metric Sum
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'sum")) ::
Data.ProtoLens.FieldDescriptor Metric
intHistogram__field_descriptor :: FieldDescriptor Metric
intHistogram__field_descriptor
= String
-> FieldTypeDescriptor IntHistogram
-> FieldAccessor Metric IntHistogram
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"int_histogram"
(MessageOrGroup -> FieldTypeDescriptor IntHistogram
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor IntHistogram)
(Lens' Metric (Maybe IntHistogram)
-> FieldAccessor Metric IntHistogram
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'intHistogram" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'intHistogram")) ::
Data.ProtoLens.FieldDescriptor Metric
histogram__field_descriptor :: FieldDescriptor Metric
histogram__field_descriptor
= String
-> FieldTypeDescriptor Histogram
-> FieldAccessor Metric Histogram
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"histogram"
(MessageOrGroup -> FieldTypeDescriptor Histogram
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Histogram)
(Lens' Metric (Maybe Histogram) -> FieldAccessor Metric Histogram
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'histogram" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'histogram")) ::
Data.ProtoLens.FieldDescriptor Metric
exponentialHistogram__field_descriptor :: FieldDescriptor Metric
exponentialHistogram__field_descriptor
= String
-> FieldTypeDescriptor ExponentialHistogram
-> FieldAccessor Metric ExponentialHistogram
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"exponential_histogram"
(MessageOrGroup -> FieldTypeDescriptor ExponentialHistogram
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ExponentialHistogram)
(Lens' Metric (Maybe ExponentialHistogram)
-> FieldAccessor Metric ExponentialHistogram
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'exponentialHistogram" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'exponentialHistogram")) ::
Data.ProtoLens.FieldDescriptor Metric
summary__field_descriptor :: FieldDescriptor Metric
summary__field_descriptor
= String
-> FieldTypeDescriptor Summary
-> FieldAccessor Metric Summary
-> FieldDescriptor Metric
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"summary"
(MessageOrGroup -> FieldTypeDescriptor Summary
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Summary)
(Lens' Metric (Maybe Summary) -> FieldAccessor Metric Summary
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'summary" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'summary")) ::
Data.ProtoLens.FieldDescriptor Metric
in
[(Tag, FieldDescriptor Metric)] -> Map Tag (FieldDescriptor Metric)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Metric
name__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Metric
description__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Metric
unit__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Metric
intGauge__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Metric
gauge__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor Metric
intSum__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor Metric
sum__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor Metric
intHistogram__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor Metric
histogram__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor Metric
exponentialHistogram__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor Metric
summary__field_descriptor)]
unknownFields :: LensLike' f Metric FieldSet
unknownFields
= (Metric -> FieldSet)
-> (Metric -> FieldSet -> Metric) -> Lens' Metric FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Metric -> FieldSet
_Metric'_unknownFields
(\ Metric
x__ FieldSet
y__ -> Metric
x__ {_Metric'_unknownFields :: FieldSet
_Metric'_unknownFields = FieldSet
y__})
defMessage :: Metric
defMessage
= Metric'_constructor :: Text -> Text -> Text -> Maybe Metric'Data -> FieldSet -> Metric
Metric'_constructor
{_Metric'name :: Text
_Metric'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Metric'description :: Text
_Metric'description = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Metric'unit :: Text
_Metric'unit = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Metric'data' :: Maybe Metric'Data
_Metric'data' = Maybe Metric'Data
forall a. Maybe a
Prelude.Nothing, _Metric'_unknownFields :: FieldSet
_Metric'_unknownFields = []}
parseMessage :: Parser Metric
parseMessage
= let
loop :: Metric -> Data.ProtoLens.Encoding.Bytes.Parser Metric
loop :: Metric -> Parser Metric
loop Metric
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
Metric -> Parser Metric
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Metric Metric FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Metric -> Metric
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Metric Metric FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Metric
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
String
"name"
Metric -> Parser Metric
loop (Setter Metric Metric Text Text -> Text -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y Metric
x)
Word64
18
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
String
"description"
Metric -> Parser Metric
loop
(Setter Metric Metric Text Text -> Text -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description") Text
y Metric
x)
Word64
26
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
String
"unit"
Metric -> Parser Metric
loop (Setter Metric Metric Text Text -> Text -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "unit" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"unit") Text
y Metric
x)
Word64
34
-> do IntGauge
y <- Parser IntGauge -> String -> Parser IntGauge
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser IntGauge -> Parser IntGauge
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser IntGauge
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"int_gauge"
Metric -> Parser Metric
loop
(Setter Metric Metric IntGauge IntGauge
-> IntGauge -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "intGauge" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"intGauge") IntGauge
y Metric
x)
Word64
42
-> do Gauge
y <- Parser Gauge -> String -> Parser Gauge
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Gauge -> Parser Gauge
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Gauge
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"gauge"
Metric -> Parser Metric
loop (Setter Metric Metric Gauge Gauge -> Gauge -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "gauge" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"gauge") Gauge
y Metric
x)
Word64
50
-> do IntSum
y <- Parser IntSum -> String -> Parser IntSum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser IntSum -> Parser IntSum
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser IntSum
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"int_sum"
Metric -> Parser Metric
loop (Setter Metric Metric IntSum IntSum -> IntSum -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "intSum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"intSum") IntSum
y Metric
x)
Word64
58
-> do Sum
y <- Parser Sum -> String -> Parser Sum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Sum -> Parser Sum
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Sum
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"sum"
Metric -> Parser Metric
loop (Setter Metric Metric Sum Sum -> Sum -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") Sum
y Metric
x)
Word64
66
-> do IntHistogram
y <- Parser IntHistogram -> String -> Parser IntHistogram
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser IntHistogram -> Parser IntHistogram
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser IntHistogram
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"int_histogram"
Metric -> Parser Metric
loop
(Setter Metric Metric IntHistogram IntHistogram
-> IntHistogram -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "intHistogram" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"intHistogram") IntHistogram
y Metric
x)
Word64
74
-> do Histogram
y <- Parser Histogram -> String -> Parser Histogram
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Histogram -> Parser Histogram
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Histogram
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"histogram"
Metric -> Parser Metric
loop
(Setter Metric Metric Histogram Histogram
-> Histogram -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "histogram" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"histogram") Histogram
y Metric
x)
Word64
82
-> do ExponentialHistogram
y <- Parser ExponentialHistogram
-> String -> Parser ExponentialHistogram
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ExponentialHistogram -> Parser ExponentialHistogram
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ExponentialHistogram
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"exponential_histogram"
Metric -> Parser Metric
loop
(Setter Metric Metric ExponentialHistogram ExponentialHistogram
-> ExponentialHistogram -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "exponentialHistogram" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exponentialHistogram") ExponentialHistogram
y Metric
x)
Word64
90
-> do Summary
y <- Parser Summary -> String -> Parser Summary
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Summary -> Parser Summary
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Summary
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"summary"
Metric -> Parser Metric
loop (Setter Metric Metric Summary Summary -> Summary -> Metric -> Metric
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "summary" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"summary") Summary
y Metric
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Metric -> Parser Metric
loop
(Setter Metric Metric FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Metric -> Metric
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Metric Metric FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Metric
x)
in
Parser Metric -> String -> Parser Metric
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Metric -> Parser Metric
loop Metric
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Metric"
buildMessage :: Metric -> Builder
buildMessage
= \ Metric
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text Metric Metric Text Text -> Metric -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Metric
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text Metric Metric Text Text -> Metric -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "description" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"description") Metric
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text Metric Metric Text Text -> Metric -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "unit" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"unit") Metric
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Metric'Data)
Metric
Metric
(Maybe Metric'Data)
(Maybe Metric'Data)
-> Metric -> Maybe Metric'Data
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'data'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'data'") Metric
_x
of
Maybe Metric'Data
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (Metric'IntGauge IntGauge
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (IntGauge -> ByteString) -> IntGauge -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
IntGauge -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage IntGauge
v)
(Prelude.Just (Metric'Gauge Gauge
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder)
-> (Gauge -> ByteString) -> Gauge -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Gauge -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Gauge
v)
(Prelude.Just (Metric'IntSum IntSum
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
((ByteString -> Builder)
-> (IntSum -> ByteString) -> IntSum -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
IntSum -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage IntSum
v)
(Prelude.Just (Metric'Sum Sum
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder) -> (Sum -> ByteString) -> Sum -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Sum -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Sum
v)
(Prelude.Just (Metric'IntHistogram IntHistogram
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
((ByteString -> Builder)
-> (IntHistogram -> ByteString) -> IntHistogram -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
IntHistogram -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage IntHistogram
v)
(Prelude.Just (Metric'Histogram Histogram
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
((ByteString -> Builder)
-> (Histogram -> ByteString) -> Histogram -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Histogram -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Histogram
v)
(Prelude.Just (Metric'ExponentialHistogram ExponentialHistogram
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
82)
((ByteString -> Builder)
-> (ExponentialHistogram -> ByteString)
-> ExponentialHistogram
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ExponentialHistogram -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ExponentialHistogram
v)
(Prelude.Just (Metric'Summary Summary
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
((ByteString -> Builder)
-> (Summary -> ByteString) -> Summary -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Summary -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Summary
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Metric Metric FieldSet FieldSet
-> Metric -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Metric Metric FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Metric
_x)))))
instance Control.DeepSeq.NFData Metric where
rnf :: Metric -> ()
rnf
= \ Metric
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Metric -> FieldSet
_Metric'_unknownFields Metric
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Metric -> Text
_Metric'name Metric
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Metric -> Text
_Metric'description Metric
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Metric -> Text
_Metric'unit Metric
x__)
(Maybe Metric'Data -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Metric -> Maybe Metric'Data
_Metric'data' Metric
x__) ()))))
instance Control.DeepSeq.NFData Metric'Data where
rnf :: Metric'Data -> ()
rnf (Metric'IntGauge IntGauge
x__) = IntGauge -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf IntGauge
x__
rnf (Metric'Gauge Gauge
x__) = Gauge -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Gauge
x__
rnf (Metric'IntSum IntSum
x__) = IntSum -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf IntSum
x__
rnf (Metric'Sum Sum
x__) = Sum -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Sum
x__
rnf (Metric'IntHistogram IntHistogram
x__) = IntHistogram -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf IntHistogram
x__
rnf (Metric'Histogram Histogram
x__) = Histogram -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Histogram
x__
rnf (Metric'ExponentialHistogram ExponentialHistogram
x__) = ExponentialHistogram -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ExponentialHistogram
x__
rnf (Metric'Summary Summary
x__) = Summary -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Summary
x__
_Metric'IntGauge ::
Data.ProtoLens.Prism.Prism' Metric'Data IntGauge
_Metric'IntGauge :: p IntGauge (f IntGauge) -> p Metric'Data (f Metric'Data)
_Metric'IntGauge
= (IntGauge -> Metric'Data)
-> (Metric'Data -> Maybe IntGauge)
-> Prism Metric'Data Metric'Data IntGauge IntGauge
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
IntGauge -> Metric'Data
Metric'IntGauge
(\ Metric'Data
p__
-> case Metric'Data
p__ of
(Metric'IntGauge IntGauge
p__val) -> IntGauge -> Maybe IntGauge
forall a. a -> Maybe a
Prelude.Just IntGauge
p__val
Metric'Data
_otherwise -> Maybe IntGauge
forall a. Maybe a
Prelude.Nothing)
_Metric'Gauge :: Data.ProtoLens.Prism.Prism' Metric'Data Gauge
_Metric'Gauge :: p Gauge (f Gauge) -> p Metric'Data (f Metric'Data)
_Metric'Gauge
= (Gauge -> Metric'Data)
-> (Metric'Data -> Maybe Gauge)
-> Prism Metric'Data Metric'Data Gauge Gauge
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Gauge -> Metric'Data
Metric'Gauge
(\ Metric'Data
p__
-> case Metric'Data
p__ of
(Metric'Gauge Gauge
p__val) -> Gauge -> Maybe Gauge
forall a. a -> Maybe a
Prelude.Just Gauge
p__val
Metric'Data
_otherwise -> Maybe Gauge
forall a. Maybe a
Prelude.Nothing)
_Metric'IntSum :: Data.ProtoLens.Prism.Prism' Metric'Data IntSum
_Metric'IntSum :: p IntSum (f IntSum) -> p Metric'Data (f Metric'Data)
_Metric'IntSum
= (IntSum -> Metric'Data)
-> (Metric'Data -> Maybe IntSum)
-> Prism Metric'Data Metric'Data IntSum IntSum
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
IntSum -> Metric'Data
Metric'IntSum
(\ Metric'Data
p__
-> case Metric'Data
p__ of
(Metric'IntSum IntSum
p__val) -> IntSum -> Maybe IntSum
forall a. a -> Maybe a
Prelude.Just IntSum
p__val
Metric'Data
_otherwise -> Maybe IntSum
forall a. Maybe a
Prelude.Nothing)
_Metric'Sum :: Data.ProtoLens.Prism.Prism' Metric'Data Sum
_Metric'Sum :: p Sum (f Sum) -> p Metric'Data (f Metric'Data)
_Metric'Sum
= (Sum -> Metric'Data)
-> (Metric'Data -> Maybe Sum)
-> Prism Metric'Data Metric'Data Sum Sum
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Sum -> Metric'Data
Metric'Sum
(\ Metric'Data
p__
-> case Metric'Data
p__ of
(Metric'Sum Sum
p__val) -> Sum -> Maybe Sum
forall a. a -> Maybe a
Prelude.Just Sum
p__val
Metric'Data
_otherwise -> Maybe Sum
forall a. Maybe a
Prelude.Nothing)
_Metric'IntHistogram ::
Data.ProtoLens.Prism.Prism' Metric'Data IntHistogram
_Metric'IntHistogram :: p IntHistogram (f IntHistogram) -> p Metric'Data (f Metric'Data)
_Metric'IntHistogram
= (IntHistogram -> Metric'Data)
-> (Metric'Data -> Maybe IntHistogram)
-> Prism Metric'Data Metric'Data IntHistogram IntHistogram
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
IntHistogram -> Metric'Data
Metric'IntHistogram
(\ Metric'Data
p__
-> case Metric'Data
p__ of
(Metric'IntHistogram IntHistogram
p__val) -> IntHistogram -> Maybe IntHistogram
forall a. a -> Maybe a
Prelude.Just IntHistogram
p__val
Metric'Data
_otherwise -> Maybe IntHistogram
forall a. Maybe a
Prelude.Nothing)
_Metric'Histogram ::
Data.ProtoLens.Prism.Prism' Metric'Data Histogram
_Metric'Histogram :: p Histogram (f Histogram) -> p Metric'Data (f Metric'Data)
_Metric'Histogram
= (Histogram -> Metric'Data)
-> (Metric'Data -> Maybe Histogram)
-> Prism Metric'Data Metric'Data Histogram Histogram
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Histogram -> Metric'Data
Metric'Histogram
(\ Metric'Data
p__
-> case Metric'Data
p__ of
(Metric'Histogram Histogram
p__val) -> Histogram -> Maybe Histogram
forall a. a -> Maybe a
Prelude.Just Histogram
p__val
Metric'Data
_otherwise -> Maybe Histogram
forall a. Maybe a
Prelude.Nothing)
_Metric'ExponentialHistogram ::
Data.ProtoLens.Prism.Prism' Metric'Data ExponentialHistogram
_Metric'ExponentialHistogram :: p ExponentialHistogram (f ExponentialHistogram)
-> p Metric'Data (f Metric'Data)
_Metric'ExponentialHistogram
= (ExponentialHistogram -> Metric'Data)
-> (Metric'Data -> Maybe ExponentialHistogram)
-> Prism
Metric'Data Metric'Data ExponentialHistogram ExponentialHistogram
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ExponentialHistogram -> Metric'Data
Metric'ExponentialHistogram
(\ Metric'Data
p__
-> case Metric'Data
p__ of
(Metric'ExponentialHistogram ExponentialHistogram
p__val) -> ExponentialHistogram -> Maybe ExponentialHistogram
forall a. a -> Maybe a
Prelude.Just ExponentialHistogram
p__val
Metric'Data
_otherwise -> Maybe ExponentialHistogram
forall a. Maybe a
Prelude.Nothing)
_Metric'Summary :: Data.ProtoLens.Prism.Prism' Metric'Data Summary
_Metric'Summary :: p Summary (f Summary) -> p Metric'Data (f Metric'Data)
_Metric'Summary
= (Summary -> Metric'Data)
-> (Metric'Data -> Maybe Summary)
-> Prism Metric'Data Metric'Data Summary Summary
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Summary -> Metric'Data
Metric'Summary
(\ Metric'Data
p__
-> case Metric'Data
p__ of
(Metric'Summary Summary
p__val) -> Summary -> Maybe Summary
forall a. a -> Maybe a
Prelude.Just Summary
p__val
Metric'Data
_otherwise -> Maybe Summary
forall a. Maybe a
Prelude.Nothing)
data MetricsData
= MetricsData'_constructor {MetricsData -> Vector ResourceMetrics
_MetricsData'resourceMetrics :: !(Data.Vector.Vector ResourceMetrics),
MetricsData -> FieldSet
_MetricsData'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MetricsData -> MetricsData -> Bool
(MetricsData -> MetricsData -> Bool)
-> (MetricsData -> MetricsData -> Bool) -> Eq MetricsData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetricsData -> MetricsData -> Bool
$c/= :: MetricsData -> MetricsData -> Bool
== :: MetricsData -> MetricsData -> Bool
$c== :: MetricsData -> MetricsData -> Bool
Prelude.Eq, Eq MetricsData
Eq MetricsData
-> (MetricsData -> MetricsData -> Ordering)
-> (MetricsData -> MetricsData -> Bool)
-> (MetricsData -> MetricsData -> Bool)
-> (MetricsData -> MetricsData -> Bool)
-> (MetricsData -> MetricsData -> Bool)
-> (MetricsData -> MetricsData -> MetricsData)
-> (MetricsData -> MetricsData -> MetricsData)
-> Ord MetricsData
MetricsData -> MetricsData -> Bool
MetricsData -> MetricsData -> Ordering
MetricsData -> MetricsData -> MetricsData
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MetricsData -> MetricsData -> MetricsData
$cmin :: MetricsData -> MetricsData -> MetricsData
max :: MetricsData -> MetricsData -> MetricsData
$cmax :: MetricsData -> MetricsData -> MetricsData
>= :: MetricsData -> MetricsData -> Bool
$c>= :: MetricsData -> MetricsData -> Bool
> :: MetricsData -> MetricsData -> Bool
$c> :: MetricsData -> MetricsData -> Bool
<= :: MetricsData -> MetricsData -> Bool
$c<= :: MetricsData -> MetricsData -> Bool
< :: MetricsData -> MetricsData -> Bool
$c< :: MetricsData -> MetricsData -> Bool
compare :: MetricsData -> MetricsData -> Ordering
$ccompare :: MetricsData -> MetricsData -> Ordering
$cp1Ord :: Eq MetricsData
Prelude.Ord)
instance Prelude.Show MetricsData where
showsPrec :: Int -> MetricsData -> ShowS
showsPrec Int
_ MetricsData
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(MetricsData -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetricsData
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MetricsData "resourceMetrics" [ResourceMetrics] where
fieldOf :: Proxy# "resourceMetrics"
-> ([ResourceMetrics] -> f [ResourceMetrics])
-> MetricsData
-> f MetricsData
fieldOf Proxy# "resourceMetrics"
_
= ((Vector ResourceMetrics -> f (Vector ResourceMetrics))
-> MetricsData -> f MetricsData)
-> (([ResourceMetrics] -> f [ResourceMetrics])
-> Vector ResourceMetrics -> f (Vector ResourceMetrics))
-> ([ResourceMetrics] -> f [ResourceMetrics])
-> MetricsData
-> f MetricsData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricsData -> Vector ResourceMetrics)
-> (MetricsData -> Vector ResourceMetrics -> MetricsData)
-> Lens
MetricsData
MetricsData
(Vector ResourceMetrics)
(Vector ResourceMetrics)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricsData -> Vector ResourceMetrics
_MetricsData'resourceMetrics
(\ MetricsData
x__ Vector ResourceMetrics
y__ -> MetricsData
x__ {_MetricsData'resourceMetrics :: Vector ResourceMetrics
_MetricsData'resourceMetrics = Vector ResourceMetrics
y__}))
((Vector ResourceMetrics -> [ResourceMetrics])
-> (Vector ResourceMetrics
-> [ResourceMetrics] -> Vector ResourceMetrics)
-> Lens
(Vector ResourceMetrics)
(Vector ResourceMetrics)
[ResourceMetrics]
[ResourceMetrics]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector ResourceMetrics -> [ResourceMetrics]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector ResourceMetrics
_ [ResourceMetrics]
y__ -> [ResourceMetrics] -> Vector ResourceMetrics
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ResourceMetrics]
y__))
instance Data.ProtoLens.Field.HasField MetricsData "vec'resourceMetrics" (Data.Vector.Vector ResourceMetrics) where
fieldOf :: Proxy# "vec'resourceMetrics"
-> (Vector ResourceMetrics -> f (Vector ResourceMetrics))
-> MetricsData
-> f MetricsData
fieldOf Proxy# "vec'resourceMetrics"
_
= ((Vector ResourceMetrics -> f (Vector ResourceMetrics))
-> MetricsData -> f MetricsData)
-> ((Vector ResourceMetrics -> f (Vector ResourceMetrics))
-> Vector ResourceMetrics -> f (Vector ResourceMetrics))
-> (Vector ResourceMetrics -> f (Vector ResourceMetrics))
-> MetricsData
-> f MetricsData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetricsData -> Vector ResourceMetrics)
-> (MetricsData -> Vector ResourceMetrics -> MetricsData)
-> Lens
MetricsData
MetricsData
(Vector ResourceMetrics)
(Vector ResourceMetrics)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricsData -> Vector ResourceMetrics
_MetricsData'resourceMetrics
(\ MetricsData
x__ Vector ResourceMetrics
y__ -> MetricsData
x__ {_MetricsData'resourceMetrics :: Vector ResourceMetrics
_MetricsData'resourceMetrics = Vector ResourceMetrics
y__}))
(Vector ResourceMetrics -> f (Vector ResourceMetrics))
-> Vector ResourceMetrics -> f (Vector ResourceMetrics)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetricsData where
messageName :: Proxy MetricsData -> Text
messageName Proxy MetricsData
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.MetricsData"
packedMessageDescriptor :: Proxy MetricsData -> ByteString
packedMessageDescriptor Proxy MetricsData
_
= ByteString
"\n\
\\vMetricsData\DC2Z\n\
\\DLEresource_metrics\CAN\SOH \ETX(\v2/.opentelemetry.proto.metrics.v1.ResourceMetricsR\SIresourceMetrics"
packedFileDescriptor :: Proxy MetricsData -> ByteString
packedFileDescriptor Proxy MetricsData
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MetricsData)
fieldsByTag
= let
resourceMetrics__field_descriptor :: FieldDescriptor MetricsData
resourceMetrics__field_descriptor
= String
-> FieldTypeDescriptor ResourceMetrics
-> FieldAccessor MetricsData ResourceMetrics
-> FieldDescriptor MetricsData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"resource_metrics"
(MessageOrGroup -> FieldTypeDescriptor ResourceMetrics
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ResourceMetrics)
(Packing
-> Lens' MetricsData [ResourceMetrics]
-> FieldAccessor MetricsData ResourceMetrics
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "resourceMetrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"resourceMetrics")) ::
Data.ProtoLens.FieldDescriptor MetricsData
in
[(Tag, FieldDescriptor MetricsData)]
-> Map Tag (FieldDescriptor MetricsData)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MetricsData
resourceMetrics__field_descriptor)]
unknownFields :: LensLike' f MetricsData FieldSet
unknownFields
= (MetricsData -> FieldSet)
-> (MetricsData -> FieldSet -> MetricsData)
-> Lens' MetricsData FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetricsData -> FieldSet
_MetricsData'_unknownFields
(\ MetricsData
x__ FieldSet
y__ -> MetricsData
x__ {_MetricsData'_unknownFields :: FieldSet
_MetricsData'_unknownFields = FieldSet
y__})
defMessage :: MetricsData
defMessage
= MetricsData'_constructor :: Vector ResourceMetrics -> FieldSet -> MetricsData
MetricsData'_constructor
{_MetricsData'resourceMetrics :: Vector ResourceMetrics
_MetricsData'resourceMetrics = Vector ResourceMetrics
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_MetricsData'_unknownFields :: FieldSet
_MetricsData'_unknownFields = []}
parseMessage :: Parser MetricsData
parseMessage
= let
loop ::
MetricsData
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ResourceMetrics
-> Data.ProtoLens.Encoding.Bytes.Parser MetricsData
loop :: MetricsData
-> Growing Vector RealWorld ResourceMetrics -> Parser MetricsData
loop MetricsData
x Growing Vector RealWorld ResourceMetrics
mutable'resourceMetrics
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector ResourceMetrics
frozen'resourceMetrics <- IO (Vector ResourceMetrics) -> Parser (Vector ResourceMetrics)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ResourceMetrics
-> IO (Vector ResourceMetrics)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld ResourceMetrics
Growing Vector (PrimState IO) ResourceMetrics
mutable'resourceMetrics)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
MetricsData -> Parser MetricsData
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter MetricsData MetricsData FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetricsData -> MetricsData
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter MetricsData MetricsData FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
MetricsData
MetricsData
(Vector ResourceMetrics)
(Vector ResourceMetrics)
-> Vector ResourceMetrics -> MetricsData -> MetricsData
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'resourceMetrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'resourceMetrics")
Vector ResourceMetrics
frozen'resourceMetrics MetricsData
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !ResourceMetrics
y <- Parser ResourceMetrics -> String -> Parser ResourceMetrics
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ResourceMetrics -> Parser ResourceMetrics
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser ResourceMetrics
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"resource_metrics"
Growing Vector RealWorld ResourceMetrics
v <- IO (Growing Vector RealWorld ResourceMetrics)
-> Parser (Growing Vector RealWorld ResourceMetrics)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ResourceMetrics
-> ResourceMetrics
-> IO (Growing Vector (PrimState IO) ResourceMetrics)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld ResourceMetrics
Growing Vector (PrimState IO) ResourceMetrics
mutable'resourceMetrics ResourceMetrics
y)
MetricsData
-> Growing Vector RealWorld ResourceMetrics -> Parser MetricsData
loop MetricsData
x Growing Vector RealWorld ResourceMetrics
v
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MetricsData
-> Growing Vector RealWorld ResourceMetrics -> Parser MetricsData
loop
(Setter MetricsData MetricsData FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetricsData -> MetricsData
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter MetricsData MetricsData FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetricsData
x)
Growing Vector RealWorld ResourceMetrics
mutable'resourceMetrics
in
Parser MetricsData -> String -> Parser MetricsData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld ResourceMetrics
mutable'resourceMetrics <- IO (Growing Vector RealWorld ResourceMetrics)
-> Parser (Growing Vector RealWorld ResourceMetrics)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld ResourceMetrics)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
MetricsData
-> Growing Vector RealWorld ResourceMetrics -> Parser MetricsData
loop MetricsData
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ResourceMetrics
mutable'resourceMetrics)
String
"MetricsData"
buildMessage :: MetricsData -> Builder
buildMessage
= \ MetricsData
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((ResourceMetrics -> Builder) -> Vector ResourceMetrics -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ ResourceMetrics
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (ResourceMetrics -> ByteString) -> ResourceMetrics -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ResourceMetrics -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResourceMetrics
_v))
(FoldLike
(Vector ResourceMetrics)
MetricsData
MetricsData
(Vector ResourceMetrics)
(Vector ResourceMetrics)
-> MetricsData -> Vector ResourceMetrics
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'resourceMetrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'resourceMetrics") MetricsData
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet MetricsData MetricsData FieldSet FieldSet
-> MetricsData -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MetricsData MetricsData FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetricsData
_x))
instance Control.DeepSeq.NFData MetricsData where
rnf :: MetricsData -> ()
rnf
= \ MetricsData
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetricsData -> FieldSet
_MetricsData'_unknownFields MetricsData
x__)
(Vector ResourceMetrics -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MetricsData -> Vector ResourceMetrics
_MetricsData'resourceMetrics MetricsData
x__) ())
data NumberDataPoint
= NumberDataPoint'_constructor {NumberDataPoint -> Vector KeyValue
_NumberDataPoint'attributes :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue),
NumberDataPoint -> Vector StringKeyValue
_NumberDataPoint'labels :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue),
NumberDataPoint -> Word64
_NumberDataPoint'startTimeUnixNano :: !Data.Word.Word64,
NumberDataPoint -> Word64
_NumberDataPoint'timeUnixNano :: !Data.Word.Word64,
NumberDataPoint -> Vector Exemplar
_NumberDataPoint'exemplars :: !(Data.Vector.Vector Exemplar),
NumberDataPoint -> Word32
_NumberDataPoint'flags :: !Data.Word.Word32,
NumberDataPoint -> Maybe NumberDataPoint'Value
_NumberDataPoint'value :: !(Prelude.Maybe NumberDataPoint'Value),
NumberDataPoint -> FieldSet
_NumberDataPoint'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (NumberDataPoint -> NumberDataPoint -> Bool
(NumberDataPoint -> NumberDataPoint -> Bool)
-> (NumberDataPoint -> NumberDataPoint -> Bool)
-> Eq NumberDataPoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NumberDataPoint -> NumberDataPoint -> Bool
$c/= :: NumberDataPoint -> NumberDataPoint -> Bool
== :: NumberDataPoint -> NumberDataPoint -> Bool
$c== :: NumberDataPoint -> NumberDataPoint -> Bool
Prelude.Eq, Eq NumberDataPoint
Eq NumberDataPoint
-> (NumberDataPoint -> NumberDataPoint -> Ordering)
-> (NumberDataPoint -> NumberDataPoint -> Bool)
-> (NumberDataPoint -> NumberDataPoint -> Bool)
-> (NumberDataPoint -> NumberDataPoint -> Bool)
-> (NumberDataPoint -> NumberDataPoint -> Bool)
-> (NumberDataPoint -> NumberDataPoint -> NumberDataPoint)
-> (NumberDataPoint -> NumberDataPoint -> NumberDataPoint)
-> Ord NumberDataPoint
NumberDataPoint -> NumberDataPoint -> Bool
NumberDataPoint -> NumberDataPoint -> Ordering
NumberDataPoint -> NumberDataPoint -> NumberDataPoint
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: NumberDataPoint -> NumberDataPoint -> NumberDataPoint
$cmin :: NumberDataPoint -> NumberDataPoint -> NumberDataPoint
max :: NumberDataPoint -> NumberDataPoint -> NumberDataPoint
$cmax :: NumberDataPoint -> NumberDataPoint -> NumberDataPoint
>= :: NumberDataPoint -> NumberDataPoint -> Bool
$c>= :: NumberDataPoint -> NumberDataPoint -> Bool
> :: NumberDataPoint -> NumberDataPoint -> Bool
$c> :: NumberDataPoint -> NumberDataPoint -> Bool
<= :: NumberDataPoint -> NumberDataPoint -> Bool
$c<= :: NumberDataPoint -> NumberDataPoint -> Bool
< :: NumberDataPoint -> NumberDataPoint -> Bool
$c< :: NumberDataPoint -> NumberDataPoint -> Bool
compare :: NumberDataPoint -> NumberDataPoint -> Ordering
$ccompare :: NumberDataPoint -> NumberDataPoint -> Ordering
$cp1Ord :: Eq NumberDataPoint
Prelude.Ord)
instance Prelude.Show NumberDataPoint where
showsPrec :: Int -> NumberDataPoint -> ShowS
showsPrec Int
_ NumberDataPoint
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(NumberDataPoint -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NumberDataPoint
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data NumberDataPoint'Value
= NumberDataPoint'AsDouble !Prelude.Double |
NumberDataPoint'AsInt !Data.Int.Int64
deriving stock (Int -> NumberDataPoint'Value -> ShowS
[NumberDataPoint'Value] -> ShowS
NumberDataPoint'Value -> String
(Int -> NumberDataPoint'Value -> ShowS)
-> (NumberDataPoint'Value -> String)
-> ([NumberDataPoint'Value] -> ShowS)
-> Show NumberDataPoint'Value
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [NumberDataPoint'Value] -> ShowS
$cshowList :: [NumberDataPoint'Value] -> ShowS
show :: NumberDataPoint'Value -> String
$cshow :: NumberDataPoint'Value -> String
showsPrec :: Int -> NumberDataPoint'Value -> ShowS
$cshowsPrec :: Int -> NumberDataPoint'Value -> ShowS
Prelude.Show, NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
(NumberDataPoint'Value -> NumberDataPoint'Value -> Bool)
-> (NumberDataPoint'Value -> NumberDataPoint'Value -> Bool)
-> Eq NumberDataPoint'Value
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
$c/= :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
== :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
$c== :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
Prelude.Eq, Eq NumberDataPoint'Value
Eq NumberDataPoint'Value
-> (NumberDataPoint'Value -> NumberDataPoint'Value -> Ordering)
-> (NumberDataPoint'Value -> NumberDataPoint'Value -> Bool)
-> (NumberDataPoint'Value -> NumberDataPoint'Value -> Bool)
-> (NumberDataPoint'Value -> NumberDataPoint'Value -> Bool)
-> (NumberDataPoint'Value -> NumberDataPoint'Value -> Bool)
-> (NumberDataPoint'Value
-> NumberDataPoint'Value -> NumberDataPoint'Value)
-> (NumberDataPoint'Value
-> NumberDataPoint'Value -> NumberDataPoint'Value)
-> Ord NumberDataPoint'Value
NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
NumberDataPoint'Value -> NumberDataPoint'Value -> Ordering
NumberDataPoint'Value
-> NumberDataPoint'Value -> NumberDataPoint'Value
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: NumberDataPoint'Value
-> NumberDataPoint'Value -> NumberDataPoint'Value
$cmin :: NumberDataPoint'Value
-> NumberDataPoint'Value -> NumberDataPoint'Value
max :: NumberDataPoint'Value
-> NumberDataPoint'Value -> NumberDataPoint'Value
$cmax :: NumberDataPoint'Value
-> NumberDataPoint'Value -> NumberDataPoint'Value
>= :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
$c>= :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
> :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
$c> :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
<= :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
$c<= :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
< :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
$c< :: NumberDataPoint'Value -> NumberDataPoint'Value -> Bool
compare :: NumberDataPoint'Value -> NumberDataPoint'Value -> Ordering
$ccompare :: NumberDataPoint'Value -> NumberDataPoint'Value -> Ordering
$cp1Ord :: Eq NumberDataPoint'Value
Prelude.Ord)
instance Data.ProtoLens.Field.HasField NumberDataPoint "attributes" [Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue] where
fieldOf :: Proxy# "attributes"
-> ([KeyValue] -> f [KeyValue])
-> NumberDataPoint
-> f NumberDataPoint
fieldOf Proxy# "attributes"
_
= ((Vector KeyValue -> f (Vector KeyValue))
-> NumberDataPoint -> f NumberDataPoint)
-> (([KeyValue] -> f [KeyValue])
-> Vector KeyValue -> f (Vector KeyValue))
-> ([KeyValue] -> f [KeyValue])
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Vector KeyValue)
-> (NumberDataPoint -> Vector KeyValue -> NumberDataPoint)
-> Lens
NumberDataPoint NumberDataPoint (Vector KeyValue) (Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Vector KeyValue
_NumberDataPoint'attributes
(\ NumberDataPoint
x__ Vector KeyValue
y__ -> NumberDataPoint
x__ {_NumberDataPoint'attributes :: Vector KeyValue
_NumberDataPoint'attributes = Vector KeyValue
y__}))
((Vector KeyValue -> [KeyValue])
-> (Vector KeyValue -> [KeyValue] -> Vector KeyValue)
-> Lens (Vector KeyValue) (Vector KeyValue) [KeyValue] [KeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector KeyValue -> [KeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector KeyValue
_ [KeyValue]
y__ -> [KeyValue] -> Vector KeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [KeyValue]
y__))
instance Data.ProtoLens.Field.HasField NumberDataPoint "vec'attributes" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue) where
fieldOf :: Proxy# "vec'attributes"
-> (Vector KeyValue -> f (Vector KeyValue))
-> NumberDataPoint
-> f NumberDataPoint
fieldOf Proxy# "vec'attributes"
_
= ((Vector KeyValue -> f (Vector KeyValue))
-> NumberDataPoint -> f NumberDataPoint)
-> ((Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue))
-> (Vector KeyValue -> f (Vector KeyValue))
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Vector KeyValue)
-> (NumberDataPoint -> Vector KeyValue -> NumberDataPoint)
-> Lens
NumberDataPoint NumberDataPoint (Vector KeyValue) (Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Vector KeyValue
_NumberDataPoint'attributes
(\ NumberDataPoint
x__ Vector KeyValue
y__ -> NumberDataPoint
x__ {_NumberDataPoint'attributes :: Vector KeyValue
_NumberDataPoint'attributes = Vector KeyValue
y__}))
(Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NumberDataPoint "labels" [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue] where
fieldOf :: Proxy# "labels"
-> ([StringKeyValue] -> f [StringKeyValue])
-> NumberDataPoint
-> f NumberDataPoint
fieldOf Proxy# "labels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> NumberDataPoint -> f NumberDataPoint)
-> (([StringKeyValue] -> f [StringKeyValue])
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> ([StringKeyValue] -> f [StringKeyValue])
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Vector StringKeyValue)
-> (NumberDataPoint -> Vector StringKeyValue -> NumberDataPoint)
-> Lens
NumberDataPoint
NumberDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Vector StringKeyValue
_NumberDataPoint'labels
(\ NumberDataPoint
x__ Vector StringKeyValue
y__ -> NumberDataPoint
x__ {_NumberDataPoint'labels :: Vector StringKeyValue
_NumberDataPoint'labels = Vector StringKeyValue
y__}))
((Vector StringKeyValue -> [StringKeyValue])
-> (Vector StringKeyValue
-> [StringKeyValue] -> Vector StringKeyValue)
-> Lens
(Vector StringKeyValue)
(Vector StringKeyValue)
[StringKeyValue]
[StringKeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector StringKeyValue -> [StringKeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector StringKeyValue
_ [StringKeyValue]
y__ -> [StringKeyValue] -> Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StringKeyValue]
y__))
instance Data.ProtoLens.Field.HasField NumberDataPoint "vec'labels" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue) where
fieldOf :: Proxy# "vec'labels"
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> NumberDataPoint
-> f NumberDataPoint
fieldOf Proxy# "vec'labels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> NumberDataPoint -> f NumberDataPoint)
-> ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Vector StringKeyValue)
-> (NumberDataPoint -> Vector StringKeyValue -> NumberDataPoint)
-> Lens
NumberDataPoint
NumberDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Vector StringKeyValue
_NumberDataPoint'labels
(\ NumberDataPoint
x__ Vector StringKeyValue
y__ -> NumberDataPoint
x__ {_NumberDataPoint'labels :: Vector StringKeyValue
_NumberDataPoint'labels = Vector StringKeyValue
y__}))
(Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NumberDataPoint "startTimeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "startTimeUnixNano"
-> (Word64 -> f Word64) -> NumberDataPoint -> f NumberDataPoint
fieldOf Proxy# "startTimeUnixNano"
_
= ((Word64 -> f Word64) -> NumberDataPoint -> f NumberDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Word64)
-> (NumberDataPoint -> Word64 -> NumberDataPoint)
-> Lens NumberDataPoint NumberDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Word64
_NumberDataPoint'startTimeUnixNano
(\ NumberDataPoint
x__ Word64
y__ -> NumberDataPoint
x__ {_NumberDataPoint'startTimeUnixNano :: Word64
_NumberDataPoint'startTimeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NumberDataPoint "timeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "timeUnixNano"
-> (Word64 -> f Word64) -> NumberDataPoint -> f NumberDataPoint
fieldOf Proxy# "timeUnixNano"
_
= ((Word64 -> f Word64) -> NumberDataPoint -> f NumberDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Word64)
-> (NumberDataPoint -> Word64 -> NumberDataPoint)
-> Lens NumberDataPoint NumberDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Word64
_NumberDataPoint'timeUnixNano
(\ NumberDataPoint
x__ Word64
y__ -> NumberDataPoint
x__ {_NumberDataPoint'timeUnixNano :: Word64
_NumberDataPoint'timeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NumberDataPoint "exemplars" [Exemplar] where
fieldOf :: Proxy# "exemplars"
-> ([Exemplar] -> f [Exemplar])
-> NumberDataPoint
-> f NumberDataPoint
fieldOf Proxy# "exemplars"
_
= ((Vector Exemplar -> f (Vector Exemplar))
-> NumberDataPoint -> f NumberDataPoint)
-> (([Exemplar] -> f [Exemplar])
-> Vector Exemplar -> f (Vector Exemplar))
-> ([Exemplar] -> f [Exemplar])
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Vector Exemplar)
-> (NumberDataPoint -> Vector Exemplar -> NumberDataPoint)
-> Lens
NumberDataPoint NumberDataPoint (Vector Exemplar) (Vector Exemplar)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Vector Exemplar
_NumberDataPoint'exemplars
(\ NumberDataPoint
x__ Vector Exemplar
y__ -> NumberDataPoint
x__ {_NumberDataPoint'exemplars :: Vector Exemplar
_NumberDataPoint'exemplars = Vector Exemplar
y__}))
((Vector Exemplar -> [Exemplar])
-> (Vector Exemplar -> [Exemplar] -> Vector Exemplar)
-> Lens (Vector Exemplar) (Vector Exemplar) [Exemplar] [Exemplar]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Exemplar -> [Exemplar]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Exemplar
_ [Exemplar]
y__ -> [Exemplar] -> Vector Exemplar
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Exemplar]
y__))
instance Data.ProtoLens.Field.HasField NumberDataPoint "vec'exemplars" (Data.Vector.Vector Exemplar) where
fieldOf :: Proxy# "vec'exemplars"
-> (Vector Exemplar -> f (Vector Exemplar))
-> NumberDataPoint
-> f NumberDataPoint
fieldOf Proxy# "vec'exemplars"
_
= ((Vector Exemplar -> f (Vector Exemplar))
-> NumberDataPoint -> f NumberDataPoint)
-> ((Vector Exemplar -> f (Vector Exemplar))
-> Vector Exemplar -> f (Vector Exemplar))
-> (Vector Exemplar -> f (Vector Exemplar))
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Vector Exemplar)
-> (NumberDataPoint -> Vector Exemplar -> NumberDataPoint)
-> Lens
NumberDataPoint NumberDataPoint (Vector Exemplar) (Vector Exemplar)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Vector Exemplar
_NumberDataPoint'exemplars
(\ NumberDataPoint
x__ Vector Exemplar
y__ -> NumberDataPoint
x__ {_NumberDataPoint'exemplars :: Vector Exemplar
_NumberDataPoint'exemplars = Vector Exemplar
y__}))
(Vector Exemplar -> f (Vector Exemplar))
-> Vector Exemplar -> f (Vector Exemplar)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NumberDataPoint "flags" Data.Word.Word32 where
fieldOf :: Proxy# "flags"
-> (Word32 -> f Word32) -> NumberDataPoint -> f NumberDataPoint
fieldOf Proxy# "flags"
_
= ((Word32 -> f Word32) -> NumberDataPoint -> f NumberDataPoint)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Word32)
-> (NumberDataPoint -> Word32 -> NumberDataPoint)
-> Lens NumberDataPoint NumberDataPoint Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Word32
_NumberDataPoint'flags
(\ NumberDataPoint
x__ Word32
y__ -> NumberDataPoint
x__ {_NumberDataPoint'flags :: Word32
_NumberDataPoint'flags = Word32
y__}))
(Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NumberDataPoint "maybe'value" (Prelude.Maybe NumberDataPoint'Value) where
fieldOf :: Proxy# "maybe'value"
-> (Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> NumberDataPoint
-> f NumberDataPoint
fieldOf Proxy# "maybe'value"
_
= ((Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> NumberDataPoint -> f NumberDataPoint)
-> ((Maybe NumberDataPoint'Value
-> f (Maybe NumberDataPoint'Value))
-> Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> (Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Maybe NumberDataPoint'Value)
-> (NumberDataPoint
-> Maybe NumberDataPoint'Value -> NumberDataPoint)
-> Lens
NumberDataPoint
NumberDataPoint
(Maybe NumberDataPoint'Value)
(Maybe NumberDataPoint'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Maybe NumberDataPoint'Value
_NumberDataPoint'value
(\ NumberDataPoint
x__ Maybe NumberDataPoint'Value
y__ -> NumberDataPoint
x__ {_NumberDataPoint'value :: Maybe NumberDataPoint'Value
_NumberDataPoint'value = Maybe NumberDataPoint'Value
y__}))
(Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NumberDataPoint "maybe'asDouble" (Prelude.Maybe Prelude.Double) where
fieldOf :: Proxy# "maybe'asDouble"
-> (Maybe Double -> f (Maybe Double))
-> NumberDataPoint
-> f NumberDataPoint
fieldOf Proxy# "maybe'asDouble"
_
= ((Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> NumberDataPoint -> f NumberDataPoint)
-> ((Maybe Double -> f (Maybe Double))
-> Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> (Maybe Double -> f (Maybe Double))
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Maybe NumberDataPoint'Value)
-> (NumberDataPoint
-> Maybe NumberDataPoint'Value -> NumberDataPoint)
-> Lens
NumberDataPoint
NumberDataPoint
(Maybe NumberDataPoint'Value)
(Maybe NumberDataPoint'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Maybe NumberDataPoint'Value
_NumberDataPoint'value
(\ NumberDataPoint
x__ Maybe NumberDataPoint'Value
y__ -> NumberDataPoint
x__ {_NumberDataPoint'value :: Maybe NumberDataPoint'Value
_NumberDataPoint'value = Maybe NumberDataPoint'Value
y__}))
((Maybe NumberDataPoint'Value -> Maybe Double)
-> (Maybe NumberDataPoint'Value
-> Maybe Double -> Maybe NumberDataPoint'Value)
-> Lens
(Maybe NumberDataPoint'Value)
(Maybe NumberDataPoint'Value)
(Maybe Double)
(Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe NumberDataPoint'Value
x__
-> case Maybe NumberDataPoint'Value
x__ of
(Prelude.Just (NumberDataPoint'AsDouble Double
x__val))
-> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
x__val
Maybe NumberDataPoint'Value
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
(\ Maybe NumberDataPoint'Value
_ Maybe Double
y__ -> (Double -> NumberDataPoint'Value)
-> Maybe Double -> Maybe NumberDataPoint'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Double -> NumberDataPoint'Value
NumberDataPoint'AsDouble Maybe Double
y__))
instance Data.ProtoLens.Field.HasField NumberDataPoint "asDouble" Prelude.Double where
fieldOf :: Proxy# "asDouble"
-> (Double -> f Double) -> NumberDataPoint -> f NumberDataPoint
fieldOf Proxy# "asDouble"
_
= ((Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> NumberDataPoint -> f NumberDataPoint)
-> ((Double -> f Double)
-> Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> (Double -> f Double)
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Maybe NumberDataPoint'Value)
-> (NumberDataPoint
-> Maybe NumberDataPoint'Value -> NumberDataPoint)
-> Lens
NumberDataPoint
NumberDataPoint
(Maybe NumberDataPoint'Value)
(Maybe NumberDataPoint'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Maybe NumberDataPoint'Value
_NumberDataPoint'value
(\ NumberDataPoint
x__ Maybe NumberDataPoint'Value
y__ -> NumberDataPoint
x__ {_NumberDataPoint'value :: Maybe NumberDataPoint'Value
_NumberDataPoint'value = Maybe NumberDataPoint'Value
y__}))
(((Maybe Double -> f (Maybe Double))
-> Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> ((Double -> f Double) -> Maybe Double -> f (Maybe Double))
-> (Double -> f Double)
-> Maybe NumberDataPoint'Value
-> f (Maybe NumberDataPoint'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe NumberDataPoint'Value -> Maybe Double)
-> (Maybe NumberDataPoint'Value
-> Maybe Double -> Maybe NumberDataPoint'Value)
-> Lens
(Maybe NumberDataPoint'Value)
(Maybe NumberDataPoint'Value)
(Maybe Double)
(Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe NumberDataPoint'Value
x__
-> case Maybe NumberDataPoint'Value
x__ of
(Prelude.Just (NumberDataPoint'AsDouble Double
x__val))
-> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
x__val
Maybe NumberDataPoint'Value
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
(\ Maybe NumberDataPoint'Value
_ Maybe Double
y__ -> (Double -> NumberDataPoint'Value)
-> Maybe Double -> Maybe NumberDataPoint'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Double -> NumberDataPoint'Value
NumberDataPoint'AsDouble Maybe Double
y__))
(Double -> Lens' (Maybe Double) Double
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField NumberDataPoint "maybe'asInt" (Prelude.Maybe Data.Int.Int64) where
fieldOf :: Proxy# "maybe'asInt"
-> (Maybe Int64 -> f (Maybe Int64))
-> NumberDataPoint
-> f NumberDataPoint
fieldOf Proxy# "maybe'asInt"
_
= ((Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> NumberDataPoint -> f NumberDataPoint)
-> ((Maybe Int64 -> f (Maybe Int64))
-> Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> (Maybe Int64 -> f (Maybe Int64))
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Maybe NumberDataPoint'Value)
-> (NumberDataPoint
-> Maybe NumberDataPoint'Value -> NumberDataPoint)
-> Lens
NumberDataPoint
NumberDataPoint
(Maybe NumberDataPoint'Value)
(Maybe NumberDataPoint'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Maybe NumberDataPoint'Value
_NumberDataPoint'value
(\ NumberDataPoint
x__ Maybe NumberDataPoint'Value
y__ -> NumberDataPoint
x__ {_NumberDataPoint'value :: Maybe NumberDataPoint'Value
_NumberDataPoint'value = Maybe NumberDataPoint'Value
y__}))
((Maybe NumberDataPoint'Value -> Maybe Int64)
-> (Maybe NumberDataPoint'Value
-> Maybe Int64 -> Maybe NumberDataPoint'Value)
-> Lens
(Maybe NumberDataPoint'Value)
(Maybe NumberDataPoint'Value)
(Maybe Int64)
(Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe NumberDataPoint'Value
x__
-> case Maybe NumberDataPoint'Value
x__ of
(Prelude.Just (NumberDataPoint'AsInt Int64
x__val))
-> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
Maybe NumberDataPoint'Value
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
(\ Maybe NumberDataPoint'Value
_ Maybe Int64
y__ -> (Int64 -> NumberDataPoint'Value)
-> Maybe Int64 -> Maybe NumberDataPoint'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> NumberDataPoint'Value
NumberDataPoint'AsInt Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField NumberDataPoint "asInt" Data.Int.Int64 where
fieldOf :: Proxy# "asInt"
-> (Int64 -> f Int64) -> NumberDataPoint -> f NumberDataPoint
fieldOf Proxy# "asInt"
_
= ((Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> NumberDataPoint -> f NumberDataPoint)
-> ((Int64 -> f Int64)
-> Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> (Int64 -> f Int64)
-> NumberDataPoint
-> f NumberDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NumberDataPoint -> Maybe NumberDataPoint'Value)
-> (NumberDataPoint
-> Maybe NumberDataPoint'Value -> NumberDataPoint)
-> Lens
NumberDataPoint
NumberDataPoint
(Maybe NumberDataPoint'Value)
(Maybe NumberDataPoint'Value)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> Maybe NumberDataPoint'Value
_NumberDataPoint'value
(\ NumberDataPoint
x__ Maybe NumberDataPoint'Value
y__ -> NumberDataPoint
x__ {_NumberDataPoint'value :: Maybe NumberDataPoint'Value
_NumberDataPoint'value = Maybe NumberDataPoint'Value
y__}))
(((Maybe Int64 -> f (Maybe Int64))
-> Maybe NumberDataPoint'Value -> f (Maybe NumberDataPoint'Value))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe NumberDataPoint'Value
-> f (Maybe NumberDataPoint'Value)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe NumberDataPoint'Value -> Maybe Int64)
-> (Maybe NumberDataPoint'Value
-> Maybe Int64 -> Maybe NumberDataPoint'Value)
-> Lens
(Maybe NumberDataPoint'Value)
(Maybe NumberDataPoint'Value)
(Maybe Int64)
(Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe NumberDataPoint'Value
x__
-> case Maybe NumberDataPoint'Value
x__ of
(Prelude.Just (NumberDataPoint'AsInt Int64
x__val))
-> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
Maybe NumberDataPoint'Value
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
(\ Maybe NumberDataPoint'Value
_ Maybe Int64
y__ -> (Int64 -> NumberDataPoint'Value)
-> Maybe Int64 -> Maybe NumberDataPoint'Value
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> NumberDataPoint'Value
NumberDataPoint'AsInt Maybe Int64
y__))
(Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message NumberDataPoint where
messageName :: Proxy NumberDataPoint -> Text
messageName Proxy NumberDataPoint
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.NumberDataPoint"
packedMessageDescriptor :: Proxy NumberDataPoint -> ByteString
packedMessageDescriptor Proxy NumberDataPoint
_
= ByteString
"\n\
\\SINumberDataPoint\DC2G\n\
\\n\
\attributes\CAN\a \ETX(\v2'.opentelemetry.proto.common.v1.KeyValueR\n\
\attributes\DC2I\n\
\\ACKlabels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\ACKlabelsB\STX\CAN\SOH\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\GS\n\
\\tas_double\CAN\EOT \SOH(\SOHH\NULR\basDouble\DC2\ETB\n\
\\ACKas_int\CAN\ACK \SOH(\DLEH\NULR\ENQasInt\DC2F\n\
\\texemplars\CAN\ENQ \ETX(\v2(.opentelemetry.proto.metrics.v1.ExemplarR\texemplars\DC2\DC4\n\
\\ENQflags\CAN\b \SOH(\rR\ENQflagsB\a\n\
\\ENQvalue"
packedFileDescriptor :: Proxy NumberDataPoint -> ByteString
packedFileDescriptor Proxy NumberDataPoint
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor NumberDataPoint)
fieldsByTag
= let
attributes__field_descriptor :: FieldDescriptor NumberDataPoint
attributes__field_descriptor
= String
-> FieldTypeDescriptor KeyValue
-> FieldAccessor NumberDataPoint KeyValue
-> FieldDescriptor NumberDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"attributes"
(MessageOrGroup -> FieldTypeDescriptor KeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue)
(Packing
-> Lens' NumberDataPoint [KeyValue]
-> FieldAccessor NumberDataPoint KeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attributes")) ::
Data.ProtoLens.FieldDescriptor NumberDataPoint
labels__field_descriptor :: FieldDescriptor NumberDataPoint
labels__field_descriptor
= String
-> FieldTypeDescriptor StringKeyValue
-> FieldAccessor NumberDataPoint StringKeyValue
-> FieldDescriptor NumberDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"labels"
(MessageOrGroup -> FieldTypeDescriptor StringKeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)
(Packing
-> Lens' NumberDataPoint [StringKeyValue]
-> FieldAccessor NumberDataPoint StringKeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"labels")) ::
Data.ProtoLens.FieldDescriptor NumberDataPoint
startTimeUnixNano__field_descriptor :: FieldDescriptor NumberDataPoint
startTimeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor NumberDataPoint Word64
-> FieldDescriptor NumberDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens NumberDataPoint NumberDataPoint Word64 Word64
-> FieldAccessor NumberDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano")) ::
Data.ProtoLens.FieldDescriptor NumberDataPoint
timeUnixNano__field_descriptor :: FieldDescriptor NumberDataPoint
timeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor NumberDataPoint Word64
-> FieldDescriptor NumberDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens NumberDataPoint NumberDataPoint Word64 Word64
-> FieldAccessor NumberDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano")) ::
Data.ProtoLens.FieldDescriptor NumberDataPoint
exemplars__field_descriptor :: FieldDescriptor NumberDataPoint
exemplars__field_descriptor
= String
-> FieldTypeDescriptor Exemplar
-> FieldAccessor NumberDataPoint Exemplar
-> FieldDescriptor NumberDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"exemplars"
(MessageOrGroup -> FieldTypeDescriptor Exemplar
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Exemplar)
(Packing
-> Lens' NumberDataPoint [Exemplar]
-> FieldAccessor NumberDataPoint Exemplar
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"exemplars")) ::
Data.ProtoLens.FieldDescriptor NumberDataPoint
flags__field_descriptor :: FieldDescriptor NumberDataPoint
flags__field_descriptor
= String
-> FieldTypeDescriptor Word32
-> FieldAccessor NumberDataPoint Word32
-> FieldDescriptor NumberDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"flags"
(ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(WireDefault Word32
-> Lens NumberDataPoint NumberDataPoint Word32 Word32
-> FieldAccessor NumberDataPoint Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags")) ::
Data.ProtoLens.FieldDescriptor NumberDataPoint
asDouble__field_descriptor :: FieldDescriptor NumberDataPoint
asDouble__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor NumberDataPoint Double
-> FieldDescriptor NumberDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"as_double"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Lens' NumberDataPoint (Maybe Double)
-> FieldAccessor NumberDataPoint Double
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'asDouble" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'asDouble")) ::
Data.ProtoLens.FieldDescriptor NumberDataPoint
asInt__field_descriptor :: FieldDescriptor NumberDataPoint
asInt__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NumberDataPoint Int64
-> FieldDescriptor NumberDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"as_int"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.SFixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Lens' NumberDataPoint (Maybe Int64)
-> FieldAccessor NumberDataPoint Int64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'asInt" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'asInt")) ::
Data.ProtoLens.FieldDescriptor NumberDataPoint
in
[(Tag, FieldDescriptor NumberDataPoint)]
-> Map Tag (FieldDescriptor NumberDataPoint)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor NumberDataPoint
attributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NumberDataPoint
labels__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NumberDataPoint
startTimeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor NumberDataPoint
timeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor NumberDataPoint
exemplars__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor NumberDataPoint
flags__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor NumberDataPoint
asDouble__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor NumberDataPoint
asInt__field_descriptor)]
unknownFields :: LensLike' f NumberDataPoint FieldSet
unknownFields
= (NumberDataPoint -> FieldSet)
-> (NumberDataPoint -> FieldSet -> NumberDataPoint)
-> Lens' NumberDataPoint FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NumberDataPoint -> FieldSet
_NumberDataPoint'_unknownFields
(\ NumberDataPoint
x__ FieldSet
y__ -> NumberDataPoint
x__ {_NumberDataPoint'_unknownFields :: FieldSet
_NumberDataPoint'_unknownFields = FieldSet
y__})
defMessage :: NumberDataPoint
defMessage
= NumberDataPoint'_constructor :: Vector KeyValue
-> Vector StringKeyValue
-> Word64
-> Word64
-> Vector Exemplar
-> Word32
-> Maybe NumberDataPoint'Value
-> FieldSet
-> NumberDataPoint
NumberDataPoint'_constructor
{_NumberDataPoint'attributes :: Vector KeyValue
_NumberDataPoint'attributes = Vector KeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_NumberDataPoint'labels :: Vector StringKeyValue
_NumberDataPoint'labels = Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_NumberDataPoint'startTimeUnixNano :: Word64
_NumberDataPoint'startTimeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NumberDataPoint'timeUnixNano :: Word64
_NumberDataPoint'timeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NumberDataPoint'exemplars :: Vector Exemplar
_NumberDataPoint'exemplars = Vector Exemplar
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_NumberDataPoint'flags :: Word32
_NumberDataPoint'flags = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NumberDataPoint'value :: Maybe NumberDataPoint'Value
_NumberDataPoint'value = Maybe NumberDataPoint'Value
forall a. Maybe a
Prelude.Nothing,
_NumberDataPoint'_unknownFields :: FieldSet
_NumberDataPoint'_unknownFields = []}
parseMessage :: Parser NumberDataPoint
parseMessage
= let
loop ::
NumberDataPoint
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Exemplar
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue
-> Data.ProtoLens.Encoding.Bytes.Parser NumberDataPoint
loop :: NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop NumberDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector KeyValue
frozen'attributes <- IO (Vector KeyValue) -> Parser (Vector KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) KeyValue -> IO (Vector KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld KeyValue
Growing Vector (PrimState IO) KeyValue
mutable'attributes)
Vector Exemplar
frozen'exemplars <- IO (Vector Exemplar) -> Parser (Vector Exemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Exemplar -> IO (Vector Exemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Exemplar
Growing Vector (PrimState IO) Exemplar
mutable'exemplars)
Vector StringKeyValue
frozen'labels <- IO (Vector StringKeyValue) -> Parser (Vector StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> IO (Vector StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'labels)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
NumberDataPoint -> Parser NumberDataPoint
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter NumberDataPoint NumberDataPoint FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NumberDataPoint -> NumberDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter NumberDataPoint NumberDataPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
NumberDataPoint NumberDataPoint (Vector KeyValue) (Vector KeyValue)
-> Vector KeyValue -> NumberDataPoint -> NumberDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'attributes") Vector KeyValue
frozen'attributes
(Setter
NumberDataPoint NumberDataPoint (Vector Exemplar) (Vector Exemplar)
-> Vector Exemplar -> NumberDataPoint -> NumberDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'exemplars") Vector Exemplar
frozen'exemplars
(Setter
NumberDataPoint
NumberDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
-> Vector StringKeyValue -> NumberDataPoint -> NumberDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'labels") Vector StringKeyValue
frozen'labels NumberDataPoint
x))))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
58
-> do !KeyValue
y <- Parser KeyValue -> String -> Parser KeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser KeyValue -> Parser KeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser KeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"attributes"
Growing Vector RealWorld KeyValue
v <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) KeyValue
-> KeyValue -> IO (Growing Vector (PrimState IO) KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld KeyValue
Growing Vector (PrimState IO) KeyValue
mutable'attributes KeyValue
y)
NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop NumberDataPoint
x Growing Vector RealWorld KeyValue
v Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
10
-> do !StringKeyValue
y <- Parser StringKeyValue -> String -> Parser StringKeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StringKeyValue -> Parser StringKeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser StringKeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"labels"
Growing Vector RealWorld StringKeyValue
v <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> StringKeyValue
-> IO (Growing Vector (PrimState IO) StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'labels StringKeyValue
y)
NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop NumberDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
v
Word64
17
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64
String
"start_time_unix_nano"
NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop
(Setter NumberDataPoint NumberDataPoint Word64 Word64
-> Word64 -> NumberDataPoint -> NumberDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") Word64
y NumberDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
25
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"time_unix_nano"
NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop
(Setter NumberDataPoint NumberDataPoint Word64 Word64
-> Word64 -> NumberDataPoint -> NumberDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") Word64
y NumberDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
42
-> do !Exemplar
y <- Parser Exemplar -> String -> Parser Exemplar
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Exemplar -> Parser Exemplar
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser Exemplar
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"exemplars"
Growing Vector RealWorld Exemplar
v <- IO (Growing Vector RealWorld Exemplar)
-> Parser (Growing Vector RealWorld Exemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Exemplar
-> Exemplar -> IO (Growing Vector (PrimState IO) Exemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Exemplar
Growing Vector (PrimState IO) Exemplar
mutable'exemplars Exemplar
y)
NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop NumberDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
v Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
64
-> do Word32
y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"flags"
NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop
(Setter NumberDataPoint NumberDataPoint Word32 Word32
-> Word32 -> NumberDataPoint -> NumberDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags") Word32
y NumberDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
33
-> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"as_double"
NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop
(Setter NumberDataPoint NumberDataPoint Double Double
-> Double -> NumberDataPoint -> NumberDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "asDouble" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"asDouble") Double
y NumberDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
49
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"as_int"
NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop
(Setter NumberDataPoint NumberDataPoint Int64 Int64
-> Int64 -> NumberDataPoint -> NumberDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "asInt" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"asInt") Int64
y NumberDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop
(Setter NumberDataPoint NumberDataPoint FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NumberDataPoint -> NumberDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter NumberDataPoint NumberDataPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) NumberDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars Growing Vector RealWorld StringKeyValue
mutable'labels
in
Parser NumberDataPoint -> String -> Parser NumberDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld KeyValue
mutable'attributes <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Exemplar
mutable'exemplars <- IO (Growing Vector RealWorld Exemplar)
-> Parser (Growing Vector RealWorld Exemplar)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Exemplar)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld StringKeyValue
mutable'labels <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
NumberDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld Exemplar
-> Growing Vector RealWorld StringKeyValue
-> Parser NumberDataPoint
loop
NumberDataPoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld Exemplar
mutable'exemplars
Growing Vector RealWorld StringKeyValue
mutable'labels)
String
"NumberDataPoint"
buildMessage :: NumberDataPoint -> Builder
buildMessage
= \ NumberDataPoint
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((KeyValue -> Builder) -> Vector KeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ KeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder)
-> (KeyValue -> ByteString) -> KeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
KeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage KeyValue
_v))
(FoldLike
(Vector KeyValue)
NumberDataPoint
NumberDataPoint
(Vector KeyValue)
(Vector KeyValue)
-> NumberDataPoint -> Vector KeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'attributes") NumberDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((StringKeyValue -> Builder) -> Vector StringKeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ StringKeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (StringKeyValue -> ByteString) -> StringKeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
StringKeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StringKeyValue
_v))
(FoldLike
(Vector StringKeyValue)
NumberDataPoint
NumberDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
-> NumberDataPoint -> Vector StringKeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'labels") NumberDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike Word64 NumberDataPoint NumberDataPoint Word64 Word64
-> NumberDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") NumberDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike Word64 NumberDataPoint NumberDataPoint Word64 Word64
-> NumberDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") NumberDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
25)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Exemplar -> Builder) -> Vector Exemplar -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Exemplar
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder)
-> (Exemplar -> ByteString) -> Exemplar -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Exemplar -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Exemplar
_v))
(FoldLike
(Vector Exemplar)
NumberDataPoint
NumberDataPoint
(Vector Exemplar)
(Vector Exemplar)
-> NumberDataPoint -> Vector Exemplar
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'exemplars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'exemplars") NumberDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word32
_v = FoldLike Word32 NumberDataPoint NumberDataPoint Word32 Word32
-> NumberDataPoint -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags") NumberDataPoint
_x
in
if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
64)
((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Word32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe NumberDataPoint'Value)
NumberDataPoint
NumberDataPoint
(Maybe NumberDataPoint'Value)
(Maybe NumberDataPoint'Value)
-> NumberDataPoint -> Maybe NumberDataPoint'Value
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value") NumberDataPoint
_x
of
Maybe NumberDataPoint'Value
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (NumberDataPoint'AsDouble Double
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
33)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
v)
(Prelude.Just (NumberDataPoint'AsInt Int64
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
49)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet NumberDataPoint NumberDataPoint FieldSet FieldSet
-> NumberDataPoint -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NumberDataPoint NumberDataPoint FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields NumberDataPoint
_x))))))))
instance Control.DeepSeq.NFData NumberDataPoint where
rnf :: NumberDataPoint -> ()
rnf
= \ NumberDataPoint
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NumberDataPoint -> FieldSet
_NumberDataPoint'_unknownFields NumberDataPoint
x__)
(Vector KeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NumberDataPoint -> Vector KeyValue
_NumberDataPoint'attributes NumberDataPoint
x__)
(Vector StringKeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NumberDataPoint -> Vector StringKeyValue
_NumberDataPoint'labels NumberDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NumberDataPoint -> Word64
_NumberDataPoint'startTimeUnixNano NumberDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NumberDataPoint -> Word64
_NumberDataPoint'timeUnixNano NumberDataPoint
x__)
(Vector Exemplar -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NumberDataPoint -> Vector Exemplar
_NumberDataPoint'exemplars NumberDataPoint
x__)
(Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NumberDataPoint -> Word32
_NumberDataPoint'flags NumberDataPoint
x__)
(Maybe NumberDataPoint'Value -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NumberDataPoint -> Maybe NumberDataPoint'Value
_NumberDataPoint'value NumberDataPoint
x__) ())))))))
instance Control.DeepSeq.NFData NumberDataPoint'Value where
rnf :: NumberDataPoint'Value -> ()
rnf (NumberDataPoint'AsDouble Double
x__) = Double -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Double
x__
rnf (NumberDataPoint'AsInt Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
_NumberDataPoint'AsDouble ::
Data.ProtoLens.Prism.Prism' NumberDataPoint'Value Prelude.Double
_NumberDataPoint'AsDouble :: p Double (f Double)
-> p NumberDataPoint'Value (f NumberDataPoint'Value)
_NumberDataPoint'AsDouble
= (Double -> NumberDataPoint'Value)
-> (NumberDataPoint'Value -> Maybe Double)
-> Prism NumberDataPoint'Value NumberDataPoint'Value Double Double
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Double -> NumberDataPoint'Value
NumberDataPoint'AsDouble
(\ NumberDataPoint'Value
p__
-> case NumberDataPoint'Value
p__ of
(NumberDataPoint'AsDouble Double
p__val) -> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
p__val
NumberDataPoint'Value
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
_NumberDataPoint'AsInt ::
Data.ProtoLens.Prism.Prism' NumberDataPoint'Value Data.Int.Int64
_NumberDataPoint'AsInt :: p Int64 (f Int64)
-> p NumberDataPoint'Value (f NumberDataPoint'Value)
_NumberDataPoint'AsInt
= (Int64 -> NumberDataPoint'Value)
-> (NumberDataPoint'Value -> Maybe Int64)
-> Prism NumberDataPoint'Value NumberDataPoint'Value Int64 Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Int64 -> NumberDataPoint'Value
NumberDataPoint'AsInt
(\ NumberDataPoint'Value
p__
-> case NumberDataPoint'Value
p__ of
(NumberDataPoint'AsInt Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
NumberDataPoint'Value
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
data ResourceMetrics
= ResourceMetrics'_constructor {ResourceMetrics -> Maybe Resource
_ResourceMetrics'resource :: !(Prelude.Maybe Proto.Opentelemetry.Proto.Resource.V1.Resource.Resource),
ResourceMetrics -> Vector InstrumentationLibraryMetrics
_ResourceMetrics'instrumentationLibraryMetrics :: !(Data.Vector.Vector InstrumentationLibraryMetrics),
ResourceMetrics -> Text
_ResourceMetrics'schemaUrl :: !Data.Text.Text,
ResourceMetrics -> FieldSet
_ResourceMetrics'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ResourceMetrics -> ResourceMetrics -> Bool
(ResourceMetrics -> ResourceMetrics -> Bool)
-> (ResourceMetrics -> ResourceMetrics -> Bool)
-> Eq ResourceMetrics
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ResourceMetrics -> ResourceMetrics -> Bool
$c/= :: ResourceMetrics -> ResourceMetrics -> Bool
== :: ResourceMetrics -> ResourceMetrics -> Bool
$c== :: ResourceMetrics -> ResourceMetrics -> Bool
Prelude.Eq, Eq ResourceMetrics
Eq ResourceMetrics
-> (ResourceMetrics -> ResourceMetrics -> Ordering)
-> (ResourceMetrics -> ResourceMetrics -> Bool)
-> (ResourceMetrics -> ResourceMetrics -> Bool)
-> (ResourceMetrics -> ResourceMetrics -> Bool)
-> (ResourceMetrics -> ResourceMetrics -> Bool)
-> (ResourceMetrics -> ResourceMetrics -> ResourceMetrics)
-> (ResourceMetrics -> ResourceMetrics -> ResourceMetrics)
-> Ord ResourceMetrics
ResourceMetrics -> ResourceMetrics -> Bool
ResourceMetrics -> ResourceMetrics -> Ordering
ResourceMetrics -> ResourceMetrics -> ResourceMetrics
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: ResourceMetrics -> ResourceMetrics -> ResourceMetrics
$cmin :: ResourceMetrics -> ResourceMetrics -> ResourceMetrics
max :: ResourceMetrics -> ResourceMetrics -> ResourceMetrics
$cmax :: ResourceMetrics -> ResourceMetrics -> ResourceMetrics
>= :: ResourceMetrics -> ResourceMetrics -> Bool
$c>= :: ResourceMetrics -> ResourceMetrics -> Bool
> :: ResourceMetrics -> ResourceMetrics -> Bool
$c> :: ResourceMetrics -> ResourceMetrics -> Bool
<= :: ResourceMetrics -> ResourceMetrics -> Bool
$c<= :: ResourceMetrics -> ResourceMetrics -> Bool
< :: ResourceMetrics -> ResourceMetrics -> Bool
$c< :: ResourceMetrics -> ResourceMetrics -> Bool
compare :: ResourceMetrics -> ResourceMetrics -> Ordering
$ccompare :: ResourceMetrics -> ResourceMetrics -> Ordering
$cp1Ord :: Eq ResourceMetrics
Prelude.Ord)
instance Prelude.Show ResourceMetrics where
showsPrec :: Int -> ResourceMetrics -> ShowS
showsPrec Int
_ ResourceMetrics
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ResourceMetrics -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ResourceMetrics
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ResourceMetrics "resource" Proto.Opentelemetry.Proto.Resource.V1.Resource.Resource where
fieldOf :: Proxy# "resource"
-> (Resource -> f Resource) -> ResourceMetrics -> f ResourceMetrics
fieldOf Proxy# "resource"
_
= ((Maybe Resource -> f (Maybe Resource))
-> ResourceMetrics -> f ResourceMetrics)
-> ((Resource -> f Resource)
-> Maybe Resource -> f (Maybe Resource))
-> (Resource -> f Resource)
-> ResourceMetrics
-> f ResourceMetrics
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResourceMetrics -> Maybe Resource)
-> (ResourceMetrics -> Maybe Resource -> ResourceMetrics)
-> Lens
ResourceMetrics ResourceMetrics (Maybe Resource) (Maybe Resource)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResourceMetrics -> Maybe Resource
_ResourceMetrics'resource
(\ ResourceMetrics
x__ Maybe Resource
y__ -> ResourceMetrics
x__ {_ResourceMetrics'resource :: Maybe Resource
_ResourceMetrics'resource = Maybe Resource
y__}))
(Resource -> Lens' (Maybe Resource) Resource
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Resource
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ResourceMetrics "maybe'resource" (Prelude.Maybe Proto.Opentelemetry.Proto.Resource.V1.Resource.Resource) where
fieldOf :: Proxy# "maybe'resource"
-> (Maybe Resource -> f (Maybe Resource))
-> ResourceMetrics
-> f ResourceMetrics
fieldOf Proxy# "maybe'resource"
_
= ((Maybe Resource -> f (Maybe Resource))
-> ResourceMetrics -> f ResourceMetrics)
-> ((Maybe Resource -> f (Maybe Resource))
-> Maybe Resource -> f (Maybe Resource))
-> (Maybe Resource -> f (Maybe Resource))
-> ResourceMetrics
-> f ResourceMetrics
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResourceMetrics -> Maybe Resource)
-> (ResourceMetrics -> Maybe Resource -> ResourceMetrics)
-> Lens
ResourceMetrics ResourceMetrics (Maybe Resource) (Maybe Resource)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResourceMetrics -> Maybe Resource
_ResourceMetrics'resource
(\ ResourceMetrics
x__ Maybe Resource
y__ -> ResourceMetrics
x__ {_ResourceMetrics'resource :: Maybe Resource
_ResourceMetrics'resource = Maybe Resource
y__}))
(Maybe Resource -> f (Maybe Resource))
-> Maybe Resource -> f (Maybe Resource)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResourceMetrics "instrumentationLibraryMetrics" [InstrumentationLibraryMetrics] where
fieldOf :: Proxy# "instrumentationLibraryMetrics"
-> ([InstrumentationLibraryMetrics]
-> f [InstrumentationLibraryMetrics])
-> ResourceMetrics
-> f ResourceMetrics
fieldOf Proxy# "instrumentationLibraryMetrics"
_
= ((Vector InstrumentationLibraryMetrics
-> f (Vector InstrumentationLibraryMetrics))
-> ResourceMetrics -> f ResourceMetrics)
-> (([InstrumentationLibraryMetrics]
-> f [InstrumentationLibraryMetrics])
-> Vector InstrumentationLibraryMetrics
-> f (Vector InstrumentationLibraryMetrics))
-> ([InstrumentationLibraryMetrics]
-> f [InstrumentationLibraryMetrics])
-> ResourceMetrics
-> f ResourceMetrics
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResourceMetrics -> Vector InstrumentationLibraryMetrics)
-> (ResourceMetrics
-> Vector InstrumentationLibraryMetrics -> ResourceMetrics)
-> Lens
ResourceMetrics
ResourceMetrics
(Vector InstrumentationLibraryMetrics)
(Vector InstrumentationLibraryMetrics)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResourceMetrics -> Vector InstrumentationLibraryMetrics
_ResourceMetrics'instrumentationLibraryMetrics
(\ ResourceMetrics
x__ Vector InstrumentationLibraryMetrics
y__
-> ResourceMetrics
x__ {_ResourceMetrics'instrumentationLibraryMetrics :: Vector InstrumentationLibraryMetrics
_ResourceMetrics'instrumentationLibraryMetrics = Vector InstrumentationLibraryMetrics
y__}))
((Vector InstrumentationLibraryMetrics
-> [InstrumentationLibraryMetrics])
-> (Vector InstrumentationLibraryMetrics
-> [InstrumentationLibraryMetrics]
-> Vector InstrumentationLibraryMetrics)
-> Lens
(Vector InstrumentationLibraryMetrics)
(Vector InstrumentationLibraryMetrics)
[InstrumentationLibraryMetrics]
[InstrumentationLibraryMetrics]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector InstrumentationLibraryMetrics
-> [InstrumentationLibraryMetrics]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector InstrumentationLibraryMetrics
_ [InstrumentationLibraryMetrics]
y__ -> [InstrumentationLibraryMetrics]
-> Vector InstrumentationLibraryMetrics
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [InstrumentationLibraryMetrics]
y__))
instance Data.ProtoLens.Field.HasField ResourceMetrics "vec'instrumentationLibraryMetrics" (Data.Vector.Vector InstrumentationLibraryMetrics) where
fieldOf :: Proxy# "vec'instrumentationLibraryMetrics"
-> (Vector InstrumentationLibraryMetrics
-> f (Vector InstrumentationLibraryMetrics))
-> ResourceMetrics
-> f ResourceMetrics
fieldOf Proxy# "vec'instrumentationLibraryMetrics"
_
= ((Vector InstrumentationLibraryMetrics
-> f (Vector InstrumentationLibraryMetrics))
-> ResourceMetrics -> f ResourceMetrics)
-> ((Vector InstrumentationLibraryMetrics
-> f (Vector InstrumentationLibraryMetrics))
-> Vector InstrumentationLibraryMetrics
-> f (Vector InstrumentationLibraryMetrics))
-> (Vector InstrumentationLibraryMetrics
-> f (Vector InstrumentationLibraryMetrics))
-> ResourceMetrics
-> f ResourceMetrics
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResourceMetrics -> Vector InstrumentationLibraryMetrics)
-> (ResourceMetrics
-> Vector InstrumentationLibraryMetrics -> ResourceMetrics)
-> Lens
ResourceMetrics
ResourceMetrics
(Vector InstrumentationLibraryMetrics)
(Vector InstrumentationLibraryMetrics)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResourceMetrics -> Vector InstrumentationLibraryMetrics
_ResourceMetrics'instrumentationLibraryMetrics
(\ ResourceMetrics
x__ Vector InstrumentationLibraryMetrics
y__
-> ResourceMetrics
x__ {_ResourceMetrics'instrumentationLibraryMetrics :: Vector InstrumentationLibraryMetrics
_ResourceMetrics'instrumentationLibraryMetrics = Vector InstrumentationLibraryMetrics
y__}))
(Vector InstrumentationLibraryMetrics
-> f (Vector InstrumentationLibraryMetrics))
-> Vector InstrumentationLibraryMetrics
-> f (Vector InstrumentationLibraryMetrics)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResourceMetrics "schemaUrl" Data.Text.Text where
fieldOf :: Proxy# "schemaUrl"
-> (Text -> f Text) -> ResourceMetrics -> f ResourceMetrics
fieldOf Proxy# "schemaUrl"
_
= ((Text -> f Text) -> ResourceMetrics -> f ResourceMetrics)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ResourceMetrics
-> f ResourceMetrics
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResourceMetrics -> Text)
-> (ResourceMetrics -> Text -> ResourceMetrics)
-> Lens ResourceMetrics ResourceMetrics Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResourceMetrics -> Text
_ResourceMetrics'schemaUrl
(\ ResourceMetrics
x__ Text
y__ -> ResourceMetrics
x__ {_ResourceMetrics'schemaUrl :: Text
_ResourceMetrics'schemaUrl = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ResourceMetrics where
messageName :: Proxy ResourceMetrics -> Text
messageName Proxy ResourceMetrics
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.ResourceMetrics"
packedMessageDescriptor :: Proxy ResourceMetrics -> ByteString
packedMessageDescriptor Proxy ResourceMetrics
_
= ByteString
"\n\
\\SIResourceMetrics\DC2E\n\
\\bresource\CAN\SOH \SOH(\v2).opentelemetry.proto.resource.v1.ResourceR\bresource\DC2\133\SOH\n\
\\USinstrumentation_library_metrics\CAN\STX \ETX(\v2=.opentelemetry.proto.metrics.v1.InstrumentationLibraryMetricsR\GSinstrumentationLibraryMetrics\DC2\GS\n\
\\n\
\schema_url\CAN\ETX \SOH(\tR\tschemaUrl"
packedFileDescriptor :: Proxy ResourceMetrics -> ByteString
packedFileDescriptor Proxy ResourceMetrics
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ResourceMetrics)
fieldsByTag
= let
resource__field_descriptor :: FieldDescriptor ResourceMetrics
resource__field_descriptor
= String
-> FieldTypeDescriptor Resource
-> FieldAccessor ResourceMetrics Resource
-> FieldDescriptor ResourceMetrics
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"resource"
(MessageOrGroup -> FieldTypeDescriptor Resource
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Resource.V1.Resource.Resource)
(Lens
ResourceMetrics ResourceMetrics (Maybe Resource) (Maybe Resource)
-> FieldAccessor ResourceMetrics Resource
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'resource" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'resource")) ::
Data.ProtoLens.FieldDescriptor ResourceMetrics
instrumentationLibraryMetrics__field_descriptor :: FieldDescriptor ResourceMetrics
instrumentationLibraryMetrics__field_descriptor
= String
-> FieldTypeDescriptor InstrumentationLibraryMetrics
-> FieldAccessor ResourceMetrics InstrumentationLibraryMetrics
-> FieldDescriptor ResourceMetrics
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"instrumentation_library_metrics"
(MessageOrGroup -> FieldTypeDescriptor InstrumentationLibraryMetrics
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor InstrumentationLibraryMetrics)
(Packing
-> Lens' ResourceMetrics [InstrumentationLibraryMetrics]
-> FieldAccessor ResourceMetrics InstrumentationLibraryMetrics
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "instrumentationLibraryMetrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"instrumentationLibraryMetrics")) ::
Data.ProtoLens.FieldDescriptor ResourceMetrics
schemaUrl__field_descriptor :: FieldDescriptor ResourceMetrics
schemaUrl__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ResourceMetrics Text
-> FieldDescriptor ResourceMetrics
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schema_url"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens ResourceMetrics ResourceMetrics Text Text
-> FieldAccessor ResourceMetrics Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "schemaUrl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"schemaUrl")) ::
Data.ProtoLens.FieldDescriptor ResourceMetrics
in
[(Tag, FieldDescriptor ResourceMetrics)]
-> Map Tag (FieldDescriptor ResourceMetrics)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ResourceMetrics
resource__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2,
FieldDescriptor ResourceMetrics
instrumentationLibraryMetrics__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ResourceMetrics
schemaUrl__field_descriptor)]
unknownFields :: LensLike' f ResourceMetrics FieldSet
unknownFields
= (ResourceMetrics -> FieldSet)
-> (ResourceMetrics -> FieldSet -> ResourceMetrics)
-> Lens' ResourceMetrics FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResourceMetrics -> FieldSet
_ResourceMetrics'_unknownFields
(\ ResourceMetrics
x__ FieldSet
y__ -> ResourceMetrics
x__ {_ResourceMetrics'_unknownFields :: FieldSet
_ResourceMetrics'_unknownFields = FieldSet
y__})
defMessage :: ResourceMetrics
defMessage
= ResourceMetrics'_constructor :: Maybe Resource
-> Vector InstrumentationLibraryMetrics
-> Text
-> FieldSet
-> ResourceMetrics
ResourceMetrics'_constructor
{_ResourceMetrics'resource :: Maybe Resource
_ResourceMetrics'resource = Maybe Resource
forall a. Maybe a
Prelude.Nothing,
_ResourceMetrics'instrumentationLibraryMetrics :: Vector InstrumentationLibraryMetrics
_ResourceMetrics'instrumentationLibraryMetrics = Vector InstrumentationLibraryMetrics
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ResourceMetrics'schemaUrl :: Text
_ResourceMetrics'schemaUrl = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ResourceMetrics'_unknownFields :: FieldSet
_ResourceMetrics'_unknownFields = []}
parseMessage :: Parser ResourceMetrics
parseMessage
= let
loop ::
ResourceMetrics
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld InstrumentationLibraryMetrics
-> Data.ProtoLens.Encoding.Bytes.Parser ResourceMetrics
loop :: ResourceMetrics
-> Growing Vector RealWorld InstrumentationLibraryMetrics
-> Parser ResourceMetrics
loop ResourceMetrics
x Growing Vector RealWorld InstrumentationLibraryMetrics
mutable'instrumentationLibraryMetrics
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector InstrumentationLibraryMetrics
frozen'instrumentationLibraryMetrics <- IO (Vector InstrumentationLibraryMetrics)
-> Parser (Vector InstrumentationLibraryMetrics)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) InstrumentationLibraryMetrics
-> IO (Vector InstrumentationLibraryMetrics)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld InstrumentationLibraryMetrics
Growing Vector (PrimState IO) InstrumentationLibraryMetrics
mutable'instrumentationLibraryMetrics)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ResourceMetrics -> Parser ResourceMetrics
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter ResourceMetrics ResourceMetrics FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ResourceMetrics -> ResourceMetrics
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter ResourceMetrics ResourceMetrics FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
ResourceMetrics
ResourceMetrics
(Vector InstrumentationLibraryMetrics)
(Vector InstrumentationLibraryMetrics)
-> Vector InstrumentationLibraryMetrics
-> ResourceMetrics
-> ResourceMetrics
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'instrumentationLibraryMetrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'instrumentationLibraryMetrics")
Vector InstrumentationLibraryMetrics
frozen'instrumentationLibraryMetrics ResourceMetrics
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do Resource
y <- Parser Resource -> String -> Parser Resource
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Resource -> Parser Resource
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Resource
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"resource"
ResourceMetrics
-> Growing Vector RealWorld InstrumentationLibraryMetrics
-> Parser ResourceMetrics
loop
(Setter ResourceMetrics ResourceMetrics Resource Resource
-> Resource -> ResourceMetrics -> ResourceMetrics
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "resource" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"resource") Resource
y ResourceMetrics
x)
Growing Vector RealWorld InstrumentationLibraryMetrics
mutable'instrumentationLibraryMetrics
Word64
18
-> do !InstrumentationLibraryMetrics
y <- Parser InstrumentationLibraryMetrics
-> String -> Parser InstrumentationLibraryMetrics
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser InstrumentationLibraryMetrics
-> Parser InstrumentationLibraryMetrics
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser InstrumentationLibraryMetrics
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"instrumentation_library_metrics"
Growing Vector RealWorld InstrumentationLibraryMetrics
v <- IO (Growing Vector RealWorld InstrumentationLibraryMetrics)
-> Parser (Growing Vector RealWorld InstrumentationLibraryMetrics)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) InstrumentationLibraryMetrics
-> InstrumentationLibraryMetrics
-> IO (Growing Vector (PrimState IO) InstrumentationLibraryMetrics)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld InstrumentationLibraryMetrics
Growing Vector (PrimState IO) InstrumentationLibraryMetrics
mutable'instrumentationLibraryMetrics InstrumentationLibraryMetrics
y)
ResourceMetrics
-> Growing Vector RealWorld InstrumentationLibraryMetrics
-> Parser ResourceMetrics
loop ResourceMetrics
x Growing Vector RealWorld InstrumentationLibraryMetrics
v
Word64
26
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
String
"schema_url"
ResourceMetrics
-> Growing Vector RealWorld InstrumentationLibraryMetrics
-> Parser ResourceMetrics
loop
(Setter ResourceMetrics ResourceMetrics Text Text
-> Text -> ResourceMetrics -> ResourceMetrics
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "schemaUrl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"schemaUrl") Text
y ResourceMetrics
x)
Growing Vector RealWorld InstrumentationLibraryMetrics
mutable'instrumentationLibraryMetrics
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ResourceMetrics
-> Growing Vector RealWorld InstrumentationLibraryMetrics
-> Parser ResourceMetrics
loop
(Setter ResourceMetrics ResourceMetrics FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ResourceMetrics -> ResourceMetrics
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter ResourceMetrics ResourceMetrics FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ResourceMetrics
x)
Growing Vector RealWorld InstrumentationLibraryMetrics
mutable'instrumentationLibraryMetrics
in
Parser ResourceMetrics -> String -> Parser ResourceMetrics
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld InstrumentationLibraryMetrics
mutable'instrumentationLibraryMetrics <- IO (Growing Vector RealWorld InstrumentationLibraryMetrics)
-> Parser (Growing Vector RealWorld InstrumentationLibraryMetrics)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld InstrumentationLibraryMetrics)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
ResourceMetrics
-> Growing Vector RealWorld InstrumentationLibraryMetrics
-> Parser ResourceMetrics
loop
ResourceMetrics
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld InstrumentationLibraryMetrics
mutable'instrumentationLibraryMetrics)
String
"ResourceMetrics"
buildMessage :: ResourceMetrics -> Builder
buildMessage
= \ ResourceMetrics
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Resource)
ResourceMetrics
ResourceMetrics
(Maybe Resource)
(Maybe Resource)
-> ResourceMetrics -> Maybe Resource
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'resource" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'resource") ResourceMetrics
_x
of
Maybe Resource
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Resource
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Resource -> ByteString) -> Resource -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Resource -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Resource
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((InstrumentationLibraryMetrics -> Builder)
-> Vector InstrumentationLibraryMetrics -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ InstrumentationLibraryMetrics
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (InstrumentationLibraryMetrics -> ByteString)
-> InstrumentationLibraryMetrics
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
InstrumentationLibraryMetrics -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage InstrumentationLibraryMetrics
_v))
(FoldLike
(Vector InstrumentationLibraryMetrics)
ResourceMetrics
ResourceMetrics
(Vector InstrumentationLibraryMetrics)
(Vector InstrumentationLibraryMetrics)
-> ResourceMetrics -> Vector InstrumentationLibraryMetrics
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'instrumentationLibraryMetrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'instrumentationLibraryMetrics")
ResourceMetrics
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text ResourceMetrics ResourceMetrics Text Text
-> ResourceMetrics -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "schemaUrl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"schemaUrl") ResourceMetrics
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet ResourceMetrics ResourceMetrics FieldSet FieldSet
-> ResourceMetrics -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ResourceMetrics ResourceMetrics FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ResourceMetrics
_x))))
instance Control.DeepSeq.NFData ResourceMetrics where
rnf :: ResourceMetrics -> ()
rnf
= \ ResourceMetrics
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ResourceMetrics -> FieldSet
_ResourceMetrics'_unknownFields ResourceMetrics
x__)
(Maybe Resource -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ResourceMetrics -> Maybe Resource
_ResourceMetrics'resource ResourceMetrics
x__)
(Vector InstrumentationLibraryMetrics -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ResourceMetrics -> Vector InstrumentationLibraryMetrics
_ResourceMetrics'instrumentationLibraryMetrics ResourceMetrics
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ResourceMetrics -> Text
_ResourceMetrics'schemaUrl ResourceMetrics
x__) ())))
data Sum
= Sum'_constructor {Sum -> Vector NumberDataPoint
_Sum'dataPoints :: !(Data.Vector.Vector NumberDataPoint),
Sum -> AggregationTemporality
_Sum'aggregationTemporality :: !AggregationTemporality,
Sum -> Bool
_Sum'isMonotonic :: !Prelude.Bool,
Sum -> FieldSet
_Sum'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Sum -> Sum -> Bool
(Sum -> Sum -> Bool) -> (Sum -> Sum -> Bool) -> Eq Sum
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Sum -> Sum -> Bool
$c/= :: Sum -> Sum -> Bool
== :: Sum -> Sum -> Bool
$c== :: Sum -> Sum -> Bool
Prelude.Eq, Eq Sum
Eq Sum
-> (Sum -> Sum -> Ordering)
-> (Sum -> Sum -> Bool)
-> (Sum -> Sum -> Bool)
-> (Sum -> Sum -> Bool)
-> (Sum -> Sum -> Bool)
-> (Sum -> Sum -> Sum)
-> (Sum -> Sum -> Sum)
-> Ord Sum
Sum -> Sum -> Bool
Sum -> Sum -> Ordering
Sum -> Sum -> Sum
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Sum -> Sum -> Sum
$cmin :: Sum -> Sum -> Sum
max :: Sum -> Sum -> Sum
$cmax :: Sum -> Sum -> Sum
>= :: Sum -> Sum -> Bool
$c>= :: Sum -> Sum -> Bool
> :: Sum -> Sum -> Bool
$c> :: Sum -> Sum -> Bool
<= :: Sum -> Sum -> Bool
$c<= :: Sum -> Sum -> Bool
< :: Sum -> Sum -> Bool
$c< :: Sum -> Sum -> Bool
compare :: Sum -> Sum -> Ordering
$ccompare :: Sum -> Sum -> Ordering
$cp1Ord :: Eq Sum
Prelude.Ord)
instance Prelude.Show Sum where
showsPrec :: Int -> Sum -> ShowS
showsPrec Int
_ Sum
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Sum -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Sum
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Sum "dataPoints" [NumberDataPoint] where
fieldOf :: Proxy# "dataPoints"
-> ([NumberDataPoint] -> f [NumberDataPoint]) -> Sum -> f Sum
fieldOf Proxy# "dataPoints"
_
= ((Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Sum -> f Sum)
-> (([NumberDataPoint] -> f [NumberDataPoint])
-> Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> ([NumberDataPoint] -> f [NumberDataPoint])
-> Sum
-> f Sum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Sum -> Vector NumberDataPoint)
-> (Sum -> Vector NumberDataPoint -> Sum)
-> Lens Sum Sum (Vector NumberDataPoint) (Vector NumberDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Sum -> Vector NumberDataPoint
_Sum'dataPoints (\ Sum
x__ Vector NumberDataPoint
y__ -> Sum
x__ {_Sum'dataPoints :: Vector NumberDataPoint
_Sum'dataPoints = Vector NumberDataPoint
y__}))
((Vector NumberDataPoint -> [NumberDataPoint])
-> (Vector NumberDataPoint
-> [NumberDataPoint] -> Vector NumberDataPoint)
-> Lens
(Vector NumberDataPoint)
(Vector NumberDataPoint)
[NumberDataPoint]
[NumberDataPoint]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector NumberDataPoint -> [NumberDataPoint]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector NumberDataPoint
_ [NumberDataPoint]
y__ -> [NumberDataPoint] -> Vector NumberDataPoint
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [NumberDataPoint]
y__))
instance Data.ProtoLens.Field.HasField Sum "vec'dataPoints" (Data.Vector.Vector NumberDataPoint) where
fieldOf :: Proxy# "vec'dataPoints"
-> (Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Sum
-> f Sum
fieldOf Proxy# "vec'dataPoints"
_
= ((Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Sum -> f Sum)
-> ((Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> (Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Sum
-> f Sum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Sum -> Vector NumberDataPoint)
-> (Sum -> Vector NumberDataPoint -> Sum)
-> Lens Sum Sum (Vector NumberDataPoint) (Vector NumberDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Sum -> Vector NumberDataPoint
_Sum'dataPoints (\ Sum
x__ Vector NumberDataPoint
y__ -> Sum
x__ {_Sum'dataPoints :: Vector NumberDataPoint
_Sum'dataPoints = Vector NumberDataPoint
y__}))
(Vector NumberDataPoint -> f (Vector NumberDataPoint))
-> Vector NumberDataPoint -> f (Vector NumberDataPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Sum "aggregationTemporality" AggregationTemporality where
fieldOf :: Proxy# "aggregationTemporality"
-> (AggregationTemporality -> f AggregationTemporality)
-> Sum
-> f Sum
fieldOf Proxy# "aggregationTemporality"
_
= ((AggregationTemporality -> f AggregationTemporality)
-> Sum -> f Sum)
-> ((AggregationTemporality -> f AggregationTemporality)
-> AggregationTemporality -> f AggregationTemporality)
-> (AggregationTemporality -> f AggregationTemporality)
-> Sum
-> f Sum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Sum -> AggregationTemporality)
-> (Sum -> AggregationTemporality -> Sum)
-> Lens Sum Sum AggregationTemporality AggregationTemporality
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Sum -> AggregationTemporality
_Sum'aggregationTemporality
(\ Sum
x__ AggregationTemporality
y__ -> Sum
x__ {_Sum'aggregationTemporality :: AggregationTemporality
_Sum'aggregationTemporality = AggregationTemporality
y__}))
(AggregationTemporality -> f AggregationTemporality)
-> AggregationTemporality -> f AggregationTemporality
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Sum "isMonotonic" Prelude.Bool where
fieldOf :: Proxy# "isMonotonic" -> (Bool -> f Bool) -> Sum -> f Sum
fieldOf Proxy# "isMonotonic"
_
= ((Bool -> f Bool) -> Sum -> f Sum)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> Sum
-> f Sum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Sum -> Bool) -> (Sum -> Bool -> Sum) -> Lens Sum Sum Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Sum -> Bool
_Sum'isMonotonic (\ Sum
x__ Bool
y__ -> Sum
x__ {_Sum'isMonotonic :: Bool
_Sum'isMonotonic = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Sum where
messageName :: Proxy Sum -> Text
messageName Proxy Sum
_ = String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.Sum"
packedMessageDescriptor :: Proxy Sum -> ByteString
packedMessageDescriptor Proxy Sum
_
= ByteString
"\n\
\\ETXSum\DC2P\n\
\\vdata_points\CAN\SOH \ETX(\v2/.opentelemetry.proto.metrics.v1.NumberDataPointR\n\
\dataPoints\DC2o\n\
\\ETBaggregation_temporality\CAN\STX \SOH(\SO26.opentelemetry.proto.metrics.v1.AggregationTemporalityR\SYNaggregationTemporality\DC2!\n\
\\fis_monotonic\CAN\ETX \SOH(\bR\visMonotonic"
packedFileDescriptor :: Proxy Sum -> ByteString
packedFileDescriptor Proxy Sum
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Sum)
fieldsByTag
= let
dataPoints__field_descriptor :: FieldDescriptor Sum
dataPoints__field_descriptor
= String
-> FieldTypeDescriptor NumberDataPoint
-> FieldAccessor Sum NumberDataPoint
-> FieldDescriptor Sum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"data_points"
(MessageOrGroup -> FieldTypeDescriptor NumberDataPoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor NumberDataPoint)
(Packing
-> Lens' Sum [NumberDataPoint] -> FieldAccessor Sum NumberDataPoint
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataPoints")) ::
Data.ProtoLens.FieldDescriptor Sum
aggregationTemporality__field_descriptor :: FieldDescriptor Sum
aggregationTemporality__field_descriptor
= String
-> FieldTypeDescriptor AggregationTemporality
-> FieldAccessor Sum AggregationTemporality
-> FieldDescriptor Sum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"aggregation_temporality"
(ScalarField AggregationTemporality
-> FieldTypeDescriptor AggregationTemporality
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField AggregationTemporality
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor AggregationTemporality)
(WireDefault AggregationTemporality
-> Lens Sum Sum AggregationTemporality AggregationTemporality
-> FieldAccessor Sum AggregationTemporality
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault AggregationTemporality
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality")) ::
Data.ProtoLens.FieldDescriptor Sum
isMonotonic__field_descriptor :: FieldDescriptor Sum
isMonotonic__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor Sum Bool
-> FieldDescriptor Sum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"is_monotonic"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens Sum Sum Bool Bool -> FieldAccessor Sum Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "isMonotonic" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isMonotonic")) ::
Data.ProtoLens.FieldDescriptor Sum
in
[(Tag, FieldDescriptor Sum)] -> Map Tag (FieldDescriptor Sum)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Sum
dataPoints__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Sum
aggregationTemporality__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Sum
isMonotonic__field_descriptor)]
unknownFields :: LensLike' f Sum FieldSet
unknownFields
= (Sum -> FieldSet) -> (Sum -> FieldSet -> Sum) -> Lens' Sum FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Sum -> FieldSet
_Sum'_unknownFields (\ Sum
x__ FieldSet
y__ -> Sum
x__ {_Sum'_unknownFields :: FieldSet
_Sum'_unknownFields = FieldSet
y__})
defMessage :: Sum
defMessage
= Sum'_constructor :: Vector NumberDataPoint
-> AggregationTemporality -> Bool -> FieldSet -> Sum
Sum'_constructor
{_Sum'dataPoints :: Vector NumberDataPoint
_Sum'dataPoints = Vector NumberDataPoint
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_Sum'aggregationTemporality :: AggregationTemporality
_Sum'aggregationTemporality = AggregationTemporality
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Sum'isMonotonic :: Bool
_Sum'isMonotonic = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Sum'_unknownFields :: FieldSet
_Sum'_unknownFields = []}
parseMessage :: Parser Sum
parseMessage
= let
loop ::
Sum
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NumberDataPoint
-> Data.ProtoLens.Encoding.Bytes.Parser Sum
loop :: Sum -> Growing Vector RealWorld NumberDataPoint -> Parser Sum
loop Sum
x Growing Vector RealWorld NumberDataPoint
mutable'dataPoints
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector NumberDataPoint
frozen'dataPoints <- IO (Vector NumberDataPoint) -> Parser (Vector NumberDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) NumberDataPoint
-> IO (Vector NumberDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld NumberDataPoint
Growing Vector (PrimState IO) NumberDataPoint
mutable'dataPoints)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
Sum -> Parser Sum
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Sum Sum FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Sum -> Sum
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Sum Sum FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter Sum Sum (Vector NumberDataPoint) (Vector NumberDataPoint)
-> Vector NumberDataPoint -> Sum -> Sum
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Vector NumberDataPoint
frozen'dataPoints
Sum
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !NumberDataPoint
y <- Parser NumberDataPoint -> String -> Parser NumberDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser NumberDataPoint -> Parser NumberDataPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser NumberDataPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"data_points"
Growing Vector RealWorld NumberDataPoint
v <- IO (Growing Vector RealWorld NumberDataPoint)
-> Parser (Growing Vector RealWorld NumberDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) NumberDataPoint
-> NumberDataPoint
-> IO (Growing Vector (PrimState IO) NumberDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld NumberDataPoint
Growing Vector (PrimState IO) NumberDataPoint
mutable'dataPoints NumberDataPoint
y)
Sum -> Growing Vector RealWorld NumberDataPoint -> Parser Sum
loop Sum
x Growing Vector RealWorld NumberDataPoint
v
Word64
16
-> do AggregationTemporality
y <- Parser AggregationTemporality
-> String -> Parser AggregationTemporality
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> AggregationTemporality)
-> Parser Int -> Parser AggregationTemporality
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> AggregationTemporality
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"aggregation_temporality"
Sum -> Growing Vector RealWorld NumberDataPoint -> Parser Sum
loop
(Setter Sum Sum AggregationTemporality AggregationTemporality
-> AggregationTemporality -> Sum -> Sum
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality") AggregationTemporality
y Sum
x)
Growing Vector RealWorld NumberDataPoint
mutable'dataPoints
Word64
24
-> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"is_monotonic"
Sum -> Growing Vector RealWorld NumberDataPoint -> Parser Sum
loop
(Setter Sum Sum Bool Bool -> Bool -> Sum -> Sum
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "isMonotonic" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isMonotonic") Bool
y Sum
x)
Growing Vector RealWorld NumberDataPoint
mutable'dataPoints
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Sum -> Growing Vector RealWorld NumberDataPoint -> Parser Sum
loop
(Setter Sum Sum FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Sum -> Sum
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Sum Sum FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Sum
x)
Growing Vector RealWorld NumberDataPoint
mutable'dataPoints
in
Parser Sum -> String -> Parser Sum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld NumberDataPoint
mutable'dataPoints <- IO (Growing Vector RealWorld NumberDataPoint)
-> Parser (Growing Vector RealWorld NumberDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld NumberDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Sum -> Growing Vector RealWorld NumberDataPoint -> Parser Sum
loop Sum
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld NumberDataPoint
mutable'dataPoints)
String
"Sum"
buildMessage :: Sum -> Builder
buildMessage
= \ Sum
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((NumberDataPoint -> Builder) -> Vector NumberDataPoint -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ NumberDataPoint
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (NumberDataPoint -> ByteString) -> NumberDataPoint -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
NumberDataPoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage NumberDataPoint
_v))
(FoldLike
(Vector NumberDataPoint)
Sum
Sum
(Vector NumberDataPoint)
(Vector NumberDataPoint)
-> Sum -> Vector NumberDataPoint
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Sum
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: AggregationTemporality
_v
= FoldLike
AggregationTemporality
Sum
Sum
AggregationTemporality
AggregationTemporality
-> Sum -> AggregationTemporality
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "aggregationTemporality" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregationTemporality") Sum
_x
in
if AggregationTemporality -> AggregationTemporality -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) AggregationTemporality
_v AggregationTemporality
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Int -> Builder)
-> (AggregationTemporality -> Int)
-> AggregationTemporality
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
AggregationTemporality -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum AggregationTemporality
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool Sum Sum Bool Bool -> Sum -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "isMonotonic" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isMonotonic") Sum
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
Bool
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Sum Sum FieldSet FieldSet -> Sum -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Sum Sum FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Sum
_x))))
instance Control.DeepSeq.NFData Sum where
rnf :: Sum -> ()
rnf
= \ Sum
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Sum -> FieldSet
_Sum'_unknownFields Sum
x__)
(Vector NumberDataPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Sum -> Vector NumberDataPoint
_Sum'dataPoints Sum
x__)
(AggregationTemporality -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Sum -> AggregationTemporality
_Sum'aggregationTemporality Sum
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Sum -> Bool
_Sum'isMonotonic Sum
x__) ())))
data Summary
= Summary'_constructor {Summary -> Vector SummaryDataPoint
_Summary'dataPoints :: !(Data.Vector.Vector SummaryDataPoint),
Summary -> FieldSet
_Summary'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Summary -> Summary -> Bool
(Summary -> Summary -> Bool)
-> (Summary -> Summary -> Bool) -> Eq Summary
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Summary -> Summary -> Bool
$c/= :: Summary -> Summary -> Bool
== :: Summary -> Summary -> Bool
$c== :: Summary -> Summary -> Bool
Prelude.Eq, Eq Summary
Eq Summary
-> (Summary -> Summary -> Ordering)
-> (Summary -> Summary -> Bool)
-> (Summary -> Summary -> Bool)
-> (Summary -> Summary -> Bool)
-> (Summary -> Summary -> Bool)
-> (Summary -> Summary -> Summary)
-> (Summary -> Summary -> Summary)
-> Ord Summary
Summary -> Summary -> Bool
Summary -> Summary -> Ordering
Summary -> Summary -> Summary
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Summary -> Summary -> Summary
$cmin :: Summary -> Summary -> Summary
max :: Summary -> Summary -> Summary
$cmax :: Summary -> Summary -> Summary
>= :: Summary -> Summary -> Bool
$c>= :: Summary -> Summary -> Bool
> :: Summary -> Summary -> Bool
$c> :: Summary -> Summary -> Bool
<= :: Summary -> Summary -> Bool
$c<= :: Summary -> Summary -> Bool
< :: Summary -> Summary -> Bool
$c< :: Summary -> Summary -> Bool
compare :: Summary -> Summary -> Ordering
$ccompare :: Summary -> Summary -> Ordering
$cp1Ord :: Eq Summary
Prelude.Ord)
instance Prelude.Show Summary where
showsPrec :: Int -> Summary -> ShowS
showsPrec Int
_ Summary
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Summary -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Summary
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Summary "dataPoints" [SummaryDataPoint] where
fieldOf :: Proxy# "dataPoints"
-> ([SummaryDataPoint] -> f [SummaryDataPoint])
-> Summary
-> f Summary
fieldOf Proxy# "dataPoints"
_
= ((Vector SummaryDataPoint -> f (Vector SummaryDataPoint))
-> Summary -> f Summary)
-> (([SummaryDataPoint] -> f [SummaryDataPoint])
-> Vector SummaryDataPoint -> f (Vector SummaryDataPoint))
-> ([SummaryDataPoint] -> f [SummaryDataPoint])
-> Summary
-> f Summary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary -> Vector SummaryDataPoint)
-> (Summary -> Vector SummaryDataPoint -> Summary)
-> Lens
Summary Summary (Vector SummaryDataPoint) (Vector SummaryDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary -> Vector SummaryDataPoint
_Summary'dataPoints (\ Summary
x__ Vector SummaryDataPoint
y__ -> Summary
x__ {_Summary'dataPoints :: Vector SummaryDataPoint
_Summary'dataPoints = Vector SummaryDataPoint
y__}))
((Vector SummaryDataPoint -> [SummaryDataPoint])
-> (Vector SummaryDataPoint
-> [SummaryDataPoint] -> Vector SummaryDataPoint)
-> Lens
(Vector SummaryDataPoint)
(Vector SummaryDataPoint)
[SummaryDataPoint]
[SummaryDataPoint]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector SummaryDataPoint -> [SummaryDataPoint]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector SummaryDataPoint
_ [SummaryDataPoint]
y__ -> [SummaryDataPoint] -> Vector SummaryDataPoint
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [SummaryDataPoint]
y__))
instance Data.ProtoLens.Field.HasField Summary "vec'dataPoints" (Data.Vector.Vector SummaryDataPoint) where
fieldOf :: Proxy# "vec'dataPoints"
-> (Vector SummaryDataPoint -> f (Vector SummaryDataPoint))
-> Summary
-> f Summary
fieldOf Proxy# "vec'dataPoints"
_
= ((Vector SummaryDataPoint -> f (Vector SummaryDataPoint))
-> Summary -> f Summary)
-> ((Vector SummaryDataPoint -> f (Vector SummaryDataPoint))
-> Vector SummaryDataPoint -> f (Vector SummaryDataPoint))
-> (Vector SummaryDataPoint -> f (Vector SummaryDataPoint))
-> Summary
-> f Summary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Summary -> Vector SummaryDataPoint)
-> (Summary -> Vector SummaryDataPoint -> Summary)
-> Lens
Summary Summary (Vector SummaryDataPoint) (Vector SummaryDataPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary -> Vector SummaryDataPoint
_Summary'dataPoints (\ Summary
x__ Vector SummaryDataPoint
y__ -> Summary
x__ {_Summary'dataPoints :: Vector SummaryDataPoint
_Summary'dataPoints = Vector SummaryDataPoint
y__}))
(Vector SummaryDataPoint -> f (Vector SummaryDataPoint))
-> Vector SummaryDataPoint -> f (Vector SummaryDataPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Summary where
messageName :: Proxy Summary -> Text
messageName Proxy Summary
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.Summary"
packedMessageDescriptor :: Proxy Summary -> ByteString
packedMessageDescriptor Proxy Summary
_
= ByteString
"\n\
\\aSummary\DC2Q\n\
\\vdata_points\CAN\SOH \ETX(\v20.opentelemetry.proto.metrics.v1.SummaryDataPointR\n\
\dataPoints"
packedFileDescriptor :: Proxy Summary -> ByteString
packedFileDescriptor Proxy Summary
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Summary)
fieldsByTag
= let
dataPoints__field_descriptor :: FieldDescriptor Summary
dataPoints__field_descriptor
= String
-> FieldTypeDescriptor SummaryDataPoint
-> FieldAccessor Summary SummaryDataPoint
-> FieldDescriptor Summary
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"data_points"
(MessageOrGroup -> FieldTypeDescriptor SummaryDataPoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SummaryDataPoint)
(Packing
-> Lens' Summary [SummaryDataPoint]
-> FieldAccessor Summary SummaryDataPoint
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dataPoints")) ::
Data.ProtoLens.FieldDescriptor Summary
in
[(Tag, FieldDescriptor Summary)]
-> Map Tag (FieldDescriptor Summary)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Summary
dataPoints__field_descriptor)]
unknownFields :: LensLike' f Summary FieldSet
unknownFields
= (Summary -> FieldSet)
-> (Summary -> FieldSet -> Summary) -> Lens' Summary FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Summary -> FieldSet
_Summary'_unknownFields
(\ Summary
x__ FieldSet
y__ -> Summary
x__ {_Summary'_unknownFields :: FieldSet
_Summary'_unknownFields = FieldSet
y__})
defMessage :: Summary
defMessage
= Summary'_constructor :: Vector SummaryDataPoint -> FieldSet -> Summary
Summary'_constructor
{_Summary'dataPoints :: Vector SummaryDataPoint
_Summary'dataPoints = Vector SummaryDataPoint
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_Summary'_unknownFields :: FieldSet
_Summary'_unknownFields = []}
parseMessage :: Parser Summary
parseMessage
= let
loop ::
Summary
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld SummaryDataPoint
-> Data.ProtoLens.Encoding.Bytes.Parser Summary
loop :: Summary
-> Growing Vector RealWorld SummaryDataPoint -> Parser Summary
loop Summary
x Growing Vector RealWorld SummaryDataPoint
mutable'dataPoints
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector SummaryDataPoint
frozen'dataPoints <- IO (Vector SummaryDataPoint) -> Parser (Vector SummaryDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) SummaryDataPoint
-> IO (Vector SummaryDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld SummaryDataPoint
Growing Vector (PrimState IO) SummaryDataPoint
mutable'dataPoints)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
Summary -> Parser Summary
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter Summary Summary FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Summary -> Summary
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Summary Summary FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
Summary Summary (Vector SummaryDataPoint) (Vector SummaryDataPoint)
-> Vector SummaryDataPoint -> Summary -> Summary
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Vector SummaryDataPoint
frozen'dataPoints
Summary
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !SummaryDataPoint
y <- Parser SummaryDataPoint -> String -> Parser SummaryDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SummaryDataPoint -> Parser SummaryDataPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser SummaryDataPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"data_points"
Growing Vector RealWorld SummaryDataPoint
v <- IO (Growing Vector RealWorld SummaryDataPoint)
-> Parser (Growing Vector RealWorld SummaryDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) SummaryDataPoint
-> SummaryDataPoint
-> IO (Growing Vector (PrimState IO) SummaryDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld SummaryDataPoint
Growing Vector (PrimState IO) SummaryDataPoint
mutable'dataPoints SummaryDataPoint
y)
Summary
-> Growing Vector RealWorld SummaryDataPoint -> Parser Summary
loop Summary
x Growing Vector RealWorld SummaryDataPoint
v
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
Summary
-> Growing Vector RealWorld SummaryDataPoint -> Parser Summary
loop
(Setter Summary Summary FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Summary -> Summary
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter Summary Summary FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Summary
x)
Growing Vector RealWorld SummaryDataPoint
mutable'dataPoints
in
Parser Summary -> String -> Parser Summary
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld SummaryDataPoint
mutable'dataPoints <- IO (Growing Vector RealWorld SummaryDataPoint)
-> Parser (Growing Vector RealWorld SummaryDataPoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld SummaryDataPoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Summary
-> Growing Vector RealWorld SummaryDataPoint -> Parser Summary
loop Summary
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld SummaryDataPoint
mutable'dataPoints)
String
"Summary"
buildMessage :: Summary -> Builder
buildMessage
= \ Summary
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((SummaryDataPoint -> Builder) -> Vector SummaryDataPoint -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ SummaryDataPoint
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (SummaryDataPoint -> ByteString) -> SummaryDataPoint -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
SummaryDataPoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage SummaryDataPoint
_v))
(FoldLike
(Vector SummaryDataPoint)
Summary
Summary
(Vector SummaryDataPoint)
(Vector SummaryDataPoint)
-> Summary -> Vector SummaryDataPoint
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'dataPoints" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dataPoints") Summary
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Summary Summary FieldSet FieldSet
-> Summary -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Summary Summary FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Summary
_x))
instance Control.DeepSeq.NFData Summary where
rnf :: Summary -> ()
rnf
= \ Summary
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Summary -> FieldSet
_Summary'_unknownFields Summary
x__)
(Vector SummaryDataPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Summary -> Vector SummaryDataPoint
_Summary'dataPoints Summary
x__) ())
data SummaryDataPoint
= SummaryDataPoint'_constructor {SummaryDataPoint -> Vector KeyValue
_SummaryDataPoint'attributes :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue),
SummaryDataPoint -> Vector StringKeyValue
_SummaryDataPoint'labels :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue),
SummaryDataPoint -> Word64
_SummaryDataPoint'startTimeUnixNano :: !Data.Word.Word64,
SummaryDataPoint -> Word64
_SummaryDataPoint'timeUnixNano :: !Data.Word.Word64,
SummaryDataPoint -> Word64
_SummaryDataPoint'count :: !Data.Word.Word64,
SummaryDataPoint -> Double
_SummaryDataPoint'sum :: !Prelude.Double,
SummaryDataPoint -> Vector SummaryDataPoint'ValueAtQuantile
_SummaryDataPoint'quantileValues :: !(Data.Vector.Vector SummaryDataPoint'ValueAtQuantile),
SummaryDataPoint -> Word32
_SummaryDataPoint'flags :: !Data.Word.Word32,
SummaryDataPoint -> FieldSet
_SummaryDataPoint'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SummaryDataPoint -> SummaryDataPoint -> Bool
(SummaryDataPoint -> SummaryDataPoint -> Bool)
-> (SummaryDataPoint -> SummaryDataPoint -> Bool)
-> Eq SummaryDataPoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SummaryDataPoint -> SummaryDataPoint -> Bool
$c/= :: SummaryDataPoint -> SummaryDataPoint -> Bool
== :: SummaryDataPoint -> SummaryDataPoint -> Bool
$c== :: SummaryDataPoint -> SummaryDataPoint -> Bool
Prelude.Eq, Eq SummaryDataPoint
Eq SummaryDataPoint
-> (SummaryDataPoint -> SummaryDataPoint -> Ordering)
-> (SummaryDataPoint -> SummaryDataPoint -> Bool)
-> (SummaryDataPoint -> SummaryDataPoint -> Bool)
-> (SummaryDataPoint -> SummaryDataPoint -> Bool)
-> (SummaryDataPoint -> SummaryDataPoint -> Bool)
-> (SummaryDataPoint -> SummaryDataPoint -> SummaryDataPoint)
-> (SummaryDataPoint -> SummaryDataPoint -> SummaryDataPoint)
-> Ord SummaryDataPoint
SummaryDataPoint -> SummaryDataPoint -> Bool
SummaryDataPoint -> SummaryDataPoint -> Ordering
SummaryDataPoint -> SummaryDataPoint -> SummaryDataPoint
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: SummaryDataPoint -> SummaryDataPoint -> SummaryDataPoint
$cmin :: SummaryDataPoint -> SummaryDataPoint -> SummaryDataPoint
max :: SummaryDataPoint -> SummaryDataPoint -> SummaryDataPoint
$cmax :: SummaryDataPoint -> SummaryDataPoint -> SummaryDataPoint
>= :: SummaryDataPoint -> SummaryDataPoint -> Bool
$c>= :: SummaryDataPoint -> SummaryDataPoint -> Bool
> :: SummaryDataPoint -> SummaryDataPoint -> Bool
$c> :: SummaryDataPoint -> SummaryDataPoint -> Bool
<= :: SummaryDataPoint -> SummaryDataPoint -> Bool
$c<= :: SummaryDataPoint -> SummaryDataPoint -> Bool
< :: SummaryDataPoint -> SummaryDataPoint -> Bool
$c< :: SummaryDataPoint -> SummaryDataPoint -> Bool
compare :: SummaryDataPoint -> SummaryDataPoint -> Ordering
$ccompare :: SummaryDataPoint -> SummaryDataPoint -> Ordering
$cp1Ord :: Eq SummaryDataPoint
Prelude.Ord)
instance Prelude.Show SummaryDataPoint where
showsPrec :: Int -> SummaryDataPoint -> ShowS
showsPrec Int
_ SummaryDataPoint
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(SummaryDataPoint -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SummaryDataPoint
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SummaryDataPoint "attributes" [Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue] where
fieldOf :: Proxy# "attributes"
-> ([KeyValue] -> f [KeyValue])
-> SummaryDataPoint
-> f SummaryDataPoint
fieldOf Proxy# "attributes"
_
= ((Vector KeyValue -> f (Vector KeyValue))
-> SummaryDataPoint -> f SummaryDataPoint)
-> (([KeyValue] -> f [KeyValue])
-> Vector KeyValue -> f (Vector KeyValue))
-> ([KeyValue] -> f [KeyValue])
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Vector KeyValue)
-> (SummaryDataPoint -> Vector KeyValue -> SummaryDataPoint)
-> Lens
SummaryDataPoint
SummaryDataPoint
(Vector KeyValue)
(Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Vector KeyValue
_SummaryDataPoint'attributes
(\ SummaryDataPoint
x__ Vector KeyValue
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'attributes :: Vector KeyValue
_SummaryDataPoint'attributes = Vector KeyValue
y__}))
((Vector KeyValue -> [KeyValue])
-> (Vector KeyValue -> [KeyValue] -> Vector KeyValue)
-> Lens (Vector KeyValue) (Vector KeyValue) [KeyValue] [KeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector KeyValue -> [KeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector KeyValue
_ [KeyValue]
y__ -> [KeyValue] -> Vector KeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [KeyValue]
y__))
instance Data.ProtoLens.Field.HasField SummaryDataPoint "vec'attributes" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue) where
fieldOf :: Proxy# "vec'attributes"
-> (Vector KeyValue -> f (Vector KeyValue))
-> SummaryDataPoint
-> f SummaryDataPoint
fieldOf Proxy# "vec'attributes"
_
= ((Vector KeyValue -> f (Vector KeyValue))
-> SummaryDataPoint -> f SummaryDataPoint)
-> ((Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue))
-> (Vector KeyValue -> f (Vector KeyValue))
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Vector KeyValue)
-> (SummaryDataPoint -> Vector KeyValue -> SummaryDataPoint)
-> Lens
SummaryDataPoint
SummaryDataPoint
(Vector KeyValue)
(Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Vector KeyValue
_SummaryDataPoint'attributes
(\ SummaryDataPoint
x__ Vector KeyValue
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'attributes :: Vector KeyValue
_SummaryDataPoint'attributes = Vector KeyValue
y__}))
(Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryDataPoint "labels" [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue] where
fieldOf :: Proxy# "labels"
-> ([StringKeyValue] -> f [StringKeyValue])
-> SummaryDataPoint
-> f SummaryDataPoint
fieldOf Proxy# "labels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> SummaryDataPoint -> f SummaryDataPoint)
-> (([StringKeyValue] -> f [StringKeyValue])
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> ([StringKeyValue] -> f [StringKeyValue])
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Vector StringKeyValue)
-> (SummaryDataPoint -> Vector StringKeyValue -> SummaryDataPoint)
-> Lens
SummaryDataPoint
SummaryDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Vector StringKeyValue
_SummaryDataPoint'labels
(\ SummaryDataPoint
x__ Vector StringKeyValue
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'labels :: Vector StringKeyValue
_SummaryDataPoint'labels = Vector StringKeyValue
y__}))
((Vector StringKeyValue -> [StringKeyValue])
-> (Vector StringKeyValue
-> [StringKeyValue] -> Vector StringKeyValue)
-> Lens
(Vector StringKeyValue)
(Vector StringKeyValue)
[StringKeyValue]
[StringKeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector StringKeyValue -> [StringKeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector StringKeyValue
_ [StringKeyValue]
y__ -> [StringKeyValue] -> Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [StringKeyValue]
y__))
instance Data.ProtoLens.Field.HasField SummaryDataPoint "vec'labels" (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue) where
fieldOf :: Proxy# "vec'labels"
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> SummaryDataPoint
-> f SummaryDataPoint
fieldOf Proxy# "vec'labels"
_
= ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> SummaryDataPoint -> f SummaryDataPoint)
-> ((Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue))
-> (Vector StringKeyValue -> f (Vector StringKeyValue))
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Vector StringKeyValue)
-> (SummaryDataPoint -> Vector StringKeyValue -> SummaryDataPoint)
-> Lens
SummaryDataPoint
SummaryDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Vector StringKeyValue
_SummaryDataPoint'labels
(\ SummaryDataPoint
x__ Vector StringKeyValue
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'labels :: Vector StringKeyValue
_SummaryDataPoint'labels = Vector StringKeyValue
y__}))
(Vector StringKeyValue -> f (Vector StringKeyValue))
-> Vector StringKeyValue -> f (Vector StringKeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryDataPoint "startTimeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "startTimeUnixNano"
-> (Word64 -> f Word64) -> SummaryDataPoint -> f SummaryDataPoint
fieldOf Proxy# "startTimeUnixNano"
_
= ((Word64 -> f Word64) -> SummaryDataPoint -> f SummaryDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Word64)
-> (SummaryDataPoint -> Word64 -> SummaryDataPoint)
-> Lens SummaryDataPoint SummaryDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Word64
_SummaryDataPoint'startTimeUnixNano
(\ SummaryDataPoint
x__ Word64
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'startTimeUnixNano :: Word64
_SummaryDataPoint'startTimeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryDataPoint "timeUnixNano" Data.Word.Word64 where
fieldOf :: Proxy# "timeUnixNano"
-> (Word64 -> f Word64) -> SummaryDataPoint -> f SummaryDataPoint
fieldOf Proxy# "timeUnixNano"
_
= ((Word64 -> f Word64) -> SummaryDataPoint -> f SummaryDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Word64)
-> (SummaryDataPoint -> Word64 -> SummaryDataPoint)
-> Lens SummaryDataPoint SummaryDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Word64
_SummaryDataPoint'timeUnixNano
(\ SummaryDataPoint
x__ Word64
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'timeUnixNano :: Word64
_SummaryDataPoint'timeUnixNano = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryDataPoint "count" Data.Word.Word64 where
fieldOf :: Proxy# "count"
-> (Word64 -> f Word64) -> SummaryDataPoint -> f SummaryDataPoint
fieldOf Proxy# "count"
_
= ((Word64 -> f Word64) -> SummaryDataPoint -> f SummaryDataPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Word64)
-> (SummaryDataPoint -> Word64 -> SummaryDataPoint)
-> Lens SummaryDataPoint SummaryDataPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Word64
_SummaryDataPoint'count
(\ SummaryDataPoint
x__ Word64
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'count :: Word64
_SummaryDataPoint'count = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryDataPoint "sum" Prelude.Double where
fieldOf :: Proxy# "sum"
-> (Double -> f Double) -> SummaryDataPoint -> f SummaryDataPoint
fieldOf Proxy# "sum"
_
= ((Double -> f Double) -> SummaryDataPoint -> f SummaryDataPoint)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Double)
-> (SummaryDataPoint -> Double -> SummaryDataPoint)
-> Lens SummaryDataPoint SummaryDataPoint Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Double
_SummaryDataPoint'sum
(\ SummaryDataPoint
x__ Double
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'sum :: Double
_SummaryDataPoint'sum = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryDataPoint "quantileValues" [SummaryDataPoint'ValueAtQuantile] where
fieldOf :: Proxy# "quantileValues"
-> ([SummaryDataPoint'ValueAtQuantile]
-> f [SummaryDataPoint'ValueAtQuantile])
-> SummaryDataPoint
-> f SummaryDataPoint
fieldOf Proxy# "quantileValues"
_
= ((Vector SummaryDataPoint'ValueAtQuantile
-> f (Vector SummaryDataPoint'ValueAtQuantile))
-> SummaryDataPoint -> f SummaryDataPoint)
-> (([SummaryDataPoint'ValueAtQuantile]
-> f [SummaryDataPoint'ValueAtQuantile])
-> Vector SummaryDataPoint'ValueAtQuantile
-> f (Vector SummaryDataPoint'ValueAtQuantile))
-> ([SummaryDataPoint'ValueAtQuantile]
-> f [SummaryDataPoint'ValueAtQuantile])
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Vector SummaryDataPoint'ValueAtQuantile)
-> (SummaryDataPoint
-> Vector SummaryDataPoint'ValueAtQuantile -> SummaryDataPoint)
-> Lens
SummaryDataPoint
SummaryDataPoint
(Vector SummaryDataPoint'ValueAtQuantile)
(Vector SummaryDataPoint'ValueAtQuantile)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Vector SummaryDataPoint'ValueAtQuantile
_SummaryDataPoint'quantileValues
(\ SummaryDataPoint
x__ Vector SummaryDataPoint'ValueAtQuantile
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'quantileValues :: Vector SummaryDataPoint'ValueAtQuantile
_SummaryDataPoint'quantileValues = Vector SummaryDataPoint'ValueAtQuantile
y__}))
((Vector SummaryDataPoint'ValueAtQuantile
-> [SummaryDataPoint'ValueAtQuantile])
-> (Vector SummaryDataPoint'ValueAtQuantile
-> [SummaryDataPoint'ValueAtQuantile]
-> Vector SummaryDataPoint'ValueAtQuantile)
-> Lens
(Vector SummaryDataPoint'ValueAtQuantile)
(Vector SummaryDataPoint'ValueAtQuantile)
[SummaryDataPoint'ValueAtQuantile]
[SummaryDataPoint'ValueAtQuantile]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector SummaryDataPoint'ValueAtQuantile
-> [SummaryDataPoint'ValueAtQuantile]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector SummaryDataPoint'ValueAtQuantile
_ [SummaryDataPoint'ValueAtQuantile]
y__ -> [SummaryDataPoint'ValueAtQuantile]
-> Vector SummaryDataPoint'ValueAtQuantile
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [SummaryDataPoint'ValueAtQuantile]
y__))
instance Data.ProtoLens.Field.HasField SummaryDataPoint "vec'quantileValues" (Data.Vector.Vector SummaryDataPoint'ValueAtQuantile) where
fieldOf :: Proxy# "vec'quantileValues"
-> (Vector SummaryDataPoint'ValueAtQuantile
-> f (Vector SummaryDataPoint'ValueAtQuantile))
-> SummaryDataPoint
-> f SummaryDataPoint
fieldOf Proxy# "vec'quantileValues"
_
= ((Vector SummaryDataPoint'ValueAtQuantile
-> f (Vector SummaryDataPoint'ValueAtQuantile))
-> SummaryDataPoint -> f SummaryDataPoint)
-> ((Vector SummaryDataPoint'ValueAtQuantile
-> f (Vector SummaryDataPoint'ValueAtQuantile))
-> Vector SummaryDataPoint'ValueAtQuantile
-> f (Vector SummaryDataPoint'ValueAtQuantile))
-> (Vector SummaryDataPoint'ValueAtQuantile
-> f (Vector SummaryDataPoint'ValueAtQuantile))
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Vector SummaryDataPoint'ValueAtQuantile)
-> (SummaryDataPoint
-> Vector SummaryDataPoint'ValueAtQuantile -> SummaryDataPoint)
-> Lens
SummaryDataPoint
SummaryDataPoint
(Vector SummaryDataPoint'ValueAtQuantile)
(Vector SummaryDataPoint'ValueAtQuantile)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Vector SummaryDataPoint'ValueAtQuantile
_SummaryDataPoint'quantileValues
(\ SummaryDataPoint
x__ Vector SummaryDataPoint'ValueAtQuantile
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'quantileValues :: Vector SummaryDataPoint'ValueAtQuantile
_SummaryDataPoint'quantileValues = Vector SummaryDataPoint'ValueAtQuantile
y__}))
(Vector SummaryDataPoint'ValueAtQuantile
-> f (Vector SummaryDataPoint'ValueAtQuantile))
-> Vector SummaryDataPoint'ValueAtQuantile
-> f (Vector SummaryDataPoint'ValueAtQuantile)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryDataPoint "flags" Data.Word.Word32 where
fieldOf :: Proxy# "flags"
-> (Word32 -> f Word32) -> SummaryDataPoint -> f SummaryDataPoint
fieldOf Proxy# "flags"
_
= ((Word32 -> f Word32) -> SummaryDataPoint -> f SummaryDataPoint)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> SummaryDataPoint
-> f SummaryDataPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint -> Word32)
-> (SummaryDataPoint -> Word32 -> SummaryDataPoint)
-> Lens SummaryDataPoint SummaryDataPoint Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> Word32
_SummaryDataPoint'flags
(\ SummaryDataPoint
x__ Word32
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'flags :: Word32
_SummaryDataPoint'flags = Word32
y__}))
(Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SummaryDataPoint where
messageName :: Proxy SummaryDataPoint -> Text
messageName Proxy SummaryDataPoint
_
= String -> Text
Data.Text.pack String
"opentelemetry.proto.metrics.v1.SummaryDataPoint"
packedMessageDescriptor :: Proxy SummaryDataPoint -> ByteString
packedMessageDescriptor Proxy SummaryDataPoint
_
= ByteString
"\n\
\\DLESummaryDataPoint\DC2G\n\
\\n\
\attributes\CAN\a \ETX(\v2'.opentelemetry.proto.common.v1.KeyValueR\n\
\attributes\DC2I\n\
\\ACKlabels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\ACKlabelsB\STX\CAN\SOH\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQcount\CAN\EOT \SOH(\ACKR\ENQcount\DC2\DLE\n\
\\ETXsum\CAN\ENQ \SOH(\SOHR\ETXsum\DC2i\n\
\\SIquantile_values\CAN\ACK \ETX(\v2@.opentelemetry.proto.metrics.v1.SummaryDataPoint.ValueAtQuantileR\SOquantileValues\DC2\DC4\n\
\\ENQflags\CAN\b \SOH(\rR\ENQflags\SUBC\n\
\\SIValueAtQuantile\DC2\SUB\n\
\\bquantile\CAN\SOH \SOH(\SOHR\bquantile\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue"
packedFileDescriptor :: Proxy SummaryDataPoint -> ByteString
packedFileDescriptor Proxy SummaryDataPoint
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SummaryDataPoint)
fieldsByTag
= let
attributes__field_descriptor :: FieldDescriptor SummaryDataPoint
attributes__field_descriptor
= String
-> FieldTypeDescriptor KeyValue
-> FieldAccessor SummaryDataPoint KeyValue
-> FieldDescriptor SummaryDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"attributes"
(MessageOrGroup -> FieldTypeDescriptor KeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue)
(Packing
-> Lens' SummaryDataPoint [KeyValue]
-> FieldAccessor SummaryDataPoint KeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attributes")) ::
Data.ProtoLens.FieldDescriptor SummaryDataPoint
labels__field_descriptor :: FieldDescriptor SummaryDataPoint
labels__field_descriptor
= String
-> FieldTypeDescriptor StringKeyValue
-> FieldAccessor SummaryDataPoint StringKeyValue
-> FieldDescriptor SummaryDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"labels"
(MessageOrGroup -> FieldTypeDescriptor StringKeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)
(Packing
-> Lens' SummaryDataPoint [StringKeyValue]
-> FieldAccessor SummaryDataPoint StringKeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"labels")) ::
Data.ProtoLens.FieldDescriptor SummaryDataPoint
startTimeUnixNano__field_descriptor :: FieldDescriptor SummaryDataPoint
startTimeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor SummaryDataPoint Word64
-> FieldDescriptor SummaryDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens SummaryDataPoint SummaryDataPoint Word64 Word64
-> FieldAccessor SummaryDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano")) ::
Data.ProtoLens.FieldDescriptor SummaryDataPoint
timeUnixNano__field_descriptor :: FieldDescriptor SummaryDataPoint
timeUnixNano__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor SummaryDataPoint Word64
-> FieldDescriptor SummaryDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"time_unix_nano"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens SummaryDataPoint SummaryDataPoint Word64 Word64
-> FieldAccessor SummaryDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano")) ::
Data.ProtoLens.FieldDescriptor SummaryDataPoint
count__field_descriptor :: FieldDescriptor SummaryDataPoint
count__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor SummaryDataPoint Word64
-> FieldDescriptor SummaryDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"count"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens SummaryDataPoint SummaryDataPoint Word64 Word64
-> FieldAccessor SummaryDataPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count")) ::
Data.ProtoLens.FieldDescriptor SummaryDataPoint
sum__field_descriptor :: FieldDescriptor SummaryDataPoint
sum__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor SummaryDataPoint Double
-> FieldDescriptor SummaryDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"sum"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(WireDefault Double
-> Lens SummaryDataPoint SummaryDataPoint Double Double
-> FieldAccessor SummaryDataPoint Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum")) ::
Data.ProtoLens.FieldDescriptor SummaryDataPoint
quantileValues__field_descriptor :: FieldDescriptor SummaryDataPoint
quantileValues__field_descriptor
= String
-> FieldTypeDescriptor SummaryDataPoint'ValueAtQuantile
-> FieldAccessor SummaryDataPoint SummaryDataPoint'ValueAtQuantile
-> FieldDescriptor SummaryDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"quantile_values"
(MessageOrGroup
-> FieldTypeDescriptor SummaryDataPoint'ValueAtQuantile
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SummaryDataPoint'ValueAtQuantile)
(Packing
-> Lens' SummaryDataPoint [SummaryDataPoint'ValueAtQuantile]
-> FieldAccessor SummaryDataPoint SummaryDataPoint'ValueAtQuantile
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "quantileValues" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"quantileValues")) ::
Data.ProtoLens.FieldDescriptor SummaryDataPoint
flags__field_descriptor :: FieldDescriptor SummaryDataPoint
flags__field_descriptor
= String
-> FieldTypeDescriptor Word32
-> FieldAccessor SummaryDataPoint Word32
-> FieldDescriptor SummaryDataPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"flags"
(ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(WireDefault Word32
-> Lens SummaryDataPoint SummaryDataPoint Word32 Word32
-> FieldAccessor SummaryDataPoint Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags")) ::
Data.ProtoLens.FieldDescriptor SummaryDataPoint
in
[(Tag, FieldDescriptor SummaryDataPoint)]
-> Map Tag (FieldDescriptor SummaryDataPoint)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor SummaryDataPoint
attributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SummaryDataPoint
labels__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor SummaryDataPoint
startTimeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor SummaryDataPoint
timeUnixNano__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor SummaryDataPoint
count__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor SummaryDataPoint
sum__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor SummaryDataPoint
quantileValues__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor SummaryDataPoint
flags__field_descriptor)]
unknownFields :: LensLike' f SummaryDataPoint FieldSet
unknownFields
= (SummaryDataPoint -> FieldSet)
-> (SummaryDataPoint -> FieldSet -> SummaryDataPoint)
-> Lens' SummaryDataPoint FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint -> FieldSet
_SummaryDataPoint'_unknownFields
(\ SummaryDataPoint
x__ FieldSet
y__ -> SummaryDataPoint
x__ {_SummaryDataPoint'_unknownFields :: FieldSet
_SummaryDataPoint'_unknownFields = FieldSet
y__})
defMessage :: SummaryDataPoint
defMessage
= SummaryDataPoint'_constructor :: Vector KeyValue
-> Vector StringKeyValue
-> Word64
-> Word64
-> Word64
-> Double
-> Vector SummaryDataPoint'ValueAtQuantile
-> Word32
-> FieldSet
-> SummaryDataPoint
SummaryDataPoint'_constructor
{_SummaryDataPoint'attributes :: Vector KeyValue
_SummaryDataPoint'attributes = Vector KeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SummaryDataPoint'labels :: Vector StringKeyValue
_SummaryDataPoint'labels = Vector StringKeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SummaryDataPoint'startTimeUnixNano :: Word64
_SummaryDataPoint'startTimeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryDataPoint'timeUnixNano :: Word64
_SummaryDataPoint'timeUnixNano = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryDataPoint'count :: Word64
_SummaryDataPoint'count = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryDataPoint'sum :: Double
_SummaryDataPoint'sum = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryDataPoint'quantileValues :: Vector SummaryDataPoint'ValueAtQuantile
_SummaryDataPoint'quantileValues = Vector SummaryDataPoint'ValueAtQuantile
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SummaryDataPoint'flags :: Word32
_SummaryDataPoint'flags = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryDataPoint'_unknownFields :: FieldSet
_SummaryDataPoint'_unknownFields = []}
parseMessage :: Parser SummaryDataPoint
parseMessage
= let
loop ::
SummaryDataPoint
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld SummaryDataPoint'ValueAtQuantile
-> Data.ProtoLens.Encoding.Bytes.Parser SummaryDataPoint
loop :: SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop SummaryDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld StringKeyValue
mutable'labels Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector KeyValue
frozen'attributes <- IO (Vector KeyValue) -> Parser (Vector KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) KeyValue -> IO (Vector KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld KeyValue
Growing Vector (PrimState IO) KeyValue
mutable'attributes)
Vector StringKeyValue
frozen'labels <- IO (Vector StringKeyValue) -> Parser (Vector StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> IO (Vector StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'labels)
Vector SummaryDataPoint'ValueAtQuantile
frozen'quantileValues <- IO (Vector SummaryDataPoint'ValueAtQuantile)
-> Parser (Vector SummaryDataPoint'ValueAtQuantile)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) SummaryDataPoint'ValueAtQuantile
-> IO (Vector SummaryDataPoint'ValueAtQuantile)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
Growing Vector (PrimState IO) SummaryDataPoint'ValueAtQuantile
mutable'quantileValues)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
SummaryDataPoint -> Parser SummaryDataPoint
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SummaryDataPoint SummaryDataPoint FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SummaryDataPoint -> SummaryDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter SummaryDataPoint SummaryDataPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
SummaryDataPoint
SummaryDataPoint
(Vector KeyValue)
(Vector KeyValue)
-> Vector KeyValue -> SummaryDataPoint -> SummaryDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'attributes") Vector KeyValue
frozen'attributes
(Setter
SummaryDataPoint
SummaryDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
-> Vector StringKeyValue -> SummaryDataPoint -> SummaryDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'labels") Vector StringKeyValue
frozen'labels
(Setter
SummaryDataPoint
SummaryDataPoint
(Vector SummaryDataPoint'ValueAtQuantile)
(Vector SummaryDataPoint'ValueAtQuantile)
-> Vector SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint
-> SummaryDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'quantileValues" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'quantileValues")
Vector SummaryDataPoint'ValueAtQuantile
frozen'quantileValues SummaryDataPoint
x))))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
58
-> do !KeyValue
y <- Parser KeyValue -> String -> Parser KeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser KeyValue -> Parser KeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser KeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"attributes"
Growing Vector RealWorld KeyValue
v <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) KeyValue
-> KeyValue -> IO (Growing Vector (PrimState IO) KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld KeyValue
Growing Vector (PrimState IO) KeyValue
mutable'attributes KeyValue
y)
SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop SummaryDataPoint
x Growing Vector RealWorld KeyValue
v Growing Vector RealWorld StringKeyValue
mutable'labels Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues
Word64
10
-> do !StringKeyValue
y <- Parser StringKeyValue -> String -> Parser StringKeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StringKeyValue -> Parser StringKeyValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser StringKeyValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"labels"
Growing Vector RealWorld StringKeyValue
v <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) StringKeyValue
-> StringKeyValue
-> IO (Growing Vector (PrimState IO) StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld StringKeyValue
Growing Vector (PrimState IO) StringKeyValue
mutable'labels StringKeyValue
y)
SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop SummaryDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld StringKeyValue
v Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues
Word64
17
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64
String
"start_time_unix_nano"
SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop
(Setter SummaryDataPoint SummaryDataPoint Word64 Word64
-> Word64 -> SummaryDataPoint -> SummaryDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") Word64
y SummaryDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld StringKeyValue
mutable'labels Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues
Word64
25
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"time_unix_nano"
SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop
(Setter SummaryDataPoint SummaryDataPoint Word64 Word64
-> Word64 -> SummaryDataPoint -> SummaryDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") Word64
y SummaryDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld StringKeyValue
mutable'labels Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues
Word64
33
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64 String
"count"
SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop
(Setter SummaryDataPoint SummaryDataPoint Word64 Word64
-> Word64 -> SummaryDataPoint -> SummaryDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count") Word64
y SummaryDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld StringKeyValue
mutable'labels Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues
Word64
41
-> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"sum"
SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop
(Setter SummaryDataPoint SummaryDataPoint Double Double
-> Double -> SummaryDataPoint -> SummaryDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") Double
y SummaryDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld StringKeyValue
mutable'labels Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues
Word64
50
-> do !SummaryDataPoint'ValueAtQuantile
y <- Parser SummaryDataPoint'ValueAtQuantile
-> String -> Parser SummaryDataPoint'ValueAtQuantile
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint'ValueAtQuantile
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser SummaryDataPoint'ValueAtQuantile
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"quantile_values"
Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
v <- IO (Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile)
-> Parser
(Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
-> IO
(Growing Vector (PrimState IO) SummaryDataPoint'ValueAtQuantile)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
Growing Vector (PrimState IO) SummaryDataPoint'ValueAtQuantile
mutable'quantileValues SummaryDataPoint'ValueAtQuantile
y)
SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop SummaryDataPoint
x Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld StringKeyValue
mutable'labels Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
v
Word64
64
-> do Word32
y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"flags"
SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop
(Setter SummaryDataPoint SummaryDataPoint Word32 Word32
-> Word32 -> SummaryDataPoint -> SummaryDataPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags") Word32
y SummaryDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld StringKeyValue
mutable'labels Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop
(Setter SummaryDataPoint SummaryDataPoint FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SummaryDataPoint -> SummaryDataPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter SummaryDataPoint SummaryDataPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SummaryDataPoint
x)
Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld StringKeyValue
mutable'labels Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues
in
Parser SummaryDataPoint -> String -> Parser SummaryDataPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld KeyValue
mutable'attributes <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld StringKeyValue
mutable'labels <- IO (Growing Vector RealWorld StringKeyValue)
-> Parser (Growing Vector RealWorld StringKeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld StringKeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues <- IO (Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile)
-> Parser
(Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
SummaryDataPoint
-> Growing Vector RealWorld KeyValue
-> Growing Vector RealWorld StringKeyValue
-> Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint
loop
SummaryDataPoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld KeyValue
mutable'attributes Growing Vector RealWorld StringKeyValue
mutable'labels
Growing Vector RealWorld SummaryDataPoint'ValueAtQuantile
mutable'quantileValues)
String
"SummaryDataPoint"
buildMessage :: SummaryDataPoint -> Builder
buildMessage
= \ SummaryDataPoint
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((KeyValue -> Builder) -> Vector KeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ KeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder)
-> (KeyValue -> ByteString) -> KeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
KeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage KeyValue
_v))
(FoldLike
(Vector KeyValue)
SummaryDataPoint
SummaryDataPoint
(Vector KeyValue)
(Vector KeyValue)
-> SummaryDataPoint -> Vector KeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'attributes") SummaryDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((StringKeyValue -> Builder) -> Vector StringKeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ StringKeyValue
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (StringKeyValue -> ByteString) -> StringKeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
StringKeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StringKeyValue
_v))
(FoldLike
(Vector StringKeyValue)
SummaryDataPoint
SummaryDataPoint
(Vector StringKeyValue)
(Vector StringKeyValue)
-> SummaryDataPoint -> Vector StringKeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'labels" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'labels") SummaryDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike Word64 SummaryDataPoint SummaryDataPoint Word64 Word64
-> SummaryDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "startTimeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTimeUnixNano") SummaryDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v
= FoldLike Word64 SummaryDataPoint SummaryDataPoint Word64 Word64
-> SummaryDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "timeUnixNano" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeUnixNano") SummaryDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
25)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v = FoldLike Word64 SummaryDataPoint SummaryDataPoint Word64 Word64
-> SummaryDataPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "count" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"count") SummaryDataPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
33)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Double
_v = FoldLike Double SummaryDataPoint SummaryDataPoint Double Double
-> SummaryDataPoint -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "sum" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sum") SummaryDataPoint
_x
in
if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
41)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((SummaryDataPoint'ValueAtQuantile -> Builder)
-> Vector SummaryDataPoint'ValueAtQuantile -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ SummaryDataPoint'ValueAtQuantile
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
((ByteString -> Builder)
-> (SummaryDataPoint'ValueAtQuantile -> ByteString)
-> SummaryDataPoint'ValueAtQuantile
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
SummaryDataPoint'ValueAtQuantile -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage SummaryDataPoint'ValueAtQuantile
_v))
(FoldLike
(Vector SummaryDataPoint'ValueAtQuantile)
SummaryDataPoint
SummaryDataPoint
(Vector SummaryDataPoint'ValueAtQuantile)
(Vector SummaryDataPoint'ValueAtQuantile)
-> SummaryDataPoint -> Vector SummaryDataPoint'ValueAtQuantile
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'quantileValues" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'quantileValues") SummaryDataPoint
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word32
_v = FoldLike Word32 SummaryDataPoint SummaryDataPoint Word32 Word32
-> SummaryDataPoint -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "flags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"flags") SummaryDataPoint
_x
in
if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
64)
((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet SummaryDataPoint SummaryDataPoint FieldSet FieldSet
-> SummaryDataPoint -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet SummaryDataPoint SummaryDataPoint FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SummaryDataPoint
_x)))))))))
instance Control.DeepSeq.NFData SummaryDataPoint where
rnf :: SummaryDataPoint -> ()
rnf
= \ SummaryDataPoint
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint -> FieldSet
_SummaryDataPoint'_unknownFields SummaryDataPoint
x__)
(Vector KeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint -> Vector KeyValue
_SummaryDataPoint'attributes SummaryDataPoint
x__)
(Vector StringKeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint -> Vector StringKeyValue
_SummaryDataPoint'labels SummaryDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint -> Word64
_SummaryDataPoint'startTimeUnixNano SummaryDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint -> Word64
_SummaryDataPoint'timeUnixNano SummaryDataPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint -> Word64
_SummaryDataPoint'count SummaryDataPoint
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint -> Double
_SummaryDataPoint'sum SummaryDataPoint
x__)
(Vector SummaryDataPoint'ValueAtQuantile -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint -> Vector SummaryDataPoint'ValueAtQuantile
_SummaryDataPoint'quantileValues SummaryDataPoint
x__)
(Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SummaryDataPoint -> Word32
_SummaryDataPoint'flags SummaryDataPoint
x__) ()))))))))
data SummaryDataPoint'ValueAtQuantile
= SummaryDataPoint'ValueAtQuantile'_constructor {SummaryDataPoint'ValueAtQuantile -> Double
_SummaryDataPoint'ValueAtQuantile'quantile :: !Prelude.Double,
SummaryDataPoint'ValueAtQuantile -> Double
_SummaryDataPoint'ValueAtQuantile'value :: !Prelude.Double,
SummaryDataPoint'ValueAtQuantile -> FieldSet
_SummaryDataPoint'ValueAtQuantile'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
(SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool)
-> (SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool)
-> Eq SummaryDataPoint'ValueAtQuantile
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
$c/= :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
== :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
$c== :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
Prelude.Eq, Eq SummaryDataPoint'ValueAtQuantile
Eq SummaryDataPoint'ValueAtQuantile
-> (SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Ordering)
-> (SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool)
-> (SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool)
-> (SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool)
-> (SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool)
-> (SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile)
-> (SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile)
-> Ord SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Ordering
SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
$cmin :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
max :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
$cmax :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
>= :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
$c>= :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
> :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
$c> :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
<= :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
$c<= :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
< :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
$c< :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Bool
compare :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Ordering
$ccompare :: SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile -> Ordering
$cp1Ord :: Eq SummaryDataPoint'ValueAtQuantile
Prelude.Ord)
instance Prelude.Show SummaryDataPoint'ValueAtQuantile where
showsPrec :: Int -> SummaryDataPoint'ValueAtQuantile -> ShowS
showsPrec Int
_ SummaryDataPoint'ValueAtQuantile
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(SummaryDataPoint'ValueAtQuantile -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SummaryDataPoint'ValueAtQuantile
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SummaryDataPoint'ValueAtQuantile "quantile" Prelude.Double where
fieldOf :: Proxy# "quantile"
-> (Double -> f Double)
-> SummaryDataPoint'ValueAtQuantile
-> f SummaryDataPoint'ValueAtQuantile
fieldOf Proxy# "quantile"
_
= ((Double -> f Double)
-> SummaryDataPoint'ValueAtQuantile
-> f SummaryDataPoint'ValueAtQuantile)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> SummaryDataPoint'ValueAtQuantile
-> f SummaryDataPoint'ValueAtQuantile
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint'ValueAtQuantile -> Double)
-> (SummaryDataPoint'ValueAtQuantile
-> Double -> SummaryDataPoint'ValueAtQuantile)
-> Lens
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
Double
Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint'ValueAtQuantile -> Double
_SummaryDataPoint'ValueAtQuantile'quantile
(\ SummaryDataPoint'ValueAtQuantile
x__ Double
y__
-> SummaryDataPoint'ValueAtQuantile
x__ {_SummaryDataPoint'ValueAtQuantile'quantile :: Double
_SummaryDataPoint'ValueAtQuantile'quantile = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SummaryDataPoint'ValueAtQuantile "value" Prelude.Double where
fieldOf :: Proxy# "value"
-> (Double -> f Double)
-> SummaryDataPoint'ValueAtQuantile
-> f SummaryDataPoint'ValueAtQuantile
fieldOf Proxy# "value"
_
= ((Double -> f Double)
-> SummaryDataPoint'ValueAtQuantile
-> f SummaryDataPoint'ValueAtQuantile)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> SummaryDataPoint'ValueAtQuantile
-> f SummaryDataPoint'ValueAtQuantile
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SummaryDataPoint'ValueAtQuantile -> Double)
-> (SummaryDataPoint'ValueAtQuantile
-> Double -> SummaryDataPoint'ValueAtQuantile)
-> Lens
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
Double
Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint'ValueAtQuantile -> Double
_SummaryDataPoint'ValueAtQuantile'value
(\ SummaryDataPoint'ValueAtQuantile
x__ Double
y__ -> SummaryDataPoint'ValueAtQuantile
x__ {_SummaryDataPoint'ValueAtQuantile'value :: Double
_SummaryDataPoint'ValueAtQuantile'value = Double
y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SummaryDataPoint'ValueAtQuantile where
messageName :: Proxy SummaryDataPoint'ValueAtQuantile -> Text
messageName Proxy SummaryDataPoint'ValueAtQuantile
_
= String -> Text
Data.Text.pack
String
"opentelemetry.proto.metrics.v1.SummaryDataPoint.ValueAtQuantile"
packedMessageDescriptor :: Proxy SummaryDataPoint'ValueAtQuantile -> ByteString
packedMessageDescriptor Proxy SummaryDataPoint'ValueAtQuantile
_
= ByteString
"\n\
\\SIValueAtQuantile\DC2\SUB\n\
\\bquantile\CAN\SOH \SOH(\SOHR\bquantile\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue"
packedFileDescriptor :: Proxy SummaryDataPoint'ValueAtQuantile -> ByteString
packedFileDescriptor Proxy SummaryDataPoint'ValueAtQuantile
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SummaryDataPoint'ValueAtQuantile)
fieldsByTag
= let
quantile__field_descriptor :: FieldDescriptor SummaryDataPoint'ValueAtQuantile
quantile__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor SummaryDataPoint'ValueAtQuantile Double
-> FieldDescriptor SummaryDataPoint'ValueAtQuantile
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"quantile"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(WireDefault Double
-> Lens
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
Double
Double
-> FieldAccessor SummaryDataPoint'ValueAtQuantile Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "quantile" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"quantile")) ::
Data.ProtoLens.FieldDescriptor SummaryDataPoint'ValueAtQuantile
value__field_descriptor :: FieldDescriptor SummaryDataPoint'ValueAtQuantile
value__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor SummaryDataPoint'ValueAtQuantile Double
-> FieldDescriptor SummaryDataPoint'ValueAtQuantile
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"value"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(WireDefault Double
-> Lens
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
Double
Double
-> FieldAccessor SummaryDataPoint'ValueAtQuantile Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor SummaryDataPoint'ValueAtQuantile
in
[(Tag, FieldDescriptor SummaryDataPoint'ValueAtQuantile)]
-> Map Tag (FieldDescriptor SummaryDataPoint'ValueAtQuantile)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SummaryDataPoint'ValueAtQuantile
quantile__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor SummaryDataPoint'ValueAtQuantile
value__field_descriptor)]
unknownFields :: LensLike' f SummaryDataPoint'ValueAtQuantile FieldSet
unknownFields
= (SummaryDataPoint'ValueAtQuantile -> FieldSet)
-> (SummaryDataPoint'ValueAtQuantile
-> FieldSet -> SummaryDataPoint'ValueAtQuantile)
-> Lens' SummaryDataPoint'ValueAtQuantile FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SummaryDataPoint'ValueAtQuantile -> FieldSet
_SummaryDataPoint'ValueAtQuantile'_unknownFields
(\ SummaryDataPoint'ValueAtQuantile
x__ FieldSet
y__
-> SummaryDataPoint'ValueAtQuantile
x__ {_SummaryDataPoint'ValueAtQuantile'_unknownFields :: FieldSet
_SummaryDataPoint'ValueAtQuantile'_unknownFields = FieldSet
y__})
defMessage :: SummaryDataPoint'ValueAtQuantile
defMessage
= SummaryDataPoint'ValueAtQuantile'_constructor :: Double -> Double -> FieldSet -> SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile'_constructor
{_SummaryDataPoint'ValueAtQuantile'quantile :: Double
_SummaryDataPoint'ValueAtQuantile'quantile = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryDataPoint'ValueAtQuantile'value :: Double
_SummaryDataPoint'ValueAtQuantile'value = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SummaryDataPoint'ValueAtQuantile'_unknownFields :: FieldSet
_SummaryDataPoint'ValueAtQuantile'_unknownFields = []}
parseMessage :: Parser SummaryDataPoint'ValueAtQuantile
parseMessage
= let
loop ::
SummaryDataPoint'ValueAtQuantile
-> Data.ProtoLens.Encoding.Bytes.Parser SummaryDataPoint'ValueAtQuantile
loop :: SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint'ValueAtQuantile
loop SummaryDataPoint'ValueAtQuantile
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint'ValueAtQuantile
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SummaryDataPoint'ValueAtQuantile
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
9 -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"quantile"
SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint'ValueAtQuantile
loop
(Setter
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
Double
Double
-> Double
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "quantile" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"quantile") Double
y SummaryDataPoint'ValueAtQuantile
x)
Word64
17
-> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"value"
SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint'ValueAtQuantile
loop (Setter
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
Double
Double
-> Double
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Double
y SummaryDataPoint'ValueAtQuantile
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint'ValueAtQuantile
loop
(Setter
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SummaryDataPoint'ValueAtQuantile
-> SummaryDataPoint'ValueAtQuantile
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
forall msg. Message msg => Lens' msg FieldSet
Setter
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SummaryDataPoint'ValueAtQuantile
x)
in
Parser SummaryDataPoint'ValueAtQuantile
-> String -> Parser SummaryDataPoint'ValueAtQuantile
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SummaryDataPoint'ValueAtQuantile
-> Parser SummaryDataPoint'ValueAtQuantile
loop SummaryDataPoint'ValueAtQuantile
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ValueAtQuantile"
buildMessage :: SummaryDataPoint'ValueAtQuantile -> Builder
buildMessage
= \ SummaryDataPoint'ValueAtQuantile
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Double
_v = FoldLike
Double
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
Double
Double
-> SummaryDataPoint'ValueAtQuantile -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "quantile" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"quantile") SummaryDataPoint'ValueAtQuantile
_x
in
if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
9)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Double
_v = FoldLike
Double
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
Double
Double
-> SummaryDataPoint'ValueAtQuantile -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") SummaryDataPoint'ValueAtQuantile
_x
in
if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
FieldSet
FieldSet
-> SummaryDataPoint'ValueAtQuantile -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
SummaryDataPoint'ValueAtQuantile
SummaryDataPoint'ValueAtQuantile
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SummaryDataPoint'ValueAtQuantile
_x)))
instance Control.DeepSeq.NFData SummaryDataPoint'ValueAtQuantile where
rnf :: SummaryDataPoint'ValueAtQuantile -> ()
rnf
= \ SummaryDataPoint'ValueAtQuantile
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint'ValueAtQuantile -> FieldSet
_SummaryDataPoint'ValueAtQuantile'_unknownFields SummaryDataPoint'ValueAtQuantile
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint'ValueAtQuantile -> Double
_SummaryDataPoint'ValueAtQuantile'quantile SummaryDataPoint'ValueAtQuantile
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SummaryDataPoint'ValueAtQuantile -> Double
_SummaryDataPoint'ValueAtQuantile'value SummaryDataPoint'ValueAtQuantile
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= ByteString
"\n\
\,opentelemetry/proto/metrics/v1/metrics.proto\DC2\RSopentelemetry.proto.metrics.v1\SUB*opentelemetry/proto/common/v1/common.proto\SUB.opentelemetry/proto/resource/v1/resource.proto\"i\n\
\\vMetricsData\DC2Z\n\
\\DLEresource_metrics\CAN\SOH \ETX(\v2/.opentelemetry.proto.metrics.v1.ResourceMetricsR\SIresourceMetrics\"\255\SOH\n\
\\SIResourceMetrics\DC2E\n\
\\bresource\CAN\SOH \SOH(\v2).opentelemetry.proto.resource.v1.ResourceR\bresource\DC2\133\SOH\n\
\\USinstrumentation_library_metrics\CAN\STX \ETX(\v2=.opentelemetry.proto.metrics.v1.InstrumentationLibraryMetricsR\GSinstrumentationLibraryMetrics\DC2\GS\n\
\\n\
\schema_url\CAN\ETX \SOH(\tR\tschemaUrl\"\240\SOH\n\
\\GSInstrumentationLibraryMetrics\DC2n\n\
\\ETBinstrumentation_library\CAN\SOH \SOH(\v25.opentelemetry.proto.common.v1.InstrumentationLibraryR\SYNinstrumentationLibrary\DC2@\n\
\\ametrics\CAN\STX \ETX(\v2&.opentelemetry.proto.metrics.v1.MetricR\ametrics\DC2\GS\n\
\\n\
\schema_url\CAN\ETX \SOH(\tR\tschemaUrl\"\188\ENQ\n\
\\ACKMetric\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2 \n\
\\vdescription\CAN\STX \SOH(\tR\vdescription\DC2\DC2\n\
\\EOTunit\CAN\ETX \SOH(\tR\EOTunit\DC2K\n\
\\tint_gauge\CAN\EOT \SOH(\v2(.opentelemetry.proto.metrics.v1.IntGaugeH\NULR\bintGaugeB\STX\CAN\SOH\DC2=\n\
\\ENQgauge\CAN\ENQ \SOH(\v2%.opentelemetry.proto.metrics.v1.GaugeH\NULR\ENQgauge\DC2E\n\
\\aint_sum\CAN\ACK \SOH(\v2&.opentelemetry.proto.metrics.v1.IntSumH\NULR\ACKintSumB\STX\CAN\SOH\DC27\n\
\\ETXsum\CAN\a \SOH(\v2#.opentelemetry.proto.metrics.v1.SumH\NULR\ETXsum\DC2W\n\
\\rint_histogram\CAN\b \SOH(\v2,.opentelemetry.proto.metrics.v1.IntHistogramH\NULR\fintHistogramB\STX\CAN\SOH\DC2I\n\
\\thistogram\CAN\t \SOH(\v2).opentelemetry.proto.metrics.v1.HistogramH\NULR\thistogram\DC2k\n\
\\NAKexponential_histogram\CAN\n\
\ \SOH(\v24.opentelemetry.proto.metrics.v1.ExponentialHistogramH\NULR\DC4exponentialHistogram\DC2C\n\
\\asummary\CAN\v \SOH(\v2'.opentelemetry.proto.metrics.v1.SummaryH\NULR\asummaryB\ACK\n\
\\EOTdata\"Y\n\
\\ENQGauge\DC2P\n\
\\vdata_points\CAN\SOH \ETX(\v2/.opentelemetry.proto.metrics.v1.NumberDataPointR\n\
\dataPoints\"\235\SOH\n\
\\ETXSum\DC2P\n\
\\vdata_points\CAN\SOH \ETX(\v2/.opentelemetry.proto.metrics.v1.NumberDataPointR\n\
\dataPoints\DC2o\n\
\\ETBaggregation_temporality\CAN\STX \SOH(\SO26.opentelemetry.proto.metrics.v1.AggregationTemporalityR\SYNaggregationTemporality\DC2!\n\
\\fis_monotonic\CAN\ETX \SOH(\bR\visMonotonic\"\209\SOH\n\
\\tHistogram\DC2S\n\
\\vdata_points\CAN\SOH \ETX(\v22.opentelemetry.proto.metrics.v1.HistogramDataPointR\n\
\dataPoints\DC2o\n\
\\ETBaggregation_temporality\CAN\STX \SOH(\SO26.opentelemetry.proto.metrics.v1.AggregationTemporalityR\SYNaggregationTemporality\"\231\SOH\n\
\\DC4ExponentialHistogram\DC2^\n\
\\vdata_points\CAN\SOH \ETX(\v2=.opentelemetry.proto.metrics.v1.ExponentialHistogramDataPointR\n\
\dataPoints\DC2o\n\
\\ETBaggregation_temporality\CAN\STX \SOH(\SO26.opentelemetry.proto.metrics.v1.AggregationTemporalityR\SYNaggregationTemporality\"\\\n\
\\aSummary\DC2Q\n\
\\vdata_points\CAN\SOH \ETX(\v20.opentelemetry.proto.metrics.v1.SummaryDataPointR\n\
\dataPoints\"\155\ETX\n\
\\SINumberDataPoint\DC2G\n\
\\n\
\attributes\CAN\a \ETX(\v2'.opentelemetry.proto.common.v1.KeyValueR\n\
\attributes\DC2I\n\
\\ACKlabels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\ACKlabelsB\STX\CAN\SOH\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\GS\n\
\\tas_double\CAN\EOT \SOH(\SOHH\NULR\basDouble\DC2\ETB\n\
\\ACKas_int\CAN\ACK \SOH(\DLEH\NULR\ENQasInt\DC2F\n\
\\texemplars\CAN\ENQ \ETX(\v2(.opentelemetry.proto.metrics.v1.ExemplarR\texemplars\DC2\DC4\n\
\\ENQflags\CAN\b \SOH(\rR\ENQflagsB\a\n\
\\ENQvalue\"\211\ETX\n\
\\DC2HistogramDataPoint\DC2G\n\
\\n\
\attributes\CAN\t \ETX(\v2'.opentelemetry.proto.common.v1.KeyValueR\n\
\attributes\DC2I\n\
\\ACKlabels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\ACKlabelsB\STX\CAN\SOH\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQcount\CAN\EOT \SOH(\ACKR\ENQcount\DC2\DLE\n\
\\ETXsum\CAN\ENQ \SOH(\SOHR\ETXsum\DC2#\n\
\\rbucket_counts\CAN\ACK \ETX(\ACKR\fbucketCounts\DC2'\n\
\\SIexplicit_bounds\CAN\a \ETX(\SOHR\SOexplicitBounds\DC2F\n\
\\texemplars\CAN\b \ETX(\v2(.opentelemetry.proto.metrics.v1.ExemplarR\texemplars\DC2\DC4\n\
\\ENQflags\CAN\n\
\ \SOH(\rR\ENQflags\"\136\ENQ\n\
\\GSExponentialHistogramDataPoint\DC2G\n\
\\n\
\attributes\CAN\SOH \ETX(\v2'.opentelemetry.proto.common.v1.KeyValueR\n\
\attributes\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQcount\CAN\EOT \SOH(\ACKR\ENQcount\DC2\DLE\n\
\\ETXsum\CAN\ENQ \SOH(\SOHR\ETXsum\DC2\DC4\n\
\\ENQscale\CAN\ACK \SOH(\DC1R\ENQscale\DC2\GS\n\
\\n\
\zero_count\CAN\a \SOH(\ACKR\tzeroCount\DC2a\n\
\\bpositive\CAN\b \SOH(\v2E.opentelemetry.proto.metrics.v1.ExponentialHistogramDataPoint.BucketsR\bpositive\DC2a\n\
\\bnegative\CAN\t \SOH(\v2E.opentelemetry.proto.metrics.v1.ExponentialHistogramDataPoint.BucketsR\bnegative\DC2\DC4\n\
\\ENQflags\CAN\n\
\ \SOH(\rR\ENQflags\DC2F\n\
\\texemplars\CAN\v \ETX(\v2(.opentelemetry.proto.metrics.v1.ExemplarR\texemplars\SUBF\n\
\\aBuckets\DC2\SYN\n\
\\ACKoffset\CAN\SOH \SOH(\DC1R\ACKoffset\DC2#\n\
\\rbucket_counts\CAN\STX \ETX(\EOTR\fbucketCounts\"\235\ETX\n\
\\DLESummaryDataPoint\DC2G\n\
\\n\
\attributes\CAN\a \ETX(\v2'.opentelemetry.proto.common.v1.KeyValueR\n\
\attributes\DC2I\n\
\\ACKlabels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\ACKlabelsB\STX\CAN\SOH\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQcount\CAN\EOT \SOH(\ACKR\ENQcount\DC2\DLE\n\
\\ETXsum\CAN\ENQ \SOH(\SOHR\ETXsum\DC2i\n\
\\SIquantile_values\CAN\ACK \ETX(\v2@.opentelemetry.proto.metrics.v1.SummaryDataPoint.ValueAtQuantileR\SOquantileValues\DC2\DC4\n\
\\ENQflags\CAN\b \SOH(\rR\ENQflags\SUBC\n\
\\SIValueAtQuantile\DC2\SUB\n\
\\bquantile\CAN\SOH \SOH(\SOHR\bquantile\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue\"\219\STX\n\
\\bExemplar\DC2X\n\
\\DC3filtered_attributes\CAN\a \ETX(\v2'.opentelemetry.proto.common.v1.KeyValueR\DC2filteredAttributes\DC2Z\n\
\\SIfiltered_labels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\SOfilteredLabelsB\STX\CAN\SOH\DC2$\n\
\\SOtime_unix_nano\CAN\STX \SOH(\ACKR\ftimeUnixNano\DC2\GS\n\
\\tas_double\CAN\ETX \SOH(\SOHH\NULR\basDouble\DC2\ETB\n\
\\ACKas_int\CAN\ACK \SOH(\DLEH\NULR\ENQasInt\DC2\ETB\n\
\\aspan_id\CAN\EOT \SOH(\fR\ACKspanId\DC2\EM\n\
\\btrace_id\CAN\ENQ \SOH(\fR\atraceIdB\a\n\
\\ENQvalue\"\145\STX\n\
\\fIntDataPoint\DC2E\n\
\\ACKlabels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\ACKlabels\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQvalue\CAN\EOT \SOH(\DLER\ENQvalue\DC2I\n\
\\texemplars\CAN\ENQ \ETX(\v2+.opentelemetry.proto.metrics.v1.IntExemplarR\texemplars:\STX\CAN\SOH\"]\n\
\\bIntGauge\DC2M\n\
\\vdata_points\CAN\SOH \ETX(\v2,.opentelemetry.proto.metrics.v1.IntDataPointR\n\
\dataPoints:\STX\CAN\SOH\"\239\SOH\n\
\\ACKIntSum\DC2M\n\
\\vdata_points\CAN\SOH \ETX(\v2,.opentelemetry.proto.metrics.v1.IntDataPointR\n\
\dataPoints\DC2o\n\
\\ETBaggregation_temporality\CAN\STX \SOH(\SO26.opentelemetry.proto.metrics.v1.AggregationTemporalityR\SYNaggregationTemporality\DC2!\n\
\\fis_monotonic\CAN\ETX \SOH(\bR\visMonotonic:\STX\CAN\SOH\"\250\STX\n\
\\NAKIntHistogramDataPoint\DC2E\n\
\\ACKlabels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\ACKlabels\DC2/\n\
\\DC4start_time_unix_nano\CAN\STX \SOH(\ACKR\DC1startTimeUnixNano\DC2$\n\
\\SOtime_unix_nano\CAN\ETX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQcount\CAN\EOT \SOH(\ACKR\ENQcount\DC2\DLE\n\
\\ETXsum\CAN\ENQ \SOH(\DLER\ETXsum\DC2#\n\
\\rbucket_counts\CAN\ACK \ETX(\ACKR\fbucketCounts\DC2'\n\
\\SIexplicit_bounds\CAN\a \ETX(\SOHR\SOexplicitBounds\DC2I\n\
\\texemplars\CAN\b \ETX(\v2+.opentelemetry.proto.metrics.v1.IntExemplarR\texemplars:\STX\CAN\SOH\"\219\SOH\n\
\\fIntHistogram\DC2V\n\
\\vdata_points\CAN\SOH \ETX(\v25.opentelemetry.proto.metrics.v1.IntHistogramDataPointR\n\
\dataPoints\DC2o\n\
\\ETBaggregation_temporality\CAN\STX \SOH(\SO26.opentelemetry.proto.metrics.v1.AggregationTemporalityR\SYNaggregationTemporality:\STX\CAN\SOH\"\217\SOH\n\
\\vIntExemplar\DC2V\n\
\\SIfiltered_labels\CAN\SOH \ETX(\v2-.opentelemetry.proto.common.v1.StringKeyValueR\SOfilteredLabels\DC2$\n\
\\SOtime_unix_nano\CAN\STX \SOH(\ACKR\ftimeUnixNano\DC2\DC4\n\
\\ENQvalue\CAN\ETX \SOH(\DLER\ENQvalue\DC2\ETB\n\
\\aspan_id\CAN\EOT \SOH(\fR\ACKspanId\DC2\EM\n\
\\btrace_id\CAN\ENQ \SOH(\fR\atraceId:\STX\CAN\SOH*\140\SOH\n\
\\SYNAggregationTemporality\DC2'\n\
\#AGGREGATION_TEMPORALITY_UNSPECIFIED\DLE\NUL\DC2!\n\
\\GSAGGREGATION_TEMPORALITY_DELTA\DLE\SOH\DC2&\n\
\\"AGGREGATION_TEMPORALITY_CUMULATIVE\DLE\STX*;\n\
\\SODataPointFlags\DC2\r\n\
\\tFLAG_NONE\DLE\NUL\DC2\SUB\n\
\\SYNFLAG_NO_RECORDED_VALUE\DLE\SOHBt\n\
\!io.opentelemetry.proto.metrics.v1B\fMetricsProtoP\SOHZ?github.com/open-telemetry/opentelemetry-proto/gen/go/metrics/v1J\201\160\STX\n\
\\a\DC2\ENQ\SO\NUL\207\ACK\SOH\n\
\\200\EOT\n\
\\SOH\f\DC2\ETX\SO\NUL\DC22\189\EOT Copyright 2019, OpenTelemetry Authors\n\
\\n\
\ Licensed under the Apache License, Version 2.0 (the \"License\");\n\
\ you may not use this file except in compliance with the License.\n\
\ You may obtain a copy of the License at\n\
\\n\
\ http://www.apache.org/licenses/LICENSE-2.0\n\
\\n\
\ Unless required by applicable law or agreed to in writing, software\n\
\ distributed under the License is distributed on an \"AS IS\" BASIS,\n\
\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n\
\ See the License for the specific language governing permissions and\n\
\ limitations under the License.\n\
\\n\
\\b\n\
\\SOH\STX\DC2\ETX\DLE\NUL'\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\DC2\NUL4\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\DC3\NUL8\n\
\\b\n\
\\SOH\b\DC2\ETX\NAK\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\NAK\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\SYN\NUL:\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\SYN\NUL:\n\
\\b\n\
\\SOH\b\DC2\ETX\ETB\NUL-\n\
\\t\n\
\\STX\b\b\DC2\ETX\ETB\NUL-\n\
\\b\n\
\\SOH\b\DC2\ETX\CAN\NULV\n\
\\t\n\
\\STX\b\v\DC2\ETX\CAN\NULV\n\
\\209\ETX\n\
\\STX\EOT\NUL\DC2\EOT$\NUL+\SOH\SUB\196\ETX MetricsData represents the metrics data that can be stored in a persistent\n\
\ storage, OR can be embedded by other protocols that transfer OTLP metrics\n\
\ data but do not implement the OTLP protocol.\n\
\\n\
\ The main difference between this message and collector protocol is that\n\
\ in this message there will not be any \"control\" or \"metadata\" specific to\n\
\ OTLP protocol.\n\
\\n\
\ When new fields are added into this message, the OTLP request MUST be updated\n\
\ as well.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX$\b\DC3\n\
\\176\STX\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX*\STX0\SUB\162\STX An array of ResourceMetrics.\n\
\ For data coming from a single resource this array will typically contain\n\
\ one element. Intermediary nodes that receive data from multiple origins\n\
\ typically batch the data before forwarding further and in that case this\n\
\ array will contain multiple elements.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\EOT\DC2\ETX*\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX*\v\SUB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX*\ESC+\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX*./\n\
\L\n\
\\STX\EOT\SOH\DC2\EOT.\NUL:\SOH\SUB@ A collection of InstrumentationLibraryMetrics from a Resource.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX.\b\ETB\n\
\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX1\STX8\SUBi The resource for the metrics in this message.\n\
\ If this field is not set then no resource info is known.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX1\STX*\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX1+3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX167\n\
\@\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX4\STXM\SUB3 A list of metrics that originate from a resource.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\EOT\DC2\ETX4\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX4\v(\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX4)H\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX4KL\n\
\\194\SOH\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX9\STX\CAN\SUB\180\SOH This schema_url applies to the data in the \"resource\" field. It does not apply\n\
\ to the data in the \"instrumentation_library_metrics\" field which have their own\n\
\ schema_url field.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX9\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX9\t\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX9\SYN\ETB\n\
\L\n\
\\STX\EOT\STX\DC2\EOT=\NULH\SOH\SUB@ A collection of Metrics produced by an InstrumentationLibrary.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX=\b%\n\
\\213\SOH\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETXA\STXS\SUB\199\SOH The instrumentation library information for the metrics in this message.\n\
\ Semantically when InstrumentationLibrary isn't set, it is equivalent with\n\
\ an empty instrumentation library name (unknown).\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETXA\STX6\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXA7N\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXAQR\n\
\P\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETXD\STX\RS\SUBC A list of metrics that originate from an instrumentation library.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\EOT\DC2\ETXD\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETXD\v\DC1\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETXD\DC2\EM\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETXD\FS\GS\n\
\M\n\
\\EOT\EOT\STX\STX\STX\DC2\ETXG\STX\CAN\SUB@ This schema_url applies to all metrics in the \"metrics\" field.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETXG\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\ETXG\t\DC3\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\ETXG\SYN\ETB\n\
\\174\GS\n\
\\STX\EOT\ETX\DC2\ACK\159\SOH\NUL\200\SOH\SOH\SUB\159\GS Defines a Metric which has one or more timeseries. The following is a\n\
\ brief summary of the Metric data model. For more details, see:\n\
\\n\
\ https://github.com/open-telemetry/opentelemetry-specification/blob/main/specification/metrics/datamodel.md\n\
\\n\
\\n\
\ The data model and relation between entities is shown in the\n\
\ diagram below. Here, \"DataPoint\" is the term used to refer to any\n\
\ one of the specific data point value types, and \"points\" is the term used\n\
\ to refer to any one of the lists of points contained in the Metric.\n\
\\n\
\ - Metric is composed of a metadata and data.\n\
\ - Metadata part contains a name, description, unit.\n\
\ - Data is one of the possible types (Sum, Gauge, Histogram, Summary).\n\
\ - DataPoint contains timestamps, attributes, and one of the possible value type\n\
\ fields.\n\
\\n\
\ Metric\n\
\ +------------+\n\
\ |name |\n\
\ |description |\n\
\ |unit | +------------------------------------+\n\
\ |data |---> |Gauge, Sum, Histogram, Summary, ... |\n\
\ +------------+ +------------------------------------+\n\
\\n\
\ Data [One of Gauge, Sum, Histogram, Summary, ...]\n\
\ +-----------+\n\
\ |... | // Metadata about the Data.\n\
\ |points |--+\n\
\ +-----------+ |\n\
\ | +---------------------------+\n\
\ | |DataPoint 1 |\n\
\ v |+------+------+ +------+ |\n\
\ +-----+ ||label |label |...|label | |\n\
\ | 1 |-->||value1|value2|...|valueN| |\n\
\ +-----+ |+------+------+ +------+ |\n\
\ | . | |+-----+ |\n\
\ | . | ||value| |\n\
\ | . | |+-----+ |\n\
\ | . | +---------------------------+\n\
\ | . | .\n\
\ | . | .\n\
\ | . | .\n\
\ | . | +---------------------------+\n\
\ | . | |DataPoint M |\n\
\ +-----+ |+------+------+ +------+ |\n\
\ | M |-->||label |label |...|label | |\n\
\ +-----+ ||value1|value2|...|valueN| |\n\
\ |+------+------+ +------+ |\n\
\ |+-----+ |\n\
\ ||value| |\n\
\ |+-----+ |\n\
\ +---------------------------+\n\
\\n\
\ Each distinct type of DataPoint represents the output of a specific\n\
\ aggregation function, the result of applying the DataPoint's\n\
\ associated function of to one or more measurements.\n\
\\n\
\ All DataPoint types have three common fields:\n\
\ - Attributes includes key-value pairs associated with the data point\n\
\ - TimeUnixNano is required, set to the end time of the aggregation\n\
\ - StartTimeUnixNano is optional, but strongly encouraged for DataPoints\n\
\ having an AggregationTemporality field, as discussed below.\n\
\\n\
\ Both TimeUnixNano and StartTimeUnixNano values are expressed as\n\
\ UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January 1970.\n\
\\n\
\ # TimeUnixNano\n\
\\n\
\ This field is required, having consistent interpretation across\n\
\ DataPoint types. TimeUnixNano is the moment corresponding to when\n\
\ the data point's aggregate value was captured.\n\
\\n\
\ Data points with the 0 value for TimeUnixNano SHOULD be rejected\n\
\ by consumers.\n\
\\n\
\ # StartTimeUnixNano\n\
\\n\
\ StartTimeUnixNano in general allows detecting when a sequence of\n\
\ observations is unbroken. This field indicates to consumers the\n\
\ start time for points with cumulative and delta\n\
\ AggregationTemporality, and it should be included whenever possible\n\
\ to support correct rate calculation. Although it may be omitted\n\
\ when the start time is truly unknown, setting StartTimeUnixNano is\n\
\ strongly encouraged.\n\
\\n\
\\v\n\
\\ETX\EOT\ETX\SOH\DC2\EOT\159\SOH\b\SO\n\
\U\n\
\\EOT\EOT\ETX\STX\NUL\DC2\EOT\161\SOH\STX\DC2\SUBG name of the metric, including its DNS name prefix. It must be unique.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\EOT\161\SOH\STX\b\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\EOT\161\SOH\t\r\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\EOT\161\SOH\DLE\DC1\n\
\N\n\
\\EOT\EOT\ETX\STX\SOH\DC2\EOT\164\SOH\STX\EM\SUB@ description of the metric, which can be used in documentation.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\EOT\164\SOH\STX\b\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\EOT\164\SOH\t\DC4\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\EOT\164\SOH\ETB\CAN\n\
\\129\SOH\n\
\\EOT\EOT\ETX\STX\STX\DC2\EOT\168\SOH\STX\DC2\SUBs unit in which the metric value is reported. Follows the format\n\
\ described by http://unitsofmeasure.org/ucum.html.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\STX\ENQ\DC2\EOT\168\SOH\STX\b\n\
\\r\n\
\\ENQ\EOT\ETX\STX\STX\SOH\DC2\EOT\168\SOH\t\r\n\
\\r\n\
\\ENQ\EOT\ETX\STX\STX\ETX\DC2\EOT\168\SOH\DLE\DC1\n\
\\215\SOH\n\
\\EOT\EOT\ETX\b\NUL\DC2\ACK\173\SOH\STX\199\SOH\ETX\SUB\198\SOH Data determines the aggregation type (if any) of the metric, what is the\n\
\ reported value type for the data points, as well as the relatationship to\n\
\ the time interval over which they are reported.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\b\NUL\SOH\DC2\EOT\173\SOH\b\f\n\
\\242\ETX\n\
\\EOT\EOT\ETX\STX\ETX\DC2\EOT\182\SOH\EOT/\SUB\227\ETX IntGauge and IntSum are deprecated and will be removed soon.\n\
\ 1. Old senders and receivers that are not aware of this change will\n\
\ continue using the `int_gauge` and `int_sum` fields.\n\
\ 2. New senders, which are aware of this change MUST send only `gauge`\n\
\ and `sum` fields.\n\
\ 3. New receivers, which are aware of this change MUST convert these into\n\
\ `gauge` and `sum` by using the provided as_int field in the oneof values.\n\
\ This field will be removed in ~3 months, on July 1, 2021.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ETX\ACK\DC2\EOT\182\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ETX\SOH\DC2\EOT\182\SOH\r\SYN\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ETX\ETX\DC2\EOT\182\SOH\EM\SUB\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ETX\b\DC2\EOT\182\SOH\ESC.\n\
\\SO\n\
\\ACK\EOT\ETX\STX\ETX\b\ETX\DC2\EOT\182\SOH\FS-\n\
\\f\n\
\\EOT\EOT\ETX\STX\EOT\DC2\EOT\183\SOH\EOT\DC4\n\
\\r\n\
\\ENQ\EOT\ETX\STX\EOT\ACK\DC2\EOT\183\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETX\STX\EOT\SOH\DC2\EOT\183\SOH\n\
\\SI\n\
\\r\n\
\\ENQ\EOT\ETX\STX\EOT\ETX\DC2\EOT\183\SOH\DC2\DC3\n\
\I\n\
\\EOT\EOT\ETX\STX\ENQ\DC2\EOT\185\SOH\EOT+\SUB; This field will be removed in ~3 months, on July 1, 2021.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ENQ\ACK\DC2\EOT\185\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ENQ\SOH\DC2\EOT\185\SOH\v\DC2\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ENQ\ETX\DC2\EOT\185\SOH\NAK\SYN\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ENQ\b\DC2\EOT\185\SOH\ETB*\n\
\\SO\n\
\\ACK\EOT\ETX\STX\ENQ\b\ETX\DC2\EOT\185\SOH\CAN)\n\
\\f\n\
\\EOT\EOT\ETX\STX\ACK\DC2\EOT\186\SOH\EOT\DLE\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ACK\ACK\DC2\EOT\186\SOH\EOT\a\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ACK\SOH\DC2\EOT\186\SOH\b\v\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ACK\ETX\DC2\EOT\186\SOH\SO\SI\n\
\\196\ETX\n\
\\EOT\EOT\ETX\STX\a\DC2\EOT\195\SOH\EOT7\SUB\181\ETX IntHistogram is deprecated and will be removed soon.\n\
\ 1. Old senders and receivers that are not aware of this change will\n\
\ continue using the `int_histogram` field.\n\
\ 2. New senders, which are aware of this change MUST send only `histogram`.\n\
\ 3. New receivers, which are aware of this change MUST convert this into\n\
\ `histogram` by simply converting all int64 values into float.\n\
\ This field will be removed in ~3 months, on July 1, 2021.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\a\ACK\DC2\EOT\195\SOH\EOT\DLE\n\
\\r\n\
\\ENQ\EOT\ETX\STX\a\SOH\DC2\EOT\195\SOH\DC1\RS\n\
\\r\n\
\\ENQ\EOT\ETX\STX\a\ETX\DC2\EOT\195\SOH!\"\n\
\\r\n\
\\ENQ\EOT\ETX\STX\a\b\DC2\EOT\195\SOH#6\n\
\\SO\n\
\\ACK\EOT\ETX\STX\a\b\ETX\DC2\EOT\195\SOH$5\n\
\\f\n\
\\EOT\EOT\ETX\STX\b\DC2\EOT\196\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\ETX\STX\b\ACK\DC2\EOT\196\SOH\EOT\r\n\
\\r\n\
\\ENQ\EOT\ETX\STX\b\SOH\DC2\EOT\196\SOH\SO\ETB\n\
\\r\n\
\\ENQ\EOT\ETX\STX\b\ETX\DC2\EOT\196\SOH\SUB\ESC\n\
\\f\n\
\\EOT\EOT\ETX\STX\t\DC2\EOT\197\SOH\EOT4\n\
\\r\n\
\\ENQ\EOT\ETX\STX\t\ACK\DC2\EOT\197\SOH\EOT\CAN\n\
\\r\n\
\\ENQ\EOT\ETX\STX\t\SOH\DC2\EOT\197\SOH\EM.\n\
\\r\n\
\\ENQ\EOT\ETX\STX\t\ETX\DC2\EOT\197\SOH13\n\
\\f\n\
\\EOT\EOT\ETX\STX\n\
\\DC2\EOT\198\SOH\EOT\EM\n\
\\r\n\
\\ENQ\EOT\ETX\STX\n\
\\ACK\DC2\EOT\198\SOH\EOT\v\n\
\\r\n\
\\ENQ\EOT\ETX\STX\n\
\\SOH\DC2\EOT\198\SOH\f\DC3\n\
\\r\n\
\\ENQ\EOT\ETX\STX\n\
\\ETX\DC2\EOT\198\SOH\SYN\CAN\n\
\\247\ETX\n\
\\STX\EOT\EOT\DC2\ACK\211\SOH\NUL\213\SOH\SOH\SUB\232\ETX Gauge represents the type of a scalar metric that always exports the\n\
\ \"current value\" for every data point. It should be used for an \"unknown\"\n\
\ aggregation.\n\
\\n\
\ A Gauge does not support different aggregation temporalities. Given the\n\
\ aggregation is unknown, points cannot be combined using the same\n\
\ aggregation, regardless of aggregation temporalities. Therefore,\n\
\ AggregationTemporality is not included. Consequently, this also means\n\
\ \"StartTimeUnixNano\" is ignored for all data points.\n\
\\n\
\\v\n\
\\ETX\EOT\EOT\SOH\DC2\EOT\211\SOH\b\r\n\
\\f\n\
\\EOT\EOT\EOT\STX\NUL\DC2\EOT\212\SOH\STX+\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\EOT\DC2\EOT\212\SOH\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\ACK\DC2\EOT\212\SOH\v\SUB\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\EOT\212\SOH\ESC&\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\EOT\212\SOH)*\n\
\\138\SOH\n\
\\STX\EOT\ENQ\DC2\ACK\217\SOH\NUL\226\SOH\SOH\SUB| Sum represents the type of a scalar metric that is calculated as a sum of all\n\
\ reported measurements over a time interval.\n\
\\n\
\\v\n\
\\ETX\EOT\ENQ\SOH\DC2\EOT\217\SOH\b\v\n\
\\f\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\EOT\218\SOH\STX+\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\EOT\DC2\EOT\218\SOH\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\EOT\218\SOH\v\SUB\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\EOT\218\SOH\ESC&\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\EOT\218\SOH)*\n\
\\163\SOH\n\
\\EOT\EOT\ENQ\STX\SOH\DC2\EOT\222\SOH\STX5\SUB\148\SOH aggregation_temporality describes if the aggregator reports delta changes\n\
\ since last report time, or cumulative changes since a fixed start time.\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\EOT\222\SOH\STX\CAN\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\EOT\222\SOH\EM0\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\EOT\222\SOH34\n\
\:\n\
\\EOT\EOT\ENQ\STX\STX\DC2\EOT\225\SOH\STX\CAN\SUB, If \"true\" means that the sum is monotonic.\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\EOT\225\SOH\STX\ACK\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\STX\SOH\DC2\EOT\225\SOH\a\DC3\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\STX\ETX\DC2\EOT\225\SOH\SYN\ETB\n\
\\159\SOH\n\
\\STX\EOT\ACK\DC2\ACK\230\SOH\NUL\236\SOH\SOH\SUB\144\SOH Histogram represents the type of a metric that is calculated by aggregating\n\
\ as a Histogram of all reported measurements over a time interval.\n\
\\n\
\\v\n\
\\ETX\EOT\ACK\SOH\DC2\EOT\230\SOH\b\DC1\n\
\\f\n\
\\EOT\EOT\ACK\STX\NUL\DC2\EOT\231\SOH\STX.\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\EOT\DC2\EOT\231\SOH\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\ACK\DC2\EOT\231\SOH\v\GS\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\EOT\231\SOH\RS)\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\EOT\231\SOH,-\n\
\\163\SOH\n\
\\EOT\EOT\ACK\STX\SOH\DC2\EOT\235\SOH\STX5\SUB\148\SOH aggregation_temporality describes if the aggregator reports delta changes\n\
\ since last report time, or cumulative changes since a fixed start time.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SOH\ACK\DC2\EOT\235\SOH\STX\CAN\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\EOT\235\SOH\EM0\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\EOT\235\SOH34\n\
\\188\SOH\n\
\\STX\EOT\a\DC2\ACK\240\SOH\NUL\246\SOH\SOH\SUB\173\SOH ExponentialHistogram represents the type of a metric that is calculated by aggregating\n\
\ as a ExponentialHistogram of all reported double measurements over a time interval.\n\
\\n\
\\v\n\
\\ETX\EOT\a\SOH\DC2\EOT\240\SOH\b\FS\n\
\\f\n\
\\EOT\EOT\a\STX\NUL\DC2\EOT\241\SOH\STX9\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\EOT\DC2\EOT\241\SOH\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\ACK\DC2\EOT\241\SOH\v(\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\EOT\241\SOH)4\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\EOT\241\SOH78\n\
\\163\SOH\n\
\\EOT\EOT\a\STX\SOH\DC2\EOT\245\SOH\STX5\SUB\148\SOH aggregation_temporality describes if the aggregator reports delta changes\n\
\ since last report time, or cumulative changes since a fixed start time.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\ACK\DC2\EOT\245\SOH\STX\CAN\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\SOH\DC2\EOT\245\SOH\EM0\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\ETX\DC2\EOT\245\SOH34\n\
\\229\ETX\n\
\\STX\EOT\b\DC2\ACK\254\SOH\NUL\128\STX\SOH\SUB\214\ETX Summary metric data are used to convey quantile summaries,\n\
\ a Prometheus (see: https://prometheus.io/docs/concepts/metric_types/#summary)\n\
\ and OpenMetrics (see: https://github.com/OpenObservability/OpenMetrics/blob/4dbf6075567ab43296eed941037c12951faafb92/protos/prometheus.proto#L45)\n\
\ data type. These data points cannot always be merged in a meaningful way.\n\
\ While they can be useful in some applications, histogram data points are\n\
\ recommended for new applications.\n\
\\n\
\\v\n\
\\ETX\EOT\b\SOH\DC2\EOT\254\SOH\b\SI\n\
\\f\n\
\\EOT\EOT\b\STX\NUL\DC2\EOT\255\SOH\STX,\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\EOT\DC2\EOT\255\SOH\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ACK\DC2\EOT\255\SOH\v\ESC\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\EOT\255\SOH\FS'\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\EOT\255\SOH*+\n\
\\190\SOH\n\
\\STX\ENQ\NUL\DC2\ACK\133\STX\NUL\199\STX\SOH\SUB\175\SOH AggregationTemporality defines how a metric aggregator reports aggregated\n\
\ values. It describes how those values relate to the time interval over\n\
\ which they are aggregated.\n\
\\n\
\\v\n\
\\ETX\ENQ\NUL\SOH\DC2\EOT\133\STX\ENQ\ESC\n\
\W\n\
\\EOT\ENQ\NUL\STX\NUL\DC2\EOT\135\STX\STX*\SUBI UNSPECIFIED is the default AggregationTemporality, it MUST not be used.\n\
\\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\EOT\135\STX\STX%\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\NUL\STX\DC2\EOT\135\STX()\n\
\\236\t\n\
\\EOT\ENQ\NUL\STX\SOH\DC2\EOT\161\STX\STX$\SUB\221\t DELTA is an AggregationTemporality for a metric aggregator which reports\n\
\ changes since last report time. Successive metrics contain aggregation of\n\
\ values from continuous and non-overlapping intervals.\n\
\\n\
\ The values for a DELTA metric are based only on the time interval\n\
\ associated with one measurement cycle. There is no dependency on\n\
\ previous measurements like is the case for CUMULATIVE metrics.\n\
\\n\
\ For example, consider a system measuring the number of requests that\n\
\ it receives and reports the sum of these requests every second as a\n\
\ DELTA metric:\n\
\\n\
\ 1. The system starts receiving at time=t_0.\n\
\ 2. A request is received, the system measures 1 request.\n\
\ 3. A request is received, the system measures 1 request.\n\
\ 4. A request is received, the system measures 1 request.\n\
\ 5. The 1 second collection cycle ends. A metric is exported for the\n\
\ number of requests received over the interval of time t_0 to\n\
\ t_0+1 with a value of 3.\n\
\ 6. A request is received, the system measures 1 request.\n\
\ 7. A request is received, the system measures 1 request.\n\
\ 8. The 1 second collection cycle ends. A metric is exported for the\n\
\ number of requests received over the interval of time t_0+1 to\n\
\ t_0+2 with a value of 2.\n\
\\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\EOT\161\STX\STX\US\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\SOH\STX\DC2\EOT\161\STX\"#\n\
\\147\SI\n\
\\EOT\ENQ\NUL\STX\STX\DC2\EOT\198\STX\STX)\SUB\132\SI CUMULATIVE is an AggregationTemporality for a metric aggregator which\n\
\ reports changes since a fixed start time. This means that current values\n\
\ of a CUMULATIVE metric depend on all previous measurements since the\n\
\ start time. Because of this, the sender is required to retain this state\n\
\ in some form. If this state is lost or invalidated, the CUMULATIVE metric\n\
\ values MUST be reset and a new fixed start time following the last\n\
\ reported measurement time sent MUST be used.\n\
\\n\
\ For example, consider a system measuring the number of requests that\n\
\ it receives and reports the sum of these requests every second as a\n\
\ CUMULATIVE metric:\n\
\\n\
\ 1. The system starts receiving at time=t_0.\n\
\ 2. A request is received, the system measures 1 request.\n\
\ 3. A request is received, the system measures 1 request.\n\
\ 4. A request is received, the system measures 1 request.\n\
\ 5. The 1 second collection cycle ends. A metric is exported for the\n\
\ number of requests received over the interval of time t_0 to\n\
\ t_0+1 with a value of 3.\n\
\ 6. A request is received, the system measures 1 request.\n\
\ 7. A request is received, the system measures 1 request.\n\
\ 8. The 1 second collection cycle ends. A metric is exported for the\n\
\ number of requests received over the interval of time t_0 to\n\
\ t_0+2 with a value of 5.\n\
\ 9. The system experiences a fault and loses state.\n\
\ 10. The system recovers and resumes receiving at time=t_1.\n\
\ 11. A request is received, the system measures 1 request.\n\
\ 12. The 1 second collection cycle ends. A metric is exported for the\n\
\ number of requests received over the interval of time t_1 to\n\
\ t_0+1 with a value of 1.\n\
\\n\
\ Note: Even though, when reporting changes since last report time, using\n\
\ CUMULATIVE is valid, it is not recommended. This may cause problems for\n\
\ systems that do not use start_time to determine when the aggregation\n\
\ value was reset (e.g. Prometheus).\n\
\\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\STX\SOH\DC2\EOT\198\STX\STX$\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\STX\STX\DC2\EOT\198\STX'(\n\
\\241\STX\n\
\\STX\ENQ\SOH\DC2\ACK\208\STX\NUL\217\STX\SOH\SUB\226\STX DataPointFlags is defined as a protobuf 'uint32' type and is to be used as a\n\
\ bit-field representing 32 distinct boolean flags. Each flag defined in this\n\
\ enum is a bit-mask. To test the presence of a single flag in the flags of\n\
\ a data point, for example, use an expression like:\n\
\\n\
\ (point.flags & FLAG_NO_RECORDED_VALUE) == FLAG_NO_RECORDED_VALUE\n\
\\n\
\\n\
\\v\n\
\\ETX\ENQ\SOH\SOH\DC2\EOT\208\STX\ENQ\DC3\n\
\\f\n\
\\EOT\ENQ\SOH\STX\NUL\DC2\EOT\209\STX\STX\DLE\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\NUL\SOH\DC2\EOT\209\STX\STX\v\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\NUL\STX\DC2\EOT\209\STX\SO\SI\n\
\\203\SOH\n\
\\EOT\ENQ\SOH\STX\SOH\DC2\EOT\214\STX\STX\GS\SUB\188\SOH This DataPoint is valid but has no recorded value. This value\n\
\ SHOULD be used to reflect explicitly missing data in a series, as\n\
\ for an equivalent to the Prometheus \"staleness marker\".\n\
\\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\SOH\SOH\DC2\EOT\214\STX\STX\CAN\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\SOH\STX\DC2\EOT\214\STX\ESC\FS\n\
\\129\SOH\n\
\\STX\EOT\t\DC2\ACK\221\STX\NUL\135\ETX\SOH\SUBs NumberDataPoint is a single data point in a timeseries that describes the\n\
\ time-varying scalar value of a metric.\n\
\\n\
\\v\n\
\\ETX\EOT\t\SOH\DC2\EOT\221\STX\b\ETB\n\
\\161\SOH\n\
\\EOT\EOT\t\STX\NUL\DC2\EOT\224\STX\STXA\SUB\146\SOH The set of key/value pairs that uniquely identify the timeseries from\n\
\ where this point belongs. The list may be empty (may contain 0 elements).\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\EOT\DC2\EOT\224\STX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ACK\DC2\EOT\224\STX\v1\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\EOT\224\STX2<\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\EOT\224\STX?@\n\
\\182\ETX\n\
\\EOT\EOT\t\STX\SOH\DC2\EOT\234\STX\STXW\SUB\167\ETX Labels is deprecated and will be removed soon.\n\
\ 1. Old senders and receivers that are not aware of this change will\n\
\ continue using the `labels` field.\n\
\ 2. New senders, which are aware of this change MUST send only `attributes`.\n\
\ 3. New receivers, which are aware of this change MUST convert this into\n\
\ `labels` by simply converting all int64 values into float.\n\
\\n\
\ This field will be removed in ~3 months, on July 1, 2021.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\EOT\DC2\EOT\234\STX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\ACK\DC2\EOT\234\STX\v7\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\SOH\DC2\EOT\234\STX8>\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\ETX\DC2\EOT\234\STXAB\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\b\DC2\EOT\234\STXCV\n\
\\SO\n\
\\ACK\EOT\t\STX\SOH\b\ETX\DC2\EOT\234\STXDU\n\
\\197\SOH\n\
\\EOT\EOT\t\STX\STX\DC2\EOT\241\STX\STX#\SUB\182\SOH StartTimeUnixNano is optional but strongly encouraged, see the\n\
\ the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\STX\ENQ\DC2\EOT\241\STX\STX\t\n\
\\r\n\
\\ENQ\EOT\t\STX\STX\SOH\DC2\EOT\241\STX\n\
\\RS\n\
\\r\n\
\\ENQ\EOT\t\STX\STX\ETX\DC2\EOT\241\STX!\"\n\
\\163\SOH\n\
\\EOT\EOT\t\STX\ETX\DC2\EOT\247\STX\STX\GS\SUB\148\SOH TimeUnixNano is required, see the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\ETX\ENQ\DC2\EOT\247\STX\STX\t\n\
\\r\n\
\\ENQ\EOT\t\STX\ETX\SOH\DC2\EOT\247\STX\n\
\\CAN\n\
\\r\n\
\\ENQ\EOT\t\STX\ETX\ETX\DC2\EOT\247\STX\ESC\FS\n\
\\141\SOH\n\
\\EOT\EOT\t\b\NUL\DC2\ACK\251\STX\STX\254\STX\ETX\SUB} The value itself. A point is considered invalid when one of the recognized\n\
\ value fields is not present inside this oneof.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\b\NUL\SOH\DC2\EOT\251\STX\b\r\n\
\\f\n\
\\EOT\EOT\t\STX\EOT\DC2\EOT\252\STX\EOT\EM\n\
\\r\n\
\\ENQ\EOT\t\STX\EOT\ENQ\DC2\EOT\252\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\EOT\SOH\DC2\EOT\252\STX\v\DC4\n\
\\r\n\
\\ENQ\EOT\t\STX\EOT\ETX\DC2\EOT\252\STX\ETB\CAN\n\
\\f\n\
\\EOT\EOT\t\STX\ENQ\DC2\EOT\253\STX\EOT\CAN\n\
\\r\n\
\\ENQ\EOT\t\STX\ENQ\ENQ\DC2\EOT\253\STX\EOT\f\n\
\\r\n\
\\ENQ\EOT\t\STX\ENQ\SOH\DC2\EOT\253\STX\r\DC3\n\
\\r\n\
\\ENQ\EOT\t\STX\ENQ\ETX\DC2\EOT\253\STX\SYN\ETB\n\
\o\n\
\\EOT\EOT\t\STX\ACK\DC2\EOT\130\ETX\STX\"\SUBa (Optional) List of exemplars collected from\n\
\ measurements that were used to form the data point\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\ACK\EOT\DC2\EOT\130\ETX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\ACK\ACK\DC2\EOT\130\ETX\v\DC3\n\
\\r\n\
\\ENQ\EOT\t\STX\ACK\SOH\DC2\EOT\130\ETX\DC4\GS\n\
\\r\n\
\\ENQ\EOT\t\STX\ACK\ETX\DC2\EOT\130\ETX !\n\
\}\n\
\\EOT\EOT\t\STX\a\DC2\EOT\134\ETX\STX\DC3\SUBo Flags that apply to this specific data point. See DataPointFlags\n\
\ for the available flags and their meaning.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\a\ENQ\DC2\EOT\134\ETX\STX\b\n\
\\r\n\
\\ENQ\EOT\t\STX\a\SOH\DC2\EOT\134\ETX\t\SO\n\
\\r\n\
\\ENQ\EOT\t\STX\a\ETX\DC2\EOT\134\ETX\DC1\DC2\n\
\\196\EOT\n\
\\STX\EOT\n\
\\DC2\ACK\147\ETX\NUL\221\ETX\SOH\SUB\181\EOT HistogramDataPoint is a single data point in a timeseries that describes the\n\
\ time-varying values of a Histogram. A Histogram contains summary statistics\n\
\ for a population of values, it may optionally contain the distribution of\n\
\ those values across a set of buckets.\n\
\\n\
\ If the histogram contains the distribution of values, then both\n\
\ \"explicit_bounds\" and \"bucket counts\" fields must be defined.\n\
\ If the histogram does not contain the distribution of values, then both\n\
\ \"explicit_bounds\" and \"bucket_counts\" must be omitted and only \"count\" and\n\
\ \"sum\" are known.\n\
\\n\
\\v\n\
\\ETX\EOT\n\
\\SOH\DC2\EOT\147\ETX\b\SUB\n\
\\161\SOH\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\EOT\150\ETX\STXA\SUB\146\SOH The set of key/value pairs that uniquely identify the timeseries from\n\
\ where this point belongs. The list may be empty (may contain 0 elements).\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\EOT\DC2\EOT\150\ETX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ACK\DC2\EOT\150\ETX\v1\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\EOT\150\ETX2<\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\EOT\150\ETX?@\n\
\\182\ETX\n\
\\EOT\EOT\n\
\\STX\SOH\DC2\EOT\160\ETX\STXW\SUB\167\ETX Labels is deprecated and will be removed soon.\n\
\ 1. Old senders and receivers that are not aware of this change will\n\
\ continue using the `labels` field.\n\
\ 2. New senders, which are aware of this change MUST send only `attributes`.\n\
\ 3. New receivers, which are aware of this change MUST convert this into\n\
\ `labels` by simply converting all int64 values into float.\n\
\\n\
\ This field will be removed in ~3 months, on July 1, 2021.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\EOT\DC2\EOT\160\ETX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\ACK\DC2\EOT\160\ETX\v7\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\SOH\DC2\EOT\160\ETX8>\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\ETX\DC2\EOT\160\ETXAB\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\b\DC2\EOT\160\ETXCV\n\
\\SO\n\
\\ACK\EOT\n\
\\STX\SOH\b\ETX\DC2\EOT\160\ETXDU\n\
\\197\SOH\n\
\\EOT\EOT\n\
\\STX\STX\DC2\EOT\167\ETX\STX#\SUB\182\SOH StartTimeUnixNano is optional but strongly encouraged, see the\n\
\ the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\ENQ\DC2\EOT\167\ETX\STX\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\SOH\DC2\EOT\167\ETX\n\
\\RS\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\ETX\DC2\EOT\167\ETX!\"\n\
\\163\SOH\n\
\\EOT\EOT\n\
\\STX\ETX\DC2\EOT\173\ETX\STX\GS\SUB\148\SOH TimeUnixNano is required, see the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\ENQ\DC2\EOT\173\ETX\STX\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\SOH\DC2\EOT\173\ETX\n\
\\CAN\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\ETX\DC2\EOT\173\ETX\ESC\FS\n\
\\186\SOH\n\
\\EOT\EOT\n\
\\STX\EOT\DC2\EOT\178\ETX\STX\DC4\SUB\171\SOH count is the number of values in the population. Must be non-negative. This\n\
\ value must be equal to the sum of the \"count\" fields in buckets if a\n\
\ histogram is provided.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\ENQ\DC2\EOT\178\ETX\STX\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\SOH\DC2\EOT\178\ETX\n\
\\SI\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\ETX\DC2\EOT\178\ETX\DC2\DC3\n\
\\245\ETX\n\
\\EOT\EOT\n\
\\STX\ENQ\DC2\EOT\188\ETX\STX\DC1\SUB\230\ETX sum of the values in the population. If count is zero then this field\n\
\ must be zero.\n\
\\n\
\ Note: Sum should only be filled out when measuring non-negative discrete\n\
\ events, and is assumed to be monotonic over the values of these events.\n\
\ Negative events *can* be recorded, but sum should not be filled out when\n\
\ doing so. This is specifically to enforce compatibility w/ OpenMetrics,\n\
\ see: https://github.com/OpenObservability/OpenMetrics/blob/main/specification/OpenMetrics.md#histogram\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ENQ\ENQ\DC2\EOT\188\ETX\STX\b\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ENQ\SOH\DC2\EOT\188\ETX\t\f\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ENQ\ETX\DC2\EOT\188\ETX\SI\DLE\n\
\\178\STX\n\
\\EOT\EOT\n\
\\STX\ACK\DC2\EOT\197\ETX\STX%\SUB\163\STX bucket_counts is an optional field contains the count values of histogram\n\
\ for each bucket.\n\
\\n\
\ The sum of the bucket_counts must equal the value in the count field.\n\
\\n\
\ The number of elements in bucket_counts array must be by one greater than\n\
\ the number of elements in explicit_bounds array.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ACK\EOT\DC2\EOT\197\ETX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ACK\ENQ\DC2\EOT\197\ETX\v\DC2\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ACK\SOH\DC2\EOT\197\ETX\DC3 \n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ACK\ETX\DC2\EOT\197\ETX#$\n\
\\215\EOT\n\
\\EOT\EOT\n\
\\STX\a\DC2\EOT\212\ETX\STX&\SUB\200\EOT explicit_bounds specifies buckets with explicitly defined bounds for values.\n\
\\n\
\ The boundaries for bucket at index i are:\n\
\\n\
\ (-infinity, explicit_bounds[i]] for i == 0\n\
\ (explicit_bounds[i-1], explicit_bounds[i]] for 0 < i < size(explicit_bounds)\n\
\ (explicit_bounds[i-1], +infinity) for i == size(explicit_bounds)\n\
\\n\
\ The values in the explicit_bounds array must be strictly increasing.\n\
\\n\
\ Histogram buckets are inclusive of their upper boundary, except the last\n\
\ bucket where the boundary is at infinity. This format is intentionally\n\
\ compatible with the OpenMetrics histogram definition.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\a\EOT\DC2\EOT\212\ETX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\a\ENQ\DC2\EOT\212\ETX\v\DC1\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\a\SOH\DC2\EOT\212\ETX\DC2!\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\a\ETX\DC2\EOT\212\ETX$%\n\
\o\n\
\\EOT\EOT\n\
\\STX\b\DC2\EOT\216\ETX\STX\"\SUBa (Optional) List of exemplars collected from\n\
\ measurements that were used to form the data point\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\b\EOT\DC2\EOT\216\ETX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\b\ACK\DC2\EOT\216\ETX\v\DC3\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\b\SOH\DC2\EOT\216\ETX\DC4\GS\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\b\ETX\DC2\EOT\216\ETX !\n\
\}\n\
\\EOT\EOT\n\
\\STX\t\DC2\EOT\220\ETX\STX\DC4\SUBo Flags that apply to this specific data point. See DataPointFlags\n\
\ for the available flags and their meaning.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\t\ENQ\DC2\EOT\220\ETX\STX\b\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\t\SOH\DC2\EOT\220\ETX\t\SO\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\t\ETX\DC2\EOT\220\ETX\DC1\DC3\n\
\\207\STX\n\
\\STX\EOT\v\DC2\ACK\228\ETX\NUL\193\EOT\SOH\SUB\192\STX ExponentialHistogramDataPoint is a single data point in a timeseries that describes the\n\
\ time-varying values of a ExponentialHistogram of double values. A ExponentialHistogram contains\n\
\ summary statistics for a population of values, it may optionally contain the\n\
\ distribution of those values across a set of buckets.\n\
\\n\
\\n\
\\v\n\
\\ETX\EOT\v\SOH\DC2\EOT\228\ETX\b%\n\
\\161\SOH\n\
\\EOT\EOT\v\STX\NUL\DC2\EOT\231\ETX\STXA\SUB\146\SOH The set of key/value pairs that uniquely identify the timeseries from\n\
\ where this point belongs. The list may be empty (may contain 0 elements).\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\EOT\DC2\EOT\231\ETX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ACK\DC2\EOT\231\ETX\v1\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\231\ETX2<\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\231\ETX?@\n\
\\197\SOH\n\
\\EOT\EOT\v\STX\SOH\DC2\EOT\238\ETX\STX#\SUB\182\SOH StartTimeUnixNano is optional but strongly encouraged, see the\n\
\ the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ENQ\DC2\EOT\238\ETX\STX\t\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\SOH\DC2\EOT\238\ETX\n\
\\RS\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ETX\DC2\EOT\238\ETX!\"\n\
\\163\SOH\n\
\\EOT\EOT\v\STX\STX\DC2\EOT\244\ETX\STX\GS\SUB\148\SOH TimeUnixNano is required, see the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\ENQ\DC2\EOT\244\ETX\STX\t\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\SOH\DC2\EOT\244\ETX\n\
\\CAN\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\ETX\DC2\EOT\244\ETX\ESC\FS\n\
\\221\SOH\n\
\\EOT\EOT\v\STX\ETX\DC2\EOT\249\ETX\STX\DC4\SUB\206\SOH count is the number of values in the population. Must be\n\
\ non-negative. This value must be equal to the sum of the \"bucket_counts\"\n\
\ values in the positive and negative Buckets plus the \"zero_count\" field.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\ENQ\DC2\EOT\249\ETX\STX\t\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\SOH\DC2\EOT\249\ETX\n\
\\SI\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\ETX\DC2\EOT\249\ETX\DC2\DC3\n\
\\245\ETX\n\
\\EOT\EOT\v\STX\EOT\DC2\EOT\131\EOT\STX\DC1\SUB\230\ETX sum of the values in the population. If count is zero then this field\n\
\ must be zero.\n\
\\n\
\ Note: Sum should only be filled out when measuring non-negative discrete\n\
\ events, and is assumed to be monotonic over the values of these events.\n\
\ Negative events *can* be recorded, but sum should not be filled out when\n\
\ doing so. This is specifically to enforce compatibility w/ OpenMetrics,\n\
\ see: https://github.com/OpenObservability/OpenMetrics/blob/main/specification/OpenMetrics.md#histogram\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\EOT\ENQ\DC2\EOT\131\EOT\STX\b\n\
\\r\n\
\\ENQ\EOT\v\STX\EOT\SOH\DC2\EOT\131\EOT\t\f\n\
\\r\n\
\\ENQ\EOT\v\STX\EOT\ETX\DC2\EOT\131\EOT\SI\DLE\n\
\\226\EOT\n\
\\EOT\EOT\v\STX\ENQ\DC2\EOT\148\EOT\STX\DC3\SUB\211\EOT scale describes the resolution of the histogram. Boundaries are\n\
\ located at powers of the base, where:\n\
\\n\
\ base = (2^(2^-scale))\n\
\\n\
\ The histogram bucket identified by `index`, a signed integer,\n\
\ contains values that are greater than or equal to (base^index) and\n\
\ less than (base^(index+1)).\n\
\\n\
\ The positive and negative ranges of the histogram are expressed\n\
\ separately. Negative values are mapped by their absolute value\n\
\ into the negative range using the same scale as the positive range.\n\
\\n\
\ scale is not restricted by the protocol, as the permissible\n\
\ values depend on the range of the data.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\ENQ\ENQ\DC2\EOT\148\EOT\STX\b\n\
\\r\n\
\\ENQ\EOT\v\STX\ENQ\SOH\DC2\EOT\148\EOT\t\SO\n\
\\r\n\
\\ENQ\EOT\v\STX\ENQ\ETX\DC2\EOT\148\EOT\DC1\DC2\n\
\\170\ETX\n\
\\EOT\EOT\v\STX\ACK\DC2\EOT\158\EOT\STX\EM\SUB\155\ETX zero_count is the count of values that are either exactly zero or\n\
\ within the region considered zero by the instrumentation at the\n\
\ tolerated degree of precision. This bucket stores values that\n\
\ cannot be expressed using the standard exponential formula as\n\
\ well as values that have been rounded to zero.\n\
\\n\
\ Implementations MAY consider the zero bucket to have probability\n\
\ mass equal to (zero_count / count).\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\ACK\ENQ\DC2\EOT\158\EOT\STX\t\n\
\\r\n\
\\ENQ\EOT\v\STX\ACK\SOH\DC2\EOT\158\EOT\n\
\\DC4\n\
\\r\n\
\\ENQ\EOT\v\STX\ACK\ETX\DC2\EOT\158\EOT\ETB\CAN\n\
\Q\n\
\\EOT\EOT\v\STX\a\DC2\EOT\161\EOT\STX\ETB\SUBC positive carries the positive range of exponential bucket counts.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\a\ACK\DC2\EOT\161\EOT\STX\t\n\
\\r\n\
\\ENQ\EOT\v\STX\a\SOH\DC2\EOT\161\EOT\n\
\\DC2\n\
\\r\n\
\\ENQ\EOT\v\STX\a\ETX\DC2\EOT\161\EOT\NAK\SYN\n\
\Q\n\
\\EOT\EOT\v\STX\b\DC2\EOT\164\EOT\STX\ETB\SUBC negative carries the negative range of exponential bucket counts.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\b\ACK\DC2\EOT\164\EOT\STX\t\n\
\\r\n\
\\ENQ\EOT\v\STX\b\SOH\DC2\EOT\164\EOT\n\
\\DC2\n\
\\r\n\
\\ENQ\EOT\v\STX\b\ETX\DC2\EOT\164\EOT\NAK\SYN\n\
\_\n\
\\EOT\EOT\v\ETX\NUL\DC2\ACK\168\EOT\STX\184\EOT\ETX\SUBO Buckets are a set of bucket counts, encoded in a contiguous array\n\
\ of counts.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\ETX\NUL\SOH\DC2\EOT\168\EOT\n\
\\DC1\n\
\\162\SOH\n\
\\ACK\EOT\v\ETX\NUL\STX\NUL\DC2\EOT\172\EOT\EOT\SYN\SUB\145\SOH Offset is the bucket index of the first entry in the bucket_counts array.\n\
\ \n\
\ Note: This uses a varint encoding as a simple form of compression.\n\
\\n\
\\SI\n\
\\a\EOT\v\ETX\NUL\STX\NUL\ENQ\DC2\EOT\172\EOT\EOT\n\
\\n\
\\SI\n\
\\a\EOT\v\ETX\NUL\STX\NUL\SOH\DC2\EOT\172\EOT\v\DC1\n\
\\SI\n\
\\a\EOT\v\ETX\NUL\STX\NUL\ETX\DC2\EOT\172\EOT\DC4\NAK\n\
\\158\ETX\n\
\\ACK\EOT\v\ETX\NUL\STX\SOH\DC2\EOT\183\EOT\EOT&\SUB\141\ETX Count is an array of counts, where count[i] carries the count\n\
\ of the bucket at index (offset+i). count[i] is the count of\n\
\ values greater than or equal to base^(offset+i) and less than\n\
\ base^(offset+i+1).\n\
\\n\
\ Note: By contrast, the explicit HistogramDataPoint uses\n\
\ fixed64. This field is expected to have many buckets,\n\
\ especially zeros, so uint64 has been selected to ensure\n\
\ varint encoding.\n\
\\n\
\\SI\n\
\\a\EOT\v\ETX\NUL\STX\SOH\EOT\DC2\EOT\183\EOT\EOT\f\n\
\\SI\n\
\\a\EOT\v\ETX\NUL\STX\SOH\ENQ\DC2\EOT\183\EOT\r\DC3\n\
\\SI\n\
\\a\EOT\v\ETX\NUL\STX\SOH\SOH\DC2\EOT\183\EOT\DC4!\n\
\\SI\n\
\\a\EOT\v\ETX\NUL\STX\SOH\ETX\DC2\EOT\183\EOT$%\n\
\}\n\
\\EOT\EOT\v\STX\t\DC2\EOT\188\EOT\STX\DC4\SUBo Flags that apply to this specific data point. See DataPointFlags\n\
\ for the available flags and their meaning.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\t\ENQ\DC2\EOT\188\EOT\STX\b\n\
\\r\n\
\\ENQ\EOT\v\STX\t\SOH\DC2\EOT\188\EOT\t\SO\n\
\\r\n\
\\ENQ\EOT\v\STX\t\ETX\DC2\EOT\188\EOT\DC1\DC3\n\
\o\n\
\\EOT\EOT\v\STX\n\
\\DC2\EOT\192\EOT\STX#\SUBa (Optional) List of exemplars collected from\n\
\ measurements that were used to form the data point\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\n\
\\EOT\DC2\EOT\192\EOT\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\n\
\\ACK\DC2\EOT\192\EOT\v\DC3\n\
\\r\n\
\\ENQ\EOT\v\STX\n\
\\SOH\DC2\EOT\192\EOT\DC4\GS\n\
\\r\n\
\\ENQ\EOT\v\STX\n\
\\ETX\DC2\EOT\192\EOT \"\n\
\\132\SOH\n\
\\STX\EOT\f\DC2\ACK\197\EOT\NUL\136\ENQ\SOH\SUBv SummaryDataPoint is a single data point in a timeseries that describes the\n\
\ time-varying values of a Summary metric.\n\
\\n\
\\v\n\
\\ETX\EOT\f\SOH\DC2\EOT\197\EOT\b\CAN\n\
\\161\SOH\n\
\\EOT\EOT\f\STX\NUL\DC2\EOT\200\EOT\STXA\SUB\146\SOH The set of key/value pairs that uniquely identify the timeseries from\n\
\ where this point belongs. The list may be empty (may contain 0 elements).\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\EOT\DC2\EOT\200\EOT\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ACK\DC2\EOT\200\EOT\v1\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\200\EOT2<\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\200\EOT?@\n\
\\182\ETX\n\
\\EOT\EOT\f\STX\SOH\DC2\EOT\210\EOT\STXW\SUB\167\ETX Labels is deprecated and will be removed soon.\n\
\ 1. Old senders and receivers that are not aware of this change will\n\
\ continue using the `labels` field.\n\
\ 2. New senders, which are aware of this change MUST send only `attributes`.\n\
\ 3. New receivers, which are aware of this change MUST convert this into\n\
\ `labels` by simply converting all int64 values into float.\n\
\\n\
\ This field will be removed in ~3 months, on July 1, 2021.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\EOT\DC2\EOT\210\EOT\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ACK\DC2\EOT\210\EOT\v7\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\210\EOT8>\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\210\EOTAB\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\b\DC2\EOT\210\EOTCV\n\
\\SO\n\
\\ACK\EOT\f\STX\SOH\b\ETX\DC2\EOT\210\EOTDU\n\
\\197\SOH\n\
\\EOT\EOT\f\STX\STX\DC2\EOT\217\EOT\STX#\SUB\182\SOH StartTimeUnixNano is optional but strongly encouraged, see the\n\
\ the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\ENQ\DC2\EOT\217\EOT\STX\t\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\SOH\DC2\EOT\217\EOT\n\
\\RS\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\ETX\DC2\EOT\217\EOT!\"\n\
\\163\SOH\n\
\\EOT\EOT\f\STX\ETX\DC2\EOT\223\EOT\STX\GS\SUB\148\SOH TimeUnixNano is required, see the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\ENQ\DC2\EOT\223\EOT\STX\t\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\SOH\DC2\EOT\223\EOT\n\
\\CAN\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\ETX\DC2\EOT\223\EOT\ESC\FS\n\
\V\n\
\\EOT\EOT\f\STX\EOT\DC2\EOT\226\EOT\STX\DC4\SUBH count is the number of values in the population. Must be non-negative.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\EOT\ENQ\DC2\EOT\226\EOT\STX\t\n\
\\r\n\
\\ENQ\EOT\f\STX\EOT\SOH\DC2\EOT\226\EOT\n\
\\SI\n\
\\r\n\
\\ENQ\EOT\f\STX\EOT\ETX\DC2\EOT\226\EOT\DC2\DC3\n\
\\243\ETX\n\
\\EOT\EOT\f\STX\ENQ\DC2\EOT\236\EOT\STX\DC1\SUB\228\ETX sum of the values in the population. If count is zero then this field\n\
\ must be zero.\n\
\\n\
\ Note: Sum should only be filled out when measuring non-negative discrete\n\
\ events, and is assumed to be monotonic over the values of these events.\n\
\ Negative events *can* be recorded, but sum should not be filled out when\n\
\ doing so. This is specifically to enforce compatibility w/ OpenMetrics,\n\
\ see: https://github.com/OpenObservability/OpenMetrics/blob/main/specification/OpenMetrics.md#summary\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\ENQ\ENQ\DC2\EOT\236\EOT\STX\b\n\
\\r\n\
\\ENQ\EOT\f\STX\ENQ\SOH\DC2\EOT\236\EOT\t\f\n\
\\r\n\
\\ENQ\EOT\f\STX\ENQ\ETX\DC2\EOT\236\EOT\SI\DLE\n\
\\253\STX\n\
\\EOT\EOT\f\ETX\NUL\DC2\ACK\246\EOT\STX\255\EOT\ETX\SUB\236\STX Represents the value at a given quantile of a distribution.\n\
\\n\
\ To record Min and Max values following conventions are used:\n\
\ - The 1.0 quantile is equivalent to the maximum value observed.\n\
\ - The 0.0 quantile is equivalent to the minimum value observed.\n\
\\n\
\ See the following issue for more context:\n\
\ https://github.com/open-telemetry/opentelemetry-proto/issues/125\n\
\\n\
\\r\n\
\\ENQ\EOT\f\ETX\NUL\SOH\DC2\EOT\246\EOT\n\
\\EM\n\
\V\n\
\\ACK\EOT\f\ETX\NUL\STX\NUL\DC2\EOT\249\EOT\EOT\CAN\SUBF The quantile of a distribution. Must be in the interval\n\
\ [0.0, 1.0].\n\
\\n\
\\SI\n\
\\a\EOT\f\ETX\NUL\STX\NUL\ENQ\DC2\EOT\249\EOT\EOT\n\
\\n\
\\SI\n\
\\a\EOT\f\ETX\NUL\STX\NUL\SOH\DC2\EOT\249\EOT\v\DC3\n\
\\SI\n\
\\a\EOT\f\ETX\NUL\STX\NUL\ETX\DC2\EOT\249\EOT\SYN\ETB\n\
\l\n\
\\ACK\EOT\f\ETX\NUL\STX\SOH\DC2\EOT\254\EOT\EOT\NAK\SUB\\ The value at the given quantile of a distribution.\n\
\\n\
\ Quantile values must NOT be negative.\n\
\\n\
\\SI\n\
\\a\EOT\f\ETX\NUL\STX\SOH\ENQ\DC2\EOT\254\EOT\EOT\n\
\\n\
\\SI\n\
\\a\EOT\f\ETX\NUL\STX\SOH\SOH\DC2\EOT\254\EOT\v\DLE\n\
\\SI\n\
\\a\EOT\f\ETX\NUL\STX\SOH\ETX\DC2\EOT\254\EOT\DC3\DC4\n\
\\167\SOH\n\
\\EOT\EOT\f\STX\ACK\DC2\EOT\131\ENQ\STX/\SUB\152\SOH (Optional) list of values at different quantiles of the distribution calculated\n\
\ from the current snapshot. The quantiles must be strictly increasing.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\EOT\DC2\EOT\131\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\ACK\DC2\EOT\131\ENQ\v\SUB\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\SOH\DC2\EOT\131\ENQ\ESC*\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\ETX\DC2\EOT\131\ENQ-.\n\
\}\n\
\\EOT\EOT\f\STX\a\DC2\EOT\135\ENQ\STX\DC3\SUBo Flags that apply to this specific data point. See DataPointFlags\n\
\ for the available flags and their meaning.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\a\ENQ\DC2\EOT\135\ENQ\STX\b\n\
\\r\n\
\\ENQ\EOT\f\STX\a\SOH\DC2\EOT\135\ENQ\t\SO\n\
\\r\n\
\\ENQ\EOT\f\STX\a\ETX\DC2\EOT\135\ENQ\DC1\DC2\n\
\\135\STX\n\
\\STX\EOT\r\DC2\ACK\142\ENQ\NUL\182\ENQ\SOH\SUB\248\SOH A representation of an exemplar, which is a sample input measurement.\n\
\ Exemplars also hold information about the environment when the measurement\n\
\ was recorded, for example the span and trace ID of the active span when the\n\
\ exemplar was recorded.\n\
\\n\
\\v\n\
\\ETX\EOT\r\SOH\DC2\EOT\142\ENQ\b\DLE\n\
\\217\SOH\n\
\\EOT\EOT\r\STX\NUL\DC2\EOT\146\ENQ\STXJ\SUB\202\SOH The set of key/value pairs that were filtered out by the aggregator, but\n\
\ recorded alongside the original measurement. Only key/value pairs that were\n\
\ filtered out by the aggregator should be included\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\EOT\DC2\EOT\146\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ACK\DC2\EOT\146\ENQ\v1\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\SOH\DC2\EOT\146\ENQ2E\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ETX\DC2\EOT\146\ENQHI\n\
\\210\ETX\n\
\\EOT\EOT\r\STX\SOH\DC2\EOT\157\ENQ\STX`\SUB\195\ETX Labels is deprecated and will be removed soon.\n\
\ 1. Old senders and receivers that are not aware of this change will\n\
\ continue using the `filtered_labels` field.\n\
\ 2. New senders, which are aware of this change MUST send only\n\
\ `filtered_attributes`.\n\
\ 3. New receivers, which are aware of this change MUST convert this into\n\
\ `filtered_labels` by simply converting all int64 values into float.\n\
\\n\
\ This field will be removed in ~3 months, on July 1, 2021.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\EOT\DC2\EOT\157\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\ACK\DC2\EOT\157\ENQ\v7\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\SOH\DC2\EOT\157\ENQ8G\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\ETX\DC2\EOT\157\ENQJK\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\b\DC2\EOT\157\ENQL_\n\
\\SO\n\
\\ACK\EOT\r\STX\SOH\b\ETX\DC2\EOT\157\ENQM^\n\
\\162\SOH\n\
\\EOT\EOT\r\STX\STX\DC2\EOT\163\ENQ\STX\GS\SUB\147\SOH time_unix_nano is the exact time when this exemplar was recorded\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\ENQ\DC2\EOT\163\ENQ\STX\t\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\SOH\DC2\EOT\163\ENQ\n\
\\CAN\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\ETX\DC2\EOT\163\ENQ\ESC\FS\n\
\\176\SOH\n\
\\EOT\EOT\r\b\NUL\DC2\ACK\168\ENQ\STX\171\ENQ\ETX\SUB\159\SOH The value of the measurement that was recorded. An exemplar is\n\
\ considered invalid when one of the recognized value fields is not present\n\
\ inside this oneof.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\b\NUL\SOH\DC2\EOT\168\ENQ\b\r\n\
\\f\n\
\\EOT\EOT\r\STX\ETX\DC2\EOT\169\ENQ\EOT\EM\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\ENQ\DC2\EOT\169\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\SOH\DC2\EOT\169\ENQ\v\DC4\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\ETX\DC2\EOT\169\ENQ\ETB\CAN\n\
\\f\n\
\\EOT\EOT\r\STX\EOT\DC2\EOT\170\ENQ\EOT\CAN\n\
\\r\n\
\\ENQ\EOT\r\STX\EOT\ENQ\DC2\EOT\170\ENQ\EOT\f\n\
\\r\n\
\\ENQ\EOT\r\STX\EOT\SOH\DC2\EOT\170\ENQ\r\DC3\n\
\\r\n\
\\ENQ\EOT\r\STX\EOT\ETX\DC2\EOT\170\ENQ\SYN\ETB\n\
\\165\SOH\n\
\\EOT\EOT\r\STX\ENQ\DC2\EOT\176\ENQ\STX\DC4\SUB\150\SOH (Optional) Span ID of the exemplar trace.\n\
\ span_id may be missing if the measurement is not recorded inside a trace\n\
\ or if the trace is not sampled.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\ENQ\ENQ\DC2\EOT\176\ENQ\STX\a\n\
\\r\n\
\\ENQ\EOT\r\STX\ENQ\SOH\DC2\EOT\176\ENQ\b\SI\n\
\\r\n\
\\ENQ\EOT\r\STX\ENQ\ETX\DC2\EOT\176\ENQ\DC2\DC3\n\
\\167\SOH\n\
\\EOT\EOT\r\STX\ACK\DC2\EOT\181\ENQ\STX\NAK\SUB\152\SOH (Optional) Trace ID of the exemplar trace.\n\
\ trace_id may be missing if the measurement is not recorded inside a trace\n\
\ or if the trace is not sampled.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\ACK\ENQ\DC2\EOT\181\ENQ\STX\a\n\
\\r\n\
\\ENQ\EOT\r\STX\ACK\SOH\DC2\EOT\181\ENQ\b\DLE\n\
\\r\n\
\\ENQ\EOT\r\STX\ACK\ETX\DC2\EOT\181\ENQ\DC3\DC4\n\
\\DEL\n\
\\STX\EOT\SO\DC2\ACK\189\ENQ\NUL\214\ENQ\SOH\SUBC IntDataPoint is deprecated. Use integer value in NumberDataPoint.\n\
\2,\n\
\ Move deprecated messages below this line\n\
\\n\
\\n\
\\v\n\
\\ETX\EOT\SO\SOH\DC2\EOT\189\ENQ\b\DC4\n\
\\v\n\
\\ETX\EOT\SO\a\DC2\EOT\190\ENQ\STX\ESC\n\
\\f\n\
\\EOT\EOT\SO\a\ETX\DC2\EOT\190\ENQ\STX\ESC\n\
\I\n\
\\EOT\EOT\SO\STX\NUL\DC2\EOT\193\ENQ\STXC\SUB; The set of labels that uniquely identify this timeseries.\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\EOT\DC2\EOT\193\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ACK\DC2\EOT\193\ENQ\v7\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\SOH\DC2\EOT\193\ENQ8>\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ETX\DC2\EOT\193\ENQAB\n\
\\197\SOH\n\
\\EOT\EOT\SO\STX\SOH\DC2\EOT\200\ENQ\STX#\SUB\182\SOH StartTimeUnixNano is optional but strongly encouraged, see the\n\
\ the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\ENQ\DC2\EOT\200\ENQ\STX\t\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\SOH\DC2\EOT\200\ENQ\n\
\\RS\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\ETX\DC2\EOT\200\ENQ!\"\n\
\\163\SOH\n\
\\EOT\EOT\SO\STX\STX\DC2\EOT\206\ENQ\STX\GS\SUB\148\SOH TimeUnixNano is required, see the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\STX\ENQ\DC2\EOT\206\ENQ\STX\t\n\
\\r\n\
\\ENQ\EOT\SO\STX\STX\SOH\DC2\EOT\206\ENQ\n\
\\CAN\n\
\\r\n\
\\ENQ\EOT\SO\STX\STX\ETX\DC2\EOT\206\ENQ\ESC\FS\n\
\\GS\n\
\\EOT\EOT\SO\STX\ETX\DC2\EOT\209\ENQ\STX\NAK\SUB\SI value itself.\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\ETX\ENQ\DC2\EOT\209\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\ETX\SOH\DC2\EOT\209\ENQ\v\DLE\n\
\\r\n\
\\ENQ\EOT\SO\STX\ETX\ETX\DC2\EOT\209\ENQ\DC3\DC4\n\
\o\n\
\\EOT\EOT\SO\STX\EOT\DC2\EOT\213\ENQ\STX%\SUBa (Optional) List of exemplars collected from\n\
\ measurements that were used to form the data point\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\EOT\EOT\DC2\EOT\213\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\EOT\ACK\DC2\EOT\213\ENQ\v\SYN\n\
\\r\n\
\\ENQ\EOT\SO\STX\EOT\SOH\DC2\EOT\213\ENQ\ETB \n\
\\r\n\
\\ENQ\EOT\SO\STX\EOT\ETX\DC2\EOT\213\ENQ#$\n\
\\\\n\
\\STX\EOT\SI\DC2\ACK\217\ENQ\NUL\221\ENQ\SOH\SUBN IntGauge is deprecated. Use Gauge with an integer value in NumberDataPoint.\n\
\\n\
\\v\n\
\\ETX\EOT\SI\SOH\DC2\EOT\217\ENQ\b\DLE\n\
\\v\n\
\\ETX\EOT\SI\a\DC2\EOT\218\ENQ\STX\ESC\n\
\\f\n\
\\EOT\EOT\SI\a\ETX\DC2\EOT\218\ENQ\STX\ESC\n\
\\f\n\
\\EOT\EOT\SI\STX\NUL\DC2\EOT\220\ENQ\STX(\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\EOT\DC2\EOT\220\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\ACK\DC2\EOT\220\ENQ\v\ETB\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\220\ENQ\CAN#\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\220\ENQ&'\n\
\X\n\
\\STX\EOT\DLE\DC2\ACK\224\ENQ\NUL\235\ENQ\SOH\SUBJ IntSum is deprecated. Use Sum with an integer value in NumberDataPoint.\n\
\\n\
\\v\n\
\\ETX\EOT\DLE\SOH\DC2\EOT\224\ENQ\b\SO\n\
\\v\n\
\\ETX\EOT\DLE\a\DC2\EOT\225\ENQ\STX\ESC\n\
\\f\n\
\\EOT\EOT\DLE\a\ETX\DC2\EOT\225\ENQ\STX\ESC\n\
\\f\n\
\\EOT\EOT\DLE\STX\NUL\DC2\EOT\227\ENQ\STX(\n\
\\r\n\
\\ENQ\EOT\DLE\STX\NUL\EOT\DC2\EOT\227\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\DLE\STX\NUL\ACK\DC2\EOT\227\ENQ\v\ETB\n\
\\r\n\
\\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\227\ENQ\CAN#\n\
\\r\n\
\\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\227\ENQ&'\n\
\\163\SOH\n\
\\EOT\EOT\DLE\STX\SOH\DC2\EOT\231\ENQ\STX5\SUB\148\SOH aggregation_temporality describes if the aggregator reports delta changes\n\
\ since last report time, or cumulative changes since a fixed start time.\n\
\\n\
\\r\n\
\\ENQ\EOT\DLE\STX\SOH\ACK\DC2\EOT\231\ENQ\STX\CAN\n\
\\r\n\
\\ENQ\EOT\DLE\STX\SOH\SOH\DC2\EOT\231\ENQ\EM0\n\
\\r\n\
\\ENQ\EOT\DLE\STX\SOH\ETX\DC2\EOT\231\ENQ34\n\
\:\n\
\\EOT\EOT\DLE\STX\STX\DC2\EOT\234\ENQ\STX\CAN\SUB, If \"true\" means that the sum is monotonic.\n\
\\n\
\\r\n\
\\ENQ\EOT\DLE\STX\STX\ENQ\DC2\EOT\234\ENQ\STX\ACK\n\
\\r\n\
\\ENQ\EOT\DLE\STX\STX\SOH\DC2\EOT\234\ENQ\a\DC3\n\
\\r\n\
\\ENQ\EOT\DLE\STX\STX\ETX\DC2\EOT\234\ENQ\SYN\ETB\n\
\L\n\
\\STX\EOT\DC1\DC2\ACK\238\ENQ\NUL\166\ACK\SOH\SUB> IntHistogramDataPoint is deprecated; use HistogramDataPoint.\n\
\\n\
\\v\n\
\\ETX\EOT\DC1\SOH\DC2\EOT\238\ENQ\b\GS\n\
\\v\n\
\\ETX\EOT\DC1\a\DC2\EOT\239\ENQ\STX\ESC\n\
\\f\n\
\\EOT\EOT\DC1\a\ETX\DC2\EOT\239\ENQ\STX\ESC\n\
\I\n\
\\EOT\EOT\DC1\STX\NUL\DC2\EOT\242\ENQ\STXC\SUB; The set of labels that uniquely identify this timeseries.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\NUL\EOT\DC2\EOT\242\ENQ\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\NUL\ACK\DC2\EOT\242\ENQ\v7\n\
\\r\n\
\\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\242\ENQ8>\n\
\\r\n\
\\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\242\ENQAB\n\
\\197\SOH\n\
\\EOT\EOT\DC1\STX\SOH\DC2\EOT\249\ENQ\STX#\SUB\182\SOH StartTimeUnixNano is optional but strongly encouraged, see the\n\
\ the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SOH\ENQ\DC2\EOT\249\ENQ\STX\t\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\249\ENQ\n\
\\RS\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\249\ENQ!\"\n\
\\163\SOH\n\
\\EOT\EOT\DC1\STX\STX\DC2\EOT\255\ENQ\STX\GS\SUB\148\SOH TimeUnixNano is required, see the detailed comments above Metric.\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\STX\ENQ\DC2\EOT\255\ENQ\STX\t\n\
\\r\n\
\\ENQ\EOT\DC1\STX\STX\SOH\DC2\EOT\255\ENQ\n\
\\CAN\n\
\\r\n\
\\ENQ\EOT\DC1\STX\STX\ETX\DC2\EOT\255\ENQ\ESC\FS\n\
\\186\SOH\n\
\\EOT\EOT\DC1\STX\ETX\DC2\EOT\132\ACK\STX\DC4\SUB\171\SOH count is the number of values in the population. Must be non-negative. This\n\
\ value must be equal to the sum of the \"count\" fields in buckets if a\n\
\ histogram is provided.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ETX\ENQ\DC2\EOT\132\ACK\STX\t\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ETX\SOH\DC2\EOT\132\ACK\n\
\\SI\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ETX\ETX\DC2\EOT\132\ACK\DC2\DC3\n\
\\197\SOH\n\
\\EOT\EOT\DC1\STX\EOT\DC2\EOT\137\ACK\STX\DC3\SUB\182\SOH sum of the values in the population. If count is zero then this field\n\
\ must be zero. This value must be equal to the sum of the \"sum\" fields in\n\
\ buckets if a histogram is provided.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\EOT\ENQ\DC2\EOT\137\ACK\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\EOT\SOH\DC2\EOT\137\ACK\v\SO\n\
\\r\n\
\\ENQ\EOT\DC1\STX\EOT\ETX\DC2\EOT\137\ACK\DC1\DC2\n\
\\178\STX\n\
\\EOT\EOT\DC1\STX\ENQ\DC2\EOT\146\ACK\STX%\SUB\163\STX bucket_counts is an optional field contains the count values of histogram\n\
\ for each bucket.\n\
\\n\
\ The sum of the bucket_counts must equal the value in the count field.\n\
\\n\
\ The number of elements in bucket_counts array must be by one greater than\n\
\ the number of elements in explicit_bounds array.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ENQ\EOT\DC2\EOT\146\ACK\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ENQ\ENQ\DC2\EOT\146\ACK\v\DC2\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ENQ\SOH\DC2\EOT\146\ACK\DC3 \n\
\\r\n\
\\ENQ\EOT\DC1\STX\ENQ\ETX\DC2\EOT\146\ACK#$\n\
\\215\EOT\n\
\\EOT\EOT\DC1\STX\ACK\DC2\EOT\161\ACK\STX&\SUB\200\EOT explicit_bounds specifies buckets with explicitly defined bounds for values.\n\
\\n\
\ The boundaries for bucket at index i are:\n\
\\n\
\ (-infinity, explicit_bounds[i]] for i == 0\n\
\ (explicit_bounds[i-1], explicit_bounds[i]] for 0 < i < size(explicit_bounds)\n\
\ (explicit_bounds[i-1], +infinity) for i == size(explicit_bounds)\n\
\\n\
\ The values in the explicit_bounds array must be strictly increasing.\n\
\\n\
\ Histogram buckets are inclusive of their upper boundary, except the last\n\
\ bucket where the boundary is at infinity. This format is intentionally\n\
\ compatible with the OpenMetrics histogram definition.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ACK\EOT\DC2\EOT\161\ACK\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ACK\ENQ\DC2\EOT\161\ACK\v\DC1\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ACK\SOH\DC2\EOT\161\ACK\DC2!\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ACK\ETX\DC2\EOT\161\ACK$%\n\
\o\n\
\\EOT\EOT\DC1\STX\a\DC2\EOT\165\ACK\STX%\SUBa (Optional) List of exemplars collected from\n\
\ measurements that were used to form the data point\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\a\EOT\DC2\EOT\165\ACK\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\a\ACK\DC2\EOT\165\ACK\v\SYN\n\
\\r\n\
\\ENQ\EOT\DC1\STX\a\SOH\DC2\EOT\165\ACK\ETB \n\
\\r\n\
\\ENQ\EOT\DC1\STX\a\ETX\DC2\EOT\165\ACK#$\n\
\i\n\
\\STX\EOT\DC2\DC2\ACK\170\ACK\NUL\178\ACK\SOH\SUB[ IntHistogram is deprecated, replaced by Histogram points using double-\n\
\ valued exemplars.\n\
\\n\
\\v\n\
\\ETX\EOT\DC2\SOH\DC2\EOT\170\ACK\b\DC4\n\
\\v\n\
\\ETX\EOT\DC2\a\DC2\EOT\171\ACK\STX\ESC\n\
\\f\n\
\\EOT\EOT\DC2\a\ETX\DC2\EOT\171\ACK\STX\ESC\n\
\\f\n\
\\EOT\EOT\DC2\STX\NUL\DC2\EOT\173\ACK\STX1\n\
\\r\n\
\\ENQ\EOT\DC2\STX\NUL\EOT\DC2\EOT\173\ACK\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\DC2\STX\NUL\ACK\DC2\EOT\173\ACK\v \n\
\\r\n\
\\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\173\ACK!,\n\
\\r\n\
\\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\173\ACK/0\n\
\\163\SOH\n\
\\EOT\EOT\DC2\STX\SOH\DC2\EOT\177\ACK\STX5\SUB\148\SOH aggregation_temporality describes if the aggregator reports delta changes\n\
\ since last report time, or cumulative changes since a fixed start time.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC2\STX\SOH\ACK\DC2\EOT\177\ACK\STX\CAN\n\
\\r\n\
\\ENQ\EOT\DC2\STX\SOH\SOH\DC2\EOT\177\ACK\EM0\n\
\\r\n\
\\ENQ\EOT\DC2\STX\SOH\ETX\DC2\EOT\177\ACK34\n\
\M\n\
\\STX\EOT\DC3\DC2\ACK\181\ACK\NUL\207\ACK\SOH\SUB? IntExemplar is deprecated. Use Exemplar with as_int for value\n\
\\n\
\\v\n\
\\ETX\EOT\DC3\SOH\DC2\EOT\181\ACK\b\DC3\n\
\\v\n\
\\ETX\EOT\DC3\a\DC2\EOT\182\ACK\STX\ESC\n\
\\f\n\
\\EOT\EOT\DC3\a\ETX\DC2\EOT\182\ACK\STX\ESC\n\
\\199\SOH\n\
\\EOT\EOT\DC3\STX\NUL\DC2\EOT\187\ACK\STXL\SUB\184\SOH The set of labels that were filtered out by the aggregator, but recorded\n\
\ alongside the original measurement. Only labels that were filtered out\n\
\ by the aggregator should be included\n\
\\n\
\\r\n\
\\ENQ\EOT\DC3\STX\NUL\EOT\DC2\EOT\187\ACK\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\DC3\STX\NUL\ACK\DC2\EOT\187\ACK\v7\n\
\\r\n\
\\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\187\ACK8G\n\
\\r\n\
\\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\187\ACKJK\n\
\\162\SOH\n\
\\EOT\EOT\DC3\STX\SOH\DC2\EOT\193\ACK\STX\GS\SUB\147\SOH time_unix_nano is the exact time when this exemplar was recorded\n\
\\n\
\ Value is UNIX Epoch time in nanoseconds since 00:00:00 UTC on 1 January\n\
\ 1970.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC3\STX\SOH\ENQ\DC2\EOT\193\ACK\STX\t\n\
\\r\n\
\\ENQ\EOT\DC3\STX\SOH\SOH\DC2\EOT\193\ACK\n\
\\CAN\n\
\\r\n\
\\ENQ\EOT\DC3\STX\SOH\ETX\DC2\EOT\193\ACK\ESC\FS\n\
\I\n\
\\EOT\EOT\DC3\STX\STX\DC2\EOT\196\ACK\STX\NAK\SUB; Numerical int value of the measurement that was recorded.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC3\STX\STX\ENQ\DC2\EOT\196\ACK\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\DC3\STX\STX\SOH\DC2\EOT\196\ACK\v\DLE\n\
\\r\n\
\\ENQ\EOT\DC3\STX\STX\ETX\DC2\EOT\196\ACK\DC3\DC4\n\
\\165\SOH\n\
\\EOT\EOT\DC3\STX\ETX\DC2\EOT\201\ACK\STX\DC4\SUB\150\SOH (Optional) Span ID of the exemplar trace.\n\
\ span_id may be missing if the measurement is not recorded inside a trace\n\
\ or if the trace is not sampled.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC3\STX\ETX\ENQ\DC2\EOT\201\ACK\STX\a\n\
\\r\n\
\\ENQ\EOT\DC3\STX\ETX\SOH\DC2\EOT\201\ACK\b\SI\n\
\\r\n\
\\ENQ\EOT\DC3\STX\ETX\ETX\DC2\EOT\201\ACK\DC2\DC3\n\
\\167\SOH\n\
\\EOT\EOT\DC3\STX\EOT\DC2\EOT\206\ACK\STX\NAK\SUB\152\SOH (Optional) Trace ID of the exemplar trace.\n\
\ trace_id may be missing if the measurement is not recorded inside a trace\n\
\ or if the trace is not sampled.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC3\STX\EOT\ENQ\DC2\EOT\206\ACK\STX\a\n\
\\r\n\
\\ENQ\EOT\DC3\STX\EOT\SOH\DC2\EOT\206\ACK\b\DLE\n\
\\r\n\
\\ENQ\EOT\DC3\STX\EOT\ETX\DC2\EOT\206\ACK\DC3\DC4b\ACKproto3"