{- This file was auto-generated from opentelemetry/proto/collector/logs/v1/logs_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.Logs.V1.LogsService (
        LogsService(..), ExportLogsServiceRequest(),
        ExportLogsServiceResponse()
    ) 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.Logs.V1.Logs
{- | Fields :
     
         * 'Proto.Opentelemetry.Proto.Collector.Logs.V1.LogsService_Fields.resourceLogs' @:: Lens' ExportLogsServiceRequest [Proto.Opentelemetry.Proto.Logs.V1.Logs.ResourceLogs]@
         * 'Proto.Opentelemetry.Proto.Collector.Logs.V1.LogsService_Fields.vec'resourceLogs' @:: Lens' ExportLogsServiceRequest (Data.Vector.Vector Proto.Opentelemetry.Proto.Logs.V1.Logs.ResourceLogs)@ -}
data ExportLogsServiceRequest
  = ExportLogsServiceRequest'_constructor {ExportLogsServiceRequest -> Vector ResourceLogs
_ExportLogsServiceRequest'resourceLogs :: !(Data.Vector.Vector Proto.Opentelemetry.Proto.Logs.V1.Logs.ResourceLogs),
                                           ExportLogsServiceRequest -> FieldSet
_ExportLogsServiceRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
(ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool)
-> (ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool)
-> Eq ExportLogsServiceRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
$c/= :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
== :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
$c== :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
Prelude.Eq, Eq ExportLogsServiceRequest
Eq ExportLogsServiceRequest
-> (ExportLogsServiceRequest
    -> ExportLogsServiceRequest -> Ordering)
-> (ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool)
-> (ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool)
-> (ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool)
-> (ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool)
-> (ExportLogsServiceRequest
    -> ExportLogsServiceRequest -> ExportLogsServiceRequest)
-> (ExportLogsServiceRequest
    -> ExportLogsServiceRequest -> ExportLogsServiceRequest)
-> Ord ExportLogsServiceRequest
ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
ExportLogsServiceRequest -> ExportLogsServiceRequest -> Ordering
ExportLogsServiceRequest
-> ExportLogsServiceRequest -> ExportLogsServiceRequest
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 :: ExportLogsServiceRequest
-> ExportLogsServiceRequest -> ExportLogsServiceRequest
$cmin :: ExportLogsServiceRequest
-> ExportLogsServiceRequest -> ExportLogsServiceRequest
max :: ExportLogsServiceRequest
-> ExportLogsServiceRequest -> ExportLogsServiceRequest
$cmax :: ExportLogsServiceRequest
-> ExportLogsServiceRequest -> ExportLogsServiceRequest
>= :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
$c>= :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
> :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
$c> :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
<= :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
$c<= :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
< :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
$c< :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
compare :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Ordering
$ccompare :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Ordering
$cp1Ord :: Eq ExportLogsServiceRequest
Prelude.Ord)
instance Prelude.Show ExportLogsServiceRequest where
  showsPrec :: Int -> ExportLogsServiceRequest -> ShowS
showsPrec Int
_ ExportLogsServiceRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExportLogsServiceRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExportLogsServiceRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExportLogsServiceRequest "resourceLogs" [Proto.Opentelemetry.Proto.Logs.V1.Logs.ResourceLogs] where
  fieldOf :: Proxy# "resourceLogs"
-> ([ResourceLogs] -> f [ResourceLogs])
-> ExportLogsServiceRequest
-> f ExportLogsServiceRequest
fieldOf Proxy# "resourceLogs"
_
    = ((Vector ResourceLogs -> f (Vector ResourceLogs))
 -> ExportLogsServiceRequest -> f ExportLogsServiceRequest)
-> (([ResourceLogs] -> f [ResourceLogs])
    -> Vector ResourceLogs -> f (Vector ResourceLogs))
-> ([ResourceLogs] -> f [ResourceLogs])
-> ExportLogsServiceRequest
-> f ExportLogsServiceRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportLogsServiceRequest -> Vector ResourceLogs)
-> (ExportLogsServiceRequest
    -> Vector ResourceLogs -> ExportLogsServiceRequest)
