{- 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 Proto.Opentelemetry.Proto.Collector.Trace.V1.TraceService (
        TraceService(..), 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 Proto.Opentelemetry.Proto.Trace.V1.Trace
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Collector.Trace.V1.TraceService_Fields.resourceSpans' @:: Lens' ExportTraceServiceRequest [Proto.Opentelemetry.Proto.Trace.V1.Trace.ResourceSpans]@
         * 'Proto.Opentelemetry.Proto.Collector.Trace.V1.TraceService_Fields.vec'resourceSpans' @:: Lens' ExportTraceServiceRequest (Data.Vector.Vector Proto.Opentelemetry.Proto.Trace.V1.Trace.ResourceSpans)@ -}
data ExportTraceServiceRequest
  = ExportTraceServiceRequest'_constructor {ExportTraceServiceRequest -> Vector ResourceSpans
_ExportTraceServiceRequest'resourceSpans :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.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
/= :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
$c/= :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
== :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
$c== :: 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
min :: ExportTraceServiceRequest
-> ExportTraceServiceRequest -> ExportTraceServiceRequest
$cmin :: ExportTraceServiceRequest
-> ExportTraceServiceRequest -> ExportTraceServiceRequest
max :: ExportTraceServiceRequest
-> ExportTraceServiceRequest -> ExportTraceServiceRequest
$cmax :: ExportTraceServiceRequest
-> ExportTraceServiceRequest -> ExportTraceServiceRequest
>= :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Bool
$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
compare :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Ordering
$ccompare :: ExportTraceServiceRequest -> ExportTraceServiceRequest -> Ordering
$cp1Ord :: Eq 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" [Proto.Opentelemetry.Proto.Trace.V1.Trace.ResourceSpans] where
  fieldOf :: 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 :: Vector ResourceSpans
_ExportTraceServiceRequest'resourceSpans = Vector 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 Proto.Opentelemetry.Proto.Trace.V1.Trace.ResourceSpans) where
  fieldOf :: 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 :: Vector ResourceSpans
_ExportTraceServiceRequest'resourceSpans = Vector 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 Proto.Opentelemetry.Proto.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 s a (f :: * -> *).
(HasField s "resourceSpans" a, Functor f) =>
(a -> f a) -> s -> f s
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 :: LensLike' f 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 :: FieldSet
_ExportTraceServiceRequest'_unknownFields = FieldSet
y__})
  defMessage :: ExportTraceServiceRequest
defMessage
    = ExportTraceServiceRequest'_constructor :: Vector ResourceSpans -> FieldSet -> ExportTraceServiceRequest
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 Proto.Opentelemetry.Proto.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 (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
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 (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
                           forall msg. Message msg => Lens' msg 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 s a (f :: * -> *).
(HasField s "vec'resourceSpans" a, Functor f) =>
(a -> f a) -> s -> f s
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
                                     forall msg. Message msg => Lens' msg 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)
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 s a (f :: * -> *).
(HasField s "vec'resourceSpans" a, Functor f) =>
(a -> f a) -> s -> f s
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
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 :
      -}
data ExportTraceServiceResponse
  = ExportTraceServiceResponse'_constructor {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
/= :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
$c/= :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
== :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
$c== :: 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
min :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> ExportTraceServiceResponse
$cmin :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> ExportTraceServiceResponse
max :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> ExportTraceServiceResponse
$cmax :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> ExportTraceServiceResponse
>= :: ExportTraceServiceResponse -> ExportTraceServiceResponse -> Bool
$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
compare :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> Ordering
$ccompare :: ExportTraceServiceResponse
-> ExportTraceServiceResponse -> Ordering
$cp1Ord :: Eq 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.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"
  packedFileDescriptor :: Proxy ExportTraceServiceResponse -> ByteString
packedFileDescriptor Proxy ExportTraceServiceResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExportTraceServiceResponse)
fieldsByTag = let in [(Tag, FieldDescriptor ExportTraceServiceResponse)]
-> Map Tag (FieldDescriptor ExportTraceServiceResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: LensLike' f 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 :: FieldSet
_ExportTraceServiceResponse'_unknownFields = FieldSet
y__})
  defMessage :: ExportTraceServiceResponse
defMessage
    = ExportTraceServiceResponse'_constructor :: FieldSet -> ExportTraceServiceResponse
ExportTraceServiceResponse'_constructor
        {_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 (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
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 (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
                           forall msg. Message msg => Lens' msg 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
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
                                     forall msg. Message msg => Lens' msg 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
        -> 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
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__) ()
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\"\FS\n\
    \\SUBExportTraceServiceResponse2\162\SOH\n\
    \\fTraceService\DC2\145\SOH\n\
    \\ACKExport\DC2A.opentelemetry.proto.collector.trace.v1.ExportTraceServiceRequest\SUBB.opentelemetry.proto.collector.trace.v1.ExportTraceServiceResponse\"\NULB\137\SOH\n\
    \)io.opentelemetry.proto.collector.trace.v1B\DC1TraceServiceProtoP\SOHZGgithub.com/open-telemetry/opentelemetry-proto/gen/go/collector/trace/v1J\160\f\n\
    \\ACK\DC2\EOT\SO\NUL,\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\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\DC4\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\NAK\NULB\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\NAK\NULB\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SYN\NUL2\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\SYN\NUL2\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETB\NUL^\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\ETB\NUL^\n\
    \\245\SOH\n\
    \\STX\ACK\NUL\DC2\EOT\FS\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\FS\b\DC4\n\
    \y\n\
    \\EOT\ACK\NUL\STX\NUL\DC2\ETX\US\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\US\ACK\f\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\US\r&\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\US1K\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\"b\ACKproto3"