lightstep-haskell 0.10.3 → 0.10.4
raw patch · 9 files changed
+6395/−4995 lines, 9 filesdep ~random
Dependency ranges changed: random
Files
- gen/Proto/Collector.hs +4269/−3432
- gen/Proto/Collector_Fields.hs +254/−278
- gen/Proto/Google/Api/Annotations.hs +23/−47
- gen/Proto/Google/Api/Http.hs +1432/−980
- gen/Proto/Google/Protobuf/Timestamp.hs +344/−168
- gen/Proto/Google/Protobuf/Timestamp_Fields.hs +25/−49
- lightstep-haskell.cabal +2/−2
- src/LightStep/HighLevel/IO.hs +44/−37
- stress-test/Main.hs +2/−2
gen/Proto/Collector.hs view
@@ -1,3433 +1,4270 @@ {- This file was auto-generated from collector.proto by the proto-lens-protoc program. -}-{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,- UndecidableInstances, GeneralizedNewtypeDeriving,- MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,- PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds,- BangPatterns, TypeApplications #-}-{-# OPTIONS_GHC -fno-warn-unused-imports#-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}-module Proto.Collector- (CollectorService(..), Auth(), Command(), InternalMetrics(),- KeyValue(), KeyValue'Value(..), _KeyValue'StringValue,- _KeyValue'IntValue, _KeyValue'DoubleValue, _KeyValue'BoolValue,- _KeyValue'JsonValue, Log(), MetricsSample(),- MetricsSample'Value(..), _MetricsSample'IntValue,- _MetricsSample'DoubleValue, Reference(),- Reference'Relationship(..), Reference'Relationship(),- Reference'Relationship'UnrecognizedValue, ReportRequest(),- ReportResponse(), Reporter(), Span(), SpanContext(),- SpanContext'BaggageEntry())- 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.Google.Api.Annotations-import qualified Proto.Google.Protobuf.Timestamp--{- | Fields :-- * 'Proto.Collector_Fields.accessToken' @:: Lens' Auth Data.Text.Text@- -}-data Auth = Auth{_Auth'accessToken :: !Data.Text.Text,- _Auth'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Auth where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Auth "accessToken"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Auth'accessToken- (\ x__ y__ -> x__{_Auth'accessToken = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message Auth where- messageName _ = Data.Text.pack "lightstep.collector.Auth"- fieldsByTag- = let accessToken__field_descriptor- = Data.ProtoLens.FieldDescriptor "access_token"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"accessToken"))- :: Data.ProtoLens.FieldDescriptor Auth- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, accessToken__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _Auth'_unknownFields- (\ x__ y__ -> x__{_Auth'_unknownFields = y__})- defMessage- = Auth{_Auth'accessToken = Data.ProtoLens.fieldDefault,- _Auth'_unknownFields = ([])}- parseMessage- = let loop :: Auth -> Data.ProtoLens.Encoding.Bytes.Parser Auth- loop x- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- x)- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "access_token"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"accessToken")- y- x)- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- in- (do loop Data.ProtoLens.defMessage)- Data.ProtoLens.Encoding.Bytes.<?> "Auth"- buildMessage- = (\ _x ->- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"accessToken") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData Auth where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_Auth'_unknownFields x__)- (Control.DeepSeq.deepseq (_Auth'accessToken x__) (())))-{- | Fields :-- * 'Proto.Collector_Fields.disable' @:: Lens' Command Prelude.Bool@- * 'Proto.Collector_Fields.devMode' @:: Lens' Command Prelude.Bool@- -}-data Command = Command{_Command'disable :: !Prelude.Bool,- _Command'devMode :: !Prelude.Bool,- _Command'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Command where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Command "disable"- (Prelude.Bool)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Command'disable- (\ x__ y__ -> x__{_Command'disable = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Command "devMode"- (Prelude.Bool)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Command'devMode- (\ x__ y__ -> x__{_Command'devMode = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message Command where- messageName _ = Data.Text.pack "lightstep.collector.Command"- fieldsByTag- = let disable__field_descriptor- = Data.ProtoLens.FieldDescriptor "disable"- (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::- Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"disable"))- :: Data.ProtoLens.FieldDescriptor Command- devMode__field_descriptor- = Data.ProtoLens.FieldDescriptor "dev_mode"- (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::- Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"devMode"))- :: Data.ProtoLens.FieldDescriptor Command- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, disable__field_descriptor),- (Data.ProtoLens.Tag 2, devMode__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _Command'_unknownFields- (\ x__ y__ -> x__{_Command'_unknownFields = y__})- defMessage- = Command{_Command'disable = Data.ProtoLens.fieldDefault,- _Command'devMode = Data.ProtoLens.fieldDefault,- _Command'_unknownFields = ([])}- parseMessage- = let loop ::- Command -> Data.ProtoLens.Encoding.Bytes.Parser Command- loop x- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- x)- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 8 -> do y <- (Prelude.fmap ((Prelude./=) 0)- Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "disable"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"disable")- y- x)- 16 -> do y <- (Prelude.fmap ((Prelude./=) 0)- Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "dev_mode"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"devMode")- y- x)- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- in- (do loop Data.ProtoLens.defMessage)- Data.ProtoLens.Encoding.Bytes.<?> "Command"- buildMessage- = (\ _x ->- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"disable") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<>- ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..- (\ b -> if b then 1 else 0))- _v)- Data.Monoid.<>- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"devMode") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<>- ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..- (\ b -> if b then 1 else 0))- _v)- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData Command where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_Command'_unknownFields x__)- (Control.DeepSeq.deepseq (_Command'disable x__)- (Control.DeepSeq.deepseq (_Command'devMode x__) (()))))-{- | Fields :-- * 'Proto.Collector_Fields.startTimestamp' @:: Lens' InternalMetrics Proto.Google.Protobuf.Timestamp.Timestamp@- * 'Proto.Collector_Fields.maybe'startTimestamp' @:: Lens' InternalMetrics- (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@- * 'Proto.Collector_Fields.durationMicros' @:: Lens' InternalMetrics Data.Word.Word64@- * 'Proto.Collector_Fields.logs' @:: Lens' InternalMetrics [Log]@- * 'Proto.Collector_Fields.vec'logs' @:: Lens' InternalMetrics (Data.Vector.Vector Log)@- * 'Proto.Collector_Fields.counts' @:: Lens' InternalMetrics [MetricsSample]@- * 'Proto.Collector_Fields.vec'counts' @:: Lens' InternalMetrics (Data.Vector.Vector MetricsSample)@- * 'Proto.Collector_Fields.gauges' @:: Lens' InternalMetrics [MetricsSample]@- * 'Proto.Collector_Fields.vec'gauges' @:: Lens' InternalMetrics (Data.Vector.Vector MetricsSample)@- -}-data InternalMetrics = InternalMetrics{_InternalMetrics'startTimestamp- ::- !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),- _InternalMetrics'durationMicros :: !Data.Word.Word64,- _InternalMetrics'logs :: !(Data.Vector.Vector Log),- _InternalMetrics'counts ::- !(Data.Vector.Vector MetricsSample),- _InternalMetrics'gauges ::- !(Data.Vector.Vector MetricsSample),- _InternalMetrics'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show InternalMetrics where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField InternalMetrics- "startTimestamp"- (Proto.Google.Protobuf.Timestamp.Timestamp)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _InternalMetrics'startTimestamp- (\ x__ y__ -> x__{_InternalMetrics'startTimestamp = y__}))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField InternalMetrics- "maybe'startTimestamp"- (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _InternalMetrics'startTimestamp- (\ x__ y__ -> x__{_InternalMetrics'startTimestamp = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField InternalMetrics- "durationMicros"- (Data.Word.Word64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _InternalMetrics'durationMicros- (\ x__ y__ -> x__{_InternalMetrics'durationMicros = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField InternalMetrics "logs"- ([Log])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _InternalMetrics'logs- (\ x__ y__ -> x__{_InternalMetrics'logs = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField InternalMetrics "vec'logs"- (Data.Vector.Vector Log)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _InternalMetrics'logs- (\ x__ y__ -> x__{_InternalMetrics'logs = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField InternalMetrics "counts"- ([MetricsSample])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _InternalMetrics'counts- (\ x__ y__ -> x__{_InternalMetrics'counts = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField InternalMetrics "vec'counts"- (Data.Vector.Vector MetricsSample)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _InternalMetrics'counts- (\ x__ y__ -> x__{_InternalMetrics'counts = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField InternalMetrics "gauges"- ([MetricsSample])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _InternalMetrics'gauges- (\ x__ y__ -> x__{_InternalMetrics'gauges = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField InternalMetrics "vec'gauges"- (Data.Vector.Vector MetricsSample)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _InternalMetrics'gauges- (\ x__ y__ -> x__{_InternalMetrics'gauges = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message InternalMetrics where- messageName _- = Data.Text.pack "lightstep.collector.InternalMetrics"- fieldsByTag- = let startTimestamp__field_descriptor- = Data.ProtoLens.FieldDescriptor "start_timestamp"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor- Proto.Google.Protobuf.Timestamp.Timestamp)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'startTimestamp"))- :: Data.ProtoLens.FieldDescriptor InternalMetrics- durationMicros__field_descriptor- = Data.ProtoLens.FieldDescriptor "duration_micros"- (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::- Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"durationMicros"))- :: Data.ProtoLens.FieldDescriptor InternalMetrics- logs__field_descriptor- = Data.ProtoLens.FieldDescriptor "logs"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor Log)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"logs"))- :: Data.ProtoLens.FieldDescriptor InternalMetrics- counts__field_descriptor- = Data.ProtoLens.FieldDescriptor "counts"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor MetricsSample)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"counts"))- :: Data.ProtoLens.FieldDescriptor InternalMetrics- gauges__field_descriptor- = Data.ProtoLens.FieldDescriptor "gauges"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor MetricsSample)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"gauges"))- :: Data.ProtoLens.FieldDescriptor InternalMetrics- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, startTimestamp__field_descriptor),- (Data.ProtoLens.Tag 2, durationMicros__field_descriptor),- (Data.ProtoLens.Tag 3, logs__field_descriptor),- (Data.ProtoLens.Tag 4, counts__field_descriptor),- (Data.ProtoLens.Tag 5, gauges__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _InternalMetrics'_unknownFields- (\ x__ y__ -> x__{_InternalMetrics'_unknownFields = y__})- defMessage- = InternalMetrics{_InternalMetrics'startTimestamp =- Prelude.Nothing,- _InternalMetrics'durationMicros = Data.ProtoLens.fieldDefault,- _InternalMetrics'logs = Data.Vector.Generic.empty,- _InternalMetrics'counts = Data.Vector.Generic.empty,- _InternalMetrics'gauges = Data.Vector.Generic.empty,- _InternalMetrics'_unknownFields = ([])}- parseMessage- = let loop ::- InternalMetrics ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- MetricsSample- ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- MetricsSample- ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- Log- -> Data.ProtoLens.Encoding.Bytes.Parser InternalMetrics- loop x mutable'counts mutable'gauges mutable'logs- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do frozen'counts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'counts)- frozen'gauges <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'gauges)- frozen'logs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'logs)- let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'counts")- frozen'counts- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'gauges")- frozen'gauges- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'logs")- frozen'logs- x))))- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "start_timestamp"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"startTimestamp")- y- x)- mutable'counts- mutable'gauges- mutable'logs- 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "duration_micros"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"durationMicros")- y- x)- mutable'counts- mutable'gauges- mutable'logs- 26 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "logs"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append mutable'logs- y)- loop x mutable'counts mutable'gauges v- 34 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "counts"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'counts- y)- loop x v mutable'gauges mutable'logs- 42 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "gauges"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'gauges- y)- loop x mutable'counts v mutable'logs- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- mutable'counts- mutable'gauges- mutable'logs- in- (do mutable'counts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- mutable'gauges <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- mutable'logs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- loop Data.ProtoLens.defMessage mutable'counts mutable'gauges- mutable'logs)- Data.ProtoLens.Encoding.Bytes.<?> "InternalMetrics"- buildMessage- = (\ _x ->- (case- Lens.Family2.view- (Data.ProtoLens.Field.field @"maybe'startTimestamp")- _x- of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- Data.Monoid.<>- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"durationMicros")- _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putVarInt _v)- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'logs") _x))- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'counts") _x))- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 42) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'gauges") _x))- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData InternalMetrics where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_InternalMetrics'_unknownFields x__)- (Control.DeepSeq.deepseq (_InternalMetrics'startTimestamp x__)- (Control.DeepSeq.deepseq (_InternalMetrics'durationMicros x__)- (Control.DeepSeq.deepseq (_InternalMetrics'logs x__)- (Control.DeepSeq.deepseq (_InternalMetrics'counts x__)- (Control.DeepSeq.deepseq (_InternalMetrics'gauges x__) (())))))))-{- | Fields :-- * 'Proto.Collector_Fields.key' @:: Lens' KeyValue Data.Text.Text@- * 'Proto.Collector_Fields.maybe'value' @:: Lens' KeyValue (Prelude.Maybe KeyValue'Value)@- * 'Proto.Collector_Fields.maybe'stringValue' @:: Lens' KeyValue (Prelude.Maybe Data.Text.Text)@- * 'Proto.Collector_Fields.stringValue' @:: Lens' KeyValue Data.Text.Text@- * 'Proto.Collector_Fields.maybe'intValue' @:: Lens' KeyValue (Prelude.Maybe Data.Int.Int64)@- * 'Proto.Collector_Fields.intValue' @:: Lens' KeyValue Data.Int.Int64@- * 'Proto.Collector_Fields.maybe'doubleValue' @:: Lens' KeyValue (Prelude.Maybe Prelude.Double)@- * 'Proto.Collector_Fields.doubleValue' @:: Lens' KeyValue Prelude.Double@- * 'Proto.Collector_Fields.maybe'boolValue' @:: Lens' KeyValue (Prelude.Maybe Prelude.Bool)@- * 'Proto.Collector_Fields.boolValue' @:: Lens' KeyValue Prelude.Bool@- * 'Proto.Collector_Fields.maybe'jsonValue' @:: Lens' KeyValue (Prelude.Maybe Data.Text.Text)@- * 'Proto.Collector_Fields.jsonValue' @:: Lens' KeyValue Data.Text.Text@- -}-data KeyValue = KeyValue{_KeyValue'key :: !Data.Text.Text,- _KeyValue'value :: !(Prelude.Maybe KeyValue'Value),- _KeyValue'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show KeyValue where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-data KeyValue'Value = KeyValue'StringValue !Data.Text.Text- | KeyValue'IntValue !Data.Int.Int64- | KeyValue'DoubleValue !Prelude.Double- | KeyValue'BoolValue !Prelude.Bool- | KeyValue'JsonValue !Data.Text.Text- deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.Field.HasField KeyValue "key"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'key- (\ x__ y__ -> x__{_KeyValue'key = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField KeyValue "maybe'value"- (Prelude.Maybe KeyValue'Value)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField KeyValue "maybe'stringValue"- (Prelude.Maybe Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (KeyValue'StringValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap KeyValue'StringValue y__)-instance Data.ProtoLens.Field.HasField KeyValue "stringValue"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (KeyValue'StringValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap KeyValue'StringValue y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField KeyValue "maybe'intValue"- (Prelude.Maybe Data.Int.Int64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (KeyValue'IntValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap KeyValue'IntValue y__)-instance Data.ProtoLens.Field.HasField KeyValue "intValue"- (Data.Int.Int64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (KeyValue'IntValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap KeyValue'IntValue y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField KeyValue "maybe'doubleValue"- (Prelude.Maybe Prelude.Double)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (KeyValue'DoubleValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap KeyValue'DoubleValue y__)-instance Data.ProtoLens.Field.HasField KeyValue "doubleValue"- (Prelude.Double)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (KeyValue'DoubleValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap KeyValue'DoubleValue y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField KeyValue "maybe'boolValue"- (Prelude.Maybe Prelude.Bool)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (KeyValue'BoolValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap KeyValue'BoolValue y__)-instance Data.ProtoLens.Field.HasField KeyValue "boolValue"- (Prelude.Bool)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (KeyValue'BoolValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap KeyValue'BoolValue y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField KeyValue "maybe'jsonValue"- (Prelude.Maybe Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (KeyValue'JsonValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap KeyValue'JsonValue y__)-instance Data.ProtoLens.Field.HasField KeyValue "jsonValue"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _KeyValue'value- (\ x__ y__ -> x__{_KeyValue'value = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (KeyValue'JsonValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap KeyValue'JsonValue y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Message KeyValue where- messageName _ = Data.Text.pack "lightstep.collector.KeyValue"- fieldsByTag- = let key__field_descriptor- = Data.ProtoLens.FieldDescriptor "key"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"key"))- :: Data.ProtoLens.FieldDescriptor KeyValue- stringValue__field_descriptor- = Data.ProtoLens.FieldDescriptor "string_value"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'stringValue"))- :: Data.ProtoLens.FieldDescriptor KeyValue- intValue__field_descriptor- = Data.ProtoLens.FieldDescriptor "int_value"- (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::- Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'intValue"))- :: Data.ProtoLens.FieldDescriptor KeyValue- doubleValue__field_descriptor- = Data.ProtoLens.FieldDescriptor "double_value"- (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField ::- Data.ProtoLens.FieldTypeDescriptor Prelude.Double)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'doubleValue"))- :: Data.ProtoLens.FieldDescriptor KeyValue- boolValue__field_descriptor- = Data.ProtoLens.FieldDescriptor "bool_value"- (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::- Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'boolValue"))- :: Data.ProtoLens.FieldDescriptor KeyValue- jsonValue__field_descriptor- = Data.ProtoLens.FieldDescriptor "json_value"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'jsonValue"))- :: Data.ProtoLens.FieldDescriptor KeyValue- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, key__field_descriptor),- (Data.ProtoLens.Tag 2, stringValue__field_descriptor),- (Data.ProtoLens.Tag 3, intValue__field_descriptor),- (Data.ProtoLens.Tag 4, doubleValue__field_descriptor),- (Data.ProtoLens.Tag 5, boolValue__field_descriptor),- (Data.ProtoLens.Tag 6, jsonValue__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _KeyValue'_unknownFields- (\ x__ y__ -> x__{_KeyValue'_unknownFields = y__})- defMessage- = KeyValue{_KeyValue'key = Data.ProtoLens.fieldDefault,- _KeyValue'value = Prelude.Nothing, _KeyValue'_unknownFields = ([])}- parseMessage- = let loop ::- KeyValue -> Data.ProtoLens.Encoding.Bytes.Parser KeyValue- loop x- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- x)- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "key"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y- x)- 18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "string_value"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"stringValue")- y- x)- 24 -> do y <- (Prelude.fmap Prelude.fromIntegral- Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "int_value"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"intValue")- y- x)- 33 -> do y <- (Prelude.fmap- Data.ProtoLens.Encoding.Bytes.wordToDouble- Data.ProtoLens.Encoding.Bytes.getFixed64)- Data.ProtoLens.Encoding.Bytes.<?> "double_value"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"doubleValue")- y- x)- 40 -> do y <- (Prelude.fmap ((Prelude./=) 0)- Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "bool_value"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"boolValue")- y- x)- 50 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "json_value"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"jsonValue")- y- x)- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- in- (do loop Data.ProtoLens.defMessage)- Data.ProtoLens.Encoding.Bytes.<?> "KeyValue"- buildMessage- = (\ _x ->- (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- Data.Monoid.<>- (case- Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just- (KeyValue'StringValue- v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- v- Prelude.Just- (KeyValue'IntValue v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt- 24)- Data.Monoid.<>- ((Data.ProtoLens.Encoding.Bytes.putVarInt)- Prelude.. Prelude.fromIntegral)- v- Prelude.Just- (KeyValue'DoubleValue- v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt 33) Data.Monoid.<>- ((Data.ProtoLens.Encoding.Bytes.putFixed64) Prelude..- Data.ProtoLens.Encoding.Bytes.doubleToWord)- v- Prelude.Just- (KeyValue'BoolValue v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt- 40)- Data.Monoid.<>- ((Data.ProtoLens.Encoding.Bytes.putVarInt)- Prelude.. (\ b -> if b then 1 else 0))- v- Prelude.Just- (KeyValue'JsonValue v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt- 50)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes- bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- v)- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData KeyValue where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_KeyValue'_unknownFields x__)- (Control.DeepSeq.deepseq (_KeyValue'key x__)- (Control.DeepSeq.deepseq (_KeyValue'value x__) (()))))-instance Control.DeepSeq.NFData KeyValue'Value where- rnf (KeyValue'StringValue x__) = Control.DeepSeq.rnf x__- rnf (KeyValue'IntValue x__) = Control.DeepSeq.rnf x__- rnf (KeyValue'DoubleValue x__) = Control.DeepSeq.rnf x__- rnf (KeyValue'BoolValue x__) = Control.DeepSeq.rnf x__- rnf (KeyValue'JsonValue x__) = Control.DeepSeq.rnf x__-_KeyValue'StringValue ::- Data.ProtoLens.Prism.Prism' KeyValue'Value Data.Text.Text-_KeyValue'StringValue- = Data.ProtoLens.Prism.prism' KeyValue'StringValue- (\ p__ ->- case p__ of- KeyValue'StringValue p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-_KeyValue'IntValue ::- Data.ProtoLens.Prism.Prism' KeyValue'Value Data.Int.Int64-_KeyValue'IntValue- = Data.ProtoLens.Prism.prism' KeyValue'IntValue- (\ p__ ->- case p__ of- KeyValue'IntValue p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-_KeyValue'DoubleValue ::- Data.ProtoLens.Prism.Prism' KeyValue'Value Prelude.Double-_KeyValue'DoubleValue- = Data.ProtoLens.Prism.prism' KeyValue'DoubleValue- (\ p__ ->- case p__ of- KeyValue'DoubleValue p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-_KeyValue'BoolValue ::- Data.ProtoLens.Prism.Prism' KeyValue'Value Prelude.Bool-_KeyValue'BoolValue- = Data.ProtoLens.Prism.prism' KeyValue'BoolValue- (\ p__ ->- case p__ of- KeyValue'BoolValue p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-_KeyValue'JsonValue ::- Data.ProtoLens.Prism.Prism' KeyValue'Value Data.Text.Text-_KeyValue'JsonValue- = Data.ProtoLens.Prism.prism' KeyValue'JsonValue- (\ p__ ->- case p__ of- KeyValue'JsonValue p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-{- | Fields :-- * 'Proto.Collector_Fields.timestamp' @:: Lens' Log Proto.Google.Protobuf.Timestamp.Timestamp@- * 'Proto.Collector_Fields.maybe'timestamp' @:: Lens' Log (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@- * 'Proto.Collector_Fields.fields' @:: Lens' Log [KeyValue]@- * 'Proto.Collector_Fields.vec'fields' @:: Lens' Log (Data.Vector.Vector KeyValue)@- -}-data Log = Log{_Log'timestamp ::- !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),- _Log'fields :: !(Data.Vector.Vector KeyValue),- _Log'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Log where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Log "timestamp"- (Proto.Google.Protobuf.Timestamp.Timestamp)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Log'timestamp- (\ x__ y__ -> x__{_Log'timestamp = y__}))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField Log "maybe'timestamp"- (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Log'timestamp- (\ x__ y__ -> x__{_Log'timestamp = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Log "fields" ([KeyValue])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Log'fields- (\ x__ y__ -> x__{_Log'fields = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField Log "vec'fields"- (Data.Vector.Vector KeyValue)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Log'fields- (\ x__ y__ -> x__{_Log'fields = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message Log where- messageName _ = Data.Text.pack "lightstep.collector.Log"- fieldsByTag- = let timestamp__field_descriptor- = Data.ProtoLens.FieldDescriptor "timestamp"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor- Proto.Google.Protobuf.Timestamp.Timestamp)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'timestamp"))- :: Data.ProtoLens.FieldDescriptor Log- fields__field_descriptor- = Data.ProtoLens.FieldDescriptor "fields"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor KeyValue)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"fields"))- :: Data.ProtoLens.FieldDescriptor Log- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, timestamp__field_descriptor),- (Data.ProtoLens.Tag 2, fields__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _Log'_unknownFields- (\ x__ y__ -> x__{_Log'_unknownFields = y__})- defMessage- = Log{_Log'timestamp = Prelude.Nothing,- _Log'fields = Data.Vector.Generic.empty,- _Log'_unknownFields = ([])}- parseMessage- = let loop ::- Log ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- KeyValue- -> Data.ProtoLens.Encoding.Bytes.Parser Log- loop x mutable'fields- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do frozen'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'fields)- let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'fields")- frozen'fields- x))- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "timestamp"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"timestamp")- y- x)- mutable'fields- 18 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "fields"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'fields- y)- loop x v- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- mutable'fields- in- (do mutable'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- loop Data.ProtoLens.defMessage mutable'fields)- Data.ProtoLens.Encoding.Bytes.<?> "Log"- buildMessage- = (\ _x ->- (case- Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'timestamp")- _x- of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'fields") _x))- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData Log where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_Log'_unknownFields x__)- (Control.DeepSeq.deepseq (_Log'timestamp x__)- (Control.DeepSeq.deepseq (_Log'fields x__) (()))))-{- | Fields :-- * 'Proto.Collector_Fields.name' @:: Lens' MetricsSample Data.Text.Text@- * 'Proto.Collector_Fields.maybe'value' @:: Lens' MetricsSample (Prelude.Maybe MetricsSample'Value)@- * 'Proto.Collector_Fields.maybe'intValue' @:: Lens' MetricsSample (Prelude.Maybe Data.Int.Int64)@- * 'Proto.Collector_Fields.intValue' @:: Lens' MetricsSample Data.Int.Int64@- * 'Proto.Collector_Fields.maybe'doubleValue' @:: Lens' MetricsSample (Prelude.Maybe Prelude.Double)@- * 'Proto.Collector_Fields.doubleValue' @:: Lens' MetricsSample Prelude.Double@- -}-data MetricsSample = MetricsSample{_MetricsSample'name ::- !Data.Text.Text,- _MetricsSample'value :: !(Prelude.Maybe MetricsSample'Value),- _MetricsSample'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show MetricsSample where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-data MetricsSample'Value = MetricsSample'IntValue !Data.Int.Int64- | MetricsSample'DoubleValue !Prelude.Double- deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.Field.HasField MetricsSample "name"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _MetricsSample'name- (\ x__ y__ -> x__{_MetricsSample'name = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MetricsSample "maybe'value"- (Prelude.Maybe MetricsSample'Value)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _MetricsSample'value- (\ x__ y__ -> x__{_MetricsSample'value = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MetricsSample- "maybe'intValue"- (Prelude.Maybe Data.Int.Int64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _MetricsSample'value- (\ x__ y__ -> x__{_MetricsSample'value = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (MetricsSample'IntValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap MetricsSample'IntValue y__)-instance Data.ProtoLens.Field.HasField MetricsSample "intValue"- (Data.Int.Int64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _MetricsSample'value- (\ x__ y__ -> x__{_MetricsSample'value = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (MetricsSample'IntValue x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap MetricsSample'IntValue y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField MetricsSample- "maybe'doubleValue"- (Prelude.Maybe Prelude.Double)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _MetricsSample'value- (\ x__ y__ -> x__{_MetricsSample'value = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (MetricsSample'DoubleValue x__val) -> Prelude.Just- x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap MetricsSample'DoubleValue y__)-instance Data.ProtoLens.Field.HasField MetricsSample "doubleValue"- (Prelude.Double)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _MetricsSample'value- (\ x__ y__ -> x__{_MetricsSample'value = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (MetricsSample'DoubleValue x__val) -> Prelude.Just- x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap MetricsSample'DoubleValue y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Message MetricsSample where- messageName _ = Data.Text.pack "lightstep.collector.MetricsSample"- fieldsByTag- = let name__field_descriptor- = Data.ProtoLens.FieldDescriptor "name"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"name"))- :: Data.ProtoLens.FieldDescriptor MetricsSample- intValue__field_descriptor- = Data.ProtoLens.FieldDescriptor "int_value"- (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::- Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'intValue"))- :: Data.ProtoLens.FieldDescriptor MetricsSample- doubleValue__field_descriptor- = Data.ProtoLens.FieldDescriptor "double_value"- (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField ::- Data.ProtoLens.FieldTypeDescriptor Prelude.Double)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'doubleValue"))- :: Data.ProtoLens.FieldDescriptor MetricsSample- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, name__field_descriptor),- (Data.ProtoLens.Tag 2, intValue__field_descriptor),- (Data.ProtoLens.Tag 3, doubleValue__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _MetricsSample'_unknownFields- (\ x__ y__ -> x__{_MetricsSample'_unknownFields = y__})- defMessage- = MetricsSample{_MetricsSample'name = Data.ProtoLens.fieldDefault,- _MetricsSample'value = Prelude.Nothing,- _MetricsSample'_unknownFields = ([])}- parseMessage- = let loop ::- MetricsSample -> Data.ProtoLens.Encoding.Bytes.Parser MetricsSample- loop x- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- x)- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "name"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y- x)- 16 -> do y <- (Prelude.fmap Prelude.fromIntegral- Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "int_value"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"intValue")- y- x)- 25 -> do y <- (Prelude.fmap- Data.ProtoLens.Encoding.Bytes.wordToDouble- Data.ProtoLens.Encoding.Bytes.getFixed64)- Data.ProtoLens.Encoding.Bytes.<?> "double_value"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"doubleValue")- y- x)- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- in- (do loop Data.ProtoLens.defMessage)- Data.ProtoLens.Encoding.Bytes.<?> "MetricsSample"- buildMessage- = (\ _x ->- (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- Data.Monoid.<>- (case- Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just- (MetricsSample'IntValue- v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<>- ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..- Prelude.fromIntegral)- v- Prelude.Just- (MetricsSample'DoubleValue- v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt 25) Data.Monoid.<>- ((Data.ProtoLens.Encoding.Bytes.putFixed64) Prelude..- Data.ProtoLens.Encoding.Bytes.doubleToWord)- v)- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData MetricsSample where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_MetricsSample'_unknownFields x__)- (Control.DeepSeq.deepseq (_MetricsSample'name x__)- (Control.DeepSeq.deepseq (_MetricsSample'value x__) (()))))-instance Control.DeepSeq.NFData MetricsSample'Value where- rnf (MetricsSample'IntValue x__) = Control.DeepSeq.rnf x__- rnf (MetricsSample'DoubleValue x__) = Control.DeepSeq.rnf x__-_MetricsSample'IntValue ::- Data.ProtoLens.Prism.Prism' MetricsSample'Value Data.Int.Int64-_MetricsSample'IntValue- = Data.ProtoLens.Prism.prism' MetricsSample'IntValue- (\ p__ ->- case p__ of- MetricsSample'IntValue p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-_MetricsSample'DoubleValue ::- Data.ProtoLens.Prism.Prism' MetricsSample'Value Prelude.Double-_MetricsSample'DoubleValue- = Data.ProtoLens.Prism.prism' MetricsSample'DoubleValue- (\ p__ ->- case p__ of- MetricsSample'DoubleValue p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-{- | Fields :-- * 'Proto.Collector_Fields.relationship' @:: Lens' Reference Reference'Relationship@- * 'Proto.Collector_Fields.spanContext' @:: Lens' Reference SpanContext@- * 'Proto.Collector_Fields.maybe'spanContext' @:: Lens' Reference (Prelude.Maybe SpanContext)@- -}-data Reference = Reference{_Reference'relationship ::- !Reference'Relationship,- _Reference'spanContext :: !(Prelude.Maybe SpanContext),- _Reference'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Reference where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Reference "relationship"- (Reference'Relationship)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Reference'relationship- (\ x__ y__ -> x__{_Reference'relationship = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Reference "spanContext"- (SpanContext)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Reference'spanContext- (\ x__ y__ -> x__{_Reference'spanContext = y__}))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField Reference- "maybe'spanContext"- (Prelude.Maybe SpanContext)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Reference'spanContext- (\ x__ y__ -> x__{_Reference'spanContext = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message Reference where- messageName _ = Data.Text.pack "lightstep.collector.Reference"- fieldsByTag- = let relationship__field_descriptor- = Data.ProtoLens.FieldDescriptor "relationship"- (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::- Data.ProtoLens.FieldTypeDescriptor Reference'Relationship)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"relationship"))- :: Data.ProtoLens.FieldDescriptor Reference- spanContext__field_descriptor- = Data.ProtoLens.FieldDescriptor "span_context"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor SpanContext)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'spanContext"))- :: Data.ProtoLens.FieldDescriptor Reference- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, relationship__field_descriptor),- (Data.ProtoLens.Tag 2, spanContext__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _Reference'_unknownFields- (\ x__ y__ -> x__{_Reference'_unknownFields = y__})- defMessage- = Reference{_Reference'relationship = Data.ProtoLens.fieldDefault,- _Reference'spanContext = Prelude.Nothing,- _Reference'_unknownFields = ([])}- parseMessage- = let loop ::- Reference -> Data.ProtoLens.Encoding.Bytes.Parser Reference- loop x- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- x)- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 8 -> do y <- (Prelude.fmap Prelude.toEnum- (Prelude.fmap Prelude.fromIntegral- Data.ProtoLens.Encoding.Bytes.getVarInt))- Data.ProtoLens.Encoding.Bytes.<?> "relationship"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"relationship")- y- x)- 18 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "span_context"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"spanContext")- y- x)- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- in- (do loop Data.ProtoLens.defMessage)- Data.ProtoLens.Encoding.Bytes.<?> "Reference"- buildMessage- = (\ _x ->- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"relationship") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<>- (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..- Prelude.fromIntegral)- Prelude.. Prelude.fromEnum)- _v)- Data.Monoid.<>- (case- Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'spanContext")- _x- of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData Reference where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_Reference'_unknownFields x__)- (Control.DeepSeq.deepseq (_Reference'relationship x__)- (Control.DeepSeq.deepseq (_Reference'spanContext x__) (()))))-newtype Reference'Relationship'UnrecognizedValue = Reference'Relationship'UnrecognizedValue Data.Int.Int32- deriving (Prelude.Eq, Prelude.Ord,- Prelude.Show)-data Reference'Relationship = Reference'CHILD_OF- | Reference'FOLLOWS_FROM- | Reference'Relationship'Unrecognized !Reference'Relationship'UnrecognizedValue- deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.MessageEnum Reference'Relationship where- maybeToEnum 0 = Prelude.Just Reference'CHILD_OF- maybeToEnum 1 = Prelude.Just Reference'FOLLOWS_FROM- maybeToEnum k- = Prelude.Just- (Reference'Relationship'Unrecognized- (Reference'Relationship'UnrecognizedValue- (Prelude.fromIntegral k)))- showEnum Reference'CHILD_OF = "CHILD_OF"- showEnum Reference'FOLLOWS_FROM = "FOLLOWS_FROM"- showEnum- (Reference'Relationship'Unrecognized- (Reference'Relationship'UnrecognizedValue k))- = Prelude.show k- readEnum k- | (k) Prelude.== "CHILD_OF" = Prelude.Just Reference'CHILD_OF- | (k) Prelude.== "FOLLOWS_FROM" =- Prelude.Just Reference'FOLLOWS_FROM- readEnum k- = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum-instance Prelude.Bounded Reference'Relationship where- minBound = Reference'CHILD_OF- maxBound = Reference'FOLLOWS_FROM-instance Prelude.Enum Reference'Relationship where- toEnum k__- = Prelude.maybe- (Prelude.error- (("toEnum: unknown value for enum Relationship: ") Prelude.++- Prelude.show k__))- Prelude.id- (Data.ProtoLens.maybeToEnum k__)- fromEnum Reference'CHILD_OF = 0- fromEnum Reference'FOLLOWS_FROM = 1- fromEnum- (Reference'Relationship'Unrecognized- (Reference'Relationship'UnrecognizedValue k))- = Prelude.fromIntegral k- succ Reference'FOLLOWS_FROM- = Prelude.error- "Reference'Relationship.succ: bad argument Reference'FOLLOWS_FROM. This value would be out of bounds."- succ Reference'CHILD_OF = Reference'FOLLOWS_FROM- succ (Reference'Relationship'Unrecognized _)- = Prelude.error- "Reference'Relationship.succ: bad argument: unrecognized value"- pred Reference'CHILD_OF- = Prelude.error- "Reference'Relationship.pred: bad argument Reference'CHILD_OF. This value would be out of bounds."- pred Reference'FOLLOWS_FROM = Reference'CHILD_OF- pred (Reference'Relationship'Unrecognized _)- = Prelude.error- "Reference'Relationship.pred: bad argument: unrecognized value"- enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom- enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo- enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen- enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo-instance Data.ProtoLens.FieldDefault Reference'Relationship where- fieldDefault = Reference'CHILD_OF-instance Control.DeepSeq.NFData Reference'Relationship where- rnf x__ = Prelude.seq x__ (())-{- | Fields :-- * 'Proto.Collector_Fields.reporter' @:: Lens' ReportRequest Reporter@- * 'Proto.Collector_Fields.maybe'reporter' @:: Lens' ReportRequest (Prelude.Maybe Reporter)@- * 'Proto.Collector_Fields.auth' @:: Lens' ReportRequest Auth@- * 'Proto.Collector_Fields.maybe'auth' @:: Lens' ReportRequest (Prelude.Maybe Auth)@- * 'Proto.Collector_Fields.spans' @:: Lens' ReportRequest [Span]@- * 'Proto.Collector_Fields.vec'spans' @:: Lens' ReportRequest (Data.Vector.Vector Span)@- * 'Proto.Collector_Fields.timestampOffsetMicros' @:: Lens' ReportRequest Data.Int.Int64@- * 'Proto.Collector_Fields.internalMetrics' @:: Lens' ReportRequest InternalMetrics@- * 'Proto.Collector_Fields.maybe'internalMetrics' @:: Lens' ReportRequest (Prelude.Maybe InternalMetrics)@- -}-data ReportRequest = ReportRequest{_ReportRequest'reporter ::- !(Prelude.Maybe Reporter),- _ReportRequest'auth :: !(Prelude.Maybe Auth),- _ReportRequest'spans :: !(Data.Vector.Vector Span),- _ReportRequest'timestampOffsetMicros :: !Data.Int.Int64,- _ReportRequest'internalMetrics ::- !(Prelude.Maybe InternalMetrics),- _ReportRequest'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show ReportRequest where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField ReportRequest "reporter"- (Reporter)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportRequest'reporter- (\ x__ y__ -> x__{_ReportRequest'reporter = y__}))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField ReportRequest- "maybe'reporter"- (Prelude.Maybe Reporter)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportRequest'reporter- (\ x__ y__ -> x__{_ReportRequest'reporter = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ReportRequest "auth" (Auth)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportRequest'auth- (\ x__ y__ -> x__{_ReportRequest'auth = y__}))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField ReportRequest "maybe'auth"- (Prelude.Maybe Auth)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportRequest'auth- (\ x__ y__ -> x__{_ReportRequest'auth = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ReportRequest "spans"- ([Span])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportRequest'spans- (\ x__ y__ -> x__{_ReportRequest'spans = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField ReportRequest "vec'spans"- (Data.Vector.Vector Span)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportRequest'spans- (\ x__ y__ -> x__{_ReportRequest'spans = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ReportRequest- "timestampOffsetMicros"- (Data.Int.Int64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportRequest'timestampOffsetMicros- (\ x__ y__ -> x__{_ReportRequest'timestampOffsetMicros = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ReportRequest- "internalMetrics"- (InternalMetrics)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportRequest'internalMetrics- (\ x__ y__ -> x__{_ReportRequest'internalMetrics = y__}))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField ReportRequest- "maybe'internalMetrics"- (Prelude.Maybe InternalMetrics)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportRequest'internalMetrics- (\ x__ y__ -> x__{_ReportRequest'internalMetrics = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message ReportRequest where- messageName _ = Data.Text.pack "lightstep.collector.ReportRequest"- fieldsByTag- = let reporter__field_descriptor- = Data.ProtoLens.FieldDescriptor "reporter"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor Reporter)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'reporter"))- :: Data.ProtoLens.FieldDescriptor ReportRequest- auth__field_descriptor- = Data.ProtoLens.FieldDescriptor "auth"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor Auth)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'auth"))- :: Data.ProtoLens.FieldDescriptor ReportRequest- spans__field_descriptor- = Data.ProtoLens.FieldDescriptor "spans"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor Span)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"spans"))- :: Data.ProtoLens.FieldDescriptor ReportRequest- timestampOffsetMicros__field_descriptor- = Data.ProtoLens.FieldDescriptor "timestamp_offset_micros"- (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::- Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"timestampOffsetMicros"))- :: Data.ProtoLens.FieldDescriptor ReportRequest- internalMetrics__field_descriptor- = Data.ProtoLens.FieldDescriptor "internal_metrics"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor InternalMetrics)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'internalMetrics"))- :: Data.ProtoLens.FieldDescriptor ReportRequest- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, reporter__field_descriptor),- (Data.ProtoLens.Tag 2, auth__field_descriptor),- (Data.ProtoLens.Tag 3, spans__field_descriptor),- (Data.ProtoLens.Tag 5, timestampOffsetMicros__field_descriptor),- (Data.ProtoLens.Tag 6, internalMetrics__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _ReportRequest'_unknownFields- (\ x__ y__ -> x__{_ReportRequest'_unknownFields = y__})- defMessage- = ReportRequest{_ReportRequest'reporter = Prelude.Nothing,- _ReportRequest'auth = Prelude.Nothing,- _ReportRequest'spans = Data.Vector.Generic.empty,- _ReportRequest'timestampOffsetMicros = Data.ProtoLens.fieldDefault,- _ReportRequest'internalMetrics = Prelude.Nothing,- _ReportRequest'_unknownFields = ([])}- parseMessage- = let loop ::- ReportRequest ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- Span- -> Data.ProtoLens.Encoding.Bytes.Parser ReportRequest- loop x mutable'spans- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do frozen'spans <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'spans)- let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'spans")- frozen'spans- x))- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "reporter"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"reporter")- y- x)- mutable'spans- 18 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "auth"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"auth") y- x)- mutable'spans- 26 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "spans"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'spans- y)- loop x v- 40 -> do y <- (Prelude.fmap Prelude.fromIntegral- Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?>- "timestamp_offset_micros"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"timestampOffsetMicros")- y- x)- mutable'spans- 50 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "internal_metrics"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"internalMetrics")- y- x)- mutable'spans- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- mutable'spans- in- (do mutable'spans <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- loop Data.ProtoLens.defMessage mutable'spans)- Data.ProtoLens.Encoding.Bytes.<?> "ReportRequest"- buildMessage- = (\ _x ->- (case- Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'reporter") _x- of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- Data.Monoid.<>- (case- Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'auth") _x of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'spans") _x))- Data.Monoid.<>- (let _v- = Lens.Family2.view- (Data.ProtoLens.Field.field @"timestampOffsetMicros")- _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 40) Data.Monoid.<>- ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..- Prelude.fromIntegral)- _v)- Data.Monoid.<>- (case- Lens.Family2.view- (Data.ProtoLens.Field.field @"maybe'internalMetrics")- _x- of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 50)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData ReportRequest where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_ReportRequest'_unknownFields x__)- (Control.DeepSeq.deepseq (_ReportRequest'reporter x__)- (Control.DeepSeq.deepseq (_ReportRequest'auth x__)- (Control.DeepSeq.deepseq (_ReportRequest'spans x__)- (Control.DeepSeq.deepseq (_ReportRequest'timestampOffsetMicros x__)- (Control.DeepSeq.deepseq (_ReportRequest'internalMetrics x__)- (())))))))-{- | Fields :-- * 'Proto.Collector_Fields.commands' @:: Lens' ReportResponse [Command]@- * 'Proto.Collector_Fields.vec'commands' @:: Lens' ReportResponse (Data.Vector.Vector Command)@- * 'Proto.Collector_Fields.receiveTimestamp' @:: Lens' ReportResponse Proto.Google.Protobuf.Timestamp.Timestamp@- * 'Proto.Collector_Fields.maybe'receiveTimestamp' @:: Lens' ReportResponse- (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@- * 'Proto.Collector_Fields.transmitTimestamp' @:: Lens' ReportResponse Proto.Google.Protobuf.Timestamp.Timestamp@- * 'Proto.Collector_Fields.maybe'transmitTimestamp' @:: Lens' ReportResponse- (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@- * 'Proto.Collector_Fields.errors' @:: Lens' ReportResponse [Data.Text.Text]@- * 'Proto.Collector_Fields.vec'errors' @:: Lens' ReportResponse (Data.Vector.Vector Data.Text.Text)@- * 'Proto.Collector_Fields.warnings' @:: Lens' ReportResponse [Data.Text.Text]@- * 'Proto.Collector_Fields.vec'warnings' @:: Lens' ReportResponse (Data.Vector.Vector Data.Text.Text)@- * 'Proto.Collector_Fields.infos' @:: Lens' ReportResponse [Data.Text.Text]@- * 'Proto.Collector_Fields.vec'infos' @:: Lens' ReportResponse (Data.Vector.Vector Data.Text.Text)@- -}-data ReportResponse = ReportResponse{_ReportResponse'commands ::- !(Data.Vector.Vector Command),- _ReportResponse'receiveTimestamp ::- !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),- _ReportResponse'transmitTimestamp ::- !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),- _ReportResponse'errors :: !(Data.Vector.Vector Data.Text.Text),- _ReportResponse'warnings ::- !(Data.Vector.Vector Data.Text.Text),- _ReportResponse'infos :: !(Data.Vector.Vector Data.Text.Text),- _ReportResponse'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show ReportResponse where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField ReportResponse "commands"- ([Command])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'commands- (\ x__ y__ -> x__{_ReportResponse'commands = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField ReportResponse- "vec'commands"- (Data.Vector.Vector Command)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'commands- (\ x__ y__ -> x__{_ReportResponse'commands = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ReportResponse- "receiveTimestamp"- (Proto.Google.Protobuf.Timestamp.Timestamp)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'receiveTimestamp- (\ x__ y__ -> x__{_ReportResponse'receiveTimestamp = y__}))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField ReportResponse- "maybe'receiveTimestamp"- (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'receiveTimestamp- (\ x__ y__ -> x__{_ReportResponse'receiveTimestamp = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ReportResponse- "transmitTimestamp"- (Proto.Google.Protobuf.Timestamp.Timestamp)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'transmitTimestamp- (\ x__ y__ -> x__{_ReportResponse'transmitTimestamp = y__}))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField ReportResponse- "maybe'transmitTimestamp"- (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'transmitTimestamp- (\ x__ y__ -> x__{_ReportResponse'transmitTimestamp = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ReportResponse "errors"- ([Data.Text.Text])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'errors- (\ x__ y__ -> x__{_ReportResponse'errors = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField ReportResponse "vec'errors"- (Data.Vector.Vector Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'errors- (\ x__ y__ -> x__{_ReportResponse'errors = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ReportResponse "warnings"- ([Data.Text.Text])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'warnings- (\ x__ y__ -> x__{_ReportResponse'warnings = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField ReportResponse- "vec'warnings"- (Data.Vector.Vector Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'warnings- (\ x__ y__ -> x__{_ReportResponse'warnings = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ReportResponse "infos"- ([Data.Text.Text])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'infos- (\ x__ y__ -> x__{_ReportResponse'infos = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField ReportResponse "vec'infos"- (Data.Vector.Vector Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _ReportResponse'infos- (\ x__ y__ -> x__{_ReportResponse'infos = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message ReportResponse where- messageName _ = Data.Text.pack "lightstep.collector.ReportResponse"- fieldsByTag- = let commands__field_descriptor- = Data.ProtoLens.FieldDescriptor "commands"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor Command)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"commands"))- :: Data.ProtoLens.FieldDescriptor ReportResponse- receiveTimestamp__field_descriptor- = Data.ProtoLens.FieldDescriptor "receive_timestamp"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor- Proto.Google.Protobuf.Timestamp.Timestamp)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'receiveTimestamp"))- :: Data.ProtoLens.FieldDescriptor ReportResponse- transmitTimestamp__field_descriptor- = Data.ProtoLens.FieldDescriptor "transmit_timestamp"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor- Proto.Google.Protobuf.Timestamp.Timestamp)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'transmitTimestamp"))- :: Data.ProtoLens.FieldDescriptor ReportResponse- errors__field_descriptor- = Data.ProtoLens.FieldDescriptor "errors"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"errors"))- :: Data.ProtoLens.FieldDescriptor ReportResponse- warnings__field_descriptor- = Data.ProtoLens.FieldDescriptor "warnings"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"warnings"))- :: Data.ProtoLens.FieldDescriptor ReportResponse- infos__field_descriptor- = Data.ProtoLens.FieldDescriptor "infos"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"infos"))- :: Data.ProtoLens.FieldDescriptor ReportResponse- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, commands__field_descriptor),- (Data.ProtoLens.Tag 2, receiveTimestamp__field_descriptor),- (Data.ProtoLens.Tag 3, transmitTimestamp__field_descriptor),- (Data.ProtoLens.Tag 4, errors__field_descriptor),- (Data.ProtoLens.Tag 5, warnings__field_descriptor),- (Data.ProtoLens.Tag 6, infos__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _ReportResponse'_unknownFields- (\ x__ y__ -> x__{_ReportResponse'_unknownFields = y__})- defMessage- = ReportResponse{_ReportResponse'commands =- Data.Vector.Generic.empty,- _ReportResponse'receiveTimestamp = Prelude.Nothing,- _ReportResponse'transmitTimestamp = Prelude.Nothing,- _ReportResponse'errors = Data.Vector.Generic.empty,- _ReportResponse'warnings = Data.Vector.Generic.empty,- _ReportResponse'infos = Data.Vector.Generic.empty,- _ReportResponse'_unknownFields = ([])}- parseMessage- = let loop ::- ReportResponse ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- Command- ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- Data.Text.Text- ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- Data.Text.Text- ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- Data.Text.Text- -> Data.ProtoLens.Encoding.Bytes.Parser ReportResponse- loop x mutable'commands mutable'errors mutable'infos- mutable'warnings- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do frozen'commands <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'commands)- frozen'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'errors)- frozen'infos <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'infos)- frozen'warnings <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'warnings)- let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'commands")- frozen'commands- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'errors")- frozen'errors- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'infos")- frozen'infos- (Lens.Family2.set- (Data.ProtoLens.Field.field @"vec'warnings")- frozen'warnings- x)))))- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "commands"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'commands- y)- loop x v mutable'errors mutable'infos mutable'warnings- 18 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?>- "receive_timestamp"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"receiveTimestamp")- y- x)- mutable'commands- mutable'errors- mutable'infos- mutable'warnings- 26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?>- "transmit_timestamp"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"transmitTimestamp")- y- x)- mutable'commands- mutable'errors- mutable'infos- mutable'warnings- 34 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "errors"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'errors- y)- loop x mutable'commands v mutable'infos mutable'warnings- 42 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "warnings"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'warnings- y)- loop x mutable'commands mutable'errors mutable'infos v- 50 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "infos"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'infos- y)- loop x mutable'commands mutable'errors v mutable'warnings- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- mutable'commands- mutable'errors- mutable'infos- mutable'warnings- in- (do mutable'commands <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- mutable'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- mutable'infos <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- mutable'warnings <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- loop Data.ProtoLens.defMessage mutable'commands mutable'errors- mutable'infos- mutable'warnings)- Data.ProtoLens.Encoding.Bytes.<?> "ReportResponse"- buildMessage- = (\ _x ->- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'commands")- _x))- Data.Monoid.<>- (case- Lens.Family2.view- (Data.ProtoLens.Field.field @"maybe'receiveTimestamp")- _x- of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- Data.Monoid.<>- (case- Lens.Family2.view- (Data.ProtoLens.Field.field @"maybe'transmitTimestamp")- _x- of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'errors") _x))- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 42) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'warnings")- _x))- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 50) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'infos") _x))- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData ReportResponse where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_ReportResponse'_unknownFields x__)- (Control.DeepSeq.deepseq (_ReportResponse'commands x__)- (Control.DeepSeq.deepseq (_ReportResponse'receiveTimestamp x__)- (Control.DeepSeq.deepseq (_ReportResponse'transmitTimestamp x__)- (Control.DeepSeq.deepseq (_ReportResponse'errors x__)- (Control.DeepSeq.deepseq (_ReportResponse'warnings x__)- (Control.DeepSeq.deepseq (_ReportResponse'infos x__) (()))))))))-{- | Fields :-- * 'Proto.Collector_Fields.reporterId' @:: Lens' Reporter Data.Word.Word64@- * 'Proto.Collector_Fields.tags' @:: Lens' Reporter [KeyValue]@- * 'Proto.Collector_Fields.vec'tags' @:: Lens' Reporter (Data.Vector.Vector KeyValue)@- -}-data Reporter = Reporter{_Reporter'reporterId :: !Data.Word.Word64,- _Reporter'tags :: !(Data.Vector.Vector KeyValue),- _Reporter'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Reporter where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Reporter "reporterId"- (Data.Word.Word64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Reporter'reporterId- (\ x__ y__ -> x__{_Reporter'reporterId = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Reporter "tags" ([KeyValue])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Reporter'tags- (\ x__ y__ -> x__{_Reporter'tags = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField Reporter "vec'tags"- (Data.Vector.Vector KeyValue)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Reporter'tags- (\ x__ y__ -> x__{_Reporter'tags = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message Reporter where- messageName _ = Data.Text.pack "lightstep.collector.Reporter"- fieldsByTag- = let reporterId__field_descriptor- = Data.ProtoLens.FieldDescriptor "reporter_id"- (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::- Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"reporterId"))- :: Data.ProtoLens.FieldDescriptor Reporter- tags__field_descriptor- = Data.ProtoLens.FieldDescriptor "tags"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor KeyValue)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"tags"))- :: Data.ProtoLens.FieldDescriptor Reporter- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, reporterId__field_descriptor),- (Data.ProtoLens.Tag 4, tags__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _Reporter'_unknownFields- (\ x__ y__ -> x__{_Reporter'_unknownFields = y__})- defMessage- = Reporter{_Reporter'reporterId = Data.ProtoLens.fieldDefault,- _Reporter'tags = Data.Vector.Generic.empty,- _Reporter'_unknownFields = ([])}- parseMessage- = let loop ::- Reporter ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- KeyValue- -> Data.ProtoLens.Encoding.Bytes.Parser Reporter- loop x mutable'tags- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do frozen'tags <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'tags)- let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'tags")- frozen'tags- x))- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "reporter_id"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"reporterId")- y- x)- mutable'tags- 34 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "tags"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append mutable'tags- y)- loop x v- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- mutable'tags- in- (do mutable'tags <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- loop Data.ProtoLens.defMessage mutable'tags)- Data.ProtoLens.Encoding.Bytes.<?> "Reporter"- buildMessage- = (\ _x ->- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"reporterId") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putVarInt _v)- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'tags") _x))- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData Reporter where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_Reporter'_unknownFields x__)- (Control.DeepSeq.deepseq (_Reporter'reporterId x__)- (Control.DeepSeq.deepseq (_Reporter'tags x__) (()))))-{- | Fields :-- * 'Proto.Collector_Fields.spanContext' @:: Lens' Span SpanContext@- * 'Proto.Collector_Fields.maybe'spanContext' @:: Lens' Span (Prelude.Maybe SpanContext)@- * 'Proto.Collector_Fields.operationName' @:: Lens' Span Data.Text.Text@- * 'Proto.Collector_Fields.references' @:: Lens' Span [Reference]@- * 'Proto.Collector_Fields.vec'references' @:: Lens' Span (Data.Vector.Vector Reference)@- * 'Proto.Collector_Fields.startTimestamp' @:: Lens' Span Proto.Google.Protobuf.Timestamp.Timestamp@- * 'Proto.Collector_Fields.maybe'startTimestamp' @:: Lens' Span- (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@- * 'Proto.Collector_Fields.durationMicros' @:: Lens' Span Data.Word.Word64@- * 'Proto.Collector_Fields.tags' @:: Lens' Span [KeyValue]@- * 'Proto.Collector_Fields.vec'tags' @:: Lens' Span (Data.Vector.Vector KeyValue)@- * 'Proto.Collector_Fields.logs' @:: Lens' Span [Log]@- * 'Proto.Collector_Fields.vec'logs' @:: Lens' Span (Data.Vector.Vector Log)@- -}-data Span = Span{_Span'spanContext :: !(Prelude.Maybe SpanContext),- _Span'operationName :: !Data.Text.Text,- _Span'references :: !(Data.Vector.Vector Reference),- _Span'startTimestamp ::- !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),- _Span'durationMicros :: !Data.Word.Word64,- _Span'tags :: !(Data.Vector.Vector KeyValue),- _Span'logs :: !(Data.Vector.Vector Log),- _Span'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Span where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Span "spanContext"- (SpanContext)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'spanContext- (\ x__ y__ -> x__{_Span'spanContext = y__}))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField Span "maybe'spanContext"- (Prelude.Maybe SpanContext)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'spanContext- (\ x__ y__ -> x__{_Span'spanContext = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Span "operationName"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'operationName- (\ x__ y__ -> x__{_Span'operationName = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Span "references"- ([Reference])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'references- (\ x__ y__ -> x__{_Span'references = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField Span "vec'references"- (Data.Vector.Vector Reference)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'references- (\ x__ y__ -> x__{_Span'references = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Span "startTimestamp"- (Proto.Google.Protobuf.Timestamp.Timestamp)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'startTimestamp- (\ x__ y__ -> x__{_Span'startTimestamp = y__}))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField Span "maybe'startTimestamp"- (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'startTimestamp- (\ x__ y__ -> x__{_Span'startTimestamp = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Span "durationMicros"- (Data.Word.Word64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'durationMicros- (\ x__ y__ -> x__{_Span'durationMicros = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Span "tags" ([KeyValue])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'tags- (\ x__ y__ -> x__{_Span'tags = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField Span "vec'tags"- (Data.Vector.Vector KeyValue)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'tags- (\ x__ y__ -> x__{_Span'tags = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Span "logs" ([Log]) where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'logs- (\ x__ y__ -> x__{_Span'logs = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField Span "vec'logs"- (Data.Vector.Vector Log)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Span'logs- (\ x__ y__ -> x__{_Span'logs = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message Span where- messageName _ = Data.Text.pack "lightstep.collector.Span"- fieldsByTag- = let spanContext__field_descriptor- = Data.ProtoLens.FieldDescriptor "span_context"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor SpanContext)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'spanContext"))- :: Data.ProtoLens.FieldDescriptor Span- operationName__field_descriptor- = Data.ProtoLens.FieldDescriptor "operation_name"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"operationName"))- :: Data.ProtoLens.FieldDescriptor Span- references__field_descriptor- = Data.ProtoLens.FieldDescriptor "references"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor Reference)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"references"))- :: Data.ProtoLens.FieldDescriptor Span- startTimestamp__field_descriptor- = Data.ProtoLens.FieldDescriptor "start_timestamp"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor- Proto.Google.Protobuf.Timestamp.Timestamp)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'startTimestamp"))- :: Data.ProtoLens.FieldDescriptor Span- durationMicros__field_descriptor- = Data.ProtoLens.FieldDescriptor "duration_micros"- (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::- Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"durationMicros"))- :: Data.ProtoLens.FieldDescriptor Span- tags__field_descriptor- = Data.ProtoLens.FieldDescriptor "tags"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor KeyValue)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"tags"))- :: Data.ProtoLens.FieldDescriptor Span- logs__field_descriptor- = Data.ProtoLens.FieldDescriptor "logs"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor Log)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"logs"))- :: Data.ProtoLens.FieldDescriptor Span- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, spanContext__field_descriptor),- (Data.ProtoLens.Tag 2, operationName__field_descriptor),- (Data.ProtoLens.Tag 3, references__field_descriptor),- (Data.ProtoLens.Tag 4, startTimestamp__field_descriptor),- (Data.ProtoLens.Tag 5, durationMicros__field_descriptor),- (Data.ProtoLens.Tag 6, tags__field_descriptor),- (Data.ProtoLens.Tag 7, logs__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _Span'_unknownFields- (\ x__ y__ -> x__{_Span'_unknownFields = y__})- defMessage- = Span{_Span'spanContext = Prelude.Nothing,- _Span'operationName = Data.ProtoLens.fieldDefault,- _Span'references = Data.Vector.Generic.empty,- _Span'startTimestamp = Prelude.Nothing,- _Span'durationMicros = Data.ProtoLens.fieldDefault,- _Span'tags = Data.Vector.Generic.empty,- _Span'logs = Data.Vector.Generic.empty,- _Span'_unknownFields = ([])}- parseMessage- = let loop ::- Span ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- Log- ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- Reference- ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- KeyValue- -> Data.ProtoLens.Encoding.Bytes.Parser Span- loop x mutable'logs mutable'references mutable'tags- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do frozen'logs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'logs)- frozen'references <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'references)- frozen'tags <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'tags)- let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'logs")- frozen'logs- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'references")- frozen'references- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'tags")- frozen'tags- x))))- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "span_context"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"spanContext")- y- x)- mutable'logs- mutable'references- mutable'tags- 18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "operation_name"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"operationName")- y- x)- mutable'logs- mutable'references- mutable'tags- 26 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "references"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'references- y)- loop x mutable'logs v mutable'tags- 34 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "start_timestamp"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"startTimestamp")- y- x)- mutable'logs- mutable'references- mutable'tags- 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "duration_micros"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"durationMicros")- y- x)- mutable'logs- mutable'references- mutable'tags- 50 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "tags"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append mutable'tags- y)- loop x mutable'logs mutable'references v- 58 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "logs"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append mutable'logs- y)- loop x v mutable'references mutable'tags- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- mutable'logs- mutable'references- mutable'tags- in- (do mutable'logs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- mutable'references <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- mutable'tags <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- loop Data.ProtoLens.defMessage mutable'logs mutable'references- mutable'tags)- Data.ProtoLens.Encoding.Bytes.<?> "Span"- buildMessage- = (\ _x ->- (case- Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'spanContext")- _x- of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- Data.Monoid.<>- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"operationName")- _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'references")- _x))- Data.Monoid.<>- (case- Lens.Family2.view- (Data.ProtoLens.Field.field @"maybe'startTimestamp")- _x- of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- Data.Monoid.<>- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"durationMicros")- _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 40) Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putVarInt _v)- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 50) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'tags") _x))- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 58) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'logs") _x))- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData Span where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_Span'_unknownFields x__)- (Control.DeepSeq.deepseq (_Span'spanContext x__)- (Control.DeepSeq.deepseq (_Span'operationName x__)- (Control.DeepSeq.deepseq (_Span'references x__)- (Control.DeepSeq.deepseq (_Span'startTimestamp x__)- (Control.DeepSeq.deepseq (_Span'durationMicros x__)- (Control.DeepSeq.deepseq (_Span'tags x__)- (Control.DeepSeq.deepseq (_Span'logs x__) (())))))))))-{- | Fields :-- * 'Proto.Collector_Fields.traceId' @:: Lens' SpanContext Data.Word.Word64@- * 'Proto.Collector_Fields.spanId' @:: Lens' SpanContext Data.Word.Word64@- * 'Proto.Collector_Fields.baggage' @:: Lens' SpanContext (Data.Map.Map Data.Text.Text Data.Text.Text)@- -}-data SpanContext = SpanContext{_SpanContext'traceId ::- !Data.Word.Word64,- _SpanContext'spanId :: !Data.Word.Word64,- _SpanContext'baggage ::- !(Data.Map.Map Data.Text.Text Data.Text.Text),- _SpanContext'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show SpanContext where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField SpanContext "traceId"- (Data.Word.Word64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _SpanContext'traceId- (\ x__ y__ -> x__{_SpanContext'traceId = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField SpanContext "spanId"- (Data.Word.Word64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _SpanContext'spanId- (\ x__ y__ -> x__{_SpanContext'spanId = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField SpanContext "baggage"- (Data.Map.Map Data.Text.Text Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _SpanContext'baggage- (\ x__ y__ -> x__{_SpanContext'baggage = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message SpanContext where- messageName _ = Data.Text.pack "lightstep.collector.SpanContext"- fieldsByTag- = let traceId__field_descriptor- = Data.ProtoLens.FieldDescriptor "trace_id"- (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::- Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"traceId"))- :: Data.ProtoLens.FieldDescriptor SpanContext- spanId__field_descriptor- = Data.ProtoLens.FieldDescriptor "span_id"- (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::- Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"spanId"))- :: Data.ProtoLens.FieldDescriptor SpanContext- baggage__field_descriptor- = Data.ProtoLens.FieldDescriptor "baggage"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor SpanContext'BaggageEntry)- (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key")- (Data.ProtoLens.Field.field @"value")- (Data.ProtoLens.Field.field @"baggage"))- :: Data.ProtoLens.FieldDescriptor SpanContext- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, traceId__field_descriptor),- (Data.ProtoLens.Tag 2, spanId__field_descriptor),- (Data.ProtoLens.Tag 3, baggage__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _SpanContext'_unknownFields- (\ x__ y__ -> x__{_SpanContext'_unknownFields = y__})- defMessage- = SpanContext{_SpanContext'traceId = Data.ProtoLens.fieldDefault,- _SpanContext'spanId = Data.ProtoLens.fieldDefault,- _SpanContext'baggage = Data.Map.empty,- _SpanContext'_unknownFields = ([])}- parseMessage- = let loop ::- SpanContext -> Data.ProtoLens.Encoding.Bytes.Parser SpanContext- loop x- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- x)- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "trace_id"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"traceId")- y- x)- 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "span_id"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"spanId")- y- x)- 26 -> do !(entry ::- SpanContext'BaggageEntry) <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral- len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?>- "baggage"- let key- = Lens.Family2.view- (Data.ProtoLens.Field.field @"key")- entry- value- = Lens.Family2.view- (Data.ProtoLens.Field.field @"value")- entry- in- loop- (Lens.Family2.over- (Data.ProtoLens.Field.field @"baggage")- (\ !t -> Data.Map.insert key value t)- x)- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- in- (do loop Data.ProtoLens.defMessage)- Data.ProtoLens.Encoding.Bytes.<?> "SpanContext"- buildMessage- = (\ _x ->- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"traceId") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putVarInt _v)- Data.Monoid.<>- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"spanId") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putVarInt _v)- Data.Monoid.<>- (Data.Monoid.mconcat- (Prelude.map- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- (Lens.Family2.set (Data.ProtoLens.Field.field @"key")- (Prelude.fst _v)- (Lens.Family2.set (Data.ProtoLens.Field.field @"value")- (Prelude.snd _v)- (Data.ProtoLens.defMessage :: SpanContext'BaggageEntry))))- (Data.Map.toList- (Lens.Family2.view (Data.ProtoLens.Field.field @"baggage") _x))))- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData SpanContext where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_SpanContext'_unknownFields x__)- (Control.DeepSeq.deepseq (_SpanContext'traceId x__)- (Control.DeepSeq.deepseq (_SpanContext'spanId x__)- (Control.DeepSeq.deepseq (_SpanContext'baggage x__) (())))))-{- | Fields :-- * 'Proto.Collector_Fields.key' @:: Lens' SpanContext'BaggageEntry Data.Text.Text@- * 'Proto.Collector_Fields.value' @:: Lens' SpanContext'BaggageEntry Data.Text.Text@- -}-data SpanContext'BaggageEntry = SpanContext'BaggageEntry{_SpanContext'BaggageEntry'key- :: !Data.Text.Text,- _SpanContext'BaggageEntry'value ::- !Data.Text.Text,- _SpanContext'BaggageEntry'_unknownFields ::- !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show SpanContext'BaggageEntry where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField SpanContext'BaggageEntry- "key"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _SpanContext'BaggageEntry'key- (\ x__ y__ -> x__{_SpanContext'BaggageEntry'key = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField SpanContext'BaggageEntry- "value"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _SpanContext'BaggageEntry'value- (\ x__ y__ -> x__{_SpanContext'BaggageEntry'value = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message SpanContext'BaggageEntry where- messageName _- = Data.Text.pack "lightstep.collector.SpanContext.BaggageEntry"- fieldsByTag- = let key__field_descriptor- = Data.ProtoLens.FieldDescriptor "key"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"key"))- :: Data.ProtoLens.FieldDescriptor SpanContext'BaggageEntry- value__field_descriptor- = Data.ProtoLens.FieldDescriptor "value"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"value"))- :: Data.ProtoLens.FieldDescriptor SpanContext'BaggageEntry- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, key__field_descriptor),- (Data.ProtoLens.Tag 2, value__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens- _SpanContext'BaggageEntry'_unknownFields- (\ x__ y__ -> x__{_SpanContext'BaggageEntry'_unknownFields = y__})- defMessage- = SpanContext'BaggageEntry{_SpanContext'BaggageEntry'key =- Data.ProtoLens.fieldDefault,- _SpanContext'BaggageEntry'value = Data.ProtoLens.fieldDefault,- _SpanContext'BaggageEntry'_unknownFields = ([])}- parseMessage- = let loop ::- SpanContext'BaggageEntry ->- Data.ProtoLens.Encoding.Bytes.Parser SpanContext'BaggageEntry- loop x- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- x)- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "key"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y- x)- 18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "value"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y- x)- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- in- (do loop Data.ProtoLens.defMessage)- Data.ProtoLens.Encoding.Bytes.<?> "BaggageEntry"- buildMessage- = (\ _x ->- (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- Data.Monoid.<>- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData SpanContext'BaggageEntry where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq- (_SpanContext'BaggageEntry'_unknownFields x__)- (Control.DeepSeq.deepseq (_SpanContext'BaggageEntry'key x__)- (Control.DeepSeq.deepseq (_SpanContext'BaggageEntry'value x__)- (()))))-data CollectorService = CollectorService{}- deriving ()-instance Data.ProtoLens.Service.Types.Service CollectorService- where- type ServiceName CollectorService = "CollectorService"- type ServicePackage CollectorService = "lightstep.collector"- type ServiceMethods CollectorService = '["report"]-instance Data.ProtoLens.Service.Types.HasMethodImpl- CollectorService- "report"- where- type MethodName CollectorService "report" = "Report"- type MethodInput CollectorService "report" = ReportRequest- type MethodOutput CollectorService "report" = ReportResponse- type MethodStreamingType CollectorService "report" =- 'Data.ProtoLens.Service.Types.NonStreaming+{-# 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.Collector (+ CollectorService(..), Auth(), Command(), InternalMetrics(),+ KeyValue(), KeyValue'Value(..), _KeyValue'StringValue,+ _KeyValue'IntValue, _KeyValue'DoubleValue, _KeyValue'BoolValue,+ _KeyValue'JsonValue, Log(), MetricsSample(),+ MetricsSample'Value(..), _MetricsSample'IntValue,+ _MetricsSample'DoubleValue, Reference(),+ Reference'Relationship(..), Reference'Relationship(),+ Reference'Relationship'UnrecognizedValue, ReportRequest(),+ ReportResponse(), Reporter(), Span(), SpanContext(),+ SpanContext'BaggageEntry()+ ) 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.Google.Api.Annotations+import qualified Proto.Google.Protobuf.Timestamp+{- | Fields :+ + * 'Proto.Collector_Fields.accessToken' @:: Lens' Auth Data.Text.Text@ -}+data Auth+ = Auth'_constructor {_Auth'accessToken :: !Data.Text.Text,+ _Auth'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Auth where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Auth "accessToken" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Auth'accessToken (\ x__ y__ -> x__ {_Auth'accessToken = y__}))+ Prelude.id+instance Data.ProtoLens.Message Auth where+ messageName _ = Data.Text.pack "lightstep.collector.Auth"+ packedMessageDescriptor _+ = "\n\+ \\EOTAuth\DC2!\n\+ \\faccess_token\CAN\SOH \SOH(\tR\vaccessToken"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ accessToken__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "access_token"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional+ (Data.ProtoLens.Field.field @"accessToken")) ::+ Data.ProtoLens.FieldDescriptor Auth+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, accessToken__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _Auth'_unknownFields+ (\ x__ y__ -> x__ {_Auth'_unknownFields = y__})+ defMessage+ = Auth'_constructor+ {_Auth'accessToken = Data.ProtoLens.fieldDefault,+ _Auth'_unknownFields = []}+ parseMessage+ = let+ loop :: Auth -> Data.ProtoLens.Encoding.Bytes.Parser Auth+ loop x+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "access_token"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"accessToken") y x)+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do loop Data.ProtoLens.defMessage) "Auth"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let+ _v+ = Lens.Family2.view (Data.ProtoLens.Field.field @"accessToken") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData Auth where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_Auth'_unknownFields x__)+ (Control.DeepSeq.deepseq (_Auth'accessToken x__) ())+{- | Fields :+ + * 'Proto.Collector_Fields.disable' @:: Lens' Command Prelude.Bool@+ * 'Proto.Collector_Fields.devMode' @:: Lens' Command Prelude.Bool@ -}+data Command+ = Command'_constructor {_Command'disable :: !Prelude.Bool,+ _Command'devMode :: !Prelude.Bool,+ _Command'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Command where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Command "disable" Prelude.Bool where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Command'disable (\ x__ y__ -> x__ {_Command'disable = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Command "devMode" Prelude.Bool where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Command'devMode (\ x__ y__ -> x__ {_Command'devMode = y__}))+ Prelude.id+instance Data.ProtoLens.Message Command where+ messageName _ = Data.Text.pack "lightstep.collector.Command"+ packedMessageDescriptor _+ = "\n\+ \\aCommand\DC2\CAN\n\+ \\adisable\CAN\SOH \SOH(\bR\adisable\DC2\EM\n\+ \\bdev_mode\CAN\STX \SOH(\bR\adevMode"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ disable__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "disable"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"disable")) ::+ Data.ProtoLens.FieldDescriptor Command+ devMode__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "dev_mode"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"devMode")) ::+ Data.ProtoLens.FieldDescriptor Command+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, disable__field_descriptor),+ (Data.ProtoLens.Tag 2, devMode__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _Command'_unknownFields+ (\ x__ y__ -> x__ {_Command'_unknownFields = y__})+ defMessage+ = Command'_constructor+ {_Command'disable = Data.ProtoLens.fieldDefault,+ _Command'devMode = Data.ProtoLens.fieldDefault,+ _Command'_unknownFields = []}+ parseMessage+ = let+ loop :: Command -> Data.ProtoLens.Encoding.Bytes.Parser Command+ loop x+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)+ "disable"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"disable") y x)+ 16+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)+ "dev_mode"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"devMode") y x)+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do loop Data.ProtoLens.defMessage) "Command"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let+ _v = Lens.Family2.view (Data.ProtoLens.Field.field @"disable") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)+ _v))+ ((Data.Monoid.<>)+ (let+ _v = Lens.Family2.view (Data.ProtoLens.Field.field @"devMode") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 16)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)+ _v))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData Command where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_Command'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_Command'disable x__)+ (Control.DeepSeq.deepseq (_Command'devMode x__) ()))+{- | Fields :+ + * 'Proto.Collector_Fields.startTimestamp' @:: Lens' InternalMetrics Proto.Google.Protobuf.Timestamp.Timestamp@+ * 'Proto.Collector_Fields.maybe'startTimestamp' @:: Lens' InternalMetrics (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@+ * 'Proto.Collector_Fields.durationMicros' @:: Lens' InternalMetrics Data.Word.Word64@+ * 'Proto.Collector_Fields.logs' @:: Lens' InternalMetrics [Log]@+ * 'Proto.Collector_Fields.vec'logs' @:: Lens' InternalMetrics (Data.Vector.Vector Log)@+ * 'Proto.Collector_Fields.counts' @:: Lens' InternalMetrics [MetricsSample]@+ * 'Proto.Collector_Fields.vec'counts' @:: Lens' InternalMetrics (Data.Vector.Vector MetricsSample)@+ * 'Proto.Collector_Fields.gauges' @:: Lens' InternalMetrics [MetricsSample]@+ * 'Proto.Collector_Fields.vec'gauges' @:: Lens' InternalMetrics (Data.Vector.Vector MetricsSample)@ -}+data InternalMetrics+ = InternalMetrics'_constructor {_InternalMetrics'startTimestamp :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),+ _InternalMetrics'durationMicros :: !Data.Word.Word64,+ _InternalMetrics'logs :: !(Data.Vector.Vector Log),+ _InternalMetrics'counts :: !(Data.Vector.Vector MetricsSample),+ _InternalMetrics'gauges :: !(Data.Vector.Vector MetricsSample),+ _InternalMetrics'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show InternalMetrics where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField InternalMetrics "startTimestamp" Proto.Google.Protobuf.Timestamp.Timestamp where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _InternalMetrics'startTimestamp+ (\ x__ y__ -> x__ {_InternalMetrics'startTimestamp = y__}))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField InternalMetrics "maybe'startTimestamp" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _InternalMetrics'startTimestamp+ (\ x__ y__ -> x__ {_InternalMetrics'startTimestamp = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField InternalMetrics "durationMicros" Data.Word.Word64 where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _InternalMetrics'durationMicros+ (\ x__ y__ -> x__ {_InternalMetrics'durationMicros = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField InternalMetrics "logs" [Log] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _InternalMetrics'logs+ (\ x__ y__ -> x__ {_InternalMetrics'logs = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField InternalMetrics "vec'logs" (Data.Vector.Vector Log) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _InternalMetrics'logs+ (\ x__ y__ -> x__ {_InternalMetrics'logs = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField InternalMetrics "counts" [MetricsSample] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _InternalMetrics'counts+ (\ x__ y__ -> x__ {_InternalMetrics'counts = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField InternalMetrics "vec'counts" (Data.Vector.Vector MetricsSample) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _InternalMetrics'counts+ (\ x__ y__ -> x__ {_InternalMetrics'counts = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField InternalMetrics "gauges" [MetricsSample] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _InternalMetrics'gauges+ (\ x__ y__ -> x__ {_InternalMetrics'gauges = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField InternalMetrics "vec'gauges" (Data.Vector.Vector MetricsSample) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _InternalMetrics'gauges+ (\ x__ y__ -> x__ {_InternalMetrics'gauges = y__}))+ Prelude.id+instance Data.ProtoLens.Message InternalMetrics where+ messageName _+ = Data.Text.pack "lightstep.collector.InternalMetrics"+ packedMessageDescriptor _+ = "\n\+ \\SIInternalMetrics\DC2C\n\+ \\SIstart_timestamp\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\SOstartTimestamp\DC2+\n\+ \\SIduration_micros\CAN\STX \SOH(\EOTR\SOdurationMicrosB\STX0\SOH\DC2,\n\+ \\EOTlogs\CAN\ETX \ETX(\v2\CAN.lightstep.collector.LogR\EOTlogs\DC2:\n\+ \\ACKcounts\CAN\EOT \ETX(\v2\".lightstep.collector.MetricsSampleR\ACKcounts\DC2:\n\+ \\ACKgauges\CAN\ENQ \ETX(\v2\".lightstep.collector.MetricsSampleR\ACKgauges"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ startTimestamp__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "start_timestamp"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'startTimestamp")) ::+ Data.ProtoLens.FieldDescriptor InternalMetrics+ durationMicros__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "duration_micros"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional+ (Data.ProtoLens.Field.field @"durationMicros")) ::+ Data.ProtoLens.FieldDescriptor InternalMetrics+ logs__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "logs"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Log)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"logs")) ::+ Data.ProtoLens.FieldDescriptor InternalMetrics+ counts__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "counts"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor MetricsSample)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"counts")) ::+ Data.ProtoLens.FieldDescriptor InternalMetrics+ gauges__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "gauges"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor MetricsSample)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"gauges")) ::+ Data.ProtoLens.FieldDescriptor InternalMetrics+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, startTimestamp__field_descriptor),+ (Data.ProtoLens.Tag 2, durationMicros__field_descriptor),+ (Data.ProtoLens.Tag 3, logs__field_descriptor),+ (Data.ProtoLens.Tag 4, counts__field_descriptor),+ (Data.ProtoLens.Tag 5, gauges__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _InternalMetrics'_unknownFields+ (\ x__ y__ -> x__ {_InternalMetrics'_unknownFields = y__})+ defMessage+ = InternalMetrics'_constructor+ {_InternalMetrics'startTimestamp = Prelude.Nothing,+ _InternalMetrics'durationMicros = Data.ProtoLens.fieldDefault,+ _InternalMetrics'logs = Data.Vector.Generic.empty,+ _InternalMetrics'counts = Data.Vector.Generic.empty,+ _InternalMetrics'gauges = Data.Vector.Generic.empty,+ _InternalMetrics'_unknownFields = []}+ parseMessage+ = let+ loop ::+ InternalMetrics+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MetricsSample+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MetricsSample+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Log+ -> Data.ProtoLens.Encoding.Bytes.Parser InternalMetrics+ loop x mutable'counts mutable'gauges mutable'logs+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do frozen'counts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze+ mutable'counts)+ frozen'gauges <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze+ mutable'gauges)+ frozen'logs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'logs)+ (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'counts") frozen'counts+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'gauges") frozen'gauges+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'logs") frozen'logs x))))+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "start_timestamp"+ loop+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"startTimestamp") y x)+ mutable'counts mutable'gauges mutable'logs+ 16+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ Data.ProtoLens.Encoding.Bytes.getVarInt "duration_micros"+ loop+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"durationMicros") y x)+ mutable'counts mutable'gauges mutable'logs+ 26+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "logs"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'logs y)+ loop x mutable'counts mutable'gauges v+ 34+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "counts"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'counts y)+ loop x v mutable'gauges mutable'logs+ 42+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "gauges"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'gauges y)+ loop x mutable'counts v mutable'logs+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ mutable'counts mutable'gauges mutable'logs+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do mutable'counts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ mutable'gauges <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ mutable'logs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ loop+ Data.ProtoLens.defMessage mutable'counts mutable'gauges+ mutable'logs)+ "InternalMetrics"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (case+ Lens.Family2.view+ (Data.ProtoLens.Field.field @"maybe'startTimestamp") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just _v)+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ ((Data.Monoid.<>)+ (let+ _v+ = Lens.Family2.view+ (Data.ProtoLens.Field.field @"durationMicros") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 16)+ (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'logs") _x))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'counts") _x))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 42)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral+ (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'gauges") _x))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))+instance Control.DeepSeq.NFData InternalMetrics where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_InternalMetrics'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_InternalMetrics'startTimestamp x__)+ (Control.DeepSeq.deepseq+ (_InternalMetrics'durationMicros x__)+ (Control.DeepSeq.deepseq+ (_InternalMetrics'logs x__)+ (Control.DeepSeq.deepseq+ (_InternalMetrics'counts x__)+ (Control.DeepSeq.deepseq (_InternalMetrics'gauges x__) ())))))+{- | Fields :+ + * 'Proto.Collector_Fields.key' @:: Lens' KeyValue Data.Text.Text@+ * 'Proto.Collector_Fields.maybe'value' @:: Lens' KeyValue (Prelude.Maybe KeyValue'Value)@+ * 'Proto.Collector_Fields.maybe'stringValue' @:: Lens' KeyValue (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Collector_Fields.stringValue' @:: Lens' KeyValue Data.Text.Text@+ * 'Proto.Collector_Fields.maybe'intValue' @:: Lens' KeyValue (Prelude.Maybe Data.Int.Int64)@+ * 'Proto.Collector_Fields.intValue' @:: Lens' KeyValue Data.Int.Int64@+ * 'Proto.Collector_Fields.maybe'doubleValue' @:: Lens' KeyValue (Prelude.Maybe Prelude.Double)@+ * 'Proto.Collector_Fields.doubleValue' @:: Lens' KeyValue Prelude.Double@+ * 'Proto.Collector_Fields.maybe'boolValue' @:: Lens' KeyValue (Prelude.Maybe Prelude.Bool)@+ * 'Proto.Collector_Fields.boolValue' @:: Lens' KeyValue Prelude.Bool@+ * 'Proto.Collector_Fields.maybe'jsonValue' @:: Lens' KeyValue (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Collector_Fields.jsonValue' @:: Lens' KeyValue Data.Text.Text@ -}+data KeyValue+ = KeyValue'_constructor {_KeyValue'key :: !Data.Text.Text,+ _KeyValue'value :: !(Prelude.Maybe KeyValue'Value),+ _KeyValue'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show KeyValue where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+data KeyValue'Value+ = KeyValue'StringValue !Data.Text.Text |+ KeyValue'IntValue !Data.Int.Int64 |+ KeyValue'DoubleValue !Prelude.Double |+ KeyValue'BoolValue !Prelude.Bool |+ KeyValue'JsonValue !Data.Text.Text+ deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.Field.HasField KeyValue "key" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'key (\ x__ y__ -> x__ {_KeyValue'key = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField KeyValue "maybe'value" (Prelude.Maybe KeyValue'Value) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField KeyValue "maybe'stringValue" (Prelude.Maybe Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (KeyValue'StringValue x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap KeyValue'StringValue y__))+instance Data.ProtoLens.Field.HasField KeyValue "stringValue" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (KeyValue'StringValue x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap KeyValue'StringValue y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField KeyValue "maybe'intValue" (Prelude.Maybe Data.Int.Int64) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (KeyValue'IntValue x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap KeyValue'IntValue y__))+instance Data.ProtoLens.Field.HasField KeyValue "intValue" Data.Int.Int64 where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (KeyValue'IntValue x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap KeyValue'IntValue y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField KeyValue "maybe'doubleValue" (Prelude.Maybe Prelude.Double) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (KeyValue'DoubleValue x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap KeyValue'DoubleValue y__))+instance Data.ProtoLens.Field.HasField KeyValue "doubleValue" Prelude.Double where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (KeyValue'DoubleValue x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap KeyValue'DoubleValue y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField KeyValue "maybe'boolValue" (Prelude.Maybe Prelude.Bool) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (KeyValue'BoolValue x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap KeyValue'BoolValue y__))+instance Data.ProtoLens.Field.HasField KeyValue "boolValue" Prelude.Bool where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (KeyValue'BoolValue x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap KeyValue'BoolValue y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField KeyValue "maybe'jsonValue" (Prelude.Maybe Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (KeyValue'JsonValue x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap KeyValue'JsonValue y__))+instance Data.ProtoLens.Field.HasField KeyValue "jsonValue" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _KeyValue'value (\ x__ y__ -> x__ {_KeyValue'value = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (KeyValue'JsonValue x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap KeyValue'JsonValue y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Message KeyValue where+ messageName _ = Data.Text.pack "lightstep.collector.KeyValue"+ packedMessageDescriptor _+ = "\n\+ \\bKeyValue\DC2\DLE\n\+ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2#\n\+ \\fstring_value\CAN\STX \SOH(\tH\NULR\vstringValue\DC2!\n\+ \\tint_value\CAN\ETX \SOH(\ETXH\NULR\bintValueB\STX0\SOH\DC2#\n\+ \\fdouble_value\CAN\EOT \SOH(\SOHH\NULR\vdoubleValue\DC2\US\n\+ \\n\+ \bool_value\CAN\ENQ \SOH(\bH\NULR\tboolValue\DC2\US\n\+ \\n\+ \json_value\CAN\ACK \SOH(\tH\NULR\tjsonValueB\a\n\+ \\ENQvalue"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ key__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "key"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) ::+ Data.ProtoLens.FieldDescriptor KeyValue+ stringValue__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "string_value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'stringValue")) ::+ Data.ProtoLens.FieldDescriptor KeyValue+ intValue__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "int_value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'intValue")) ::+ Data.ProtoLens.FieldDescriptor KeyValue+ doubleValue__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "double_value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'doubleValue")) ::+ Data.ProtoLens.FieldDescriptor KeyValue+ boolValue__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "bool_value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'boolValue")) ::+ Data.ProtoLens.FieldDescriptor KeyValue+ jsonValue__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "json_value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'jsonValue")) ::+ Data.ProtoLens.FieldDescriptor KeyValue+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, key__field_descriptor),+ (Data.ProtoLens.Tag 2, stringValue__field_descriptor),+ (Data.ProtoLens.Tag 3, intValue__field_descriptor),+ (Data.ProtoLens.Tag 4, doubleValue__field_descriptor),+ (Data.ProtoLens.Tag 5, boolValue__field_descriptor),+ (Data.ProtoLens.Tag 6, jsonValue__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _KeyValue'_unknownFields+ (\ x__ y__ -> x__ {_KeyValue'_unknownFields = y__})+ defMessage+ = KeyValue'_constructor+ {_KeyValue'key = Data.ProtoLens.fieldDefault,+ _KeyValue'value = Prelude.Nothing, _KeyValue'_unknownFields = []}+ parseMessage+ = let+ loop :: KeyValue -> Data.ProtoLens.Encoding.Bytes.Parser KeyValue+ loop x+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "key"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)+ 18+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "string_value"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"stringValue") y x)+ 24+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ Prelude.fromIntegral+ Data.ProtoLens.Encoding.Bytes.getVarInt)+ "int_value"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"intValue") y x)+ 33+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ Data.ProtoLens.Encoding.Bytes.wordToDouble+ Data.ProtoLens.Encoding.Bytes.getFixed64)+ "double_value"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"doubleValue") y x)+ 40+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)+ "bool_value"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"boolValue") y x)+ 50+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "json_value"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"jsonValue") y x)+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do loop Data.ProtoLens.defMessage) "KeyValue"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ ((Data.Monoid.<>)+ (case+ Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just (KeyValue'StringValue v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 v)+ (Prelude.Just (KeyValue'IntValue v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 24)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v)+ (Prelude.Just (KeyValue'DoubleValue v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 33)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putFixed64+ Data.ProtoLens.Encoding.Bytes.doubleToWord v)+ (Prelude.Just (KeyValue'BoolValue v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 40)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)+ v)+ (Prelude.Just (KeyValue'JsonValue v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 50)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 v))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData KeyValue where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_KeyValue'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_KeyValue'key x__)+ (Control.DeepSeq.deepseq (_KeyValue'value x__) ()))+instance Control.DeepSeq.NFData KeyValue'Value where+ rnf (KeyValue'StringValue x__) = Control.DeepSeq.rnf x__+ rnf (KeyValue'IntValue x__) = Control.DeepSeq.rnf x__+ rnf (KeyValue'DoubleValue x__) = Control.DeepSeq.rnf x__+ rnf (KeyValue'BoolValue x__) = Control.DeepSeq.rnf x__+ rnf (KeyValue'JsonValue x__) = Control.DeepSeq.rnf x__+_KeyValue'StringValue ::+ Data.ProtoLens.Prism.Prism' KeyValue'Value Data.Text.Text+_KeyValue'StringValue+ = Data.ProtoLens.Prism.prism'+ KeyValue'StringValue+ (\ p__+ -> case p__ of+ (KeyValue'StringValue p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_KeyValue'IntValue ::+ Data.ProtoLens.Prism.Prism' KeyValue'Value Data.Int.Int64+_KeyValue'IntValue+ = Data.ProtoLens.Prism.prism'+ KeyValue'IntValue+ (\ p__+ -> case p__ of+ (KeyValue'IntValue p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_KeyValue'DoubleValue ::+ Data.ProtoLens.Prism.Prism' KeyValue'Value Prelude.Double+_KeyValue'DoubleValue+ = Data.ProtoLens.Prism.prism'+ KeyValue'DoubleValue+ (\ p__+ -> case p__ of+ (KeyValue'DoubleValue p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_KeyValue'BoolValue ::+ Data.ProtoLens.Prism.Prism' KeyValue'Value Prelude.Bool+_KeyValue'BoolValue+ = Data.ProtoLens.Prism.prism'+ KeyValue'BoolValue+ (\ p__+ -> case p__ of+ (KeyValue'BoolValue p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_KeyValue'JsonValue ::+ Data.ProtoLens.Prism.Prism' KeyValue'Value Data.Text.Text+_KeyValue'JsonValue+ = Data.ProtoLens.Prism.prism'+ KeyValue'JsonValue+ (\ p__+ -> case p__ of+ (KeyValue'JsonValue p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+{- | Fields :+ + * 'Proto.Collector_Fields.timestamp' @:: Lens' Log Proto.Google.Protobuf.Timestamp.Timestamp@+ * 'Proto.Collector_Fields.maybe'timestamp' @:: Lens' Log (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@+ * 'Proto.Collector_Fields.fields' @:: Lens' Log [KeyValue]@+ * 'Proto.Collector_Fields.vec'fields' @:: Lens' Log (Data.Vector.Vector KeyValue)@ -}+data Log+ = Log'_constructor {_Log'timestamp :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),+ _Log'fields :: !(Data.Vector.Vector KeyValue),+ _Log'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Log where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Log "timestamp" Proto.Google.Protobuf.Timestamp.Timestamp where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Log'timestamp (\ x__ y__ -> x__ {_Log'timestamp = y__}))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Log "maybe'timestamp" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Log'timestamp (\ x__ y__ -> x__ {_Log'timestamp = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Log "fields" [KeyValue] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Log'fields (\ x__ y__ -> x__ {_Log'fields = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Log "vec'fields" (Data.Vector.Vector KeyValue) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Log'fields (\ x__ y__ -> x__ {_Log'fields = y__}))+ Prelude.id+instance Data.ProtoLens.Message Log where+ messageName _ = Data.Text.pack "lightstep.collector.Log"+ packedMessageDescriptor _+ = "\n\+ \\ETXLog\DC28\n\+ \\ttimestamp\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\ttimestamp\DC25\n\+ \\ACKfields\CAN\STX \ETX(\v2\GS.lightstep.collector.KeyValueR\ACKfields"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ timestamp__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "timestamp"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'timestamp")) ::+ Data.ProtoLens.FieldDescriptor Log+ fields__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "fields"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor KeyValue)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"fields")) ::+ Data.ProtoLens.FieldDescriptor Log+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, timestamp__field_descriptor),+ (Data.ProtoLens.Tag 2, fields__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _Log'_unknownFields (\ x__ y__ -> x__ {_Log'_unknownFields = y__})+ defMessage+ = Log'_constructor+ {_Log'timestamp = Prelude.Nothing,+ _Log'fields = Data.Vector.Generic.empty, _Log'_unknownFields = []}+ parseMessage+ = let+ loop ::+ Log+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld KeyValue+ -> Data.ProtoLens.Encoding.Bytes.Parser Log+ loop x mutable'fields+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do frozen'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze+ mutable'fields)+ (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'fields") frozen'fields x))+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "timestamp"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") y x)+ mutable'fields+ 18+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "fields"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'fields y)+ loop x v+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ mutable'fields+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do mutable'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ loop Data.ProtoLens.defMessage mutable'fields)+ "Log"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (case+ Lens.Family2.view+ (Data.ProtoLens.Field.field @"maybe'timestamp") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just _v)+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'fields") _x))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData Log where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_Log'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_Log'timestamp x__)+ (Control.DeepSeq.deepseq (_Log'fields x__) ()))+{- | Fields :+ + * 'Proto.Collector_Fields.name' @:: Lens' MetricsSample Data.Text.Text@+ * 'Proto.Collector_Fields.maybe'value' @:: Lens' MetricsSample (Prelude.Maybe MetricsSample'Value)@+ * 'Proto.Collector_Fields.maybe'intValue' @:: Lens' MetricsSample (Prelude.Maybe Data.Int.Int64)@+ * 'Proto.Collector_Fields.intValue' @:: Lens' MetricsSample Data.Int.Int64@+ * 'Proto.Collector_Fields.maybe'doubleValue' @:: Lens' MetricsSample (Prelude.Maybe Prelude.Double)@+ * 'Proto.Collector_Fields.doubleValue' @:: Lens' MetricsSample Prelude.Double@ -}+data MetricsSample+ = MetricsSample'_constructor {_MetricsSample'name :: !Data.Text.Text,+ _MetricsSample'value :: !(Prelude.Maybe MetricsSample'Value),+ _MetricsSample'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show MetricsSample where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+data MetricsSample'Value+ = MetricsSample'IntValue !Data.Int.Int64 |+ MetricsSample'DoubleValue !Prelude.Double+ deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.Field.HasField MetricsSample "name" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _MetricsSample'name (\ x__ y__ -> x__ {_MetricsSample'name = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField MetricsSample "maybe'value" (Prelude.Maybe MetricsSample'Value) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _MetricsSample'value+ (\ x__ y__ -> x__ {_MetricsSample'value = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField MetricsSample "maybe'intValue" (Prelude.Maybe Data.Int.Int64) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _MetricsSample'value+ (\ x__ y__ -> x__ {_MetricsSample'value = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (MetricsSample'IntValue x__val))+ -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap MetricsSample'IntValue y__))+instance Data.ProtoLens.Field.HasField MetricsSample "intValue" Data.Int.Int64 where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _MetricsSample'value+ (\ x__ y__ -> x__ {_MetricsSample'value = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (MetricsSample'IntValue x__val))+ -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap MetricsSample'IntValue y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField MetricsSample "maybe'doubleValue" (Prelude.Maybe Prelude.Double) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _MetricsSample'value+ (\ x__ y__ -> x__ {_MetricsSample'value = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (MetricsSample'DoubleValue x__val))+ -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap MetricsSample'DoubleValue y__))+instance Data.ProtoLens.Field.HasField MetricsSample "doubleValue" Prelude.Double where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _MetricsSample'value+ (\ x__ y__ -> x__ {_MetricsSample'value = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (MetricsSample'DoubleValue x__val))+ -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap MetricsSample'DoubleValue y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Message MetricsSample where+ messageName _ = Data.Text.pack "lightstep.collector.MetricsSample"+ packedMessageDescriptor _+ = "\n\+ \\rMetricsSample\DC2\DC2\n\+ \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2!\n\+ \\tint_value\CAN\STX \SOH(\ETXH\NULR\bintValueB\STX0\SOH\DC2#\n\+ \\fdouble_value\CAN\ETX \SOH(\SOHH\NULR\vdoubleValueB\a\n\+ \\ENQvalue"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ name__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) ::+ Data.ProtoLens.FieldDescriptor MetricsSample+ intValue__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "int_value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'intValue")) ::+ Data.ProtoLens.FieldDescriptor MetricsSample+ doubleValue__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "double_value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'doubleValue")) ::+ Data.ProtoLens.FieldDescriptor MetricsSample+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, name__field_descriptor),+ (Data.ProtoLens.Tag 2, intValue__field_descriptor),+ (Data.ProtoLens.Tag 3, doubleValue__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _MetricsSample'_unknownFields+ (\ x__ y__ -> x__ {_MetricsSample'_unknownFields = y__})+ defMessage+ = MetricsSample'_constructor+ {_MetricsSample'name = Data.ProtoLens.fieldDefault,+ _MetricsSample'value = Prelude.Nothing,+ _MetricsSample'_unknownFields = []}+ parseMessage+ = let+ loop ::+ MetricsSample -> Data.ProtoLens.Encoding.Bytes.Parser MetricsSample+ loop x+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "name"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)+ 16+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ Prelude.fromIntegral+ Data.ProtoLens.Encoding.Bytes.getVarInt)+ "int_value"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"intValue") y x)+ 25+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ Data.ProtoLens.Encoding.Bytes.wordToDouble+ Data.ProtoLens.Encoding.Bytes.getFixed64)+ "double_value"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"doubleValue") y x)+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do loop Data.ProtoLens.defMessage) "MetricsSample"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ ((Data.Monoid.<>)+ (case+ Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just (MetricsSample'IntValue v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 16)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v)+ (Prelude.Just (MetricsSample'DoubleValue v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 25)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putFixed64+ Data.ProtoLens.Encoding.Bytes.doubleToWord v))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData MetricsSample where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_MetricsSample'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_MetricsSample'name x__)+ (Control.DeepSeq.deepseq (_MetricsSample'value x__) ()))+instance Control.DeepSeq.NFData MetricsSample'Value where+ rnf (MetricsSample'IntValue x__) = Control.DeepSeq.rnf x__+ rnf (MetricsSample'DoubleValue x__) = Control.DeepSeq.rnf x__+_MetricsSample'IntValue ::+ Data.ProtoLens.Prism.Prism' MetricsSample'Value Data.Int.Int64+_MetricsSample'IntValue+ = Data.ProtoLens.Prism.prism'+ MetricsSample'IntValue+ (\ p__+ -> case p__ of+ (MetricsSample'IntValue p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_MetricsSample'DoubleValue ::+ Data.ProtoLens.Prism.Prism' MetricsSample'Value Prelude.Double+_MetricsSample'DoubleValue+ = Data.ProtoLens.Prism.prism'+ MetricsSample'DoubleValue+ (\ p__+ -> case p__ of+ (MetricsSample'DoubleValue p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+{- | Fields :+ + * 'Proto.Collector_Fields.relationship' @:: Lens' Reference Reference'Relationship@+ * 'Proto.Collector_Fields.spanContext' @:: Lens' Reference SpanContext@+ * 'Proto.Collector_Fields.maybe'spanContext' @:: Lens' Reference (Prelude.Maybe SpanContext)@ -}+data Reference+ = Reference'_constructor {_Reference'relationship :: !Reference'Relationship,+ _Reference'spanContext :: !(Prelude.Maybe SpanContext),+ _Reference'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Reference where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Reference "relationship" Reference'Relationship where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Reference'relationship+ (\ x__ y__ -> x__ {_Reference'relationship = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Reference "spanContext" SpanContext where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Reference'spanContext+ (\ x__ y__ -> x__ {_Reference'spanContext = y__}))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Reference "maybe'spanContext" (Prelude.Maybe SpanContext) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Reference'spanContext+ (\ x__ y__ -> x__ {_Reference'spanContext = y__}))+ Prelude.id+instance Data.ProtoLens.Message Reference where+ messageName _ = Data.Text.pack "lightstep.collector.Reference"+ packedMessageDescriptor _+ = "\n\+ \\tReference\DC2O\n\+ \\frelationship\CAN\SOH \SOH(\SO2+.lightstep.collector.Reference.RelationshipR\frelationship\DC2C\n\+ \\fspan_context\CAN\STX \SOH(\v2 .lightstep.collector.SpanContextR\vspanContext\".\n\+ \\fRelationship\DC2\f\n\+ \\bCHILD_OF\DLE\NUL\DC2\DLE\n\+ \\fFOLLOWS_FROM\DLE\SOH"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ relationship__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "relationship"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor Reference'Relationship)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional+ (Data.ProtoLens.Field.field @"relationship")) ::+ Data.ProtoLens.FieldDescriptor Reference+ spanContext__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "span_context"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor SpanContext)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'spanContext")) ::+ Data.ProtoLens.FieldDescriptor Reference+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, relationship__field_descriptor),+ (Data.ProtoLens.Tag 2, spanContext__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _Reference'_unknownFields+ (\ x__ y__ -> x__ {_Reference'_unknownFields = y__})+ defMessage+ = Reference'_constructor+ {_Reference'relationship = Data.ProtoLens.fieldDefault,+ _Reference'spanContext = Prelude.Nothing,+ _Reference'_unknownFields = []}+ parseMessage+ = let+ loop :: Reference -> Data.ProtoLens.Encoding.Bytes.Parser Reference+ loop x+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ Prelude.toEnum+ (Prelude.fmap+ Prelude.fromIntegral+ Data.ProtoLens.Encoding.Bytes.getVarInt))+ "relationship"+ loop+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"relationship") y x)+ 18+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "span_context"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"spanContext") y x)+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do loop Data.ProtoLens.defMessage) "Reference"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let+ _v+ = Lens.Family2.view (Data.ProtoLens.Field.field @"relationship") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+ ((Prelude..)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)+ Prelude.fromEnum _v))+ ((Data.Monoid.<>)+ (case+ Lens.Family2.view+ (Data.ProtoLens.Field.field @"maybe'spanContext") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just _v)+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData Reference where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_Reference'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_Reference'relationship x__)+ (Control.DeepSeq.deepseq (_Reference'spanContext x__) ()))+newtype Reference'Relationship'UnrecognizedValue+ = Reference'Relationship'UnrecognizedValue Data.Int.Int32+ deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show)+data Reference'Relationship+ = Reference'CHILD_OF |+ Reference'FOLLOWS_FROM |+ Reference'Relationship'Unrecognized !Reference'Relationship'UnrecognizedValue+ deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.MessageEnum Reference'Relationship where+ maybeToEnum 0 = Prelude.Just Reference'CHILD_OF+ maybeToEnum 1 = Prelude.Just Reference'FOLLOWS_FROM+ maybeToEnum k+ = Prelude.Just+ (Reference'Relationship'Unrecognized+ (Reference'Relationship'UnrecognizedValue+ (Prelude.fromIntegral k)))+ showEnum Reference'CHILD_OF = "CHILD_OF"+ showEnum Reference'FOLLOWS_FROM = "FOLLOWS_FROM"+ showEnum+ (Reference'Relationship'Unrecognized (Reference'Relationship'UnrecognizedValue k))+ = Prelude.show k+ readEnum k+ | (Prelude.==) k "CHILD_OF" = Prelude.Just Reference'CHILD_OF+ | (Prelude.==) k "FOLLOWS_FROM"+ = Prelude.Just Reference'FOLLOWS_FROM+ | Prelude.otherwise+ = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded Reference'Relationship where+ minBound = Reference'CHILD_OF+ maxBound = Reference'FOLLOWS_FROM+instance Prelude.Enum Reference'Relationship where+ toEnum k__+ = Prelude.maybe+ (Prelude.error+ ((Prelude.++)+ "toEnum: unknown value for enum Relationship: "+ (Prelude.show k__)))+ Prelude.id (Data.ProtoLens.maybeToEnum k__)+ fromEnum Reference'CHILD_OF = 0+ fromEnum Reference'FOLLOWS_FROM = 1+ fromEnum+ (Reference'Relationship'Unrecognized (Reference'Relationship'UnrecognizedValue k))+ = Prelude.fromIntegral k+ succ Reference'FOLLOWS_FROM+ = Prelude.error+ "Reference'Relationship.succ: bad argument Reference'FOLLOWS_FROM. This value would be out of bounds."+ succ Reference'CHILD_OF = Reference'FOLLOWS_FROM+ succ (Reference'Relationship'Unrecognized _)+ = Prelude.error+ "Reference'Relationship.succ: bad argument: unrecognized value"+ pred Reference'CHILD_OF+ = Prelude.error+ "Reference'Relationship.pred: bad argument Reference'CHILD_OF. This value would be out of bounds."+ pred Reference'FOLLOWS_FROM = Reference'CHILD_OF+ pred (Reference'Relationship'Unrecognized _)+ = Prelude.error+ "Reference'Relationship.pred: bad argument: unrecognized value"+ enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+ enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+ enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+ enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.ProtoLens.FieldDefault Reference'Relationship where+ fieldDefault = Reference'CHILD_OF+instance Control.DeepSeq.NFData Reference'Relationship where+ rnf x__ = Prelude.seq x__ ()+{- | Fields :+ + * 'Proto.Collector_Fields.reporter' @:: Lens' ReportRequest Reporter@+ * 'Proto.Collector_Fields.maybe'reporter' @:: Lens' ReportRequest (Prelude.Maybe Reporter)@+ * 'Proto.Collector_Fields.auth' @:: Lens' ReportRequest Auth@+ * 'Proto.Collector_Fields.maybe'auth' @:: Lens' ReportRequest (Prelude.Maybe Auth)@+ * 'Proto.Collector_Fields.spans' @:: Lens' ReportRequest [Span]@+ * 'Proto.Collector_Fields.vec'spans' @:: Lens' ReportRequest (Data.Vector.Vector Span)@+ * 'Proto.Collector_Fields.timestampOffsetMicros' @:: Lens' ReportRequest Data.Int.Int64@+ * 'Proto.Collector_Fields.internalMetrics' @:: Lens' ReportRequest InternalMetrics@+ * 'Proto.Collector_Fields.maybe'internalMetrics' @:: Lens' ReportRequest (Prelude.Maybe InternalMetrics)@ -}+data ReportRequest+ = ReportRequest'_constructor {_ReportRequest'reporter :: !(Prelude.Maybe Reporter),+ _ReportRequest'auth :: !(Prelude.Maybe Auth),+ _ReportRequest'spans :: !(Data.Vector.Vector Span),+ _ReportRequest'timestampOffsetMicros :: !Data.Int.Int64,+ _ReportRequest'internalMetrics :: !(Prelude.Maybe InternalMetrics),+ _ReportRequest'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show ReportRequest where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField ReportRequest "reporter" Reporter where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportRequest'reporter+ (\ x__ y__ -> x__ {_ReportRequest'reporter = y__}))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField ReportRequest "maybe'reporter" (Prelude.Maybe Reporter) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportRequest'reporter+ (\ x__ y__ -> x__ {_ReportRequest'reporter = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField ReportRequest "auth" Auth where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportRequest'auth (\ x__ y__ -> x__ {_ReportRequest'auth = y__}))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField ReportRequest "maybe'auth" (Prelude.Maybe Auth) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportRequest'auth (\ x__ y__ -> x__ {_ReportRequest'auth = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField ReportRequest "spans" [Span] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportRequest'spans+ (\ x__ y__ -> x__ {_ReportRequest'spans = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField ReportRequest "vec'spans" (Data.Vector.Vector Span) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportRequest'spans+ (\ x__ y__ -> x__ {_ReportRequest'spans = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField ReportRequest "timestampOffsetMicros" Data.Int.Int64 where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportRequest'timestampOffsetMicros+ (\ x__ y__ -> x__ {_ReportRequest'timestampOffsetMicros = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField ReportRequest "internalMetrics" InternalMetrics where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportRequest'internalMetrics+ (\ x__ y__ -> x__ {_ReportRequest'internalMetrics = y__}))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField ReportRequest "maybe'internalMetrics" (Prelude.Maybe InternalMetrics) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportRequest'internalMetrics+ (\ x__ y__ -> x__ {_ReportRequest'internalMetrics = y__}))+ Prelude.id+instance Data.ProtoLens.Message ReportRequest where+ messageName _ = Data.Text.pack "lightstep.collector.ReportRequest"+ packedMessageDescriptor _+ = "\n\+ \\rReportRequest\DC29\n\+ \\breporter\CAN\SOH \SOH(\v2\GS.lightstep.collector.ReporterR\breporter\DC2-\n\+ \\EOTauth\CAN\STX \SOH(\v2\EM.lightstep.collector.AuthR\EOTauth\DC2/\n\+ \\ENQspans\CAN\ETX \ETX(\v2\EM.lightstep.collector.SpanR\ENQspans\DC2:\n\+ \\ETBtimestamp_offset_micros\CAN\ENQ \SOH(\ETXR\NAKtimestampOffsetMicrosB\STX0\SOH\DC2O\n\+ \\DLEinternal_metrics\CAN\ACK \SOH(\v2$.lightstep.collector.InternalMetricsR\SIinternalMetrics"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ reporter__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "reporter"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Reporter)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'reporter")) ::+ Data.ProtoLens.FieldDescriptor ReportRequest+ auth__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "auth"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Auth)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'auth")) ::+ Data.ProtoLens.FieldDescriptor ReportRequest+ spans__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "spans"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Span)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"spans")) ::+ Data.ProtoLens.FieldDescriptor ReportRequest+ timestampOffsetMicros__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "timestamp_offset_micros"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional+ (Data.ProtoLens.Field.field @"timestampOffsetMicros")) ::+ Data.ProtoLens.FieldDescriptor ReportRequest+ internalMetrics__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "internal_metrics"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor InternalMetrics)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'internalMetrics")) ::+ Data.ProtoLens.FieldDescriptor ReportRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, reporter__field_descriptor),+ (Data.ProtoLens.Tag 2, auth__field_descriptor),+ (Data.ProtoLens.Tag 3, spans__field_descriptor),+ (Data.ProtoLens.Tag 5, timestampOffsetMicros__field_descriptor),+ (Data.ProtoLens.Tag 6, internalMetrics__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _ReportRequest'_unknownFields+ (\ x__ y__ -> x__ {_ReportRequest'_unknownFields = y__})+ defMessage+ = ReportRequest'_constructor+ {_ReportRequest'reporter = Prelude.Nothing,+ _ReportRequest'auth = Prelude.Nothing,+ _ReportRequest'spans = Data.Vector.Generic.empty,+ _ReportRequest'timestampOffsetMicros = Data.ProtoLens.fieldDefault,+ _ReportRequest'internalMetrics = Prelude.Nothing,+ _ReportRequest'_unknownFields = []}+ parseMessage+ = let+ loop ::+ ReportRequest+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Span+ -> Data.ProtoLens.Encoding.Bytes.Parser ReportRequest+ loop x mutable'spans+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do frozen'spans <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'spans)+ (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'spans") frozen'spans x))+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "reporter"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"reporter") y x)+ mutable'spans+ 18+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "auth"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"auth") y x)+ mutable'spans+ 26+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "spans"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'spans y)+ loop x v+ 40+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ Prelude.fromIntegral+ Data.ProtoLens.Encoding.Bytes.getVarInt)+ "timestamp_offset_micros"+ loop+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"timestampOffsetMicros") y x)+ mutable'spans+ 50+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "internal_metrics"+ loop+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"internalMetrics") y x)+ mutable'spans+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ mutable'spans+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do mutable'spans <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ loop Data.ProtoLens.defMessage mutable'spans)+ "ReportRequest"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (case+ Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'reporter") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just _v)+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ ((Data.Monoid.<>)+ (case+ Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'auth") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just _v)+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'spans") _x))+ ((Data.Monoid.<>)+ (let+ _v+ = Lens.Family2.view+ (Data.ProtoLens.Field.field @"timestampOffsetMicros") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 40)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))+ ((Data.Monoid.<>)+ (case+ Lens.Family2.view+ (Data.ProtoLens.Field.field @"maybe'internalMetrics") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just _v)+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 50)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))+instance Control.DeepSeq.NFData ReportRequest where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_ReportRequest'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_ReportRequest'reporter x__)+ (Control.DeepSeq.deepseq+ (_ReportRequest'auth x__)+ (Control.DeepSeq.deepseq+ (_ReportRequest'spans x__)+ (Control.DeepSeq.deepseq+ (_ReportRequest'timestampOffsetMicros x__)+ (Control.DeepSeq.deepseq+ (_ReportRequest'internalMetrics x__) ())))))+{- | Fields :+ + * 'Proto.Collector_Fields.commands' @:: Lens' ReportResponse [Command]@+ * 'Proto.Collector_Fields.vec'commands' @:: Lens' ReportResponse (Data.Vector.Vector Command)@+ * 'Proto.Collector_Fields.receiveTimestamp' @:: Lens' ReportResponse Proto.Google.Protobuf.Timestamp.Timestamp@+ * 'Proto.Collector_Fields.maybe'receiveTimestamp' @:: Lens' ReportResponse (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@+ * 'Proto.Collector_Fields.transmitTimestamp' @:: Lens' ReportResponse Proto.Google.Protobuf.Timestamp.Timestamp@+ * 'Proto.Collector_Fields.maybe'transmitTimestamp' @:: Lens' ReportResponse (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@+ * 'Proto.Collector_Fields.errors' @:: Lens' ReportResponse [Data.Text.Text]@+ * 'Proto.Collector_Fields.vec'errors' @:: Lens' ReportResponse (Data.Vector.Vector Data.Text.Text)@+ * 'Proto.Collector_Fields.warnings' @:: Lens' ReportResponse [Data.Text.Text]@+ * 'Proto.Collector_Fields.vec'warnings' @:: Lens' ReportResponse (Data.Vector.Vector Data.Text.Text)@+ * 'Proto.Collector_Fields.infos' @:: Lens' ReportResponse [Data.Text.Text]@+ * 'Proto.Collector_Fields.vec'infos' @:: Lens' ReportResponse (Data.Vector.Vector Data.Text.Text)@ -}+data ReportResponse+ = ReportResponse'_constructor {_ReportResponse'commands :: !(Data.Vector.Vector Command),+ _ReportResponse'receiveTimestamp :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),+ _ReportResponse'transmitTimestamp :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),+ _ReportResponse'errors :: !(Data.Vector.Vector Data.Text.Text),+ _ReportResponse'warnings :: !(Data.Vector.Vector Data.Text.Text),+ _ReportResponse'infos :: !(Data.Vector.Vector Data.Text.Text),+ _ReportResponse'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show ReportResponse where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField ReportResponse "commands" [Command] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'commands+ (\ x__ y__ -> x__ {_ReportResponse'commands = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField ReportResponse "vec'commands" (Data.Vector.Vector Command) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'commands+ (\ x__ y__ -> x__ {_ReportResponse'commands = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField ReportResponse "receiveTimestamp" Proto.Google.Protobuf.Timestamp.Timestamp where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'receiveTimestamp+ (\ x__ y__ -> x__ {_ReportResponse'receiveTimestamp = y__}))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField ReportResponse "maybe'receiveTimestamp" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'receiveTimestamp+ (\ x__ y__ -> x__ {_ReportResponse'receiveTimestamp = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField ReportResponse "transmitTimestamp" Proto.Google.Protobuf.Timestamp.Timestamp where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'transmitTimestamp+ (\ x__ y__ -> x__ {_ReportResponse'transmitTimestamp = y__}))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField ReportResponse "maybe'transmitTimestamp" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'transmitTimestamp+ (\ x__ y__ -> x__ {_ReportResponse'transmitTimestamp = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField ReportResponse "errors" [Data.Text.Text] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'errors+ (\ x__ y__ -> x__ {_ReportResponse'errors = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField ReportResponse "vec'errors" (Data.Vector.Vector Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'errors+ (\ x__ y__ -> x__ {_ReportResponse'errors = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField ReportResponse "warnings" [Data.Text.Text] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'warnings+ (\ x__ y__ -> x__ {_ReportResponse'warnings = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField ReportResponse "vec'warnings" (Data.Vector.Vector Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'warnings+ (\ x__ y__ -> x__ {_ReportResponse'warnings = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField ReportResponse "infos" [Data.Text.Text] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'infos+ (\ x__ y__ -> x__ {_ReportResponse'infos = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField ReportResponse "vec'infos" (Data.Vector.Vector Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _ReportResponse'infos+ (\ x__ y__ -> x__ {_ReportResponse'infos = y__}))+ Prelude.id+instance Data.ProtoLens.Message ReportResponse where+ messageName _ = Data.Text.pack "lightstep.collector.ReportResponse"+ packedMessageDescriptor _+ = "\n\+ \\SOReportResponse\DC28\n\+ \\bcommands\CAN\SOH \ETX(\v2\FS.lightstep.collector.CommandR\bcommands\DC2G\n\+ \\DC1receive_timestamp\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\DLEreceiveTimestamp\DC2I\n\+ \\DC2transmit_timestamp\CAN\ETX \SOH(\v2\SUB.google.protobuf.TimestampR\DC1transmitTimestamp\DC2\SYN\n\+ \\ACKerrors\CAN\EOT \ETX(\tR\ACKerrors\DC2\SUB\n\+ \\bwarnings\CAN\ENQ \ETX(\tR\bwarnings\DC2\DC4\n\+ \\ENQinfos\CAN\ACK \ETX(\tR\ENQinfos"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ commands__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "commands"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Command)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked+ (Data.ProtoLens.Field.field @"commands")) ::+ Data.ProtoLens.FieldDescriptor ReportResponse+ receiveTimestamp__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "receive_timestamp"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'receiveTimestamp")) ::+ Data.ProtoLens.FieldDescriptor ReportResponse+ transmitTimestamp__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "transmit_timestamp"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'transmitTimestamp")) ::+ Data.ProtoLens.FieldDescriptor ReportResponse+ errors__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "errors"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"errors")) ::+ Data.ProtoLens.FieldDescriptor ReportResponse+ warnings__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "warnings"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked+ (Data.ProtoLens.Field.field @"warnings")) ::+ Data.ProtoLens.FieldDescriptor ReportResponse+ infos__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "infos"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"infos")) ::+ Data.ProtoLens.FieldDescriptor ReportResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, commands__field_descriptor),+ (Data.ProtoLens.Tag 2, receiveTimestamp__field_descriptor),+ (Data.ProtoLens.Tag 3, transmitTimestamp__field_descriptor),+ (Data.ProtoLens.Tag 4, errors__field_descriptor),+ (Data.ProtoLens.Tag 5, warnings__field_descriptor),+ (Data.ProtoLens.Tag 6, infos__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _ReportResponse'_unknownFields+ (\ x__ y__ -> x__ {_ReportResponse'_unknownFields = y__})+ defMessage+ = ReportResponse'_constructor+ {_ReportResponse'commands = Data.Vector.Generic.empty,+ _ReportResponse'receiveTimestamp = Prelude.Nothing,+ _ReportResponse'transmitTimestamp = Prelude.Nothing,+ _ReportResponse'errors = Data.Vector.Generic.empty,+ _ReportResponse'warnings = Data.Vector.Generic.empty,+ _ReportResponse'infos = Data.Vector.Generic.empty,+ _ReportResponse'_unknownFields = []}+ parseMessage+ = let+ loop ::+ ReportResponse+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Command+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text+ -> Data.ProtoLens.Encoding.Bytes.Parser ReportResponse+ loop+ x+ mutable'commands+ mutable'errors+ mutable'infos+ mutable'warnings+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do frozen'commands <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze+ mutable'commands)+ frozen'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze+ mutable'errors)+ frozen'infos <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'infos)+ frozen'warnings <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze+ mutable'warnings)+ (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'commands") frozen'commands+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'errors") frozen'errors+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'infos") frozen'infos+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'warnings") frozen'warnings+ x)))))+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "commands"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'commands y)+ loop x v mutable'errors mutable'infos mutable'warnings+ 18+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "receive_timestamp"+ loop+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"receiveTimestamp") y x)+ mutable'commands mutable'errors mutable'infos mutable'warnings+ 26+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "transmit_timestamp"+ loop+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"transmitTimestamp") y x)+ mutable'commands mutable'errors mutable'infos mutable'warnings+ 34+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "errors"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'errors y)+ loop x mutable'commands v mutable'infos mutable'warnings+ 42+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "warnings"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'warnings y)+ loop x mutable'commands mutable'errors mutable'infos v+ 50+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "infos"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'infos y)+ loop x mutable'commands mutable'errors v mutable'warnings+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ mutable'commands mutable'errors mutable'infos mutable'warnings+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do mutable'commands <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ mutable'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ mutable'infos <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ mutable'warnings <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ loop+ Data.ProtoLens.defMessage mutable'commands mutable'errors+ mutable'infos mutable'warnings)+ "ReportResponse"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view+ (Data.ProtoLens.Field.field @"vec'commands") _x))+ ((Data.Monoid.<>)+ (case+ Lens.Family2.view+ (Data.ProtoLens.Field.field @"maybe'receiveTimestamp") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just _v)+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ ((Data.Monoid.<>)+ (case+ Lens.Family2.view+ (Data.ProtoLens.Field.field @"maybe'transmitTimestamp") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just _v)+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'errors") _x))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 42)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral+ (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ (Lens.Family2.view+ (Data.ProtoLens.Field.field @"vec'warnings") _x))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 50)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral+ (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'infos") _x))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))+instance Control.DeepSeq.NFData ReportResponse where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_ReportResponse'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_ReportResponse'commands x__)+ (Control.DeepSeq.deepseq+ (_ReportResponse'receiveTimestamp x__)+ (Control.DeepSeq.deepseq+ (_ReportResponse'transmitTimestamp x__)+ (Control.DeepSeq.deepseq+ (_ReportResponse'errors x__)+ (Control.DeepSeq.deepseq+ (_ReportResponse'warnings x__)+ (Control.DeepSeq.deepseq (_ReportResponse'infos x__) ()))))))+{- | Fields :+ + * 'Proto.Collector_Fields.reporterId' @:: Lens' Reporter Data.Word.Word64@+ * 'Proto.Collector_Fields.tags' @:: Lens' Reporter [KeyValue]@+ * 'Proto.Collector_Fields.vec'tags' @:: Lens' Reporter (Data.Vector.Vector KeyValue)@ -}+data Reporter+ = Reporter'_constructor {_Reporter'reporterId :: !Data.Word.Word64,+ _Reporter'tags :: !(Data.Vector.Vector KeyValue),+ _Reporter'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Reporter where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Reporter "reporterId" Data.Word.Word64 where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Reporter'reporterId+ (\ x__ y__ -> x__ {_Reporter'reporterId = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Reporter "tags" [KeyValue] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Reporter'tags (\ x__ y__ -> x__ {_Reporter'tags = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Reporter "vec'tags" (Data.Vector.Vector KeyValue) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Reporter'tags (\ x__ y__ -> x__ {_Reporter'tags = y__}))+ Prelude.id+instance Data.ProtoLens.Message Reporter where+ messageName _ = Data.Text.pack "lightstep.collector.Reporter"+ packedMessageDescriptor _+ = "\n\+ \\bReporter\DC2#\n\+ \\vreporter_id\CAN\SOH \SOH(\EOTR\n\+ \reporterIdB\STX0\SOH\DC21\n\+ \\EOTtags\CAN\EOT \ETX(\v2\GS.lightstep.collector.KeyValueR\EOTtags"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ reporterId__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "reporter_id"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional+ (Data.ProtoLens.Field.field @"reporterId")) ::+ Data.ProtoLens.FieldDescriptor Reporter+ tags__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "tags"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor KeyValue)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"tags")) ::+ Data.ProtoLens.FieldDescriptor Reporter+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, reporterId__field_descriptor),+ (Data.ProtoLens.Tag 4, tags__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _Reporter'_unknownFields+ (\ x__ y__ -> x__ {_Reporter'_unknownFields = y__})+ defMessage+ = Reporter'_constructor+ {_Reporter'reporterId = Data.ProtoLens.fieldDefault,+ _Reporter'tags = Data.Vector.Generic.empty,+ _Reporter'_unknownFields = []}+ parseMessage+ = let+ loop ::+ Reporter+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld KeyValue+ -> Data.ProtoLens.Encoding.Bytes.Parser Reporter+ loop x mutable'tags+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do frozen'tags <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'tags)+ (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'tags") frozen'tags x))+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ Data.ProtoLens.Encoding.Bytes.getVarInt "reporter_id"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"reporterId") y x)+ mutable'tags+ 34+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "tags"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'tags y)+ loop x v+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ mutable'tags+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do mutable'tags <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ loop Data.ProtoLens.defMessage mutable'tags)+ "Reporter"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let+ _v+ = Lens.Family2.view (Data.ProtoLens.Field.field @"reporterId") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+ (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'tags") _x))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData Reporter where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_Reporter'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_Reporter'reporterId x__)+ (Control.DeepSeq.deepseq (_Reporter'tags x__) ()))+{- | Fields :+ + * 'Proto.Collector_Fields.spanContext' @:: Lens' Span SpanContext@+ * 'Proto.Collector_Fields.maybe'spanContext' @:: Lens' Span (Prelude.Maybe SpanContext)@+ * 'Proto.Collector_Fields.operationName' @:: Lens' Span Data.Text.Text@+ * 'Proto.Collector_Fields.references' @:: Lens' Span [Reference]@+ * 'Proto.Collector_Fields.vec'references' @:: Lens' Span (Data.Vector.Vector Reference)@+ * 'Proto.Collector_Fields.startTimestamp' @:: Lens' Span Proto.Google.Protobuf.Timestamp.Timestamp@+ * 'Proto.Collector_Fields.maybe'startTimestamp' @:: Lens' Span (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@+ * 'Proto.Collector_Fields.durationMicros' @:: Lens' Span Data.Word.Word64@+ * 'Proto.Collector_Fields.tags' @:: Lens' Span [KeyValue]@+ * 'Proto.Collector_Fields.vec'tags' @:: Lens' Span (Data.Vector.Vector KeyValue)@+ * 'Proto.Collector_Fields.logs' @:: Lens' Span [Log]@+ * 'Proto.Collector_Fields.vec'logs' @:: Lens' Span (Data.Vector.Vector Log)@ -}+data Span+ = Span'_constructor {_Span'spanContext :: !(Prelude.Maybe SpanContext),+ _Span'operationName :: !Data.Text.Text,+ _Span'references :: !(Data.Vector.Vector Reference),+ _Span'startTimestamp :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),+ _Span'durationMicros :: !Data.Word.Word64,+ _Span'tags :: !(Data.Vector.Vector KeyValue),+ _Span'logs :: !(Data.Vector.Vector Log),+ _Span'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Span where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Span "spanContext" SpanContext where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'spanContext (\ x__ y__ -> x__ {_Span'spanContext = y__}))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Span "maybe'spanContext" (Prelude.Maybe SpanContext) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'spanContext (\ x__ y__ -> x__ {_Span'spanContext = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Span "operationName" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'operationName (\ x__ y__ -> x__ {_Span'operationName = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Span "references" [Reference] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'references (\ x__ y__ -> x__ {_Span'references = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Span "vec'references" (Data.Vector.Vector Reference) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'references (\ x__ y__ -> x__ {_Span'references = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Span "startTimestamp" Proto.Google.Protobuf.Timestamp.Timestamp where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'startTimestamp+ (\ x__ y__ -> x__ {_Span'startTimestamp = y__}))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Span "maybe'startTimestamp" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'startTimestamp+ (\ x__ y__ -> x__ {_Span'startTimestamp = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Span "durationMicros" Data.Word.Word64 where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'durationMicros+ (\ x__ y__ -> x__ {_Span'durationMicros = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Span "tags" [KeyValue] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'tags (\ x__ y__ -> x__ {_Span'tags = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Span "vec'tags" (Data.Vector.Vector KeyValue) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'tags (\ x__ y__ -> x__ {_Span'tags = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Span "logs" [Log] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'logs (\ x__ y__ -> x__ {_Span'logs = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Span "vec'logs" (Data.Vector.Vector Log) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Span'logs (\ x__ y__ -> x__ {_Span'logs = y__}))+ Prelude.id+instance Data.ProtoLens.Message Span where+ messageName _ = Data.Text.pack "lightstep.collector.Span"+ packedMessageDescriptor _+ = "\n\+ \\EOTSpan\DC2C\n\+ \\fspan_context\CAN\SOH \SOH(\v2 .lightstep.collector.SpanContextR\vspanContext\DC2%\n\+ \\SOoperation_name\CAN\STX \SOH(\tR\roperationName\DC2>\n\+ \\n\+ \references\CAN\ETX \ETX(\v2\RS.lightstep.collector.ReferenceR\n\+ \references\DC2C\n\+ \\SIstart_timestamp\CAN\EOT \SOH(\v2\SUB.google.protobuf.TimestampR\SOstartTimestamp\DC2+\n\+ \\SIduration_micros\CAN\ENQ \SOH(\EOTR\SOdurationMicrosB\STX0\SOH\DC21\n\+ \\EOTtags\CAN\ACK \ETX(\v2\GS.lightstep.collector.KeyValueR\EOTtags\DC2,\n\+ \\EOTlogs\CAN\a \ETX(\v2\CAN.lightstep.collector.LogR\EOTlogs"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ spanContext__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "span_context"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor SpanContext)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'spanContext")) ::+ Data.ProtoLens.FieldDescriptor Span+ operationName__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "operation_name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional+ (Data.ProtoLens.Field.field @"operationName")) ::+ Data.ProtoLens.FieldDescriptor Span+ references__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "references"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Reference)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked+ (Data.ProtoLens.Field.field @"references")) ::+ Data.ProtoLens.FieldDescriptor Span+ startTimestamp__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "start_timestamp"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'startTimestamp")) ::+ Data.ProtoLens.FieldDescriptor Span+ durationMicros__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "duration_micros"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional+ (Data.ProtoLens.Field.field @"durationMicros")) ::+ Data.ProtoLens.FieldDescriptor Span+ tags__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "tags"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor KeyValue)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"tags")) ::+ Data.ProtoLens.FieldDescriptor Span+ logs__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "logs"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Log)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"logs")) ::+ Data.ProtoLens.FieldDescriptor Span+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, spanContext__field_descriptor),+ (Data.ProtoLens.Tag 2, operationName__field_descriptor),+ (Data.ProtoLens.Tag 3, references__field_descriptor),+ (Data.ProtoLens.Tag 4, startTimestamp__field_descriptor),+ (Data.ProtoLens.Tag 5, durationMicros__field_descriptor),+ (Data.ProtoLens.Tag 6, tags__field_descriptor),+ (Data.ProtoLens.Tag 7, logs__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _Span'_unknownFields+ (\ x__ y__ -> x__ {_Span'_unknownFields = y__})+ defMessage+ = Span'_constructor+ {_Span'spanContext = Prelude.Nothing,+ _Span'operationName = Data.ProtoLens.fieldDefault,+ _Span'references = Data.Vector.Generic.empty,+ _Span'startTimestamp = Prelude.Nothing,+ _Span'durationMicros = Data.ProtoLens.fieldDefault,+ _Span'tags = Data.Vector.Generic.empty,+ _Span'logs = Data.Vector.Generic.empty, _Span'_unknownFields = []}+ parseMessage+ = let+ loop ::+ Span+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Log+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Reference+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld KeyValue+ -> Data.ProtoLens.Encoding.Bytes.Parser Span+ loop x mutable'logs mutable'references mutable'tags+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do frozen'logs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'logs)+ frozen'references <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze+ mutable'references)+ frozen'tags <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'tags)+ (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'logs") frozen'logs+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'references") frozen'references+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'tags") frozen'tags x))))+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "span_context"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"spanContext") y x)+ mutable'logs mutable'references mutable'tags+ 18+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "operation_name"+ loop+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"operationName") y x)+ mutable'logs mutable'references mutable'tags+ 26+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "references"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'references y)+ loop x mutable'logs v mutable'tags+ 34+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "start_timestamp"+ loop+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"startTimestamp") y x)+ mutable'logs mutable'references mutable'tags+ 40+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ Data.ProtoLens.Encoding.Bytes.getVarInt "duration_micros"+ loop+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"durationMicros") y x)+ mutable'logs mutable'references mutable'tags+ 50+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "tags"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'tags y)+ loop x mutable'logs mutable'references v+ 58+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "logs"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'logs y)+ loop x v mutable'references mutable'tags+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ mutable'logs mutable'references mutable'tags+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do mutable'logs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ mutable'references <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ mutable'tags <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ loop+ Data.ProtoLens.defMessage mutable'logs mutable'references+ mutable'tags)+ "Span"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (case+ Lens.Family2.view+ (Data.ProtoLens.Field.field @"maybe'spanContext") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just _v)+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ ((Data.Monoid.<>)+ (let+ _v+ = Lens.Family2.view+ (Data.ProtoLens.Field.field @"operationName") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view+ (Data.ProtoLens.Field.field @"vec'references") _x))+ ((Data.Monoid.<>)+ (case+ Lens.Family2.view+ (Data.ProtoLens.Field.field @"maybe'startTimestamp") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just _v)+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ ((Data.Monoid.<>)+ (let+ _v+ = Lens.Family2.view+ (Data.ProtoLens.Field.field @"durationMicros") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 40)+ (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 50)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral+ (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'tags") _x))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 58)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral+ (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'logs") _x))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))+instance Control.DeepSeq.NFData Span where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_Span'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_Span'spanContext x__)+ (Control.DeepSeq.deepseq+ (_Span'operationName x__)+ (Control.DeepSeq.deepseq+ (_Span'references x__)+ (Control.DeepSeq.deepseq+ (_Span'startTimestamp x__)+ (Control.DeepSeq.deepseq+ (_Span'durationMicros x__)+ (Control.DeepSeq.deepseq+ (_Span'tags x__)+ (Control.DeepSeq.deepseq (_Span'logs x__) ())))))))+{- | Fields :+ + * 'Proto.Collector_Fields.traceId' @:: Lens' SpanContext Data.Word.Word64@+ * 'Proto.Collector_Fields.spanId' @:: Lens' SpanContext Data.Word.Word64@+ * 'Proto.Collector_Fields.baggage' @:: Lens' SpanContext (Data.Map.Map Data.Text.Text Data.Text.Text)@ -}+data SpanContext+ = SpanContext'_constructor {_SpanContext'traceId :: !Data.Word.Word64,+ _SpanContext'spanId :: !Data.Word.Word64,+ _SpanContext'baggage :: !(Data.Map.Map Data.Text.Text Data.Text.Text),+ _SpanContext'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show SpanContext where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField SpanContext "traceId" Data.Word.Word64 where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _SpanContext'traceId+ (\ x__ y__ -> x__ {_SpanContext'traceId = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField SpanContext "spanId" Data.Word.Word64 where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _SpanContext'spanId (\ x__ y__ -> x__ {_SpanContext'spanId = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField SpanContext "baggage" (Data.Map.Map Data.Text.Text Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _SpanContext'baggage+ (\ x__ y__ -> x__ {_SpanContext'baggage = y__}))+ Prelude.id+instance Data.ProtoLens.Message SpanContext where+ messageName _ = Data.Text.pack "lightstep.collector.SpanContext"+ packedMessageDescriptor _+ = "\n\+ \\vSpanContext\DC2\GS\n\+ \\btrace_id\CAN\SOH \SOH(\EOTR\atraceIdB\STX0\SOH\DC2\ESC\n\+ \\aspan_id\CAN\STX \SOH(\EOTR\ACKspanIdB\STX0\SOH\DC2G\n\+ \\abaggage\CAN\ETX \ETX(\v2-.lightstep.collector.SpanContext.BaggageEntryR\abaggage\SUB:\n\+ \\fBaggageEntry\DC2\DLE\n\+ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\+ \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ traceId__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "trace_id"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"traceId")) ::+ Data.ProtoLens.FieldDescriptor SpanContext+ spanId__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "span_id"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"spanId")) ::+ Data.ProtoLens.FieldDescriptor SpanContext+ baggage__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "baggage"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor SpanContext'BaggageEntry)+ (Data.ProtoLens.MapField+ (Data.ProtoLens.Field.field @"key")+ (Data.ProtoLens.Field.field @"value")+ (Data.ProtoLens.Field.field @"baggage")) ::+ Data.ProtoLens.FieldDescriptor SpanContext+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, traceId__field_descriptor),+ (Data.ProtoLens.Tag 2, spanId__field_descriptor),+ (Data.ProtoLens.Tag 3, baggage__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _SpanContext'_unknownFields+ (\ x__ y__ -> x__ {_SpanContext'_unknownFields = y__})+ defMessage+ = SpanContext'_constructor+ {_SpanContext'traceId = Data.ProtoLens.fieldDefault,+ _SpanContext'spanId = Data.ProtoLens.fieldDefault,+ _SpanContext'baggage = Data.Map.empty,+ _SpanContext'_unknownFields = []}+ parseMessage+ = let+ loop ::+ SpanContext -> Data.ProtoLens.Encoding.Bytes.Parser SpanContext+ loop x+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ Data.ProtoLens.Encoding.Bytes.getVarInt "trace_id"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"traceId") y x)+ 16+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ Data.ProtoLens.Encoding.Bytes.getVarInt "span_id"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"spanId") y x)+ 26+ -> do !(entry :: SpanContext'BaggageEntry) <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral+ len)+ Data.ProtoLens.parseMessage)+ "baggage"+ (let+ key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry+ value+ = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry+ in+ loop+ (Lens.Family2.over+ (Data.ProtoLens.Field.field @"baggage")+ (\ !t -> Data.Map.insert key value t) x))+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do loop Data.ProtoLens.defMessage) "SpanContext"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let+ _v = Lens.Family2.view (Data.ProtoLens.Field.field @"traceId") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+ (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+ ((Data.Monoid.<>)+ (let+ _v = Lens.Family2.view (Data.ProtoLens.Field.field @"spanId") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 16)+ (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+ ((Data.Monoid.<>)+ (Data.Monoid.mconcat+ (Prelude.map+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"key") (Prelude.fst _v)+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"value") (Prelude.snd _v)+ (Data.ProtoLens.defMessage ::+ SpanContext'BaggageEntry)))))+ (Data.Map.toList+ (Lens.Family2.view (Data.ProtoLens.Field.field @"baggage") _x))))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x))))+instance Control.DeepSeq.NFData SpanContext where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_SpanContext'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_SpanContext'traceId x__)+ (Control.DeepSeq.deepseq+ (_SpanContext'spanId x__)+ (Control.DeepSeq.deepseq (_SpanContext'baggage x__) ())))+{- | Fields :+ + * 'Proto.Collector_Fields.key' @:: Lens' SpanContext'BaggageEntry Data.Text.Text@+ * 'Proto.Collector_Fields.value' @:: Lens' SpanContext'BaggageEntry Data.Text.Text@ -}+data SpanContext'BaggageEntry+ = SpanContext'BaggageEntry'_constructor {_SpanContext'BaggageEntry'key :: !Data.Text.Text,+ _SpanContext'BaggageEntry'value :: !Data.Text.Text,+ _SpanContext'BaggageEntry'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show SpanContext'BaggageEntry where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField SpanContext'BaggageEntry "key" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _SpanContext'BaggageEntry'key+ (\ x__ y__ -> x__ {_SpanContext'BaggageEntry'key = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField SpanContext'BaggageEntry "value" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _SpanContext'BaggageEntry'value+ (\ x__ y__ -> x__ {_SpanContext'BaggageEntry'value = y__}))+ Prelude.id+instance Data.ProtoLens.Message SpanContext'BaggageEntry where+ messageName _+ = Data.Text.pack "lightstep.collector.SpanContext.BaggageEntry"+ packedMessageDescriptor _+ = "\n\+ \\fBaggageEntry\DC2\DLE\n\+ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\+ \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ key__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "key"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) ::+ Data.ProtoLens.FieldDescriptor SpanContext'BaggageEntry+ value__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) ::+ Data.ProtoLens.FieldDescriptor SpanContext'BaggageEntry+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, key__field_descriptor),+ (Data.ProtoLens.Tag 2, value__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _SpanContext'BaggageEntry'_unknownFields+ (\ x__ y__ -> x__ {_SpanContext'BaggageEntry'_unknownFields = y__})+ defMessage+ = SpanContext'BaggageEntry'_constructor+ {_SpanContext'BaggageEntry'key = Data.ProtoLens.fieldDefault,+ _SpanContext'BaggageEntry'value = Data.ProtoLens.fieldDefault,+ _SpanContext'BaggageEntry'_unknownFields = []}+ parseMessage+ = let+ loop ::+ SpanContext'BaggageEntry+ -> Data.ProtoLens.Encoding.Bytes.Parser SpanContext'BaggageEntry+ loop x+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "key"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)+ 18+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "value"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do loop Data.ProtoLens.defMessage) "BaggageEntry"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ ((Data.Monoid.<>)+ (let+ _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData SpanContext'BaggageEntry where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_SpanContext'BaggageEntry'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_SpanContext'BaggageEntry'key x__)+ (Control.DeepSeq.deepseq (_SpanContext'BaggageEntry'value x__) ()))+data CollectorService = CollectorService {}+instance Data.ProtoLens.Service.Types.Service CollectorService where+ type ServiceName CollectorService = "CollectorService"+ type ServicePackage CollectorService = "lightstep.collector"+ type ServiceMethods CollectorService = '["report"]+instance Data.ProtoLens.Service.Types.HasMethodImpl CollectorService "report" where+ type MethodName CollectorService "report" = "Report"+ type MethodInput CollectorService "report" = ReportRequest+ type MethodOutput CollectorService "report" = ReportResponse+ type MethodStreamingType CollectorService "report" = 'Data.ProtoLens.Service.Types.NonStreaming+packedFileDescriptor :: Data.ByteString.ByteString+packedFileDescriptor+ = "\n\+ \\SIcollector.proto\DC2\DC3lightstep.collector\SUB\USgoogle/protobuf/timestamp.proto\SUB\FSgoogle/api/annotations.proto\"\206\SOH\n\+ \\vSpanContext\DC2\GS\n\+ \\btrace_id\CAN\SOH \SOH(\EOTR\atraceIdB\STX0\SOH\DC2\ESC\n\+ \\aspan_id\CAN\STX \SOH(\EOTR\ACKspanIdB\STX0\SOH\DC2G\n\+ \\abaggage\CAN\ETX \ETX(\v2-.lightstep.collector.SpanContext.BaggageEntryR\abaggage\SUB:\n\+ \\fBaggageEntry\DC2\DLE\n\+ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\+ \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\"\212\SOH\n\+ \\bKeyValue\DC2\DLE\n\+ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2#\n\+ \\fstring_value\CAN\STX \SOH(\tH\NULR\vstringValue\DC2!\n\+ \\tint_value\CAN\ETX \SOH(\ETXH\NULR\bintValueB\STX0\SOH\DC2#\n\+ \\fdouble_value\CAN\EOT \SOH(\SOHH\NULR\vdoubleValue\DC2\US\n\+ \\n\+ \bool_value\CAN\ENQ \SOH(\bH\NULR\tboolValue\DC2\US\n\+ \\n\+ \json_value\CAN\ACK \SOH(\tH\NULR\tjsonValueB\a\n\+ \\ENQvalue\"v\n\+ \\ETXLog\DC28\n\+ \\ttimestamp\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\ttimestamp\DC25\n\+ \\ACKfields\CAN\STX \ETX(\v2\GS.lightstep.collector.KeyValueR\ACKfields\"\209\SOH\n\+ \\tReference\DC2O\n\+ \\frelationship\CAN\SOH \SOH(\SO2+.lightstep.collector.Reference.RelationshipR\frelationship\DC2C\n\+ \\fspan_context\CAN\STX \SOH(\v2 .lightstep.collector.SpanContextR\vspanContext\".\n\+ \\fRelationship\DC2\f\n\+ \\bCHILD_OF\DLE\NUL\DC2\DLE\n\+ \\fFOLLOWS_FROM\DLE\SOH\"\133\ETX\n\+ \\EOTSpan\DC2C\n\+ \\fspan_context\CAN\SOH \SOH(\v2 .lightstep.collector.SpanContextR\vspanContext\DC2%\n\+ \\SOoperation_name\CAN\STX \SOH(\tR\roperationName\DC2>\n\+ \\n\+ \references\CAN\ETX \ETX(\v2\RS.lightstep.collector.ReferenceR\n\+ \references\DC2C\n\+ \\SIstart_timestamp\CAN\EOT \SOH(\v2\SUB.google.protobuf.TimestampR\SOstartTimestamp\DC2+\n\+ \\SIduration_micros\CAN\ENQ \SOH(\EOTR\SOdurationMicrosB\STX0\SOH\DC21\n\+ \\EOTtags\CAN\ACK \ETX(\v2\GS.lightstep.collector.KeyValueR\EOTtags\DC2,\n\+ \\EOTlogs\CAN\a \ETX(\v2\CAN.lightstep.collector.LogR\EOTlogs\"b\n\+ \\bReporter\DC2#\n\+ \\vreporter_id\CAN\SOH \SOH(\EOTR\n\+ \reporterIdB\STX0\SOH\DC21\n\+ \\EOTtags\CAN\EOT \ETX(\v2\GS.lightstep.collector.KeyValueR\EOTtags\"t\n\+ \\rMetricsSample\DC2\DC2\n\+ \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2!\n\+ \\tint_value\CAN\STX \SOH(\ETXH\NULR\bintValueB\STX0\SOH\DC2#\n\+ \\fdouble_value\CAN\ETX \SOH(\SOHH\NULR\vdoubleValueB\a\n\+ \\ENQvalue\"\169\STX\n\+ \\SIInternalMetrics\DC2C\n\+ \\SIstart_timestamp\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\SOstartTimestamp\DC2+\n\+ \\SIduration_micros\CAN\STX \SOH(\EOTR\SOdurationMicrosB\STX0\SOH\DC2,\n\+ \\EOTlogs\CAN\ETX \ETX(\v2\CAN.lightstep.collector.LogR\EOTlogs\DC2:\n\+ \\ACKcounts\CAN\EOT \ETX(\v2\".lightstep.collector.MetricsSampleR\ACKcounts\DC2:\n\+ \\ACKgauges\CAN\ENQ \ETX(\v2\".lightstep.collector.MetricsSampleR\ACKgauges\")\n\+ \\EOTAuth\DC2!\n\+ \\faccess_token\CAN\SOH \SOH(\tR\vaccessToken\"\183\STX\n\+ \\rReportRequest\DC29\n\+ \\breporter\CAN\SOH \SOH(\v2\GS.lightstep.collector.ReporterR\breporter\DC2-\n\+ \\EOTauth\CAN\STX \SOH(\v2\EM.lightstep.collector.AuthR\EOTauth\DC2/\n\+ \\ENQspans\CAN\ETX \ETX(\v2\EM.lightstep.collector.SpanR\ENQspans\DC2:\n\+ \\ETBtimestamp_offset_micros\CAN\ENQ \SOH(\ETXR\NAKtimestampOffsetMicrosB\STX0\SOH\DC2O\n\+ \\DLEinternal_metrics\CAN\ACK \SOH(\v2$.lightstep.collector.InternalMetricsR\SIinternalMetrics\">\n\+ \\aCommand\DC2\CAN\n\+ \\adisable\CAN\SOH \SOH(\bR\adisable\DC2\EM\n\+ \\bdev_mode\CAN\STX \SOH(\bR\adevMode\"\168\STX\n\+ \\SOReportResponse\DC28\n\+ \\bcommands\CAN\SOH \ETX(\v2\FS.lightstep.collector.CommandR\bcommands\DC2G\n\+ \\DC1receive_timestamp\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\DLEreceiveTimestamp\DC2I\n\+ \\DC2transmit_timestamp\CAN\ETX \SOH(\v2\SUB.google.protobuf.TimestampR\DC1transmitTimestamp\DC2\SYN\n\+ \\ACKerrors\CAN\EOT \ETX(\tR\ACKerrors\DC2\SUB\n\+ \\bwarnings\CAN\ENQ \ETX(\tR\bwarnings\DC2\DC4\n\+ \\ENQinfos\CAN\ACK \ETX(\tR\ENQinfos2\149\SOH\n\+ \\DLECollectorService\DC2\128\SOH\n\+ \\ACKReport\DC2\".lightstep.collector.ReportRequest\SUB#.lightstep.collector.ReportResponse\"-\130\211\228\147\STX'\"\SI/api/v2/reports:\SOH*Z\DC1\DC2\SI/api/v2/reportsB1\n\+ \\EMcom.lightstep.tracer.grpcP\SOHZ\vcollectorpb\162\STX\EOTLSPBJ\195\GS\n\+ \\ACK\DC2\EOT\NUL\NULs\SOH\n\+ \\b\n\+ \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\+ \\b\n\+ \\SOH\STX\DC2\ETX\STX\NUL\FS\n\+ \\b\n\+ \\SOH\b\DC2\ETX\EOT\NUL\"\n\+ \\t\n\+ \\STX\b\v\DC2\ETX\EOT\NUL\"\n\+ \\b\n\+ \\SOH\b\DC2\ETX\ENQ\NUL\"\n\+ \\t\n\+ \\STX\b$\DC2\ETX\ENQ\NUL\"\n\+ \\b\n\+ \\SOH\b\DC2\ETX\ACK\NUL\"\n\+ \\t\n\+ \\STX\b\n\+ \\DC2\ETX\ACK\NUL\"\n\+ \\b\n\+ \\SOH\b\DC2\ETX\a\NUL2\n\+ \\t\n\+ \\STX\b\SOH\DC2\ETX\a\NUL2\n\+ \\t\n\+ \\STX\ETX\NUL\DC2\ETX\t\NUL)\n\+ \\t\n\+ \\STX\ETX\SOH\DC2\ETX\n\+ \\NUL&\n\+ \\n\+ \\n\+ \\STX\EOT\NUL\DC2\EOT\f\NUL\DLE\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\NUL\SOH\DC2\ETX\f\b\DC3\n\+ \\v\n\+ \\EOT\EOT\NUL\STX\NUL\DC2\ETX\r\EOT+\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\r\EOT\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\r\v\DC3\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\r\SYN\ETB\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\NUL\b\DC2\ETX\r\CAN*\n\+ \\r\n\+ \\ACK\EOT\NUL\STX\NUL\b\ACK\DC2\ETX\r\EM)\n\+ \\v\n\+ \\EOT\EOT\NUL\STX\SOH\DC2\ETX\SO\EOT*\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\SO\EOT\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\SO\v\DC2\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\SO\NAK\SYN\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\SOH\b\DC2\ETX\SO\ETB)\n\+ \\r\n\+ \\ACK\EOT\NUL\STX\SOH\b\ACK\DC2\ETX\SO\CAN(\n\+ \\v\n\+ \\EOT\EOT\NUL\STX\STX\DC2\ETX\SI\EOT$\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX\SI\EOT\ETB\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\SI\CAN\US\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\SI\"#\n\+ \1\n\+ \\STX\EOT\SOH\DC2\EOT\DC3\NUL \SOH\SUB% Represent both tags and log fields.\n\+ \\n\+ \\n\+ \\n\+ \\ETX\EOT\SOH\SOH\DC2\ETX\DC3\b\DLE\n\+ \\v\n\+ \\EOT\EOT\SOH\STX\NUL\DC2\ETX\DC4\EOT\DC3\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\DC4\EOT\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DC4\v\SO\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DC4\DC1\DC2\n\+ \\f\n\+ \\EOT\EOT\SOH\b\NUL\DC2\EOT\NAK\EOT\US\ENQ\n\+ \\f\n\+ \\ENQ\EOT\SOH\b\NUL\SOH\DC2\ETX\NAK\n\+ \\SI\n\+ \^\n\+ \\EOT\EOT\SOH\STX\SOH\DC2\ETX\CAN\b \SUBQ Holds arbitrary string data; well-formed JSON strings should go in\n\+ \ json_value.\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\CAN\b\SO\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\CAN\SI\ESC\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\CAN\RS\US\n\+ \\v\n\+ \\EOT\EOT\SOH\STX\STX\DC2\ETX\EM\b/\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX\EM\b\r\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\EM\SO\ETB\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\EM\SUB\ESC\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\STX\b\DC2\ETX\EM\FS.\n\+ \\r\n\+ \\ACK\EOT\SOH\STX\STX\b\ACK\DC2\ETX\EM\GS-\n\+ \\v\n\+ \\EOT\EOT\SOH\STX\ETX\DC2\ETX\SUB\b \n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\ETX\SUB\b\SO\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\SUB\SI\ESC\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\SUB\RS\US\n\+ \\v\n\+ \\EOT\EOT\SOH\STX\EOT\DC2\ETX\ESC\b\FS\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\EOT\ENQ\DC2\ETX\ESC\b\f\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\EOT\SOH\DC2\ETX\ESC\r\ETB\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\EOT\ETX\DC2\ETX\ESC\SUB\ESC\n\+ \x\n\+ \\EOT\EOT\SOH\STX\ENQ\DC2\ETX\RS\b\RS\SUBk Must be a well-formed JSON value. Truncated JSON should go in\n\+ \ string_value. Should not be used for tags.\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\ENQ\ENQ\DC2\ETX\RS\b\SO\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\ETX\RS\SI\EM\n\+ \\f\n\+ \\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\ETX\RS\FS\GS\n\+ \\n\+ \\n\+ \\STX\EOT\STX\DC2\EOT\"\NUL%\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\STX\SOH\DC2\ETX\"\b\v\n\+ \\v\n\+ \\EOT\EOT\STX\STX\NUL\DC2\ETX#\EOT,\n\+ \\f\n\+ \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX#\EOT\GS\n\+ \\f\n\+ \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX#\RS'\n\+ \\f\n\+ \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX#*+\n\+ \\v\n\+ \\EOT\EOT\STX\STX\SOH\DC2\ETX$\EOT!\n\+ \\f\n\+ \\ENQ\EOT\STX\STX\SOH\EOT\DC2\ETX$\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX$\r\NAK\n\+ \\f\n\+ \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX$\SYN\FS\n\+ \\f\n\+ \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX$\US \n\+ \\n\+ \\n\+ \\STX\EOT\ETX\DC2\EOT'\NUL.\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\ETX\SOH\DC2\ETX'\b\DC1\n\+ \\f\n\+ \\EOT\EOT\ETX\EOT\NUL\DC2\EOT(\EOT+\ENQ\n\+ \\f\n\+ \\ENQ\EOT\ETX\EOT\NUL\SOH\DC2\ETX(\t\NAK\n\+ \\r\n\+ \\ACK\EOT\ETX\EOT\NUL\STX\NUL\DC2\ETX)\b\NAK\n\+ \\SO\n\+ \\a\EOT\ETX\EOT\NUL\STX\NUL\SOH\DC2\ETX)\b\DLE\n\+ \\SO\n\+ \\a\EOT\ETX\EOT\NUL\STX\NUL\STX\DC2\ETX)\DC3\DC4\n\+ \\r\n\+ \\ACK\EOT\ETX\EOT\NUL\STX\SOH\DC2\ETX*\b\EM\n\+ \\SO\n\+ \\a\EOT\ETX\EOT\NUL\STX\SOH\SOH\DC2\ETX*\b\DC4\n\+ \\SO\n\+ \\a\EOT\ETX\EOT\NUL\STX\SOH\STX\DC2\ETX*\ETB\CAN\n\+ \\v\n\+ \\EOT\EOT\ETX\STX\NUL\DC2\ETX,\EOT\"\n\+ \\f\n\+ \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX,\EOT\DLE\n\+ \\f\n\+ \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX,\DC1\GS\n\+ \\f\n\+ \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX, !\n\+ \\v\n\+ \\EOT\EOT\ETX\STX\SOH\DC2\ETX-\EOT!\n\+ \\f\n\+ \\ENQ\EOT\ETX\STX\SOH\ACK\DC2\ETX-\EOT\SI\n\+ \\f\n\+ \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX-\DLE\FS\n\+ \\f\n\+ \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX-\US \n\+ \\n\+ \\n\+ \\STX\EOT\EOT\DC2\EOT0\NUL8\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\EOT\SOH\DC2\ETX0\b\f\n\+ \\v\n\+ \\EOT\EOT\EOT\STX\NUL\DC2\ETX1\EOT!\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX1\EOT\SI\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX1\DLE\FS\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX1\US \n\+ \\v\n\+ \\EOT\EOT\EOT\STX\SOH\DC2\ETX2\EOT\RS\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETX2\EOT\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX2\v\EM\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX2\FS\GS\n\+ \\v\n\+ \\EOT\EOT\EOT\STX\STX\DC2\ETX3\EOT&\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\STX\EOT\DC2\ETX3\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\STX\ACK\DC2\ETX3\r\SYN\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETX3\ETB!\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETX3$%\n\+ \\v\n\+ \\EOT\EOT\EOT\STX\ETX\DC2\ETX4\EOT2\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ETX\ACK\DC2\ETX4\EOT\GS\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ETX\SOH\DC2\ETX4\RS-\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ETX\ETX\DC2\ETX401\n\+ \\v\n\+ \\EOT\EOT\EOT\STX\EOT\DC2\ETX5\EOT2\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\EOT\ENQ\DC2\ETX5\EOT\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\EOT\SOH\DC2\ETX5\v\SUB\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\EOT\ETX\DC2\ETX5\GS\RS\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\EOT\b\DC2\ETX5\US1\n\+ \\r\n\+ \\ACK\EOT\EOT\STX\EOT\b\ACK\DC2\ETX5 0\n\+ \\v\n\+ \\EOT\EOT\EOT\STX\ENQ\DC2\ETX6\EOT\US\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ENQ\EOT\DC2\ETX6\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ENQ\ACK\DC2\ETX6\r\NAK\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ENQ\SOH\DC2\ETX6\SYN\SUB\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ENQ\ETX\DC2\ETX6\GS\RS\n\+ \\v\n\+ \\EOT\EOT\EOT\STX\ACK\DC2\ETX7\EOT\SUB\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ACK\EOT\DC2\ETX7\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ACK\ACK\DC2\ETX7\r\DLE\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ACK\SOH\DC2\ETX7\DC1\NAK\n\+ \\f\n\+ \\ENQ\EOT\EOT\STX\ACK\ETX\DC2\ETX7\CAN\EM\n\+ \\n\+ \\n\+ \\STX\EOT\ENQ\DC2\EOT:\NUL=\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\ENQ\SOH\DC2\ETX:\b\DLE\n\+ \\v\n\+ \\EOT\EOT\ENQ\STX\NUL\DC2\ETX;\EOT.\n\+ \\f\n\+ \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX;\EOT\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX;\v\SYN\n\+ \\f\n\+ \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX;\EM\SUB\n\+ \\f\n\+ \\ENQ\EOT\ENQ\STX\NUL\b\DC2\ETX;\ESC-\n\+ \\r\n\+ \\ACK\EOT\ENQ\STX\NUL\b\ACK\DC2\ETX;\FS,\n\+ \\v\n\+ \\EOT\EOT\ENQ\STX\SOH\DC2\ETX<\EOT\US\n\+ \\f\n\+ \\ENQ\EOT\ENQ\STX\SOH\EOT\DC2\ETX<\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX<\r\NAK\n\+ \\f\n\+ \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX<\SYN\SUB\n\+ \\f\n\+ \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX<\GS\RS\n\+ \\n\+ \\n\+ \\STX\EOT\ACK\DC2\EOT?\NULE\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\ACK\SOH\DC2\ETX?\b\NAK\n\+ \\v\n\+ \\EOT\EOT\ACK\STX\NUL\DC2\ETX@\EOT\DC4\n\+ \\f\n\+ \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX@\EOT\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX@\v\SI\n\+ \\f\n\+ \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX@\DC2\DC3\n\+ \\f\n\+ \\EOT\EOT\ACK\b\NUL\DC2\EOTA\EOTD\ENQ\n\+ \\f\n\+ \\ENQ\EOT\ACK\b\NUL\SOH\DC2\ETXA\n\+ \\SI\n\+ \\v\n\+ \\EOT\EOT\ACK\STX\SOH\DC2\ETXB\b/\n\+ \\f\n\+ \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETXB\b\r\n\+ \\f\n\+ \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXB\SO\ETB\n\+ \\f\n\+ \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXB\SUB\ESC\n\+ \\f\n\+ \\ENQ\EOT\ACK\STX\SOH\b\DC2\ETXB\FS.\n\+ \\r\n\+ \\ACK\EOT\ACK\STX\SOH\b\ACK\DC2\ETXB\GS-\n\+ \\v\n\+ \\EOT\EOT\ACK\STX\STX\DC2\ETXC\b \n\+ \\f\n\+ \\ENQ\EOT\ACK\STX\STX\ENQ\DC2\ETXC\b\SO\n\+ \\f\n\+ \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETXC\SI\ESC\n\+ \\f\n\+ \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETXC\RS\US\n\+ \\n\+ \\n\+ \\STX\EOT\a\DC2\EOTG\NULM\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\a\SOH\DC2\ETXG\b\ETB\n\+ \\v\n\+ \\EOT\EOT\a\STX\NUL\DC2\ETXH\EOT2\n\+ \\f\n\+ \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETXH\EOT\GS\n\+ \\f\n\+ \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXH\RS-\n\+ \\f\n\+ \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXH01\n\+ \\v\n\+ \\EOT\EOT\a\STX\SOH\DC2\ETXI\EOT2\n\+ \\f\n\+ \\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETXI\EOT\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXI\v\SUB\n\+ \\f\n\+ \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXI\GS\RS\n\+ \\f\n\+ \\ENQ\EOT\a\STX\SOH\b\DC2\ETXI\US1\n\+ \\r\n\+ \\ACK\EOT\a\STX\SOH\b\ACK\DC2\ETXI 0\n\+ \\v\n\+ \\EOT\EOT\a\STX\STX\DC2\ETXJ\EOT\SUB\n\+ \\f\n\+ \\ENQ\EOT\a\STX\STX\EOT\DC2\ETXJ\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\a\STX\STX\ACK\DC2\ETXJ\r\DLE\n\+ \\f\n\+ \\ENQ\EOT\a\STX\STX\SOH\DC2\ETXJ\DC1\NAK\n\+ \\f\n\+ \\ENQ\EOT\a\STX\STX\ETX\DC2\ETXJ\CAN\EM\n\+ \\v\n\+ \\EOT\EOT\a\STX\ETX\DC2\ETXK\EOT&\n\+ \\f\n\+ \\ENQ\EOT\a\STX\ETX\EOT\DC2\ETXK\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\a\STX\ETX\ACK\DC2\ETXK\r\SUB\n\+ \\f\n\+ \\ENQ\EOT\a\STX\ETX\SOH\DC2\ETXK\ESC!\n\+ \\f\n\+ \\ENQ\EOT\a\STX\ETX\ETX\DC2\ETXK$%\n\+ \\v\n\+ \\EOT\EOT\a\STX\EOT\DC2\ETXL\EOT&\n\+ \\f\n\+ \\ENQ\EOT\a\STX\EOT\EOT\DC2\ETXL\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\a\STX\EOT\ACK\DC2\ETXL\r\SUB\n\+ \\f\n\+ \\ENQ\EOT\a\STX\EOT\SOH\DC2\ETXL\ESC!\n\+ \\f\n\+ \\ENQ\EOT\a\STX\EOT\ETX\DC2\ETXL$%\n\+ \\n\+ \\n\+ \\STX\EOT\b\DC2\EOTO\NULQ\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\b\SOH\DC2\ETXO\b\f\n\+ \\v\n\+ \\EOT\EOT\b\STX\NUL\DC2\ETXP\EOT\FS\n\+ \\f\n\+ \\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETXP\EOT\n\+ \\n\+ \\f\n\+ \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXP\v\ETB\n\+ \\f\n\+ \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXP\SUB\ESC\n\+ \\n\+ \\n\+ \\STX\EOT\t\DC2\EOTS\NULY\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\t\SOH\DC2\ETXS\b\NAK\n\+ \\v\n\+ \\EOT\EOT\t\STX\NUL\DC2\ETXT\EOT\SUB\n\+ \\f\n\+ \\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXT\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXT\r\NAK\n\+ \\f\n\+ \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXT\CAN\EM\n\+ \\v\n\+ \\EOT\EOT\t\STX\SOH\DC2\ETXU\EOT\DC2\n\+ \\f\n\+ \\ENQ\EOT\t\STX\SOH\ACK\DC2\ETXU\EOT\b\n\+ \\f\n\+ \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXU\t\r\n\+ \\f\n\+ \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXU\DLE\DC1\n\+ \\v\n\+ \\EOT\EOT\t\STX\STX\DC2\ETXV\EOT\FS\n\+ \\f\n\+ \\ENQ\EOT\t\STX\STX\EOT\DC2\ETXV\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\t\STX\STX\ACK\DC2\ETXV\r\DC1\n\+ \\f\n\+ \\ENQ\EOT\t\STX\STX\SOH\DC2\ETXV\DC2\ETB\n\+ \\f\n\+ \\ENQ\EOT\t\STX\STX\ETX\DC2\ETXV\SUB\ESC\n\+ \\v\n\+ \\EOT\EOT\t\STX\ETX\DC2\ETXW\EOT9\n\+ \\f\n\+ \\ENQ\EOT\t\STX\ETX\ENQ\DC2\ETXW\EOT\t\n\+ \\f\n\+ \\ENQ\EOT\t\STX\ETX\SOH\DC2\ETXW\n\+ \!\n\+ \\f\n\+ \\ENQ\EOT\t\STX\ETX\ETX\DC2\ETXW$%\n\+ \\f\n\+ \\ENQ\EOT\t\STX\ETX\b\DC2\ETXW&8\n\+ \\r\n\+ \\ACK\EOT\t\STX\ETX\b\ACK\DC2\ETXW'7\n\+ \\v\n\+ \\EOT\EOT\t\STX\EOT\DC2\ETXX\EOT)\n\+ \\f\n\+ \\ENQ\EOT\t\STX\EOT\ACK\DC2\ETXX\EOT\DC3\n\+ \\f\n\+ \\ENQ\EOT\t\STX\EOT\SOH\DC2\ETXX\DC4$\n\+ \\f\n\+ \\ENQ\EOT\t\STX\EOT\ETX\DC2\ETXX'(\n\+ \\n\+ \\n\+ \\STX\EOT\n\+ \\DC2\EOT[\NUL^\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\n\+ \\SOH\DC2\ETX[\b\SI\n\+ \\v\n\+ \\EOT\EOT\n\+ \\STX\NUL\DC2\ETX\\\EOT\NAK\n\+ \\f\n\+ \\ENQ\EOT\n\+ \\STX\NUL\ENQ\DC2\ETX\\\EOT\b\n\+ \\f\n\+ \\ENQ\EOT\n\+ \\STX\NUL\SOH\DC2\ETX\\\t\DLE\n\+ \\f\n\+ \\ENQ\EOT\n\+ \\STX\NUL\ETX\DC2\ETX\\\DC3\DC4\n\+ \\v\n\+ \\EOT\EOT\n\+ \\STX\SOH\DC2\ETX]\EOT\SYN\n\+ \\f\n\+ \\ENQ\EOT\n\+ \\STX\SOH\ENQ\DC2\ETX]\EOT\b\n\+ \\f\n\+ \\ENQ\EOT\n\+ \\STX\SOH\SOH\DC2\ETX]\t\DC1\n\+ \\f\n\+ \\ENQ\EOT\n\+ \\STX\SOH\ETX\DC2\ETX]\DC4\NAK\n\+ \\n\+ \\n\+ \\STX\EOT\v\DC2\EOT`\NULg\SOH\n\+ \\n\+ \\n\+ \\ETX\EOT\v\SOH\DC2\ETX`\b\SYN\n\+ \\v\n\+ \\EOT\EOT\v\STX\NUL\DC2\ETXa\EOT\"\n\+ \\f\n\+ \\ENQ\EOT\v\STX\NUL\EOT\DC2\ETXa\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXa\r\DC4\n\+ \\f\n\+ \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXa\NAK\GS\n\+ \\f\n\+ \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXa !\n\+ \\v\n\+ \\EOT\EOT\v\STX\SOH\DC2\ETXb\EOT4\n\+ \\f\n\+ \\ENQ\EOT\v\STX\SOH\ACK\DC2\ETXb\EOT\GS\n\+ \\f\n\+ \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXb\RS/\n\+ \\f\n\+ \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXb23\n\+ \\v\n\+ \\EOT\EOT\v\STX\STX\DC2\ETXc\EOT5\n\+ \\f\n\+ \\ENQ\EOT\v\STX\STX\ACK\DC2\ETXc\EOT\GS\n\+ \\f\n\+ \\ENQ\EOT\v\STX\STX\SOH\DC2\ETXc\RS0\n\+ \\f\n\+ \\ENQ\EOT\v\STX\STX\ETX\DC2\ETXc34\n\+ \\v\n\+ \\EOT\EOT\v\STX\ETX\DC2\ETXd\EOT\US\n\+ \\f\n\+ \\ENQ\EOT\v\STX\ETX\EOT\DC2\ETXd\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\v\STX\ETX\ENQ\DC2\ETXd\r\DC3\n\+ \\f\n\+ \\ENQ\EOT\v\STX\ETX\SOH\DC2\ETXd\DC4\SUB\n\+ \\f\n\+ \\ENQ\EOT\v\STX\ETX\ETX\DC2\ETXd\GS\RS\n\+ \\v\n\+ \\EOT\EOT\v\STX\EOT\DC2\ETXe\EOT!\n\+ \\f\n\+ \\ENQ\EOT\v\STX\EOT\EOT\DC2\ETXe\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\v\STX\EOT\ENQ\DC2\ETXe\r\DC3\n\+ \\f\n\+ \\ENQ\EOT\v\STX\EOT\SOH\DC2\ETXe\DC4\FS\n\+ \\f\n\+ \\ENQ\EOT\v\STX\EOT\ETX\DC2\ETXe\US \n\+ \\v\n\+ \\EOT\EOT\v\STX\ENQ\DC2\ETXf\EOT\RS\n\+ \\f\n\+ \\ENQ\EOT\v\STX\ENQ\EOT\DC2\ETXf\EOT\f\n\+ \\f\n\+ \\ENQ\EOT\v\STX\ENQ\ENQ\DC2\ETXf\r\DC3\n\+ \\f\n\+ \\ENQ\EOT\v\STX\ENQ\SOH\DC2\ETXf\DC4\EM\n\+ \\f\n\+ \\ENQ\EOT\v\STX\ENQ\ETX\DC2\ETXf\FS\GS\n\+ \\n\+ \\n\+ \\STX\ACK\NUL\DC2\EOTi\NULs\SOH\n\+ \\n\+ \\n\+ \\ETX\ACK\NUL\SOH\DC2\ETXi\b\CAN\n\+ \\f\n\+ \\EOT\ACK\NUL\STX\NUL\DC2\EOTj\EOTr\ENQ\n\+ \\f\n\+ \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETXj\b\SO\n\+ \\f\n\+ \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETXj\SI\FS\n\+ \\f\n\+ \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETXj'5\n\+ \\r\n\+ \\ENQ\ACK\NUL\STX\NUL\EOT\DC2\EOTk\aq\t\n\+ \\DC1\n\+ \\t\ACK\NUL\STX\NUL\EOT\176\202\188\"\DC2\EOTk\aq\tb\ACKproto3"
gen/Proto/Collector_Fields.hs view
@@ -1,421 +1,397 @@ {- This file was auto-generated from collector.proto by the proto-lens-protoc program. -}-{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,- UndecidableInstances, GeneralizedNewtypeDeriving,- MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,- PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds,- BangPatterns, TypeApplications #-}-{-# OPTIONS_GHC -fno-warn-unused-imports#-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+{-# 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.Collector_Fields where 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.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.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.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.Google.Api.Annotations import qualified Proto.Google.Protobuf.Timestamp- accessToken ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "accessToken" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "accessToken" a) =>+ Lens.Family2.LensLike' f s a accessToken = Data.ProtoLens.Field.field @"accessToken" auth ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "auth" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "auth" a) =>+ Lens.Family2.LensLike' f s a auth = Data.ProtoLens.Field.field @"auth" baggage ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "baggage" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "baggage" a) =>+ Lens.Family2.LensLike' f s a baggage = Data.ProtoLens.Field.field @"baggage" boolValue ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "boolValue" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "boolValue" a) =>+ Lens.Family2.LensLike' f s a boolValue = Data.ProtoLens.Field.field @"boolValue" commands ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "commands" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "commands" a) =>+ Lens.Family2.LensLike' f s a commands = Data.ProtoLens.Field.field @"commands" counts ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "counts" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "counts" a) =>+ Lens.Family2.LensLike' f s a counts = Data.ProtoLens.Field.field @"counts" devMode ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "devMode" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "devMode" a) =>+ Lens.Family2.LensLike' f s a devMode = Data.ProtoLens.Field.field @"devMode" disable ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "disable" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "disable" a) =>+ Lens.Family2.LensLike' f s a disable = Data.ProtoLens.Field.field @"disable" doubleValue ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "doubleValue" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "doubleValue" a) =>+ Lens.Family2.LensLike' f s a doubleValue = Data.ProtoLens.Field.field @"doubleValue" durationMicros ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "durationMicros" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "durationMicros" a) =>+ Lens.Family2.LensLike' f s a durationMicros = Data.ProtoLens.Field.field @"durationMicros" errors ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "errors" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "errors" a) =>+ Lens.Family2.LensLike' f s a errors = Data.ProtoLens.Field.field @"errors" fields ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "fields" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "fields" a) =>+ Lens.Family2.LensLike' f s a fields = Data.ProtoLens.Field.field @"fields" gauges ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "gauges" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "gauges" a) =>+ Lens.Family2.LensLike' f s a gauges = Data.ProtoLens.Field.field @"gauges" infos ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "infos" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "infos" a) =>+ Lens.Family2.LensLike' f s a infos = Data.ProtoLens.Field.field @"infos" intValue ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "intValue" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "intValue" a) =>+ Lens.Family2.LensLike' f s a intValue = Data.ProtoLens.Field.field @"intValue" internalMetrics ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "internalMetrics" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "internalMetrics" a) =>+ Lens.Family2.LensLike' f s a internalMetrics = Data.ProtoLens.Field.field @"internalMetrics" jsonValue ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "jsonValue" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "jsonValue" a) =>+ Lens.Family2.LensLike' f s a jsonValue = Data.ProtoLens.Field.field @"jsonValue" key ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "key" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "key" a) =>+ Lens.Family2.LensLike' f s a key = Data.ProtoLens.Field.field @"key" logs ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "logs" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "logs" a) =>+ Lens.Family2.LensLike' f s a logs = Data.ProtoLens.Field.field @"logs" maybe'auth ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'auth" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'auth" a) =>+ Lens.Family2.LensLike' f s a maybe'auth = Data.ProtoLens.Field.field @"maybe'auth" maybe'boolValue ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'boolValue" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'boolValue" a) =>+ Lens.Family2.LensLike' f s a maybe'boolValue = Data.ProtoLens.Field.field @"maybe'boolValue" maybe'doubleValue ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'doubleValue" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'doubleValue" a) =>+ Lens.Family2.LensLike' f s a maybe'doubleValue = Data.ProtoLens.Field.field @"maybe'doubleValue" maybe'intValue ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'intValue" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'intValue" a) =>+ Lens.Family2.LensLike' f s a maybe'intValue = Data.ProtoLens.Field.field @"maybe'intValue" maybe'internalMetrics ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'internalMetrics" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'internalMetrics" a) =>+ Lens.Family2.LensLike' f s a maybe'internalMetrics = Data.ProtoLens.Field.field @"maybe'internalMetrics" maybe'jsonValue ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'jsonValue" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'jsonValue" a) =>+ Lens.Family2.LensLike' f s a maybe'jsonValue = Data.ProtoLens.Field.field @"maybe'jsonValue" maybe'receiveTimestamp ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'receiveTimestamp" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'receiveTimestamp" a) =>+ Lens.Family2.LensLike' f s a maybe'receiveTimestamp = Data.ProtoLens.Field.field @"maybe'receiveTimestamp" maybe'reporter ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'reporter" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'reporter" a) =>+ Lens.Family2.LensLike' f s a maybe'reporter = Data.ProtoLens.Field.field @"maybe'reporter" maybe'spanContext ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'spanContext" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'spanContext" a) =>+ Lens.Family2.LensLike' f s a maybe'spanContext = Data.ProtoLens.Field.field @"maybe'spanContext" maybe'startTimestamp ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'startTimestamp" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'startTimestamp" a) =>+ Lens.Family2.LensLike' f s a maybe'startTimestamp = Data.ProtoLens.Field.field @"maybe'startTimestamp" maybe'stringValue ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'stringValue" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'stringValue" a) =>+ Lens.Family2.LensLike' f s a maybe'stringValue = Data.ProtoLens.Field.field @"maybe'stringValue" maybe'timestamp ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'timestamp" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'timestamp" a) =>+ Lens.Family2.LensLike' f s a maybe'timestamp = Data.ProtoLens.Field.field @"maybe'timestamp" maybe'transmitTimestamp ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'transmitTimestamp" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'transmitTimestamp" a) =>+ Lens.Family2.LensLike' f s a maybe'transmitTimestamp = Data.ProtoLens.Field.field @"maybe'transmitTimestamp" maybe'value ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "maybe'value" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "maybe'value" a) =>+ Lens.Family2.LensLike' f s a maybe'value = Data.ProtoLens.Field.field @"maybe'value" name ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "name" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "name" a) =>+ Lens.Family2.LensLike' f s a name = Data.ProtoLens.Field.field @"name" operationName ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "operationName" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "operationName" a) =>+ Lens.Family2.LensLike' f s a operationName = Data.ProtoLens.Field.field @"operationName" receiveTimestamp ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "receiveTimestamp" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "receiveTimestamp" a) =>+ Lens.Family2.LensLike' f s a receiveTimestamp = Data.ProtoLens.Field.field @"receiveTimestamp" references ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "references" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "references" a) =>+ Lens.Family2.LensLike' f s a references = Data.ProtoLens.Field.field @"references" relationship ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "relationship" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "relationship" a) =>+ Lens.Family2.LensLike' f s a relationship = Data.ProtoLens.Field.field @"relationship" reporter ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "reporter" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "reporter" a) =>+ Lens.Family2.LensLike' f s a reporter = Data.ProtoLens.Field.field @"reporter" reporterId ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "reporterId" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "reporterId" a) =>+ Lens.Family2.LensLike' f s a reporterId = Data.ProtoLens.Field.field @"reporterId" spanContext ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "spanContext" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "spanContext" a) =>+ Lens.Family2.LensLike' f s a spanContext = Data.ProtoLens.Field.field @"spanContext" spanId ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "spanId" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "spanId" a) =>+ Lens.Family2.LensLike' f s a spanId = Data.ProtoLens.Field.field @"spanId" spans ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "spans" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "spans" a) =>+ Lens.Family2.LensLike' f s a spans = Data.ProtoLens.Field.field @"spans" startTimestamp ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "startTimestamp" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "startTimestamp" a) =>+ Lens.Family2.LensLike' f s a startTimestamp = Data.ProtoLens.Field.field @"startTimestamp" stringValue ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "stringValue" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "stringValue" a) =>+ Lens.Family2.LensLike' f s a stringValue = Data.ProtoLens.Field.field @"stringValue" tags ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "tags" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "tags" a) =>+ Lens.Family2.LensLike' f s a tags = Data.ProtoLens.Field.field @"tags" timestamp ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "timestamp" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "timestamp" a) =>+ Lens.Family2.LensLike' f s a timestamp = Data.ProtoLens.Field.field @"timestamp" timestampOffsetMicros ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "timestampOffsetMicros" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "timestampOffsetMicros" a) =>+ Lens.Family2.LensLike' f s a timestampOffsetMicros = Data.ProtoLens.Field.field @"timestampOffsetMicros" traceId ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "traceId" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "traceId" a) =>+ Lens.Family2.LensLike' f s a traceId = Data.ProtoLens.Field.field @"traceId" transmitTimestamp ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "transmitTimestamp" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "transmitTimestamp" a) =>+ Lens.Family2.LensLike' f s a transmitTimestamp = Data.ProtoLens.Field.field @"transmitTimestamp" value ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "value" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "value" a) =>+ Lens.Family2.LensLike' f s a value = Data.ProtoLens.Field.field @"value" vec'commands ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'commands" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'commands" a) =>+ Lens.Family2.LensLike' f s a vec'commands = Data.ProtoLens.Field.field @"vec'commands" vec'counts ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'counts" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'counts" a) =>+ Lens.Family2.LensLike' f s a vec'counts = Data.ProtoLens.Field.field @"vec'counts" vec'errors ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'errors" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'errors" a) =>+ Lens.Family2.LensLike' f s a vec'errors = Data.ProtoLens.Field.field @"vec'errors" vec'fields ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'fields" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'fields" a) =>+ Lens.Family2.LensLike' f s a vec'fields = Data.ProtoLens.Field.field @"vec'fields" vec'gauges ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'gauges" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'gauges" a) =>+ Lens.Family2.LensLike' f s a vec'gauges = Data.ProtoLens.Field.field @"vec'gauges" vec'infos ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'infos" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'infos" a) =>+ Lens.Family2.LensLike' f s a vec'infos = Data.ProtoLens.Field.field @"vec'infos" vec'logs ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'logs" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'logs" a) =>+ Lens.Family2.LensLike' f s a vec'logs = Data.ProtoLens.Field.field @"vec'logs" vec'references ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'references" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'references" a) =>+ Lens.Family2.LensLike' f s a vec'references = Data.ProtoLens.Field.field @"vec'references" vec'spans ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'spans" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'spans" a) =>+ Lens.Family2.LensLike' f s a vec'spans = Data.ProtoLens.Field.field @"vec'spans" vec'tags ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'tags" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'tags" a) =>+ Lens.Family2.LensLike' f s a vec'tags = Data.ProtoLens.Field.field @"vec'tags" vec'warnings ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "vec'warnings" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "vec'warnings" a) =>+ Lens.Family2.LensLike' f s a vec'warnings = Data.ProtoLens.Field.field @"vec'warnings" warnings ::- forall f s a .- (Prelude.Functor f,- Data.ProtoLens.Field.HasField s "warnings" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f,+ Data.ProtoLens.Field.HasField s "warnings" a) =>+ Lens.Family2.LensLike' f s a warnings = Data.ProtoLens.Field.field @"warnings"
gen/Proto/Google/Api/Annotations.hs view
@@ -1,58 +1,34 @@ {- This file was auto-generated from google/api/annotations.proto by the proto-lens-protoc program. -}-{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,- UndecidableInstances, GeneralizedNewtypeDeriving,- MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,- PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds,- BangPatterns, TypeApplications #-}-{-# OPTIONS_GHC -fno-warn-unused-imports#-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}-module Proto.Google.Api.Annotations () where-import qualified Data.ProtoLens.Runtime.Control.DeepSeq- as Control.DeepSeq-import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism- as Data.ProtoLens.Prism+{-# 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.Google.Api.Annotations (+ ) 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.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.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.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.Google.Api.Http import qualified Proto.Google.Protobuf.Descriptor
gen/Proto/Google/Api/Http.hs view
@@ -1,981 +1,1433 @@ {- This file was auto-generated from google/api/http.proto by the proto-lens-protoc program. -}-{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,- UndecidableInstances, GeneralizedNewtypeDeriving,- MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,- PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds,- BangPatterns, TypeApplications #-}-{-# OPTIONS_GHC -fno-warn-unused-imports#-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}-module Proto.Google.Api.Http- (CustomHttpPattern(), Http(), HttpRule(), HttpRule'Pattern(..),- _HttpRule'Get, _HttpRule'Put, _HttpRule'Post, _HttpRule'Delete,- _HttpRule'Patch, _HttpRule'Custom)- 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--{- | Fields :-- * 'Proto.Google.Api.Http_Fields.kind' @:: Lens' CustomHttpPattern Data.Text.Text@- * 'Proto.Google.Api.Http_Fields.path' @:: Lens' CustomHttpPattern Data.Text.Text@- -}-data CustomHttpPattern = CustomHttpPattern{_CustomHttpPattern'kind- :: !Data.Text.Text,- _CustomHttpPattern'path :: !Data.Text.Text,- _CustomHttpPattern'_unknownFields ::- !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show CustomHttpPattern where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField CustomHttpPattern "kind"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _CustomHttpPattern'kind- (\ x__ y__ -> x__{_CustomHttpPattern'kind = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField CustomHttpPattern "path"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _CustomHttpPattern'path- (\ x__ y__ -> x__{_CustomHttpPattern'path = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message CustomHttpPattern where- messageName _ = Data.Text.pack "google.api.CustomHttpPattern"- fieldsByTag- = let kind__field_descriptor- = Data.ProtoLens.FieldDescriptor "kind"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"kind"))- :: Data.ProtoLens.FieldDescriptor CustomHttpPattern- path__field_descriptor- = Data.ProtoLens.FieldDescriptor "path"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"path"))- :: Data.ProtoLens.FieldDescriptor CustomHttpPattern- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, kind__field_descriptor),- (Data.ProtoLens.Tag 2, path__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _CustomHttpPattern'_unknownFields- (\ x__ y__ -> x__{_CustomHttpPattern'_unknownFields = y__})- defMessage- = CustomHttpPattern{_CustomHttpPattern'kind =- Data.ProtoLens.fieldDefault,- _CustomHttpPattern'path = Data.ProtoLens.fieldDefault,- _CustomHttpPattern'_unknownFields = ([])}- parseMessage- = let loop ::- CustomHttpPattern ->- Data.ProtoLens.Encoding.Bytes.Parser CustomHttpPattern- loop x- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- x)- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "kind"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"kind") y- x)- 18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "path"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"path") y- x)- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- in- (do loop Data.ProtoLens.defMessage)- Data.ProtoLens.Encoding.Bytes.<?> "CustomHttpPattern"- buildMessage- = (\ _x ->- (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"kind") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- Data.Monoid.<>- (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"path") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData CustomHttpPattern where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_CustomHttpPattern'_unknownFields x__)- (Control.DeepSeq.deepseq (_CustomHttpPattern'kind x__)- (Control.DeepSeq.deepseq (_CustomHttpPattern'path x__) (()))))-{- | Fields :-- * 'Proto.Google.Api.Http_Fields.rules' @:: Lens' Http [HttpRule]@- * 'Proto.Google.Api.Http_Fields.vec'rules' @:: Lens' Http (Data.Vector.Vector HttpRule)@- -}-data Http = Http{_Http'rules :: !(Data.Vector.Vector HttpRule),- _Http'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Http where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Http "rules" ([HttpRule])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Http'rules- (\ x__ y__ -> x__{_Http'rules = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField Http "vec'rules"- (Data.Vector.Vector HttpRule)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Http'rules- (\ x__ y__ -> x__{_Http'rules = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Message Http where- messageName _ = Data.Text.pack "google.api.Http"- fieldsByTag- = let rules__field_descriptor- = Data.ProtoLens.FieldDescriptor "rules"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor HttpRule)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"rules"))- :: Data.ProtoLens.FieldDescriptor Http- in- Data.Map.fromList [(Data.ProtoLens.Tag 1, rules__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _Http'_unknownFields- (\ x__ y__ -> x__{_Http'_unknownFields = y__})- defMessage- = Http{_Http'rules = Data.Vector.Generic.empty,- _Http'_unknownFields = ([])}- parseMessage- = let loop ::- Http ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- HttpRule- -> Data.ProtoLens.Encoding.Bytes.Parser Http- loop x mutable'rules- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do frozen'rules <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'rules)- let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'rules")- frozen'rules- x))- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "rules"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'rules- y)- loop x v- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- mutable'rules- in- (do mutable'rules <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- loop Data.ProtoLens.defMessage mutable'rules)- Data.ProtoLens.Encoding.Bytes.<?> "Http"- buildMessage- = (\ _x ->- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'rules") _x))- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData Http where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_Http'_unknownFields x__)- (Control.DeepSeq.deepseq (_Http'rules x__) (())))-{- | Fields :-- * 'Proto.Google.Api.Http_Fields.selector' @:: Lens' HttpRule Data.Text.Text@- * 'Proto.Google.Api.Http_Fields.body' @:: Lens' HttpRule Data.Text.Text@- * 'Proto.Google.Api.Http_Fields.additionalBindings' @:: Lens' HttpRule [HttpRule]@- * 'Proto.Google.Api.Http_Fields.vec'additionalBindings' @:: Lens' HttpRule (Data.Vector.Vector HttpRule)@- * 'Proto.Google.Api.Http_Fields.maybe'pattern'' @:: Lens' HttpRule (Prelude.Maybe HttpRule'Pattern)@- * 'Proto.Google.Api.Http_Fields.maybe'get' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@- * 'Proto.Google.Api.Http_Fields.get' @:: Lens' HttpRule Data.Text.Text@- * 'Proto.Google.Api.Http_Fields.maybe'put' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@- * 'Proto.Google.Api.Http_Fields.put' @:: Lens' HttpRule Data.Text.Text@- * 'Proto.Google.Api.Http_Fields.maybe'post' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@- * 'Proto.Google.Api.Http_Fields.post' @:: Lens' HttpRule Data.Text.Text@- * 'Proto.Google.Api.Http_Fields.maybe'delete' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@- * 'Proto.Google.Api.Http_Fields.delete' @:: Lens' HttpRule Data.Text.Text@- * 'Proto.Google.Api.Http_Fields.maybe'patch' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@- * 'Proto.Google.Api.Http_Fields.patch' @:: Lens' HttpRule Data.Text.Text@- * 'Proto.Google.Api.Http_Fields.maybe'custom' @:: Lens' HttpRule (Prelude.Maybe CustomHttpPattern)@- * 'Proto.Google.Api.Http_Fields.custom' @:: Lens' HttpRule CustomHttpPattern@- -}-data HttpRule = HttpRule{_HttpRule'selector :: !Data.Text.Text,- _HttpRule'body :: !Data.Text.Text,- _HttpRule'additionalBindings :: !(Data.Vector.Vector HttpRule),- _HttpRule'pattern' :: !(Prelude.Maybe HttpRule'Pattern),- _HttpRule'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show HttpRule where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-data HttpRule'Pattern = HttpRule'Get !Data.Text.Text- | HttpRule'Put !Data.Text.Text- | HttpRule'Post !Data.Text.Text- | HttpRule'Delete !Data.Text.Text- | HttpRule'Patch !Data.Text.Text- | HttpRule'Custom !CustomHttpPattern- deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.Field.HasField HttpRule "selector"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'selector- (\ x__ y__ -> x__{_HttpRule'selector = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField HttpRule "body"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'body- (\ x__ y__ -> x__{_HttpRule'body = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField HttpRule- "additionalBindings"- ([HttpRule])- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'additionalBindings- (\ x__ y__ -> x__{_HttpRule'additionalBindings = y__}))- Prelude..- Lens.Family2.Unchecked.lens Data.Vector.Generic.toList- (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField HttpRule- "vec'additionalBindings"- (Data.Vector.Vector HttpRule)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'additionalBindings- (\ x__ y__ -> x__{_HttpRule'additionalBindings = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField HttpRule "maybe'pattern'"- (Prelude.Maybe HttpRule'Pattern)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField HttpRule "maybe'get"- (Prelude.Maybe Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Get x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Get y__)-instance Data.ProtoLens.Field.HasField HttpRule "get"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Get x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Get y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField HttpRule "maybe'put"- (Prelude.Maybe Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Put x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Put y__)-instance Data.ProtoLens.Field.HasField HttpRule "put"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Put x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Put y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField HttpRule "maybe'post"- (Prelude.Maybe Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Post x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Post y__)-instance Data.ProtoLens.Field.HasField HttpRule "post"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Post x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Post y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField HttpRule "maybe'delete"- (Prelude.Maybe Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Delete x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Delete y__)-instance Data.ProtoLens.Field.HasField HttpRule "delete"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Delete x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Delete y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField HttpRule "maybe'patch"- (Prelude.Maybe Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Patch x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Patch y__)-instance Data.ProtoLens.Field.HasField HttpRule "patch"- (Data.Text.Text)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Patch x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Patch y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField HttpRule "maybe'custom"- (Prelude.Maybe CustomHttpPattern)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Custom x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Custom y__)-instance Data.ProtoLens.Field.HasField HttpRule "custom"- (CustomHttpPattern)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _HttpRule'pattern'- (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))- Prelude..- (Lens.Family2.Unchecked.lens- (\ x__ ->- case x__ of- Prelude.Just (HttpRule'Custom x__val) -> Prelude.Just x__val- _otherwise -> Prelude.Nothing)- (\ _ y__ -> Prelude.fmap HttpRule'Custom y__))- Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Message HttpRule where- messageName _ = Data.Text.pack "google.api.HttpRule"- fieldsByTag- = let selector__field_descriptor- = Data.ProtoLens.FieldDescriptor "selector"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"selector"))- :: Data.ProtoLens.FieldDescriptor HttpRule- body__field_descriptor- = Data.ProtoLens.FieldDescriptor "body"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"body"))- :: Data.ProtoLens.FieldDescriptor HttpRule- additionalBindings__field_descriptor- = Data.ProtoLens.FieldDescriptor "additional_bindings"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor HttpRule)- (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked- (Data.ProtoLens.Field.field @"additionalBindings"))- :: Data.ProtoLens.FieldDescriptor HttpRule- get__field_descriptor- = Data.ProtoLens.FieldDescriptor "get"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'get"))- :: Data.ProtoLens.FieldDescriptor HttpRule- put__field_descriptor- = Data.ProtoLens.FieldDescriptor "put"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'put"))- :: Data.ProtoLens.FieldDescriptor HttpRule- post__field_descriptor- = Data.ProtoLens.FieldDescriptor "post"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'post"))- :: Data.ProtoLens.FieldDescriptor HttpRule- delete__field_descriptor- = Data.ProtoLens.FieldDescriptor "delete"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'delete"))- :: Data.ProtoLens.FieldDescriptor HttpRule- patch__field_descriptor- = Data.ProtoLens.FieldDescriptor "patch"- (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::- Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'patch"))- :: Data.ProtoLens.FieldDescriptor HttpRule- custom__field_descriptor- = Data.ProtoLens.FieldDescriptor "custom"- (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::- Data.ProtoLens.FieldTypeDescriptor CustomHttpPattern)- (Data.ProtoLens.OptionalField- (Data.ProtoLens.Field.field @"maybe'custom"))- :: Data.ProtoLens.FieldDescriptor HttpRule- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, selector__field_descriptor),- (Data.ProtoLens.Tag 7, body__field_descriptor),- (Data.ProtoLens.Tag 11, additionalBindings__field_descriptor),- (Data.ProtoLens.Tag 2, get__field_descriptor),- (Data.ProtoLens.Tag 3, put__field_descriptor),- (Data.ProtoLens.Tag 4, post__field_descriptor),- (Data.ProtoLens.Tag 5, delete__field_descriptor),- (Data.ProtoLens.Tag 6, patch__field_descriptor),- (Data.ProtoLens.Tag 8, custom__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _HttpRule'_unknownFields- (\ x__ y__ -> x__{_HttpRule'_unknownFields = y__})- defMessage- = HttpRule{_HttpRule'selector = Data.ProtoLens.fieldDefault,- _HttpRule'body = Data.ProtoLens.fieldDefault,- _HttpRule'additionalBindings = Data.Vector.Generic.empty,- _HttpRule'pattern' = Prelude.Nothing,- _HttpRule'_unknownFields = ([])}- parseMessage- = let loop ::- HttpRule ->- Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector- Data.ProtoLens.Encoding.Growing.RealWorld- HttpRule- -> Data.ProtoLens.Encoding.Bytes.Parser HttpRule- loop x mutable'additionalBindings- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do frozen'additionalBindings <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.unsafeFreeze- mutable'additionalBindings)- let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- (Lens.Family2.set- (Data.ProtoLens.Field.field @"vec'additionalBindings")- frozen'additionalBindings- x))- else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "selector"- loop- (Lens.Family2.set- (Data.ProtoLens.Field.field @"selector")- y- x)- mutable'additionalBindings- 58 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "body"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"body") y- x)- mutable'additionalBindings- 90 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?>- "additional_bindings"- v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- (Data.ProtoLens.Encoding.Growing.append- mutable'additionalBindings- y)- loop x v- 18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "get"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"get") y- x)- mutable'additionalBindings- 26 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "put"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"put") y- x)- mutable'additionalBindings- 34 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "post"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"post") y- x)- mutable'additionalBindings- 42 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "delete"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"delete")- y- x)- mutable'additionalBindings- 50 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.getBytes- (Prelude.fromIntegral len)- Data.ProtoLens.Encoding.Bytes.runEither- (case Data.Text.Encoding.decodeUtf8' value of- Prelude.Left err -> Prelude.Left- (Prelude.show err)- Prelude.Right r -> Prelude.Right r))- Data.ProtoLens.Encoding.Bytes.<?> "patch"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"patch") y- x)- mutable'additionalBindings- 66 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt- Data.ProtoLens.Encoding.Bytes.isolate- (Prelude.fromIntegral len)- Data.ProtoLens.parseMessage)- Data.ProtoLens.Encoding.Bytes.<?> "custom"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"custom")- y- x)- mutable'additionalBindings- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)- mutable'additionalBindings- in- (do mutable'additionalBindings <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO- Data.ProtoLens.Encoding.Growing.new- loop Data.ProtoLens.defMessage mutable'additionalBindings)- Data.ProtoLens.Encoding.Bytes.<?> "HttpRule"- buildMessage- = (\ _x ->- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"selector") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- Data.Monoid.<>- (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"body") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 58) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- _v)- Data.Monoid.<>- (Data.ProtoLens.Encoding.Bytes.foldMapBuilder- (\ _v ->- (Data.ProtoLens.Encoding.Bytes.putVarInt 90) Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral (Data.ByteString.length bs)))- Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.ProtoLens.encodeMessage)- _v)- (Lens.Family2.view- (Data.ProtoLens.Field.field @"vec'additionalBindings")- _x))- Data.Monoid.<>- (case- Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pattern'") _x- of- (Prelude.Nothing) -> Data.Monoid.mempty- Prelude.Just- (HttpRule'Get v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- v- Prelude.Just- (HttpRule'Put v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- v- Prelude.Just- (HttpRule'Post v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes- bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- v- Prelude.Just- (HttpRule'Delete v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt 42)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes- bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- v- Prelude.Just- (HttpRule'Patch v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt 50)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes- bs))- Prelude.. Data.Text.Encoding.encodeUtf8)- v- Prelude.Just- (HttpRule'Custom v) -> (Data.ProtoLens.Encoding.Bytes.putVarInt 66)- Data.Monoid.<>- (((\ bs ->- (Data.ProtoLens.Encoding.Bytes.putVarInt- (Prelude.fromIntegral- (Data.ByteString.length bs)))- Data.Monoid.<>- Data.ProtoLens.Encoding.Bytes.putBytes- bs))- Prelude.. Data.ProtoLens.encodeMessage)- v)- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData HttpRule where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_HttpRule'_unknownFields x__)- (Control.DeepSeq.deepseq (_HttpRule'selector x__)- (Control.DeepSeq.deepseq (_HttpRule'body x__)- (Control.DeepSeq.deepseq (_HttpRule'additionalBindings x__)- (Control.DeepSeq.deepseq (_HttpRule'pattern' x__) (()))))))-instance Control.DeepSeq.NFData HttpRule'Pattern where- rnf (HttpRule'Get x__) = Control.DeepSeq.rnf x__- rnf (HttpRule'Put x__) = Control.DeepSeq.rnf x__- rnf (HttpRule'Post x__) = Control.DeepSeq.rnf x__- rnf (HttpRule'Delete x__) = Control.DeepSeq.rnf x__- rnf (HttpRule'Patch x__) = Control.DeepSeq.rnf x__- rnf (HttpRule'Custom x__) = Control.DeepSeq.rnf x__-_HttpRule'Get ::- Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text-_HttpRule'Get- = Data.ProtoLens.Prism.prism' HttpRule'Get- (\ p__ ->- case p__ of- HttpRule'Get p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-_HttpRule'Put ::- Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text-_HttpRule'Put- = Data.ProtoLens.Prism.prism' HttpRule'Put- (\ p__ ->- case p__ of- HttpRule'Put p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-_HttpRule'Post ::- Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text-_HttpRule'Post- = Data.ProtoLens.Prism.prism' HttpRule'Post- (\ p__ ->- case p__ of- HttpRule'Post p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-_HttpRule'Delete ::- Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text-_HttpRule'Delete- = Data.ProtoLens.Prism.prism' HttpRule'Delete- (\ p__ ->- case p__ of- HttpRule'Delete p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-_HttpRule'Patch ::- Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text-_HttpRule'Patch- = Data.ProtoLens.Prism.prism' HttpRule'Patch- (\ p__ ->- case p__ of- HttpRule'Patch p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)-_HttpRule'Custom ::- Data.ProtoLens.Prism.Prism' HttpRule'Pattern CustomHttpPattern-_HttpRule'Custom- = Data.ProtoLens.Prism.prism' HttpRule'Custom- (\ p__ ->- case p__ of- HttpRule'Custom p__val -> Prelude.Just p__val- _otherwise -> Prelude.Nothing)+{-# 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.Google.Api.Http (+ CustomHttpPattern(), Http(), HttpRule(), HttpRule'Pattern(..),+ _HttpRule'Get, _HttpRule'Put, _HttpRule'Post, _HttpRule'Delete,+ _HttpRule'Patch, _HttpRule'Custom+ ) 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+{- | Fields :+ + * 'Proto.Google.Api.Http_Fields.kind' @:: Lens' CustomHttpPattern Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.path' @:: Lens' CustomHttpPattern Data.Text.Text@ -}+data CustomHttpPattern+ = CustomHttpPattern'_constructor {_CustomHttpPattern'kind :: !Data.Text.Text,+ _CustomHttpPattern'path :: !Data.Text.Text,+ _CustomHttpPattern'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show CustomHttpPattern where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField CustomHttpPattern "kind" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _CustomHttpPattern'kind+ (\ x__ y__ -> x__ {_CustomHttpPattern'kind = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField CustomHttpPattern "path" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _CustomHttpPattern'path+ (\ x__ y__ -> x__ {_CustomHttpPattern'path = y__}))+ Prelude.id+instance Data.ProtoLens.Message CustomHttpPattern where+ messageName _ = Data.Text.pack "google.api.CustomHttpPattern"+ packedMessageDescriptor _+ = "\n\+ \\DC1CustomHttpPattern\DC2\DC2\n\+ \\EOTkind\CAN\SOH \SOH(\tR\EOTkind\DC2\DC2\n\+ \\EOTpath\CAN\STX \SOH(\tR\EOTpath"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ kind__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "kind"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"kind")) ::+ Data.ProtoLens.FieldDescriptor CustomHttpPattern+ path__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "path"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"path")) ::+ Data.ProtoLens.FieldDescriptor CustomHttpPattern+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, kind__field_descriptor),+ (Data.ProtoLens.Tag 2, path__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _CustomHttpPattern'_unknownFields+ (\ x__ y__ -> x__ {_CustomHttpPattern'_unknownFields = y__})+ defMessage+ = CustomHttpPattern'_constructor+ {_CustomHttpPattern'kind = Data.ProtoLens.fieldDefault,+ _CustomHttpPattern'path = Data.ProtoLens.fieldDefault,+ _CustomHttpPattern'_unknownFields = []}+ parseMessage+ = let+ loop ::+ CustomHttpPattern+ -> Data.ProtoLens.Encoding.Bytes.Parser CustomHttpPattern+ loop x+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "kind"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"kind") y x)+ 18+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "path"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"path") y x)+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do loop Data.ProtoLens.defMessage) "CustomHttpPattern"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"kind") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ ((Data.Monoid.<>)+ (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"path") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData CustomHttpPattern where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_CustomHttpPattern'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_CustomHttpPattern'kind x__)+ (Control.DeepSeq.deepseq (_CustomHttpPattern'path x__) ()))+{- | Fields :+ + * 'Proto.Google.Api.Http_Fields.rules' @:: Lens' Http [HttpRule]@+ * 'Proto.Google.Api.Http_Fields.vec'rules' @:: Lens' Http (Data.Vector.Vector HttpRule)@ -}+data Http+ = Http'_constructor {_Http'rules :: !(Data.Vector.Vector HttpRule),+ _Http'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Http where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Http "rules" [HttpRule] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Http'rules (\ x__ y__ -> x__ {_Http'rules = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Http "vec'rules" (Data.Vector.Vector HttpRule) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Http'rules (\ x__ y__ -> x__ {_Http'rules = y__}))+ Prelude.id+instance Data.ProtoLens.Message Http where+ messageName _ = Data.Text.pack "google.api.Http"+ packedMessageDescriptor _+ = "\n\+ \\EOTHttp\DC2*\n\+ \\ENQrules\CAN\SOH \ETX(\v2\DC4.google.api.HttpRuleR\ENQrules"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ rules__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "rules"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor HttpRule)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"rules")) ::+ Data.ProtoLens.FieldDescriptor Http+ in+ Data.Map.fromList [(Data.ProtoLens.Tag 1, rules__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _Http'_unknownFields+ (\ x__ y__ -> x__ {_Http'_unknownFields = y__})+ defMessage+ = Http'_constructor+ {_Http'rules = Data.Vector.Generic.empty,+ _Http'_unknownFields = []}+ parseMessage+ = let+ loop ::+ Http+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld HttpRule+ -> Data.ProtoLens.Encoding.Bytes.Parser Http+ loop x mutable'rules+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do frozen'rules <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'rules)+ (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'rules") frozen'rules x))+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "rules"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append mutable'rules y)+ loop x v+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ mutable'rules+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do mutable'rules <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ loop Data.ProtoLens.defMessage mutable'rules)+ "Http"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'rules") _x))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData Http where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_Http'_unknownFields x__)+ (Control.DeepSeq.deepseq (_Http'rules x__) ())+{- | Fields :+ + * 'Proto.Google.Api.Http_Fields.selector' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.body' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.additionalBindings' @:: Lens' HttpRule [HttpRule]@+ * 'Proto.Google.Api.Http_Fields.vec'additionalBindings' @:: Lens' HttpRule (Data.Vector.Vector HttpRule)@+ * 'Proto.Google.Api.Http_Fields.maybe'pattern'' @:: Lens' HttpRule (Prelude.Maybe HttpRule'Pattern)@+ * 'Proto.Google.Api.Http_Fields.maybe'get' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Google.Api.Http_Fields.get' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.maybe'put' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Google.Api.Http_Fields.put' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.maybe'post' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Google.Api.Http_Fields.post' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.maybe'delete' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Google.Api.Http_Fields.delete' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.maybe'patch' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Google.Api.Http_Fields.patch' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.maybe'custom' @:: Lens' HttpRule (Prelude.Maybe CustomHttpPattern)@+ * 'Proto.Google.Api.Http_Fields.custom' @:: Lens' HttpRule CustomHttpPattern@ -}+data HttpRule+ = HttpRule'_constructor {_HttpRule'selector :: !Data.Text.Text,+ _HttpRule'body :: !Data.Text.Text,+ _HttpRule'additionalBindings :: !(Data.Vector.Vector HttpRule),+ _HttpRule'pattern' :: !(Prelude.Maybe HttpRule'Pattern),+ _HttpRule'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show HttpRule where+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+data HttpRule'Pattern+ = HttpRule'Get !Data.Text.Text |+ HttpRule'Put !Data.Text.Text |+ HttpRule'Post !Data.Text.Text |+ HttpRule'Delete !Data.Text.Text |+ HttpRule'Patch !Data.Text.Text |+ HttpRule'Custom !CustomHttpPattern+ deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.Field.HasField HttpRule "selector" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'selector (\ x__ y__ -> x__ {_HttpRule'selector = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField HttpRule "body" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'body (\ x__ y__ -> x__ {_HttpRule'body = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField HttpRule "additionalBindings" [HttpRule] where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'additionalBindings+ (\ x__ y__ -> x__ {_HttpRule'additionalBindings = y__}))+ (Lens.Family2.Unchecked.lens+ Data.Vector.Generic.toList+ (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField HttpRule "vec'additionalBindings" (Data.Vector.Vector HttpRule) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'additionalBindings+ (\ x__ y__ -> x__ {_HttpRule'additionalBindings = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField HttpRule "maybe'pattern'" (Prelude.Maybe HttpRule'Pattern) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField HttpRule "maybe'get" (Prelude.Maybe Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Get x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Get y__))+instance Data.ProtoLens.Field.HasField HttpRule "get" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Get x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Get y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField HttpRule "maybe'put" (Prelude.Maybe Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Put x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Put y__))+instance Data.ProtoLens.Field.HasField HttpRule "put" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Put x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Put y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField HttpRule "maybe'post" (Prelude.Maybe Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Post x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Post y__))+instance Data.ProtoLens.Field.HasField HttpRule "post" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Post x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Post y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField HttpRule "maybe'delete" (Prelude.Maybe Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Delete x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Delete y__))+instance Data.ProtoLens.Field.HasField HttpRule "delete" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Delete x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Delete y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField HttpRule "maybe'patch" (Prelude.Maybe Data.Text.Text) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Patch x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Patch y__))+instance Data.ProtoLens.Field.HasField HttpRule "patch" Data.Text.Text where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Patch x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Patch y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField HttpRule "maybe'custom" (Prelude.Maybe CustomHttpPattern) where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Custom x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Custom y__))+instance Data.ProtoLens.Field.HasField HttpRule "custom" CustomHttpPattern where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _HttpRule'pattern' (\ x__ y__ -> x__ {_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__+ -> case x__ of+ (Prelude.Just (HttpRule'Custom x__val)) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Custom y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Message HttpRule where+ messageName _ = Data.Text.pack "google.api.HttpRule"+ packedMessageDescriptor _+ = "\n\+ \\bHttpRule\DC2\SUB\n\+ \\bselector\CAN\SOH \SOH(\tR\bselector\DC2\DC2\n\+ \\ETXget\CAN\STX \SOH(\tH\NULR\ETXget\DC2\DC2\n\+ \\ETXput\CAN\ETX \SOH(\tH\NULR\ETXput\DC2\DC4\n\+ \\EOTpost\CAN\EOT \SOH(\tH\NULR\EOTpost\DC2\CAN\n\+ \\ACKdelete\CAN\ENQ \SOH(\tH\NULR\ACKdelete\DC2\SYN\n\+ \\ENQpatch\CAN\ACK \SOH(\tH\NULR\ENQpatch\DC27\n\+ \\ACKcustom\CAN\b \SOH(\v2\GS.google.api.CustomHttpPatternH\NULR\ACKcustom\DC2\DC2\n\+ \\EOTbody\CAN\a \SOH(\tR\EOTbody\DC2E\n\+ \\DC3additional_bindings\CAN\v \ETX(\v2\DC4.google.api.HttpRuleR\DC2additionalBindingsB\t\n\+ \\apattern"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ selector__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "selector"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional+ (Data.ProtoLens.Field.field @"selector")) ::+ Data.ProtoLens.FieldDescriptor HttpRule+ body__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "body"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"body")) ::+ Data.ProtoLens.FieldDescriptor HttpRule+ additionalBindings__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "additional_bindings"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor HttpRule)+ (Data.ProtoLens.RepeatedField+ Data.ProtoLens.Unpacked+ (Data.ProtoLens.Field.field @"additionalBindings")) ::+ Data.ProtoLens.FieldDescriptor HttpRule+ get__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "get"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'get")) ::+ Data.ProtoLens.FieldDescriptor HttpRule+ put__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "put"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'put")) ::+ Data.ProtoLens.FieldDescriptor HttpRule+ post__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "post"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'post")) ::+ Data.ProtoLens.FieldDescriptor HttpRule+ delete__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "delete"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'delete")) ::+ Data.ProtoLens.FieldDescriptor HttpRule+ patch__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "patch"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'patch")) ::+ Data.ProtoLens.FieldDescriptor HttpRule+ custom__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "custom"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor CustomHttpPattern)+ (Data.ProtoLens.OptionalField+ (Data.ProtoLens.Field.field @"maybe'custom")) ::+ Data.ProtoLens.FieldDescriptor HttpRule+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, selector__field_descriptor),+ (Data.ProtoLens.Tag 7, body__field_descriptor),+ (Data.ProtoLens.Tag 11, additionalBindings__field_descriptor),+ (Data.ProtoLens.Tag 2, get__field_descriptor),+ (Data.ProtoLens.Tag 3, put__field_descriptor),+ (Data.ProtoLens.Tag 4, post__field_descriptor),+ (Data.ProtoLens.Tag 5, delete__field_descriptor),+ (Data.ProtoLens.Tag 6, patch__field_descriptor),+ (Data.ProtoLens.Tag 8, custom__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _HttpRule'_unknownFields+ (\ x__ y__ -> x__ {_HttpRule'_unknownFields = y__})+ defMessage+ = HttpRule'_constructor+ {_HttpRule'selector = Data.ProtoLens.fieldDefault,+ _HttpRule'body = Data.ProtoLens.fieldDefault,+ _HttpRule'additionalBindings = Data.Vector.Generic.empty,+ _HttpRule'pattern' = Prelude.Nothing,+ _HttpRule'_unknownFields = []}+ parseMessage+ = let+ loop ::+ HttpRule+ -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld HttpRule+ -> Data.ProtoLens.Encoding.Bytes.Parser HttpRule+ loop x mutable'additionalBindings+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do frozen'additionalBindings <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.unsafeFreeze+ mutable'additionalBindings)+ (let missing = []+ in+ if Prelude.null missing then+ Prelude.return ()+ else+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+ (Lens.Family2.set+ (Data.ProtoLens.Field.field @"vec'additionalBindings")+ frozen'additionalBindings x))+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 10+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "selector"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"selector") y x)+ mutable'additionalBindings+ 58+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "body"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"body") y x)+ mutable'additionalBindings+ 90+ -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len)+ Data.ProtoLens.parseMessage)+ "additional_bindings"+ v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ (Data.ProtoLens.Encoding.Growing.append+ mutable'additionalBindings y)+ loop x v+ 18+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "get"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"get") y x)+ mutable'additionalBindings+ 26+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "put"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"put") y x)+ mutable'additionalBindings+ 34+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "post"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"post") y x)+ mutable'additionalBindings+ 42+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "delete"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"delete") y x)+ mutable'additionalBindings+ 50+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.getBytes+ (Prelude.fromIntegral len)+ Data.ProtoLens.Encoding.Bytes.runEither+ (case Data.Text.Encoding.decodeUtf8' value of+ (Prelude.Left err)+ -> Prelude.Left (Prelude.show err)+ (Prelude.Right r) -> Prelude.Right r))+ "patch"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"patch") y x)+ mutable'additionalBindings+ 66+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+ Data.ProtoLens.Encoding.Bytes.isolate+ (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+ "custom"+ loop+ (Lens.Family2.set (Data.ProtoLens.Field.field @"custom") y x)+ mutable'additionalBindings+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ mutable'additionalBindings+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do mutable'additionalBindings <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+ Data.ProtoLens.Encoding.Growing.new+ loop Data.ProtoLens.defMessage mutable'additionalBindings)+ "HttpRule"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let+ _v = Lens.Family2.view (Data.ProtoLens.Field.field @"selector") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ ((Data.Monoid.<>)+ (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"body") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 58)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 _v))+ ((Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+ (\ _v+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 90)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage _v))+ (Lens.Family2.view+ (Data.ProtoLens.Field.field @"vec'additionalBindings") _x))+ ((Data.Monoid.<>)+ (case+ Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pattern'") _x+ of+ Prelude.Nothing -> Data.Monoid.mempty+ (Prelude.Just (HttpRule'Get v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 v)+ (Prelude.Just (HttpRule'Put v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 v)+ (Prelude.Just (HttpRule'Post v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 v)+ (Prelude.Just (HttpRule'Delete v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 42)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 v)+ (Prelude.Just (HttpRule'Patch v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 50)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.Text.Encoding.encodeUtf8 v)+ (Prelude.Just (HttpRule'Custom v))+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 66)+ ((Prelude..)+ (\ bs+ -> (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt+ (Prelude.fromIntegral (Data.ByteString.length bs)))+ (Data.ProtoLens.Encoding.Bytes.putBytes bs))+ Data.ProtoLens.encodeMessage v))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))+instance Control.DeepSeq.NFData HttpRule where+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_HttpRule'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_HttpRule'selector x__)+ (Control.DeepSeq.deepseq+ (_HttpRule'body x__)+ (Control.DeepSeq.deepseq+ (_HttpRule'additionalBindings x__)+ (Control.DeepSeq.deepseq (_HttpRule'pattern' x__) ()))))+instance Control.DeepSeq.NFData HttpRule'Pattern where+ rnf (HttpRule'Get x__) = Control.DeepSeq.rnf x__+ rnf (HttpRule'Put x__) = Control.DeepSeq.rnf x__+ rnf (HttpRule'Post x__) = Control.DeepSeq.rnf x__+ rnf (HttpRule'Delete x__) = Control.DeepSeq.rnf x__+ rnf (HttpRule'Patch x__) = Control.DeepSeq.rnf x__+ rnf (HttpRule'Custom x__) = Control.DeepSeq.rnf x__+_HttpRule'Get ::+ Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text+_HttpRule'Get+ = Data.ProtoLens.Prism.prism'+ HttpRule'Get+ (\ p__+ -> case p__ of+ (HttpRule'Get p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_HttpRule'Put ::+ Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text+_HttpRule'Put+ = Data.ProtoLens.Prism.prism'+ HttpRule'Put+ (\ p__+ -> case p__ of+ (HttpRule'Put p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_HttpRule'Post ::+ Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text+_HttpRule'Post+ = Data.ProtoLens.Prism.prism'+ HttpRule'Post+ (\ p__+ -> case p__ of+ (HttpRule'Post p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_HttpRule'Delete ::+ Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text+_HttpRule'Delete+ = Data.ProtoLens.Prism.prism'+ HttpRule'Delete+ (\ p__+ -> case p__ of+ (HttpRule'Delete p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_HttpRule'Patch ::+ Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text+_HttpRule'Patch+ = Data.ProtoLens.Prism.prism'+ HttpRule'Patch+ (\ p__+ -> case p__ of+ (HttpRule'Patch p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_HttpRule'Custom ::+ Data.ProtoLens.Prism.Prism' HttpRule'Pattern CustomHttpPattern+_HttpRule'Custom+ = Data.ProtoLens.Prism.prism'+ HttpRule'Custom+ (\ p__+ -> case p__ of+ (HttpRule'Custom p__val) -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+packedFileDescriptor :: Data.ByteString.ByteString+packedFileDescriptor+ = "\n\+ \\NAKgoogle/api/http.proto\DC2\n\+ \google.api\"2\n\+ \\EOTHttp\DC2*\n\+ \\ENQrules\CAN\SOH \ETX(\v2\DC4.google.api.HttpRuleR\ENQrules\"\181\STX\n\+ \\bHttpRule\DC2\SUB\n\+ \\bselector\CAN\SOH \SOH(\tR\bselector\DC2\DC2\n\+ \\ETXget\CAN\STX \SOH(\tH\NULR\ETXget\DC2\DC2\n\+ \\ETXput\CAN\ETX \SOH(\tH\NULR\ETXput\DC2\DC4\n\+ \\EOTpost\CAN\EOT \SOH(\tH\NULR\EOTpost\DC2\CAN\n\+ \\ACKdelete\CAN\ENQ \SOH(\tH\NULR\ACKdelete\DC2\SYN\n\+ \\ENQpatch\CAN\ACK \SOH(\tH\NULR\ENQpatch\DC27\n\+ \\ACKcustom\CAN\b \SOH(\v2\GS.google.api.CustomHttpPatternH\NULR\ACKcustom\DC2\DC2\n\+ \\EOTbody\CAN\a \SOH(\tR\EOTbody\DC2E\n\+ \\DC3additional_bindings\CAN\v \ETX(\v2\DC4.google.api.HttpRuleR\DC2additionalBindingsB\t\n\+ \\apattern\";\n\+ \\DC1CustomHttpPattern\DC2\DC2\n\+ \\EOTkind\CAN\SOH \SOH(\tR\EOTkind\DC2\DC2\n\+ \\EOTpath\CAN\STX \SOH(\tR\EOTpathBj\n\+ \\SOcom.google.apiB\tHttpProtoP\SOHZAgoogle.golang.org/genproto/googleapis/api/annotations;annotations\248\SOH\SOH\162\STX\EOTGAPIJ\205Q\n\+ \\a\DC2\ENQ\SO\NUL\162\STX\SOH\n\+ \\189\EOT\n\+ \\SOH\f\DC2\ETX\SO\NUL\DC22\178\EOT Copyright 2016 Google Inc.\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\DC3\n\+ \\b\n\+ \\SOH\b\DC2\ETX\DC2\NUL\US\n\+ \\t\n\+ \\STX\b\US\DC2\ETX\DC2\NUL\US\n\+ \\b\n\+ \\SOH\b\DC2\ETX\DC3\NULX\n\+ \\t\n\+ \\STX\b\v\DC2\ETX\DC3\NULX\n\+ \\b\n\+ \\SOH\b\DC2\ETX\DC4\NUL\"\n\+ \\t\n\+ \\STX\b\n\+ \\DC2\ETX\DC4\NUL\"\n\+ \\b\n\+ \\SOH\b\DC2\ETX\NAK\NUL*\n\+ \\t\n\+ \\STX\b\b\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$\DC2\ETX\ETB\NUL\"\n\+ \\200\SOH\n\+ \\STX\EOT\NUL\DC2\EOT\GS\NUL\"\SOH\SUB\187\SOH Defines the HTTP configuration for a service. It contains a list of\n\+ \ [HttpRule][google.api.HttpRule], each specifying the mapping of an RPC method\n\+ \ to one or more HTTP REST API methods.\n\+ \\n\+ \\n\+ \\n\+ \\ETX\EOT\NUL\SOH\DC2\ETX\GS\b\f\n\+ \\162\SOH\n\+ \\EOT\EOT\NUL\STX\NUL\DC2\ETX!\STX\RS\SUB\148\SOH A list of HTTP configuration rules that apply to individual API methods.\n\+ \\n\+ \ **NOTE:** All service configuration rules follow \"last one wins\" order.\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\DC3\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX!\DC4\EM\n\+ \\f\n\+ \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX!\FS\GS\n\+ \\223\&9\n\+ \\STX\EOT\SOH\DC2\ACK\242\SOH\NUL\153\STX\SOH\SUB\208\&9 `HttpRule` defines the mapping of an RPC method to one or more HTTP\n\+ \ REST APIs. The mapping determines what portions of the request\n\+ \ message are populated from the path, query parameters, or body of\n\+ \ the HTTP request. The mapping is typically specified as an\n\+ \ `google.api.http` annotation, see \"google/api/annotations.proto\"\n\+ \ for details.\n\+ \\n\+ \ The mapping consists of a field specifying the path template and\n\+ \ method kind. The path template can refer to fields in the request\n\+ \ message, as in the example below which describes a REST GET\n\+ \ operation on a resource collection of messages:\n\+ \\n\+ \\n\+ \ service Messaging {\n\+ \ rpc GetMessage(GetMessageRequest) returns (Message) {\n\+ \ option (google.api.http).get = \"/v1/messages/{message_id}/{sub.subfield}\";\n\+ \ }\n\+ \ }\n\+ \ message GetMessageRequest {\n\+ \ message SubMessage {\n\+ \ string subfield = 1;\n\+ \ }\n\+ \ string message_id = 1; // mapped to the URL\n\+ \ SubMessage sub = 2; // `sub.subfield` is url-mapped\n\+ \ }\n\+ \ message Message {\n\+ \ string text = 1; // content of the resource\n\+ \ }\n\+ \\n\+ \ The same http annotation can alternatively be expressed inside the\n\+ \ `GRPC API Configuration` YAML file.\n\+ \\n\+ \ http:\n\+ \ rules:\n\+ \ - selector: <proto_package_name>.Messaging.GetMessage\n\+ \ get: /v1/messages/{message_id}/{sub.subfield}\n\+ \\n\+ \ This definition enables an automatic, bidrectional mapping of HTTP\n\+ \ JSON to RPC. Example:\n\+ \\n\+ \ HTTP | RPC\n\+ \ -----|-----\n\+ \ `GET /v1/messages/123456/foo` | `GetMessage(message_id: \"123456\" sub: SubMessage(subfield: \"foo\"))`\n\+ \\n\+ \ In general, not only fields but also field paths can be referenced\n\+ \ from a path pattern. Fields mapped to the path pattern cannot be\n\+ \ repeated and must have a primitive (non-message) type.\n\+ \\n\+ \ Any fields in the request message which are not bound by the path\n\+ \ pattern automatically become (optional) HTTP query\n\+ \ parameters. Assume the following definition of the request message:\n\+ \\n\+ \\n\+ \ message GetMessageRequest {\n\+ \ message SubMessage {\n\+ \ string subfield = 1;\n\+ \ }\n\+ \ string message_id = 1; // mapped to the URL\n\+ \ int64 revision = 2; // becomes a parameter\n\+ \ SubMessage sub = 3; // `sub.subfield` becomes a parameter\n\+ \ }\n\+ \\n\+ \\n\+ \ This enables a HTTP JSON to RPC mapping as below:\n\+ \\n\+ \ HTTP | RPC\n\+ \ -----|-----\n\+ \ `GET /v1/messages/123456?revision=2&sub.subfield=foo` | `GetMessage(message_id: \"123456\" revision: 2 sub: SubMessage(subfield: \"foo\"))`\n\+ \\n\+ \ Note that fields which are mapped to HTTP parameters must have a\n\+ \ primitive type or a repeated primitive type. Message types are not\n\+ \ allowed. In the case of a repeated type, the parameter can be\n\+ \ repeated in the URL, as in `...?param=A¶m=B`.\n\+ \\n\+ \ For HTTP method kinds which allow a request body, the `body` field\n\+ \ specifies the mapping. Consider a REST update method on the\n\+ \ message resource collection:\n\+ \\n\+ \\n\+ \ service Messaging {\n\+ \ rpc UpdateMessage(UpdateMessageRequest) returns (Message) {\n\+ \ option (google.api.http) = {\n\+ \ put: \"/v1/messages/{message_id}\"\n\+ \ body: \"message\"\n\+ \ };\n\+ \ }\n\+ \ }\n\+ \ message UpdateMessageRequest {\n\+ \ string message_id = 1; // mapped to the URL\n\+ \ Message message = 2; // mapped to the body\n\+ \ }\n\+ \\n\+ \\n\+ \ The following HTTP JSON to RPC mapping is enabled, where the\n\+ \ representation of the JSON in the request body is determined by\n\+ \ protos JSON encoding:\n\+ \\n\+ \ HTTP | RPC\n\+ \ -----|-----\n\+ \ `PUT /v1/messages/123456 { \"text\": \"Hi!\" }` | `UpdateMessage(message_id: \"123456\" message { text: \"Hi!\" })`\n\+ \\n\+ \ The special name `*` can be used in the body mapping to define that\n\+ \ every field not bound by the path template should be mapped to the\n\+ \ request body. This enables the following alternative definition of\n\+ \ the update method:\n\+ \\n\+ \ service Messaging {\n\+ \ rpc UpdateMessage(Message) returns (Message) {\n\+ \ option (google.api.http) = {\n\+ \ put: \"/v1/messages/{message_id}\"\n\+ \ body: \"*\"\n\+ \ };\n\+ \ }\n\+ \ }\n\+ \ message Message {\n\+ \ string message_id = 1;\n\+ \ string text = 2;\n\+ \ }\n\+ \\n\+ \\n\+ \ The following HTTP JSON to RPC mapping is enabled:\n\+ \\n\+ \ HTTP | RPC\n\+ \ -----|-----\n\+ \ `PUT /v1/messages/123456 { \"text\": \"Hi!\" }` | `UpdateMessage(message_id: \"123456\" text: \"Hi!\")`\n\+ \\n\+ \ Note that when using `*` in the body mapping, it is not possible to\n\+ \ have HTTP parameters, as all fields not bound by the path end in\n\+ \ the body. This makes this option more rarely used in practice of\n\+ \ defining REST APIs. The common usage of `*` is in custom methods\n\+ \ which don't use the URL at all for transferring data.\n\+ \\n\+ \ It is possible to define multiple HTTP methods for one RPC by using\n\+ \ the `additional_bindings` option. Example:\n\+ \\n\+ \ service Messaging {\n\+ \ rpc GetMessage(GetMessageRequest) returns (Message) {\n\+ \ option (google.api.http) = {\n\+ \ get: \"/v1/messages/{message_id}\"\n\+ \ additional_bindings {\n\+ \ get: \"/v1/users/{user_id}/messages/{message_id}\"\n\+ \ }\n\+ \ };\n\+ \ }\n\+ \ }\n\+ \ message GetMessageRequest {\n\+ \ string message_id = 1;\n\+ \ string user_id = 2;\n\+ \ }\n\+ \\n\+ \\n\+ \ This enables the following two alternative HTTP JSON to RPC\n\+ \ mappings:\n\+ \\n\+ \ HTTP | RPC\n\+ \ -----|-----\n\+ \ `GET /v1/messages/123456` | `GetMessage(message_id: \"123456\")`\n\+ \ `GET /v1/users/me/messages/123456` | `GetMessage(user_id: \"me\" message_id: \"123456\")`\n\+ \\n\+ \ # Rules for HTTP mapping\n\+ \\n\+ \ The rules for mapping HTTP path, query parameters, and body fields\n\+ \ to the request message are as follows:\n\+ \\n\+ \ 1. The `body` field specifies either `*` or a field path, or is\n\+ \ omitted. If omitted, it assumes there is no HTTP body.\n\+ \ 2. Leaf fields (recursive expansion of nested messages in the\n\+ \ request) can be classified into three types:\n\+ \ (a) Matched in the URL template.\n\+ \ (b) Covered by body (if body is `*`, everything except (a) fields;\n\+ \ else everything under the body field)\n\+ \ (c) All other fields.\n\+ \ 3. URL query parameters found in the HTTP request are mapped to (c) fields.\n\+ \ 4. Any body sent with an HTTP request can contain only (b) fields.\n\+ \\n\+ \ The syntax of the path template is as follows:\n\+ \\n\+ \ Template = \"/\" Segments [ Verb ] ;\n\+ \ Segments = Segment { \"/\" Segment } ;\n\+ \ Segment = \"*\" | \"**\" | LITERAL | Variable ;\n\+ \ Variable = \"{\" FieldPath [ \"=\" Segments ] \"}\" ;\n\+ \ FieldPath = IDENT { \".\" IDENT } ;\n\+ \ Verb = \":\" LITERAL ;\n\+ \\n\+ \ The syntax `*` matches a single path segment. It follows the semantics of\n\+ \ [RFC 6570](https://tools.ietf.org/html/rfc6570) Section 3.2.2 Simple String\n\+ \ Expansion.\n\+ \\n\+ \ The syntax `**` matches zero or more path segments. It follows the semantics\n\+ \ of [RFC 6570](https://tools.ietf.org/html/rfc6570) Section 3.2.3 Reserved\n\+ \ Expansion. NOTE: it must be the last segment in the path except the Verb.\n\+ \\n\+ \ The syntax `LITERAL` matches literal text in the URL path.\n\+ \\n\+ \ The syntax `Variable` matches the entire path as specified by its template;\n\+ \ this nested template must not contain further variables. If a variable\n\+ \ matches a single path segment, its template may be omitted, e.g. `{var}`\n\+ \ is equivalent to `{var=*}`.\n\+ \\n\+ \ NOTE: the field paths in variables and in the `body` must not refer to\n\+ \ repeated fields or map fields.\n\+ \\n\+ \ Use CustomHttpPattern to specify any HTTP method that is not included in the\n\+ \ `pattern` field, such as HEAD, or \"*\" to leave the HTTP method unspecified for\n\+ \ a given URL path rule. The wild-card rule is useful for services that provide\n\+ \ content to Web (HTML) clients.\n\+ \\n\+ \\v\n\+ \\ETX\EOT\SOH\SOH\DC2\EOT\242\SOH\b\DLE\n\+ \\140\SOH\n\+ \\EOT\EOT\SOH\STX\NUL\DC2\EOT\246\SOH\STX\SYN\SUB~ Selects methods to which this rule applies.\n\+ \\n\+ \ Refer to [selector][google.api.DocumentationRule.selector] for syntax details.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\EOT\246\SOH\STX\b\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\EOT\246\SOH\t\DC1\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\EOT\246\SOH\DC4\NAK\n\+ \\208\SOH\n\+ \\EOT\EOT\SOH\b\NUL\DC2\ACK\251\SOH\STX\141\STX\ETX\SUB\191\SOH Determines the URL pattern is matched by this rules. This pattern can be\n\+ \ used with any of the {get|put|post|delete|patch} methods. A custom method\n\+ \ can be defined using the 'custom' field.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\b\NUL\SOH\DC2\EOT\251\SOH\b\SI\n\+ \I\n\+ \\EOT\EOT\SOH\STX\SOH\DC2\EOT\253\SOH\EOT\DC3\SUB; Used for listing and getting information about resources.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\EOT\253\SOH\EOT\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\EOT\253\SOH\v\SO\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\EOT\253\SOH\DC1\DC2\n\+ \-\n\+ \\EOT\EOT\SOH\STX\STX\DC2\EOT\128\STX\EOT\DC3\SUB\US Used for updating a resource.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\STX\ENQ\DC2\EOT\128\STX\EOT\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\STX\SOH\DC2\EOT\128\STX\v\SO\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\STX\ETX\DC2\EOT\128\STX\DC1\DC2\n\+ \-\n\+ \\EOT\EOT\SOH\STX\ETX\DC2\EOT\131\STX\EOT\DC4\SUB\US Used for creating a resource.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\EOT\131\STX\EOT\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\EOT\131\STX\v\SI\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\EOT\131\STX\DC2\DC3\n\+ \-\n\+ \\EOT\EOT\SOH\STX\EOT\DC2\EOT\134\STX\EOT\SYN\SUB\US Used for deleting a resource.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\EOT\ENQ\DC2\EOT\134\STX\EOT\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\EOT\SOH\DC2\EOT\134\STX\v\DC1\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\EOT\ETX\DC2\EOT\134\STX\DC4\NAK\n\+ \-\n\+ \\EOT\EOT\SOH\STX\ENQ\DC2\EOT\137\STX\EOT\NAK\SUB\US Used for updating a resource.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\ENQ\ENQ\DC2\EOT\137\STX\EOT\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\EOT\137\STX\v\DLE\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\EOT\137\STX\DC3\DC4\n\+ \A\n\+ \\EOT\EOT\SOH\STX\ACK\DC2\EOT\140\STX\EOT!\SUB3 Custom pattern is used for defining custom verbs.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\ACK\ACK\DC2\EOT\140\STX\EOT\NAK\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\ACK\SOH\DC2\EOT\140\STX\SYN\FS\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\ACK\ETX\DC2\EOT\140\STX\US \n\+ \\158\STX\n\+ \\EOT\EOT\SOH\STX\a\DC2\EOT\147\STX\STX\DC2\SUB\143\STX The name of the request field whose value is mapped to the HTTP body, or\n\+ \ `*` for mapping all fields not captured by the path pattern to the HTTP\n\+ \ body. NOTE: the referred field must not be a repeated field and must be\n\+ \ present at the top-level of request message type.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\a\ENQ\DC2\EOT\147\STX\STX\b\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\a\SOH\DC2\EOT\147\STX\t\r\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\a\ETX\DC2\EOT\147\STX\DLE\DC1\n\+ \\187\SOH\n\+ \\EOT\EOT\SOH\STX\b\DC2\EOT\152\STX\STX-\SUB\172\SOH Additional HTTP bindings for the selector. Nested bindings must\n\+ \ not contain an `additional_bindings` field themselves (that is,\n\+ \ the nesting may only be one level deep).\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\b\EOT\DC2\EOT\152\STX\STX\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\b\ACK\DC2\EOT\152\STX\v\DC3\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\b\SOH\DC2\EOT\152\STX\DC4'\n\+ \\r\n\+ \\ENQ\EOT\SOH\STX\b\ETX\DC2\EOT\152\STX*,\n\+ \G\n\+ \\STX\EOT\STX\DC2\ACK\156\STX\NUL\162\STX\SOH\SUB9 A custom pattern is used for defining custom HTTP verb.\n\+ \\n\+ \\v\n\+ \\ETX\EOT\STX\SOH\DC2\EOT\156\STX\b\EM\n\+ \2\n\+ \\EOT\EOT\STX\STX\NUL\DC2\EOT\158\STX\STX\DC2\SUB$ The name of this custom HTTP verb.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\EOT\158\STX\STX\b\n\+ \\r\n\+ \\ENQ\EOT\STX\STX\NUL\SOH\DC2\EOT\158\STX\t\r\n\+ \\r\n\+ \\ENQ\EOT\STX\STX\NUL\ETX\DC2\EOT\158\STX\DLE\DC1\n\+ \5\n\+ \\EOT\EOT\STX\STX\SOH\DC2\EOT\161\STX\STX\DC2\SUB' The path matched by this custom verb.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\EOT\161\STX\STX\b\n\+ \\r\n\+ \\ENQ\EOT\STX\STX\SOH\SOH\DC2\EOT\161\STX\t\r\n\+ \\r\n\+ \\ENQ\EOT\STX\STX\SOH\ETX\DC2\EOT\161\STX\DLE\DC1b\ACKproto3"
gen/Proto/Google/Protobuf/Timestamp.hs view
@@ -1,183 +1,359 @@ {- This file was auto-generated from google/protobuf/timestamp.proto by the proto-lens-protoc program. -}-{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,- UndecidableInstances, GeneralizedNewtypeDeriving,- MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,- PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds,- BangPatterns, TypeApplications #-}-{-# OPTIONS_GHC -fno-warn-unused-imports#-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}-module Proto.Google.Protobuf.Timestamp (Timestamp()) where-import qualified Data.ProtoLens.Runtime.Control.DeepSeq- as Control.DeepSeq-import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism- as Data.ProtoLens.Prism+{-# 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.Google.Protobuf.Timestamp (+ Timestamp()+ ) 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.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.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.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- {- | Fields :-- * 'Proto.Google.Protobuf.Timestamp_Fields.seconds' @:: Lens' Timestamp Data.Int.Int64@- * 'Proto.Google.Protobuf.Timestamp_Fields.nanos' @:: Lens' Timestamp Data.Int.Int32@- -}-data Timestamp = Timestamp{_Timestamp'seconds :: !Data.Int.Int64,- _Timestamp'nanos :: !Data.Int.Int32,- _Timestamp'_unknownFields :: !Data.ProtoLens.FieldSet}- deriving (Prelude.Eq, Prelude.Ord)+ + * 'Proto.Google.Protobuf.Timestamp_Fields.seconds' @:: Lens' Timestamp Data.Int.Int64@+ * 'Proto.Google.Protobuf.Timestamp_Fields.nanos' @:: Lens' Timestamp Data.Int.Int32@ -}+data Timestamp+ = Timestamp'_constructor {_Timestamp'seconds :: !Data.Int.Int64,+ _Timestamp'nanos :: !Data.Int.Int32,+ _Timestamp'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Timestamp where- showsPrec _ __x __s- = Prelude.showChar '{'- (Prelude.showString (Data.ProtoLens.showMessageShort __x)- (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Timestamp "seconds"- (Data.Int.Int64)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Timestamp'seconds- (\ x__ y__ -> x__{_Timestamp'seconds = y__}))- Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Timestamp "nanos"- (Data.Int.Int32)- where- fieldOf _- = (Lens.Family2.Unchecked.lens _Timestamp'nanos- (\ x__ y__ -> x__{_Timestamp'nanos = y__}))- Prelude.. Prelude.id+ showsPrec _ __x __s+ = Prelude.showChar+ '{'+ (Prelude.showString+ (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Timestamp "seconds" Data.Int.Int64 where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Timestamp'seconds (\ x__ y__ -> x__ {_Timestamp'seconds = y__}))+ Prelude.id+instance Data.ProtoLens.Field.HasField Timestamp "nanos" Data.Int.Int32 where+ fieldOf _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _Timestamp'nanos (\ x__ y__ -> x__ {_Timestamp'nanos = y__}))+ Prelude.id instance Data.ProtoLens.Message Timestamp where- messageName _ = Data.Text.pack "google.protobuf.Timestamp"- fieldsByTag- = let seconds__field_descriptor- = Data.ProtoLens.FieldDescriptor "seconds"- (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::- Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"seconds"))- :: Data.ProtoLens.FieldDescriptor Timestamp- nanos__field_descriptor- = Data.ProtoLens.FieldDescriptor "nanos"- (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::- Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)- (Data.ProtoLens.PlainField Data.ProtoLens.Optional- (Data.ProtoLens.Field.field @"nanos"))- :: Data.ProtoLens.FieldDescriptor Timestamp- in- Data.Map.fromList- [(Data.ProtoLens.Tag 1, seconds__field_descriptor),- (Data.ProtoLens.Tag 2, nanos__field_descriptor)]- unknownFields- = Lens.Family2.Unchecked.lens _Timestamp'_unknownFields- (\ x__ y__ -> x__{_Timestamp'_unknownFields = y__})- defMessage- = Timestamp{_Timestamp'seconds = Data.ProtoLens.fieldDefault,- _Timestamp'nanos = Data.ProtoLens.fieldDefault,- _Timestamp'_unknownFields = ([])}- parseMessage- = let loop ::- Timestamp -> Data.ProtoLens.Encoding.Bytes.Parser Timestamp- loop x- = do end <- Data.ProtoLens.Encoding.Bytes.atEnd- if end then- do let missing = [] in- if Prelude.null missing then Prelude.return () else- Prelude.fail- (("Missing required fields: ") Prelude.++- Prelude.show (missing :: ([Prelude.String])))- Prelude.return- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> Prelude.reverse t)- x)+ messageName _ = Data.Text.pack "google.protobuf.Timestamp"+ packedMessageDescriptor _+ = "\n\+ \\tTimestamp\DC2\CAN\n\+ \\aseconds\CAN\SOH \SOH(\ETXR\aseconds\DC2\DC4\n\+ \\ENQnanos\CAN\STX \SOH(\ENQR\ENQnanos"+ packedFileDescriptor _ = packedFileDescriptor+ fieldsByTag+ = let+ seconds__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "seconds"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"seconds")) ::+ Data.ProtoLens.FieldDescriptor Timestamp+ nanos__field_descriptor+ = Data.ProtoLens.FieldDescriptor+ "nanos"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+ (Data.ProtoLens.PlainField+ Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"nanos")) ::+ Data.ProtoLens.FieldDescriptor Timestamp+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, seconds__field_descriptor),+ (Data.ProtoLens.Tag 2, nanos__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _Timestamp'_unknownFields+ (\ x__ y__ -> x__ {_Timestamp'_unknownFields = y__})+ defMessage+ = Timestamp'_constructor+ {_Timestamp'seconds = Data.ProtoLens.fieldDefault,+ _Timestamp'nanos = Data.ProtoLens.fieldDefault,+ _Timestamp'_unknownFields = []}+ parseMessage+ = let+ loop :: Timestamp -> Data.ProtoLens.Encoding.Bytes.Parser Timestamp+ loop x+ = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+ if end then+ do (let missing = []+ in+ if Prelude.null missing then+ Prelude.return () else- do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt- case tag of- 8 -> do y <- (Prelude.fmap Prelude.fromIntegral- Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "seconds"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"seconds")- y- x)- 16 -> do y <- (Prelude.fmap Prelude.fromIntegral- Data.ProtoLens.Encoding.Bytes.getVarInt)- Data.ProtoLens.Encoding.Bytes.<?> "nanos"- loop- (Lens.Family2.set (Data.ProtoLens.Field.field @"nanos") y- x)- wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire- wire- loop- (Lens.Family2.over Data.ProtoLens.unknownFields- (\ !t -> (:) y t)- x)+ Prelude.fail+ ((Prelude.++)+ "Missing required fields: "+ (Prelude.show (missing :: [Prelude.String]))))+ Prelude.return+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+ else+ do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+ case tag of+ 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ Prelude.fromIntegral+ Data.ProtoLens.Encoding.Bytes.getVarInt)+ "seconds"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"seconds") y x)+ 16+ -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+ (Prelude.fmap+ Prelude.fromIntegral+ Data.ProtoLens.Encoding.Bytes.getVarInt)+ "nanos"+ loop (Lens.Family2.set (Data.ProtoLens.Field.field @"nanos") y x)+ wire+ -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+ wire+ loop+ (Lens.Family2.over+ Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+ in+ (Data.ProtoLens.Encoding.Bytes.<?>)+ (do loop Data.ProtoLens.defMessage) "Timestamp"+ buildMessage+ = \ _x+ -> (Data.Monoid.<>)+ (let+ _v = Lens.Family2.view (Data.ProtoLens.Field.field @"seconds") _x in- (do loop Data.ProtoLens.defMessage)- Data.ProtoLens.Encoding.Bytes.<?> "Timestamp"- buildMessage- = (\ _x ->- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"seconds") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<>- ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..- Prelude.fromIntegral)- _v)- Data.Monoid.<>- (let _v- = Lens.Family2.view (Data.ProtoLens.Field.field @"nanos") _x- in- if (_v) Prelude.== Data.ProtoLens.fieldDefault then- Data.Monoid.mempty else- (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<>- ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..- Prelude.fromIntegral)- _v)- Data.Monoid.<>- Data.ProtoLens.Encoding.Wire.buildFieldSet- (Lens.Family2.view Data.ProtoLens.unknownFields _x))+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))+ ((Data.Monoid.<>)+ (let+ _v = Lens.Family2.view (Data.ProtoLens.Field.field @"nanos") _x+ in+ if (Prelude.==) _v Data.ProtoLens.fieldDefault then+ Data.Monoid.mempty+ else+ (Data.Monoid.<>)+ (Data.ProtoLens.Encoding.Bytes.putVarInt 16)+ ((Prelude..)+ Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))+ (Data.ProtoLens.Encoding.Wire.buildFieldSet+ (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData Timestamp where- rnf- = (\ x__ ->- Control.DeepSeq.deepseq (_Timestamp'_unknownFields x__)- (Control.DeepSeq.deepseq (_Timestamp'seconds x__)- (Control.DeepSeq.deepseq (_Timestamp'nanos x__) (()))))+ rnf+ = \ x__+ -> Control.DeepSeq.deepseq+ (_Timestamp'_unknownFields x__)+ (Control.DeepSeq.deepseq+ (_Timestamp'seconds x__)+ (Control.DeepSeq.deepseq (_Timestamp'nanos x__) ()))+packedFileDescriptor :: Data.ByteString.ByteString+packedFileDescriptor+ = "\n\+ \\USgoogle/protobuf/timestamp.proto\DC2\SIgoogle.protobuf\";\n\+ \\tTimestamp\DC2\CAN\n\+ \\aseconds\CAN\SOH \SOH(\ETXR\aseconds\DC2\DC4\n\+ \\ENQnanos\CAN\STX \SOH(\ENQR\ENQnanosB~\n\+ \\DC3com.google.protobufB\SOTimestampProtoP\SOHZ+github.com/golang/protobuf/ptypes/timestamp\248\SOH\SOH\162\STX\ETXGPB\170\STX\RSGoogle.Protobuf.WellKnownTypesJ\217-\n\+ \\a\DC2\ENQ\RS\NUL\137\SOH\SOH\n\+ \\204\f\n\+ \\SOH\f\DC2\ETX\RS\NUL\DC22\193\f Protocol Buffers - Google's data interchange format\n\+ \ Copyright 2008 Google Inc. All rights reserved.\n\+ \ https://developers.google.com/protocol-buffers/\n\+ \\n\+ \ Redistribution and use in source and binary forms, with or without\n\+ \ modification, are permitted provided that the following conditions are\n\+ \ met:\n\+ \\n\+ \ * Redistributions of source code must retain the above copyright\n\+ \ notice, this list of conditions and the following disclaimer.\n\+ \ * Redistributions in binary form must reproduce the above\n\+ \ copyright notice, this list of conditions and the following disclaimer\n\+ \ in the documentation and/or other materials provided with the\n\+ \ distribution.\n\+ \ * Neither the name of Google Inc. nor the names of its\n\+ \ contributors may be used to endorse or promote products derived from\n\+ \ this software without specific prior written permission.\n\+ \\n\+ \ THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS\n\+ \ \"AS IS\" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT\n\+ \ LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR\n\+ \ A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT\n\+ \ OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,\n\+ \ SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT\n\+ \ LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,\n\+ \ DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY\n\+ \ THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n\+ \ (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE\n\+ \ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n\+ \\n\+ \\b\n\+ \\SOH\STX\DC2\ETX \NUL\CAN\n\+ \\b\n\+ \\SOH\b\DC2\ETX\"\NUL;\n\+ \\t\n\+ \\STX\b%\DC2\ETX\"\NUL;\n\+ \\b\n\+ \\SOH\b\DC2\ETX#\NUL\US\n\+ \\t\n\+ \\STX\b\US\DC2\ETX#\NUL\US\n\+ \\b\n\+ \\SOH\b\DC2\ETX$\NULB\n\+ \\t\n\+ \\STX\b\v\DC2\ETX$\NULB\n\+ \\b\n\+ \\SOH\b\DC2\ETX%\NUL,\n\+ \\t\n\+ \\STX\b\SOH\DC2\ETX%\NUL,\n\+ \\b\n\+ \\SOH\b\DC2\ETX&\NUL/\n\+ \\t\n\+ \\STX\b\b\DC2\ETX&\NUL/\n\+ \\b\n\+ \\SOH\b\DC2\ETX'\NUL\"\n\+ \\t\n\+ \\STX\b\n\+ \\DC2\ETX'\NUL\"\n\+ \\b\n\+ \\SOH\b\DC2\ETX(\NUL!\n\+ \\t\n\+ \\STX\b$\DC2\ETX(\NUL!\n\+ \\243\ESC\n\+ \\STX\EOT\NUL\DC2\ENQ~\NUL\137\SOH\SOH\SUB\229\ESC A Timestamp represents a point in time independent of any time zone or local\n\+ \ calendar, encoded as a count of seconds and fractions of seconds at\n\+ \ nanosecond resolution. The count is relative to an epoch at UTC midnight on\n\+ \ January 1, 1970, in the proleptic Gregorian calendar which extends the\n\+ \ Gregorian calendar backwards to year one.\n\+ \\n\+ \ All minutes are 60 seconds long. Leap seconds are \"smeared\" so that no leap\n\+ \ second table is needed for interpretation, using a [24-hour linear\n\+ \ smear](https://developers.google.com/time/smear).\n\+ \\n\+ \ The range is from 0001-01-01T00:00:00Z to 9999-12-31T23:59:59.999999999Z. By\n\+ \ restricting to that range, we ensure that we can convert to and from [RFC\n\+ \ 3339](https://www.ietf.org/rfc/rfc3339.txt) date strings.\n\+ \\n\+ \ # Examples\n\+ \\n\+ \ Example 1: Compute Timestamp from POSIX `time()`.\n\+ \\n\+ \ Timestamp timestamp;\n\+ \ timestamp.set_seconds(time(NULL));\n\+ \ timestamp.set_nanos(0);\n\+ \\n\+ \ Example 2: Compute Timestamp from POSIX `gettimeofday()`.\n\+ \\n\+ \ struct timeval tv;\n\+ \ gettimeofday(&tv, NULL);\n\+ \\n\+ \ Timestamp timestamp;\n\+ \ timestamp.set_seconds(tv.tv_sec);\n\+ \ timestamp.set_nanos(tv.tv_usec * 1000);\n\+ \\n\+ \ Example 3: Compute Timestamp from Win32 `GetSystemTimeAsFileTime()`.\n\+ \\n\+ \ FILETIME ft;\n\+ \ GetSystemTimeAsFileTime(&ft);\n\+ \ UINT64 ticks = (((UINT64)ft.dwHighDateTime) << 32) | ft.dwLowDateTime;\n\+ \\n\+ \ // A Windows tick is 100 nanoseconds. Windows epoch 1601-01-01T00:00:00Z\n\+ \ // is 11644473600 seconds before Unix epoch 1970-01-01T00:00:00Z.\n\+ \ Timestamp timestamp;\n\+ \ timestamp.set_seconds((INT64) ((ticks / 10000000) - 11644473600LL));\n\+ \ timestamp.set_nanos((INT32) ((ticks % 10000000) * 100));\n\+ \\n\+ \ Example 4: Compute Timestamp from Java `System.currentTimeMillis()`.\n\+ \\n\+ \ long millis = System.currentTimeMillis();\n\+ \\n\+ \ Timestamp timestamp = Timestamp.newBuilder().setSeconds(millis / 1000)\n\+ \ .setNanos((int) ((millis % 1000) * 1000000)).build();\n\+ \\n\+ \\n\+ \ Example 5: Compute Timestamp from current time in Python.\n\+ \\n\+ \ timestamp = Timestamp()\n\+ \ timestamp.GetCurrentTime()\n\+ \\n\+ \ # JSON Mapping\n\+ \\n\+ \ In JSON format, the Timestamp type is encoded as a string in the\n\+ \ [RFC 3339](https://www.ietf.org/rfc/rfc3339.txt) format. That is, the\n\+ \ format is \"{year}-{month}-{day}T{hour}:{min}:{sec}[.{frac_sec}]Z\"\n\+ \ where {year} is always expressed using four digits while {month}, {day},\n\+ \ {hour}, {min}, and {sec} are zero-padded to two digits each. The fractional\n\+ \ seconds, which can go up to 9 digits (i.e. up to 1 nanosecond resolution),\n\+ \ are optional. The \"Z\" suffix indicates the timezone (\"UTC\"); the timezone\n\+ \ is required. A proto3 JSON serializer should always use UTC (as indicated by\n\+ \ \"Z\") when printing the Timestamp type and a proto3 JSON parser should be\n\+ \ able to accept both UTC and other timezones (as indicated by an offset).\n\+ \\n\+ \ For example, \"2017-01-15T01:30:15.01Z\" encodes 15.01 seconds past\n\+ \ 01:30 UTC on January 15, 2017.\n\+ \\n\+ \ In JavaScript, one can convert a Date object to this format using the\n\+ \ standard\n\+ \ [toISOString()](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/Date/toISOString)\n\+ \ method. In Python, a standard `datetime.datetime` object can be converted\n\+ \ to this format using\n\+ \ [`strftime`](https://docs.python.org/2/library/time.html#time.strftime) with\n\+ \ the time format spec '%Y-%m-%dT%H:%M:%S.%fZ'. Likewise, in Java, one can use\n\+ \ the Joda Time's [`ISODateTimeFormat.dateTime()`](\n\+ \ http://www.joda.org/joda-time/apidocs/org/joda/time/format/ISODateTimeFormat.html#dateTime%2D%2D\n\+ \ ) to obtain a formatter capable of generating timestamps in this format.\n\+ \\n\+ \\n\+ \\n\+ \\n\+ \\n\+ \\ETX\EOT\NUL\SOH\DC2\ETX~\b\DC1\n\+ \\157\SOH\n\+ \\EOT\EOT\NUL\STX\NUL\DC2\EOT\130\SOH\STX\DC4\SUB\142\SOH Represents seconds of UTC time since Unix epoch\n\+ \ 1970-01-01T00:00:00Z. Must be from 0001-01-01T00:00:00Z to\n\+ \ 9999-12-31T23:59:59Z inclusive.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\EOT\130\SOH\STX\a\n\+ \\r\n\+ \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\EOT\130\SOH\b\SI\n\+ \\r\n\+ \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\EOT\130\SOH\DC2\DC3\n\+ \\229\SOH\n\+ \\EOT\EOT\NUL\STX\SOH\DC2\EOT\136\SOH\STX\DC2\SUB\214\SOH Non-negative fractions of a second at nanosecond resolution. Negative\n\+ \ second values with fractions must still have non-negative nanos values\n\+ \ that count forward in time. Must be from 0 to 999,999,999\n\+ \ inclusive.\n\+ \\n\+ \\r\n\+ \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\EOT\136\SOH\STX\a\n\+ \\r\n\+ \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\EOT\136\SOH\b\r\n\+ \\r\n\+ \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\EOT\136\SOH\DLE\DC1b\ACKproto3"
gen/Proto/Google/Protobuf/Timestamp_Fields.hs view
@@ -1,63 +1,39 @@ {- This file was auto-generated from google/protobuf/timestamp.proto by the proto-lens-protoc program. -}-{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,- UndecidableInstances, GeneralizedNewtypeDeriving,- MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,- PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds,- BangPatterns, TypeApplications #-}-{-# OPTIONS_GHC -fno-warn-unused-imports#-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+{-# 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.Google.Protobuf.Timestamp_Fields where 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.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.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.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- nanos ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "nanos" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "nanos" a) =>+ Lens.Family2.LensLike' f s a nanos = Data.ProtoLens.Field.field @"nanos" seconds ::- forall f s a .- (Prelude.Functor f, Data.ProtoLens.Field.HasField s "seconds" a) =>- Lens.Family2.LensLike' f s a+ forall f s a.+ (Prelude.Functor f, Data.ProtoLens.Field.HasField s "seconds" a) =>+ Lens.Family2.LensLike' f s a seconds = Data.ProtoLens.Field.field @"seconds"
lightstep-haskell.cabal view
@@ -1,7 +1,7 @@ cabal-version: 2.4 name: lightstep-haskell-version: 0.10.3+version: 0.10.4 synopsis: LightStep OpenTracing client library description: LightStep OpenTracing client library. Uses GRPC transport via proto-lens. category: Tools@@ -84,7 +84,7 @@ , proto-lens >= 0.5.1.0 , proto-lens-protobuf-types >= 0.5.0.0 , proto-lens-runtime >= 0.5.0.0- , random+ , random >= 1.2 , exceptions , stm , text
src/LightStep/HighLevel/IO.hs view
@@ -150,43 +150,50 @@ withSingletonLightStep :: LightStepConfig -> IO () -> IO () withSingletonLightStep cfg action = do- client <- mkClient cfg- d_ $ "Connected to LightStep " <> lsHostName cfg <> ":" <> show (lsPort cfg)- doneVar <- newEmptyMVar- let work = do- d_ "Getting more spans"- sps <- atomically $ do- some_spans <- replicateM (lsMinimumBatchSize cfg) $ readTBQueue globalSharedMutableSingletonState- some_more_spans <- flushTBQueue globalSharedMutableSingletonState- pure (some_spans <> some_more_spans)- d_ $ "Got " <> show (length sps) <> " spans"- inc 1 sentBatchesCountVar- reportSpansRes <- try (reportSpans client sps)- case reportSpansRes of- Right () ->- d_ $ "Reported " <> show (length sps) <> " spans"- Left (err :: SomeException) ->- d_ $ "Error while reporting spans: " <> show err- shutdown = do- d_ "Getting the last spans before shutdown"- sps <- atomically $ flushTBQueue globalSharedMutableSingletonState- when (not $ null sps) $ do- d_ $ "Got " <> show (length sps) <> " spans"- reportSpans client sps- d_ $ "Reported " <> show (length sps) <> " spans"- d_ "No more spans"- closeClient client- d_ "Client closed"- putMVar doneVar ()- race_ action $ do- tid <- myThreadId- labelThread tid "LightStep reporter"- fix $ \loop -> do- work- loop- race_- shutdown- (waitUntilDone (lsGracefulShutdownTimeoutSeconds cfg) doneVar)+ clientOrError <- try (mkClient cfg)+ case clientOrError of+ Left (err :: IOError) -> do+ d_ $ "Not connected to LightStep " <> lsHostName cfg <> ":" <> show (lsPort cfg)+ d_ $ "Reason: " <> show err+ d_ $ "Continuing without tracing"+ action+ Right client -> do+ d_ $ "Connected to LightStep " <> lsHostName cfg <> ":" <> show (lsPort cfg)+ doneVar <- newEmptyMVar+ let work = do+ d_ "Getting more spans"+ sps <- atomically $ do+ some_spans <- replicateM (lsMinimumBatchSize cfg) $ readTBQueue globalSharedMutableSingletonState+ some_more_spans <- flushTBQueue globalSharedMutableSingletonState+ pure (some_spans <> some_more_spans)+ d_ $ "Got " <> show (length sps) <> " spans"+ inc 1 sentBatchesCountVar+ reportSpansRes <- try (reportSpans client sps)+ case reportSpansRes of+ Right () ->+ d_ $ "Reported " <> show (length sps) <> " spans"+ Left (err :: SomeException) ->+ d_ $ "Error while reporting spans: " <> show err+ shutdown = do+ d_ "Getting the last spans before shutdown"+ sps <- atomically $ flushTBQueue globalSharedMutableSingletonState+ when (not $ null sps) $ do+ d_ $ "Got " <> show (length sps) <> " spans"+ reportSpans client sps+ d_ $ "Reported " <> show (length sps) <> " spans"+ d_ "No more spans"+ closeClient client+ d_ "Client closed"+ putMVar doneVar ()+ race_ action $ do+ tid <- myThreadId+ labelThread tid "LightStep reporter"+ fix $ \loop -> do+ work+ loop+ race_+ shutdown+ (waitUntilDone (lsGracefulShutdownTimeoutSeconds cfg) doneVar) submitSpan :: Span -> IO () submitSpan sp = do
stress-test/Main.hs view
@@ -49,8 +49,8 @@ let GCDetails {..} = gc printf "max_live_bytes %d\n" max_live_bytes printf "gcdetails_live_bytes %d\n" gcdetails_live_bytes- when (max_live_bytes > 10_000_000) $ do- putStrLn "Ate too much memory"+ when (max_live_bytes > 20_000_000) $ do+ printf "Ate too much memory: %d\n" max_live_bytes exitFailure main :: IO ()