{- 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 OTel.SDK.OTLP.Bindings.Collector.Logs.V1.LogsService (
        LogsService(..), ExportLogsPartialSuccess(),
        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 OTel.SDK.OTLP.Bindings.Logs.V1.Logs
{- | Fields :
     
         * 'OTel.SDK.OTLP.Bindings.Collector.Logs.V1.LogsService_Fields.rejectedLogRecords' @:: Lens' ExportLogsPartialSuccess Data.Int.Int64@
         * 'OTel.SDK.OTLP.Bindings.Collector.Logs.V1.LogsService_Fields.errorMessage' @:: Lens' ExportLogsPartialSuccess Data.Text.Text@ -}
data ExportLogsPartialSuccess
  = ExportLogsPartialSuccess'_constructor {ExportLogsPartialSuccess -> Int64
_ExportLogsPartialSuccess'rejectedLogRecords :: !Data.Int.Int64,
                                           ExportLogsPartialSuccess -> Text
_ExportLogsPartialSuccess'errorMessage :: !Data.Text.Text,
                                           ExportLogsPartialSuccess -> FieldSet
_ExportLogsPartialSuccess'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
(ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool)
-> (ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool)
-> Eq ExportLogsPartialSuccess
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
== :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
$c/= :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
/= :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
Prelude.Eq, Eq ExportLogsPartialSuccess
Eq ExportLogsPartialSuccess =>
(ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Ordering)
-> (ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool)
-> (ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool)
-> (ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool)
-> (ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool)
-> (ExportLogsPartialSuccess
    -> ExportLogsPartialSuccess -> ExportLogsPartialSuccess)
-> (ExportLogsPartialSuccess
    -> ExportLogsPartialSuccess -> ExportLogsPartialSuccess)
-> Ord ExportLogsPartialSuccess
ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Ordering
ExportLogsPartialSuccess
-> ExportLogsPartialSuccess -> ExportLogsPartialSuccess
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Ordering
compare :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Ordering
$c< :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
< :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
$c<= :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
<= :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
$c> :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
> :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
$c>= :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
>= :: ExportLogsPartialSuccess -> ExportLogsPartialSuccess -> Bool
$cmax :: ExportLogsPartialSuccess
-> ExportLogsPartialSuccess -> ExportLogsPartialSuccess
max :: ExportLogsPartialSuccess
-> ExportLogsPartialSuccess -> ExportLogsPartialSuccess
$cmin :: ExportLogsPartialSuccess
-> ExportLogsPartialSuccess -> ExportLogsPartialSuccess
min :: ExportLogsPartialSuccess
-> ExportLogsPartialSuccess -> ExportLogsPartialSuccess
Prelude.Ord)
instance Prelude.Show ExportLogsPartialSuccess where
  showsPrec :: Int -> ExportLogsPartialSuccess -> ShowS
showsPrec Int
_ ExportLogsPartialSuccess
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExportLogsPartialSuccess -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExportLogsPartialSuccess
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExportLogsPartialSuccess "rejectedLogRecords" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rejectedLogRecords"
-> (Int64 -> f Int64)
-> ExportLogsPartialSuccess
-> f ExportLogsPartialSuccess
fieldOf Proxy# "rejectedLogRecords"
_
    = ((Int64 -> f Int64)
 -> ExportLogsPartialSuccess -> f ExportLogsPartialSuccess)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ExportLogsPartialSuccess
-> f ExportLogsPartialSuccess
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportLogsPartialSuccess -> Int64)
-> (ExportLogsPartialSuccess -> Int64 -> ExportLogsPartialSuccess)
-> Lens
     ExportLogsPartialSuccess ExportLogsPartialSuccess Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportLogsPartialSuccess -> Int64
_ExportLogsPartialSuccess'rejectedLogRecords
           (\ ExportLogsPartialSuccess
x__ Int64
y__
              -> ExportLogsPartialSuccess
x__ {_ExportLogsPartialSuccess'rejectedLogRecords = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExportLogsPartialSuccess "errorMessage" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "errorMessage"
-> (Text -> f Text)
-> ExportLogsPartialSuccess
-> f ExportLogsPartialSuccess
fieldOf Proxy# "errorMessage"
_
    = ((Text -> f Text)
 -> ExportLogsPartialSuccess -> f ExportLogsPartialSuccess)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ExportLogsPartialSuccess
-> f ExportLogsPartialSuccess
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportLogsPartialSuccess -> Text)
-> (ExportLogsPartialSuccess -> Text -> ExportLogsPartialSuccess)
-> Lens ExportLogsPartialSuccess ExportLogsPartialSuccess Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportLogsPartialSuccess -> Text
_ExportLogsPartialSuccess'errorMessage
           (\ ExportLogsPartialSuccess
x__ Text
y__ -> ExportLogsPartialSuccess
x__ {_ExportLogsPartialSuccess'errorMessage = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExportLogsPartialSuccess where
  messageName :: Proxy ExportLogsPartialSuccess -> Text
messageName Proxy ExportLogsPartialSuccess
_
    = String -> Text
Data.Text.pack
        String
"opentelemetry.proto.collector.logs.v1.ExportLogsPartialSuccess"
  packedMessageDescriptor :: Proxy ExportLogsPartialSuccess -> ByteString
packedMessageDescriptor Proxy ExportLogsPartialSuccess
_
    = ByteString
"\n\
      \\CANExportLogsPartialSuccess\DC20\n\
      \\DC4rejected_log_records\CAN\SOH \SOH(\ETXR\DC2rejectedLogRecords\DC2#\n\
      \\rerror_message\CAN\STX \SOH(\tR\ferrorMessage"
  packedFileDescriptor :: Proxy ExportLogsPartialSuccess -> ByteString
packedFileDescriptor Proxy ExportLogsPartialSuccess
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExportLogsPartialSuccess)
fieldsByTag
    = let
        rejectedLogRecords__field_descriptor :: FieldDescriptor ExportLogsPartialSuccess
rejectedLogRecords__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor ExportLogsPartialSuccess Int64
-> FieldDescriptor ExportLogsPartialSuccess
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"rejected_log_records"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens
     ExportLogsPartialSuccess ExportLogsPartialSuccess Int64 Int64
-> FieldAccessor ExportLogsPartialSuccess Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rejectedLogRecords")) ::
              Data.ProtoLens.FieldDescriptor ExportLogsPartialSuccess
        errorMessage__field_descriptor :: FieldDescriptor ExportLogsPartialSuccess
errorMessage__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ExportLogsPartialSuccess Text
-> FieldDescriptor ExportLogsPartialSuccess
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"error_message"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens ExportLogsPartialSuccess ExportLogsPartialSuccess Text Text
-> FieldAccessor ExportLogsPartialSuccess Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errorMessage")) ::
              Data.ProtoLens.FieldDescriptor ExportLogsPartialSuccess
      in
        [(Tag, FieldDescriptor ExportLogsPartialSuccess)]
-> Map Tag (FieldDescriptor ExportLogsPartialSuccess)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExportLogsPartialSuccess
rejectedLogRecords__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExportLogsPartialSuccess
errorMessage__field_descriptor)]
  unknownFields :: Lens' ExportLogsPartialSuccess FieldSet
unknownFields
    = (ExportLogsPartialSuccess -> FieldSet)
-> (ExportLogsPartialSuccess
    -> FieldSet -> ExportLogsPartialSuccess)
-> Lens' ExportLogsPartialSuccess FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExportLogsPartialSuccess -> FieldSet
_ExportLogsPartialSuccess'_unknownFields
        (\ ExportLogsPartialSuccess
x__ FieldSet
y__ -> ExportLogsPartialSuccess
x__ {_ExportLogsPartialSuccess'_unknownFields = y__})
  defMessage :: ExportLogsPartialSuccess
defMessage
    = ExportLogsPartialSuccess'_constructor
        {_ExportLogsPartialSuccess'rejectedLogRecords :: Int64
_ExportLogsPartialSuccess'rejectedLogRecords = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExportLogsPartialSuccess'errorMessage :: Text
_ExportLogsPartialSuccess'errorMessage = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExportLogsPartialSuccess'_unknownFields :: FieldSet
_ExportLogsPartialSuccess'_unknownFields = []}
  parseMessage :: Parser ExportLogsPartialSuccess
parseMessage
    = let
        loop ::
          ExportLogsPartialSuccess
          -> Data.ProtoLens.Encoding.Bytes.Parser ExportLogsPartialSuccess
        loop :: ExportLogsPartialSuccess -> Parser ExportLogsPartialSuccess
loop ExportLogsPartialSuccess
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ExportLogsPartialSuccess -> Parser ExportLogsPartialSuccess
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ExportLogsPartialSuccess ExportLogsPartialSuccess FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ExportLogsPartialSuccess
-> ExportLogsPartialSuccess
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ExportLogsPartialSuccess FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportLogsPartialSuccess FieldSet
Setter
  ExportLogsPartialSuccess ExportLogsPartialSuccess FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ExportLogsPartialSuccess
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"rejected_log_records"
                                ExportLogsPartialSuccess -> Parser ExportLogsPartialSuccess
loop
                                  (Setter
  ExportLogsPartialSuccess ExportLogsPartialSuccess Int64 Int64
-> Int64 -> ExportLogsPartialSuccess -> ExportLogsPartialSuccess
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rejectedLogRecords") Int64
y ExportLogsPartialSuccess
x)
                        Word64
18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       String
"error_message"
                                ExportLogsPartialSuccess -> Parser ExportLogsPartialSuccess
loop
                                  (Setter ExportLogsPartialSuccess ExportLogsPartialSuccess Text Text
-> Text -> ExportLogsPartialSuccess -> ExportLogsPartialSuccess
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errorMessage") Text
y ExportLogsPartialSuccess
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ExportLogsPartialSuccess -> Parser ExportLogsPartialSuccess
loop
                                  (Setter
  ExportLogsPartialSuccess ExportLogsPartialSuccess FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ExportLogsPartialSuccess
-> ExportLogsPartialSuccess
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ExportLogsPartialSuccess FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportLogsPartialSuccess FieldSet
Setter
  ExportLogsPartialSuccess ExportLogsPartialSuccess FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExportLogsPartialSuccess
x)
      in
        Parser ExportLogsPartialSuccess
-> String -> Parser ExportLogsPartialSuccess
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ExportLogsPartialSuccess -> Parser ExportLogsPartialSuccess
loop ExportLogsPartialSuccess
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ExportLogsPartialSuccess"
  buildMessage :: ExportLogsPartialSuccess -> Builder
buildMessage
    = \ ExportLogsPartialSuccess
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int64
_v
                  = FoldLike
  Int64 ExportLogsPartialSuccess ExportLogsPartialSuccess Int64 Int64
-> ExportLogsPartialSuccess -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rejectedLogRecords") ExportLogsPartialSuccess
_x
              in
                if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v
                     = FoldLike
  Text ExportLogsPartialSuccess ExportLogsPartialSuccess Text Text
-> ExportLogsPartialSuccess -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errorMessage") ExportLogsPartialSuccess
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ExportLogsPartialSuccess
  ExportLogsPartialSuccess
  FieldSet
  FieldSet
-> ExportLogsPartialSuccess -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ExportLogsPartialSuccess
  ExportLogsPartialSuccess
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportLogsPartialSuccess FieldSet
Data.ProtoLens.unknownFields ExportLogsPartialSuccess
_x)))
instance Control.DeepSeq.NFData ExportLogsPartialSuccess where
  rnf :: ExportLogsPartialSuccess -> ()
rnf
    = \ ExportLogsPartialSuccess
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExportLogsPartialSuccess -> FieldSet
_ExportLogsPartialSuccess'_unknownFields ExportLogsPartialSuccess
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExportLogsPartialSuccess -> Int64
_ExportLogsPartialSuccess'rejectedLogRecords ExportLogsPartialSuccess
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ExportLogsPartialSuccess -> Text
_ExportLogsPartialSuccess'errorMessage ExportLogsPartialSuccess
x__) ()))
{- | Fields :
     
         * 'OTel.SDK.OTLP.Bindings.Collector.Logs.V1.LogsService_Fields.resourceLogs' @:: Lens' ExportLogsServiceRequest [OTel.SDK.OTLP.Bindings.Logs.V1.Logs.ResourceLogs]@
         * 'OTel.SDK.OTLP.Bindings.Collector.Logs.V1.LogsService_Fields.vec'resourceLogs' @:: Lens' ExportLogsServiceRequest (Data.Vector.Vector OTel.SDK.OTLP.Bindings.Logs.V1.Logs.ResourceLogs)@ -}
