{-# 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
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__) ())
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"