diff --git a/api/src/OpenTelemetry/Trace/Core.hs b/api/src/OpenTelemetry/Trace/Core.hs index f5f7d2c3..07af4af3 100644 --- a/api/src/OpenTelemetry/Trace/Core.hs +++ b/api/src/OpenTelemetry/Trace/Core.hs @@ -276,7 +276,7 @@ createSpanWithoutCallStack t ctxt n args@SpanArguments {..} = liftIO $ do (H.unions [additionalInfo, attrs, attributes]) , spanLinks = let limitedLinks = fromMaybe 128 (linkCountLimit $ tracerProviderSpanLimits $ tracerProvider t) - in frozenBoundedCollection limitedLinks $ fmap freezeLink links + in frozenBoundedCollection limitedLinks $ fmap freezeLink links , spanEvents = emptyAppendOnlyBoundedCollection $ fromMaybe 128 (eventCountLimit $ tracerProviderSpanLimits $ tracerProvider t) , spanStatus = Unset , spanStart = st @@ -316,13 +316,14 @@ callerAttributes = case getCallStack callStack of srcAttributes :: (String, SrcLoc) -> H.HashMap Text Attribute -srcAttributes (fn, loc) = H.fromList - [ ("code.function", toAttribute $ T.pack fn) - , ("code.namespace", toAttribute $ T.pack $ srcLocModule loc) - , ("code.filepath", toAttribute $ T.pack $ srcLocFile loc) - , ("code.lineno", toAttribute $ srcLocStartLine loc) - , ("code.package", toAttribute $ T.pack $ srcLocPackage loc) - ] +srcAttributes (fn, loc) = + H.fromList + [ ("code.function", toAttribute $ T.pack fn) + , ("code.namespace", toAttribute $ T.pack $ srcLocModule loc) + , ("code.filepath", toAttribute $ T.pack $ srcLocFile loc) + , ("code.lineno", toAttribute $ srcLocStartLine loc) + , ("code.package", toAttribute $ T.pack $ srcLocPackage loc) + ] {- | Attributes are added to the end of the span argument list, so will be discarded @@ -555,7 +556,7 @@ endSpan (Span s) mts = liftIO $ do ts <- maybe getTimestamp pure mts (alreadyFinished, frozenS) <- atomicModifyIORef' s $ \(!i) -> let ref = i {spanEnd = spanEnd i <|> Just ts} - in (ref, (isJust $ spanEnd i, ref)) + in (ref, (isJust $ spanEnd i, ref)) unless alreadyFinished $ do eResult <- try $ mapM_ (`processorOnEnd` s) $ tracerProviderProcessors $ tracerProvider $ spanTracer frozenS case eResult of diff --git a/api/src/OpenTelemetry/Util.hs b/api/src/OpenTelemetry/Util.hs index d6b04ce2..91e774df 100644 --- a/api/src/OpenTelemetry/Util.hs +++ b/api/src/OpenTelemetry/Util.hs @@ -103,14 +103,14 @@ data AppendOnlyBoundedCollection a = AppendOnlyBoundedCollection instance forall a. (Show a) => Show (AppendOnlyBoundedCollection a) where showsPrec d AppendOnlyBoundedCollection {collection = c, maxSize = m, dropped = r} = let vec = Builder.build c :: V.Vector a - in showParen (d > 10) $ - showString "AppendOnlyBoundedCollection {collection = " - . shows vec - . showString ", maxSize = " - . shows m - . showString ", dropped = " - . shows r - . showString "}" + in showParen (d > 10) $ + showString "AppendOnlyBoundedCollection {collection = " + . shows vec + . showString ", maxSize = " + . shows m + . showString ", dropped = " + . shows r + . showString "}" -- | Initialize a bounded collection that admits a maximum size diff --git a/exporters/otlp/src/OpenTelemetry/Exporter/OTLP.hs b/exporters/otlp/src/OpenTelemetry/Exporter/OTLP.hs index 3f476f8e..f3939dea 100644 --- a/exporters/otlp/src/OpenTelemetry/Exporter/OTLP.hs +++ b/exporters/otlp/src/OpenTelemetry/Exporter/OTLP.hs @@ -1,9 +1,9 @@ {-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE NumericUnderscores #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} ----------------------------------------------------------------------------- @@ -283,13 +283,13 @@ otlpExporter conf = do Left err@(HttpExceptionRequest req e) | HTTPClient.host req == "localhost" , HTTPClient.port req == 4317 || HTTPClient.port req == 4318 - , ConnectionFailure _someExn <- e - -> do - pure $ Failure Nothing + , ConnectionFailure _someExn <- e -> + do + pure $ Failure Nothing | otherwise -> - if isRetryableException e - then exponentialBackoff - else pure $ Failure $ Just $ SomeException err + if isRetryableException e + then exponentialBackoff + else pure $ Failure $ Just $ SomeException err Left err -> do pure $ Failure $ Just $ SomeException err Right resp -> diff --git a/instrumentation/conduit/src/OpenTelemetry/Instrumentation/Conduit.hs b/instrumentation/conduit/src/OpenTelemetry/Instrumentation/Conduit.hs index d8e91998..b075805e 100644 --- a/instrumentation/conduit/src/OpenTelemetry/Instrumentation/Conduit.hs +++ b/instrumentation/conduit/src/OpenTelemetry/Instrumentation/Conduit.hs @@ -1,5 +1,5 @@ -{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedLists #-} +{-# LANGUAGE OverloadedStrings #-} module OpenTelemetry.Instrumentation.Conduit where diff --git a/instrumentation/persistent/src/OpenTelemetry/Instrumentation/Persistent.hs b/instrumentation/persistent/src/OpenTelemetry/Instrumentation/Persistent.hs index 0e883b93..5f30c813 100644 --- a/instrumentation/persistent/src/OpenTelemetry/Instrumentation/Persistent.hs +++ b/instrumentation/persistent/src/OpenTelemetry/Instrumentation/Persistent.hs @@ -13,8 +13,8 @@ import Control.Monad import Control.Monad.IO.Class import Control.Monad.Reader import Data.Acquire.Internal -import Data.IORef import qualified Data.HashMap.Strict as H +import Data.IORef import Data.Maybe (fromMaybe) import Data.Text (Text) import qualified Data.Text as T @@ -75,12 +75,12 @@ connectionLevelAttributesKey = unsafePerformIO Vault.newKey {- | Wrap a 'SqlBackend' with appropriate tracing context and attributes so that queries are tracked appropriately in the tracing hierarchy. -} -wrapSqlBackend :: - MonadIO m => - -- | Attributes that are specific to providers like MySQL, PostgreSQL, etc. - H.HashMap Text Attribute -> - SqlBackend -> - m SqlBackend +wrapSqlBackend + :: MonadIO m + => H.HashMap Text Attribute + -- ^ Attributes that are specific to providers like MySQL, PostgreSQL, etc. + -> SqlBackend + -> m SqlBackend wrapSqlBackend attrs conn_ = do tp <- getGlobalTracerProvider wrapSqlBackend' tp attrs conn_ @@ -89,12 +89,13 @@ wrapSqlBackend attrs conn_ = do {- | Wrap a 'SqlBackend' with appropriate tracing context and attributes so that queries are tracked appropriately in the tracing hierarchy. -} -wrapSqlBackend' :: MonadIO m => - TracerProvider -> - -- | Attributes that are specific to providers like MySQL, PostgreSQL, etc. - H.HashMap Text Attribute -> - SqlBackend -> - m SqlBackend +wrapSqlBackend' + :: MonadIO m + => TracerProvider + -> H.HashMap Text Attribute + -- ^ Attributes that are specific to providers like MySQL, PostgreSQL, etc. + -> SqlBackend + -> m SqlBackend wrapSqlBackend' tp attrs conn_ = do let conn = Data.Maybe.fromMaybe conn_ (lookupOriginalConnection conn_) {- A connection is acquired when the connection pool is asked for a connection. The runSqlPool function in Persistent then diff --git a/otlp/src/Proto/Opentelemetry/Proto/Collector/Logs/V1/LogsService.hs b/otlp/src/Proto/Opentelemetry/Proto/Collector/Logs/V1/LogsService.hs index 04adeafa..fed554fd 100644 --- a/otlp/src/Proto/Opentelemetry/Proto/Collector/Logs/V1/LogsService.hs +++ b/otlp/src/Proto/Opentelemetry/Proto/Collector/Logs/V1/LogsService.hs @@ -132,8 +132,8 @@ instance Data.ProtoLens.Message ExportLogsServiceRequest where (Data.ProtoLens.Field.field @"resourceLogs") ) :: Data.ProtoLens.FieldDescriptor ExportLogsServiceRequest - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, resourceLogs__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, resourceLogs__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ExportLogsServiceRequest'_unknownFields @@ -159,14 +159,14 @@ instance Data.ProtoLens.Message ExportLogsServiceRequest where mutable'resourceLogs ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -211,14 +211,14 @@ instance Data.ProtoLens.Message ExportLogsServiceRequest where x ) mutable'resourceLogs - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'resourceLogs <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'resourceLogs - ) - "ExportLogsServiceRequest" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'resourceLogs <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'resourceLogs + ) + "ExportLogsServiceRequest" buildMessage = \_x -> (Data.Monoid.<>) @@ -303,14 +303,14 @@ instance Data.ProtoLens.Message ExportLogsServiceResponse where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -332,9 +332,9 @@ instance Data.ProtoLens.Message ExportLogsServiceResponse where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "ExportLogsServiceResponse" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "ExportLogsServiceResponse" buildMessage = \_x -> Data.ProtoLens.Encoding.Wire.buildFieldSet diff --git a/otlp/src/Proto/Opentelemetry/Proto/Collector/Metrics/V1/MetricsService.hs b/otlp/src/Proto/Opentelemetry/Proto/Collector/Metrics/V1/MetricsService.hs index e7db3862..d15fdd1c 100644 --- a/otlp/src/Proto/Opentelemetry/Proto/Collector/Metrics/V1/MetricsService.hs +++ b/otlp/src/Proto/Opentelemetry/Proto/Collector/Metrics/V1/MetricsService.hs @@ -136,8 +136,8 @@ instance Data.ProtoLens.Message ExportMetricsServiceRequest where (Data.ProtoLens.Field.field @"resourceMetrics") ) :: Data.ProtoLens.FieldDescriptor ExportMetricsServiceRequest - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, resourceMetrics__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, resourceMetrics__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ExportMetricsServiceRequest'_unknownFields @@ -165,14 +165,14 @@ instance Data.ProtoLens.Message ExportMetricsServiceRequest where mutable'resourceMetrics ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -217,14 +217,14 @@ instance Data.ProtoLens.Message ExportMetricsServiceRequest where x ) mutable'resourceMetrics - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'resourceMetrics <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'resourceMetrics - ) - "ExportMetricsServiceRequest" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'resourceMetrics <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'resourceMetrics + ) + "ExportMetricsServiceRequest" buildMessage = \_x -> (Data.Monoid.<>) @@ -309,14 +309,14 @@ instance Data.ProtoLens.Message ExportMetricsServiceResponse where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -338,9 +338,9 @@ instance Data.ProtoLens.Message ExportMetricsServiceResponse where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "ExportMetricsServiceResponse" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "ExportMetricsServiceResponse" buildMessage = \_x -> Data.ProtoLens.Encoding.Wire.buildFieldSet diff --git a/otlp/src/Proto/Opentelemetry/Proto/Collector/Trace/V1/TraceService.hs b/otlp/src/Proto/Opentelemetry/Proto/Collector/Trace/V1/TraceService.hs index c3012b22..98a023d7 100644 --- a/otlp/src/Proto/Opentelemetry/Proto/Collector/Trace/V1/TraceService.hs +++ b/otlp/src/Proto/Opentelemetry/Proto/Collector/Trace/V1/TraceService.hs @@ -136,8 +136,8 @@ instance Data.ProtoLens.Message ExportTraceServiceRequest where (Data.ProtoLens.Field.field @"resourceSpans") ) :: Data.ProtoLens.FieldDescriptor ExportTraceServiceRequest - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, resourceSpans__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, resourceSpans__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ExportTraceServiceRequest'_unknownFields @@ -165,14 +165,14 @@ instance Data.ProtoLens.Message ExportTraceServiceRequest where mutable'resourceSpans ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -217,14 +217,14 @@ instance Data.ProtoLens.Message ExportTraceServiceRequest where x ) mutable'resourceSpans - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'resourceSpans <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'resourceSpans - ) - "ExportTraceServiceRequest" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'resourceSpans <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'resourceSpans + ) + "ExportTraceServiceRequest" buildMessage = \_x -> (Data.Monoid.<>) @@ -309,14 +309,14 @@ instance Data.ProtoLens.Message ExportTraceServiceResponse where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -338,9 +338,9 @@ instance Data.ProtoLens.Message ExportTraceServiceResponse where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "ExportTraceServiceResponse" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "ExportTraceServiceResponse" buildMessage = \_x -> Data.ProtoLens.Encoding.Wire.buildFieldSet diff --git a/otlp/src/Proto/Opentelemetry/Proto/Common/V1/Common.hs b/otlp/src/Proto/Opentelemetry/Proto/Common/V1/Common.hs index b88f9be2..771bc6c1 100644 --- a/otlp/src/Proto/Opentelemetry/Proto/Common/V1/Common.hs +++ b/otlp/src/Proto/Opentelemetry/Proto/Common/V1/Common.hs @@ -480,15 +480,15 @@ instance Data.ProtoLens.Message AnyValue where (Data.ProtoLens.Field.field @"maybe'bytesValue") ) :: Data.ProtoLens.FieldDescriptor AnyValue - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, stringValue__field_descriptor) - , (Data.ProtoLens.Tag 2, boolValue__field_descriptor) - , (Data.ProtoLens.Tag 3, intValue__field_descriptor) - , (Data.ProtoLens.Tag 4, doubleValue__field_descriptor) - , (Data.ProtoLens.Tag 5, arrayValue__field_descriptor) - , (Data.ProtoLens.Tag 6, kvlistValue__field_descriptor) - , (Data.ProtoLens.Tag 7, bytesValue__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, stringValue__field_descriptor) + , (Data.ProtoLens.Tag 2, boolValue__field_descriptor) + , (Data.ProtoLens.Tag 3, intValue__field_descriptor) + , (Data.ProtoLens.Tag 4, doubleValue__field_descriptor) + , (Data.ProtoLens.Tag 5, arrayValue__field_descriptor) + , (Data.ProtoLens.Tag 6, kvlistValue__field_descriptor) + , (Data.ProtoLens.Tag 7, bytesValue__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _AnyValue'_unknownFields @@ -506,14 +506,14 @@ instance Data.ProtoLens.Message AnyValue where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -625,9 +625,9 @@ instance Data.ProtoLens.Message AnyValue where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "AnyValue" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "AnyValue" buildMessage = \_x -> (Data.Monoid.<>) @@ -885,8 +885,8 @@ instance Data.ProtoLens.Message ArrayValue where (Data.ProtoLens.Field.field @"values") ) :: Data.ProtoLens.FieldDescriptor ArrayValue - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, values__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, values__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ArrayValue'_unknownFields @@ -912,14 +912,14 @@ instance Data.ProtoLens.Message ArrayValue where mutable'values ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -961,14 +961,14 @@ instance Data.ProtoLens.Message ArrayValue where x ) mutable'values - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'values <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'values - ) - "ArrayValue" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'values <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'values + ) + "ArrayValue" buildMessage = \_x -> (Data.Monoid.<>) @@ -1079,10 +1079,10 @@ instance Data.ProtoLens.Message InstrumentationLibrary where (Data.ProtoLens.Field.field @"version") ) :: Data.ProtoLens.FieldDescriptor InstrumentationLibrary - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, name__field_descriptor) - , (Data.ProtoLens.Tag 2, version__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, name__field_descriptor) + , (Data.ProtoLens.Tag 2, version__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _InstrumentationLibrary'_unknownFields @@ -1103,14 +1103,14 @@ instance Data.ProtoLens.Message InstrumentationLibrary where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1168,48 +1168,48 @@ instance Data.ProtoLens.Message InstrumentationLibrary where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "InstrumentationLibrary" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "InstrumentationLibrary" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"version") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -1313,10 +1313,10 @@ instance Data.ProtoLens.Message KeyValue where (Data.ProtoLens.Field.field @"maybe'value") ) :: Data.ProtoLens.FieldDescriptor KeyValue - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, key__field_descriptor) - , (Data.ProtoLens.Tag 2, value__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, key__field_descriptor) + , (Data.ProtoLens.Tag 2, value__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _KeyValue'_unknownFields @@ -1335,14 +1335,14 @@ instance Data.ProtoLens.Message KeyValue where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1394,29 +1394,29 @@ instance Data.ProtoLens.Message KeyValue where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "KeyValue" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "KeyValue" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x of @@ -1518,8 +1518,8 @@ instance Data.ProtoLens.Message KeyValueList where (Data.ProtoLens.Field.field @"values") ) :: Data.ProtoLens.FieldDescriptor KeyValueList - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, values__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, values__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _KeyValueList'_unknownFields @@ -1545,14 +1545,14 @@ instance Data.ProtoLens.Message KeyValueList where mutable'values ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1594,14 +1594,14 @@ instance Data.ProtoLens.Message KeyValueList where x ) mutable'values - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'values <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'values - ) - "KeyValueList" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'values <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'values + ) + "KeyValueList" buildMessage = \_x -> (Data.Monoid.<>) @@ -1711,10 +1711,10 @@ instance Data.ProtoLens.Message StringKeyValue where (Data.ProtoLens.Field.field @"value") ) :: Data.ProtoLens.FieldDescriptor StringKeyValue - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, key__field_descriptor) - , (Data.ProtoLens.Tag 2, value__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, key__field_descriptor) + , (Data.ProtoLens.Tag 2, value__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _StringKeyValue'_unknownFields @@ -1735,14 +1735,14 @@ instance Data.ProtoLens.Message StringKeyValue where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1800,48 +1800,48 @@ instance Data.ProtoLens.Message StringKeyValue where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "StringKeyValue" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "StringKeyValue" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) diff --git a/otlp/src/Proto/Opentelemetry/Proto/Logs/V1/Logs.hs b/otlp/src/Proto/Opentelemetry/Proto/Logs/V1/Logs.hs index a123eede..9949b750 100644 --- a/otlp/src/Proto/Opentelemetry/Proto/Logs/V1/Logs.hs +++ b/otlp/src/Proto/Opentelemetry/Proto/Logs/V1/Logs.hs @@ -203,11 +203,11 @@ instance Data.ProtoLens.Message InstrumentationLibraryLogs where (Data.ProtoLens.Field.field @"schemaUrl") ) :: Data.ProtoLens.FieldDescriptor InstrumentationLibraryLogs - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, instrumentationLibrary__field_descriptor) - , (Data.ProtoLens.Tag 2, logs__field_descriptor) - , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, instrumentationLibrary__field_descriptor) + , (Data.ProtoLens.Tag 2, logs__field_descriptor) + , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _InstrumentationLibraryLogs'_unknownFields @@ -235,14 +235,14 @@ instance Data.ProtoLens.Message InstrumentationLibraryLogs where Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'logs) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -322,14 +322,14 @@ instance Data.ProtoLens.Message InstrumentationLibraryLogs where x ) mutable'logs - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'logs <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'logs - ) - "InstrumentationLibraryLogs" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'logs <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'logs + ) + "InstrumentationLibraryLogs" buildMessage = \_x -> (Data.Monoid.<>) @@ -373,22 +373,22 @@ instance Data.ProtoLens.Message InstrumentationLibraryLogs where ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"schemaUrl") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -708,18 +708,18 @@ instance Data.ProtoLens.Message LogRecord where (Data.ProtoLens.Field.field @"spanId") ) :: Data.ProtoLens.FieldDescriptor LogRecord - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, timeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 2, severityNumber__field_descriptor) - , (Data.ProtoLens.Tag 3, severityText__field_descriptor) - , (Data.ProtoLens.Tag 4, name__field_descriptor) - , (Data.ProtoLens.Tag 5, body__field_descriptor) - , (Data.ProtoLens.Tag 6, attributes__field_descriptor) - , (Data.ProtoLens.Tag 7, droppedAttributesCount__field_descriptor) - , (Data.ProtoLens.Tag 8, flags__field_descriptor) - , (Data.ProtoLens.Tag 9, traceId__field_descriptor) - , (Data.ProtoLens.Tag 10, spanId__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, timeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 2, severityNumber__field_descriptor) + , (Data.ProtoLens.Tag 3, severityText__field_descriptor) + , (Data.ProtoLens.Tag 4, name__field_descriptor) + , (Data.ProtoLens.Tag 5, body__field_descriptor) + , (Data.ProtoLens.Tag 6, attributes__field_descriptor) + , (Data.ProtoLens.Tag 7, droppedAttributesCount__field_descriptor) + , (Data.ProtoLens.Tag 8, flags__field_descriptor) + , (Data.ProtoLens.Tag 9, traceId__field_descriptor) + , (Data.ProtoLens.Tag 10, spanId__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _LogRecord'_unknownFields @@ -754,14 +754,14 @@ instance Data.ProtoLens.Message LogRecord where mutable'attributes ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -943,83 +943,83 @@ instance Data.ProtoLens.Message LogRecord where x ) mutable'attributes - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'attributes <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'attributes - ) - "LogRecord" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'attributes <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'attributes + ) + "LogRecord" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 9) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 9) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"severityNumber") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Prelude.fromEnum - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Prelude.fromEnum + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"severityText") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 34) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'body") _x of @@ -1068,71 +1068,71 @@ instance Data.ProtoLens.Message LogRecord where Lens.Family2.view (Data.ProtoLens.Field.field @"droppedAttributesCount") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 56) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"flags") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 69) - (Data.ProtoLens.Encoding.Bytes.putFixed32 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 69) + (Data.ProtoLens.Encoding.Bytes.putFixed32 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"traceId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 74) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - ( Prelude.fromIntegral - (Data.ByteString.length bs) - ) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + ( Prelude.fromIntegral + (Data.ByteString.length bs) + ) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"spanId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 82) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - ( Prelude.fromIntegral - (Data.ByteString.length bs) - ) - ) - ( Data.ProtoLens.Encoding.Bytes.putBytes - bs - ) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + ( Prelude.fromIntegral + (Data.ByteString.length bs) + ) + ) + ( Data.ProtoLens.Encoding.Bytes.putBytes + bs + ) ) + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet ( Lens.Family2.view @@ -1339,8 +1339,8 @@ instance Data.ProtoLens.Message LogsData where (Data.ProtoLens.Field.field @"resourceLogs") ) :: Data.ProtoLens.FieldDescriptor LogsData - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, resourceLogs__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, resourceLogs__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _LogsData'_unknownFields @@ -1366,14 +1366,14 @@ instance Data.ProtoLens.Message LogsData where mutable'resourceLogs ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1418,14 +1418,14 @@ instance Data.ProtoLens.Message LogsData where x ) mutable'resourceLogs - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'resourceLogs <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'resourceLogs - ) - "LogsData" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'resourceLogs <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'resourceLogs + ) + "LogsData" buildMessage = \_x -> (Data.Monoid.<>) @@ -1591,14 +1591,14 @@ instance Data.ProtoLens.Message ResourceLogs where (Data.ProtoLens.Field.field @"schemaUrl") ) :: Data.ProtoLens.FieldDescriptor ResourceLogs - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, resource__field_descriptor) - , - ( Data.ProtoLens.Tag 2 - , instrumentationLibraryLogs__field_descriptor - ) - , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, resource__field_descriptor) + , + ( Data.ProtoLens.Tag 2 + , instrumentationLibraryLogs__field_descriptor + ) + , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _ResourceLogs'_unknownFields @@ -1626,14 +1626,14 @@ instance Data.ProtoLens.Message ResourceLogs where mutable'instrumentationLibraryLogs ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1712,14 +1712,14 @@ instance Data.ProtoLens.Message ResourceLogs where x ) mutable'instrumentationLibraryLogs - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'instrumentationLibraryLogs <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'instrumentationLibraryLogs - ) - "ResourceLogs" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'instrumentationLibraryLogs <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'instrumentationLibraryLogs + ) + "ResourceLogs" buildMessage = \_x -> (Data.Monoid.<>) @@ -1764,22 +1764,22 @@ instance Data.ProtoLens.Message ResourceLogs where ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"schemaUrl") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) diff --git a/otlp/src/Proto/Opentelemetry/Proto/Metrics/Experimental/MetricsConfigService.hs b/otlp/src/Proto/Opentelemetry/Proto/Metrics/Experimental/MetricsConfigService.hs index c2a1ffc4..4115e4f1 100644 --- a/otlp/src/Proto/Opentelemetry/Proto/Metrics/Experimental/MetricsConfigService.hs +++ b/otlp/src/Proto/Opentelemetry/Proto/Metrics/Experimental/MetricsConfigService.hs @@ -159,10 +159,10 @@ instance Data.ProtoLens.Message MetricConfigRequest where (Data.ProtoLens.Field.field @"lastKnownFingerprint") ) :: Data.ProtoLens.FieldDescriptor MetricConfigRequest - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, resource__field_descriptor) - , (Data.ProtoLens.Tag 2, lastKnownFingerprint__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, resource__field_descriptor) + , (Data.ProtoLens.Tag 2, lastKnownFingerprint__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _MetricConfigRequest'_unknownFields @@ -183,14 +183,14 @@ instance Data.ProtoLens.Message MetricConfigRequest where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -241,9 +241,9 @@ instance Data.ProtoLens.Message MetricConfigRequest where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "MetricConfigRequest" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "MetricConfigRequest" buildMessage = \_x -> (Data.Monoid.<>) @@ -269,20 +269,20 @@ instance Data.ProtoLens.Message MetricConfigRequest where Lens.Family2.view (Data.ProtoLens.Field.field @"lastKnownFingerprint") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -430,11 +430,11 @@ instance Data.ProtoLens.Message MetricConfigResponse where (Data.ProtoLens.Field.field @"suggestedWaitTimeSec") ) :: Data.ProtoLens.FieldDescriptor MetricConfigResponse - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, fingerprint__field_descriptor) - , (Data.ProtoLens.Tag 2, schedules__field_descriptor) - , (Data.ProtoLens.Tag 3, suggestedWaitTimeSec__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, fingerprint__field_descriptor) + , (Data.ProtoLens.Tag 2, schedules__field_descriptor) + , (Data.ProtoLens.Tag 3, suggestedWaitTimeSec__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _MetricConfigResponse'_unknownFields @@ -462,14 +462,14 @@ instance Data.ProtoLens.Message MetricConfigResponse where mutable'schedules ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -540,33 +540,33 @@ instance Data.ProtoLens.Message MetricConfigResponse where x ) mutable'schedules - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'schedules <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'schedules - ) - "MetricConfigResponse" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'schedules <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'schedules + ) + "MetricConfigResponse" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fingerprint") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -595,16 +595,16 @@ instance Data.ProtoLens.Message MetricConfigResponse where Lens.Family2.view (Data.ProtoLens.Field.field @"suggestedWaitTimeSec") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 24) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -774,11 +774,11 @@ instance Data.ProtoLens.Message MetricConfigResponse'Schedule where (Data.ProtoLens.Field.field @"periodSec") ) :: Data.ProtoLens.FieldDescriptor MetricConfigResponse'Schedule - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, exclusionPatterns__field_descriptor) - , (Data.ProtoLens.Tag 2, inclusionPatterns__field_descriptor) - , (Data.ProtoLens.Tag 3, periodSec__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, exclusionPatterns__field_descriptor) + , (Data.ProtoLens.Tag 2, inclusionPatterns__field_descriptor) + , (Data.ProtoLens.Tag 3, periodSec__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _MetricConfigResponse'Schedule'_unknownFields @@ -814,14 +814,14 @@ instance Data.ProtoLens.Message MetricConfigResponse'Schedule where mutable'inclusionPatterns ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -902,20 +902,20 @@ instance Data.ProtoLens.Message MetricConfigResponse'Schedule where ) mutable'exclusionPatterns mutable'inclusionPatterns - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'exclusionPatterns <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'inclusionPatterns <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop - Data.ProtoLens.defMessage - mutable'exclusionPatterns - mutable'inclusionPatterns - ) - "Schedule" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'exclusionPatterns <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'inclusionPatterns <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'exclusionPatterns + mutable'inclusionPatterns + ) + "Schedule" buildMessage = \_x -> (Data.Monoid.<>) @@ -964,16 +964,16 @@ instance Data.ProtoLens.Message MetricConfigResponse'Schedule where ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"periodSec") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 24) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -1173,10 +1173,10 @@ instance Data.ProtoLens.Message MetricConfigResponse'Schedule'Pattern where (Data.ProtoLens.Field.field @"maybe'startsWith") ) :: Data.ProtoLens.FieldDescriptor MetricConfigResponse'Schedule'Pattern - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, equals__field_descriptor) - , (Data.ProtoLens.Tag 2, startsWith__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, equals__field_descriptor) + , (Data.ProtoLens.Tag 2, startsWith__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _MetricConfigResponse'Schedule'Pattern'_unknownFields @@ -1200,14 +1200,14 @@ instance Data.ProtoLens.Message MetricConfigResponse'Schedule'Pattern where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1266,9 +1266,9 @@ instance Data.ProtoLens.Message MetricConfigResponse'Schedule'Pattern where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "Pattern" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "Pattern" buildMessage = \_x -> (Data.Monoid.<>) diff --git a/otlp/src/Proto/Opentelemetry/Proto/Metrics/V1/Metrics.hs b/otlp/src/Proto/Opentelemetry/Proto/Metrics/V1/Metrics.hs index 3fdd9324..0db8968a 100644 --- a/otlp/src/Proto/Opentelemetry/Proto/Metrics/V1/Metrics.hs +++ b/otlp/src/Proto/Opentelemetry/Proto/Metrics/V1/Metrics.hs @@ -583,15 +583,15 @@ instance Data.ProtoLens.Message Exemplar where (Data.ProtoLens.Field.field @"maybe'asInt") ) :: Data.ProtoLens.FieldDescriptor Exemplar - in Data.Map.fromList - [ (Data.ProtoLens.Tag 7, filteredAttributes__field_descriptor) - , (Data.ProtoLens.Tag 1, filteredLabels__field_descriptor) - , (Data.ProtoLens.Tag 2, timeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 4, spanId__field_descriptor) - , (Data.ProtoLens.Tag 5, traceId__field_descriptor) - , (Data.ProtoLens.Tag 3, asDouble__field_descriptor) - , (Data.ProtoLens.Tag 6, asInt__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 7, filteredAttributes__field_descriptor) + , (Data.ProtoLens.Tag 1, filteredLabels__field_descriptor) + , (Data.ProtoLens.Tag 2, timeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 4, spanId__field_descriptor) + , (Data.ProtoLens.Tag 5, traceId__field_descriptor) + , (Data.ProtoLens.Tag 3, asDouble__field_descriptor) + , (Data.ProtoLens.Tag 6, asInt__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _Exemplar'_unknownFields @@ -628,14 +628,14 @@ instance Data.ProtoLens.Message Exemplar where mutable'filteredLabels ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -771,20 +771,20 @@ instance Data.ProtoLens.Message Exemplar where ) mutable'filteredAttributes mutable'filteredLabels - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'filteredAttributes <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'filteredLabels <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop - Data.ProtoLens.defMessage - mutable'filteredAttributes - mutable'filteredLabels - ) - "Exemplar" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'filteredAttributes <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'filteredLabels <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'filteredAttributes + mutable'filteredLabels + ) + "Exemplar" buildMessage = \_x -> (Data.Monoid.<>) @@ -834,46 +834,46 @@ instance Data.ProtoLens.Message Exemplar where ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 17) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"spanId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 34) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"traceId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 42) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( (Data.Monoid.<>) ( case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x of @@ -1050,10 +1050,10 @@ instance Data.ProtoLens.Message ExponentialHistogram where (Data.ProtoLens.Field.field @"aggregationTemporality") ) :: Data.ProtoLens.FieldDescriptor ExponentialHistogram - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, dataPoints__field_descriptor) - , (Data.ProtoLens.Tag 2, aggregationTemporality__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, dataPoints__field_descriptor) + , (Data.ProtoLens.Tag 2, aggregationTemporality__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _ExponentialHistogram'_unknownFields @@ -1080,14 +1080,14 @@ instance Data.ProtoLens.Message ExponentialHistogram where mutable'dataPoints ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1148,14 +1148,14 @@ instance Data.ProtoLens.Message ExponentialHistogram where x ) mutable'dataPoints - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'dataPoints <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'dataPoints - ) - "ExponentialHistogram" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'dataPoints <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'dataPoints + ) + "ExponentialHistogram" buildMessage = \_x -> (Data.Monoid.<>) @@ -1185,19 +1185,19 @@ instance Data.ProtoLens.Message ExponentialHistogram where Lens.Family2.view (Data.ProtoLens.Field.field @"aggregationTemporality") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Prelude.fromEnum - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Prelude.fromEnum + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -1580,19 +1580,19 @@ instance Data.ProtoLens.Message ExponentialHistogramDataPoint where (Data.ProtoLens.Field.field @"exemplars") ) :: Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, attributes__field_descriptor) - , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 4, count__field_descriptor) - , (Data.ProtoLens.Tag 5, sum__field_descriptor) - , (Data.ProtoLens.Tag 6, scale__field_descriptor) - , (Data.ProtoLens.Tag 7, zeroCount__field_descriptor) - , (Data.ProtoLens.Tag 8, positive__field_descriptor) - , (Data.ProtoLens.Tag 9, negative__field_descriptor) - , (Data.ProtoLens.Tag 10, flags__field_descriptor) - , (Data.ProtoLens.Tag 11, exemplars__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, attributes__field_descriptor) + , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 4, count__field_descriptor) + , (Data.ProtoLens.Tag 5, sum__field_descriptor) + , (Data.ProtoLens.Tag 6, scale__field_descriptor) + , (Data.ProtoLens.Tag 7, zeroCount__field_descriptor) + , (Data.ProtoLens.Tag 8, positive__field_descriptor) + , (Data.ProtoLens.Tag 9, negative__field_descriptor) + , (Data.ProtoLens.Tag 10, flags__field_descriptor) + , (Data.ProtoLens.Tag 11, exemplars__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _ExponentialHistogramDataPoint'_unknownFields @@ -1636,14 +1636,14 @@ instance Data.ProtoLens.Message ExponentialHistogramDataPoint where mutable'exemplars ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1825,20 +1825,20 @@ instance Data.ProtoLens.Message ExponentialHistogramDataPoint where ) mutable'attributes mutable'exemplars - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'attributes <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'exemplars <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop - Data.ProtoLens.defMessage - mutable'attributes - mutable'exemplars - ) - "ExponentialHistogramDataPoint" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'attributes <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'exemplars <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'attributes + mutable'exemplars + ) + "ExponentialHistogramDataPoint" buildMessage = \_x -> (Data.Monoid.<>) @@ -1868,70 +1868,70 @@ instance Data.ProtoLens.Message ExponentialHistogramDataPoint where Lens.Family2.view (Data.ProtoLens.Field.field @"startTimeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 17) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 25) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 25) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"count") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 33) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 33) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"sum") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 41) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Data.ProtoLens.Encoding.Bytes.doubleToWord - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 41) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"scale") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 48) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Data.ProtoLens.Encoding.Bytes.signedInt32ToWord - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Data.ProtoLens.Encoding.Bytes.signedInt32ToWord + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"zeroCount") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 57) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 57) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( case Lens.Family2.view @@ -1984,16 +1984,16 @@ instance Data.ProtoLens.Message ExponentialHistogramDataPoint where Lens.Family2.view (Data.ProtoLens.Field.field @"flags") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 80) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -2180,10 +2180,10 @@ instance Data.ProtoLens.Message ExponentialHistogramDataPoint'Buckets where (Data.ProtoLens.Field.field @"bucketCounts") ) :: Data.ProtoLens.FieldDescriptor ExponentialHistogramDataPoint'Buckets - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, offset__field_descriptor) - , (Data.ProtoLens.Tag 2, bucketCounts__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, offset__field_descriptor) + , (Data.ProtoLens.Tag 2, bucketCounts__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _ExponentialHistogramDataPoint'Buckets'_unknownFields @@ -2214,14 +2214,14 @@ instance Data.ProtoLens.Message ExponentialHistogramDataPoint'Buckets where mutable'bucketCounts ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -2286,7 +2286,7 @@ instance Data.ProtoLens.Message ExponentialHistogramDataPoint'Buckets where q ) ploop qs' - in ploop + in ploop ) mutable'bucketCounts ) @@ -2303,56 +2303,56 @@ instance Data.ProtoLens.Message ExponentialHistogramDataPoint'Buckets where x ) mutable'bucketCounts - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'bucketCounts <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'bucketCounts - ) - "Buckets" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'bucketCounts <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'bucketCounts + ) + "Buckets" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"offset") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Data.ProtoLens.Encoding.Bytes.signedInt32ToWord - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Data.ProtoLens.Encoding.Bytes.signedInt32ToWord + _v + ) ) ( (Data.Monoid.<>) ( let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'bucketCounts") _x - in if Data.Vector.Generic.null p - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - ( Data.ProtoLens.Encoding.Bytes.runBuilder - ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder - Data.ProtoLens.Encoding.Bytes.putVarInt - p - ) - ) + in if Data.Vector.Generic.null p + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + ( Data.ProtoLens.Encoding.Bytes.runBuilder + ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder + Data.ProtoLens.Encoding.Bytes.putVarInt + p + ) + ) + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -2440,8 +2440,8 @@ instance Data.ProtoLens.Message Gauge where (Data.ProtoLens.Field.field @"dataPoints") ) :: Data.ProtoLens.FieldDescriptor Gauge - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, dataPoints__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, dataPoints__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Gauge'_unknownFields @@ -2467,14 +2467,14 @@ instance Data.ProtoLens.Message Gauge where mutable'dataPoints ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -2516,14 +2516,14 @@ instance Data.ProtoLens.Message Gauge where x ) mutable'dataPoints - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'dataPoints <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'dataPoints - ) - "Gauge" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'dataPoints <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'dataPoints + ) + "Gauge" buildMessage = \_x -> (Data.Monoid.<>) @@ -2651,10 +2651,10 @@ instance Data.ProtoLens.Message Histogram where (Data.ProtoLens.Field.field @"aggregationTemporality") ) :: Data.ProtoLens.FieldDescriptor Histogram - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, dataPoints__field_descriptor) - , (Data.ProtoLens.Tag 2, aggregationTemporality__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, dataPoints__field_descriptor) + , (Data.ProtoLens.Tag 2, aggregationTemporality__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _Histogram'_unknownFields @@ -2681,14 +2681,14 @@ instance Data.ProtoLens.Message Histogram where mutable'dataPoints ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -2749,14 +2749,14 @@ instance Data.ProtoLens.Message Histogram where x ) mutable'dataPoints - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'dataPoints <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'dataPoints - ) - "Histogram" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'dataPoints <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'dataPoints + ) + "Histogram" buildMessage = \_x -> (Data.Monoid.<>) @@ -2786,19 +2786,19 @@ instance Data.ProtoLens.Message Histogram where Lens.Family2.view (Data.ProtoLens.Field.field @"aggregationTemporality") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Prelude.fromEnum - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Prelude.fromEnum + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -3161,18 +3161,18 @@ instance Data.ProtoLens.Message HistogramDataPoint where (Data.ProtoLens.Field.field @"flags") ) :: Data.ProtoLens.FieldDescriptor HistogramDataPoint - in Data.Map.fromList - [ (Data.ProtoLens.Tag 9, attributes__field_descriptor) - , (Data.ProtoLens.Tag 1, labels__field_descriptor) - , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 4, count__field_descriptor) - , (Data.ProtoLens.Tag 5, sum__field_descriptor) - , (Data.ProtoLens.Tag 6, bucketCounts__field_descriptor) - , (Data.ProtoLens.Tag 7, explicitBounds__field_descriptor) - , (Data.ProtoLens.Tag 8, exemplars__field_descriptor) - , (Data.ProtoLens.Tag 10, flags__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 9, attributes__field_descriptor) + , (Data.ProtoLens.Tag 1, labels__field_descriptor) + , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 4, count__field_descriptor) + , (Data.ProtoLens.Tag 5, sum__field_descriptor) + , (Data.ProtoLens.Tag 6, bucketCounts__field_descriptor) + , (Data.ProtoLens.Tag 7, explicitBounds__field_descriptor) + , (Data.ProtoLens.Tag 8, exemplars__field_descriptor) + , (Data.ProtoLens.Tag 10, flags__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _HistogramDataPoint'_unknownFields @@ -3237,14 +3237,14 @@ instance Data.ProtoLens.Message HistogramDataPoint where mutable'labels ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -3422,7 +3422,7 @@ instance Data.ProtoLens.Message HistogramDataPoint where q ) ploop qs' - in ploop + in ploop ) mutable'bucketCounts ) @@ -3481,7 +3481,7 @@ instance Data.ProtoLens.Message HistogramDataPoint where q ) ploop qs' - in ploop + in ploop ) mutable'explicitBounds ) @@ -3545,32 +3545,32 @@ instance Data.ProtoLens.Message HistogramDataPoint where mutable'exemplars mutable'explicitBounds mutable'labels - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'attributes <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'bucketCounts <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'exemplars <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'explicitBounds <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'labels <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop - Data.ProtoLens.defMessage - mutable'attributes - mutable'bucketCounts - mutable'exemplars - mutable'explicitBounds - mutable'labels - ) - "HistogramDataPoint" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'attributes <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'bucketCounts <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'exemplars <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'explicitBounds <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'labels <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'attributes + mutable'bucketCounts + mutable'exemplars + mutable'explicitBounds + mutable'labels + ) + "HistogramDataPoint" buildMessage = \_x -> (Data.Monoid.<>) @@ -3619,101 +3619,101 @@ instance Data.ProtoLens.Message HistogramDataPoint where Lens.Family2.view (Data.ProtoLens.Field.field @"startTimeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 17) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 25) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 25) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"count") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 33) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 33) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"sum") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 41) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Data.ProtoLens.Encoding.Bytes.doubleToWord - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 41) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord + _v + ) ) ( (Data.Monoid.<>) ( let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'bucketCounts") _x - in if Data.Vector.Generic.null p - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 50) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - ( Prelude.fromIntegral - (Data.ByteString.length bs) - ) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - ( Data.ProtoLens.Encoding.Bytes.runBuilder - ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder - Data.ProtoLens.Encoding.Bytes.putFixed64 - p - ) - ) + in if Data.Vector.Generic.null p + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + ( Prelude.fromIntegral + (Data.ByteString.length bs) + ) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + ( Data.ProtoLens.Encoding.Bytes.runBuilder + ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder + Data.ProtoLens.Encoding.Bytes.putFixed64 + p + ) + ) + ) ) ( (Data.Monoid.<>) ( let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'explicitBounds") _x - in if Data.Vector.Generic.null p - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 58) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - ( Prelude.fromIntegral - (Data.ByteString.length bs) - ) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - ( Data.ProtoLens.Encoding.Bytes.runBuilder - ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Data.ProtoLens.Encoding.Bytes.doubleToWord - ) - p - ) - ) + in if Data.Vector.Generic.null p + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + ( Prelude.fromIntegral + (Data.ByteString.length bs) + ) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + ( Data.ProtoLens.Encoding.Bytes.runBuilder + ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord + ) + p + ) + ) + ) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -3746,16 +3746,16 @@ instance Data.ProtoLens.Message HistogramDataPoint where Lens.Family2.view (Data.ProtoLens.Field.field @"flags") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 80) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet ( Lens.Family2.view @@ -3947,11 +3947,11 @@ instance Data.ProtoLens.Message InstrumentationLibraryMetrics where (Data.ProtoLens.Field.field @"schemaUrl") ) :: Data.ProtoLens.FieldDescriptor InstrumentationLibraryMetrics - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, instrumentationLibrary__field_descriptor) - , (Data.ProtoLens.Tag 2, metrics__field_descriptor) - , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, instrumentationLibrary__field_descriptor) + , (Data.ProtoLens.Tag 2, metrics__field_descriptor) + , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _InstrumentationLibraryMetrics'_unknownFields @@ -3981,14 +3981,14 @@ instance Data.ProtoLens.Message InstrumentationLibraryMetrics where mutable'metrics ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -4068,14 +4068,14 @@ instance Data.ProtoLens.Message InstrumentationLibraryMetrics where x ) mutable'metrics - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'metrics <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'metrics - ) - "InstrumentationLibraryMetrics" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'metrics <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'metrics + ) + "InstrumentationLibraryMetrics" buildMessage = \_x -> (Data.Monoid.<>) @@ -4119,22 +4119,22 @@ instance Data.ProtoLens.Message InstrumentationLibraryMetrics where ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"schemaUrl") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -4335,13 +4335,13 @@ instance Data.ProtoLens.Message IntDataPoint where (Data.ProtoLens.Field.field @"exemplars") ) :: Data.ProtoLens.FieldDescriptor IntDataPoint - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, labels__field_descriptor) - , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 4, value__field_descriptor) - , (Data.ProtoLens.Tag 5, exemplars__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, labels__field_descriptor) + , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 4, value__field_descriptor) + , (Data.ProtoLens.Tag 5, exemplars__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _IntDataPoint'_unknownFields @@ -4377,14 +4377,14 @@ instance Data.ProtoLens.Message IntDataPoint where mutable'labels ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -4487,17 +4487,17 @@ instance Data.ProtoLens.Message IntDataPoint where ) mutable'exemplars mutable'labels - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'exemplars <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'labels <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'exemplars mutable'labels - ) - "IntDataPoint" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'exemplars <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'labels <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'exemplars mutable'labels + ) + "IntDataPoint" buildMessage = \_x -> (Data.Monoid.<>) @@ -4524,35 +4524,35 @@ instance Data.ProtoLens.Message IntDataPoint where Lens.Family2.view (Data.ProtoLens.Field.field @"startTimeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 17) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 25) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 25) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 33) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 33) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -4768,13 +4768,13 @@ instance Data.ProtoLens.Message IntExemplar where (Data.ProtoLens.Field.field @"traceId") ) :: Data.ProtoLens.FieldDescriptor IntExemplar - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, filteredLabels__field_descriptor) - , (Data.ProtoLens.Tag 2, timeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 3, value__field_descriptor) - , (Data.ProtoLens.Tag 4, spanId__field_descriptor) - , (Data.ProtoLens.Tag 5, traceId__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, filteredLabels__field_descriptor) + , (Data.ProtoLens.Tag 2, timeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 3, value__field_descriptor) + , (Data.ProtoLens.Tag 4, spanId__field_descriptor) + , (Data.ProtoLens.Tag 5, traceId__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _IntExemplar'_unknownFields @@ -4804,14 +4804,14 @@ instance Data.ProtoLens.Message IntExemplar where mutable'filteredLabels ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -4907,14 +4907,14 @@ instance Data.ProtoLens.Message IntExemplar where x ) mutable'filteredLabels - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'filteredLabels <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'filteredLabels - ) - "IntExemplar" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'filteredLabels <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'filteredLabels + ) + "IntExemplar" buildMessage = \_x -> (Data.Monoid.<>) @@ -4942,59 +4942,59 @@ instance Data.ProtoLens.Message IntExemplar where ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 17) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 25) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 25) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"spanId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 34) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"traceId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 42) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -5091,8 +5091,8 @@ instance Data.ProtoLens.Message IntGauge where (Data.ProtoLens.Field.field @"dataPoints") ) :: Data.ProtoLens.FieldDescriptor IntGauge - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, dataPoints__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, dataPoints__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _IntGauge'_unknownFields @@ -5118,14 +5118,14 @@ instance Data.ProtoLens.Message IntGauge where mutable'dataPoints ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -5167,14 +5167,14 @@ instance Data.ProtoLens.Message IntGauge where x ) mutable'dataPoints - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'dataPoints <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'dataPoints - ) - "IntGauge" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'dataPoints <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'dataPoints + ) + "IntGauge" buildMessage = \_x -> (Data.Monoid.<>) @@ -5302,10 +5302,10 @@ instance Data.ProtoLens.Message IntHistogram where (Data.ProtoLens.Field.field @"aggregationTemporality") ) :: Data.ProtoLens.FieldDescriptor IntHistogram - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, dataPoints__field_descriptor) - , (Data.ProtoLens.Tag 2, aggregationTemporality__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, dataPoints__field_descriptor) + , (Data.ProtoLens.Tag 2, aggregationTemporality__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _IntHistogram'_unknownFields @@ -5332,14 +5332,14 @@ instance Data.ProtoLens.Message IntHistogram where mutable'dataPoints ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -5400,14 +5400,14 @@ instance Data.ProtoLens.Message IntHistogram where x ) mutable'dataPoints - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'dataPoints <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'dataPoints - ) - "IntHistogram" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'dataPoints <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'dataPoints + ) + "IntHistogram" buildMessage = \_x -> (Data.Monoid.<>) @@ -5437,19 +5437,19 @@ instance Data.ProtoLens.Message IntHistogram where Lens.Family2.view (Data.ProtoLens.Field.field @"aggregationTemporality") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Prelude.fromEnum - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Prelude.fromEnum + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -5749,16 +5749,16 @@ instance Data.ProtoLens.Message IntHistogramDataPoint where (Data.ProtoLens.Field.field @"exemplars") ) :: Data.ProtoLens.FieldDescriptor IntHistogramDataPoint - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, labels__field_descriptor) - , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 4, count__field_descriptor) - , (Data.ProtoLens.Tag 5, sum__field_descriptor) - , (Data.ProtoLens.Tag 6, bucketCounts__field_descriptor) - , (Data.ProtoLens.Tag 7, explicitBounds__field_descriptor) - , (Data.ProtoLens.Tag 8, exemplars__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, labels__field_descriptor) + , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 4, count__field_descriptor) + , (Data.ProtoLens.Tag 5, sum__field_descriptor) + , (Data.ProtoLens.Tag 6, bucketCounts__field_descriptor) + , (Data.ProtoLens.Tag 7, explicitBounds__field_descriptor) + , (Data.ProtoLens.Tag 8, exemplars__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _IntHistogramDataPoint'_unknownFields @@ -5814,14 +5814,14 @@ instance Data.ProtoLens.Message IntHistogramDataPoint where mutable'labels ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -5963,7 +5963,7 @@ instance Data.ProtoLens.Message IntHistogramDataPoint where q ) ploop qs' - in ploop + in ploop ) mutable'bucketCounts ) @@ -6010,7 +6010,7 @@ instance Data.ProtoLens.Message IntHistogramDataPoint where q ) ploop qs' - in ploop + in ploop ) mutable'explicitBounds ) @@ -6045,28 +6045,28 @@ instance Data.ProtoLens.Message IntHistogramDataPoint where mutable'exemplars mutable'explicitBounds mutable'labels - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'bucketCounts <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'exemplars <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'explicitBounds <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'labels <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop - Data.ProtoLens.defMessage - mutable'bucketCounts - mutable'exemplars - mutable'explicitBounds - mutable'labels - ) - "IntHistogramDataPoint" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'bucketCounts <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'exemplars <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'explicitBounds <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'labels <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'bucketCounts + mutable'exemplars + mutable'explicitBounds + mutable'labels + ) + "IntHistogramDataPoint" buildMessage = \_x -> (Data.Monoid.<>) @@ -6093,99 +6093,99 @@ instance Data.ProtoLens.Message IntHistogramDataPoint where Lens.Family2.view (Data.ProtoLens.Field.field @"startTimeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 17) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 25) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 25) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"count") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 33) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 33) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"sum") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 41) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 41) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'bucketCounts") _x - in if Data.Vector.Generic.null p - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 50) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - ( Data.ProtoLens.Encoding.Bytes.runBuilder - ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder - Data.ProtoLens.Encoding.Bytes.putFixed64 - p - ) - ) + in if Data.Vector.Generic.null p + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + ( Data.ProtoLens.Encoding.Bytes.runBuilder + ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder + Data.ProtoLens.Encoding.Bytes.putFixed64 + p + ) + ) + ) ) ( (Data.Monoid.<>) ( let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'explicitBounds") _x - in if Data.Vector.Generic.null p - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 58) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - ( Prelude.fromIntegral - (Data.ByteString.length bs) - ) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - ( Data.ProtoLens.Encoding.Bytes.runBuilder - ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Data.ProtoLens.Encoding.Bytes.doubleToWord - ) - p - ) - ) + in if Data.Vector.Generic.null p + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + ( Prelude.fromIntegral + (Data.ByteString.length bs) + ) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + ( Data.ProtoLens.Encoding.Bytes.runBuilder + ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord + ) + p + ) + ) + ) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -6369,11 +6369,11 @@ instance Data.ProtoLens.Message IntSum where (Data.ProtoLens.Field.field @"isMonotonic") ) :: Data.ProtoLens.FieldDescriptor IntSum - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, dataPoints__field_descriptor) - , (Data.ProtoLens.Tag 2, aggregationTemporality__field_descriptor) - , (Data.ProtoLens.Tag 3, isMonotonic__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, dataPoints__field_descriptor) + , (Data.ProtoLens.Tag 2, aggregationTemporality__field_descriptor) + , (Data.ProtoLens.Tag 3, isMonotonic__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _IntSum'_unknownFields @@ -6401,14 +6401,14 @@ instance Data.ProtoLens.Message IntSum where mutable'dataPoints ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -6481,14 +6481,14 @@ instance Data.ProtoLens.Message IntSum where x ) mutable'dataPoints - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'dataPoints <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'dataPoints - ) - "IntSum" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'dataPoints <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'dataPoints + ) + "IntSum" buildMessage = \_x -> (Data.Monoid.<>) @@ -6518,33 +6518,33 @@ instance Data.ProtoLens.Message IntSum where Lens.Family2.view (Data.ProtoLens.Field.field @"aggregationTemporality") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Prelude.fromEnum - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Prelude.fromEnum + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"isMonotonic") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 24) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - (\b -> if b then 1 else 0) - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\b -> if b then 1 else 0) + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -7094,19 +7094,19 @@ instance Data.ProtoLens.Message Metric where (Data.ProtoLens.Field.field @"maybe'summary") ) :: Data.ProtoLens.FieldDescriptor Metric - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, name__field_descriptor) - , (Data.ProtoLens.Tag 2, description__field_descriptor) - , (Data.ProtoLens.Tag 3, unit__field_descriptor) - , (Data.ProtoLens.Tag 4, intGauge__field_descriptor) - , (Data.ProtoLens.Tag 5, gauge__field_descriptor) - , (Data.ProtoLens.Tag 6, intSum__field_descriptor) - , (Data.ProtoLens.Tag 7, sum__field_descriptor) - , (Data.ProtoLens.Tag 8, intHistogram__field_descriptor) - , (Data.ProtoLens.Tag 9, histogram__field_descriptor) - , (Data.ProtoLens.Tag 10, exponentialHistogram__field_descriptor) - , (Data.ProtoLens.Tag 11, summary__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, name__field_descriptor) + , (Data.ProtoLens.Tag 2, description__field_descriptor) + , (Data.ProtoLens.Tag 3, unit__field_descriptor) + , (Data.ProtoLens.Tag 4, intGauge__field_descriptor) + , (Data.ProtoLens.Tag 5, gauge__field_descriptor) + , (Data.ProtoLens.Tag 6, intSum__field_descriptor) + , (Data.ProtoLens.Tag 7, sum__field_descriptor) + , (Data.ProtoLens.Tag 8, intHistogram__field_descriptor) + , (Data.ProtoLens.Tag 9, histogram__field_descriptor) + , (Data.ProtoLens.Tag 10, exponentialHistogram__field_descriptor) + , (Data.ProtoLens.Tag 11, summary__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _Metric'_unknownFields @@ -7127,14 +7127,14 @@ instance Data.ProtoLens.Message Metric where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -7319,68 +7319,68 @@ instance Data.ProtoLens.Message Metric where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "Metric" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "Metric" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"description") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"unit") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'data'") _x of @@ -7691,8 +7691,8 @@ instance Data.ProtoLens.Message MetricsData where (Data.ProtoLens.Field.field @"resourceMetrics") ) :: Data.ProtoLens.FieldDescriptor MetricsData - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, resourceMetrics__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, resourceMetrics__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _MetricsData'_unknownFields @@ -7718,14 +7718,14 @@ instance Data.ProtoLens.Message MetricsData where mutable'resourceMetrics ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -7770,14 +7770,14 @@ instance Data.ProtoLens.Message MetricsData where x ) mutable'resourceMetrics - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'resourceMetrics <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'resourceMetrics - ) - "MetricsData" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'resourceMetrics <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'resourceMetrics + ) + "MetricsData" buildMessage = \_x -> (Data.Monoid.<>) @@ -8153,16 +8153,16 @@ instance Data.ProtoLens.Message NumberDataPoint where (Data.ProtoLens.Field.field @"maybe'asInt") ) :: Data.ProtoLens.FieldDescriptor NumberDataPoint - in Data.Map.fromList - [ (Data.ProtoLens.Tag 7, attributes__field_descriptor) - , (Data.ProtoLens.Tag 1, labels__field_descriptor) - , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 5, exemplars__field_descriptor) - , (Data.ProtoLens.Tag 8, flags__field_descriptor) - , (Data.ProtoLens.Tag 4, asDouble__field_descriptor) - , (Data.ProtoLens.Tag 6, asInt__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 7, attributes__field_descriptor) + , (Data.ProtoLens.Tag 1, labels__field_descriptor) + , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 5, exemplars__field_descriptor) + , (Data.ProtoLens.Tag 8, flags__field_descriptor) + , (Data.ProtoLens.Tag 4, asDouble__field_descriptor) + , (Data.ProtoLens.Tag 6, asInt__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _NumberDataPoint'_unknownFields @@ -8206,14 +8206,14 @@ instance Data.ProtoLens.Message NumberDataPoint where mutable'labels ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -8367,24 +8367,24 @@ instance Data.ProtoLens.Message NumberDataPoint where mutable'attributes mutable'exemplars mutable'labels - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'attributes <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'exemplars <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'labels <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop - Data.ProtoLens.defMessage - mutable'attributes - mutable'exemplars - mutable'labels - ) - "NumberDataPoint" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'attributes <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'exemplars <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'labels <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'attributes + mutable'exemplars + mutable'labels + ) + "NumberDataPoint" buildMessage = \_x -> (Data.Monoid.<>) @@ -8433,22 +8433,22 @@ instance Data.ProtoLens.Message NumberDataPoint where Lens.Family2.view (Data.ProtoLens.Field.field @"startTimeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 17) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 25) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 25) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -8476,16 +8476,16 @@ instance Data.ProtoLens.Message NumberDataPoint where ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"flags") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 64) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x of @@ -8701,14 +8701,14 @@ instance Data.ProtoLens.Message ResourceMetrics where (Data.ProtoLens.Field.field @"schemaUrl") ) :: Data.ProtoLens.FieldDescriptor ResourceMetrics - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, resource__field_descriptor) - , - ( Data.ProtoLens.Tag 2 - , instrumentationLibraryMetrics__field_descriptor - ) - , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, resource__field_descriptor) + , + ( Data.ProtoLens.Tag 2 + , instrumentationLibraryMetrics__field_descriptor + ) + , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _ResourceMetrics'_unknownFields @@ -8736,14 +8736,14 @@ instance Data.ProtoLens.Message ResourceMetrics where mutable'instrumentationLibraryMetrics ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -8822,16 +8822,16 @@ instance Data.ProtoLens.Message ResourceMetrics where x ) mutable'instrumentationLibraryMetrics - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'instrumentationLibraryMetrics <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop - Data.ProtoLens.defMessage - mutable'instrumentationLibraryMetrics - ) - "ResourceMetrics" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'instrumentationLibraryMetrics <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'instrumentationLibraryMetrics + ) + "ResourceMetrics" buildMessage = \_x -> (Data.Monoid.<>) @@ -8876,22 +8876,22 @@ instance Data.ProtoLens.Message ResourceMetrics where ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"schemaUrl") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -9027,11 +9027,11 @@ instance Data.ProtoLens.Message Sum where (Data.ProtoLens.Field.field @"isMonotonic") ) :: Data.ProtoLens.FieldDescriptor Sum - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, dataPoints__field_descriptor) - , (Data.ProtoLens.Tag 2, aggregationTemporality__field_descriptor) - , (Data.ProtoLens.Tag 3, isMonotonic__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, dataPoints__field_descriptor) + , (Data.ProtoLens.Tag 2, aggregationTemporality__field_descriptor) + , (Data.ProtoLens.Tag 3, isMonotonic__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _Sum'_unknownFields @@ -9059,14 +9059,14 @@ instance Data.ProtoLens.Message Sum where mutable'dataPoints ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -9139,14 +9139,14 @@ instance Data.ProtoLens.Message Sum where x ) mutable'dataPoints - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'dataPoints <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'dataPoints - ) - "Sum" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'dataPoints <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'dataPoints + ) + "Sum" buildMessage = \_x -> (Data.Monoid.<>) @@ -9176,33 +9176,33 @@ instance Data.ProtoLens.Message Sum where Lens.Family2.view (Data.ProtoLens.Field.field @"aggregationTemporality") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Prelude.fromEnum - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Prelude.fromEnum + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"isMonotonic") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 24) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - (\b -> if b then 1 else 0) - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\b -> if b then 1 else 0) + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -9291,8 +9291,8 @@ instance Data.ProtoLens.Message Summary where (Data.ProtoLens.Field.field @"dataPoints") ) :: Data.ProtoLens.FieldDescriptor Summary - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, dataPoints__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, dataPoints__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Summary'_unknownFields @@ -9318,14 +9318,14 @@ instance Data.ProtoLens.Message Summary where mutable'dataPoints ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -9367,14 +9367,14 @@ instance Data.ProtoLens.Message Summary where x ) mutable'dataPoints - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'dataPoints <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'dataPoints - ) - "Summary" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'dataPoints <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'dataPoints + ) + "Summary" buildMessage = \_x -> (Data.Monoid.<>) @@ -9678,16 +9678,16 @@ instance Data.ProtoLens.Message SummaryDataPoint where (Data.ProtoLens.Field.field @"flags") ) :: Data.ProtoLens.FieldDescriptor SummaryDataPoint - in Data.Map.fromList - [ (Data.ProtoLens.Tag 7, attributes__field_descriptor) - , (Data.ProtoLens.Tag 1, labels__field_descriptor) - , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 4, count__field_descriptor) - , (Data.ProtoLens.Tag 5, sum__field_descriptor) - , (Data.ProtoLens.Tag 6, quantileValues__field_descriptor) - , (Data.ProtoLens.Tag 8, flags__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 7, attributes__field_descriptor) + , (Data.ProtoLens.Tag 1, labels__field_descriptor) + , (Data.ProtoLens.Tag 2, startTimeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 3, timeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 4, count__field_descriptor) + , (Data.ProtoLens.Tag 5, sum__field_descriptor) + , (Data.ProtoLens.Tag 6, quantileValues__field_descriptor) + , (Data.ProtoLens.Tag 8, flags__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _SummaryDataPoint'_unknownFields @@ -9732,14 +9732,14 @@ instance Data.ProtoLens.Message SummaryDataPoint where mutable'quantileValues ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -9893,24 +9893,24 @@ instance Data.ProtoLens.Message SummaryDataPoint where mutable'attributes mutable'labels mutable'quantileValues - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'attributes <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'labels <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'quantileValues <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop - Data.ProtoLens.defMessage - mutable'attributes - mutable'labels - mutable'quantileValues - ) - "SummaryDataPoint" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'attributes <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'labels <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'quantileValues <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'attributes + mutable'labels + mutable'quantileValues + ) + "SummaryDataPoint" buildMessage = \_x -> (Data.Monoid.<>) @@ -9959,44 +9959,44 @@ instance Data.ProtoLens.Message SummaryDataPoint where Lens.Family2.view (Data.ProtoLens.Field.field @"startTimeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 17) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 25) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 25) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"count") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 33) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 33) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"sum") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 41) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Data.ProtoLens.Encoding.Bytes.doubleToWord - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 41) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord + _v + ) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -10024,16 +10024,16 @@ instance Data.ProtoLens.Message SummaryDataPoint where ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"flags") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 64) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -10154,10 +10154,10 @@ instance Data.ProtoLens.Message SummaryDataPoint'ValueAtQuantile where (Data.ProtoLens.Field.field @"value") ) :: Data.ProtoLens.FieldDescriptor SummaryDataPoint'ValueAtQuantile - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, quantile__field_descriptor) - , (Data.ProtoLens.Tag 2, value__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, quantile__field_descriptor) + , (Data.ProtoLens.Tag 2, value__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _SummaryDataPoint'ValueAtQuantile'_unknownFields @@ -10180,14 +10180,14 @@ instance Data.ProtoLens.Message SummaryDataPoint'ValueAtQuantile where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -10229,36 +10229,36 @@ instance Data.ProtoLens.Message SummaryDataPoint'ValueAtQuantile where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "ValueAtQuantile" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "ValueAtQuantile" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"quantile") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 9) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Data.ProtoLens.Encoding.Bytes.doubleToWord - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 9) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 17) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Data.ProtoLens.Encoding.Bytes.doubleToWord - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) diff --git a/otlp/src/Proto/Opentelemetry/Proto/Resource/V1/Resource.hs b/otlp/src/Proto/Opentelemetry/Proto/Resource/V1/Resource.hs index b32acc3c..2948ffed 100644 --- a/otlp/src/Proto/Opentelemetry/Proto/Resource/V1/Resource.hs +++ b/otlp/src/Proto/Opentelemetry/Proto/Resource/V1/Resource.hs @@ -155,10 +155,10 @@ instance Data.ProtoLens.Message Resource where (Data.ProtoLens.Field.field @"droppedAttributesCount") ) :: Data.ProtoLens.FieldDescriptor Resource - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, attributes__field_descriptor) - , (Data.ProtoLens.Tag 2, droppedAttributesCount__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, attributes__field_descriptor) + , (Data.ProtoLens.Tag 2, droppedAttributesCount__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _Resource'_unknownFields @@ -185,14 +185,14 @@ instance Data.ProtoLens.Message Resource where mutable'attributes ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -250,14 +250,14 @@ instance Data.ProtoLens.Message Resource where x ) mutable'attributes - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'attributes <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'attributes - ) - "Resource" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'attributes <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'attributes + ) + "Resource" buildMessage = \_x -> (Data.Monoid.<>) @@ -287,16 +287,16 @@ instance Data.ProtoLens.Message Resource where Lens.Family2.view (Data.ProtoLens.Field.field @"droppedAttributesCount") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) diff --git a/otlp/src/Proto/Opentelemetry/Proto/Trace/V1/Trace.hs b/otlp/src/Proto/Opentelemetry/Proto/Trace/V1/Trace.hs index 2bde82ac..834095ec 100644 --- a/otlp/src/Proto/Opentelemetry/Proto/Trace/V1/Trace.hs +++ b/otlp/src/Proto/Opentelemetry/Proto/Trace/V1/Trace.hs @@ -213,11 +213,11 @@ instance Data.ProtoLens.Message InstrumentationLibrarySpans where (Data.ProtoLens.Field.field @"schemaUrl") ) :: Data.ProtoLens.FieldDescriptor InstrumentationLibrarySpans - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, instrumentationLibrary__field_descriptor) - , (Data.ProtoLens.Tag 2, spans__field_descriptor) - , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, instrumentationLibrary__field_descriptor) + , (Data.ProtoLens.Tag 2, spans__field_descriptor) + , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _InstrumentationLibrarySpans'_unknownFields @@ -245,14 +245,14 @@ instance Data.ProtoLens.Message InstrumentationLibrarySpans where Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'spans) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -332,14 +332,14 @@ instance Data.ProtoLens.Message InstrumentationLibrarySpans where x ) mutable'spans - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'spans <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'spans - ) - "InstrumentationLibrarySpans" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'spans <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'spans + ) + "InstrumentationLibrarySpans" buildMessage = \_x -> (Data.Monoid.<>) @@ -383,22 +383,22 @@ instance Data.ProtoLens.Message InstrumentationLibrarySpans where ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"schemaUrl") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -552,14 +552,14 @@ instance Data.ProtoLens.Message ResourceSpans where (Data.ProtoLens.Field.field @"schemaUrl") ) :: Data.ProtoLens.FieldDescriptor ResourceSpans - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, resource__field_descriptor) - , - ( Data.ProtoLens.Tag 2 - , instrumentationLibrarySpans__field_descriptor - ) - , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, resource__field_descriptor) + , + ( Data.ProtoLens.Tag 2 + , instrumentationLibrarySpans__field_descriptor + ) + , (Data.ProtoLens.Tag 3, schemaUrl__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _ResourceSpans'_unknownFields @@ -587,14 +587,14 @@ instance Data.ProtoLens.Message ResourceSpans where mutable'instrumentationLibrarySpans ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -673,14 +673,14 @@ instance Data.ProtoLens.Message ResourceSpans where x ) mutable'instrumentationLibrarySpans - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'instrumentationLibrarySpans <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'instrumentationLibrarySpans - ) - "ResourceSpans" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'instrumentationLibrarySpans <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'instrumentationLibrarySpans + ) + "ResourceSpans" buildMessage = \_x -> (Data.Monoid.<>) @@ -725,22 +725,22 @@ instance Data.ProtoLens.Message ResourceSpans where ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"schemaUrl") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -1228,23 +1228,23 @@ instance Data.ProtoLens.Message Span where (Data.ProtoLens.Field.field @"maybe'status") ) :: Data.ProtoLens.FieldDescriptor Span - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, traceId__field_descriptor) - , (Data.ProtoLens.Tag 2, spanId__field_descriptor) - , (Data.ProtoLens.Tag 3, traceState__field_descriptor) - , (Data.ProtoLens.Tag 4, parentSpanId__field_descriptor) - , (Data.ProtoLens.Tag 5, name__field_descriptor) - , (Data.ProtoLens.Tag 6, kind__field_descriptor) - , (Data.ProtoLens.Tag 7, startTimeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 8, endTimeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 9, attributes__field_descriptor) - , (Data.ProtoLens.Tag 10, droppedAttributesCount__field_descriptor) - , (Data.ProtoLens.Tag 11, events__field_descriptor) - , (Data.ProtoLens.Tag 12, droppedEventsCount__field_descriptor) - , (Data.ProtoLens.Tag 13, links__field_descriptor) - , (Data.ProtoLens.Tag 14, droppedLinksCount__field_descriptor) - , (Data.ProtoLens.Tag 15, status__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, traceId__field_descriptor) + , (Data.ProtoLens.Tag 2, spanId__field_descriptor) + , (Data.ProtoLens.Tag 3, traceState__field_descriptor) + , (Data.ProtoLens.Tag 4, parentSpanId__field_descriptor) + , (Data.ProtoLens.Tag 5, name__field_descriptor) + , (Data.ProtoLens.Tag 6, kind__field_descriptor) + , (Data.ProtoLens.Tag 7, startTimeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 8, endTimeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 9, attributes__field_descriptor) + , (Data.ProtoLens.Tag 10, droppedAttributesCount__field_descriptor) + , (Data.ProtoLens.Tag 11, events__field_descriptor) + , (Data.ProtoLens.Tag 12, droppedEventsCount__field_descriptor) + , (Data.ProtoLens.Tag 13, links__field_descriptor) + , (Data.ProtoLens.Tag 14, droppedLinksCount__field_descriptor) + , (Data.ProtoLens.Tag 15, status__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _Span'_unknownFields @@ -1294,14 +1294,14 @@ instance Data.ProtoLens.Message Span where Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'links) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1593,156 +1593,156 @@ instance Data.ProtoLens.Message Span where mutable'attributes mutable'events mutable'links - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'attributes <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'events <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'links <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop - Data.ProtoLens.defMessage - mutable'attributes - mutable'events - mutable'links - ) - "Span" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'attributes <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'events <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'links <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'attributes + mutable'events + mutable'links + ) + "Span" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"traceId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"spanId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"traceState") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ( (Prelude..) - ( \bs -> + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) + ) + ( (Data.Monoid.<>) + ( let _v = + Lens.Family2.view (Data.ProtoLens.Field.field @"parentSpanId") _x + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ( ( \bs -> (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs)) ) (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) - Data.Text.Encoding.encodeUtf8 - _v - ) - ) - ( (Data.Monoid.<>) - ( let _v = - Lens.Family2.view (Data.ProtoLens.Field.field @"parentSpanId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 34) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v - ) + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 42) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"kind") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 48) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Prelude.fromEnum - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Prelude.fromEnum + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"startTimeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 57) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 57) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"endTimeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 65) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 65) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -1777,16 +1777,16 @@ instance Data.ProtoLens.Message Span where @"droppedAttributesCount" ) _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 80) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -1821,16 +1821,16 @@ instance Data.ProtoLens.Message Span where @"droppedEventsCount" ) _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 96) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -1869,20 +1869,20 @@ instance Data.ProtoLens.Message Span where @"droppedLinksCount" ) _x - in if (Prelude.==) - _v - Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - 112 - ) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) + _v + Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + 112 + ) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( case Lens.Family2.view @@ -2128,12 +2128,12 @@ instance Data.ProtoLens.Message Span'Event where (Data.ProtoLens.Field.field @"droppedAttributesCount") ) :: Data.ProtoLens.FieldDescriptor Span'Event - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, timeUnixNano__field_descriptor) - , (Data.ProtoLens.Tag 2, name__field_descriptor) - , (Data.ProtoLens.Tag 3, attributes__field_descriptor) - , (Data.ProtoLens.Tag 4, droppedAttributesCount__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, timeUnixNano__field_descriptor) + , (Data.ProtoLens.Tag 2, name__field_descriptor) + , (Data.ProtoLens.Tag 3, attributes__field_descriptor) + , (Data.ProtoLens.Tag 4, droppedAttributesCount__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _Span'Event'_unknownFields @@ -2162,14 +2162,14 @@ instance Data.ProtoLens.Message Span'Event where mutable'attributes ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -2259,44 +2259,44 @@ instance Data.ProtoLens.Message Span'Event where x ) mutable'attributes - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'attributes <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'attributes - ) - "Event" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'attributes <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'attributes + ) + "Event" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeUnixNano") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 9) - (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 9) + (Data.ProtoLens.Encoding.Bytes.putFixed64 _v) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -2325,16 +2325,16 @@ instance Data.ProtoLens.Message Span'Event where Lens.Family2.view (Data.ProtoLens.Field.field @"droppedAttributesCount") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 32) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -2528,13 +2528,13 @@ instance Data.ProtoLens.Message Span'Link where (Data.ProtoLens.Field.field @"droppedAttributesCount") ) :: Data.ProtoLens.FieldDescriptor Span'Link - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, traceId__field_descriptor) - , (Data.ProtoLens.Tag 2, spanId__field_descriptor) - , (Data.ProtoLens.Tag 3, traceState__field_descriptor) - , (Data.ProtoLens.Tag 4, attributes__field_descriptor) - , (Data.ProtoLens.Tag 5, droppedAttributesCount__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, traceId__field_descriptor) + , (Data.ProtoLens.Tag 2, spanId__field_descriptor) + , (Data.ProtoLens.Tag 3, traceState__field_descriptor) + , (Data.ProtoLens.Tag 4, attributes__field_descriptor) + , (Data.ProtoLens.Tag 5, droppedAttributesCount__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _Span'Link'_unknownFields @@ -2564,14 +2564,14 @@ instance Data.ProtoLens.Message Span'Link where mutable'attributes ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -2675,69 +2675,69 @@ instance Data.ProtoLens.Message Span'Link where x ) mutable'attributes - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'attributes <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'attributes - ) - "Link" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'attributes <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'attributes + ) + "Link" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"traceId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"spanId") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ( ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - _v + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ( ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) ) + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"traceState") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( Data.ProtoLens.Encoding.Bytes.foldMapBuilder @@ -2766,16 +2766,16 @@ instance Data.ProtoLens.Message Span'Link where Lens.Family2.view (Data.ProtoLens.Field.field @"droppedAttributesCount") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 40) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -3047,11 +3047,11 @@ instance Data.ProtoLens.Message Status where (Data.ProtoLens.Field.field @"code") ) :: Data.ProtoLens.FieldDescriptor Status - in Data.Map.fromList - [ (Data.ProtoLens.Tag 1, deprecatedCode__field_descriptor) - , (Data.ProtoLens.Tag 2, message__field_descriptor) - , (Data.ProtoLens.Tag 3, code__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 1, deprecatedCode__field_descriptor) + , (Data.ProtoLens.Tag 2, message__field_descriptor) + , (Data.ProtoLens.Tag 3, code__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _Status'_unknownFields @@ -3071,14 +3071,14 @@ instance Data.ProtoLens.Message Status where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -3148,9 +3148,9 @@ instance Data.ProtoLens.Message Status where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "Status" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "Status" buildMessage = \_x -> (Data.Monoid.<>) @@ -3158,54 +3158,54 @@ instance Data.ProtoLens.Message Status where Lens.Family2.view (Data.ProtoLens.Field.field @"deprecatedCode") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Prelude.fromEnum - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Prelude.fromEnum + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"message") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ( (Prelude..) - ( \bs -> - (Data.Monoid.<>) - ( Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs)) - ) - (Data.ProtoLens.Encoding.Bytes.putBytes bs) - ) - Data.Text.Encoding.encodeUtf8 - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ( (Prelude..) + ( \bs -> + (Data.Monoid.<>) + ( Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs)) + ) + (Data.ProtoLens.Encoding.Bytes.putBytes bs) + ) + Data.Text.Encoding.encodeUtf8 + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"code") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 24) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Prelude.fromEnum - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Prelude.fromEnum + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -3654,8 +3654,8 @@ instance Data.ProtoLens.Message TracesData where (Data.ProtoLens.Field.field @"resourceSpans") ) :: Data.ProtoLens.FieldDescriptor TracesData - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, resourceSpans__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, resourceSpans__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _TracesData'_unknownFields @@ -3681,14 +3681,14 @@ instance Data.ProtoLens.Message TracesData where mutable'resourceSpans ) ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -3733,14 +3733,14 @@ instance Data.ProtoLens.Message TracesData where x ) mutable'resourceSpans - in (Data.ProtoLens.Encoding.Bytes.) - ( do - mutable'resourceSpans <- - Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'resourceSpans - ) - "TracesData" + in (Data.ProtoLens.Encoding.Bytes.) + ( do + mutable'resourceSpans <- + Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'resourceSpans + ) + "TracesData" buildMessage = \_x -> (Data.Monoid.<>) diff --git a/otlp/src/Proto/Opentelemetry/Proto/Trace/V1/TraceConfig.hs b/otlp/src/Proto/Opentelemetry/Proto/Trace/V1/TraceConfig.hs index c50d5438..a1a9fa4b 100644 --- a/otlp/src/Proto/Opentelemetry/Proto/Trace/V1/TraceConfig.hs +++ b/otlp/src/Proto/Opentelemetry/Proto/Trace/V1/TraceConfig.hs @@ -129,8 +129,8 @@ instance Data.ProtoLens.Message ConstantSampler where (Data.ProtoLens.Field.field @"decision") ) :: Data.ProtoLens.FieldDescriptor ConstantSampler - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, decision__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, decision__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ConstantSampler'_unknownFields @@ -150,14 +150,14 @@ instance Data.ProtoLens.Message ConstantSampler where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -192,26 +192,26 @@ instance Data.ProtoLens.Message ConstantSampler where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "ConstantSampler" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "ConstantSampler" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"decision") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - ( (Prelude..) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - ) - Prelude.fromEnum - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ( (Prelude..) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + ) + Prelude.fromEnum + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -370,7 +370,7 @@ instance Data.ProtoLens.Message RateLimitingSampler where (Data.ProtoLens.Field.field @"qps") ) :: Data.ProtoLens.FieldDescriptor RateLimitingSampler - in Data.Map.fromList [(Data.ProtoLens.Tag 1, qps__field_descriptor)] + in Data.Map.fromList [(Data.ProtoLens.Tag 1, qps__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _RateLimitingSampler'_unknownFields @@ -390,14 +390,14 @@ instance Data.ProtoLens.Message RateLimitingSampler where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -428,23 +428,23 @@ instance Data.ProtoLens.Message RateLimitingSampler where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "RateLimitingSampler" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "RateLimitingSampler" buildMessage = \_x -> (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"qps") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) @@ -788,22 +788,22 @@ instance Data.ProtoLens.Message TraceConfig where (Data.ProtoLens.Field.field @"maybe'rateLimitingSampler") ) :: Data.ProtoLens.FieldDescriptor TraceConfig - in Data.Map.fromList - [ (Data.ProtoLens.Tag 4, maxNumberOfAttributes__field_descriptor) - , (Data.ProtoLens.Tag 5, maxNumberOfTimedEvents__field_descriptor) - , - ( Data.ProtoLens.Tag 6 - , maxNumberOfAttributesPerTimedEvent__field_descriptor - ) - , (Data.ProtoLens.Tag 7, maxNumberOfLinks__field_descriptor) - , - ( Data.ProtoLens.Tag 8 - , maxNumberOfAttributesPerLink__field_descriptor - ) - , (Data.ProtoLens.Tag 1, constantSampler__field_descriptor) - , (Data.ProtoLens.Tag 2, traceIdRatioBased__field_descriptor) - , (Data.ProtoLens.Tag 3, rateLimitingSampler__field_descriptor) - ] + in Data.Map.fromList + [ (Data.ProtoLens.Tag 4, maxNumberOfAttributes__field_descriptor) + , (Data.ProtoLens.Tag 5, maxNumberOfTimedEvents__field_descriptor) + , + ( Data.ProtoLens.Tag 6 + , maxNumberOfAttributesPerTimedEvent__field_descriptor + ) + , (Data.ProtoLens.Tag 7, maxNumberOfLinks__field_descriptor) + , + ( Data.ProtoLens.Tag 8 + , maxNumberOfAttributesPerLink__field_descriptor + ) + , (Data.ProtoLens.Tag 1, constantSampler__field_descriptor) + , (Data.ProtoLens.Tag 2, traceIdRatioBased__field_descriptor) + , (Data.ProtoLens.Tag 3, rateLimitingSampler__field_descriptor) + ] unknownFields = Lens.Family2.Unchecked.lens _TraceConfig'_unknownFields @@ -827,14 +827,14 @@ instance Data.ProtoLens.Message TraceConfig where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -984,9 +984,9 @@ instance Data.ProtoLens.Message TraceConfig where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "TraceConfig" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "TraceConfig" buildMessage = \_x -> (Data.Monoid.<>) @@ -994,80 +994,80 @@ instance Data.ProtoLens.Message TraceConfig where Lens.Family2.view (Data.ProtoLens.Field.field @"maxNumberOfAttributes") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 32) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxNumberOfTimedEvents") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 40) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxNumberOfAttributesPerTimedEvent") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 48) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxNumberOfLinks") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 56) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxNumberOfAttributesPerLink") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 64) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v + ) ) ( (Data.Monoid.<>) ( case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'sampler") _x of @@ -1247,8 +1247,8 @@ instance Data.ProtoLens.Message TraceIdRatioBased where (Data.ProtoLens.Field.field @"samplingRatio") ) :: Data.ProtoLens.FieldDescriptor TraceIdRatioBased - in Data.Map.fromList - [(Data.ProtoLens.Tag 1, samplingRatio__field_descriptor)] + in Data.Map.fromList + [(Data.ProtoLens.Tag 1, samplingRatio__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _TraceIdRatioBased'_unknownFields @@ -1268,14 +1268,14 @@ instance Data.ProtoLens.Message TraceIdRatioBased where if end then do ( let missing = [] - in if Prelude.null missing - then Prelude.return () - else - Prelude.fail - ( (Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])) - ) + in if Prelude.null missing + then Prelude.return () + else + Prelude.fail + ( (Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])) + ) ) Prelude.return ( Lens.Family2.over @@ -1311,9 +1311,9 @@ instance Data.ProtoLens.Message TraceIdRatioBased where (\ !t -> (:) y t) x ) - in (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) - "TraceIdRatioBased" + in (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "TraceIdRatioBased" buildMessage = \_x -> (Data.Monoid.<>) @@ -1321,16 +1321,16 @@ instance Data.ProtoLens.Message TraceIdRatioBased where Lens.Family2.view (Data.ProtoLens.Field.field @"samplingRatio") _x - in if (Prelude.==) _v Data.ProtoLens.fieldDefault - then Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 9) - ( (Prelude..) - Data.ProtoLens.Encoding.Bytes.putFixed64 - Data.ProtoLens.Encoding.Bytes.doubleToWord - _v - ) + in if (Prelude.==) _v Data.ProtoLens.fieldDefault + then Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 9) + ( (Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord + _v + ) ) ( Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) diff --git a/propagators/datadog/benchmark/header-codec/main.hs b/propagators/datadog/benchmark/header-codec/main.hs index 3242e89a..c6470341 100644 --- a/propagators/datadog/benchmark/header-codec/main.hs +++ b/propagators/datadog/benchmark/header-codec/main.hs @@ -19,9 +19,9 @@ main = ] , C.bgroup "newHeaderFromTraceId" $ let value = SB.pack [0, 1, 2, 3, 4, 5, 6, 7, 8, 8, 10, 11, 12, 13, 14, 15] - in [ C.bench "new" $ C.nf newHeaderFromTraceId value - , C.bench "old" $ C.nf String.newHeaderFromTraceId value - ] + in [ C.bench "new" $ C.nf newHeaderFromTraceId value + , C.bench "old" $ C.nf String.newHeaderFromTraceId value + ] ] diff --git a/propagators/datadog/old-src/Raw.hs b/propagators/datadog/old-src/Raw.hs index bcc0f8ab..800f11e6 100644 --- a/propagators/datadog/old-src/Raw.hs +++ b/propagators/datadog/old-src/Raw.hs @@ -49,7 +49,7 @@ newTraceIdFromHeader bs = writeByteArray mba 0 (0 :: Word64) -- fill zeros to one upper Word64-size area writeByteArrayNbo mba 1 w64 -- offset one Word64-size freezeByteArray mba 0 len - in SBI.SBS ba + in SBI.SBS ba newSpanIdFromHeader @@ -64,7 +64,7 @@ newSpanIdFromHeader bs = let w64 = readWord64BS bs writeByteArrayNbo mba 0 w64 freezeByteArray mba 0 len - in SBI.SBS ba + in SBI.SBS ba {- | Write a primitive value to the byte array with network-byte-order (big-endian). @@ -78,10 +78,11 @@ writeByteArrayNbo mba offset value = do loop _ 0 = pure () loop 8 _ = pure () loop n v = do - let -- equivelent: - -- (p, q) = v `divMod` (2 ^ (8 :: Int)) - p = shift v (-8) - q = v .&. complement (shift p 8) + let + -- equivelent: + -- (p, q) = v `divMod` (2 ^ (8 :: Int)) + p = shift v (-8) + q = v .&. complement (shift p 8) writeByteArray mba (8 * (offset + 1) - n - 1) (fromIntegral q :: Word8) loop (n + 1) p @@ -109,13 +110,13 @@ asciiWord8ToWord8 b = b - fromIntegral (C.ord '0') newHeaderFromTraceId :: ShortByteString -> ByteString newHeaderFromTraceId (SBI.SBS ba) = let w64 = indexByteArrayNbo (ByteArray ba) 1 - in showWord64BS w64 + in showWord64BS w64 newHeaderFromSpanId :: ShortByteString -> ByteString newHeaderFromSpanId (SBI.SBS ba) = let w64 = indexByteArrayNbo (ByteArray ba) 0 - in showWord64BS w64 + in showWord64BS w64 indexByteArrayNbo :: ByteArray -> Int -> Word64 diff --git a/propagators/datadog/old-src/String.hs b/propagators/datadog/old-src/String.hs index 481af297..ea19f5f5 100644 --- a/propagators/datadog/old-src/String.hs +++ b/propagators/datadog/old-src/String.hs @@ -30,7 +30,7 @@ convertWord64ToBinaryByteString = toWord8s acc 0 = acc toWord8s acc n = let (p, q) = n `divMod` (2 ^ (8 :: Int)) - in toWord8s (fromIntegral q : acc) p + in toWord8s (fromIntegral q : acc) p fillLeadingZeros :: Word -> ByteString -> ByteString diff --git a/propagators/datadog/src/OpenTelemetry/Propagator/Datadog/Internal.hs b/propagators/datadog/src/OpenTelemetry/Propagator/Datadog/Internal.hs index 19aea551..826f6b15 100644 --- a/propagators/datadog/src/OpenTelemetry/Propagator/Datadog/Internal.hs +++ b/propagators/datadog/src/OpenTelemetry/Propagator/Datadog/Internal.hs @@ -46,7 +46,7 @@ newTraceIdFromHeader newTraceIdFromHeader bs = let w64 = readWord64BS bs builder = BB.word64BE 0 <> BB.word64BE w64 - in SB.toShort $ BL.toStrict $ BB.toLazyByteString builder + in SB.toShort $ BL.toStrict $ BB.toLazyByteString builder newSpanIdFromHeader @@ -57,7 +57,7 @@ newSpanIdFromHeader newSpanIdFromHeader bs = let w64 = readWord64BS bs builder = BB.word64BE w64 - in SB.toShort $ BL.toStrict $ BB.toLazyByteString builder + in SB.toShort $ BL.toStrict $ BB.toLazyByteString builder readWord64BS :: ByteString -> Word64 @@ -88,7 +88,7 @@ newHeaderFromTraceId -- ^ ASCII text of 64-bit integer newHeaderFromTraceId (SBI.SBS ba) = let w64 = indexByteArrayNbo (ByteArray ba) 1 - in showWord64BS w64 + in showWord64BS w64 newHeaderFromSpanId @@ -98,7 +98,7 @@ newHeaderFromSpanId -- ^ ASCII text of 64-bit integer newHeaderFromSpanId (SBI.SBS ba) = let w64 = indexByteArrayNbo (ByteArray ba) 0 - in showWord64BS w64 + in showWord64BS w64 -- | Read 'ByteArray' to 'Word64' with network-byte-order.