{- This file was auto-generated from opentelemetry/proto/collector/trace/v1/trace_service.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module OTel.SDK.OTLP.Bindings.Collector.Trace.V1.TraceService (
        TraceService(..), ExportTracePartialSuccess(),
        ExportTraceServiceRequest(), ExportTraceServiceResponse()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified OTel.SDK.OTLP.Bindings.Trace.V1.Trace
{- | Fields :
     
         * 'OTel.SDK.OTLP.Bindings.Collector.Trace.V1.TraceService_Fields.rejectedSpans' @:: Lens' ExportTracePartialSuccess Data.Int.Int64@
         * 'OTel.SDK.OTLP.Bindings.Collector.Trace.V1.TraceService_Fields.errorMessage' @:: Lens' ExportTracePartialSuccess Data.Text.Text@ -}
data ExportTracePartialSuccess
  = ExportTracePartialSuccess'_constructor {ExportTracePartialSuccess -> Int64
_ExportTracePartialSuccess'rejectedSpans :: !Data.Int.Int64,
                                            ExportTracePartialSuccess -> Text
_ExportTracePartialSuccess'errorMessage :: !Data.Text.Text,
                                            ExportTracePartialSuccess -> FieldSet
_ExportTracePartialSuccess'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
(ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool)
-> (ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool)
-> Eq ExportTracePartialSuccess
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
== :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
$c/= :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
/= :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
Prelude.Eq, Eq ExportTracePartialSuccess
Eq ExportTracePartialSuccess =>
(ExportTracePartialSuccess
 -> ExportTracePartialSuccess -> Ordering)
-> (ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool)
-> (ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool)
-> (ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool)
-> (ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool)
-> (ExportTracePartialSuccess
    -> ExportTracePartialSuccess -> ExportTracePartialSuccess)
-> (ExportTracePartialSuccess
    -> ExportTracePartialSuccess -> ExportTracePartialSuccess)
-> Ord ExportTracePartialSuccess
ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
ExportTracePartialSuccess -> ExportTracePartialSuccess -> Ordering
ExportTracePartialSuccess
-> ExportTracePartialSuccess -> ExportTracePartialSuccess
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Ordering
compare :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Ordering
$c< :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
< :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
$c<= :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
<= :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
$c> :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
> :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
$c>= :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
>= :: ExportTracePartialSuccess -> ExportTracePartialSuccess -> Bool
$cmax :: ExportTracePartialSuccess
-> ExportTracePartialSuccess -> ExportTracePartialSuccess
max :: ExportTracePartialSuccess
-> ExportTracePartialSuccess -> ExportTracePartialSuccess
$cmin :: ExportTracePartialSuccess
-> ExportTracePartialSuccess -> ExportTracePartialSuccess
min :: ExportTracePartialSuccess
-> ExportTracePartialSuccess -> ExportTracePartialSuccess
Prelude.Ord)
instance Prelude.Show ExportTracePartialSuccess where
  showsPrec :: Int -> ExportTracePartialSuccess -> ShowS
showsPrec Int
_ ExportTracePartialSuccess
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExportTracePartialSuccess -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExportTracePartialSuccess
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExportTracePartialSuccess "rejectedSpans" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rejectedSpans"
-> (Int64 -> f Int64)
-> ExportTracePartialSuccess
-> f ExportTracePartialSuccess
fieldOf Proxy# "rejectedSpans"
_
    = ((Int64 -> f Int64)
 -> ExportTracePartialSuccess -> f ExportTracePartialSuccess)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ExportTracePartialSuccess
-> f ExportTracePartialSuccess
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportTracePartialSuccess -> Int64)
-> (ExportTracePartialSuccess
    -> Int64 -> ExportTracePartialSuccess)
-> Lens
     ExportTracePartialSuccess ExportTracePartialSuccess Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportTracePartialSuccess -> Int64
_ExportTracePartialSuccess'rejectedSpans
           (\ ExportTracePartialSuccess
x__ Int64
y__
              -> ExportTracePartialSuccess
x__ {_ExportTracePartialSuccess'rejectedSpans = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExportTracePartialSuccess "errorMessage" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "errorMessage"
-> (Text -> f Text)
-> ExportTracePartialSuccess
-> f ExportTracePartialSuccess
fieldOf Proxy# "errorMessage"
_
    = ((Text -> f Text)
 -> ExportTracePartialSuccess -> f ExportTracePartialSuccess)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ExportTracePartialSuccess
-> f ExportTracePartialSuccess
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportTracePartialSuccess -> Text)
-> (ExportTracePartialSuccess -> Text -> ExportTracePartialSuccess)
-> Lens
     ExportTracePartialSuccess ExportTracePartialSuccess Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportTracePartialSuccess -> Text
_ExportTracePartialSuccess'errorMessage
           (\ ExportTracePartialSuccess
x__ Text
y__ -> ExportTracePartialSuccess
x__ {_ExportTracePartialSuccess'errorMessage = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExportTracePartialSuccess where
  messageName :: Proxy ExportTracePartialSuccess -> Text
messageName Proxy ExportTracePartialSuccess
_
    = String -> Text
Data.Text.pack
        String
"opentelemetry.proto.collector.trace.v1.ExportTracePartialSuccess"
  packedMessageDescriptor :: Proxy ExportTracePartialSuccess -> ByteString
packedMessageDescriptor Proxy ExportTracePartialSuccess
_
    = ByteString
"\n\
      \\EMExportTracePartialSuccess\DC2%\n\
      \\SOrejected_spans\CAN\SOH \SOH(\ETXR\rrejectedSpans\DC2#\n\
      \\rerror_message\CAN\STX \SOH(\tR\ferrorMessage"
  packedFileDescriptor :: Proxy ExportTracePartialSuccess -> ByteString
packedFileDescriptor Proxy ExportTracePartialSuccess
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExportTracePartialSuccess)
fieldsByTag
    = let
        rejectedSpans__field_descriptor :: FieldDescriptor ExportTracePartialSuccess
rejectedSpans__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor ExportTracePartialSuccess Int64
-> FieldDescriptor ExportTracePartialSuccess
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"rejected_spans"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens
     ExportTracePartialSuccess ExportTracePartialSuccess Int64 Int64
-> FieldAccessor ExportTracePartialSuccess Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rejectedSpans")) ::
              Data.ProtoLens.FieldDescriptor ExportTracePartialSuccess
        errorMessage__field_descriptor :: FieldDescriptor ExportTracePartialSuccess
errorMessage__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ExportTracePartialSuccess Text
-> FieldDescriptor ExportTracePartialSuccess
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"error_message"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     ExportTracePartialSuccess ExportTracePartialSuccess Text Text
-> FieldAccessor ExportTracePartialSuccess Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errorMessage")) ::
              Data.ProtoLens.FieldDescriptor ExportTracePartialSuccess
      in
        [(Tag, FieldDescriptor ExportTracePartialSuccess)]
-> Map Tag (FieldDescriptor ExportTracePartialSuccess)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExportTracePartialSuccess
rejectedSpans__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExportTracePartialSuccess
errorMessage__field_descriptor)]
  unknownFields :: Lens' ExportTracePartialSuccess FieldSet
unknownFields
    = (ExportTracePartialSuccess -> FieldSet)
-> (ExportTracePartialSuccess
    -> FieldSet -> ExportTracePartialSuccess)
-> Lens' ExportTracePartialSuccess FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExportTracePartialSuccess -> FieldSet
_ExportTracePartialSuccess'_unknownFields
        (\ ExportTracePartialSuccess
x__ FieldSet
y__
           -> ExportTracePartialSuccess
x__ {_ExportTracePartialSuccess'_unknownFields = y__})
  defMessage :: ExportTracePartialSuccess
defMessage
    = ExportTracePartialSuccess'_constructor
        {_ExportTracePartialSuccess'rejectedSpans :: Int64
_ExportTracePartialSuccess'rejectedSpans = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExportTracePartialSuccess'errorMessage :: Text
_ExportTracePartialSuccess'errorMessage = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExportTracePartialSuccess'_unknownFields :: FieldSet
_ExportTracePartialSuccess'_unknownFields = []}
  parseMessage :: Parser ExportTracePartialSuccess
parseMessage
    = let
        loop ::
          ExportTracePartialSuccess
          -> Data.ProtoLens.Encoding.Bytes.Parser ExportTracePartialSuccess
        loop :: ExportTracePartialSuccess -> Parser ExportTracePartialSuccess
loop ExportTracePartialSuccess
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ExportTracePartialSuccess -> Parser ExportTracePartialSuccess
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ExportTracePartialSuccess
  ExportTracePartialSuccess
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ExportTracePartialSuccess
-> ExportTracePartialSuccess
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ExportTracePartialSuccess FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportTracePartialSuccess FieldSet
Setter
  ExportTracePartialSuccess
  ExportTracePartialSuccess
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ExportTracePartialSuccess
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"rejected_spans"
                                ExportTracePartialSuccess -> Parser ExportTracePartialSuccess
loop
                                  (Setter
  ExportTracePartialSuccess ExportTracePartialSuccess Int64 Int64
-> Int64 -> ExportTracePartialSuccess -> ExportTracePartialSuccess
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rejectedSpans") Int64
y ExportTracePartialSuccess
x)
                        Word64
18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       String
"error_message"
                                ExportTracePartialSuccess -> Parser ExportTracePartialSuccess
loop
                                  (Setter
  ExportTracePartialSuccess ExportTracePartialSuccess Text Text
-> Text -> ExportTracePartialSuccess -> ExportTracePartialSuccess
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errorMessage") Text
y ExportTracePartialSuccess
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ExportTracePartialSuccess -> Parser ExportTracePartialSuccess
loop
                                  (Setter
  ExportTracePartialSuccess
  ExportTracePartialSuccess
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ExportTracePartialSuccess
-> ExportTracePartialSuccess
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ExportTracePartialSuccess FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportTracePartialSuccess FieldSet
Setter
  ExportTracePartialSuccess
  ExportTracePartialSuccess
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExportTracePartialSuccess
x)
      in
        Parser ExportTracePartialSuccess
-> String -> Parser ExportTracePartialSuccess
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ExportTracePartialSuccess -> Parser ExportTracePartialSuccess
loop ExportTracePartialSuccess
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ExportTracePartialSuccess"
  buildMessage :: ExportTracePartialSuccess -> Builder
buildMessage
    = \ ExportTracePartialSuccess
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int64
_v
                  = FoldLike
  Int64
  ExportTracePartialSuccess
  ExportTracePartialSuccess
  Int64
  Int64
-> ExportTracePartialSuccess -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rejectedSpans") ExportTracePartialSuccess
_x
              in
                if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v
                     = FoldLike
  Text ExportTracePartialSuccess ExportTracePartialSuccess Text Text
-> ExportTracePartialSuccess -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errorMessage") ExportTracePartialSuccess
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ExportTracePartialSuccess
  ExportTracePartialSuccess
  FieldSet
  FieldSet
-> ExportTracePartialSuccess -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ExportTracePartialSuccess
  ExportTracePartialSuccess
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportTracePartialSuccess FieldSet
Data.ProtoLens.unknownFields ExportTracePartialSuccess
_x)))
instance Control.DeepSeq.NFData ExportTracePartialSuccess where
  rnf :: ExportTracePartialSuccess -> ()
rnf
    = \ ExportTracePartialSuccess
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExportTracePartialSuccess -> FieldSet
_ExportTracePartialSuccess'_unknownFields ExportTracePartialSuccess
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExportTracePartialSuccess -> Int64
_ExportTracePartialSuccess'rejectedSpans ExportTracePartialSuccess
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ExportTracePartialSuccess -> Text
_ExportTracePartialSuccess'errorMessage ExportTracePartialSuccess
x__) ()))
{- | Fields :
     
         * 'OTel.SDK.OTLP.Bindings.Collector.Trace.V1.TraceService_Fields.resourceSpans' @:: Lens' ExportTraceServiceRequest [OTel.SDK.OTLP.Bindings.Trace.V1.Trace.ResourceSpans]@
         * 'OTel.SDK.OTLP.Bindings.Collector.Trace.V1.TraceService_Fields.vec'resourceSpans' @:: Lens' ExportTraceServiceRequest (Data.Vector.Vector OTel.SDK.OTLP.Bindings.Trace.V1.Trace.ResourceSpans)@ -}
