opentelemetry-lightstep (empty) → 0.0.0.0
raw patch · 12 files changed
+5499/−0 lines, 12 filesdep +asyncdep +basedep +exceptions
Dependencies added: async, base, exceptions, http-types, http2, http2-client, http2-client-grpc, http2-grpc-proto-lens, lens, mtl, network, opentelemetry, opentelemetry-lightstep, proto-lens, proto-lens-protobuf-types, proto-lens-runtime, text, unordered-containers
Files
- LICENSE +7/−0
- gen/Proto/Collector.hs +3433/−0
- gen/Proto/Collector_Fields.hs +421/−0
- gen/Proto/Google/Api/Annotations.hs +58/−0
- gen/Proto/Google/Api/Http.hs +981/−0
- gen/Proto/Google/Protobuf/Timestamp.hs +183/−0
- gen/Proto/Google/Protobuf/Timestamp_Fields.hs +63/−0
- just-some-usage-code-that-must-compile/Main.hs +2/−0
- just-some-usage-code-that-must-compile/SomeUsageOfImplicitApi.hs +55/−0
- opentelemetry-lightstep.cabal +90/−0
- src/OpenTelemetry/LightStep/Config.hs +45/−0
- src/OpenTelemetry/LightStep/Exporter.hs +161/−0
+ LICENSE view
@@ -0,0 +1,7 @@+Copyright 2020-present Dmitry Ivanov++Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at++http://www.apache.org/licenses/LICENSE-2.0++Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License.
+ gen/Proto/Collector.hs view
@@ -0,0 +1,3433 @@+{- 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
+ gen/Proto/Collector_Fields.hs view
@@ -0,0 +1,421 @@+{- 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_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.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++accessToken ::+ 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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+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+warnings = Data.ProtoLens.Field.field @"warnings"
+ gen/Proto/Google/Api/Annotations.hs view
@@ -0,0 +1,58 @@+{- 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+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.Http+import qualified Proto.Google.Protobuf.Descriptor
+ gen/Proto/Google/Api/Http.hs view
@@ -0,0 +1,981 @@+{- 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)
+ gen/Proto/Google/Protobuf/Timestamp.hs view
@@ -0,0 +1,183 @@+{- 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+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.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)+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+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)+ 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)+ 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))+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__) (()))))
+ gen/Proto/Google/Protobuf/Timestamp_Fields.hs view
@@ -0,0 +1,63 @@+{- 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_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.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++nanos ::+ 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+seconds = Data.ProtoLens.Field.field @"seconds"
+ just-some-usage-code-that-must-compile/Main.hs view
@@ -0,0 +1,2 @@+main :: IO ()+main = putStrLn "All done"
+ just-some-usage-code-that-must-compile/SomeUsageOfImplicitApi.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE TypeApplications #-}++module SomeUsageOfImplicitApi where++import Control.Concurrent+import Control.Concurrent.Async+import Control.Monad+import OpenTelemetry.Common+import OpenTelemetry.FileExporter+import OpenTelemetry.Implicit++main :: IO ()+main = do+ exporter <- createFileSpanExporter "helloworld.trace"+ let otConfig =+ OpenTelemetryConfig+ { otcSpanExporter = exporter+ }+ withOpenTelemetry otConfig $ do+ result <- pieceOfSeriousBusinessLogic 42+ print result++pieceOfSeriousBusinessLogic :: Int -> IO Int+pieceOfSeriousBusinessLogic input = withSpan "serious business" $ do+ let result = 2 * input+ -- setTag is value-polymorphic++ -- setTag "input" input -- Int (inferred)+ -- setTag @Int "result" result -- Int (explicit)+ -- setTag @String "seriousness" "serious" -- literals are polymorphic under OverloadedStrings so we need to annotate+ -- setTag @Double "profit" 99 -- numeric literals are also polymorphic+ -- setTag "error" False -- Bool literals are not polymorphic+ -- setTag @Int "largest integer below 100" 99 -- Int (inferred)++ -- TODO: JSON values++ addEvent "rpc roundtrip begin"+ withSpan "leveraging synergies" $ do+ threadDelay 10000+ addEvent "enough synergies leveraged"+ addEvent "All your base are belong to us"+ addEvent "rpc roundtrip end"+ withSpan "project" $ do+ -- Connecting spans across threads requires some manual plumbing+ sp <- getCurrentActiveSpan+ asyncWork <- async $ withChildSpanOf sp "data science" $ do+ threadDelay 1000000+ pure 42+ -- Doing a withSpan inside a loop is fine+ forM_ [input .. input + 10] $ \i -> withSpan "sprint" $ do+ -- setTag "week" i+ threadDelay 10000+ wait asyncWork+ pure result
+ opentelemetry-lightstep.cabal view
@@ -0,0 +1,90 @@+cabal-version: 2.4+name: opentelemetry-lightstep+description: The OpenTelemetry Haskell Client (LightStep exporter) https://opentelemetry.io+category: OpenTelemetry+version: 0.0.0.0+license-file: LICENSE+license: Apache-2.0+author: Dmitry Ivanov+maintainer: ethercrow@gmail.com+build-type: Simple++source-repository head+ type: git+ location: https://github.com/ethercrow/opentelemetry-haskell++common options+ default-language: Haskell2010+ default-extensions:+ BangPatterns+ BlockArguments+ DataKinds+ FlexibleInstances+ LambdaCase+ MultiParamTypeClasses+ MultiWayIf+ NamedFieldPuns+ NumericUnderscores+ RecordWildCards+ ScopedTypeVariables+ TupleSections+ TypeApplications+ ViewPatterns+ ghc-options:+ -Wall+ -Wcompat+ -Widentities+ -Wincomplete-record-updates+ -Wincomplete-uni-patterns+ -Wpartial-fields+ -Wredundant-constraints+ -fhide-source-paths+ -ferror-spans+ -freverse-errors++library+ import: options+ autogen-modules:+ Paths_opentelemetry_lightstep+ build-depends:+ base >= 4.12 && < 5,+ opentelemetry,+ exceptions,+ http2-client,+ http2,+ network,+ text,+ unordered-containers, http-types+ , http2-client >= 0.9.0.0+ , http2-client-grpc >= 0.8.0.0+ , http2-grpc-proto-lens >= 0.1.0.0+ , lens+ , mtl+ , proto-lens >= 0.5.1.0+ , proto-lens-protobuf-types >= 0.5.0.0+ , proto-lens-runtime >= 0.5.0.0+ hs-source-dirs: src, gen+ exposed-modules:+ OpenTelemetry.LightStep.Config+ OpenTelemetry.LightStep.Exporter+ Proto.Collector+ Proto.Collector_Fields+ Proto.Google.Api.Annotations+ Proto.Google.Api.Http+ Proto.Google.Protobuf.Timestamp+ Proto.Google.Protobuf.Timestamp_Fields+ Paths_opentelemetry_lightstep++test-suite just-some-usage-code-that-must-compile+ import: options+ type: exitcode-stdio-1.0+ main-is: Main.hs+ other-modules:+ SomeUsageOfImplicitApi+ hs-source-dirs: just-some-usage-code-that-must-compile+ build-depends:+ base,+ async,+ opentelemetry,+ opentelemetry-lightstep+
+ src/OpenTelemetry/LightStep/Config.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}++module OpenTelemetry.LightStep.Config where++import Control.Monad.IO.Class+import Data.Foldable+import Data.Maybe+import qualified Data.Text as T+import Network.Socket+import System.Environment+import System.IO++data LightStepConfig+ = LightStepConfig+ { lsHostName :: HostName,+ lsPort :: PortNumber,+ lsToken :: T.Text,+ lsServiceName :: T.Text,+ lsGlobalTags :: [(T.Text, T.Text)],+ lsGracefulShutdownTimeoutSeconds :: Int+ }++lookupOneOfEnvs :: [String] -> IO (Maybe String)+lookupOneOfEnvs names = asum <$> traverse lookupEnv names++getEnvTagsWithPrefix :: T.Text -> IO [(T.Text, T.Text)]+getEnvTagsWithPrefix prefix =+ mapMaybe unprefix <$> getEnvironment+ where+ unprefix ((T.stripPrefix prefix . T.pack) -> Just k, v) = Just (k, T.pack v)+ unprefix _ = Nothing++getEnvConfig :: MonadIO m => m (Maybe LightStepConfig)+getEnvConfig = liftIO $ do+ maybe_token_from_env <- lookupOneOfEnvs ["LIGHTSTEP_TOKEN", "LIGHTSTEP_ACCESS_TOKEN", "OPENTRACING_LIGHTSTEP_ACCESS_TOKEN"]+ global_tags <- getEnvTagsWithPrefix "OPENTRACING_TAG_"+ case maybe_token_from_env of+ Just t -> do+ host <- fromMaybe "ingest.lightstep.com" <$> lookupOneOfEnvs ["LIGHTSTEP_HOST", "OPENTRACING_LIGHTSTEP_COLLECTOR_HOST"]+ port <- maybe 443 read <$> lookupOneOfEnvs ["LIGHTSTEP_PORT", "OPENTRACING_LIGHTSTEP_COLLECTOR_PORT"]+ service <- fromMaybe "example-haskell-service" <$> lookupOneOfEnvs ["LIGHTSTEP_SERVICE", "OPENTRACING_LIGHTSTEP_COMPONENT_NAME"]+ pure $ Just $ LightStepConfig host port (T.pack t) (T.pack service) global_tags 5+ Nothing -> do+ hPutStrLn stderr "LIGHTSTEP_ACCESS_TOKEN environment variable not defined"+ pure Nothing
+ src/OpenTelemetry/LightStep/Exporter.hs view
@@ -0,0 +1,161 @@+{-# LANGUAGE OverloadedStrings #-}++module OpenTelemetry.LightStep.Exporter where++import Control.Concurrent.MVar+import Control.Lens+import Control.Monad.Catch+import Control.Monad.IO.Class+import Data.ProtoLens.Message (defMessage)+import qualified Data.Text as T+import Data.Version (showVersion)+import Network.GRPC.Client+import Network.GRPC.Client.Helpers+import Network.GRPC.HTTP2.ProtoLens+import Network.HTTP2.Client+import OpenTelemetry.Common+import OpenTelemetry.LightStep.Config+import Paths_opentelemetry_lightstep (version)+import qualified Proto.Collector as P+import Proto.Collector_Fields hiding (spanContext, spanId)+import qualified Proto.Collector_Fields as P+import Proto.Google.Protobuf.Timestamp_Fields+import System.Timeout++data LightStepClient+ = LightStepClient+ { lscGrpcVar :: MVar GrpcClient,+ lscReporter :: P.Reporter,+ lscConfig :: LightStepConfig+ }++d_ :: String -> IO ()+d_ = putStrLn++createLightStepExporter :: LightStepConfig -> IO (Exporter Span)+createLightStepExporter cfg = do+ client <- mkClient cfg+ pure+ $! Exporter+ ( \sps -> do+ reportSpans client sps+ pure ExportSuccess+ )+ ( do+ _ <- closeClient client+ pure ()+ )++mkClient :: LightStepConfig -> IO LightStepClient+mkClient lscConfig@(LightStepConfig {..}) = do+ grpc <- makeGrpcClient lscConfig+ lscGrpcVar <- newMVar grpc+ let lscReporter =+ defMessage+ & reporterId .~ 2+ & tags+ .~ ( [ defMessage & key .~ "lightstep.component_name" & stringValue .~ lsServiceName,+ defMessage & key .~ "lightstep.tracer_platform" & stringValue .~ "haskell",+ defMessage & key .~ "lightstep.tracer_version" & stringValue .~ (T.pack $ showVersion version)+ ]+ <> [ defMessage & key .~ k & stringValue .~ v+ | (k, v) <- lsGlobalTags+ ]+ )+ pure LightStepClient {..}++convertSpan :: Span -> P.Span+convertSpan s@(Span {..}) =+ defMessage+ & operationName .~ spanOperation+ & startTimestamp+ .~ ( defMessage+ & seconds .~ fromIntegral (spanStartedAt `div` 1_000_000_000)+ & nanos .~ fromIntegral (rem spanStartedAt 1_000_000_000)+ )+ & P.spanContext+ .~ ( defMessage+ & traceId .~ tid+ & P.spanId .~ sid+ )+ where+ TId tid = (spanTraceId s)+ SId sid = spanId s++closeClient :: LightStepClient -> IO (Either ClientError ())+closeClient LightStepClient {..} = readMVar lscGrpcVar >>= runExceptT . close++reportSpans :: LightStepClient -> [Span] -> IO ()+reportSpans client@(LightStepClient {..}) (map convertSpan -> sps) = do+ let LightStepConfig {..} = lscConfig+ let tryOnce = do+ let req ::+ IO+ ( Maybe+ ( Either+ ClientError+ (Either TooMuchConcurrency (RawReply P.ReportResponse))+ )+ )+ req =+ timeout 3_000_000 $ do+ grpc <- readMVar lscGrpcVar+ runExceptT $ do+ rawUnary+ (RPC :: RPC P.CollectorService "report")+ grpc+ ( defMessage+ & auth .~ (defMessage & accessToken .~ lsToken)+ & spans .~ sps+ & reporter .~ lscReporter+ )+ fst+ <$> generalBracket+ (pure ())+ ( \_ -> \case+ ExitCaseException err -> do+ d_ $ "reportSpans failed: " <> show (err :: SomeException)+ ExitCaseAbort -> do+ d_ $ "reportSpans aborted"+ ExitCaseSuccess _ -> pure ()+ )+ (\_ -> req)+ ret <- tryOnce+ ret2 <- case ret of+ Nothing -> do+ d_ "GRPC client is stuck, trying to reconnect"+ reconnectClient client+ -- one retry after reconnect+ tryOnce+ _ -> pure ret+ case ret2 of+ Nothing -> pure ()+ _ -> pure ()+ -- d_ $ show ret2+ pure ()++reconnectClient :: LightStepClient -> IO ()+reconnectClient LightStepClient {..} = do+ d_ "reconnectClient begin"+ -- inc 1 reconnectCountVar+ newGrpc <- makeGrpcClient lscConfig+ oldGrpc <- swapMVar lscGrpcVar newGrpc+ _ <- runExceptT $ close oldGrpc+ d_ "reconnectClient end"++makeGrpcClient :: LightStepConfig -> IO GrpcClient+makeGrpcClient LightStepConfig {..} = do+ newGrpcOrError <-+ runExceptT $+ setupGrpcClient+ ( (grpcClientConfigSimple lsHostName lsPort True)+ { _grpcClientConfigCompression = compression,+ _grpcClientConfigTimeout = Timeout 5, -- seconds+ _grpcClientConfigGoAwayHandler = \_ -> liftIO $ putStrLn "GoAway handler fired"+ }+ )+ case newGrpcOrError of+ Right newGrpc -> pure newGrpc+ Left err -> throwM err+ where+ compression = if False then gzip else uncompressed