data ExportLogsServiceRequest
  = ExportLogsServiceRequest'_constructor {ExportLogsServiceRequest -> Vector ResourceLogs
_ExportLogsServiceRequest'resourceLogs :: !(Data.Vector.Vector OTel.SDK.OTLP.Bindings.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
$c== :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
== :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
$c/= :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
/= :: 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
$ccompare :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Ordering
compare :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Ordering
$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
>= :: ExportLogsServiceRequest -> ExportLogsServiceRequest -> Bool
$cmax :: ExportLogsServiceRequest
-> ExportLogsServiceRequest -> ExportLogsServiceRequest
max :: ExportLogsServiceRequest
-> ExportLogsServiceRequest -> ExportLogsServiceRequest
$cmin :: ExportLogsServiceRequest
-> ExportLogsServiceRequest -> ExportLogsServiceRequest
min :: ExportLogsServiceRequest
-> ExportLogsServiceRequest -> 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" [OTel.SDK.OTLP.Bindings.Logs.V1.Logs.ResourceLogs] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
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 = 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 OTel.SDK.OTLP.Bindings.Logs.V1.Logs.ResourceLogs) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
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 = 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 OTel.SDK.OTLP.Bindings.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 (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 :: Lens' 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 = y__})
  defMessage :: ExportLogsServiceRequest
defMessage
    = 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 OTel.SDK.OTLP.Bindings.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 a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ExportLogsServiceRequest -> Parser ExportLogsServiceRequest
forall a. a -> Parser a
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
                           LensLike' f ExportLogsServiceRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportLogsServiceRequest 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 (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
                                     LensLike' f ExportLogsServiceRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportLogsServiceRequest 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)
IO (Growing Vector (PrimState IO) 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 (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
Lens' ExportLogsServiceRequest 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 :
     
         * 'OTel.SDK.OTLP.Bindings.Collector.Logs.V1.LogsService_Fields.partialSuccess' @:: Lens' ExportLogsServiceResponse ExportLogsPartialSuccess@
         * 'OTel.SDK.OTLP.Bindings.Collector.Logs.V1.LogsService_Fields.maybe'partialSuccess' @:: Lens' ExportLogsServiceResponse (Prelude.Maybe ExportLogsPartialSuccess)@ -}
data ExportLogsServiceResponse
  = ExportLogsServiceResponse'_constructor {ExportLogsServiceResponse -> Maybe ExportLogsPartialSuccess
_ExportLogsServiceResponse'partialSuccess :: !(Prelude.Maybe ExportLogsPartialSuccess),
                                            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
$c== :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
== :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
$c/= :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
/= :: 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
$ccompare :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Ordering
compare :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Ordering
$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
>= :: ExportLogsServiceResponse -> ExportLogsServiceResponse -> Bool
$cmax :: ExportLogsServiceResponse
-> ExportLogsServiceResponse -> ExportLogsServiceResponse
max :: ExportLogsServiceResponse
-> ExportLogsServiceResponse -> ExportLogsServiceResponse
$cmin :: ExportLogsServiceResponse
-> ExportLogsServiceResponse -> ExportLogsServiceResponse
min :: ExportLogsServiceResponse
-> ExportLogsServiceResponse -> 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.Field.HasField ExportLogsServiceResponse "partialSuccess" ExportLogsPartialSuccess where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "partialSuccess"
-> (ExportLogsPartialSuccess -> f ExportLogsPartialSuccess)
-> ExportLogsServiceResponse
-> f ExportLogsServiceResponse
fieldOf Proxy# "partialSuccess"
_
    = ((Maybe ExportLogsPartialSuccess
  -> f (Maybe ExportLogsPartialSuccess))
 -> ExportLogsServiceResponse -> f ExportLogsServiceResponse)
-> ((ExportLogsPartialSuccess -> f ExportLogsPartialSuccess)
    -> Maybe ExportLogsPartialSuccess
    -> f (Maybe ExportLogsPartialSuccess))
-> (ExportLogsPartialSuccess -> f ExportLogsPartialSuccess)
-> ExportLogsServiceResponse
-> f ExportLogsServiceResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportLogsServiceResponse -> Maybe ExportLogsPartialSuccess)
-> (ExportLogsServiceResponse
    -> Maybe ExportLogsPartialSuccess -> ExportLogsServiceResponse)
-> Lens
     ExportLogsServiceResponse
     ExportLogsServiceResponse
     (Maybe ExportLogsPartialSuccess)
     (Maybe ExportLogsPartialSuccess)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportLogsServiceResponse -> Maybe ExportLogsPartialSuccess
_ExportLogsServiceResponse'partialSuccess
           (\ ExportLogsServiceResponse
x__ Maybe ExportLogsPartialSuccess
y__
              -> ExportLogsServiceResponse
x__ {_ExportLogsServiceResponse'partialSuccess = y__}))
        (ExportLogsPartialSuccess
-> Lens' (Maybe ExportLogsPartialSuccess) ExportLogsPartialSuccess
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExportLogsPartialSuccess
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ExportLogsServiceResponse "maybe'partialSuccess" (Prelude.Maybe ExportLogsPartialSuccess) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'partialSuccess"
-> (Maybe ExportLogsPartialSuccess
    -> f (Maybe ExportLogsPartialSuccess))
-> ExportLogsServiceResponse
-> f ExportLogsServiceResponse
fieldOf Proxy# "maybe'partialSuccess"
_
    = ((Maybe ExportLogsPartialSuccess
  -> f (Maybe ExportLogsPartialSuccess))
 -> ExportLogsServiceResponse -> f ExportLogsServiceResponse)
-> ((Maybe ExportLogsPartialSuccess
     -> f (Maybe ExportLogsPartialSuccess))
    -> Maybe ExportLogsPartialSuccess
    -> f (Maybe ExportLogsPartialSuccess))
-> (Maybe ExportLogsPartialSuccess
    -> f (Maybe ExportLogsPartialSuccess))
-> ExportLogsServiceResponse
-> f ExportLogsServiceResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExportLogsServiceResponse -> Maybe ExportLogsPartialSuccess)
-> (ExportLogsServiceResponse
    -> Maybe ExportLogsPartialSuccess -> ExportLogsServiceResponse)
-> Lens
     ExportLogsServiceResponse
     ExportLogsServiceResponse
     (Maybe ExportLogsPartialSuccess)
     (Maybe ExportLogsPartialSuccess)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExportLogsServiceResponse -> Maybe ExportLogsPartialSuccess
_ExportLogsServiceResponse'partialSuccess
           (\ ExportLogsServiceResponse
x__ Maybe ExportLogsPartialSuccess
y__
              -> ExportLogsServiceResponse
x__ {_ExportLogsServiceResponse'partialSuccess = y__}))
        (Maybe ExportLogsPartialSuccess
 -> f (Maybe ExportLogsPartialSuccess))
-> Maybe ExportLogsPartialSuccess
-> f (Maybe ExportLogsPartialSuccess)
forall a. a -> a
Prelude.id
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\DC2h\n\
      \\SIpartial_success\CAN\SOH \SOH(\v2?.opentelemetry.proto.collector.logs.v1.ExportLogsPartialSuccessR\SOpartialSuccess"
  packedFileDescriptor :: Proxy ExportLogsServiceResponse -> ByteString
packedFileDescriptor Proxy ExportLogsServiceResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExportLogsServiceResponse)
fieldsByTag
    = let
        partialSuccess__field_descriptor :: FieldDescriptor ExportLogsServiceResponse
partialSuccess__field_descriptor
          = String
-> FieldTypeDescriptor ExportLogsPartialSuccess
-> FieldAccessor ExportLogsServiceResponse ExportLogsPartialSuccess
-> FieldDescriptor ExportLogsServiceResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"partial_success"
              (MessageOrGroup -> FieldTypeDescriptor ExportLogsPartialSuccess
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ExportLogsPartialSuccess)
              (Lens
  ExportLogsServiceResponse
  ExportLogsServiceResponse
  (Maybe ExportLogsPartialSuccess)
  (Maybe ExportLogsPartialSuccess)
-> FieldAccessor ExportLogsServiceResponse ExportLogsPartialSuccess
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'partialSuccess")) ::
              Data.ProtoLens.FieldDescriptor ExportLogsServiceResponse
      in
        [(Tag, FieldDescriptor ExportLogsServiceResponse)]
-> Map Tag (FieldDescriptor ExportLogsServiceResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExportLogsServiceResponse
partialSuccess__field_descriptor)]
  unknownFields :: Lens' 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 = y__})
  defMessage :: ExportLogsServiceResponse
defMessage
    = ExportLogsServiceResponse'_constructor
        {_ExportLogsServiceResponse'partialSuccess :: Maybe ExportLogsPartialSuccess
_ExportLogsServiceResponse'partialSuccess = Maybe ExportLogsPartialSuccess
forall a. Maybe a
Prelude.Nothing,
         _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 a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ExportLogsServiceResponse -> Parser ExportLogsServiceResponse
forall a. a -> Parser a
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
                           LensLike' f ExportLogsServiceResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportLogsServiceResponse 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
10
                          -> do ExportLogsPartialSuccess
y <- Parser ExportLogsPartialSuccess
-> String -> Parser ExportLogsPartialSuccess
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser ExportLogsPartialSuccess
-> Parser ExportLogsPartialSuccess
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 ExportLogsPartialSuccess
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"partial_success"
                                ExportLogsServiceResponse -> Parser ExportLogsServiceResponse
loop
                                  (Setter
  ExportLogsServiceResponse
  ExportLogsServiceResponse
  ExportLogsPartialSuccess
  ExportLogsPartialSuccess
-> ExportLogsPartialSuccess
-> ExportLogsServiceResponse
-> ExportLogsServiceResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"partialSuccess") ExportLogsPartialSuccess
y ExportLogsServiceResponse
x)
                        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
                                     LensLike' f ExportLogsServiceResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExportLogsServiceResponse 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
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ExportLogsPartialSuccess)
  ExportLogsServiceResponse
  ExportLogsServiceResponse
  (Maybe ExportLogsPartialSuccess)
  (Maybe ExportLogsPartialSuccess)
-> ExportLogsServiceResponse -> Maybe ExportLogsPartialSuccess
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'partialSuccess") ExportLogsServiceResponse
_x
              of
                Maybe ExportLogsPartialSuccess
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ExportLogsPartialSuccess
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ExportLogsPartialSuccess -> ByteString)
-> ExportLogsPartialSuccess
-> 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))
                          ExportLogsPartialSuccess -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ExportLogsPartialSuccess
_v))
             (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
Lens' ExportLogsServiceResponse 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__)
             (Maybe ExportLogsPartialSuccess -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExportLogsServiceResponse -> Maybe ExportLogsPartialSuccess
_ExportLogsServiceResponse'partialSuccess 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\"\133\SOH\n\
    \\EMExportLogsServiceResponse\DC2h\n\
    \\SIpartial_success\CAN\SOH \SOH(\v2?.opentelemetry.proto.collector.logs.v1.ExportLogsPartialSuccessR\SOpartialSuccess\"q\n\
    \\CANExportLogsPartialSuccess\DC20\n\
    \\DC4rejected_log_records\CAN\SOH \SOH(\ETXR\DC2rejectedLogRecords\DC2#\n\
    \\rerror_message\CAN\STX \SOH(\tR\ferrorMessage2\157\SOH\n\
    \\vLogsService\DC2\141\SOH\n\
    \\ACKExport\DC2?.opentelemetry.proto.collector.logs.v1.ExportLogsServiceRequest\SUB@.opentelemetry.proto.collector.logs.v1.ExportLogsServiceResponse\"\NULB\152\SOH\n\
    \(io.opentelemetry.proto.collector.logs.v1B\DLELogsServiceProtoP\SOHZ0go.opentelemetry.io/proto/otlp/collector/logs/v1\170\STX%OpenTelemetry.Proto.Collector.Logs.V1J\155\CAN\n\
    \\ACK\DC2\EOT\SO\NULN\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\
    \\b\n\
    \\SOH\STX\DC2\ETX\DLE\NUL.\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\DC2\NUL0\n\
    \\b\n\
    \\SOH\b\DC2\ETX\DC4\NULB\n\
    \\t\n\
    \\STX\b%\DC2\ETX\DC4\NULB\n\
    \\b\n\
    \\SOH\b\DC2\ETX\NAK\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\NAK\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SYN\NULA\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\SYN\NULA\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETB\NUL1\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\ETB\NUL1\n\
    \\b\n\
    \\SOH\b\DC2\ETX\CAN\NULG\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\CAN\NULG\n\
    \\245\SOH\n\
    \\STX\ACK\NUL\DC2\EOT\GS\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\GS\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!\n\
    \\148\ACK\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX<\STX/\SUB\134\ACK The details of a partially successful export request.\n\
    \\n\
    \ If the request is only partially accepted\n\
    \ (i.e. when the server accepts only parts of the data and rejects the rest)\n\
    \ the server MUST initialize the `partial_success` field and MUST\n\
    \ set the `rejected_<signal>` with the number of items it rejected.\n\
    \\n\
    \ Servers MAY also make use of the `partial_success` field to convey\n\
    \ warnings/suggestions to senders even when the request was fully accepted.\n\
    \ In such cases, the `rejected_<signal>` MUST have a value of `0` and\n\
    \ the `error_message` MUST be non-empty.\n\
    \\n\
    \ A `partial_success` message with an empty value (rejected_<signal> = 0 and\n\
    \ `error_message` = \"\") is equivalent to it not being set/present. Senders\n\
    \ SHOULD interpret it the same way as in the full success case.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX<\STX\SUB\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX<\ESC*\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX<-.\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT?\NULN\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX?\b \n\
    \\149\SOH\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETXD\STX!\SUB\135\SOH The number of rejected log records.\n\
    \\n\
    \ A `rejected_<signal>` field holding a `0` value indicates that the\n\
    \ request was fully accepted.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETXD\STX\a\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXD\b\FS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXD\US \n\
    \\159\ETX\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETXM\STX\ESC\SUB\145\ETX A developer-facing human-readable message in English. It should be used\n\
    \ either to explain why the server rejected parts of the data during a partial\n\
    \ success or to convey warnings/suggestions during a full success. The message\n\
    \ should offer guidance on how users can address such issues.\n\
    \\n\
    \ error_message is an optional field. An error_message with an empty value\n\
    \ is equivalent to it not being set.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETXM\STX\b\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETXM\t\SYN\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETXM\EM\SUBb\ACKproto3"