data ExportTraceServiceRequest
  = ExportTraceServiceRequest'_constructor {ExportTraceServiceRequest -> Vector ResourceSpans
_ExportTraceServiceRequest'resourceSpans :: !(Data.Vector.Vector OTel.SDK.OTLP.Bindings.Trace.V1.Trace.ResourceSpans),
                                            ExportTraceServiceRequest -> FieldSet
_ExportTraceServiceRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
(ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool)
-> (ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool)
-> Eq ExportTraceServiceRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
== :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
$c/= :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
/= :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
Prelude.Eq, Eq ExportTraceServiceRequest
Eq ExportTraceServiceRequest =>
(ExportTraceServiceRequest
 -> ExportTraceServiceRequest -> Ordering)
-> (ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool)
-> (ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool)
-> (ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool)
-> (ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool)
-> (ExportTraceServiceRequest
    -> ExportTraceServiceRequest -> ExportTraceServiceRequest)
-> (ExportTraceServiceRequest
    -> ExportTraceServiceRequest -> ExportTraceServiceRequest)
-> Ord ExportTraceServiceRequest
ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
ExportTraceServiceRequest -> ExportTraceServiceRequest -> Ordering
ExportTraceServiceRequest
-> ExportTraceServiceRequest -> ExportTraceServiceRequest
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Ordering
compare :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Ordering
$c< :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
< :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
$c<= :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
<= :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
$c> :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
> :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
$c>= :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
>= :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
$cmax :: ExportTraceServiceRequest
-> ExportTraceServiceRequest -> ExportTraceServiceRequest
max :: ExportTraceServiceRequest
-> ExportTraceServiceRequest -> ExportTraceServiceRequest
$cmin :: ExportTraceServiceRequest
-> ExportTraceServiceRequest -> ExportTraceServiceRequest
min :: ExportTraceServiceRequest
-> ExportTraceServiceRequest -> ExportTraceServiceRequest
Prelude.Ord)
instance Prelude.Show ExportTraceServiceRequest where
  showsPrec :: Int -> ExportTraceServiceRequest -> ShowS