-> Lens
     ExportLogsServiceRequest
     ExportLogsServiceRequest
     (Vector ResourceLogs)
     (Vector ResourceLogs)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportLogsServiceRequest -> Vector ResourceLogs
_ExportLogsServiceRequest'resourceLogs
           (\ ExportLogsServiceRequest
x__ Vector ResourceLogs
y__ -> ExportLogsServiceRequest
x__ {_ExportLogsServiceRequest'resourceLogs :: Vector ResourceLogs
_ExportLogsServiceRequest'resourceLogs = Vector ResourceLogs
y__}))
        ((Vector ResourceLogs -> [ResourceLogs])
-> (Vector ResourceLogs -> [ResourceLogs] -> Vector ResourceLogs)
-> Lens
     (Vector ResourceLogs)
     (Vector ResourceLogs)
     [ResourceLogs]
     [ResourceLogs]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ResourceLogs -> [ResourceLogs]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector ResourceLogs
_ [ResourceLogs]
y__ -> [ResourceLogs] -> Vector ResourceLogs
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ResourceLogs]
y__))
instance Data.ProtoLens.Field.HasField ExportLogsServiceRequest "vec'resourceLogs" (Data.Vector.Vector Proto.Opentelemetry.Proto.Logs.V1.Logs.ResourceLogs) where
  fieldOf :: Proxy# "vec'resourceLogs"
-> (Vector ResourceLogs -> f (Vector ResourceLogs))
-> ExportLogsServiceRequest
-> f ExportLogsServiceRequest
fieldOf Proxy# "vec'resourceLogs"
_
    = ((Vector ResourceLogs -> f (Vector ResourceLogs))
 -> ExportLogsServiceRequest -> f ExportLogsServiceRequest)
-> ((Vector ResourceLogs -> f (Vector ResourceLogs))
    -> Vector ResourceLogs -> f (Vector ResourceLogs))
-> (Vector ResourceLogs -> f (Vector ResourceLogs))
-> ExportLogsServiceRequest
-> f ExportLogsServiceRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportLogsServiceRequest -> Vector ResourceLogs)
-> (ExportLogsServiceRequest
    -> Vector ResourceLogs -> ExportLogsServiceRequest)
-> Lens
     ExportLogsServiceRequest
     ExportLogsServiceRequest
     (Vector ResourceLogs)
     (Vector ResourceLogs)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportLogsServiceRequest -> Vector ResourceLogs
_ExportLogsServiceRequest'resourceLogs
           (\ ExportLogsServiceRequest
x__ Vector ResourceLogs
y__ -> ExportLogsServiceRequest
x__ {_ExportLogsServiceRequest'resourceLogs :: Vector ResourceLogs
_ExportLogsServiceRequest'resourceLogs = Vector ResourceLogs
y__}))
        (Vector ResourceLogs -> f (Vector ResourceLogs))
-> Vector ResourceLogs -> f (Vector ResourceLogs)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExportLogsServiceRequest where
  messageName :: Proxy ExportLogsServiceRequest -> Text
messageName Proxy ExportLogsServiceRequest
_
    = String -> Text
Data.Text.pack
        String
"opentelemetry.proto.collector.logs.v1.ExportLogsServiceRequest"
  packedMessageDescriptor :: Proxy ExportLogsServiceRequest -> ByteString
packedMessageDescriptor Proxy ExportLogsServiceRequest
_
    = ByteString
"\n\
      \\CANExportLogsServiceRequest\DC2N\n\
      \\rresource_logs\CAN\SOH \ETX(\v2).opentelemetry.proto.logs.v1.ResourceLogsR\fresourceLogs"
  packedFileDescriptor :: Proxy ExportLogsServiceRequest -> ByteString
packedFileDescriptor Proxy ExportLogsServiceRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExportLogsServiceRequest)
fieldsByTag
    = let
        resourceLogs__field_descriptor :: FieldDescriptor ExportLogsServiceRequest
resourceLogs__field_descriptor
          = String
