{- This file was auto-generated from opentelemetry/proto/metrics/v1/metrics.proto by the proto-lens-protoc program. -}
{-# 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__ ()
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.filteredAttributes' @:: Lens' Exemplar [Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'filteredAttributes' @:: Lens' Exemplar (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.filteredLabels' @:: Lens' Exemplar [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'filteredLabels' @:: Lens' Exemplar (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.timeUnixNano' @:: Lens' Exemplar Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.spanId' @:: Lens' Exemplar Data.ByteString.ByteString@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.traceId' @:: Lens' Exemplar Data.ByteString.ByteString@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'value' @:: Lens' Exemplar (Prelude.Maybe Exemplar'Value)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'asDouble' @:: Lens' Exemplar (Prelude.Maybe Prelude.Double)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.asDouble' @:: Lens' Exemplar Prelude.Double@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'asInt' @:: Lens' Exemplar (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.asInt' @:: Lens' Exemplar Data.Int.Int64@ -}
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)
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.dataPoints' @:: Lens' ExponentialHistogram [ExponentialHistogramDataPoint]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'dataPoints' @:: Lens' ExponentialHistogram (Data.Vector.Vector ExponentialHistogramDataPoint)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.aggregationTemporality' @:: Lens' ExponentialHistogram AggregationTemporality@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.attributes' @:: Lens' ExponentialHistogramDataPoint [Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'attributes' @:: Lens' ExponentialHistogramDataPoint (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.startTimeUnixNano' @:: Lens' ExponentialHistogramDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.timeUnixNano' @:: Lens' ExponentialHistogramDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.count' @:: Lens' ExponentialHistogramDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.sum' @:: Lens' ExponentialHistogramDataPoint Prelude.Double@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.scale' @:: Lens' ExponentialHistogramDataPoint Data.Int.Int32@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.zeroCount' @:: Lens' ExponentialHistogramDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.positive' @:: Lens' ExponentialHistogramDataPoint ExponentialHistogramDataPoint'Buckets@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'positive' @:: Lens' ExponentialHistogramDataPoint (Prelude.Maybe ExponentialHistogramDataPoint'Buckets)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.negative' @:: Lens' ExponentialHistogramDataPoint ExponentialHistogramDataPoint'Buckets@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'negative' @:: Lens' ExponentialHistogramDataPoint (Prelude.Maybe ExponentialHistogramDataPoint'Buckets)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.flags' @:: Lens' ExponentialHistogramDataPoint Data.Word.Word32@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.exemplars' @:: Lens' ExponentialHistogramDataPoint [Exemplar]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'exemplars' @:: Lens' ExponentialHistogramDataPoint (Data.Vector.Vector Exemplar)@ -}
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__)
                                              ())))))))))))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.offset' @:: Lens' ExponentialHistogramDataPoint'Buckets Data.Int.Int32@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.bucketCounts' @:: Lens' ExponentialHistogramDataPoint'Buckets [Data.Word.Word64]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'bucketCounts' @:: Lens' ExponentialHistogramDataPoint'Buckets (Data.Vector.Unboxed.Vector Data.Word.Word64)@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.dataPoints' @:: Lens' Gauge [NumberDataPoint]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'dataPoints' @:: Lens' Gauge (Data.Vector.Vector NumberDataPoint)@ -}
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__) ())
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.dataPoints' @:: Lens' Histogram [HistogramDataPoint]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'dataPoints' @:: Lens' Histogram (Data.Vector.Vector HistogramDataPoint)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.aggregationTemporality' @:: Lens' Histogram AggregationTemporality@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.attributes' @:: Lens' HistogramDataPoint [Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'attributes' @:: Lens' HistogramDataPoint (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.labels' @:: Lens' HistogramDataPoint [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'labels' @:: Lens' HistogramDataPoint (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.startTimeUnixNano' @:: Lens' HistogramDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.timeUnixNano' @:: Lens' HistogramDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.count' @:: Lens' HistogramDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.sum' @:: Lens' HistogramDataPoint Prelude.Double@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.bucketCounts' @:: Lens' HistogramDataPoint [Data.Word.Word64]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'bucketCounts' @:: Lens' HistogramDataPoint (Data.Vector.Unboxed.Vector Data.Word.Word64)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.explicitBounds' @:: Lens' HistogramDataPoint [Prelude.Double]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'explicitBounds' @:: Lens' HistogramDataPoint (Data.Vector.Unboxed.Vector Prelude.Double)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.exemplars' @:: Lens' HistogramDataPoint [Exemplar]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'exemplars' @:: Lens' HistogramDataPoint (Data.Vector.Vector Exemplar)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.flags' @:: Lens' HistogramDataPoint Data.Word.Word32@ -}
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__) ()))))))))))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.instrumentationLibrary' @:: Lens' InstrumentationLibraryMetrics Proto.Opentelemetry.Proto.Common.V1.Common.InstrumentationLibrary@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'instrumentationLibrary' @:: Lens' InstrumentationLibraryMetrics (Prelude.Maybe Proto.Opentelemetry.Proto.Common.V1.Common.InstrumentationLibrary)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.metrics' @:: Lens' InstrumentationLibraryMetrics [Metric]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'metrics' @:: Lens' InstrumentationLibraryMetrics (Data.Vector.Vector Metric)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.schemaUrl' @:: Lens' InstrumentationLibraryMetrics Data.Text.Text@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.labels' @:: Lens' IntDataPoint [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'labels' @:: Lens' IntDataPoint (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.startTimeUnixNano' @:: Lens' IntDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.timeUnixNano' @:: Lens' IntDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.value' @:: Lens' IntDataPoint Data.Int.Int64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.exemplars' @:: Lens' IntDataPoint [IntExemplar]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'exemplars' @:: Lens' IntDataPoint (Data.Vector.Vector IntExemplar)@ -}
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__) ())))))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.filteredLabels' @:: Lens' IntExemplar [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'filteredLabels' @:: Lens' IntExemplar (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.timeUnixNano' @:: Lens' IntExemplar Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.value' @:: Lens' IntExemplar Data.Int.Int64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.spanId' @:: Lens' IntExemplar Data.ByteString.ByteString@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.traceId' @:: Lens' IntExemplar Data.ByteString.ByteString@ -}
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__) ())))))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.dataPoints' @:: Lens' IntGauge [IntDataPoint]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'dataPoints' @:: Lens' IntGauge (Data.Vector.Vector IntDataPoint)@ -}
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__) ())
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.dataPoints' @:: Lens' IntHistogram [IntHistogramDataPoint]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'dataPoints' @:: Lens' IntHistogram (Data.Vector.Vector IntHistogramDataPoint)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.aggregationTemporality' @:: Lens' IntHistogram AggregationTemporality@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.labels' @:: Lens' IntHistogramDataPoint [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'labels' @:: Lens' IntHistogramDataPoint (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.startTimeUnixNano' @:: Lens' IntHistogramDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.timeUnixNano' @:: Lens' IntHistogramDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.count' @:: Lens' IntHistogramDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.sum' @:: Lens' IntHistogramDataPoint Data.Int.Int64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.bucketCounts' @:: Lens' IntHistogramDataPoint [Data.Word.Word64]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'bucketCounts' @:: Lens' IntHistogramDataPoint (Data.Vector.Unboxed.Vector Data.Word.Word64)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.explicitBounds' @:: Lens' IntHistogramDataPoint [Prelude.Double]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'explicitBounds' @:: Lens' IntHistogramDataPoint (Data.Vector.Unboxed.Vector Prelude.Double)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.exemplars' @:: Lens' IntHistogramDataPoint [IntExemplar]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'exemplars' @:: Lens' IntHistogramDataPoint (Data.Vector.Vector IntExemplar)@ -}
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__) ()))))))))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.dataPoints' @:: Lens' IntSum [IntDataPoint]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'dataPoints' @:: Lens' IntSum (Data.Vector.Vector IntDataPoint)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.aggregationTemporality' @:: Lens' IntSum AggregationTemporality@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.isMonotonic' @:: Lens' IntSum Prelude.Bool@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.name' @:: Lens' Metric Data.Text.Text@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.description' @:: Lens' Metric Data.Text.Text@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.unit' @:: Lens' Metric Data.Text.Text@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'data'' @:: Lens' Metric (Prelude.Maybe Metric'Data)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'intGauge' @:: Lens' Metric (Prelude.Maybe IntGauge)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.intGauge' @:: Lens' Metric IntGauge@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'gauge' @:: Lens' Metric (Prelude.Maybe Gauge)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.gauge' @:: Lens' Metric Gauge@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'intSum' @:: Lens' Metric (Prelude.Maybe IntSum)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.intSum' @:: Lens' Metric IntSum@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'sum' @:: Lens' Metric (Prelude.Maybe Sum)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.sum' @:: Lens' Metric Sum@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'intHistogram' @:: Lens' Metric (Prelude.Maybe IntHistogram)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.intHistogram' @:: Lens' Metric IntHistogram@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'histogram' @:: Lens' Metric (Prelude.Maybe Histogram)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.histogram' @:: Lens' Metric Histogram@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'exponentialHistogram' @:: Lens' Metric (Prelude.Maybe ExponentialHistogram)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.exponentialHistogram' @:: Lens' Metric ExponentialHistogram@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'summary' @:: Lens' Metric (Prelude.Maybe Summary)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.summary' @:: Lens' Metric Summary@ -}
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)
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.resourceMetrics' @:: Lens' MetricsData [ResourceMetrics]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'resourceMetrics' @:: Lens' MetricsData (Data.Vector.Vector ResourceMetrics)@ -}
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__) ())
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.attributes' @:: Lens' NumberDataPoint [Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'attributes' @:: Lens' NumberDataPoint (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.labels' @:: Lens' NumberDataPoint [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'labels' @:: Lens' NumberDataPoint (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.startTimeUnixNano' @:: Lens' NumberDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.timeUnixNano' @:: Lens' NumberDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.exemplars' @:: Lens' NumberDataPoint [Exemplar]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'exemplars' @:: Lens' NumberDataPoint (Data.Vector.Vector Exemplar)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.flags' @:: Lens' NumberDataPoint Data.Word.Word32@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'value' @:: Lens' NumberDataPoint (Prelude.Maybe NumberDataPoint'Value)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'asDouble' @:: Lens' NumberDataPoint (Prelude.Maybe Prelude.Double)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.asDouble' @:: Lens' NumberDataPoint Prelude.Double@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'asInt' @:: Lens' NumberDataPoint (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.asInt' @:: Lens' NumberDataPoint Data.Int.Int64@ -}
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)
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.resource' @:: Lens' ResourceMetrics Proto.Opentelemetry.Proto.Resource.V1.Resource.Resource@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.maybe'resource' @:: Lens' ResourceMetrics (Prelude.Maybe Proto.Opentelemetry.Proto.Resource.V1.Resource.Resource)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.instrumentationLibraryMetrics' @:: Lens' ResourceMetrics [InstrumentationLibraryMetrics]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'instrumentationLibraryMetrics' @:: Lens' ResourceMetrics (Data.Vector.Vector InstrumentationLibraryMetrics)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.schemaUrl' @:: Lens' ResourceMetrics Data.Text.Text@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.dataPoints' @:: Lens' Sum [NumberDataPoint]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'dataPoints' @:: Lens' Sum (Data.Vector.Vector NumberDataPoint)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.aggregationTemporality' @:: Lens' Sum AggregationTemporality@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.isMonotonic' @:: Lens' Sum Prelude.Bool@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.dataPoints' @:: Lens' Summary [SummaryDataPoint]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'dataPoints' @:: Lens' Summary (Data.Vector.Vector SummaryDataPoint)@ -}
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__) ())
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.attributes' @:: Lens' SummaryDataPoint [Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'attributes' @:: Lens' SummaryDataPoint (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.KeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.labels' @:: Lens' SummaryDataPoint [Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'labels' @:: Lens' SummaryDataPoint (Data.Vector.Vector Proto.Opentelemetry.Proto.Common.V1.Common.StringKeyValue)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.startTimeUnixNano' @:: Lens' SummaryDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.timeUnixNano' @:: Lens' SummaryDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.count' @:: Lens' SummaryDataPoint Data.Word.Word64@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.sum' @:: Lens' SummaryDataPoint Prelude.Double@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.quantileValues' @:: Lens' SummaryDataPoint [SummaryDataPoint'ValueAtQuantile]@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.vec'quantileValues' @:: Lens' SummaryDataPoint (Data.Vector.Vector SummaryDataPoint'ValueAtQuantile)@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.flags' @:: Lens' SummaryDataPoint Data.Word.Word32@ -}
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__) ()))))))))
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.quantile' @:: Lens' SummaryDataPoint'ValueAtQuantile Prelude.Double@
         * 'Proto.Opentelemetry.Proto.Metrics.V1.Metrics_Fields.value' @:: Lens' SummaryDataPoint'ValueAtQuantile Prelude.Double@ -}
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"