showsPrec Int
_ ExportTraceServiceRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExportTraceServiceRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExportTraceServiceRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExportTraceServiceRequest "resourceSpans" [OTel.SDK.OTLP.Bindings.Trace.V1.Trace.ResourceSpans] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "resourceSpans"
-> ([ResourceSpans] -> f [ResourceSpans])
-> ExportTraceServiceRequest
-> f ExportTraceServiceRequest
fieldOf Proxy# "resourceSpans"
_
    = ((Vector ResourceSpans -> f (Vector ResourceSpans))
 -> ExportTraceServiceRequest -> f ExportTraceServiceRequest)
-> (([ResourceSpans] -> f [ResourceSpans])
    -> Vector ResourceSpans -> f (Vector ResourceSpans))
-> ([ResourceSpans] -> f [ResourceSpans])
-> ExportTraceServiceRequest
-> f ExportTraceServiceRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportTraceServiceRequest -> Vector ResourceSpans)
-> (ExportTraceServiceRequest
    -> Vector ResourceSpans -> ExportTraceServiceRequest)
-> Lens
     ExportTraceServiceRequest
     ExportTraceServiceRequest
     (Vector ResourceSpans)
     (Vector ResourceSpans)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportTraceServiceRequest -> Vector ResourceSpans
_ExportTraceServiceRequest'resourceSpans
           (\ ExportTraceServiceRequest
x__ Vector ResourceSpans
y__
              -> ExportTraceServiceRequest
x__ {_ExportTraceServiceRequest'resourceSpans = y__}))
        ((Vector ResourceSpans -> [ResourceSpans])
-> (Vector ResourceSpans
    -> [ResourceSpans] -> Vector ResourceSpans)
-> Lens
     (Vector ResourceSpans)
     (Vector ResourceSpans)
     [ResourceSpans]
     [ResourceSpans]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ResourceSpans -> [ResourceSpans]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector ResourceSpans
_ [ResourceSpans]
y__ -> [ResourceSpans] -> Vector ResourceSpans
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ResourceSpans]
y__))
instance Data.ProtoLens.Field.HasField ExportTraceServiceRequest "vec'resourceSpans" (Data.Vector.Vector OTel.SDK.OTLP.Bindings.Trace.V1.Trace.ResourceSpans) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'resourceSpans"
-> (Vector ResourceSpans -> f (Vector ResourceSpans))
-> ExportTraceServiceRequest
-> f ExportTraceServiceRequest
fieldOf Proxy# "vec'resourceSpans"
_
    = ((Vector ResourceSpans -> f (Vector ResourceSpans))
 -> ExportTraceServiceRequest -> f ExportTraceServiceRequest)
-> ((Vector ResourceSpans -> f (Vector ResourceSpans))
    -> Vector ResourceSpans -> f (Vector ResourceSpans))
-> (Vector ResourceSpans -> f (Vector ResourceSpans))
-> ExportTraceServiceRequest
-> f ExportTraceServiceRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportTraceServiceRequest -> Vector ResourceSpans)
-> (ExportTraceServiceRequest
    -> Vector ResourceSpans -> ExportTraceServiceRequest)