-> FieldTypeDescriptor ResourceLogs
-> FieldAccessor ExportLogsServiceRequest ResourceLogs
-> FieldDescriptor ExportLogsServiceRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"resource_logs"
              (MessageOrGroup -> FieldTypeDescriptor ResourceLogs
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Opentelemetry.Proto.Logs.V1.Logs.ResourceLogs)
              (Packing
-> Lens' ExportLogsServiceRequest [ResourceLogs]
-> FieldAccessor ExportLogsServiceRequest ResourceLogs
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "resourceLogs" 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 @"resourceLogs")) ::
              Data.ProtoLens.FieldDescriptor ExportLogsServiceRequest
      in
        [(Tag, FieldDescriptor ExportLogsServiceRequest)]
-> Map Tag (FieldDescriptor ExportLogsServiceRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExportLogsServiceRequest
resourceLogs__field_descriptor)]
  unknownFields :: LensLike' f ExportLogsServiceRequest FieldSet
unknownFields
    = (ExportLogsServiceRequest -> FieldSet)
-> (ExportLogsServiceRequest
    -> FieldSet -> ExportLogsServiceRequest)
-> Lens' ExportLogsServiceRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExportLogsServiceRequest -> FieldSet
_ExportLogsServiceRequest'_unknownFields
        (\ ExportLogsServiceRequest
x__ FieldSet
y__ -> ExportLogsServiceRequest
x__ {_ExportLogsServiceRequest'_unknownFields :: FieldSet
_ExportLogsServiceRequest'_unknownFields = FieldSet
y__})
  defMessage :: ExportLogsServiceRequest
defMessage
    = ExportLogsServiceRequest'_constructor :: Vector ResourceLogs -> FieldSet -> ExportLogsServiceRequest
ExportLogsServiceRequest'_constructor
        {_ExportLogsServiceRequest'resourceLogs :: Vector ResourceLogs
_ExportLogsServiceRequest'resourceLogs = Vector ResourceLogs
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ExportLogsServiceRequest'_unknownFields :: FieldSet
_ExportLogsServiceRequest'_unknownFields = []}
  parseMessage :: Parser ExportLogsServiceRequest
parseMessage
    = let
        loop ::
          ExportLogsServiceRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Opentelemetry.Proto.Logs.V1.Logs.ResourceLogs
             -> Data.ProtoLens.Encoding.Bytes.Parser ExportLogsServiceRequest
        loop :: ExportLogsServiceRequest
-> Growing Vector RealWorld ResourceLogs
-> Parser ExportLogsServiceRequest
loop ExportLogsServiceRequest
x Growing Vector RealWorld ResourceLogs
mutable'resourceLogs
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector ResourceLogs
frozen'resourceLogs <- IO (Vector ResourceLogs) -> Parser (Vector ResourceLogs)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               (Growing Vector (PrimState IO) ResourceLogs
-> IO (Vector ResourceLogs)
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 ResourceLogs
Growing Vector (PrimState IO) ResourceLogs
mutable'resourceLogs)
                      (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]))))
                      ExportLogsServiceRequest -> Parser ExportLogsServiceRequest
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ExportLogsServiceRequest ExportLogsServiceRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ExportLogsServiceRequest
-> ExportLogsServiceRequest
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
  ExportLogsServiceRequest ExportLogsServiceRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ExportLogsServiceRequest
  ExportLogsServiceRequest
  (Vector ResourceLogs)
  (Vector ResourceLogs)
-> Vector ResourceLogs
-> ExportLogsServiceRequest
-> ExportLogsServiceRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'resourceLogs" 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'resourceLogs")
                              Vector ResourceLogs
frozen'resourceLogs ExportLogsServiceRequest
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !ResourceLogs
y <- Parser ResourceLogs -> String -> Parser ResourceLogs
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser ResourceLogs -> Parser ResourceLogs
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 ResourceLogs
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"resource_logs"
                                Growing Vector RealWorld ResourceLogs
v <- IO (Growing Vector RealWorld ResourceLogs)
-> Parser (Growing Vector RealWorld ResourceLogs)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) ResourceLogs
-> ResourceLogs -> IO (Growing Vector (PrimState IO) ResourceLogs)
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 ResourceLogs
Growing Vector (PrimState IO) ResourceLogs
mutable'resourceLogs ResourceLogs
y)
                                ExportLogsServiceRequest
