diff --git a/gen/Proto/Collector.hs b/gen/Proto/Collector.hs deleted file mode 100644 --- a/gen/Proto/Collector.hs +++ /dev/null @@ -1,3433 +0,0 @@ -{- 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 diff --git a/gen/Proto/Collector_Fields.hs b/gen/Proto/Collector_Fields.hs deleted file mode 100644 --- a/gen/Proto/Collector_Fields.hs +++ /dev/null @@ -1,421 +0,0 @@ -{- 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" diff --git a/gen/Proto/Google/Api/Annotations.hs b/gen/Proto/Google/Api/Annotations.hs deleted file mode 100644 --- a/gen/Proto/Google/Api/Annotations.hs +++ /dev/null @@ -1,58 +0,0 @@ -{- 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 diff --git a/gen/Proto/Google/Api/Http.hs b/gen/Proto/Google/Api/Http.hs deleted file mode 100644 --- a/gen/Proto/Google/Api/Http.hs +++ /dev/null @@ -1,981 +0,0 @@ -{- 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) diff --git a/gen/Proto/Google/Protobuf/Timestamp.hs b/gen/Proto/Google/Protobuf/Timestamp.hs deleted file mode 100644 --- a/gen/Proto/Google/Protobuf/Timestamp.hs +++ /dev/null @@ -1,183 +0,0 @@ -{- 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__) (())))) diff --git a/gen/Proto/Google/Protobuf/Timestamp_Fields.hs b/gen/Proto/Google/Protobuf/Timestamp_Fields.hs deleted file mode 100644 --- a/gen/Proto/Google/Protobuf/Timestamp_Fields.hs +++ /dev/null @@ -1,63 +0,0 @@ -{- 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" diff --git a/just-some-usage-code-that-must-compile/SomeUsageOfImplicitApi.hs b/just-some-usage-code-that-must-compile/SomeUsageOfImplicitApi.hs --- a/just-some-usage-code-that-must-compile/SomeUsageOfImplicitApi.hs +++ b/just-some-usage-code-that-must-compile/SomeUsageOfImplicitApi.hs @@ -35,12 +35,12 @@ -- TODO: JSON values - addEvent "rpc roundtrip begin" + addEvent "log" "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" + addEvent "log" "enough synergies leveraged" + addEvent "log" "All your base are belong to us" + addEvent "log" "rpc roundtrip end" withSpan "project" $ do -- Connecting spans across threads requires some manual plumbing sp <- getCurrentActiveSpan diff --git a/opentelemetry-lightstep.cabal b/opentelemetry-lightstep.cabal --- a/opentelemetry-lightstep.cabal +++ b/opentelemetry-lightstep.cabal @@ -2,7 +2,7 @@ name: opentelemetry-lightstep description: The OpenTelemetry Haskell Client (LightStep exporter) https://opentelemetry.io category: OpenTelemetry -version: 0.0.0.0 +version: 0.1.0 license-file: LICENSE license: Apache-2.0 author: Dmitry Ivanov @@ -44,36 +44,26 @@ library import: options - autogen-modules: - Paths_opentelemetry_lightstep build-depends: base >= 4.12 && < 5, - opentelemetry, + aeson, + async, + bytestring, exceptions, - http2-client, - http2, + http-client, + http-client-tls, + http-types, network, + opentelemetry, + scientific, + stm, 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 + unordered-containers + hs-source-dirs: src exposed-modules: + OpenTelemetry.LightStep 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 + OpenTelemetry.LightStep.ZipkinExporter test-suite just-some-usage-code-that-must-compile import: options @@ -87,4 +77,3 @@ async, opentelemetry, opentelemetry-lightstep - diff --git a/src/OpenTelemetry/LightStep.hs b/src/OpenTelemetry/LightStep.hs new file mode 100644 --- /dev/null +++ b/src/OpenTelemetry/LightStep.hs @@ -0,0 +1,21 @@ +module OpenTelemetry.LightStep where + +import Control.Monad.Catch +import Control.Monad.IO.Class +import OpenTelemetry.Common +import OpenTelemetry.Implicit +import OpenTelemetry.LightStep.Config +import OpenTelemetry.LightStep.ZipkinExporter +import System.IO + +withEnvConfigLightStepOpenTelemetry :: (MonadIO m, MonadMask m) => m a -> m a +withEnvConfigLightStepOpenTelemetry action = do + mcfg <- getEnvConfig + case mcfg of + Just cfg -> do + exporter <- createLightStepSpanExporter cfg + let otelConfig = OpenTelemetryConfig {otcSpanExporter = exporter} + withOpenTelemetry otelConfig action + Nothing -> do + liftIO $ hPutStrLn stderr "Warning: LightStep exporter is not configured" + action diff --git a/src/OpenTelemetry/LightStep/Config.hs b/src/OpenTelemetry/LightStep/Config.hs --- a/src/OpenTelemetry/LightStep/Config.hs +++ b/src/OpenTelemetry/LightStep/Config.hs @@ -17,7 +17,8 @@ lsToken :: T.Text, lsServiceName :: T.Text, lsGlobalTags :: [(T.Text, T.Text)], - lsGracefulShutdownTimeoutSeconds :: Int + lsGracefulShutdownTimeoutSeconds :: Word, + lsSpanQueueSize :: Word } lookupOneOfEnvs :: [String] -> IO (Maybe String) @@ -32,14 +33,15 @@ getEnvConfig :: MonadIO m => m (Maybe LightStepConfig) getEnvConfig = liftIO $ do + prog_name <- getProgName 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 + service <- fromMaybe prog_name <$> lookupOneOfEnvs ["LIGHTSTEP_SERVICE", "OPENTRACING_LIGHTSTEP_COMPONENT_NAME"] + pure $ Just $ LightStepConfig host port (T.pack t) (T.pack service) global_tags 5 4096 Nothing -> do hPutStrLn stderr "LIGHTSTEP_ACCESS_TOKEN environment variable not defined" pure Nothing diff --git a/src/OpenTelemetry/LightStep/Exporter.hs b/src/OpenTelemetry/LightStep/Exporter.hs deleted file mode 100644 --- a/src/OpenTelemetry/LightStep/Exporter.hs +++ /dev/null @@ -1,161 +0,0 @@ -{-# 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 diff --git a/src/OpenTelemetry/LightStep/ZipkinExporter.hs b/src/OpenTelemetry/LightStep/ZipkinExporter.hs new file mode 100644 --- /dev/null +++ b/src/OpenTelemetry/LightStep/ZipkinExporter.hs @@ -0,0 +1,181 @@ +{-# LANGUAGE OverloadedStrings #-} + +module OpenTelemetry.LightStep.ZipkinExporter where + +-- Zipkin V2 protocol spec: https://github.com/openzipkin/zipkin-api/blob/master/zipkin2-api.yaml + +import Control.Concurrent.Async +import Control.Concurrent.STM +import Control.Monad.IO.Class +import Data.Aeson +import qualified Data.HashMap.Strict as HM +import Data.Scientific +import qualified Data.Text as T +import Network.HTTP.Client +import Network.HTTP.Client.TLS +import Network.HTTP.Types +import OpenTelemetry.Common +import OpenTelemetry.Debug +import OpenTelemetry.LightStep.Config +import System.IO.Unsafe +import Text.Printf + +data ZipkinSpan + = ZipkinSpan + { zsConfig :: LightStepConfig, + zsSpan :: Span + } + +tagValue2text :: TagValue -> T.Text +tagValue2text tv = case tv of + (StringTagValue s) -> s + (BoolTagValue b) -> if b then "true" else "false" + (IntTagValue i) -> T.pack $ show i + (DoubleTagValue d) -> T.pack $ show (fromFloatDigits d) + +instance ToJSON ZipkinSpan where + + -- FIXME(divanov): deduplicate + toJSON (ZipkinSpan LightStepConfig {..} s@(Span {..})) = + let TId tid = spanTraceId s + SId sid = spanId s + ts = spanStartedAt `div` 1000 + duration = (spanFinishedAt - spanStartedAt) `div` 1000 + in object $ + [ "name" .= spanOperation, + "traceId" .= T.pack (printf "%016x" tid), + "id" .= T.pack (printf "%016x" sid), + "timestamp" .= ts, + "duration" .= duration, + "tags" + .= object + ( [ "lightstep.access_token" .= lsToken, + "lightstep.component_name" .= lsServiceName + ] + <> [k .= v | (k, v) <- lsGlobalTags] + <> [k .= tagValue2text v | (k, v) <- HM.toList spanTags] + ), + "annotations" + .= [ object ["timestamp" .= (t `div` 1000), "value" .= v] + | SpanEvent t _ v <- spanEvents + ] + ] + <> (maybe [] (\(SId psid) -> ["parentId" .= psid]) spanParentId) + + toEncoding (ZipkinSpan LightStepConfig {..} s@(Span {..})) = + let TId tid = spanTraceId s + SId sid = spanId s + ts = spanStartedAt `div` 1000 + duration = (spanFinishedAt - spanStartedAt) `div` 1000 + in pairs + ( "name" .= spanOperation + <> "traceId" .= T.pack (printf "%016x" tid) + <> "id" .= T.pack (printf "%016x" sid) + <> "timestamp" .= ts + <> "duration" .= duration + <> "tags" + .= object + ( [ "lightstep.access_token" .= lsToken, + "lightstep.component_name" .= lsServiceName + ] + <> [k .= v | (k, v) <- lsGlobalTags] + <> [k .= tagValue2text v | (k, v) <- HM.toList spanTags] + ) + <> ( maybe + mempty + (\(SId psid) -> "parentId" .= T.pack (printf "%016x" psid)) + spanParentId + ) + <> "annotations" + .= [ object ["timestamp" .= (t `div` 1000), "value" .= v] + | SpanEvent t _ v <- spanEvents + ] + ) + +data LightStepClient + = LightStepClient + { lscConfig :: LightStepConfig, + lscSenderThread :: Async (), + lscSenderQueue :: TBQueue Span, + lscShutdownVar :: TVar Bool + } + +createLightStepSpanExporter :: MonadIO m => LightStepConfig -> m (Exporter Span) +createLightStepSpanExporter cfg = liftIO do + client <- mkClient cfg + pure + $! Exporter + ( \sps -> do + let q = lscSenderQueue client + atomically $ do + q_population <- fromIntegral <$> lengthTBQueue q + let q_vacancy = fromIntegral (lsSpanQueueSize (lscConfig client) - q_population) + modifyTVar droppedSpanCountVar (\x -> x + length sps - q_vacancy) + mapM_ + (writeTBQueue q) + (take q_vacancy sps) + pure ExportSuccess + ) + ( do + atomically $ + writeTVar (lscShutdownVar client) True + wait (lscSenderThread client) + ) + +mkClient :: LightStepConfig -> IO LightStepClient +mkClient cfg@(LightStepConfig {..}) = do + let endpoint = printf "https://%s:%d/api/v2/spans" lsHostName (fromIntegral lsPort :: Int) + manager <- newManager tlsManagerSettings + q <- newTBQueueIO (fromIntegral lsSpanQueueSize) + shutdown_var <- newTVarIO False + sender <- async $ do + let loop = do + (must_shutdown, sps) <- atomically $ do + must_shutdown <- readTVar shutdown_var + sps <- flushTBQueue q + case (must_shutdown, sps) of + (False, []) -> retry + _ -> pure (must_shutdown, sps) + case sps of + [] -> pure () + _ -> reportSpans endpoint manager cfg sps + dd_ "must_shutdown" must_shutdown + case must_shutdown of + True -> pure () + False -> loop + loop + pure $! LightStepClient cfg sender q shutdown_var + +reportSpans :: String -> Manager -> LightStepConfig -> [Span] -> IO () +reportSpans endpoint httpManager cfg sps = do + dd_ "reportSpans" sps + let body = encode (map (ZipkinSpan cfg) sps) + request = + (parseRequest_ endpoint) + { method = "POST", + requestBody = RequestBodyLBS body, + requestHeaders = [("Content-Type", "application/json")] + } + resp <- httpLbs request httpManager + case statusCode (responseStatus resp) of + 200 -> do + inc 1 reportedSpanCountVar + pure () + _ -> do + -- TODO(divanov): handle failures + inc 1 rejectedSpanCountVar + dd_ "body" body + dd_ "resp status" $ responseStatus resp + dd_ "resp" $ responseBody resp + +droppedSpanCountVar :: TVar Int +droppedSpanCountVar = unsafePerformIO $ newTVarIO 0 +{-# NOINLINE droppedSpanCountVar #-} + +reportedSpanCountVar :: TVar Int +reportedSpanCountVar = unsafePerformIO $ newTVarIO 0 +{-# NOINLINE reportedSpanCountVar #-} + +rejectedSpanCountVar :: TVar Int +rejectedSpanCountVar = unsafePerformIO $ newTVarIO 0 +{-# NOINLINE rejectedSpanCountVar #-}