-> Lens
     ExportTraceServiceRequest
     ExportTraceServiceRequest
     (Vector ResourceSpans)
     (Vector ResourceSpans)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportTraceServiceRequest -> Vector ResourceSpans
_ExportTraceServiceRequest'resourceSpans
           (\ ExportTraceServiceRequest
x__ Vector ResourceSpans
y__
              -> ExportTraceServiceRequest
x__ {_ExportTraceServiceRequest'resourceSpans = y__}))
        (Vector ResourceSpans -> f (Vector ResourceSpans))
-> Vector ResourceSpans -> f (Vector ResourceSpans)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExportTraceServiceRequest where
  messageName :: Proxy ExportTraceServiceRequest -> Text
messageName Proxy ExportTraceServiceRequest
_
    = String -> Text
Data.Text.pack
        String
"opentelemetry.proto.collector.trace.v1.ExportTraceServiceRequest"
  packedMessageDescriptor :: Proxy ExportTraceServiceRequest -> ByteString
packedMessageDescriptor Proxy ExportTraceServiceRequest
_
    = ByteString
"\n\
      \\EMExportTraceServiceRequest\DC2R\n\
      \\SOresource_spans\CAN\SOH \ETX(\v2+.opentelemetry.proto.trace.v1.ResourceSpansR\rresourceSpans"
  packedFileDescriptor :: Proxy ExportTraceServiceRequest -> ByteString
packedFileDescriptor Proxy ExportTraceServiceRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExportTraceServiceRequest)
fieldsByTag
    = let
        resourceSpans__field_descriptor :: FieldDescriptor ExportTraceServiceRequest
resourceSpans__field_descriptor
          = String
-> FieldTypeDescriptor ResourceSpans
-> FieldAccessor ExportTraceServiceRequest ResourceSpans
-> FieldDescriptor ExportTraceServiceRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"resource_spans"
              (MessageOrGroup -> FieldTypeDescriptor ResourceSpans
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor OTel.SDK.OTLP.Bindings.Trace.V1.Trace.ResourceSpans)
              (Packing
-> Lens' ExportTraceServiceRequest [ResourceSpans]
-> FieldAccessor ExportTraceServiceRequest ResourceSpans
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"resourceSpans")) ::
              Data.ProtoLens.FieldDescriptor ExportTraceServiceRequest
      in
        [(Tag, FieldDescriptor ExportTraceServiceRequest)]
-> Map Tag (FieldDescriptor ExportTraceServiceRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExportTraceServiceRequest
resourceSpans__field_descriptor)]
  unknownFields :: Lens' ExportTraceServiceRequest FieldSet
unknownFields
    = (ExportTraceServiceRequest -> FieldSet)
-> (ExportTraceServiceRequest
    -> FieldSet -> ExportTraceServiceRequest)
-> Lens' ExportTraceServiceRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExportTraceServiceRequest -> FieldSet
_ExportTraceServiceRequest'_unknownFields
        (\ ExportTraceServiceRequest
x__ FieldSet
y__
           -> ExportTraceServiceRequest
x__ {_ExportTraceServiceRequest'_unknownFields = y__})
  defMessage :: ExportTraceServiceRequest
defMessage
    = ExportTraceServiceRequest'_constructor
        {_ExportTraceServiceRequest'resourceSpans :: Vector ResourceSpans
_ExportTraceServiceRequest'resourceSpans = Vector ResourceSpans
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ExportTraceServiceRequest'_unknownFields :: FieldSet
_ExportTraceServiceRequest'_unknownFields = []}
  parseMessage :: Parser ExportTraceServiceRequest
parseMessage
    = let
        loop ::
          ExportTraceServiceRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld OTel.SDK.OTLP.Bindings.Trace.V1.Trace.ResourceSpans
             -> Data.ProtoLens.Encoding.Bytes.Parser ExportTraceServiceRequest
        loop :: ExportTraceServiceRequest
-> Growing Vector RealWorld ResourceSpans
-> Parser ExportTraceServiceRequest
loop ExportTraceServiceRequest
x Growing Vector RealWorld ResourceSpans
mutable'resourceSpans
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector ResourceSpans
frozen'resourceSpans <- IO (Vector ResourceSpans) -> Parser (Vector ResourceSpans)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                (Growing Vector (PrimState IO) ResourceSpans
-> IO (Vector ResourceSpans)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                   Growing Vector RealWorld ResourceSpans
Growing Vector (PrimState IO) ResourceSpans
mutable'resourceSpans)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ExportTraceServiceRequest -> Parser ExportTraceServiceRequest
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ExportTraceServiceRequest
  ExportTraceServiceRequest
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ExportTraceServiceRequest
-> ExportTraceServiceRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ExportTraceServiceRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportTraceServiceRequest FieldSet
Setter
  ExportTraceServiceRequest
  ExportTraceServiceRequest
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ExportTraceServiceRequest
  ExportTraceServiceRequest
  (Vector ResourceSpans)
  (Vector ResourceSpans)
-> Vector ResourceSpans
-> ExportTraceServiceRequest
-> ExportTraceServiceRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'resourceSpans")
                              Vector ResourceSpans
frozen'resourceSpans ExportTraceServiceRequest
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !ResourceSpans
y <- Parser ResourceSpans -> String -> Parser ResourceSpans
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser ResourceSpans -> Parser ResourceSpans
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser ResourceSpans
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"resource_spans"
                                Growing Vector RealWorld ResourceSpans
v <- IO (Growing Vector RealWorld ResourceSpans)
-> Parser (Growing Vector RealWorld ResourceSpans)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) ResourceSpans
-> ResourceSpans
-> IO (Growing Vector (PrimState IO) ResourceSpans)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld ResourceSpans
Growing Vector (PrimState IO) ResourceSpans
mutable'resourceSpans ResourceSpans
y)
                                ExportTraceServiceRequest
-> Growing Vector RealWorld ResourceSpans
-> Parser ExportTraceServiceRequest
loop ExportTraceServiceRequest
x Growing Vector RealWorld ResourceSpans
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ExportTraceServiceRequest
-> Growing Vector RealWorld ResourceSpans
-> Parser ExportTraceServiceRequest
loop
                                  (Setter
  ExportTraceServiceRequest
  ExportTraceServiceRequest
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ExportTraceServiceRequest
-> ExportTraceServiceRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ExportTraceServiceRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportTraceServiceRequest FieldSet
Setter
  ExportTraceServiceRequest
  ExportTraceServiceRequest
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExportTraceServiceRequest
x)
                                  Growing Vector RealWorld ResourceSpans
mutable'resourceSpans
      in
        Parser ExportTraceServiceRequest
-> String -> Parser ExportTraceServiceRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld ResourceSpans
mutable'resourceSpans <- IO (Growing Vector RealWorld ResourceSpans)
-> Parser (Growing Vector RealWorld ResourceSpans)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         IO (Growing Vector RealWorld ResourceSpans)
IO (Growing Vector (PrimState IO) ResourceSpans)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ExportTraceServiceRequest
-> Growing Vector RealWorld ResourceSpans
-> Parser ExportTraceServiceRequest
loop ExportTraceServiceRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ResourceSpans
mutable'resourceSpans)
          String
"ExportTraceServiceRequest"
  buildMessage :: ExportTraceServiceRequest -> Builder
buildMessage
    = \ ExportTraceServiceRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((ResourceSpans -> Builder) -> Vector ResourceSpans -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ ResourceSpans
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (ResourceSpans -> ByteString) -> ResourceSpans -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           ResourceSpans -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResourceSpans
_v))
                (FoldLike
  (Vector ResourceSpans)
  ExportTraceServiceRequest
  ExportTraceServiceRequest
  (Vector ResourceSpans)
  (Vector ResourceSpans)
-> ExportTraceServiceRequest -> Vector ResourceSpans
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'resourceSpans") ExportTraceServiceRequest
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  ExportTraceServiceRequest
  ExportTraceServiceRequest
  FieldSet
  FieldSet
-> ExportTraceServiceRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ExportTraceServiceRequest
  ExportTraceServiceRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportTraceServiceRequest FieldSet
Data.ProtoLens.unknownFields ExportTraceServiceRequest
_x))
instance Control.DeepSeq.NFData ExportTraceServiceRequest where
  rnf :: ExportTraceServiceRequest -> ()