-> Growing Vector RealWorld ResourceLogs
-> Parser ExportLogsServiceRequest
loop ExportLogsServiceRequest
x Growing Vector RealWorld ResourceLogs
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ExportLogsServiceRequest
-> Growing Vector RealWorld ResourceLogs
-> Parser ExportLogsServiceRequest
loop
                                  (Setter
  ExportLogsServiceRequest ExportLogsServiceRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ExportLogsServiceRequest
-> ExportLogsServiceRequest
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
  ExportLogsServiceRequest ExportLogsServiceRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExportLogsServiceRequest
x)
                                  Growing Vector RealWorld ResourceLogs
mutable'resourceLogs
      in
        Parser ExportLogsServiceRequest
-> String -> Parser ExportLogsServiceRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld ResourceLogs
mutable'resourceLogs <- IO (Growing Vector RealWorld ResourceLogs)
-> Parser (Growing Vector RealWorld ResourceLogs)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        IO (Growing Vector RealWorld ResourceLogs)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ExportLogsServiceRequest
-> Growing Vector RealWorld ResourceLogs
-> Parser ExportLogsServiceRequest
loop ExportLogsServiceRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ResourceLogs
mutable'resourceLogs)
          String
"ExportLogsServiceRequest"
  buildMessage :: ExportLogsServiceRequest -> Builder
buildMessage
    = \ ExportLogsServiceRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((ResourceLogs -> Builder) -> Vector ResourceLogs -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ ResourceLogs
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (ResourceLogs -> ByteString) -> ResourceLogs -> 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))
                           ResourceLogs -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResourceLogs
_v))
                (FoldLike
  (Vector ResourceLogs)
  ExportLogsServiceRequest
  ExportLogsServiceRequest
  (Vector ResourceLogs)
  (Vector ResourceLogs)
-> ExportLogsServiceRequest -> Vector ResourceLogs
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall s a (f :: * -> *).
(HasField s "vec'resourceLogs" 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'resourceLogs") ExportLogsServiceRequest
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  ExportLogsServiceRequest
  ExportLogsServiceRequest
  FieldSet
  FieldSet
-> ExportLogsServiceRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ExportLogsServiceRequest
  ExportLogsServiceRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ExportLogsServiceRequest
_x))
instance Control.DeepSeq.NFData ExportLogsServiceRequest where
  rnf :: ExportLogsServiceRequest -> ()
rnf
    = \ ExportLogsServiceRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExportLogsServiceRequest -> FieldSet
_ExportLogsServiceRequest'_unknownFields ExportLogsServiceRequest
x__)
             (Vector ResourceLogs -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExportLogsServiceRequest -> Vector ResourceLogs
_ExportLogsServiceRequest'resourceLogs ExportLogsServiceRequest
x__) ())
{- | Fields :
      -}
data ExportLogsServiceResponse
  = ExportLogsServiceResponse'_constructor {ExportLogsServiceResponse -> FieldSet
_ExportLogsServiceResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
(ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool)
-> (ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool)
-> Eq ExportLogsServiceResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
$c/= :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
== :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
$c== :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
Prelude.Eq, Eq ExportLogsServiceResponse
Eq ExportLogsServiceResponse
-> (ExportLogsServiceResponse
    -> ExportLogsServiceResponse -> Ordering)
-> (ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool)
-> (ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool)
-> (ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool)
-> (ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool)
-> (ExportLogsServiceResponse
    -> ExportLogsServiceResponse -> ExportLogsServiceResponse)
-> (ExportLogsServiceResponse
    -> ExportLogsServiceResponse -> ExportLogsServiceResponse)