rnf
    = \ ExportTraceServiceRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExportTraceServiceRequest -> FieldSet
_ExportTraceServiceRequest'_unknownFields ExportTraceServiceRequest
x__)
             (Vector ResourceSpans -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExportTraceServiceRequest -> Vector ResourceSpans
_ExportTraceServiceRequest'resourceSpans ExportTraceServiceRequest
x__) ())
{- | Fields :
     
         * 'OTel.SDK.OTLP.Bindings.Collector.Trace.V1.TraceService_Fields.partialSuccess' @:: Lens' ExportTraceServiceResponse ExportTracePartialSuccess@
         * 'OTel.SDK.OTLP.Bindings.Collector.Trace.V1.TraceService_Fields.maybe'partialSuccess' @:: Lens' ExportTraceServiceResponse (Prelude.Maybe ExportTracePartialSuccess)@ -}
data ExportTraceServiceResponse
  = ExportTraceServiceResponse'_constructor {ExportTraceServiceResponse -> Maybe ExportTracePartialSuccess
_ExportTraceServiceResponse'partialSuccess :: !(Prelude.Maybe ExportTracePartialSuccess),
                                             ExportTraceServiceResponse -> FieldSet
_ExportTraceServiceResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
(ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool)
-> (ExportTraceServiceResponse
    -> ExportTraceServiceResponse -> Bool)
-> Eq ExportTraceServiceResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
== :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
$c/= :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
/= :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
Prelude.Eq, Eq ExportTraceServiceResponse
Eq ExportTraceServiceResponse =>
(ExportTraceServiceResponse
 -> ExportTraceServiceResponse -> Ordering)
-> (ExportTraceServiceResponse
    -> ExportTraceServiceResponse -> Bool)
-> (ExportTraceServiceResponse
    -> ExportTraceServiceResponse -> Bool)
-> (ExportTraceServiceResponse
    -> ExportTraceServiceResponse -> Bool)
-> (ExportTraceServiceResponse
    -> ExportTraceServiceResponse -> Bool)
-> (ExportTraceServiceResponse
    -> ExportTraceServiceResponse -> ExportTraceServiceResponse)
-> (ExportTraceServiceResponse
    -> ExportTraceServiceResponse -> ExportTraceServiceResponse)
-> Ord ExportTraceServiceResponse
ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
ExportTraceServiceResponse
-> ExportTraceServiceResponse -> Ordering
ExportTraceServiceResponse
-> ExportTraceServiceResponse -> ExportTraceServiceResponse
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> Ordering
compare :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> Ordering
$c< :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
< :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
$c<= :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
<= :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
$c> :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
> :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
$c>= :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
>= :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
$cmax :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> ExportTraceServiceResponse
max :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> ExportTraceServiceResponse
$cmin :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> ExportTraceServiceResponse
min :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> ExportTraceServiceResponse
Prelude.Ord)
instance Prelude.Show ExportTraceServiceResponse where
  showsPrec :: Int -> ExportTraceServiceResponse -> ShowS
showsPrec Int
_ ExportTraceServiceResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExportTraceServiceResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExportTraceServiceResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExportTraceServiceResponse "partialSuccess" ExportTracePartialSuccess where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "partialSuccess"
-> (ExportTracePartialSuccess -> f ExportTracePartialSuccess)
-> ExportTraceServiceResponse
-> f ExportTraceServiceResponse
fieldOf Proxy# "partialSuccess"
_
    = ((Maybe ExportTracePartialSuccess
  -> f (Maybe ExportTracePartialSuccess))
 -> ExportTraceServiceResponse -> f ExportTraceServiceResponse)
-> ((ExportTracePartialSuccess -> f ExportTracePartialSuccess)
    -> Maybe ExportTracePartialSuccess
    -> f (Maybe ExportTracePartialSuccess))
-> (ExportTracePartialSuccess -> f ExportTracePartialSuccess)
-> ExportTraceServiceResponse
-> f ExportTraceServiceResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportTraceServiceResponse -> Maybe ExportTracePartialSuccess)
-> (ExportTraceServiceResponse
    -> Maybe ExportTracePartialSuccess -> ExportTraceServiceResponse)
-> Lens
     ExportTraceServiceResponse
     ExportTraceServiceResponse
     (Maybe ExportTracePartialSuccess)
     (Maybe ExportTracePartialSuccess)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportTraceServiceResponse -> Maybe ExportTracePartialSuccess