-> Ord ExportLogsServiceResponse
ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
ExportLogsServiceResponse -> ExportLogsServiceResponse -> Ordering
ExportLogsServiceResponse
-> ExportLogsServiceResponse -> ExportLogsServiceResponse
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 :: ExportLogsServiceResponse
-> ExportLogsServiceResponse -> ExportLogsServiceResponse
$cmin :: ExportLogsServiceResponse
-> ExportLogsServiceResponse -> ExportLogsServiceResponse
max :: ExportLogsServiceResponse
-> ExportLogsServiceResponse -> ExportLogsServiceResponse
$cmax :: ExportLogsServiceResponse
-> ExportLogsServiceResponse -> ExportLogsServiceResponse
>= :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
$c>= :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
> :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
$c> :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
<= :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
$c<= :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
< :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
$c< :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
compare :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Ordering
$ccompare :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Ordering
$cp1Ord :: Eq ExportLogsServiceResponse
Prelude.Ord)
instance Prelude.Show ExportLogsServiceResponse where
  showsPrec :: Int -> ExportLogsServiceResponse -> ShowS
showsPrec Int
_ ExportLogsServiceResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExportLogsServiceResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExportLogsServiceResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message ExportLogsServiceResponse where
  messageName :: Proxy ExportLogsServiceResponse -> Text
messageName Proxy ExportLogsServiceResponse
_
    = String -> Text
Data.Text.pack
        String
"opentelemetry.proto.collector.logs.v1.ExportLogsServiceResponse"
  packedMessageDescriptor :: Proxy ExportLogsServiceResponse -> ByteString
packedMessageDescriptor Proxy ExportLogsServiceResponse
_
    = ByteString
"\n\
      \\EMExportLogsServiceResponse"
  packedFileDescriptor :: Proxy ExportLogsServiceResponse -> ByteString
packedFileDescriptor Proxy ExportLogsServiceResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExportLogsServiceResponse)
fieldsByTag = let in [(Tag, FieldDescriptor ExportLogsServiceResponse)]
-> Map Tag (FieldDescriptor ExportLogsServiceResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: LensLike' f ExportLogsServiceResponse FieldSet
unknownFields
    = (ExportLogsServiceResponse -> FieldSet)
-> (ExportLogsServiceResponse
    -> FieldSet -> ExportLogsServiceResponse)
-> Lens' ExportLogsServiceResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExportLogsServiceResponse -> FieldSet
_ExportLogsServiceResponse'_unknownFields
        (\ ExportLogsServiceResponse
x__ FieldSet
y__
           -> ExportLogsServiceResponse
x__ {_ExportLogsServiceResponse'_unknownFields :: FieldSet
_ExportLogsServiceResponse'_unknownFields = FieldSet
y__})
  defMessage :: ExportLogsServiceResponse
defMessage
    = ExportLogsServiceResponse'_constructor :: FieldSet -> ExportLogsServiceResponse
ExportLogsServiceResponse'_constructor
        {_ExportLogsServiceResponse'_unknownFields :: FieldSet
_ExportLogsServiceResponse'_unknownFields = []}
  parseMessage :: Parser ExportLogsServiceResponse
parseMessage
    = let
        loop ::
          ExportLogsServiceResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser ExportLogsServiceResponse
        loop :: ExportLogsServiceResponse -> Parser ExportLogsServiceResponse
loop ExportLogsServiceResponse
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]))))
                      ExportLogsServiceResponse -> Parser ExportLogsServiceResponse
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ExportLogsServiceResponse
  ExportLogsServiceResponse
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ExportLogsServiceResponse
-> ExportLogsServiceResponse
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
  ExportLogsServiceResponse
  ExportLogsServiceResponse
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ExportLogsServiceResponse
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
                                ExportLogsServiceResponse -> Parser ExportLogsServiceResponse
loop
                                  (Setter
  ExportLogsServiceResponse
  ExportLogsServiceResponse
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ExportLogsServiceResponse
-> ExportLogsServiceResponse
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
  ExportLogsServiceResponse
  ExportLogsServiceResponse
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExportLogsServiceResponse
x) }
      in
        Parser ExportLogsServiceResponse
-> String -> Parser ExportLogsServiceResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ExportLogsServiceResponse -> Parser ExportLogsServiceResponse
loop ExportLogsServiceResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ExportLogsServiceResponse"
  buildMessage :: ExportLogsServiceResponse -> Builder
buildMessage
    = \ ExportLogsServiceResponse
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  ExportLogsServiceResponse
  ExportLogsServiceResponse
  FieldSet
  FieldSet
-> ExportLogsServiceResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ExportLogsServiceResponse
  ExportLogsServiceResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ExportLogsServiceResponse
_x)
instance Control.DeepSeq.NFData ExportLogsServiceResponse where
  rnf :: ExportLogsServiceResponse -> ()
rnf
    = \ ExportLogsServiceResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExportLogsServiceResponse -> FieldSet
_ExportLogsServiceResponse'_unknownFields ExportLogsServiceResponse
x__) ()
data LogsService = LogsService {}
instance Data.ProtoLens.Service.Types.Service LogsService where
  type ServiceName LogsService = "LogsService"
  type ServicePackage LogsService = "opentelemetry.proto.collector.logs.v1"
  type ServiceMethods LogsService = '["export"]
  packedServiceDescriptor :: Proxy LogsService -> ByteString
packedServiceDescriptor Proxy LogsService
_
    = ByteString
"\n\
      \\vLogsService\DC2\141\SOH\n\
      \\ACKExport\DC2?.opentelemetry.proto.collector.logs.v1.ExportLogsServiceRequest\SUB@.opentelemetry.proto.collector.logs.v1.ExportLogsServiceResponse\"\NUL"
instance Data.ProtoLens.Service.Types.HasMethodImpl LogsService "export" where
  type MethodName LogsService "export" = "Export"
  type MethodInput LogsService "export" = ExportLogsServiceRequest
  type MethodOutput LogsService "export" = ExportLogsServiceResponse
  type MethodStreamingType LogsService "export" = 'Data.ProtoLens.Service.Types.NonStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \8opentelemetry/proto/collector/logs/v1/logs_service.proto\DC2%opentelemetry.proto.collector.logs.v1\SUB&opentelemetry/proto/logs/v1/logs.proto\"j\n\
    \\CANExportLogsServiceRequest\DC2N\n\
    \\rresource_logs\CAN\SOH \ETX(\v2).opentelemetry.proto.logs.v1.ResourceLogsR\fresourceLogs\"\ESC\n\
    \\EMExportLogsServiceResponse2\157\SOH\n\
    \\vLogsService\DC2\141\SOH\n\
    \\ACKExport\DC2?.opentelemetry.proto.collector.logs.v1.ExportLogsServiceRequest\SUB@.opentelemetry.proto.collector.logs.v1.ExportLogsServiceResponse\"\NULB\134\SOH\n\
    \(io.opentelemetry.proto.collector.logs.v1B\DLELogsServiceProtoP\SOHZFgithub.com/open-telemetry/opentelemetry-proto/gen/go/collector/logs/v1J\144\r\n\
    \\ACK\DC2\EOT\SO\NUL/\SOH\n\
    \\200\EOT\n\
    \\SOH\f\DC2\ETX\SO\NUL\DC22\189\EOT Copyright 2020, 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\
    \y\n\
    \\SOH\STX\DC2\ETX\DC3\NUL.2o NOTE: This proto is experimental and is subject to change at this point.\n\
    \ Please do not use it at the moment.\n\
    \\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\NAK\NUL0\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETB\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\ETB\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\CAN\NULA\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\CAN\NULA\n\
    \\b\n\
    \\SOH\b\DC2\ETX\EM\NUL1\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\EM\NUL1\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SUB\NUL]\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\SUB\NUL]\n\
    \\245\SOH\n\
    \\STX\ACK\NUL\DC2\EOT\US\NUL#\SOH\SUB\232\SOH Service that can be used to push logs between one Application instrumented with\n\
    \ OpenTelemetry and an collector, or between an collector and a central collector (in this\n\
    \ case logs are sent/received to/from multiple Applications).\n\
    \\n\
    \\n\
    \\n\
    \\ETX\ACK\NUL\SOH\DC2\ETX\US\b\DC3\n\
    \y\n\
    \\EOT\ACK\NUL\STX\NUL\DC2\ETX\"\STXM\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\"0I\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT%\NUL,\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX%\b \n\
    \\207\STX\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX+\STXF\SUB\193\STX An array of ResourceLogs.\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+\v3\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX+4A\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX+DE\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT.\NUL/\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX.\b!b\ACKproto3"