_ExportTraceServiceResponse'partialSuccess
           (\ ExportTraceServiceResponse
x__ Maybe ExportTracePartialSuccess
y__
              -> ExportTraceServiceResponse
x__ {_ExportTraceServiceResponse'partialSuccess = y__}))
        (ExportTracePartialSuccess
-> Lens'
     (Maybe ExportTracePartialSuccess) ExportTracePartialSuccess
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExportTracePartialSuccess
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ExportTraceServiceResponse "maybe'partialSuccess" (Prelude.Maybe ExportTracePartialSuccess) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'partialSuccess"
-> (Maybe ExportTracePartialSuccess
    -> f (Maybe ExportTracePartialSuccess))
-> ExportTraceServiceResponse
-> f ExportTraceServiceResponse
fieldOf Proxy# "maybe'partialSuccess"
_
    = ((Maybe ExportTracePartialSuccess
  -> f (Maybe ExportTracePartialSuccess))
 -> ExportTraceServiceResponse -> f ExportTraceServiceResponse)
-> ((Maybe ExportTracePartialSuccess
     -> f (Maybe ExportTracePartialSuccess))
    -> Maybe ExportTracePartialSuccess
    -> f (Maybe ExportTracePartialSuccess))
-> (Maybe ExportTracePartialSuccess
    -> f (Maybe ExportTracePartialSuccess))
-> ExportTraceServiceResponse
-> f ExportTraceServiceResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportTraceServiceResponse -> Maybe ExportTracePartialSuccess)
-> (ExportTraceServiceResponse
    -> Maybe ExportTracePartialSuccess -> ExportTraceServiceResponse)
-> Lens
     ExportTraceServiceResponse
     ExportTraceServiceResponse
     (Maybe ExportTracePartialSuccess)
     (Maybe ExportTracePartialSuccess)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportTraceServiceResponse -> Maybe ExportTracePartialSuccess
_ExportTraceServiceResponse'partialSuccess
           (\ ExportTraceServiceResponse
x__ Maybe ExportTracePartialSuccess
y__
              -> ExportTraceServiceResponse
x__ {_ExportTraceServiceResponse'partialSuccess = y__}))
        (Maybe ExportTracePartialSuccess
 -> f (Maybe ExportTracePartialSuccess))
-> Maybe ExportTracePartialSuccess
-> f (Maybe ExportTracePartialSuccess)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExportTraceServiceResponse where
  messageName :: Proxy ExportTraceServiceResponse -> Text
messageName Proxy ExportTraceServiceResponse
_
    = String -> Text
Data.Text.pack
        String
"opentelemetry.proto.collector.trace.v1.ExportTraceServiceResponse"
  packedMessageDescriptor :: Proxy ExportTraceServiceResponse -> ByteString
packedMessageDescriptor Proxy ExportTraceServiceResponse
_
    = ByteString
"\n\
      \\SUBExportTraceServiceResponse\DC2j\n\
      \\SIpartial_success\CAN\SOH \SOH(\v2A.opentelemetry.proto.collector.trace.v1.ExportTracePartialSuccessR\SOpartialSuccess"
  packedFileDescriptor :: Proxy ExportTraceServiceResponse -> ByteString
packedFileDescriptor Proxy ExportTraceServiceResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExportTraceServiceResponse)
fieldsByTag
    = let
        partialSuccess__field_descriptor :: FieldDescriptor ExportTraceServiceResponse
partialSuccess__field_descriptor
          = String
-> FieldTypeDescriptor ExportTracePartialSuccess
-> FieldAccessor
     ExportTraceServiceResponse ExportTracePartialSuccess
-> FieldDescriptor ExportTraceServiceResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"partial_success"
              (MessageOrGroup -> FieldTypeDescriptor ExportTracePartialSuccess
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ExportTracePartialSuccess)
              (Lens
  ExportTraceServiceResponse
  ExportTraceServiceResponse
  (Maybe ExportTracePartialSuccess)
  (Maybe ExportTracePartialSuccess)
-> FieldAccessor
     ExportTraceServiceResponse ExportTracePartialSuccess
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'partialSuccess")) ::
              Data.ProtoLens.FieldDescriptor ExportTraceServiceResponse
      in
        [(Tag, FieldDescriptor ExportTraceServiceResponse)]
-> Map Tag (FieldDescriptor ExportTraceServiceResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExportTraceServiceResponse
partialSuccess__field_descriptor)]
  unknownFields :: Lens' ExportTraceServiceResponse FieldSet
unknownFields
    = (ExportTraceServiceResponse -> FieldSet)
-> (ExportTraceServiceResponse
    -> FieldSet -> ExportTraceServiceResponse)
-> Lens' ExportTraceServiceResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExportTraceServiceResponse -> FieldSet
_ExportTraceServiceResponse'_unknownFields
        (\ ExportTraceServiceResponse
x__ FieldSet
y__
           -> ExportTraceServiceResponse
x__ {_ExportTraceServiceResponse'_unknownFields = y__})
  defMessage :: ExportTraceServiceResponse
defMessage
    = ExportTraceServiceResponse'_constructor
        {_ExportTraceServiceResponse'partialSuccess :: Maybe ExportTracePartialSuccess
_ExportTraceServiceResponse'partialSuccess = Maybe ExportTracePartialSuccess
forall a. Maybe a
Prelude.Nothing,
         _ExportTraceServiceResponse'_unknownFields :: FieldSet
_ExportTraceServiceResponse'_unknownFields = []}
  parseMessage :: Parser ExportTraceServiceResponse
parseMessage
    = let
        loop ::
          ExportTraceServiceResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser ExportTraceServiceResponse
        loop :: ExportTraceServiceResponse -> Parser ExportTraceServiceResponse
loop ExportTraceServiceResponse
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ExportTraceServiceResponse -> Parser ExportTraceServiceResponse
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ExportTraceServiceResponse
  ExportTraceServiceResponse
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ExportTraceServiceResponse
-> ExportTraceServiceResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ExportTraceServiceResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportTraceServiceResponse FieldSet
Setter
  ExportTraceServiceResponse
  ExportTraceServiceResponse
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ExportTraceServiceResponse
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ExportTracePartialSuccess
y <- Parser ExportTracePartialSuccess
-> String -> Parser ExportTracePartialSuccess
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser ExportTracePartialSuccess
-> Parser ExportTracePartialSuccess
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ExportTracePartialSuccess
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"partial_success"
                                ExportTraceServiceResponse -> Parser ExportTraceServiceResponse
loop
                                  (Setter
  ExportTraceServiceResponse
  ExportTraceServiceResponse
  ExportTracePartialSuccess
  ExportTracePartialSuccess
-> ExportTracePartialSuccess
-> ExportTraceServiceResponse
-> ExportTraceServiceResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"partialSuccess") ExportTracePartialSuccess
y ExportTraceServiceResponse
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ExportTraceServiceResponse -> Parser ExportTraceServiceResponse
loop
                                  (Setter
  ExportTraceServiceResponse
  ExportTraceServiceResponse
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ExportTraceServiceResponse
-> ExportTraceServiceResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ExportTraceServiceResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportTraceServiceResponse FieldSet
Setter
  ExportTraceServiceResponse
  ExportTraceServiceResponse
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExportTraceServiceResponse
x)
      in
        Parser ExportTraceServiceResponse
-> String -> Parser ExportTraceServiceResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ExportTraceServiceResponse -> Parser ExportTraceServiceResponse
loop ExportTraceServiceResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ExportTraceServiceResponse"
  buildMessage :: ExportTraceServiceResponse -> Builder
buildMessage
    = \ ExportTraceServiceResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ExportTracePartialSuccess)
  ExportTraceServiceResponse
  ExportTraceServiceResponse
  (Maybe ExportTracePartialSuccess)
  (Maybe ExportTracePartialSuccess)
-> ExportTraceServiceResponse -> Maybe ExportTracePartialSuccess
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'partialSuccess") ExportTraceServiceResponse
_x
              of
                Maybe ExportTracePartialSuccess
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ExportTracePartialSuccess
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ExportTracePartialSuccess -> ByteString)
-> ExportTracePartialSuccess
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ExportTracePartialSuccess -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ExportTracePartialSuccess
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  ExportTraceServiceResponse
  ExportTraceServiceResponse
  FieldSet
  FieldSet
-> ExportTraceServiceResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ExportTraceServiceResponse
  ExportTraceServiceResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportTraceServiceResponse FieldSet
Data.ProtoLens.unknownFields ExportTraceServiceResponse
_x))
instance Control.DeepSeq.NFData ExportTraceServiceResponse where
  rnf :: ExportTraceServiceResponse -> ()
rnf
    = \ ExportTraceServiceResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExportTraceServiceResponse -> FieldSet
_ExportTraceServiceResponse'_unknownFields ExportTraceServiceResponse
x__)
             (Maybe ExportTracePartialSuccess -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExportTraceServiceResponse -> Maybe ExportTracePartialSuccess
_ExportTraceServiceResponse'partialSuccess ExportTraceServiceResponse
x__) ())
data TraceService = TraceService {}
instance Data.ProtoLens.Service.Types.Service TraceService where
  type ServiceName TraceService = "TraceService"
  type ServicePackage TraceService = "opentelemetry.proto.collector.trace.v1"
  type ServiceMethods TraceService = '["export"]
  packedServiceDescriptor :: Proxy TraceService -> ByteString
packedServiceDescriptor Proxy TraceService
_
    = ByteString
"\n\
      \\fTraceService\DC2\145\SOH\n\
      \\ACKExport\DC2A.opentelemetry.proto.collector.trace.v1.ExportTraceServiceRequest\SUBB.opentelemetry.proto.collector.trace.v1.ExportTraceServiceResponse\"\NUL"
instance Data.ProtoLens.Service.Types.HasMethodImpl TraceService "export" where
  type MethodName TraceService "export" = "Export"
  type MethodInput TraceService "export" = ExportTraceServiceRequest
  type MethodOutput TraceService "export" = ExportTraceServiceResponse
  type MethodStreamingType TraceService "export" = 'Data.ProtoLens.Service.Types.NonStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \:opentelemetry/proto/collector/trace/v1/trace_service.proto\DC2&opentelemetry.proto.collector.trace.v1\SUB(opentelemetry/proto/trace/v1/trace.proto\"o\n\
    \\EMExportTraceServiceRequest\DC2R\n\
    \\SOresource_spans\CAN\SOH \ETX(\v2+.opentelemetry.proto.trace.v1.ResourceSpansR\rresourceSpans\"\136\SOH\n\
    \\SUBExportTraceServiceResponse\DC2j\n\
    \\SIpartial_success\CAN\SOH \SOH(\v2A.opentelemetry.proto.collector.trace.v1.ExportTracePartialSuccessR\SOpartialSuccess\"g\n\
    \\EMExportTracePartialSuccess\DC2%\n\
    \\SOrejected_spans\CAN\SOH \SOH(\ETXR\rrejectedSpans\DC2#\n\
    \\rerror_message\CAN\STX \SOH(\tR\ferrorMessage2\162\SOH\n\
    \\fTraceService\DC2\145\SOH\n\
    \\ACKExport\DC2A.opentelemetry.proto.collector.trace.v1.ExportTraceServiceRequest\SUBB.opentelemetry.proto.collector.trace.v1.ExportTraceServiceResponse\"\NULB\156\SOH\n\
    \)io.opentelemetry.proto.collector.trace.v1B\DC1TraceServiceProtoP\SOHZ1go.opentelemetry.io/proto/otlp/collector/trace/v1\170\STX&OpenTelemetry.Proto.Collector.Trace.V1J\150\CAN\n\
    \\ACK\DC2\EOT\SO\NULN\SOH\n\
    \\200\EOT\n\
    \\SOH\f\DC2\ETX\SO\NUL\DC22\189\EOT Copyright 2019, OpenTelemetry Authors\n\
    \\n\
    \ Licensed under the Apache License, Version 2.0 (the \"License\");\n\
    \ you may not use this file except in compliance with the License.\n\
    \ You may obtain a copy of the License at\n\
    \\n\
    \     http://www.apache.org/licenses/LICENSE-2.0\n\
    \\n\
    \ Unless required by applicable law or agreed to in writing, software\n\
    \ distributed under the License is distributed on an \"AS IS\" BASIS,\n\
    \ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n\
    \ See the License for the specific language governing permissions and\n\
    \ limitations under the License.\n\
    \\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\DLE\NUL/\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\DC2\NUL2\n\
    \\b\n\
    \\SOH\b\DC2\ETX\DC4\NULC\n\
    \\t\n\
    \\STX\b%\DC2\ETX\DC4\NULC\n\
    \\b\n\
    \\SOH\b\DC2\ETX\NAK\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\NAK\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SYN\NULB\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\SYN\NULB\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETB\NUL2\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\ETB\NUL2\n\
    \\b\n\
    \\SOH\b\DC2\ETX\CAN\NULH\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\CAN\NULH\n\
    \\245\SOH\n\
    \\STX\ACK\NUL\DC2\EOT\GS\NUL!\SOH\SUB\232\SOH Service that can be used to push spans between one Application instrumented with\n\
    \ OpenTelemetry and a collector, or between a collector and a central collector (in this\n\
    \ case spans are sent/received to/from multiple Applications).\n\
    \\n\
    \\n\
    \\n\
    \\ETX\ACK\NUL\SOH\DC2\ETX\GS\b\DC4\n\
    \y\n\
    \\EOT\ACK\NUL\STX\NUL\DC2\ETX \STXO\SUBl For performance reasons, it is recommended to keep this RPC\n\
    \ alive for the entire life of the application.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX \ACK\f\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX \r&\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX 1K\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT#\NUL*\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX#\b!\n\
    \\208\STX\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX)\STXI\SUB\194\STX An array of ResourceSpans.\n\
    \ For data coming from a single resource this array will typically contain one\n\
    \ element. Intermediary nodes (such as OpenTelemetry Collector) that receive\n\
    \ data from multiple origins typically batch the data before forwarding further and\n\
    \ in that case this array will contain multiple elements.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\EOT\DC2\ETX)\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX)\v5\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX)6D\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX)GH\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT,\NUL=\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX,\b\"\n\
    \\148\ACK\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX<\STX0\SUB\134\ACK The details of a partially successful export request.\n\
    \\n\
    \ If the request is only partially accepted\n\
    \ (i.e. when the server accepts only parts of the data and rejects the rest)\n\
    \ the server MUST initialize the `partial_success` field and MUST\n\
    \ set the `rejected_<signal>` with the number of items it rejected.\n\
    \\n\
    \ Servers MAY also make use of the `partial_success` field to convey\n\
    \ warnings/suggestions to senders even when the request was fully accepted.\n\
    \ In such cases, the `rejected_<signal>` MUST have a value of `0` and\n\
    \ the `error_message` MUST be non-empty.\n\
    \\n\
    \ A `partial_success` message with an empty value (rejected_<signal> = 0 and\n\
    \ `error_message` = \"\") is equivalent to it not being set/present. Senders\n\
    \ SHOULD interpret it the same way as in the full success case.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX<\STX\ESC\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX<\FS+\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX<./\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT?\NULN\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX?\b!\n\
    \\143\SOH\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETXD\STX\ESC\SUB\129\SOH The number of rejected spans.\n\
    \\n\
    \ A `rejected_<signal>` field holding a `0` value indicates that the\n\
    \ request was fully accepted.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETXD\STX\a\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXD\b\SYN\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXD\EM\SUB\n\
    \\159\ETX\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETXM\STX\ESC\SUB\145\ETX A developer-facing human-readable message in English. It should be used\n\
    \ either to explain why the server rejected parts of the data during a partial\n\
    \ success or to convey warnings/suggestions during a full success. The message\n\
    \ should offer guidance on how users can address such issues.\n\
    \\n\
    \ error_message is an optional field. An error_message with an empty value\n\
    \ is equivalent to it not being set.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETXM\STX\b\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETXM\t\SYN\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETXM\EM\SUBb\ACKproto3"