{- This file was auto-generated from google/protobuf/descriptor.proto by the proto-lens-protoc program. -} {-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications #-} {-# OPTIONS_GHC -fno-warn-unused-imports#-} {-# OPTIONS_GHC -fno-warn-duplicate-exports#-} module Proto.Google.Protobuf.Descriptor (DescriptorProto(), DescriptorProto'ExtensionRange(), DescriptorProto'ReservedRange(), EnumDescriptorProto(), EnumDescriptorProto'EnumReservedRange(), EnumOptions(), EnumValueDescriptorProto(), EnumValueOptions(), ExtensionRangeOptions(), FieldDescriptorProto(), FieldDescriptorProto'Label(..), FieldDescriptorProto'Label(), FieldDescriptorProto'Type(..), FieldDescriptorProto'Type(), FieldOptions(), FieldOptions'CType(..), FieldOptions'CType(), FieldOptions'JSType(..), FieldOptions'JSType(), FileDescriptorProto(), FileDescriptorSet(), FileOptions(), FileOptions'OptimizeMode(..), FileOptions'OptimizeMode(), GeneratedCodeInfo(), GeneratedCodeInfo'Annotation(), MessageOptions(), MethodDescriptorProto(), MethodOptions(), MethodOptions'IdempotencyLevel(..), MethodOptions'IdempotencyLevel(), OneofDescriptorProto(), OneofOptions(), ServiceDescriptorProto(), ServiceOptions(), SourceCodeInfo(), SourceCodeInfo'Location(), UninterpretedOption(), UninterpretedOption'NamePart()) where import qualified Control.DeepSeq import qualified Data.ProtoLens.Prism import qualified Prelude import qualified Data.Int import qualified Data.Monoid import qualified Data.Word import qualified Data.ProtoLens import qualified Data.ProtoLens.Encoding.Bytes import qualified Data.ProtoLens.Encoding.Growing import qualified Data.ProtoLens.Encoding.Parser.Unsafe import qualified Data.ProtoLens.Encoding.Wire import qualified Data.ProtoLens.Field import qualified Data.ProtoLens.Message.Enum import qualified Data.ProtoLens.Service.Types import qualified Lens.Family2 import qualified Lens.Family2.Unchecked import qualified Data.Text import qualified Data.Map import qualified Data.ByteString import qualified Data.ByteString.Char8 import qualified Data.Text.Encoding import qualified Data.Vector import qualified Data.Vector.Generic import qualified Data.Vector.Unboxed import qualified Text.Read {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' DescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' DescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.field' @:: Lens' DescriptorProto [FieldDescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'field' @:: Lens' DescriptorProto (Data.Vector.Vector FieldDescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.extension' @:: Lens' DescriptorProto [FieldDescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'extension' @:: Lens' DescriptorProto (Data.Vector.Vector FieldDescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.nestedType' @:: Lens' DescriptorProto [DescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'nestedType' @:: Lens' DescriptorProto (Data.Vector.Vector DescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.enumType' @:: Lens' DescriptorProto [EnumDescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'enumType' @:: Lens' DescriptorProto (Data.Vector.Vector EnumDescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.extensionRange' @:: Lens' DescriptorProto [DescriptorProto'ExtensionRange]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'extensionRange' @:: Lens' DescriptorProto (Data.Vector.Vector DescriptorProto'ExtensionRange)@ * 'Proto.Google.Protobuf.Descriptor_Fields.oneofDecl' @:: Lens' DescriptorProto [OneofDescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'oneofDecl' @:: Lens' DescriptorProto (Data.Vector.Vector OneofDescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' DescriptorProto MessageOptions@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' DescriptorProto (Prelude.Maybe MessageOptions)@ * 'Proto.Google.Protobuf.Descriptor_Fields.reservedRange' @:: Lens' DescriptorProto [DescriptorProto'ReservedRange]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedRange' @:: Lens' DescriptorProto (Data.Vector.Vector DescriptorProto'ReservedRange)@ * 'Proto.Google.Protobuf.Descriptor_Fields.reservedName' @:: Lens' DescriptorProto [Data.Text.Text]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedName' @:: Lens' DescriptorProto (Data.Vector.Vector Data.Text.Text)@ -} data DescriptorProto = DescriptorProto{_DescriptorProto'name :: !(Prelude.Maybe Data.Text.Text), _DescriptorProto'field :: !(Data.Vector.Vector FieldDescriptorProto), _DescriptorProto'extension :: !(Data.Vector.Vector FieldDescriptorProto), _DescriptorProto'nestedType :: !(Data.Vector.Vector DescriptorProto), _DescriptorProto'enumType :: !(Data.Vector.Vector EnumDescriptorProto), _DescriptorProto'extensionRange :: !(Data.Vector.Vector DescriptorProto'ExtensionRange), _DescriptorProto'oneofDecl :: !(Data.Vector.Vector OneofDescriptorProto), _DescriptorProto'options :: !(Prelude.Maybe MessageOptions), _DescriptorProto'reservedRange :: !(Data.Vector.Vector DescriptorProto'ReservedRange), _DescriptorProto'reservedName :: !(Data.Vector.Vector Data.Text.Text), _DescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show DescriptorProto where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField DescriptorProto "name" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'name (\ x__ y__ -> x__{_DescriptorProto'name = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField DescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'name (\ x__ y__ -> x__{_DescriptorProto'name = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto "field" ([FieldDescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'field (\ x__ y__ -> x__{_DescriptorProto'field = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField DescriptorProto "vec'field" (Data.Vector.Vector FieldDescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'field (\ x__ y__ -> x__{_DescriptorProto'field = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto "extension" ([FieldDescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'extension (\ x__ y__ -> x__{_DescriptorProto'extension = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField DescriptorProto "vec'extension" (Data.Vector.Vector FieldDescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'extension (\ x__ y__ -> x__{_DescriptorProto'extension = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto "nestedType" ([DescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'nestedType (\ x__ y__ -> x__{_DescriptorProto'nestedType = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField DescriptorProto "vec'nestedType" (Data.Vector.Vector DescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'nestedType (\ x__ y__ -> x__{_DescriptorProto'nestedType = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto "enumType" ([EnumDescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'enumType (\ x__ y__ -> x__{_DescriptorProto'enumType = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField DescriptorProto "vec'enumType" (Data.Vector.Vector EnumDescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'enumType (\ x__ y__ -> x__{_DescriptorProto'enumType = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto "extensionRange" ([DescriptorProto'ExtensionRange]) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'extensionRange (\ x__ y__ -> x__{_DescriptorProto'extensionRange = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField DescriptorProto "vec'extensionRange" (Data.Vector.Vector DescriptorProto'ExtensionRange) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'extensionRange (\ x__ y__ -> x__{_DescriptorProto'extensionRange = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto "oneofDecl" ([OneofDescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'oneofDecl (\ x__ y__ -> x__{_DescriptorProto'oneofDecl = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField DescriptorProto "vec'oneofDecl" (Data.Vector.Vector OneofDescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'oneofDecl (\ x__ y__ -> x__{_DescriptorProto'oneofDecl = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto "options" (MessageOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'options (\ x__ y__ -> x__{_DescriptorProto'options = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage instance Data.ProtoLens.Field.HasField DescriptorProto "maybe'options" (Prelude.Maybe MessageOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'options (\ x__ y__ -> x__{_DescriptorProto'options = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto "reservedRange" ([DescriptorProto'ReservedRange]) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'reservedRange (\ x__ y__ -> x__{_DescriptorProto'reservedRange = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField DescriptorProto "vec'reservedRange" (Data.Vector.Vector DescriptorProto'ReservedRange) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'reservedRange (\ x__ y__ -> x__{_DescriptorProto'reservedRange = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto "reservedName" ([Data.Text.Text]) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'reservedName (\ x__ y__ -> x__{_DescriptorProto'reservedName = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField DescriptorProto "vec'reservedName" (Data.Vector.Vector Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'reservedName (\ x__ y__ -> x__{_DescriptorProto'reservedName = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message DescriptorProto where messageName _ = Data.Text.pack "google.protobuf.DescriptorProto" fieldsByTag = let name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'name")) :: Data.ProtoLens.FieldDescriptor DescriptorProto field__field_descriptor = Data.ProtoLens.FieldDescriptor "field" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"field")) :: Data.ProtoLens.FieldDescriptor DescriptorProto extension__field_descriptor = Data.ProtoLens.FieldDescriptor "extension" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"extension")) :: Data.ProtoLens.FieldDescriptor DescriptorProto nestedType__field_descriptor = Data.ProtoLens.FieldDescriptor "nested_type" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor DescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"nestedType")) :: Data.ProtoLens.FieldDescriptor DescriptorProto enumType__field_descriptor = Data.ProtoLens.FieldDescriptor "enum_type" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"enumType")) :: Data.ProtoLens.FieldDescriptor DescriptorProto extensionRange__field_descriptor = Data.ProtoLens.FieldDescriptor "extension_range" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor DescriptorProto'ExtensionRange) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"extensionRange")) :: Data.ProtoLens.FieldDescriptor DescriptorProto oneofDecl__field_descriptor = Data.ProtoLens.FieldDescriptor "oneof_decl" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor OneofDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"oneofDecl")) :: Data.ProtoLens.FieldDescriptor DescriptorProto options__field_descriptor = Data.ProtoLens.FieldDescriptor "options" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor MessageOptions) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'options")) :: Data.ProtoLens.FieldDescriptor DescriptorProto reservedRange__field_descriptor = Data.ProtoLens.FieldDescriptor "reserved_range" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor DescriptorProto'ReservedRange) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"reservedRange")) :: Data.ProtoLens.FieldDescriptor DescriptorProto reservedName__field_descriptor = Data.ProtoLens.FieldDescriptor "reserved_name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"reservedName")) :: Data.ProtoLens.FieldDescriptor DescriptorProto in Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor), (Data.ProtoLens.Tag 2, field__field_descriptor), (Data.ProtoLens.Tag 6, extension__field_descriptor), (Data.ProtoLens.Tag 3, nestedType__field_descriptor), (Data.ProtoLens.Tag 4, enumType__field_descriptor), (Data.ProtoLens.Tag 5, extensionRange__field_descriptor), (Data.ProtoLens.Tag 8, oneofDecl__field_descriptor), (Data.ProtoLens.Tag 7, options__field_descriptor), (Data.ProtoLens.Tag 9, reservedRange__field_descriptor), (Data.ProtoLens.Tag 10, reservedName__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _DescriptorProto'_unknownFields (\ x__ y__ -> x__{_DescriptorProto'_unknownFields = y__}) defMessage = DescriptorProto{_DescriptorProto'name = Prelude.Nothing, _DescriptorProto'field = Data.Vector.Generic.empty, _DescriptorProto'extension = Data.Vector.Generic.empty, _DescriptorProto'nestedType = Data.Vector.Generic.empty, _DescriptorProto'enumType = Data.Vector.Generic.empty, _DescriptorProto'extensionRange = Data.Vector.Generic.empty, _DescriptorProto'oneofDecl = Data.Vector.Generic.empty, _DescriptorProto'options = Prelude.Nothing, _DescriptorProto'reservedRange = Data.Vector.Generic.empty, _DescriptorProto'reservedName = Data.Vector.Generic.empty, _DescriptorProto'_unknownFields = ([])} parseMessage = let loop :: DescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EnumDescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FieldDescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld DescriptorProto'ExtensionRange -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FieldDescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld DescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld OneofDescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld DescriptorProto'ReservedRange -> Data.ProtoLens.Encoding.Bytes.Parser DescriptorProto loop x mutable'enumType mutable'extension mutable'extensionRange mutable'field mutable'nestedType mutable'oneofDecl mutable'reservedName mutable'reservedRange = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'enumType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'enumType) frozen'extension <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'extension) frozen'extensionRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'extensionRange) frozen'field <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'field) frozen'nestedType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'nestedType) frozen'oneofDecl <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'oneofDecl) frozen'reservedName <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'reservedName) frozen'reservedRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'reservedRange) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'enumType") frozen'enumType (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'extension") frozen'extension (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'extensionRange") frozen'extensionRange (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'field") frozen'field (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'nestedType") frozen'nestedType (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'oneofDecl") frozen'oneofDecl (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'reservedName") frozen'reservedName (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'reservedRange") frozen'reservedRange x))))))))) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) mutable'enumType mutable'extension mutable'extensionRange mutable'field mutable'nestedType mutable'oneofDecl mutable'reservedName mutable'reservedRange 18 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "field" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'field y) loop x mutable'enumType mutable'extension mutable'extensionRange v mutable'nestedType mutable'oneofDecl mutable'reservedName mutable'reservedRange 50 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "extension" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'extension y) loop x mutable'enumType v mutable'extensionRange mutable'field mutable'nestedType mutable'oneofDecl mutable'reservedName mutable'reservedRange 26 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "nested_type" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'nestedType y) loop x mutable'enumType mutable'extension mutable'extensionRange mutable'field v mutable'oneofDecl mutable'reservedName mutable'reservedRange 34 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "enum_type" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'enumType y) loop x v mutable'extension mutable'extensionRange mutable'field mutable'nestedType mutable'oneofDecl mutable'reservedName mutable'reservedRange 42 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "extension_range" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'extensionRange y) loop x mutable'enumType mutable'extension v mutable'field mutable'nestedType mutable'oneofDecl mutable'reservedName mutable'reservedRange 66 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "oneof_decl" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'oneofDecl y) loop x mutable'enumType mutable'extension mutable'extensionRange mutable'field mutable'nestedType v mutable'reservedName mutable'reservedRange 58 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "options" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) mutable'enumType mutable'extension mutable'extensionRange mutable'field mutable'nestedType mutable'oneofDecl mutable'reservedName mutable'reservedRange 74 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "reserved_range" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'reservedRange y) loop x mutable'enumType mutable'extension mutable'extensionRange mutable'field mutable'nestedType mutable'oneofDecl mutable'reservedName v 82 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "reserved_name" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'reservedName y) loop x mutable'enumType mutable'extension mutable'extensionRange mutable'field mutable'nestedType mutable'oneofDecl v mutable'reservedRange wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'enumType mutable'extension mutable'extensionRange mutable'field mutable'nestedType mutable'oneofDecl mutable'reservedName mutable'reservedRange in (do mutable'enumType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'extension <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'extensionRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'field <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'nestedType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'oneofDecl <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'reservedName <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'reservedRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'enumType mutable'extension mutable'extensionRange mutable'field mutable'nestedType mutable'oneofDecl mutable'reservedName mutable'reservedRange) Data.ProtoLens.Encoding.Bytes. "DescriptorProto" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'field") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 50) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'extension") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'nestedType") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'enumType") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 42) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'extensionRange") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 66) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'oneofDecl") _x)) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 58) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 74) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'reservedRange") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 82) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'reservedName") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData DescriptorProto where rnf = (\ x__ -> Control.DeepSeq.deepseq (_DescriptorProto'_unknownFields x__) (Control.DeepSeq.deepseq (_DescriptorProto'name x__) (Control.DeepSeq.deepseq (_DescriptorProto'field x__) (Control.DeepSeq.deepseq (_DescriptorProto'extension x__) (Control.DeepSeq.deepseq (_DescriptorProto'nestedType x__) (Control.DeepSeq.deepseq (_DescriptorProto'enumType x__) (Control.DeepSeq.deepseq (_DescriptorProto'extensionRange x__) (Control.DeepSeq.deepseq (_DescriptorProto'oneofDecl x__) (Control.DeepSeq.deepseq (_DescriptorProto'options x__) (Control.DeepSeq.deepseq (_DescriptorProto'reservedRange x__) (Control.DeepSeq.deepseq (_DescriptorProto'reservedName x__) (())))))))))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.start' @:: Lens' DescriptorProto'ExtensionRange Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'start' @:: Lens' DescriptorProto'ExtensionRange (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' DescriptorProto'ExtensionRange Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' DescriptorProto'ExtensionRange (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' DescriptorProto'ExtensionRange ExtensionRangeOptions@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' DescriptorProto'ExtensionRange (Prelude.Maybe ExtensionRangeOptions)@ -} data DescriptorProto'ExtensionRange = DescriptorProto'ExtensionRange{_DescriptorProto'ExtensionRange'start :: !(Prelude.Maybe Data.Int.Int32), _DescriptorProto'ExtensionRange'end :: !(Prelude.Maybe Data.Int.Int32), _DescriptorProto'ExtensionRange'options :: !(Prelude.Maybe ExtensionRangeOptions), _DescriptorProto'ExtensionRange'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show DescriptorProto'ExtensionRange where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "start" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'start (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'start = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "maybe'start" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'start (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'start = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "end" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'end (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'end = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "maybe'end" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'end (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'end = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "options" (ExtensionRangeOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'options (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'options = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "maybe'options" (Prelude.Maybe ExtensionRangeOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'options (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'options = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message DescriptorProto'ExtensionRange where messageName _ = Data.Text.pack "google.protobuf.DescriptorProto.ExtensionRange" fieldsByTag = let start__field_descriptor = Data.ProtoLens.FieldDescriptor "start" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'start")) :: Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange end__field_descriptor = Data.ProtoLens.FieldDescriptor "end" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'end")) :: Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange options__field_descriptor = Data.ProtoLens.FieldDescriptor "options" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ExtensionRangeOptions) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'options")) :: Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange in Data.Map.fromList [(Data.ProtoLens.Tag 1, start__field_descriptor), (Data.ProtoLens.Tag 2, end__field_descriptor), (Data.ProtoLens.Tag 3, options__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'_unknownFields (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'_unknownFields = y__}) defMessage = DescriptorProto'ExtensionRange{_DescriptorProto'ExtensionRange'start = Prelude.Nothing, _DescriptorProto'ExtensionRange'end = Prelude.Nothing, _DescriptorProto'ExtensionRange'options = Prelude.Nothing, _DescriptorProto'ExtensionRange'_unknownFields = ([])} parseMessage = let loop :: DescriptorProto'ExtensionRange -> Data.ProtoLens.Encoding.Bytes.Parser DescriptorProto'ExtensionRange loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 8 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "start" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x) 16 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "end" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y x) 26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "options" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (do loop Data.ProtoLens.defMessage) Data.ProtoLens.Encoding.Bytes. "ExtensionRange" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'start") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'end") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData DescriptorProto'ExtensionRange where rnf = (\ x__ -> Control.DeepSeq.deepseq (_DescriptorProto'ExtensionRange'_unknownFields x__) (Control.DeepSeq.deepseq (_DescriptorProto'ExtensionRange'start x__) (Control.DeepSeq.deepseq (_DescriptorProto'ExtensionRange'end x__) (Control.DeepSeq.deepseq (_DescriptorProto'ExtensionRange'options x__) (()))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.start' @:: Lens' DescriptorProto'ReservedRange Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'start' @:: Lens' DescriptorProto'ReservedRange (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' DescriptorProto'ReservedRange Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' DescriptorProto'ReservedRange (Prelude.Maybe Data.Int.Int32)@ -} data DescriptorProto'ReservedRange = DescriptorProto'ReservedRange{_DescriptorProto'ReservedRange'start :: !(Prelude.Maybe Data.Int.Int32), _DescriptorProto'ReservedRange'end :: !(Prelude.Maybe Data.Int.Int32), _DescriptorProto'ReservedRange'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show DescriptorProto'ReservedRange where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField DescriptorProto'ReservedRange "start" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'start (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'start = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField DescriptorProto'ReservedRange "maybe'start" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'start (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'start = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField DescriptorProto'ReservedRange "end" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'end (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'end = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField DescriptorProto'ReservedRange "maybe'end" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'end (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'end = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message DescriptorProto'ReservedRange where messageName _ = Data.Text.pack "google.protobuf.DescriptorProto.ReservedRange" fieldsByTag = let start__field_descriptor = Data.ProtoLens.FieldDescriptor "start" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'start")) :: Data.ProtoLens.FieldDescriptor DescriptorProto'ReservedRange end__field_descriptor = Data.ProtoLens.FieldDescriptor "end" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'end")) :: Data.ProtoLens.FieldDescriptor DescriptorProto'ReservedRange in Data.Map.fromList [(Data.ProtoLens.Tag 1, start__field_descriptor), (Data.ProtoLens.Tag 2, end__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'_unknownFields (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'_unknownFields = y__}) defMessage = DescriptorProto'ReservedRange{_DescriptorProto'ReservedRange'start = Prelude.Nothing, _DescriptorProto'ReservedRange'end = Prelude.Nothing, _DescriptorProto'ReservedRange'_unknownFields = ([])} parseMessage = let loop :: DescriptorProto'ReservedRange -> Data.ProtoLens.Encoding.Bytes.Parser DescriptorProto'ReservedRange loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 8 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "start" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x) 16 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "end" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (do loop Data.ProtoLens.defMessage) Data.ProtoLens.Encoding.Bytes. "ReservedRange" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'start") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'end") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData DescriptorProto'ReservedRange where rnf = (\ x__ -> Control.DeepSeq.deepseq (_DescriptorProto'ReservedRange'_unknownFields x__) (Control.DeepSeq.deepseq (_DescriptorProto'ReservedRange'start x__) (Control.DeepSeq.deepseq (_DescriptorProto'ReservedRange'end x__) (())))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' EnumDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' EnumDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.value' @:: Lens' EnumDescriptorProto [EnumValueDescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'value' @:: Lens' EnumDescriptorProto (Data.Vector.Vector EnumValueDescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' EnumDescriptorProto EnumOptions@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' EnumDescriptorProto (Prelude.Maybe EnumOptions)@ * 'Proto.Google.Protobuf.Descriptor_Fields.reservedRange' @:: Lens' EnumDescriptorProto [EnumDescriptorProto'EnumReservedRange]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedRange' @:: Lens' EnumDescriptorProto (Data.Vector.Vector EnumDescriptorProto'EnumReservedRange)@ * 'Proto.Google.Protobuf.Descriptor_Fields.reservedName' @:: Lens' EnumDescriptorProto [Data.Text.Text]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedName' @:: Lens' EnumDescriptorProto (Data.Vector.Vector Data.Text.Text)@ -} data EnumDescriptorProto = EnumDescriptorProto{_EnumDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text), _EnumDescriptorProto'value :: !(Data.Vector.Vector EnumValueDescriptorProto), _EnumDescriptorProto'options :: !(Prelude.Maybe EnumOptions), _EnumDescriptorProto'reservedRange :: !(Data.Vector.Vector EnumDescriptorProto'EnumReservedRange), _EnumDescriptorProto'reservedName :: !(Data.Vector.Vector Data.Text.Text), _EnumDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show EnumDescriptorProto where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField EnumDescriptorProto "name" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'name (\ x__ y__ -> x__{_EnumDescriptorProto'name = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField EnumDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'name (\ x__ y__ -> x__{_EnumDescriptorProto'name = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField EnumDescriptorProto "value" ([EnumValueDescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'value (\ x__ y__ -> x__{_EnumDescriptorProto'value = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField EnumDescriptorProto "vec'value" (Data.Vector.Vector EnumValueDescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'value (\ x__ y__ -> x__{_EnumDescriptorProto'value = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField EnumDescriptorProto "options" (EnumOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'options (\ x__ y__ -> x__{_EnumDescriptorProto'options = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage instance Data.ProtoLens.Field.HasField EnumDescriptorProto "maybe'options" (Prelude.Maybe EnumOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'options (\ x__ y__ -> x__{_EnumDescriptorProto'options = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField EnumDescriptorProto "reservedRange" ([EnumDescriptorProto'EnumReservedRange]) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'reservedRange (\ x__ y__ -> x__{_EnumDescriptorProto'reservedRange = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField EnumDescriptorProto "vec'reservedRange" (Data.Vector.Vector EnumDescriptorProto'EnumReservedRange) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'reservedRange (\ x__ y__ -> x__{_EnumDescriptorProto'reservedRange = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField EnumDescriptorProto "reservedName" ([Data.Text.Text]) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'reservedName (\ x__ y__ -> x__{_EnumDescriptorProto'reservedName = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField EnumDescriptorProto "vec'reservedName" (Data.Vector.Vector Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'reservedName (\ x__ y__ -> x__{_EnumDescriptorProto'reservedName = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message EnumDescriptorProto where messageName _ = Data.Text.pack "google.protobuf.EnumDescriptorProto" fieldsByTag = let name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'name")) :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor EnumValueDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"value")) :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto options__field_descriptor = Data.ProtoLens.FieldDescriptor "options" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor EnumOptions) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'options")) :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto reservedRange__field_descriptor = Data.ProtoLens.FieldDescriptor "reserved_range" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto'EnumReservedRange) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"reservedRange")) :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto reservedName__field_descriptor = Data.ProtoLens.FieldDescriptor "reserved_name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"reservedName")) :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto in Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor), (Data.ProtoLens.Tag 3, options__field_descriptor), (Data.ProtoLens.Tag 4, reservedRange__field_descriptor), (Data.ProtoLens.Tag 5, reservedName__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _EnumDescriptorProto'_unknownFields (\ x__ y__ -> x__{_EnumDescriptorProto'_unknownFields = y__}) defMessage = EnumDescriptorProto{_EnumDescriptorProto'name = Prelude.Nothing, _EnumDescriptorProto'value = Data.Vector.Generic.empty, _EnumDescriptorProto'options = Prelude.Nothing, _EnumDescriptorProto'reservedRange = Data.Vector.Generic.empty, _EnumDescriptorProto'reservedName = Data.Vector.Generic.empty, _EnumDescriptorProto'_unknownFields = ([])} parseMessage = let loop :: EnumDescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EnumDescriptorProto'EnumReservedRange -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EnumValueDescriptorProto -> Data.ProtoLens.Encoding.Bytes.Parser EnumDescriptorProto loop x mutable'reservedName mutable'reservedRange mutable'value = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'reservedName <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'reservedName) frozen'reservedRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'reservedRange) frozen'value <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'value) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'reservedName") frozen'reservedName (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'reservedRange") frozen'reservedRange (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'value") frozen'value x)))) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) mutable'reservedName mutable'reservedRange mutable'value 18 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "value" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'value y) loop x mutable'reservedName mutable'reservedRange v 26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "options" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) mutable'reservedName mutable'reservedRange mutable'value 34 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "reserved_range" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'reservedRange y) loop x mutable'reservedName v mutable'value 42 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "reserved_name" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'reservedName y) loop x v mutable'reservedRange mutable'value wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'reservedName mutable'reservedRange mutable'value in (do mutable'reservedName <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'reservedRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'value <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'reservedName mutable'reservedRange mutable'value) Data.ProtoLens.Encoding.Bytes. "EnumDescriptorProto" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'value") _x)) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'reservedRange") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 42) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'reservedName") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData EnumDescriptorProto where rnf = (\ x__ -> Control.DeepSeq.deepseq (_EnumDescriptorProto'_unknownFields x__) (Control.DeepSeq.deepseq (_EnumDescriptorProto'name x__) (Control.DeepSeq.deepseq (_EnumDescriptorProto'value x__) (Control.DeepSeq.deepseq (_EnumDescriptorProto'options x__) (Control.DeepSeq.deepseq (_EnumDescriptorProto'reservedRange x__) (Control.DeepSeq.deepseq (_EnumDescriptorProto'reservedName x__) (()))))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.start' @:: Lens' EnumDescriptorProto'EnumReservedRange Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'start' @:: Lens' EnumDescriptorProto'EnumReservedRange (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' EnumDescriptorProto'EnumReservedRange Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' EnumDescriptorProto'EnumReservedRange (Prelude.Maybe Data.Int.Int32)@ -} data EnumDescriptorProto'EnumReservedRange = EnumDescriptorProto'EnumReservedRange{_EnumDescriptorProto'EnumReservedRange'start :: !(Prelude.Maybe Data.Int.Int32), _EnumDescriptorProto'EnumReservedRange'end :: !(Prelude.Maybe Data.Int.Int32), _EnumDescriptorProto'EnumReservedRange'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show EnumDescriptorProto'EnumReservedRange where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField EnumDescriptorProto'EnumReservedRange "start" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'EnumReservedRange'start (\ x__ y__ -> x__{_EnumDescriptorProto'EnumReservedRange'start = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField EnumDescriptorProto'EnumReservedRange "maybe'start" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'EnumReservedRange'start (\ x__ y__ -> x__{_EnumDescriptorProto'EnumReservedRange'start = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField EnumDescriptorProto'EnumReservedRange "end" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'EnumReservedRange'end (\ x__ y__ -> x__{_EnumDescriptorProto'EnumReservedRange'end = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField EnumDescriptorProto'EnumReservedRange "maybe'end" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'EnumReservedRange'end (\ x__ y__ -> x__{_EnumDescriptorProto'EnumReservedRange'end = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message EnumDescriptorProto'EnumReservedRange where messageName _ = Data.Text.pack "google.protobuf.EnumDescriptorProto.EnumReservedRange" fieldsByTag = let start__field_descriptor = Data.ProtoLens.FieldDescriptor "start" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'start")) :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto'EnumReservedRange end__field_descriptor = Data.ProtoLens.FieldDescriptor "end" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'end")) :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto'EnumReservedRange in Data.Map.fromList [(Data.ProtoLens.Tag 1, start__field_descriptor), (Data.ProtoLens.Tag 2, end__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _EnumDescriptorProto'EnumReservedRange'_unknownFields (\ x__ y__ -> x__{_EnumDescriptorProto'EnumReservedRange'_unknownFields = y__}) defMessage = EnumDescriptorProto'EnumReservedRange{_EnumDescriptorProto'EnumReservedRange'start = Prelude.Nothing, _EnumDescriptorProto'EnumReservedRange'end = Prelude.Nothing, _EnumDescriptorProto'EnumReservedRange'_unknownFields = ([])} parseMessage = let loop :: EnumDescriptorProto'EnumReservedRange -> Data.ProtoLens.Encoding.Bytes.Parser EnumDescriptorProto'EnumReservedRange loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 8 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "start" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x) 16 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "end" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (do loop Data.ProtoLens.defMessage) Data.ProtoLens.Encoding.Bytes. "EnumReservedRange" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'start") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'end") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData EnumDescriptorProto'EnumReservedRange where rnf = (\ x__ -> Control.DeepSeq.deepseq (_EnumDescriptorProto'EnumReservedRange'_unknownFields x__) (Control.DeepSeq.deepseq (_EnumDescriptorProto'EnumReservedRange'start x__) (Control.DeepSeq.deepseq (_EnumDescriptorProto'EnumReservedRange'end x__) (())))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.allowAlias' @:: Lens' EnumOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'allowAlias' @:: Lens' EnumOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' EnumOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' EnumOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' EnumOptions [UninterpretedOption]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' EnumOptions (Data.Vector.Vector UninterpretedOption)@ -} data EnumOptions = EnumOptions{_EnumOptions'allowAlias :: !(Prelude.Maybe Prelude.Bool), _EnumOptions'deprecated :: !(Prelude.Maybe Prelude.Bool), _EnumOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption), _EnumOptions'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show EnumOptions where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField EnumOptions "allowAlias" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumOptions'allowAlias (\ x__ y__ -> x__{_EnumOptions'allowAlias = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField EnumOptions "maybe'allowAlias" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumOptions'allowAlias (\ x__ y__ -> x__{_EnumOptions'allowAlias = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField EnumOptions "deprecated" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumOptions'deprecated (\ x__ y__ -> x__{_EnumOptions'deprecated = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField EnumOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumOptions'deprecated (\ x__ y__ -> x__{_EnumOptions'deprecated = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField EnumOptions "uninterpretedOption" ([UninterpretedOption]) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumOptions'uninterpretedOption (\ x__ y__ -> x__{_EnumOptions'uninterpretedOption = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField EnumOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumOptions'uninterpretedOption (\ x__ y__ -> x__{_EnumOptions'uninterpretedOption = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message EnumOptions where messageName _ = Data.Text.pack "google.protobuf.EnumOptions" fieldsByTag = let allowAlias__field_descriptor = Data.ProtoLens.FieldDescriptor "allow_alias" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'allowAlias")) :: Data.ProtoLens.FieldDescriptor EnumOptions deprecated__field_descriptor = Data.ProtoLens.FieldDescriptor "deprecated" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'deprecated")) :: Data.ProtoLens.FieldDescriptor EnumOptions uninterpretedOption__field_descriptor = Data.ProtoLens.FieldDescriptor "uninterpreted_option" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uninterpretedOption")) :: Data.ProtoLens.FieldDescriptor EnumOptions in Data.Map.fromList [(Data.ProtoLens.Tag 2, allowAlias__field_descriptor), (Data.ProtoLens.Tag 3, deprecated__field_descriptor), (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _EnumOptions'_unknownFields (\ x__ y__ -> x__{_EnumOptions'_unknownFields = y__}) defMessage = EnumOptions{_EnumOptions'allowAlias = Prelude.Nothing, _EnumOptions'deprecated = Prelude.Nothing, _EnumOptions'uninterpretedOption = Data.Vector.Generic.empty, _EnumOptions'_unknownFields = ([])} parseMessage = let loop :: EnumOptions -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UninterpretedOption -> Data.ProtoLens.Encoding.Bytes.Parser EnumOptions loop x mutable'uninterpretedOption = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uninterpretedOption) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'uninterpretedOption") frozen'uninterpretedOption x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 16 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "allow_alias" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"allowAlias") y x) mutable'uninterpretedOption 24 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "deprecated" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"deprecated") y x) mutable'uninterpretedOption 7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "uninterpreted_option" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'uninterpretedOption y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'uninterpretedOption in (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'uninterpretedOption) Data.ProtoLens.Encoding.Bytes. "EnumOptions" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'allowAlias") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uninterpretedOption") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData EnumOptions where rnf = (\ x__ -> Control.DeepSeq.deepseq (_EnumOptions'_unknownFields x__) (Control.DeepSeq.deepseq (_EnumOptions'allowAlias x__) (Control.DeepSeq.deepseq (_EnumOptions'deprecated x__) (Control.DeepSeq.deepseq (_EnumOptions'uninterpretedOption x__) (()))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' EnumValueDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' EnumValueDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.number' @:: Lens' EnumValueDescriptorProto Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'number' @:: Lens' EnumValueDescriptorProto (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' EnumValueDescriptorProto EnumValueOptions@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' EnumValueDescriptorProto (Prelude.Maybe EnumValueOptions)@ -} data EnumValueDescriptorProto = EnumValueDescriptorProto{_EnumValueDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text), _EnumValueDescriptorProto'number :: !(Prelude.Maybe Data.Int.Int32), _EnumValueDescriptorProto'options :: !(Prelude.Maybe EnumValueOptions), _EnumValueDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show EnumValueDescriptorProto where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "name" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'name (\ x__ y__ -> x__{_EnumValueDescriptorProto'name = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'name (\ x__ y__ -> x__{_EnumValueDescriptorProto'name = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "number" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'number (\ x__ y__ -> x__{_EnumValueDescriptorProto'number = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "maybe'number" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'number (\ x__ y__ -> x__{_EnumValueDescriptorProto'number = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "options" (EnumValueOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'options (\ x__ y__ -> x__{_EnumValueDescriptorProto'options = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "maybe'options" (Prelude.Maybe EnumValueOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'options (\ x__ y__ -> x__{_EnumValueDescriptorProto'options = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message EnumValueDescriptorProto where messageName _ = Data.Text.pack "google.protobuf.EnumValueDescriptorProto" fieldsByTag = let name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'name")) :: Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto number__field_descriptor = Data.ProtoLens.FieldDescriptor "number" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'number")) :: Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto options__field_descriptor = Data.ProtoLens.FieldDescriptor "options" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor EnumValueOptions) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'options")) :: Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto in Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor), (Data.ProtoLens.Tag 2, number__field_descriptor), (Data.ProtoLens.Tag 3, options__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'_unknownFields (\ x__ y__ -> x__{_EnumValueDescriptorProto'_unknownFields = y__}) defMessage = EnumValueDescriptorProto{_EnumValueDescriptorProto'name = Prelude.Nothing, _EnumValueDescriptorProto'number = Prelude.Nothing, _EnumValueDescriptorProto'options = Prelude.Nothing, _EnumValueDescriptorProto'_unknownFields = ([])} parseMessage = let loop :: EnumValueDescriptorProto -> Data.ProtoLens.Encoding.Bytes.Parser EnumValueDescriptorProto loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) 16 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "number" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"number") y x) 26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "options" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (do loop Data.ProtoLens.defMessage) Data.ProtoLens.Encoding.Bytes. "EnumValueDescriptorProto" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'number") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData EnumValueDescriptorProto where rnf = (\ x__ -> Control.DeepSeq.deepseq (_EnumValueDescriptorProto'_unknownFields x__) (Control.DeepSeq.deepseq (_EnumValueDescriptorProto'name x__) (Control.DeepSeq.deepseq (_EnumValueDescriptorProto'number x__) (Control.DeepSeq.deepseq (_EnumValueDescriptorProto'options x__) (()))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' EnumValueOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' EnumValueOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' EnumValueOptions [UninterpretedOption]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' EnumValueOptions (Data.Vector.Vector UninterpretedOption)@ -} data EnumValueOptions = EnumValueOptions{_EnumValueOptions'deprecated :: !(Prelude.Maybe Prelude.Bool), _EnumValueOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption), _EnumValueOptions'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show EnumValueOptions where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField EnumValueOptions "deprecated" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumValueOptions'deprecated (\ x__ y__ -> x__{_EnumValueOptions'deprecated = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField EnumValueOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumValueOptions'deprecated (\ x__ y__ -> x__{_EnumValueOptions'deprecated = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField EnumValueOptions "uninterpretedOption" ([UninterpretedOption]) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumValueOptions'uninterpretedOption (\ x__ y__ -> x__{_EnumValueOptions'uninterpretedOption = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField EnumValueOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where fieldOf _ = (Lens.Family2.Unchecked.lens _EnumValueOptions'uninterpretedOption (\ x__ y__ -> x__{_EnumValueOptions'uninterpretedOption = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message EnumValueOptions where messageName _ = Data.Text.pack "google.protobuf.EnumValueOptions" fieldsByTag = let deprecated__field_descriptor = Data.ProtoLens.FieldDescriptor "deprecated" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'deprecated")) :: Data.ProtoLens.FieldDescriptor EnumValueOptions uninterpretedOption__field_descriptor = Data.ProtoLens.FieldDescriptor "uninterpreted_option" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uninterpretedOption")) :: Data.ProtoLens.FieldDescriptor EnumValueOptions in Data.Map.fromList [(Data.ProtoLens.Tag 1, deprecated__field_descriptor), (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _EnumValueOptions'_unknownFields (\ x__ y__ -> x__{_EnumValueOptions'_unknownFields = y__}) defMessage = EnumValueOptions{_EnumValueOptions'deprecated = Prelude.Nothing, _EnumValueOptions'uninterpretedOption = Data.Vector.Generic.empty, _EnumValueOptions'_unknownFields = ([])} parseMessage = let loop :: EnumValueOptions -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UninterpretedOption -> Data.ProtoLens.Encoding.Bytes.Parser EnumValueOptions loop x mutable'uninterpretedOption = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uninterpretedOption) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'uninterpretedOption") frozen'uninterpretedOption x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 8 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "deprecated" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"deprecated") y x) mutable'uninterpretedOption 7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "uninterpreted_option" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'uninterpretedOption y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'uninterpretedOption in (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'uninterpretedOption) Data.ProtoLens.Encoding.Bytes. "EnumValueOptions" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uninterpretedOption") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData EnumValueOptions where rnf = (\ x__ -> Control.DeepSeq.deepseq (_EnumValueOptions'_unknownFields x__) (Control.DeepSeq.deepseq (_EnumValueOptions'deprecated x__) (Control.DeepSeq.deepseq (_EnumValueOptions'uninterpretedOption x__) (())))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' ExtensionRangeOptions [UninterpretedOption]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' ExtensionRangeOptions (Data.Vector.Vector UninterpretedOption)@ -} data ExtensionRangeOptions = ExtensionRangeOptions{_ExtensionRangeOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption), _ExtensionRangeOptions'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show ExtensionRangeOptions where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ExtensionRangeOptions "uninterpretedOption" ([UninterpretedOption]) where fieldOf _ = (Lens.Family2.Unchecked.lens _ExtensionRangeOptions'uninterpretedOption (\ x__ y__ -> x__{_ExtensionRangeOptions'uninterpretedOption = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField ExtensionRangeOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where fieldOf _ = (Lens.Family2.Unchecked.lens _ExtensionRangeOptions'uninterpretedOption (\ x__ y__ -> x__{_ExtensionRangeOptions'uninterpretedOption = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message ExtensionRangeOptions where messageName _ = Data.Text.pack "google.protobuf.ExtensionRangeOptions" fieldsByTag = let uninterpretedOption__field_descriptor = Data.ProtoLens.FieldDescriptor "uninterpreted_option" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uninterpretedOption")) :: Data.ProtoLens.FieldDescriptor ExtensionRangeOptions in Data.Map.fromList [(Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ExtensionRangeOptions'_unknownFields (\ x__ y__ -> x__{_ExtensionRangeOptions'_unknownFields = y__}) defMessage = ExtensionRangeOptions{_ExtensionRangeOptions'uninterpretedOption = Data.Vector.Generic.empty, _ExtensionRangeOptions'_unknownFields = ([])} parseMessage = let loop :: ExtensionRangeOptions -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UninterpretedOption -> Data.ProtoLens.Encoding.Bytes.Parser ExtensionRangeOptions loop x mutable'uninterpretedOption = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uninterpretedOption) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'uninterpretedOption") frozen'uninterpretedOption x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "uninterpreted_option" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'uninterpretedOption y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'uninterpretedOption in (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'uninterpretedOption) Data.ProtoLens.Encoding.Bytes. "ExtensionRangeOptions" buildMessage = (\ _x -> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uninterpretedOption") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ExtensionRangeOptions where rnf = (\ x__ -> Control.DeepSeq.deepseq (_ExtensionRangeOptions'_unknownFields x__) (Control.DeepSeq.deepseq (_ExtensionRangeOptions'uninterpretedOption x__) (()))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' FieldDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.number' @:: Lens' FieldDescriptorProto Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'number' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.label' @:: Lens' FieldDescriptorProto FieldDescriptorProto'Label@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'label' @:: Lens' FieldDescriptorProto (Prelude.Maybe FieldDescriptorProto'Label)@ * 'Proto.Google.Protobuf.Descriptor_Fields.type'' @:: Lens' FieldDescriptorProto FieldDescriptorProto'Type@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'type'' @:: Lens' FieldDescriptorProto (Prelude.Maybe FieldDescriptorProto'Type)@ * 'Proto.Google.Protobuf.Descriptor_Fields.typeName' @:: Lens' FieldDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'typeName' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.extendee' @:: Lens' FieldDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'extendee' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.defaultValue' @:: Lens' FieldDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'defaultValue' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.oneofIndex' @:: Lens' FieldDescriptorProto Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'oneofIndex' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.jsonName' @:: Lens' FieldDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'jsonName' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' FieldDescriptorProto FieldOptions@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' FieldDescriptorProto (Prelude.Maybe FieldOptions)@ -} data FieldDescriptorProto = FieldDescriptorProto{_FieldDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text), _FieldDescriptorProto'number :: !(Prelude.Maybe Data.Int.Int32), _FieldDescriptorProto'label :: !(Prelude.Maybe FieldDescriptorProto'Label), _FieldDescriptorProto'type' :: !(Prelude.Maybe FieldDescriptorProto'Type), _FieldDescriptorProto'typeName :: !(Prelude.Maybe Data.Text.Text), _FieldDescriptorProto'extendee :: !(Prelude.Maybe Data.Text.Text), _FieldDescriptorProto'defaultValue :: !(Prelude.Maybe Data.Text.Text), _FieldDescriptorProto'oneofIndex :: !(Prelude.Maybe Data.Int.Int32), _FieldDescriptorProto'jsonName :: !(Prelude.Maybe Data.Text.Text), _FieldDescriptorProto'options :: !(Prelude.Maybe FieldOptions), _FieldDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show FieldDescriptorProto where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField FieldDescriptorProto "name" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'name (\ x__ y__ -> x__{_FieldDescriptorProto'name = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'name (\ x__ y__ -> x__{_FieldDescriptorProto'name = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldDescriptorProto "number" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'number (\ x__ y__ -> x__{_FieldDescriptorProto'number = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'number" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'number (\ x__ y__ -> x__{_FieldDescriptorProto'number = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldDescriptorProto "label" (FieldDescriptorProto'Label) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'label (\ x__ y__ -> x__{_FieldDescriptorProto'label = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'label" (Prelude.Maybe FieldDescriptorProto'Label) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'label (\ x__ y__ -> x__{_FieldDescriptorProto'label = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldDescriptorProto "type'" (FieldDescriptorProto'Type) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'type' (\ x__ y__ -> x__{_FieldDescriptorProto'type' = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'type'" (Prelude.Maybe FieldDescriptorProto'Type) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'type' (\ x__ y__ -> x__{_FieldDescriptorProto'type' = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldDescriptorProto "typeName" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'typeName (\ x__ y__ -> x__{_FieldDescriptorProto'typeName = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'typeName" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'typeName (\ x__ y__ -> x__{_FieldDescriptorProto'typeName = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldDescriptorProto "extendee" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'extendee (\ x__ y__ -> x__{_FieldDescriptorProto'extendee = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'extendee" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'extendee (\ x__ y__ -> x__{_FieldDescriptorProto'extendee = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldDescriptorProto "defaultValue" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'defaultValue (\ x__ y__ -> x__{_FieldDescriptorProto'defaultValue = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'defaultValue" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'defaultValue (\ x__ y__ -> x__{_FieldDescriptorProto'defaultValue = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldDescriptorProto "oneofIndex" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'oneofIndex (\ x__ y__ -> x__{_FieldDescriptorProto'oneofIndex = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'oneofIndex" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'oneofIndex (\ x__ y__ -> x__{_FieldDescriptorProto'oneofIndex = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldDescriptorProto "jsonName" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'jsonName (\ x__ y__ -> x__{_FieldDescriptorProto'jsonName = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'jsonName" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'jsonName (\ x__ y__ -> x__{_FieldDescriptorProto'jsonName = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldDescriptorProto "options" (FieldOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'options (\ x__ y__ -> x__{_FieldDescriptorProto'options = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'options" (Prelude.Maybe FieldOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'options (\ x__ y__ -> x__{_FieldDescriptorProto'options = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message FieldDescriptorProto where messageName _ = Data.Text.pack "google.protobuf.FieldDescriptorProto" fieldsByTag = let name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'name")) :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto number__field_descriptor = Data.ProtoLens.FieldDescriptor "number" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'number")) :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto label__field_descriptor = Data.ProtoLens.FieldDescriptor "label" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto'Label) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'label")) :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto type'__field_descriptor = Data.ProtoLens.FieldDescriptor "type" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto'Type) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'type'")) :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto typeName__field_descriptor = Data.ProtoLens.FieldDescriptor "type_name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'typeName")) :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto extendee__field_descriptor = Data.ProtoLens.FieldDescriptor "extendee" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'extendee")) :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto defaultValue__field_descriptor = Data.ProtoLens.FieldDescriptor "default_value" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'defaultValue")) :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto oneofIndex__field_descriptor = Data.ProtoLens.FieldDescriptor "oneof_index" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'oneofIndex")) :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto jsonName__field_descriptor = Data.ProtoLens.FieldDescriptor "json_name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'jsonName")) :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto options__field_descriptor = Data.ProtoLens.FieldDescriptor "options" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FieldOptions) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'options")) :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto in Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor), (Data.ProtoLens.Tag 3, number__field_descriptor), (Data.ProtoLens.Tag 4, label__field_descriptor), (Data.ProtoLens.Tag 5, type'__field_descriptor), (Data.ProtoLens.Tag 6, typeName__field_descriptor), (Data.ProtoLens.Tag 2, extendee__field_descriptor), (Data.ProtoLens.Tag 7, defaultValue__field_descriptor), (Data.ProtoLens.Tag 9, oneofIndex__field_descriptor), (Data.ProtoLens.Tag 10, jsonName__field_descriptor), (Data.ProtoLens.Tag 8, options__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FieldDescriptorProto'_unknownFields (\ x__ y__ -> x__{_FieldDescriptorProto'_unknownFields = y__}) defMessage = FieldDescriptorProto{_FieldDescriptorProto'name = Prelude.Nothing, _FieldDescriptorProto'number = Prelude.Nothing, _FieldDescriptorProto'label = Prelude.Nothing, _FieldDescriptorProto'type' = Prelude.Nothing, _FieldDescriptorProto'typeName = Prelude.Nothing, _FieldDescriptorProto'extendee = Prelude.Nothing, _FieldDescriptorProto'defaultValue = Prelude.Nothing, _FieldDescriptorProto'oneofIndex = Prelude.Nothing, _FieldDescriptorProto'jsonName = Prelude.Nothing, _FieldDescriptorProto'options = Prelude.Nothing, _FieldDescriptorProto'_unknownFields = ([])} parseMessage = let loop :: FieldDescriptorProto -> Data.ProtoLens.Encoding.Bytes.Parser FieldDescriptorProto loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) 24 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "number" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"number") y x) 32 -> do y <- (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) Data.ProtoLens.Encoding.Bytes. "label" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"label") y x) 40 -> do y <- (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) Data.ProtoLens.Encoding.Bytes. "type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) 50 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "type_name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"typeName") y x) 18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "extendee" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"extendee") y x) 58 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "default_value" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"defaultValue") y x) 72 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "oneof_index" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"oneofIndex") y x) 82 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "json_name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"jsonName") y x) 66 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "options" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (do loop Data.ProtoLens.defMessage) Data.ProtoLens.Encoding.Bytes. "FieldDescriptorProto" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'number") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'label") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 32) Data.Monoid.<> (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) Prelude.. Prelude.fromEnum) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 40) Data.Monoid.<> (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) Prelude.. Prelude.fromEnum) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'typeName") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 50) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'extendee") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'defaultValue") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 58) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'oneofIndex") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 72) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'jsonName") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 82) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 66) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData FieldDescriptorProto where rnf = (\ x__ -> Control.DeepSeq.deepseq (_FieldDescriptorProto'_unknownFields x__) (Control.DeepSeq.deepseq (_FieldDescriptorProto'name x__) (Control.DeepSeq.deepseq (_FieldDescriptorProto'number x__) (Control.DeepSeq.deepseq (_FieldDescriptorProto'label x__) (Control.DeepSeq.deepseq (_FieldDescriptorProto'type' x__) (Control.DeepSeq.deepseq (_FieldDescriptorProto'typeName x__) (Control.DeepSeq.deepseq (_FieldDescriptorProto'extendee x__) (Control.DeepSeq.deepseq (_FieldDescriptorProto'defaultValue x__) (Control.DeepSeq.deepseq (_FieldDescriptorProto'oneofIndex x__) (Control.DeepSeq.deepseq (_FieldDescriptorProto'jsonName x__) (Control.DeepSeq.deepseq (_FieldDescriptorProto'options x__) (())))))))))))) data FieldDescriptorProto'Label = FieldDescriptorProto'LABEL_OPTIONAL | FieldDescriptorProto'LABEL_REQUIRED | FieldDescriptorProto'LABEL_REPEATED deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum FieldDescriptorProto'Label where maybeToEnum 1 = Prelude.Just FieldDescriptorProto'LABEL_OPTIONAL maybeToEnum 2 = Prelude.Just FieldDescriptorProto'LABEL_REQUIRED maybeToEnum 3 = Prelude.Just FieldDescriptorProto'LABEL_REPEATED maybeToEnum _ = Prelude.Nothing showEnum FieldDescriptorProto'LABEL_OPTIONAL = "LABEL_OPTIONAL" showEnum FieldDescriptorProto'LABEL_REQUIRED = "LABEL_REQUIRED" showEnum FieldDescriptorProto'LABEL_REPEATED = "LABEL_REPEATED" readEnum k | (k) Prelude.== "LABEL_OPTIONAL" = Prelude.Just FieldDescriptorProto'LABEL_OPTIONAL | (k) Prelude.== "LABEL_REQUIRED" = Prelude.Just FieldDescriptorProto'LABEL_REQUIRED | (k) Prelude.== "LABEL_REPEATED" = Prelude.Just FieldDescriptorProto'LABEL_REPEATED readEnum k = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum instance Prelude.Bounded FieldDescriptorProto'Label where minBound = FieldDescriptorProto'LABEL_OPTIONAL maxBound = FieldDescriptorProto'LABEL_REPEATED instance Prelude.Enum FieldDescriptorProto'Label where toEnum k__ = Prelude.maybe (Prelude.error (("toEnum: unknown value for enum Label: ") Prelude.++ Prelude.show k__)) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum FieldDescriptorProto'LABEL_OPTIONAL = 1 fromEnum FieldDescriptorProto'LABEL_REQUIRED = 2 fromEnum FieldDescriptorProto'LABEL_REPEATED = 3 succ FieldDescriptorProto'LABEL_REPEATED = Prelude.error "FieldDescriptorProto'Label.succ: bad argument FieldDescriptorProto'LABEL_REPEATED. This value would be out of bounds." succ FieldDescriptorProto'LABEL_OPTIONAL = FieldDescriptorProto'LABEL_REQUIRED succ FieldDescriptorProto'LABEL_REQUIRED = FieldDescriptorProto'LABEL_REPEATED pred FieldDescriptorProto'LABEL_OPTIONAL = Prelude.error "FieldDescriptorProto'Label.pred: bad argument FieldDescriptorProto'LABEL_OPTIONAL. This value would be out of bounds." pred FieldDescriptorProto'LABEL_REQUIRED = FieldDescriptorProto'LABEL_OPTIONAL pred FieldDescriptorProto'LABEL_REPEATED = FieldDescriptorProto'LABEL_REQUIRED enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo instance Data.ProtoLens.FieldDefault FieldDescriptorProto'Label where fieldDefault = FieldDescriptorProto'LABEL_OPTIONAL instance Control.DeepSeq.NFData FieldDescriptorProto'Label where rnf x__ = Prelude.seq x__ (()) data FieldDescriptorProto'Type = FieldDescriptorProto'TYPE_DOUBLE | FieldDescriptorProto'TYPE_FLOAT | FieldDescriptorProto'TYPE_INT64 | FieldDescriptorProto'TYPE_UINT64 | FieldDescriptorProto'TYPE_INT32 | FieldDescriptorProto'TYPE_FIXED64 | FieldDescriptorProto'TYPE_FIXED32 | FieldDescriptorProto'TYPE_BOOL | FieldDescriptorProto'TYPE_STRING | FieldDescriptorProto'TYPE_GROUP | FieldDescriptorProto'TYPE_MESSAGE | FieldDescriptorProto'TYPE_BYTES | FieldDescriptorProto'TYPE_UINT32 | FieldDescriptorProto'TYPE_ENUM | FieldDescriptorProto'TYPE_SFIXED32 | FieldDescriptorProto'TYPE_SFIXED64 | FieldDescriptorProto'TYPE_SINT32 | FieldDescriptorProto'TYPE_SINT64 deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum FieldDescriptorProto'Type where maybeToEnum 1 = Prelude.Just FieldDescriptorProto'TYPE_DOUBLE maybeToEnum 2 = Prelude.Just FieldDescriptorProto'TYPE_FLOAT maybeToEnum 3 = Prelude.Just FieldDescriptorProto'TYPE_INT64 maybeToEnum 4 = Prelude.Just FieldDescriptorProto'TYPE_UINT64 maybeToEnum 5 = Prelude.Just FieldDescriptorProto'TYPE_INT32 maybeToEnum 6 = Prelude.Just FieldDescriptorProto'TYPE_FIXED64 maybeToEnum 7 = Prelude.Just FieldDescriptorProto'TYPE_FIXED32 maybeToEnum 8 = Prelude.Just FieldDescriptorProto'TYPE_BOOL maybeToEnum 9 = Prelude.Just FieldDescriptorProto'TYPE_STRING maybeToEnum 10 = Prelude.Just FieldDescriptorProto'TYPE_GROUP maybeToEnum 11 = Prelude.Just FieldDescriptorProto'TYPE_MESSAGE maybeToEnum 12 = Prelude.Just FieldDescriptorProto'TYPE_BYTES maybeToEnum 13 = Prelude.Just FieldDescriptorProto'TYPE_UINT32 maybeToEnum 14 = Prelude.Just FieldDescriptorProto'TYPE_ENUM maybeToEnum 15 = Prelude.Just FieldDescriptorProto'TYPE_SFIXED32 maybeToEnum 16 = Prelude.Just FieldDescriptorProto'TYPE_SFIXED64 maybeToEnum 17 = Prelude.Just FieldDescriptorProto'TYPE_SINT32 maybeToEnum 18 = Prelude.Just FieldDescriptorProto'TYPE_SINT64 maybeToEnum _ = Prelude.Nothing showEnum FieldDescriptorProto'TYPE_DOUBLE = "TYPE_DOUBLE" showEnum FieldDescriptorProto'TYPE_FLOAT = "TYPE_FLOAT" showEnum FieldDescriptorProto'TYPE_INT64 = "TYPE_INT64" showEnum FieldDescriptorProto'TYPE_UINT64 = "TYPE_UINT64" showEnum FieldDescriptorProto'TYPE_INT32 = "TYPE_INT32" showEnum FieldDescriptorProto'TYPE_FIXED64 = "TYPE_FIXED64" showEnum FieldDescriptorProto'TYPE_FIXED32 = "TYPE_FIXED32" showEnum FieldDescriptorProto'TYPE_BOOL = "TYPE_BOOL" showEnum FieldDescriptorProto'TYPE_STRING = "TYPE_STRING" showEnum FieldDescriptorProto'TYPE_GROUP = "TYPE_GROUP" showEnum FieldDescriptorProto'TYPE_MESSAGE = "TYPE_MESSAGE" showEnum FieldDescriptorProto'TYPE_BYTES = "TYPE_BYTES" showEnum FieldDescriptorProto'TYPE_UINT32 = "TYPE_UINT32" showEnum FieldDescriptorProto'TYPE_ENUM = "TYPE_ENUM" showEnum FieldDescriptorProto'TYPE_SFIXED32 = "TYPE_SFIXED32" showEnum FieldDescriptorProto'TYPE_SFIXED64 = "TYPE_SFIXED64" showEnum FieldDescriptorProto'TYPE_SINT32 = "TYPE_SINT32" showEnum FieldDescriptorProto'TYPE_SINT64 = "TYPE_SINT64" readEnum k | (k) Prelude.== "TYPE_DOUBLE" = Prelude.Just FieldDescriptorProto'TYPE_DOUBLE | (k) Prelude.== "TYPE_FLOAT" = Prelude.Just FieldDescriptorProto'TYPE_FLOAT | (k) Prelude.== "TYPE_INT64" = Prelude.Just FieldDescriptorProto'TYPE_INT64 | (k) Prelude.== "TYPE_UINT64" = Prelude.Just FieldDescriptorProto'TYPE_UINT64 | (k) Prelude.== "TYPE_INT32" = Prelude.Just FieldDescriptorProto'TYPE_INT32 | (k) Prelude.== "TYPE_FIXED64" = Prelude.Just FieldDescriptorProto'TYPE_FIXED64 | (k) Prelude.== "TYPE_FIXED32" = Prelude.Just FieldDescriptorProto'TYPE_FIXED32 | (k) Prelude.== "TYPE_BOOL" = Prelude.Just FieldDescriptorProto'TYPE_BOOL | (k) Prelude.== "TYPE_STRING" = Prelude.Just FieldDescriptorProto'TYPE_STRING | (k) Prelude.== "TYPE_GROUP" = Prelude.Just FieldDescriptorProto'TYPE_GROUP | (k) Prelude.== "TYPE_MESSAGE" = Prelude.Just FieldDescriptorProto'TYPE_MESSAGE | (k) Prelude.== "TYPE_BYTES" = Prelude.Just FieldDescriptorProto'TYPE_BYTES | (k) Prelude.== "TYPE_UINT32" = Prelude.Just FieldDescriptorProto'TYPE_UINT32 | (k) Prelude.== "TYPE_ENUM" = Prelude.Just FieldDescriptorProto'TYPE_ENUM | (k) Prelude.== "TYPE_SFIXED32" = Prelude.Just FieldDescriptorProto'TYPE_SFIXED32 | (k) Prelude.== "TYPE_SFIXED64" = Prelude.Just FieldDescriptorProto'TYPE_SFIXED64 | (k) Prelude.== "TYPE_SINT32" = Prelude.Just FieldDescriptorProto'TYPE_SINT32 | (k) Prelude.== "TYPE_SINT64" = Prelude.Just FieldDescriptorProto'TYPE_SINT64 readEnum k = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum instance Prelude.Bounded FieldDescriptorProto'Type where minBound = FieldDescriptorProto'TYPE_DOUBLE maxBound = FieldDescriptorProto'TYPE_SINT64 instance Prelude.Enum FieldDescriptorProto'Type where toEnum k__ = Prelude.maybe (Prelude.error (("toEnum: unknown value for enum Type: ") Prelude.++ Prelude.show k__)) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum FieldDescriptorProto'TYPE_DOUBLE = 1 fromEnum FieldDescriptorProto'TYPE_FLOAT = 2 fromEnum FieldDescriptorProto'TYPE_INT64 = 3 fromEnum FieldDescriptorProto'TYPE_UINT64 = 4 fromEnum FieldDescriptorProto'TYPE_INT32 = 5 fromEnum FieldDescriptorProto'TYPE_FIXED64 = 6 fromEnum FieldDescriptorProto'TYPE_FIXED32 = 7 fromEnum FieldDescriptorProto'TYPE_BOOL = 8 fromEnum FieldDescriptorProto'TYPE_STRING = 9 fromEnum FieldDescriptorProto'TYPE_GROUP = 10 fromEnum FieldDescriptorProto'TYPE_MESSAGE = 11 fromEnum FieldDescriptorProto'TYPE_BYTES = 12 fromEnum FieldDescriptorProto'TYPE_UINT32 = 13 fromEnum FieldDescriptorProto'TYPE_ENUM = 14 fromEnum FieldDescriptorProto'TYPE_SFIXED32 = 15 fromEnum FieldDescriptorProto'TYPE_SFIXED64 = 16 fromEnum FieldDescriptorProto'TYPE_SINT32 = 17 fromEnum FieldDescriptorProto'TYPE_SINT64 = 18 succ FieldDescriptorProto'TYPE_SINT64 = Prelude.error "FieldDescriptorProto'Type.succ: bad argument FieldDescriptorProto'TYPE_SINT64. This value would be out of bounds." succ FieldDescriptorProto'TYPE_DOUBLE = FieldDescriptorProto'TYPE_FLOAT succ FieldDescriptorProto'TYPE_FLOAT = FieldDescriptorProto'TYPE_INT64 succ FieldDescriptorProto'TYPE_INT64 = FieldDescriptorProto'TYPE_UINT64 succ FieldDescriptorProto'TYPE_UINT64 = FieldDescriptorProto'TYPE_INT32 succ FieldDescriptorProto'TYPE_INT32 = FieldDescriptorProto'TYPE_FIXED64 succ FieldDescriptorProto'TYPE_FIXED64 = FieldDescriptorProto'TYPE_FIXED32 succ FieldDescriptorProto'TYPE_FIXED32 = FieldDescriptorProto'TYPE_BOOL succ FieldDescriptorProto'TYPE_BOOL = FieldDescriptorProto'TYPE_STRING succ FieldDescriptorProto'TYPE_STRING = FieldDescriptorProto'TYPE_GROUP succ FieldDescriptorProto'TYPE_GROUP = FieldDescriptorProto'TYPE_MESSAGE succ FieldDescriptorProto'TYPE_MESSAGE = FieldDescriptorProto'TYPE_BYTES succ FieldDescriptorProto'TYPE_BYTES = FieldDescriptorProto'TYPE_UINT32 succ FieldDescriptorProto'TYPE_UINT32 = FieldDescriptorProto'TYPE_ENUM succ FieldDescriptorProto'TYPE_ENUM = FieldDescriptorProto'TYPE_SFIXED32 succ FieldDescriptorProto'TYPE_SFIXED32 = FieldDescriptorProto'TYPE_SFIXED64 succ FieldDescriptorProto'TYPE_SFIXED64 = FieldDescriptorProto'TYPE_SINT32 succ FieldDescriptorProto'TYPE_SINT32 = FieldDescriptorProto'TYPE_SINT64 pred FieldDescriptorProto'TYPE_DOUBLE = Prelude.error "FieldDescriptorProto'Type.pred: bad argument FieldDescriptorProto'TYPE_DOUBLE. This value would be out of bounds." pred FieldDescriptorProto'TYPE_FLOAT = FieldDescriptorProto'TYPE_DOUBLE pred FieldDescriptorProto'TYPE_INT64 = FieldDescriptorProto'TYPE_FLOAT pred FieldDescriptorProto'TYPE_UINT64 = FieldDescriptorProto'TYPE_INT64 pred FieldDescriptorProto'TYPE_INT32 = FieldDescriptorProto'TYPE_UINT64 pred FieldDescriptorProto'TYPE_FIXED64 = FieldDescriptorProto'TYPE_INT32 pred FieldDescriptorProto'TYPE_FIXED32 = FieldDescriptorProto'TYPE_FIXED64 pred FieldDescriptorProto'TYPE_BOOL = FieldDescriptorProto'TYPE_FIXED32 pred FieldDescriptorProto'TYPE_STRING = FieldDescriptorProto'TYPE_BOOL pred FieldDescriptorProto'TYPE_GROUP = FieldDescriptorProto'TYPE_STRING pred FieldDescriptorProto'TYPE_MESSAGE = FieldDescriptorProto'TYPE_GROUP pred FieldDescriptorProto'TYPE_BYTES = FieldDescriptorProto'TYPE_MESSAGE pred FieldDescriptorProto'TYPE_UINT32 = FieldDescriptorProto'TYPE_BYTES pred FieldDescriptorProto'TYPE_ENUM = FieldDescriptorProto'TYPE_UINT32 pred FieldDescriptorProto'TYPE_SFIXED32 = FieldDescriptorProto'TYPE_ENUM pred FieldDescriptorProto'TYPE_SFIXED64 = FieldDescriptorProto'TYPE_SFIXED32 pred FieldDescriptorProto'TYPE_SINT32 = FieldDescriptorProto'TYPE_SFIXED64 pred FieldDescriptorProto'TYPE_SINT64 = FieldDescriptorProto'TYPE_SINT32 enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo instance Data.ProtoLens.FieldDefault FieldDescriptorProto'Type where fieldDefault = FieldDescriptorProto'TYPE_DOUBLE instance Control.DeepSeq.NFData FieldDescriptorProto'Type where rnf x__ = Prelude.seq x__ (()) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.ctype' @:: Lens' FieldOptions FieldOptions'CType@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'ctype' @:: Lens' FieldOptions (Prelude.Maybe FieldOptions'CType)@ * 'Proto.Google.Protobuf.Descriptor_Fields.packed' @:: Lens' FieldOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'packed' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.jstype' @:: Lens' FieldOptions FieldOptions'JSType@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'jstype' @:: Lens' FieldOptions (Prelude.Maybe FieldOptions'JSType)@ * 'Proto.Google.Protobuf.Descriptor_Fields.lazy' @:: Lens' FieldOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'lazy' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' FieldOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.weak' @:: Lens' FieldOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'weak' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' FieldOptions [UninterpretedOption]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' FieldOptions (Data.Vector.Vector UninterpretedOption)@ -} data FieldOptions = FieldOptions{_FieldOptions'ctype :: !(Prelude.Maybe FieldOptions'CType), _FieldOptions'packed :: !(Prelude.Maybe Prelude.Bool), _FieldOptions'jstype :: !(Prelude.Maybe FieldOptions'JSType), _FieldOptions'lazy :: !(Prelude.Maybe Prelude.Bool), _FieldOptions'deprecated :: !(Prelude.Maybe Prelude.Bool), _FieldOptions'weak :: !(Prelude.Maybe Prelude.Bool), _FieldOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption), _FieldOptions'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show FieldOptions where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField FieldOptions "ctype" (FieldOptions'CType) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'ctype (\ x__ y__ -> x__{_FieldOptions'ctype = y__})) Prelude.. Data.ProtoLens.maybeLens FieldOptions'STRING instance Data.ProtoLens.Field.HasField FieldOptions "maybe'ctype" (Prelude.Maybe FieldOptions'CType) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'ctype (\ x__ y__ -> x__{_FieldOptions'ctype = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldOptions "packed" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'packed (\ x__ y__ -> x__{_FieldOptions'packed = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FieldOptions "maybe'packed" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'packed (\ x__ y__ -> x__{_FieldOptions'packed = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldOptions "jstype" (FieldOptions'JSType) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'jstype (\ x__ y__ -> x__{_FieldOptions'jstype = y__})) Prelude.. Data.ProtoLens.maybeLens FieldOptions'JS_NORMAL instance Data.ProtoLens.Field.HasField FieldOptions "maybe'jstype" (Prelude.Maybe FieldOptions'JSType) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'jstype (\ x__ y__ -> x__{_FieldOptions'jstype = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldOptions "lazy" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'lazy (\ x__ y__ -> x__{_FieldOptions'lazy = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FieldOptions "maybe'lazy" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'lazy (\ x__ y__ -> x__{_FieldOptions'lazy = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldOptions "deprecated" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'deprecated (\ x__ y__ -> x__{_FieldOptions'deprecated = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FieldOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'deprecated (\ x__ y__ -> x__{_FieldOptions'deprecated = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldOptions "weak" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'weak (\ x__ y__ -> x__{_FieldOptions'weak = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FieldOptions "maybe'weak" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'weak (\ x__ y__ -> x__{_FieldOptions'weak = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FieldOptions "uninterpretedOption" ([UninterpretedOption]) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'uninterpretedOption (\ x__ y__ -> x__{_FieldOptions'uninterpretedOption = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField FieldOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where fieldOf _ = (Lens.Family2.Unchecked.lens _FieldOptions'uninterpretedOption (\ x__ y__ -> x__{_FieldOptions'uninterpretedOption = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message FieldOptions where messageName _ = Data.Text.pack "google.protobuf.FieldOptions" fieldsByTag = let ctype__field_descriptor = Data.ProtoLens.FieldDescriptor "ctype" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor FieldOptions'CType) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'ctype")) :: Data.ProtoLens.FieldDescriptor FieldOptions packed__field_descriptor = Data.ProtoLens.FieldDescriptor "packed" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'packed")) :: Data.ProtoLens.FieldDescriptor FieldOptions jstype__field_descriptor = Data.ProtoLens.FieldDescriptor "jstype" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor FieldOptions'JSType) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'jstype")) :: Data.ProtoLens.FieldDescriptor FieldOptions lazy__field_descriptor = Data.ProtoLens.FieldDescriptor "lazy" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'lazy")) :: Data.ProtoLens.FieldDescriptor FieldOptions deprecated__field_descriptor = Data.ProtoLens.FieldDescriptor "deprecated" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'deprecated")) :: Data.ProtoLens.FieldDescriptor FieldOptions weak__field_descriptor = Data.ProtoLens.FieldDescriptor "weak" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'weak")) :: Data.ProtoLens.FieldDescriptor FieldOptions uninterpretedOption__field_descriptor = Data.ProtoLens.FieldDescriptor "uninterpreted_option" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uninterpretedOption")) :: Data.ProtoLens.FieldDescriptor FieldOptions in Data.Map.fromList [(Data.ProtoLens.Tag 1, ctype__field_descriptor), (Data.ProtoLens.Tag 2, packed__field_descriptor), (Data.ProtoLens.Tag 6, jstype__field_descriptor), (Data.ProtoLens.Tag 5, lazy__field_descriptor), (Data.ProtoLens.Tag 3, deprecated__field_descriptor), (Data.ProtoLens.Tag 10, weak__field_descriptor), (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FieldOptions'_unknownFields (\ x__ y__ -> x__{_FieldOptions'_unknownFields = y__}) defMessage = FieldOptions{_FieldOptions'ctype = Prelude.Nothing, _FieldOptions'packed = Prelude.Nothing, _FieldOptions'jstype = Prelude.Nothing, _FieldOptions'lazy = Prelude.Nothing, _FieldOptions'deprecated = Prelude.Nothing, _FieldOptions'weak = Prelude.Nothing, _FieldOptions'uninterpretedOption = Data.Vector.Generic.empty, _FieldOptions'_unknownFields = ([])} parseMessage = let loop :: FieldOptions -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UninterpretedOption -> Data.ProtoLens.Encoding.Bytes.Parser FieldOptions loop x mutable'uninterpretedOption = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uninterpretedOption) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'uninterpretedOption") frozen'uninterpretedOption x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 8 -> do y <- (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) Data.ProtoLens.Encoding.Bytes. "ctype" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ctype") y x) mutable'uninterpretedOption 16 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "packed" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"packed") y x) mutable'uninterpretedOption 48 -> do y <- (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) Data.ProtoLens.Encoding.Bytes. "jstype" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"jstype") y x) mutable'uninterpretedOption 40 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "lazy" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lazy") y x) mutable'uninterpretedOption 24 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "deprecated" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"deprecated") y x) mutable'uninterpretedOption 80 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "weak" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"weak") y x) mutable'uninterpretedOption 7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "uninterpreted_option" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'uninterpretedOption y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'uninterpretedOption in (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'uninterpretedOption) Data.ProtoLens.Encoding.Bytes. "FieldOptions" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'ctype") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<> (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) Prelude.. Prelude.fromEnum) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'packed") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'jstype") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 48) Data.Monoid.<> (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) Prelude.. Prelude.fromEnum) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'lazy") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 40) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'weak") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 80) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uninterpretedOption") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData FieldOptions where rnf = (\ x__ -> Control.DeepSeq.deepseq (_FieldOptions'_unknownFields x__) (Control.DeepSeq.deepseq (_FieldOptions'ctype x__) (Control.DeepSeq.deepseq (_FieldOptions'packed x__) (Control.DeepSeq.deepseq (_FieldOptions'jstype x__) (Control.DeepSeq.deepseq (_FieldOptions'lazy x__) (Control.DeepSeq.deepseq (_FieldOptions'deprecated x__) (Control.DeepSeq.deepseq (_FieldOptions'weak x__) (Control.DeepSeq.deepseq (_FieldOptions'uninterpretedOption x__) (()))))))))) data FieldOptions'CType = FieldOptions'STRING | FieldOptions'CORD | FieldOptions'STRING_PIECE deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum FieldOptions'CType where maybeToEnum 0 = Prelude.Just FieldOptions'STRING maybeToEnum 1 = Prelude.Just FieldOptions'CORD maybeToEnum 2 = Prelude.Just FieldOptions'STRING_PIECE maybeToEnum _ = Prelude.Nothing showEnum FieldOptions'STRING = "STRING" showEnum FieldOptions'CORD = "CORD" showEnum FieldOptions'STRING_PIECE = "STRING_PIECE" readEnum k | (k) Prelude.== "STRING" = Prelude.Just FieldOptions'STRING | (k) Prelude.== "CORD" = Prelude.Just FieldOptions'CORD | (k) Prelude.== "STRING_PIECE" = Prelude.Just FieldOptions'STRING_PIECE readEnum k = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum instance Prelude.Bounded FieldOptions'CType where minBound = FieldOptions'STRING maxBound = FieldOptions'STRING_PIECE instance Prelude.Enum FieldOptions'CType where toEnum k__ = Prelude.maybe (Prelude.error (("toEnum: unknown value for enum CType: ") Prelude.++ Prelude.show k__)) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum FieldOptions'STRING = 0 fromEnum FieldOptions'CORD = 1 fromEnum FieldOptions'STRING_PIECE = 2 succ FieldOptions'STRING_PIECE = Prelude.error "FieldOptions'CType.succ: bad argument FieldOptions'STRING_PIECE. This value would be out of bounds." succ FieldOptions'STRING = FieldOptions'CORD succ FieldOptions'CORD = FieldOptions'STRING_PIECE pred FieldOptions'STRING = Prelude.error "FieldOptions'CType.pred: bad argument FieldOptions'STRING. This value would be out of bounds." pred FieldOptions'CORD = FieldOptions'STRING pred FieldOptions'STRING_PIECE = FieldOptions'CORD enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo instance Data.ProtoLens.FieldDefault FieldOptions'CType where fieldDefault = FieldOptions'STRING instance Control.DeepSeq.NFData FieldOptions'CType where rnf x__ = Prelude.seq x__ (()) data FieldOptions'JSType = FieldOptions'JS_NORMAL | FieldOptions'JS_STRING | FieldOptions'JS_NUMBER deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum FieldOptions'JSType where maybeToEnum 0 = Prelude.Just FieldOptions'JS_NORMAL maybeToEnum 1 = Prelude.Just FieldOptions'JS_STRING maybeToEnum 2 = Prelude.Just FieldOptions'JS_NUMBER maybeToEnum _ = Prelude.Nothing showEnum FieldOptions'JS_NORMAL = "JS_NORMAL" showEnum FieldOptions'JS_STRING = "JS_STRING" showEnum FieldOptions'JS_NUMBER = "JS_NUMBER" readEnum k | (k) Prelude.== "JS_NORMAL" = Prelude.Just FieldOptions'JS_NORMAL | (k) Prelude.== "JS_STRING" = Prelude.Just FieldOptions'JS_STRING | (k) Prelude.== "JS_NUMBER" = Prelude.Just FieldOptions'JS_NUMBER readEnum k = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum instance Prelude.Bounded FieldOptions'JSType where minBound = FieldOptions'JS_NORMAL maxBound = FieldOptions'JS_NUMBER instance Prelude.Enum FieldOptions'JSType where toEnum k__ = Prelude.maybe (Prelude.error (("toEnum: unknown value for enum JSType: ") Prelude.++ Prelude.show k__)) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum FieldOptions'JS_NORMAL = 0 fromEnum FieldOptions'JS_STRING = 1 fromEnum FieldOptions'JS_NUMBER = 2 succ FieldOptions'JS_NUMBER = Prelude.error "FieldOptions'JSType.succ: bad argument FieldOptions'JS_NUMBER. This value would be out of bounds." succ FieldOptions'JS_NORMAL = FieldOptions'JS_STRING succ FieldOptions'JS_STRING = FieldOptions'JS_NUMBER pred FieldOptions'JS_NORMAL = Prelude.error "FieldOptions'JSType.pred: bad argument FieldOptions'JS_NORMAL. This value would be out of bounds." pred FieldOptions'JS_STRING = FieldOptions'JS_NORMAL pred FieldOptions'JS_NUMBER = FieldOptions'JS_STRING enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo instance Data.ProtoLens.FieldDefault FieldOptions'JSType where fieldDefault = FieldOptions'JS_NORMAL instance Control.DeepSeq.NFData FieldOptions'JSType where rnf x__ = Prelude.seq x__ (()) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' FileDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' FileDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.package' @:: Lens' FileDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'package' @:: Lens' FileDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.dependency' @:: Lens' FileDescriptorProto [Data.Text.Text]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'dependency' @:: Lens' FileDescriptorProto (Data.Vector.Vector Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.publicDependency' @:: Lens' FileDescriptorProto [Data.Int.Int32]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'publicDependency' @:: Lens' FileDescriptorProto (Data.Vector.Unboxed.Vector Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.weakDependency' @:: Lens' FileDescriptorProto [Data.Int.Int32]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'weakDependency' @:: Lens' FileDescriptorProto (Data.Vector.Unboxed.Vector Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.messageType' @:: Lens' FileDescriptorProto [DescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'messageType' @:: Lens' FileDescriptorProto (Data.Vector.Vector DescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.enumType' @:: Lens' FileDescriptorProto [EnumDescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'enumType' @:: Lens' FileDescriptorProto (Data.Vector.Vector EnumDescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.service' @:: Lens' FileDescriptorProto [ServiceDescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'service' @:: Lens' FileDescriptorProto (Data.Vector.Vector ServiceDescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.extension' @:: Lens' FileDescriptorProto [FieldDescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'extension' @:: Lens' FileDescriptorProto (Data.Vector.Vector FieldDescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' FileDescriptorProto FileOptions@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' FileDescriptorProto (Prelude.Maybe FileOptions)@ * 'Proto.Google.Protobuf.Descriptor_Fields.sourceCodeInfo' @:: Lens' FileDescriptorProto SourceCodeInfo@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'sourceCodeInfo' @:: Lens' FileDescriptorProto (Prelude.Maybe SourceCodeInfo)@ * 'Proto.Google.Protobuf.Descriptor_Fields.syntax' @:: Lens' FileDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'syntax' @:: Lens' FileDescriptorProto (Prelude.Maybe Data.Text.Text)@ -} data FileDescriptorProto = FileDescriptorProto{_FileDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text), _FileDescriptorProto'package :: !(Prelude.Maybe Data.Text.Text), _FileDescriptorProto'dependency :: !(Data.Vector.Vector Data.Text.Text), _FileDescriptorProto'publicDependency :: !(Data.Vector.Unboxed.Vector Data.Int.Int32), _FileDescriptorProto'weakDependency :: !(Data.Vector.Unboxed.Vector Data.Int.Int32), _FileDescriptorProto'messageType :: !(Data.Vector.Vector DescriptorProto), _FileDescriptorProto'enumType :: !(Data.Vector.Vector EnumDescriptorProto), _FileDescriptorProto'service :: !(Data.Vector.Vector ServiceDescriptorProto), _FileDescriptorProto'extension :: !(Data.Vector.Vector FieldDescriptorProto), _FileDescriptorProto'options :: !(Prelude.Maybe FileOptions), _FileDescriptorProto'sourceCodeInfo :: !(Prelude.Maybe SourceCodeInfo), _FileDescriptorProto'syntax :: !(Prelude.Maybe Data.Text.Text), _FileDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show FileDescriptorProto where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField FileDescriptorProto "name" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'name (\ x__ y__ -> x__{_FileDescriptorProto'name = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'name (\ x__ y__ -> x__{_FileDescriptorProto'name = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "package" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'package (\ x__ y__ -> x__{_FileDescriptorProto'package = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileDescriptorProto "maybe'package" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'package (\ x__ y__ -> x__{_FileDescriptorProto'package = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "dependency" ([Data.Text.Text]) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'dependency (\ x__ y__ -> x__{_FileDescriptorProto'dependency = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'dependency" (Data.Vector.Vector Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'dependency (\ x__ y__ -> x__{_FileDescriptorProto'dependency = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "publicDependency" ([Data.Int.Int32]) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'publicDependency (\ x__ y__ -> x__{_FileDescriptorProto'publicDependency = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'publicDependency" (Data.Vector.Unboxed.Vector Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'publicDependency (\ x__ y__ -> x__{_FileDescriptorProto'publicDependency = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "weakDependency" ([Data.Int.Int32]) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'weakDependency (\ x__ y__ -> x__{_FileDescriptorProto'weakDependency = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'weakDependency" (Data.Vector.Unboxed.Vector Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'weakDependency (\ x__ y__ -> x__{_FileDescriptorProto'weakDependency = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "messageType" ([DescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'messageType (\ x__ y__ -> x__{_FileDescriptorProto'messageType = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'messageType" (Data.Vector.Vector DescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'messageType (\ x__ y__ -> x__{_FileDescriptorProto'messageType = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "enumType" ([EnumDescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'enumType (\ x__ y__ -> x__{_FileDescriptorProto'enumType = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'enumType" (Data.Vector.Vector EnumDescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'enumType (\ x__ y__ -> x__{_FileDescriptorProto'enumType = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "service" ([ServiceDescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'service (\ x__ y__ -> x__{_FileDescriptorProto'service = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'service" (Data.Vector.Vector ServiceDescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'service (\ x__ y__ -> x__{_FileDescriptorProto'service = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "extension" ([FieldDescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'extension (\ x__ y__ -> x__{_FileDescriptorProto'extension = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'extension" (Data.Vector.Vector FieldDescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'extension (\ x__ y__ -> x__{_FileDescriptorProto'extension = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "options" (FileOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'options (\ x__ y__ -> x__{_FileDescriptorProto'options = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage instance Data.ProtoLens.Field.HasField FileDescriptorProto "maybe'options" (Prelude.Maybe FileOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'options (\ x__ y__ -> x__{_FileDescriptorProto'options = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "sourceCodeInfo" (SourceCodeInfo) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'sourceCodeInfo (\ x__ y__ -> x__{_FileDescriptorProto'sourceCodeInfo = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage instance Data.ProtoLens.Field.HasField FileDescriptorProto "maybe'sourceCodeInfo" (Prelude.Maybe SourceCodeInfo) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'sourceCodeInfo (\ x__ y__ -> x__{_FileDescriptorProto'sourceCodeInfo = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileDescriptorProto "syntax" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'syntax (\ x__ y__ -> x__{_FileDescriptorProto'syntax = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileDescriptorProto "maybe'syntax" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorProto'syntax (\ x__ y__ -> x__{_FileDescriptorProto'syntax = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message FileDescriptorProto where messageName _ = Data.Text.pack "google.protobuf.FileDescriptorProto" fieldsByTag = let name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'name")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto package__field_descriptor = Data.ProtoLens.FieldDescriptor "package" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'package")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto dependency__field_descriptor = Data.ProtoLens.FieldDescriptor "dependency" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"dependency")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto publicDependency__field_descriptor = Data.ProtoLens.FieldDescriptor "public_dependency" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"publicDependency")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto weakDependency__field_descriptor = Data.ProtoLens.FieldDescriptor "weak_dependency" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"weakDependency")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto messageType__field_descriptor = Data.ProtoLens.FieldDescriptor "message_type" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor DescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"messageType")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto enumType__field_descriptor = Data.ProtoLens.FieldDescriptor "enum_type" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"enumType")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto service__field_descriptor = Data.ProtoLens.FieldDescriptor "service" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ServiceDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"service")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto extension__field_descriptor = Data.ProtoLens.FieldDescriptor "extension" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"extension")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto options__field_descriptor = Data.ProtoLens.FieldDescriptor "options" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FileOptions) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'options")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto sourceCodeInfo__field_descriptor = Data.ProtoLens.FieldDescriptor "source_code_info" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor SourceCodeInfo) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'sourceCodeInfo")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto syntax__field_descriptor = Data.ProtoLens.FieldDescriptor "syntax" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'syntax")) :: Data.ProtoLens.FieldDescriptor FileDescriptorProto in Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor), (Data.ProtoLens.Tag 2, package__field_descriptor), (Data.ProtoLens.Tag 3, dependency__field_descriptor), (Data.ProtoLens.Tag 10, publicDependency__field_descriptor), (Data.ProtoLens.Tag 11, weakDependency__field_descriptor), (Data.ProtoLens.Tag 4, messageType__field_descriptor), (Data.ProtoLens.Tag 5, enumType__field_descriptor), (Data.ProtoLens.Tag 6, service__field_descriptor), (Data.ProtoLens.Tag 7, extension__field_descriptor), (Data.ProtoLens.Tag 8, options__field_descriptor), (Data.ProtoLens.Tag 9, sourceCodeInfo__field_descriptor), (Data.ProtoLens.Tag 12, syntax__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FileDescriptorProto'_unknownFields (\ x__ y__ -> x__{_FileDescriptorProto'_unknownFields = y__}) defMessage = FileDescriptorProto{_FileDescriptorProto'name = Prelude.Nothing, _FileDescriptorProto'package = Prelude.Nothing, _FileDescriptorProto'dependency = Data.Vector.Generic.empty, _FileDescriptorProto'publicDependency = Data.Vector.Generic.empty, _FileDescriptorProto'weakDependency = Data.Vector.Generic.empty, _FileDescriptorProto'messageType = Data.Vector.Generic.empty, _FileDescriptorProto'enumType = Data.Vector.Generic.empty, _FileDescriptorProto'service = Data.Vector.Generic.empty, _FileDescriptorProto'extension = Data.Vector.Generic.empty, _FileDescriptorProto'options = Prelude.Nothing, _FileDescriptorProto'sourceCodeInfo = Prelude.Nothing, _FileDescriptorProto'syntax = Prelude.Nothing, _FileDescriptorProto'_unknownFields = ([])} parseMessage = let loop :: FileDescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EnumDescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FieldDescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld DescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32 -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ServiceDescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32 -> Data.ProtoLens.Encoding.Bytes.Parser FileDescriptorProto loop x mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'dependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'dependency) frozen'enumType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'enumType) frozen'extension <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'extension) frozen'messageType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'messageType) frozen'publicDependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'publicDependency) frozen'service <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'service) frozen'weakDependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'weakDependency) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'dependency") frozen'dependency (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'enumType") frozen'enumType (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'extension") frozen'extension (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'messageType") frozen'messageType (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'publicDependency") frozen'publicDependency (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'service") frozen'service (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'weakDependency") frozen'weakDependency x)))))))) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency 18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "package" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"package") y x) mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency 26 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "dependency" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'dependency y) loop x v mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency 80 -> do !y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "public_dependency" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'publicDependency y) loop x mutable'dependency mutable'enumType mutable'extension mutable'messageType v mutable'service mutable'weakDependency 82 -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) ((let ploop qs = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd if packedEnd then Prelude.return qs else do !q <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "public_dependency" qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append qs q) ploop qs' in ploop) mutable'publicDependency) loop x mutable'dependency mutable'enumType mutable'extension mutable'messageType y mutable'service mutable'weakDependency 88 -> do !y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "weak_dependency" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'weakDependency y) loop x mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service v 90 -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) ((let ploop qs = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd if packedEnd then Prelude.return qs else do !q <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "weak_dependency" qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append qs q) ploop qs' in ploop) mutable'weakDependency) loop x mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service y 34 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "message_type" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'messageType y) loop x mutable'dependency mutable'enumType mutable'extension v mutable'publicDependency mutable'service mutable'weakDependency 42 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "enum_type" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'enumType y) loop x mutable'dependency v mutable'extension mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency 50 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "service" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'service y) loop x mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency v mutable'weakDependency 58 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "extension" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'extension y) loop x mutable'dependency mutable'enumType v mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency 66 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "options" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency 74 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "source_code_info" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"sourceCodeInfo") y x) mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency 98 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "syntax" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"syntax") y x) mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency in (do mutable'dependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'enumType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'extension <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'messageType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'publicDependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'service <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'weakDependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'dependency mutable'enumType mutable'extension mutable'messageType mutable'publicDependency mutable'service mutable'weakDependency) Data.ProtoLens.Encoding.Bytes. "FileDescriptorProto" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'package") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'dependency") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 80) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'publicDependency") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 88) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'weakDependency") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'messageType") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 42) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'enumType") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 50) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'service") _x)) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 58) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'extension") _x)) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 66) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'sourceCodeInfo") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 74) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'syntax") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 98) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData FileDescriptorProto where rnf = (\ x__ -> Control.DeepSeq.deepseq (_FileDescriptorProto'_unknownFields x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'name x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'package x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'dependency x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'publicDependency x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'weakDependency x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'messageType x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'enumType x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'service x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'extension x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'options x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'sourceCodeInfo x__) (Control.DeepSeq.deepseq (_FileDescriptorProto'syntax x__) (())))))))))))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.file' @:: Lens' FileDescriptorSet [FileDescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'file' @:: Lens' FileDescriptorSet (Data.Vector.Vector FileDescriptorProto)@ -} data FileDescriptorSet = FileDescriptorSet{_FileDescriptorSet'file :: !(Data.Vector.Vector FileDescriptorProto), _FileDescriptorSet'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show FileDescriptorSet where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField FileDescriptorSet "file" ([FileDescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorSet'file (\ x__ y__ -> x__{_FileDescriptorSet'file = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField FileDescriptorSet "vec'file" (Data.Vector.Vector FileDescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileDescriptorSet'file (\ x__ y__ -> x__{_FileDescriptorSet'file = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message FileDescriptorSet where messageName _ = Data.Text.pack "google.protobuf.FileDescriptorSet" fieldsByTag = let file__field_descriptor = Data.ProtoLens.FieldDescriptor "file" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FileDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"file")) :: Data.ProtoLens.FieldDescriptor FileDescriptorSet in Data.Map.fromList [(Data.ProtoLens.Tag 1, file__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FileDescriptorSet'_unknownFields (\ x__ y__ -> x__{_FileDescriptorSet'_unknownFields = y__}) defMessage = FileDescriptorSet{_FileDescriptorSet'file = Data.Vector.Generic.empty, _FileDescriptorSet'_unknownFields = ([])} parseMessage = let loop :: FileDescriptorSet -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FileDescriptorProto -> Data.ProtoLens.Encoding.Bytes.Parser FileDescriptorSet loop x mutable'file = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'file <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'file) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'file") frozen'file x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "file" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'file y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'file in (do mutable'file <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'file) Data.ProtoLens.Encoding.Bytes. "FileDescriptorSet" buildMessage = (\ _x -> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'file") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData FileDescriptorSet where rnf = (\ x__ -> Control.DeepSeq.deepseq (_FileDescriptorSet'_unknownFields x__) (Control.DeepSeq.deepseq (_FileDescriptorSet'file x__) (()))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.javaPackage' @:: Lens' FileOptions Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaPackage' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.javaOuterClassname' @:: Lens' FileOptions Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaOuterClassname' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.javaMultipleFiles' @:: Lens' FileOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaMultipleFiles' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.javaGenerateEqualsAndHash' @:: Lens' FileOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaGenerateEqualsAndHash' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.javaStringCheckUtf8' @:: Lens' FileOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaStringCheckUtf8' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.optimizeFor' @:: Lens' FileOptions FileOptions'OptimizeMode@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'optimizeFor' @:: Lens' FileOptions (Prelude.Maybe FileOptions'OptimizeMode)@ * 'Proto.Google.Protobuf.Descriptor_Fields.goPackage' @:: Lens' FileOptions Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'goPackage' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.ccGenericServices' @:: Lens' FileOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'ccGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.javaGenericServices' @:: Lens' FileOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.pyGenericServices' @:: Lens' FileOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'pyGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.phpGenericServices' @:: Lens' FileOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' FileOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.ccEnableArenas' @:: Lens' FileOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'ccEnableArenas' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.objcClassPrefix' @:: Lens' FileOptions Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'objcClassPrefix' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.csharpNamespace' @:: Lens' FileOptions Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'csharpNamespace' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.swiftPrefix' @:: Lens' FileOptions Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'swiftPrefix' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.phpClassPrefix' @:: Lens' FileOptions Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpClassPrefix' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.phpNamespace' @:: Lens' FileOptions Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpNamespace' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.phpMetadataNamespace' @:: Lens' FileOptions Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpMetadataNamespace' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.rubyPackage' @:: Lens' FileOptions Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'rubyPackage' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' FileOptions [UninterpretedOption]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' FileOptions (Data.Vector.Vector UninterpretedOption)@ -} data FileOptions = FileOptions{_FileOptions'javaPackage :: !(Prelude.Maybe Data.Text.Text), _FileOptions'javaOuterClassname :: !(Prelude.Maybe Data.Text.Text), _FileOptions'javaMultipleFiles :: !(Prelude.Maybe Prelude.Bool), _FileOptions'javaGenerateEqualsAndHash :: !(Prelude.Maybe Prelude.Bool), _FileOptions'javaStringCheckUtf8 :: !(Prelude.Maybe Prelude.Bool), _FileOptions'optimizeFor :: !(Prelude.Maybe FileOptions'OptimizeMode), _FileOptions'goPackage :: !(Prelude.Maybe Data.Text.Text), _FileOptions'ccGenericServices :: !(Prelude.Maybe Prelude.Bool), _FileOptions'javaGenericServices :: !(Prelude.Maybe Prelude.Bool), _FileOptions'pyGenericServices :: !(Prelude.Maybe Prelude.Bool), _FileOptions'phpGenericServices :: !(Prelude.Maybe Prelude.Bool), _FileOptions'deprecated :: !(Prelude.Maybe Prelude.Bool), _FileOptions'ccEnableArenas :: !(Prelude.Maybe Prelude.Bool), _FileOptions'objcClassPrefix :: !(Prelude.Maybe Data.Text.Text), _FileOptions'csharpNamespace :: !(Prelude.Maybe Data.Text.Text), _FileOptions'swiftPrefix :: !(Prelude.Maybe Data.Text.Text), _FileOptions'phpClassPrefix :: !(Prelude.Maybe Data.Text.Text), _FileOptions'phpNamespace :: !(Prelude.Maybe Data.Text.Text), _FileOptions'phpMetadataNamespace :: !(Prelude.Maybe Data.Text.Text), _FileOptions'rubyPackage :: !(Prelude.Maybe Data.Text.Text), _FileOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption), _FileOptions'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show FileOptions where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField FileOptions "javaPackage" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaPackage (\ x__ y__ -> x__{_FileOptions'javaPackage = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaPackage" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaPackage (\ x__ y__ -> x__{_FileOptions'javaPackage = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "javaOuterClassname" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaOuterClassname (\ x__ y__ -> x__{_FileOptions'javaOuterClassname = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaOuterClassname" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaOuterClassname (\ x__ y__ -> x__{_FileOptions'javaOuterClassname = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "javaMultipleFiles" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaMultipleFiles (\ x__ y__ -> x__{_FileOptions'javaMultipleFiles = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaMultipleFiles" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaMultipleFiles (\ x__ y__ -> x__{_FileOptions'javaMultipleFiles = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "javaGenerateEqualsAndHash" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaGenerateEqualsAndHash (\ x__ y__ -> x__{_FileOptions'javaGenerateEqualsAndHash = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaGenerateEqualsAndHash" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaGenerateEqualsAndHash (\ x__ y__ -> x__{_FileOptions'javaGenerateEqualsAndHash = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "javaStringCheckUtf8" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaStringCheckUtf8 (\ x__ y__ -> x__{_FileOptions'javaStringCheckUtf8 = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaStringCheckUtf8" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaStringCheckUtf8 (\ x__ y__ -> x__{_FileOptions'javaStringCheckUtf8 = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "optimizeFor" (FileOptions'OptimizeMode) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'optimizeFor (\ x__ y__ -> x__{_FileOptions'optimizeFor = y__})) Prelude.. Data.ProtoLens.maybeLens FileOptions'SPEED instance Data.ProtoLens.Field.HasField FileOptions "maybe'optimizeFor" (Prelude.Maybe FileOptions'OptimizeMode) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'optimizeFor (\ x__ y__ -> x__{_FileOptions'optimizeFor = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "goPackage" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'goPackage (\ x__ y__ -> x__{_FileOptions'goPackage = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'goPackage" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'goPackage (\ x__ y__ -> x__{_FileOptions'goPackage = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "ccGenericServices" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'ccGenericServices (\ x__ y__ -> x__{_FileOptions'ccGenericServices = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FileOptions "maybe'ccGenericServices" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'ccGenericServices (\ x__ y__ -> x__{_FileOptions'ccGenericServices = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "javaGenericServices" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaGenericServices (\ x__ y__ -> x__{_FileOptions'javaGenericServices = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaGenericServices" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'javaGenericServices (\ x__ y__ -> x__{_FileOptions'javaGenericServices = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "pyGenericServices" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'pyGenericServices (\ x__ y__ -> x__{_FileOptions'pyGenericServices = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FileOptions "maybe'pyGenericServices" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'pyGenericServices (\ x__ y__ -> x__{_FileOptions'pyGenericServices = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "phpGenericServices" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'phpGenericServices (\ x__ y__ -> x__{_FileOptions'phpGenericServices = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FileOptions "maybe'phpGenericServices" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'phpGenericServices (\ x__ y__ -> x__{_FileOptions'phpGenericServices = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "deprecated" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'deprecated (\ x__ y__ -> x__{_FileOptions'deprecated = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FileOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'deprecated (\ x__ y__ -> x__{_FileOptions'deprecated = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "ccEnableArenas" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'ccEnableArenas (\ x__ y__ -> x__{_FileOptions'ccEnableArenas = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField FileOptions "maybe'ccEnableArenas" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'ccEnableArenas (\ x__ y__ -> x__{_FileOptions'ccEnableArenas = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "objcClassPrefix" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'objcClassPrefix (\ x__ y__ -> x__{_FileOptions'objcClassPrefix = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'objcClassPrefix" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'objcClassPrefix (\ x__ y__ -> x__{_FileOptions'objcClassPrefix = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "csharpNamespace" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'csharpNamespace (\ x__ y__ -> x__{_FileOptions'csharpNamespace = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'csharpNamespace" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'csharpNamespace (\ x__ y__ -> x__{_FileOptions'csharpNamespace = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "swiftPrefix" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'swiftPrefix (\ x__ y__ -> x__{_FileOptions'swiftPrefix = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'swiftPrefix" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'swiftPrefix (\ x__ y__ -> x__{_FileOptions'swiftPrefix = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "phpClassPrefix" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'phpClassPrefix (\ x__ y__ -> x__{_FileOptions'phpClassPrefix = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'phpClassPrefix" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'phpClassPrefix (\ x__ y__ -> x__{_FileOptions'phpClassPrefix = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "phpNamespace" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'phpNamespace (\ x__ y__ -> x__{_FileOptions'phpNamespace = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'phpNamespace" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'phpNamespace (\ x__ y__ -> x__{_FileOptions'phpNamespace = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "phpMetadataNamespace" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'phpMetadataNamespace (\ x__ y__ -> x__{_FileOptions'phpMetadataNamespace = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'phpMetadataNamespace" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'phpMetadataNamespace (\ x__ y__ -> x__{_FileOptions'phpMetadataNamespace = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "rubyPackage" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'rubyPackage (\ x__ y__ -> x__{_FileOptions'rubyPackage = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField FileOptions "maybe'rubyPackage" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'rubyPackage (\ x__ y__ -> x__{_FileOptions'rubyPackage = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField FileOptions "uninterpretedOption" ([UninterpretedOption]) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'uninterpretedOption (\ x__ y__ -> x__{_FileOptions'uninterpretedOption = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField FileOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where fieldOf _ = (Lens.Family2.Unchecked.lens _FileOptions'uninterpretedOption (\ x__ y__ -> x__{_FileOptions'uninterpretedOption = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message FileOptions where messageName _ = Data.Text.pack "google.protobuf.FileOptions" fieldsByTag = let javaPackage__field_descriptor = Data.ProtoLens.FieldDescriptor "java_package" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'javaPackage")) :: Data.ProtoLens.FieldDescriptor FileOptions javaOuterClassname__field_descriptor = Data.ProtoLens.FieldDescriptor "java_outer_classname" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'javaOuterClassname")) :: Data.ProtoLens.FieldDescriptor FileOptions javaMultipleFiles__field_descriptor = Data.ProtoLens.FieldDescriptor "java_multiple_files" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'javaMultipleFiles")) :: Data.ProtoLens.FieldDescriptor FileOptions javaGenerateEqualsAndHash__field_descriptor = Data.ProtoLens.FieldDescriptor "java_generate_equals_and_hash" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'javaGenerateEqualsAndHash")) :: Data.ProtoLens.FieldDescriptor FileOptions javaStringCheckUtf8__field_descriptor = Data.ProtoLens.FieldDescriptor "java_string_check_utf8" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'javaStringCheckUtf8")) :: Data.ProtoLens.FieldDescriptor FileOptions optimizeFor__field_descriptor = Data.ProtoLens.FieldDescriptor "optimize_for" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor FileOptions'OptimizeMode) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'optimizeFor")) :: Data.ProtoLens.FieldDescriptor FileOptions goPackage__field_descriptor = Data.ProtoLens.FieldDescriptor "go_package" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'goPackage")) :: Data.ProtoLens.FieldDescriptor FileOptions ccGenericServices__field_descriptor = Data.ProtoLens.FieldDescriptor "cc_generic_services" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'ccGenericServices")) :: Data.ProtoLens.FieldDescriptor FileOptions javaGenericServices__field_descriptor = Data.ProtoLens.FieldDescriptor "java_generic_services" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'javaGenericServices")) :: Data.ProtoLens.FieldDescriptor FileOptions pyGenericServices__field_descriptor = Data.ProtoLens.FieldDescriptor "py_generic_services" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'pyGenericServices")) :: Data.ProtoLens.FieldDescriptor FileOptions phpGenericServices__field_descriptor = Data.ProtoLens.FieldDescriptor "php_generic_services" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'phpGenericServices")) :: Data.ProtoLens.FieldDescriptor FileOptions deprecated__field_descriptor = Data.ProtoLens.FieldDescriptor "deprecated" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'deprecated")) :: Data.ProtoLens.FieldDescriptor FileOptions ccEnableArenas__field_descriptor = Data.ProtoLens.FieldDescriptor "cc_enable_arenas" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'ccEnableArenas")) :: Data.ProtoLens.FieldDescriptor FileOptions objcClassPrefix__field_descriptor = Data.ProtoLens.FieldDescriptor "objc_class_prefix" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'objcClassPrefix")) :: Data.ProtoLens.FieldDescriptor FileOptions csharpNamespace__field_descriptor = Data.ProtoLens.FieldDescriptor "csharp_namespace" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'csharpNamespace")) :: Data.ProtoLens.FieldDescriptor FileOptions swiftPrefix__field_descriptor = Data.ProtoLens.FieldDescriptor "swift_prefix" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'swiftPrefix")) :: Data.ProtoLens.FieldDescriptor FileOptions phpClassPrefix__field_descriptor = Data.ProtoLens.FieldDescriptor "php_class_prefix" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'phpClassPrefix")) :: Data.ProtoLens.FieldDescriptor FileOptions phpNamespace__field_descriptor = Data.ProtoLens.FieldDescriptor "php_namespace" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'phpNamespace")) :: Data.ProtoLens.FieldDescriptor FileOptions phpMetadataNamespace__field_descriptor = Data.ProtoLens.FieldDescriptor "php_metadata_namespace" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'phpMetadataNamespace")) :: Data.ProtoLens.FieldDescriptor FileOptions rubyPackage__field_descriptor = Data.ProtoLens.FieldDescriptor "ruby_package" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'rubyPackage")) :: Data.ProtoLens.FieldDescriptor FileOptions uninterpretedOption__field_descriptor = Data.ProtoLens.FieldDescriptor "uninterpreted_option" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uninterpretedOption")) :: Data.ProtoLens.FieldDescriptor FileOptions in Data.Map.fromList [(Data.ProtoLens.Tag 1, javaPackage__field_descriptor), (Data.ProtoLens.Tag 8, javaOuterClassname__field_descriptor), (Data.ProtoLens.Tag 10, javaMultipleFiles__field_descriptor), (Data.ProtoLens.Tag 20, javaGenerateEqualsAndHash__field_descriptor), (Data.ProtoLens.Tag 27, javaStringCheckUtf8__field_descriptor), (Data.ProtoLens.Tag 9, optimizeFor__field_descriptor), (Data.ProtoLens.Tag 11, goPackage__field_descriptor), (Data.ProtoLens.Tag 16, ccGenericServices__field_descriptor), (Data.ProtoLens.Tag 17, javaGenericServices__field_descriptor), (Data.ProtoLens.Tag 18, pyGenericServices__field_descriptor), (Data.ProtoLens.Tag 42, phpGenericServices__field_descriptor), (Data.ProtoLens.Tag 23, deprecated__field_descriptor), (Data.ProtoLens.Tag 31, ccEnableArenas__field_descriptor), (Data.ProtoLens.Tag 36, objcClassPrefix__field_descriptor), (Data.ProtoLens.Tag 37, csharpNamespace__field_descriptor), (Data.ProtoLens.Tag 39, swiftPrefix__field_descriptor), (Data.ProtoLens.Tag 40, phpClassPrefix__field_descriptor), (Data.ProtoLens.Tag 41, phpNamespace__field_descriptor), (Data.ProtoLens.Tag 44, phpMetadataNamespace__field_descriptor), (Data.ProtoLens.Tag 45, rubyPackage__field_descriptor), (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FileOptions'_unknownFields (\ x__ y__ -> x__{_FileOptions'_unknownFields = y__}) defMessage = FileOptions{_FileOptions'javaPackage = Prelude.Nothing, _FileOptions'javaOuterClassname = Prelude.Nothing, _FileOptions'javaMultipleFiles = Prelude.Nothing, _FileOptions'javaGenerateEqualsAndHash = Prelude.Nothing, _FileOptions'javaStringCheckUtf8 = Prelude.Nothing, _FileOptions'optimizeFor = Prelude.Nothing, _FileOptions'goPackage = Prelude.Nothing, _FileOptions'ccGenericServices = Prelude.Nothing, _FileOptions'javaGenericServices = Prelude.Nothing, _FileOptions'pyGenericServices = Prelude.Nothing, _FileOptions'phpGenericServices = Prelude.Nothing, _FileOptions'deprecated = Prelude.Nothing, _FileOptions'ccEnableArenas = Prelude.Nothing, _FileOptions'objcClassPrefix = Prelude.Nothing, _FileOptions'csharpNamespace = Prelude.Nothing, _FileOptions'swiftPrefix = Prelude.Nothing, _FileOptions'phpClassPrefix = Prelude.Nothing, _FileOptions'phpNamespace = Prelude.Nothing, _FileOptions'phpMetadataNamespace = Prelude.Nothing, _FileOptions'rubyPackage = Prelude.Nothing, _FileOptions'uninterpretedOption = Data.Vector.Generic.empty, _FileOptions'_unknownFields = ([])} parseMessage = let loop :: FileOptions -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UninterpretedOption -> Data.ProtoLens.Encoding.Bytes.Parser FileOptions loop x mutable'uninterpretedOption = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uninterpretedOption) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'uninterpretedOption") frozen'uninterpretedOption x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "java_package" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"javaPackage") y x) mutable'uninterpretedOption 66 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "java_outer_classname" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"javaOuterClassname") y x) mutable'uninterpretedOption 80 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "java_multiple_files" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"javaMultipleFiles") y x) mutable'uninterpretedOption 160 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "java_generate_equals_and_hash" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"javaGenerateEqualsAndHash") y x) mutable'uninterpretedOption 216 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "java_string_check_utf8" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"javaStringCheckUtf8") y x) mutable'uninterpretedOption 72 -> do y <- (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) Data.ProtoLens.Encoding.Bytes. "optimize_for" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"optimizeFor") y x) mutable'uninterpretedOption 90 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "go_package" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"goPackage") y x) mutable'uninterpretedOption 128 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "cc_generic_services" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ccGenericServices") y x) mutable'uninterpretedOption 136 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "java_generic_services" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"javaGenericServices") y x) mutable'uninterpretedOption 144 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "py_generic_services" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pyGenericServices") y x) mutable'uninterpretedOption 336 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "php_generic_services" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"phpGenericServices") y x) mutable'uninterpretedOption 184 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "deprecated" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"deprecated") y x) mutable'uninterpretedOption 248 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "cc_enable_arenas" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ccEnableArenas") y x) mutable'uninterpretedOption 290 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "objc_class_prefix" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"objcClassPrefix") y x) mutable'uninterpretedOption 298 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "csharp_namespace" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"csharpNamespace") y x) mutable'uninterpretedOption 314 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "swift_prefix" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"swiftPrefix") y x) mutable'uninterpretedOption 322 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "php_class_prefix" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"phpClassPrefix") y x) mutable'uninterpretedOption 330 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "php_namespace" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"phpNamespace") y x) mutable'uninterpretedOption 354 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "php_metadata_namespace" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"phpMetadataNamespace") y x) mutable'uninterpretedOption 362 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "ruby_package" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rubyPackage") y x) mutable'uninterpretedOption 7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "uninterpreted_option" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'uninterpretedOption y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'uninterpretedOption in (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'uninterpretedOption) Data.ProtoLens.Encoding.Bytes. "FileOptions" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'javaPackage") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'javaOuterClassname") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 66) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'javaMultipleFiles") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 80) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'javaGenerateEqualsAndHash") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 160) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'javaStringCheckUtf8") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 216) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'optimizeFor") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 72) Data.Monoid.<> (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) Prelude.. Prelude.fromEnum) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'goPackage") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 90) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'ccGenericServices") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 128) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'javaGenericServices") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 136) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pyGenericServices") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 144) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'phpGenericServices") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 336) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 184) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'ccEnableArenas") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 248) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'objcClassPrefix") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 290) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'csharpNamespace") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 298) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'swiftPrefix") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 314) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'phpClassPrefix") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 322) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'phpNamespace") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 330) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'phpMetadataNamespace") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 354) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'rubyPackage") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 362) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uninterpretedOption") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData FileOptions where rnf = (\ x__ -> Control.DeepSeq.deepseq (_FileOptions'_unknownFields x__) (Control.DeepSeq.deepseq (_FileOptions'javaPackage x__) (Control.DeepSeq.deepseq (_FileOptions'javaOuterClassname x__) (Control.DeepSeq.deepseq (_FileOptions'javaMultipleFiles x__) (Control.DeepSeq.deepseq (_FileOptions'javaGenerateEqualsAndHash x__) (Control.DeepSeq.deepseq (_FileOptions'javaStringCheckUtf8 x__) (Control.DeepSeq.deepseq (_FileOptions'optimizeFor x__) (Control.DeepSeq.deepseq (_FileOptions'goPackage x__) (Control.DeepSeq.deepseq (_FileOptions'ccGenericServices x__) (Control.DeepSeq.deepseq (_FileOptions'javaGenericServices x__) (Control.DeepSeq.deepseq (_FileOptions'pyGenericServices x__) (Control.DeepSeq.deepseq (_FileOptions'phpGenericServices x__) (Control.DeepSeq.deepseq (_FileOptions'deprecated x__) (Control.DeepSeq.deepseq (_FileOptions'ccEnableArenas x__) (Control.DeepSeq.deepseq (_FileOptions'objcClassPrefix x__) (Control.DeepSeq.deepseq (_FileOptions'csharpNamespace x__) (Control.DeepSeq.deepseq (_FileOptions'swiftPrefix x__) (Control.DeepSeq.deepseq (_FileOptions'phpClassPrefix x__) (Control.DeepSeq.deepseq (_FileOptions'phpNamespace x__) (Control.DeepSeq.deepseq (_FileOptions'phpMetadataNamespace x__) (Control.DeepSeq.deepseq (_FileOptions'rubyPackage x__) (Control.DeepSeq.deepseq (_FileOptions'uninterpretedOption x__) (()))))))))))))))))))))))) data FileOptions'OptimizeMode = FileOptions'SPEED | FileOptions'CODE_SIZE | FileOptions'LITE_RUNTIME deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum FileOptions'OptimizeMode where maybeToEnum 1 = Prelude.Just FileOptions'SPEED maybeToEnum 2 = Prelude.Just FileOptions'CODE_SIZE maybeToEnum 3 = Prelude.Just FileOptions'LITE_RUNTIME maybeToEnum _ = Prelude.Nothing showEnum FileOptions'SPEED = "SPEED" showEnum FileOptions'CODE_SIZE = "CODE_SIZE" showEnum FileOptions'LITE_RUNTIME = "LITE_RUNTIME" readEnum k | (k) Prelude.== "SPEED" = Prelude.Just FileOptions'SPEED | (k) Prelude.== "CODE_SIZE" = Prelude.Just FileOptions'CODE_SIZE | (k) Prelude.== "LITE_RUNTIME" = Prelude.Just FileOptions'LITE_RUNTIME readEnum k = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum instance Prelude.Bounded FileOptions'OptimizeMode where minBound = FileOptions'SPEED maxBound = FileOptions'LITE_RUNTIME instance Prelude.Enum FileOptions'OptimizeMode where toEnum k__ = Prelude.maybe (Prelude.error (("toEnum: unknown value for enum OptimizeMode: ") Prelude.++ Prelude.show k__)) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum FileOptions'SPEED = 1 fromEnum FileOptions'CODE_SIZE = 2 fromEnum FileOptions'LITE_RUNTIME = 3 succ FileOptions'LITE_RUNTIME = Prelude.error "FileOptions'OptimizeMode.succ: bad argument FileOptions'LITE_RUNTIME. This value would be out of bounds." succ FileOptions'SPEED = FileOptions'CODE_SIZE succ FileOptions'CODE_SIZE = FileOptions'LITE_RUNTIME pred FileOptions'SPEED = Prelude.error "FileOptions'OptimizeMode.pred: bad argument FileOptions'SPEED. This value would be out of bounds." pred FileOptions'CODE_SIZE = FileOptions'SPEED pred FileOptions'LITE_RUNTIME = FileOptions'CODE_SIZE enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo instance Data.ProtoLens.FieldDefault FileOptions'OptimizeMode where fieldDefault = FileOptions'SPEED instance Control.DeepSeq.NFData FileOptions'OptimizeMode where rnf x__ = Prelude.seq x__ (()) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.annotation' @:: Lens' GeneratedCodeInfo [GeneratedCodeInfo'Annotation]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'annotation' @:: Lens' GeneratedCodeInfo (Data.Vector.Vector GeneratedCodeInfo'Annotation)@ -} data GeneratedCodeInfo = GeneratedCodeInfo{_GeneratedCodeInfo'annotation :: !(Data.Vector.Vector GeneratedCodeInfo'Annotation), _GeneratedCodeInfo'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show GeneratedCodeInfo where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField GeneratedCodeInfo "annotation" ([GeneratedCodeInfo'Annotation]) where fieldOf _ = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'annotation (\ x__ y__ -> x__{_GeneratedCodeInfo'annotation = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField GeneratedCodeInfo "vec'annotation" (Data.Vector.Vector GeneratedCodeInfo'Annotation) where fieldOf _ = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'annotation (\ x__ y__ -> x__{_GeneratedCodeInfo'annotation = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message GeneratedCodeInfo where messageName _ = Data.Text.pack "google.protobuf.GeneratedCodeInfo" fieldsByTag = let annotation__field_descriptor = Data.ProtoLens.FieldDescriptor "annotation" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor GeneratedCodeInfo'Annotation) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"annotation")) :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo in Data.Map.fromList [(Data.ProtoLens.Tag 1, annotation__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'_unknownFields (\ x__ y__ -> x__{_GeneratedCodeInfo'_unknownFields = y__}) defMessage = GeneratedCodeInfo{_GeneratedCodeInfo'annotation = Data.Vector.Generic.empty, _GeneratedCodeInfo'_unknownFields = ([])} parseMessage = let loop :: GeneratedCodeInfo -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld GeneratedCodeInfo'Annotation -> Data.ProtoLens.Encoding.Bytes.Parser GeneratedCodeInfo loop x mutable'annotation = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'annotation <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'annotation) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'annotation") frozen'annotation x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "annotation" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'annotation y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'annotation in (do mutable'annotation <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'annotation) Data.ProtoLens.Encoding.Bytes. "GeneratedCodeInfo" buildMessage = (\ _x -> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'annotation") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData GeneratedCodeInfo where rnf = (\ x__ -> Control.DeepSeq.deepseq (_GeneratedCodeInfo'_unknownFields x__) (Control.DeepSeq.deepseq (_GeneratedCodeInfo'annotation x__) (()))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.path' @:: Lens' GeneratedCodeInfo'Annotation [Data.Int.Int32]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'path' @:: Lens' GeneratedCodeInfo'Annotation (Data.Vector.Unboxed.Vector Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.sourceFile' @:: Lens' GeneratedCodeInfo'Annotation Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'sourceFile' @:: Lens' GeneratedCodeInfo'Annotation (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.begin' @:: Lens' GeneratedCodeInfo'Annotation Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'begin' @:: Lens' GeneratedCodeInfo'Annotation (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' GeneratedCodeInfo'Annotation Data.Int.Int32@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' GeneratedCodeInfo'Annotation (Prelude.Maybe Data.Int.Int32)@ -} data GeneratedCodeInfo'Annotation = GeneratedCodeInfo'Annotation{_GeneratedCodeInfo'Annotation'path :: !(Data.Vector.Unboxed.Vector Data.Int.Int32), _GeneratedCodeInfo'Annotation'sourceFile :: !(Prelude.Maybe Data.Text.Text), _GeneratedCodeInfo'Annotation'begin :: !(Prelude.Maybe Data.Int.Int32), _GeneratedCodeInfo'Annotation'end :: !(Prelude.Maybe Data.Int.Int32), _GeneratedCodeInfo'Annotation'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show GeneratedCodeInfo'Annotation where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "path" ([Data.Int.Int32]) where fieldOf _ = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'path (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'path = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "vec'path" (Data.Vector.Unboxed.Vector Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'path (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'path = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "sourceFile" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'sourceFile (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'sourceFile = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "maybe'sourceFile" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'sourceFile (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'sourceFile = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "begin" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'begin (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'begin = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "maybe'begin" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'begin (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'begin = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "end" (Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'end (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'end = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "maybe'end" (Prelude.Maybe Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'end (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'end = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message GeneratedCodeInfo'Annotation where messageName _ = Data.Text.pack "google.protobuf.GeneratedCodeInfo.Annotation" fieldsByTag = let path__field_descriptor = Data.ProtoLens.FieldDescriptor "path" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"path")) :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation sourceFile__field_descriptor = Data.ProtoLens.FieldDescriptor "source_file" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'sourceFile")) :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation begin__field_descriptor = Data.ProtoLens.FieldDescriptor "begin" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'begin")) :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation end__field_descriptor = Data.ProtoLens.FieldDescriptor "end" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'end")) :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation in Data.Map.fromList [(Data.ProtoLens.Tag 1, path__field_descriptor), (Data.ProtoLens.Tag 2, sourceFile__field_descriptor), (Data.ProtoLens.Tag 3, begin__field_descriptor), (Data.ProtoLens.Tag 4, end__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'_unknownFields (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'_unknownFields = y__}) defMessage = GeneratedCodeInfo'Annotation{_GeneratedCodeInfo'Annotation'path = Data.Vector.Generic.empty, _GeneratedCodeInfo'Annotation'sourceFile = Prelude.Nothing, _GeneratedCodeInfo'Annotation'begin = Prelude.Nothing, _GeneratedCodeInfo'Annotation'end = Prelude.Nothing, _GeneratedCodeInfo'Annotation'_unknownFields = ([])} parseMessage = let loop :: GeneratedCodeInfo'Annotation -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32 -> Data.ProtoLens.Encoding.Bytes.Parser GeneratedCodeInfo'Annotation loop x mutable'path = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'path <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'path) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'path") frozen'path x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 8 -> do !y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "path" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'path y) loop x v 10 -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) ((let ploop qs = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd if packedEnd then Prelude.return qs else do !q <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "path" qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append qs q) ploop qs' in ploop) mutable'path) loop x y 18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "source_file" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"sourceFile") y x) mutable'path 24 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "begin" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"begin") y x) mutable'path 32 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "end" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y x) mutable'path wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'path in (do mutable'path <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'path) Data.ProtoLens.Encoding.Bytes. "Annotation" buildMessage = (\ _x -> (let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'path") _x in if Data.Vector.Generic.null p then Data.Monoid.mempty else (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs) (Data.ProtoLens.Encoding.Bytes.runBuilder (Data.ProtoLens.Encoding.Bytes.foldMapBuilder ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) p))) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'sourceFile") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'begin") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'end") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 32) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData GeneratedCodeInfo'Annotation where rnf = (\ x__ -> Control.DeepSeq.deepseq (_GeneratedCodeInfo'Annotation'_unknownFields x__) (Control.DeepSeq.deepseq (_GeneratedCodeInfo'Annotation'path x__) (Control.DeepSeq.deepseq (_GeneratedCodeInfo'Annotation'sourceFile x__) (Control.DeepSeq.deepseq (_GeneratedCodeInfo'Annotation'begin x__) (Control.DeepSeq.deepseq (_GeneratedCodeInfo'Annotation'end x__) (())))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.messageSetWireFormat' @:: Lens' MessageOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'messageSetWireFormat' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.noStandardDescriptorAccessor' @:: Lens' MessageOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'noStandardDescriptorAccessor' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' MessageOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.mapEntry' @:: Lens' MessageOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'mapEntry' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' MessageOptions [UninterpretedOption]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' MessageOptions (Data.Vector.Vector UninterpretedOption)@ -} data MessageOptions = MessageOptions{_MessageOptions'messageSetWireFormat :: !(Prelude.Maybe Prelude.Bool), _MessageOptions'noStandardDescriptorAccessor :: !(Prelude.Maybe Prelude.Bool), _MessageOptions'deprecated :: !(Prelude.Maybe Prelude.Bool), _MessageOptions'mapEntry :: !(Prelude.Maybe Prelude.Bool), _MessageOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption), _MessageOptions'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show MessageOptions where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField MessageOptions "messageSetWireFormat" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MessageOptions'messageSetWireFormat (\ x__ y__ -> x__{_MessageOptions'messageSetWireFormat = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField MessageOptions "maybe'messageSetWireFormat" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MessageOptions'messageSetWireFormat (\ x__ y__ -> x__{_MessageOptions'messageSetWireFormat = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MessageOptions "noStandardDescriptorAccessor" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MessageOptions'noStandardDescriptorAccessor (\ x__ y__ -> x__{_MessageOptions'noStandardDescriptorAccessor = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField MessageOptions "maybe'noStandardDescriptorAccessor" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MessageOptions'noStandardDescriptorAccessor (\ x__ y__ -> x__{_MessageOptions'noStandardDescriptorAccessor = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MessageOptions "deprecated" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MessageOptions'deprecated (\ x__ y__ -> x__{_MessageOptions'deprecated = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField MessageOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MessageOptions'deprecated (\ x__ y__ -> x__{_MessageOptions'deprecated = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MessageOptions "mapEntry" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MessageOptions'mapEntry (\ x__ y__ -> x__{_MessageOptions'mapEntry = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField MessageOptions "maybe'mapEntry" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MessageOptions'mapEntry (\ x__ y__ -> x__{_MessageOptions'mapEntry = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MessageOptions "uninterpretedOption" ([UninterpretedOption]) where fieldOf _ = (Lens.Family2.Unchecked.lens _MessageOptions'uninterpretedOption (\ x__ y__ -> x__{_MessageOptions'uninterpretedOption = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField MessageOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where fieldOf _ = (Lens.Family2.Unchecked.lens _MessageOptions'uninterpretedOption (\ x__ y__ -> x__{_MessageOptions'uninterpretedOption = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message MessageOptions where messageName _ = Data.Text.pack "google.protobuf.MessageOptions" fieldsByTag = let messageSetWireFormat__field_descriptor = Data.ProtoLens.FieldDescriptor "message_set_wire_format" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'messageSetWireFormat")) :: Data.ProtoLens.FieldDescriptor MessageOptions noStandardDescriptorAccessor__field_descriptor = Data.ProtoLens.FieldDescriptor "no_standard_descriptor_accessor" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'noStandardDescriptorAccessor")) :: Data.ProtoLens.FieldDescriptor MessageOptions deprecated__field_descriptor = Data.ProtoLens.FieldDescriptor "deprecated" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'deprecated")) :: Data.ProtoLens.FieldDescriptor MessageOptions mapEntry__field_descriptor = Data.ProtoLens.FieldDescriptor "map_entry" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'mapEntry")) :: Data.ProtoLens.FieldDescriptor MessageOptions uninterpretedOption__field_descriptor = Data.ProtoLens.FieldDescriptor "uninterpreted_option" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uninterpretedOption")) :: Data.ProtoLens.FieldDescriptor MessageOptions in Data.Map.fromList [(Data.ProtoLens.Tag 1, messageSetWireFormat__field_descriptor), (Data.ProtoLens.Tag 2, noStandardDescriptorAccessor__field_descriptor), (Data.ProtoLens.Tag 3, deprecated__field_descriptor), (Data.ProtoLens.Tag 7, mapEntry__field_descriptor), (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _MessageOptions'_unknownFields (\ x__ y__ -> x__{_MessageOptions'_unknownFields = y__}) defMessage = MessageOptions{_MessageOptions'messageSetWireFormat = Prelude.Nothing, _MessageOptions'noStandardDescriptorAccessor = Prelude.Nothing, _MessageOptions'deprecated = Prelude.Nothing, _MessageOptions'mapEntry = Prelude.Nothing, _MessageOptions'uninterpretedOption = Data.Vector.Generic.empty, _MessageOptions'_unknownFields = ([])} parseMessage = let loop :: MessageOptions -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UninterpretedOption -> Data.ProtoLens.Encoding.Bytes.Parser MessageOptions loop x mutable'uninterpretedOption = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uninterpretedOption) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'uninterpretedOption") frozen'uninterpretedOption x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 8 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "message_set_wire_format" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"messageSetWireFormat") y x) mutable'uninterpretedOption 16 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "no_standard_descriptor_accessor" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"noStandardDescriptorAccessor") y x) mutable'uninterpretedOption 24 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "deprecated" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"deprecated") y x) mutable'uninterpretedOption 56 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "map_entry" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"mapEntry") y x) mutable'uninterpretedOption 7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "uninterpreted_option" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'uninterpretedOption y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'uninterpretedOption in (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'uninterpretedOption) Data.ProtoLens.Encoding.Bytes. "MessageOptions" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'messageSetWireFormat") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'noStandardDescriptorAccessor") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'mapEntry") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 56) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uninterpretedOption") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData MessageOptions where rnf = (\ x__ -> Control.DeepSeq.deepseq (_MessageOptions'_unknownFields x__) (Control.DeepSeq.deepseq (_MessageOptions'messageSetWireFormat x__) (Control.DeepSeq.deepseq (_MessageOptions'noStandardDescriptorAccessor x__) (Control.DeepSeq.deepseq (_MessageOptions'deprecated x__) (Control.DeepSeq.deepseq (_MessageOptions'mapEntry x__) (Control.DeepSeq.deepseq (_MessageOptions'uninterpretedOption x__) (()))))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' MethodDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' MethodDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.inputType' @:: Lens' MethodDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'inputType' @:: Lens' MethodDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.outputType' @:: Lens' MethodDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'outputType' @:: Lens' MethodDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' MethodDescriptorProto MethodOptions@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' MethodDescriptorProto (Prelude.Maybe MethodOptions)@ * 'Proto.Google.Protobuf.Descriptor_Fields.clientStreaming' @:: Lens' MethodDescriptorProto Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'clientStreaming' @:: Lens' MethodDescriptorProto (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.serverStreaming' @:: Lens' MethodDescriptorProto Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'serverStreaming' @:: Lens' MethodDescriptorProto (Prelude.Maybe Prelude.Bool)@ -} data MethodDescriptorProto = MethodDescriptorProto{_MethodDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text), _MethodDescriptorProto'inputType :: !(Prelude.Maybe Data.Text.Text), _MethodDescriptorProto'outputType :: !(Prelude.Maybe Data.Text.Text), _MethodDescriptorProto'options :: !(Prelude.Maybe MethodOptions), _MethodDescriptorProto'clientStreaming :: !(Prelude.Maybe Prelude.Bool), _MethodDescriptorProto'serverStreaming :: !(Prelude.Maybe Prelude.Bool), _MethodDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show MethodDescriptorProto where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField MethodDescriptorProto "name" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'name (\ x__ y__ -> x__{_MethodDescriptorProto'name = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'name (\ x__ y__ -> x__{_MethodDescriptorProto'name = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MethodDescriptorProto "inputType" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'inputType (\ x__ y__ -> x__{_MethodDescriptorProto'inputType = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'inputType" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'inputType (\ x__ y__ -> x__{_MethodDescriptorProto'inputType = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MethodDescriptorProto "outputType" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'outputType (\ x__ y__ -> x__{_MethodDescriptorProto'outputType = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'outputType" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'outputType (\ x__ y__ -> x__{_MethodDescriptorProto'outputType = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MethodDescriptorProto "options" (MethodOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'options (\ x__ y__ -> x__{_MethodDescriptorProto'options = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'options" (Prelude.Maybe MethodOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'options (\ x__ y__ -> x__{_MethodDescriptorProto'options = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MethodDescriptorProto "clientStreaming" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'clientStreaming (\ x__ y__ -> x__{_MethodDescriptorProto'clientStreaming = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'clientStreaming" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'clientStreaming (\ x__ y__ -> x__{_MethodDescriptorProto'clientStreaming = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MethodDescriptorProto "serverStreaming" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'serverStreaming (\ x__ y__ -> x__{_MethodDescriptorProto'serverStreaming = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'serverStreaming" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'serverStreaming (\ x__ y__ -> x__{_MethodDescriptorProto'serverStreaming = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message MethodDescriptorProto where messageName _ = Data.Text.pack "google.protobuf.MethodDescriptorProto" fieldsByTag = let name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'name")) :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto inputType__field_descriptor = Data.ProtoLens.FieldDescriptor "input_type" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'inputType")) :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto outputType__field_descriptor = Data.ProtoLens.FieldDescriptor "output_type" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'outputType")) :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto options__field_descriptor = Data.ProtoLens.FieldDescriptor "options" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor MethodOptions) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'options")) :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto clientStreaming__field_descriptor = Data.ProtoLens.FieldDescriptor "client_streaming" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'clientStreaming")) :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto serverStreaming__field_descriptor = Data.ProtoLens.FieldDescriptor "server_streaming" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'serverStreaming")) :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto in Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor), (Data.ProtoLens.Tag 2, inputType__field_descriptor), (Data.ProtoLens.Tag 3, outputType__field_descriptor), (Data.ProtoLens.Tag 4, options__field_descriptor), (Data.ProtoLens.Tag 5, clientStreaming__field_descriptor), (Data.ProtoLens.Tag 6, serverStreaming__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _MethodDescriptorProto'_unknownFields (\ x__ y__ -> x__{_MethodDescriptorProto'_unknownFields = y__}) defMessage = MethodDescriptorProto{_MethodDescriptorProto'name = Prelude.Nothing, _MethodDescriptorProto'inputType = Prelude.Nothing, _MethodDescriptorProto'outputType = Prelude.Nothing, _MethodDescriptorProto'options = Prelude.Nothing, _MethodDescriptorProto'clientStreaming = Prelude.Nothing, _MethodDescriptorProto'serverStreaming = Prelude.Nothing, _MethodDescriptorProto'_unknownFields = ([])} parseMessage = let loop :: MethodDescriptorProto -> Data.ProtoLens.Encoding.Bytes.Parser MethodDescriptorProto loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) 18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "input_type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"inputType") y x) 26 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "output_type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outputType") y x) 34 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "options" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) 40 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "client_streaming" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"clientStreaming") y x) 48 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "server_streaming" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"serverStreaming") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (do loop Data.ProtoLens.defMessage) Data.ProtoLens.Encoding.Bytes. "MethodDescriptorProto" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'inputType") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'outputType") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'clientStreaming") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 40) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'serverStreaming") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 48) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData MethodDescriptorProto where rnf = (\ x__ -> Control.DeepSeq.deepseq (_MethodDescriptorProto'_unknownFields x__) (Control.DeepSeq.deepseq (_MethodDescriptorProto'name x__) (Control.DeepSeq.deepseq (_MethodDescriptorProto'inputType x__) (Control.DeepSeq.deepseq (_MethodDescriptorProto'outputType x__) (Control.DeepSeq.deepseq (_MethodDescriptorProto'options x__) (Control.DeepSeq.deepseq (_MethodDescriptorProto'clientStreaming x__) (Control.DeepSeq.deepseq (_MethodDescriptorProto'serverStreaming x__) (())))))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' MethodOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' MethodOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.idempotencyLevel' @:: Lens' MethodOptions MethodOptions'IdempotencyLevel@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'idempotencyLevel' @:: Lens' MethodOptions (Prelude.Maybe MethodOptions'IdempotencyLevel)@ * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' MethodOptions [UninterpretedOption]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' MethodOptions (Data.Vector.Vector UninterpretedOption)@ -} data MethodOptions = MethodOptions{_MethodOptions'deprecated :: !(Prelude.Maybe Prelude.Bool), _MethodOptions'idempotencyLevel :: !(Prelude.Maybe MethodOptions'IdempotencyLevel), _MethodOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption), _MethodOptions'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show MethodOptions where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField MethodOptions "deprecated" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodOptions'deprecated (\ x__ y__ -> x__{_MethodOptions'deprecated = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField MethodOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodOptions'deprecated (\ x__ y__ -> x__{_MethodOptions'deprecated = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MethodOptions "idempotencyLevel" (MethodOptions'IdempotencyLevel) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodOptions'idempotencyLevel (\ x__ y__ -> x__{_MethodOptions'idempotencyLevel = y__})) Prelude.. Data.ProtoLens.maybeLens MethodOptions'IDEMPOTENCY_UNKNOWN instance Data.ProtoLens.Field.HasField MethodOptions "maybe'idempotencyLevel" (Prelude.Maybe MethodOptions'IdempotencyLevel) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodOptions'idempotencyLevel (\ x__ y__ -> x__{_MethodOptions'idempotencyLevel = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField MethodOptions "uninterpretedOption" ([UninterpretedOption]) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodOptions'uninterpretedOption (\ x__ y__ -> x__{_MethodOptions'uninterpretedOption = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField MethodOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where fieldOf _ = (Lens.Family2.Unchecked.lens _MethodOptions'uninterpretedOption (\ x__ y__ -> x__{_MethodOptions'uninterpretedOption = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message MethodOptions where messageName _ = Data.Text.pack "google.protobuf.MethodOptions" fieldsByTag = let deprecated__field_descriptor = Data.ProtoLens.FieldDescriptor "deprecated" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'deprecated")) :: Data.ProtoLens.FieldDescriptor MethodOptions idempotencyLevel__field_descriptor = Data.ProtoLens.FieldDescriptor "idempotency_level" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor MethodOptions'IdempotencyLevel) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'idempotencyLevel")) :: Data.ProtoLens.FieldDescriptor MethodOptions uninterpretedOption__field_descriptor = Data.ProtoLens.FieldDescriptor "uninterpreted_option" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uninterpretedOption")) :: Data.ProtoLens.FieldDescriptor MethodOptions in Data.Map.fromList [(Data.ProtoLens.Tag 33, deprecated__field_descriptor), (Data.ProtoLens.Tag 34, idempotencyLevel__field_descriptor), (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _MethodOptions'_unknownFields (\ x__ y__ -> x__{_MethodOptions'_unknownFields = y__}) defMessage = MethodOptions{_MethodOptions'deprecated = Prelude.Nothing, _MethodOptions'idempotencyLevel = Prelude.Nothing, _MethodOptions'uninterpretedOption = Data.Vector.Generic.empty, _MethodOptions'_unknownFields = ([])} parseMessage = let loop :: MethodOptions -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UninterpretedOption -> Data.ProtoLens.Encoding.Bytes.Parser MethodOptions loop x mutable'uninterpretedOption = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uninterpretedOption) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'uninterpretedOption") frozen'uninterpretedOption x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 264 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "deprecated" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"deprecated") y x) mutable'uninterpretedOption 272 -> do y <- (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) Data.ProtoLens.Encoding.Bytes. "idempotency_level" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"idempotencyLevel") y x) mutable'uninterpretedOption 7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "uninterpreted_option" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'uninterpretedOption y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'uninterpretedOption in (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'uninterpretedOption) Data.ProtoLens.Encoding.Bytes. "MethodOptions" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 264) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'idempotencyLevel") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 272) Data.Monoid.<> (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) Prelude.. Prelude.fromEnum) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uninterpretedOption") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData MethodOptions where rnf = (\ x__ -> Control.DeepSeq.deepseq (_MethodOptions'_unknownFields x__) (Control.DeepSeq.deepseq (_MethodOptions'deprecated x__) (Control.DeepSeq.deepseq (_MethodOptions'idempotencyLevel x__) (Control.DeepSeq.deepseq (_MethodOptions'uninterpretedOption x__) (()))))) data MethodOptions'IdempotencyLevel = MethodOptions'IDEMPOTENCY_UNKNOWN | MethodOptions'NO_SIDE_EFFECTS | MethodOptions'IDEMPOTENT deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum MethodOptions'IdempotencyLevel where maybeToEnum 0 = Prelude.Just MethodOptions'IDEMPOTENCY_UNKNOWN maybeToEnum 1 = Prelude.Just MethodOptions'NO_SIDE_EFFECTS maybeToEnum 2 = Prelude.Just MethodOptions'IDEMPOTENT maybeToEnum _ = Prelude.Nothing showEnum MethodOptions'IDEMPOTENCY_UNKNOWN = "IDEMPOTENCY_UNKNOWN" showEnum MethodOptions'NO_SIDE_EFFECTS = "NO_SIDE_EFFECTS" showEnum MethodOptions'IDEMPOTENT = "IDEMPOTENT" readEnum k | (k) Prelude.== "IDEMPOTENCY_UNKNOWN" = Prelude.Just MethodOptions'IDEMPOTENCY_UNKNOWN | (k) Prelude.== "NO_SIDE_EFFECTS" = Prelude.Just MethodOptions'NO_SIDE_EFFECTS | (k) Prelude.== "IDEMPOTENT" = Prelude.Just MethodOptions'IDEMPOTENT readEnum k = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum instance Prelude.Bounded MethodOptions'IdempotencyLevel where minBound = MethodOptions'IDEMPOTENCY_UNKNOWN maxBound = MethodOptions'IDEMPOTENT instance Prelude.Enum MethodOptions'IdempotencyLevel where toEnum k__ = Prelude.maybe (Prelude.error (("toEnum: unknown value for enum IdempotencyLevel: ") Prelude.++ Prelude.show k__)) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum MethodOptions'IDEMPOTENCY_UNKNOWN = 0 fromEnum MethodOptions'NO_SIDE_EFFECTS = 1 fromEnum MethodOptions'IDEMPOTENT = 2 succ MethodOptions'IDEMPOTENT = Prelude.error "MethodOptions'IdempotencyLevel.succ: bad argument MethodOptions'IDEMPOTENT. This value would be out of bounds." succ MethodOptions'IDEMPOTENCY_UNKNOWN = MethodOptions'NO_SIDE_EFFECTS succ MethodOptions'NO_SIDE_EFFECTS = MethodOptions'IDEMPOTENT pred MethodOptions'IDEMPOTENCY_UNKNOWN = Prelude.error "MethodOptions'IdempotencyLevel.pred: bad argument MethodOptions'IDEMPOTENCY_UNKNOWN. This value would be out of bounds." pred MethodOptions'NO_SIDE_EFFECTS = MethodOptions'IDEMPOTENCY_UNKNOWN pred MethodOptions'IDEMPOTENT = MethodOptions'NO_SIDE_EFFECTS enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo instance Data.ProtoLens.FieldDefault MethodOptions'IdempotencyLevel where fieldDefault = MethodOptions'IDEMPOTENCY_UNKNOWN instance Control.DeepSeq.NFData MethodOptions'IdempotencyLevel where rnf x__ = Prelude.seq x__ (()) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' OneofDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' OneofDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' OneofDescriptorProto OneofOptions@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' OneofDescriptorProto (Prelude.Maybe OneofOptions)@ -} data OneofDescriptorProto = OneofDescriptorProto{_OneofDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text), _OneofDescriptorProto'options :: !(Prelude.Maybe OneofOptions), _OneofDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show OneofDescriptorProto where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField OneofDescriptorProto "name" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _OneofDescriptorProto'name (\ x__ y__ -> x__{_OneofDescriptorProto'name = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField OneofDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _OneofDescriptorProto'name (\ x__ y__ -> x__{_OneofDescriptorProto'name = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField OneofDescriptorProto "options" (OneofOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _OneofDescriptorProto'options (\ x__ y__ -> x__{_OneofDescriptorProto'options = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage instance Data.ProtoLens.Field.HasField OneofDescriptorProto "maybe'options" (Prelude.Maybe OneofOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _OneofDescriptorProto'options (\ x__ y__ -> x__{_OneofDescriptorProto'options = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message OneofDescriptorProto where messageName _ = Data.Text.pack "google.protobuf.OneofDescriptorProto" fieldsByTag = let name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'name")) :: Data.ProtoLens.FieldDescriptor OneofDescriptorProto options__field_descriptor = Data.ProtoLens.FieldDescriptor "options" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor OneofOptions) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'options")) :: Data.ProtoLens.FieldDescriptor OneofDescriptorProto in Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor), (Data.ProtoLens.Tag 2, options__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _OneofDescriptorProto'_unknownFields (\ x__ y__ -> x__{_OneofDescriptorProto'_unknownFields = y__}) defMessage = OneofDescriptorProto{_OneofDescriptorProto'name = Prelude.Nothing, _OneofDescriptorProto'options = Prelude.Nothing, _OneofDescriptorProto'_unknownFields = ([])} parseMessage = let loop :: OneofDescriptorProto -> Data.ProtoLens.Encoding.Bytes.Parser OneofDescriptorProto loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) 18 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "options" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (do loop Data.ProtoLens.defMessage) Data.ProtoLens.Encoding.Bytes. "OneofDescriptorProto" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData OneofDescriptorProto where rnf = (\ x__ -> Control.DeepSeq.deepseq (_OneofDescriptorProto'_unknownFields x__) (Control.DeepSeq.deepseq (_OneofDescriptorProto'name x__) (Control.DeepSeq.deepseq (_OneofDescriptorProto'options x__) (())))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' OneofOptions [UninterpretedOption]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' OneofOptions (Data.Vector.Vector UninterpretedOption)@ -} data OneofOptions = OneofOptions{_OneofOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption), _OneofOptions'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show OneofOptions where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField OneofOptions "uninterpretedOption" ([UninterpretedOption]) where fieldOf _ = (Lens.Family2.Unchecked.lens _OneofOptions'uninterpretedOption (\ x__ y__ -> x__{_OneofOptions'uninterpretedOption = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField OneofOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where fieldOf _ = (Lens.Family2.Unchecked.lens _OneofOptions'uninterpretedOption (\ x__ y__ -> x__{_OneofOptions'uninterpretedOption = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message OneofOptions where messageName _ = Data.Text.pack "google.protobuf.OneofOptions" fieldsByTag = let uninterpretedOption__field_descriptor = Data.ProtoLens.FieldDescriptor "uninterpreted_option" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uninterpretedOption")) :: Data.ProtoLens.FieldDescriptor OneofOptions in Data.Map.fromList [(Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _OneofOptions'_unknownFields (\ x__ y__ -> x__{_OneofOptions'_unknownFields = y__}) defMessage = OneofOptions{_OneofOptions'uninterpretedOption = Data.Vector.Generic.empty, _OneofOptions'_unknownFields = ([])} parseMessage = let loop :: OneofOptions -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UninterpretedOption -> Data.ProtoLens.Encoding.Bytes.Parser OneofOptions loop x mutable'uninterpretedOption = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uninterpretedOption) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'uninterpretedOption") frozen'uninterpretedOption x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "uninterpreted_option" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'uninterpretedOption y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'uninterpretedOption in (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'uninterpretedOption) Data.ProtoLens.Encoding.Bytes. "OneofOptions" buildMessage = (\ _x -> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uninterpretedOption") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData OneofOptions where rnf = (\ x__ -> Control.DeepSeq.deepseq (_OneofOptions'_unknownFields x__) (Control.DeepSeq.deepseq (_OneofOptions'uninterpretedOption x__) (()))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' ServiceDescriptorProto Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' ServiceDescriptorProto (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.method' @:: Lens' ServiceDescriptorProto [MethodDescriptorProto]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'method' @:: Lens' ServiceDescriptorProto (Data.Vector.Vector MethodDescriptorProto)@ * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' ServiceDescriptorProto ServiceOptions@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' ServiceDescriptorProto (Prelude.Maybe ServiceOptions)@ -} data ServiceDescriptorProto = ServiceDescriptorProto{_ServiceDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text), _ServiceDescriptorProto'method :: !(Data.Vector.Vector MethodDescriptorProto), _ServiceDescriptorProto'options :: !(Prelude.Maybe ServiceOptions), _ServiceDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show ServiceDescriptorProto where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "name" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'name (\ x__ y__ -> x__{_ServiceDescriptorProto'name = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'name (\ x__ y__ -> x__{_ServiceDescriptorProto'name = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "method" ([MethodDescriptorProto]) where fieldOf _ = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'method (\ x__ y__ -> x__{_ServiceDescriptorProto'method = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "vec'method" (Data.Vector.Vector MethodDescriptorProto) where fieldOf _ = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'method (\ x__ y__ -> x__{_ServiceDescriptorProto'method = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "options" (ServiceOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'options (\ x__ y__ -> x__{_ServiceDescriptorProto'options = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "maybe'options" (Prelude.Maybe ServiceOptions) where fieldOf _ = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'options (\ x__ y__ -> x__{_ServiceDescriptorProto'options = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message ServiceDescriptorProto where messageName _ = Data.Text.pack "google.protobuf.ServiceDescriptorProto" fieldsByTag = let name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'name")) :: Data.ProtoLens.FieldDescriptor ServiceDescriptorProto method__field_descriptor = Data.ProtoLens.FieldDescriptor "method" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor MethodDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"method")) :: Data.ProtoLens.FieldDescriptor ServiceDescriptorProto options__field_descriptor = Data.ProtoLens.FieldDescriptor "options" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ServiceOptions) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'options")) :: Data.ProtoLens.FieldDescriptor ServiceDescriptorProto in Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor), (Data.ProtoLens.Tag 2, method__field_descriptor), (Data.ProtoLens.Tag 3, options__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ServiceDescriptorProto'_unknownFields (\ x__ y__ -> x__{_ServiceDescriptorProto'_unknownFields = y__}) defMessage = ServiceDescriptorProto{_ServiceDescriptorProto'name = Prelude.Nothing, _ServiceDescriptorProto'method = Data.Vector.Generic.empty, _ServiceDescriptorProto'options = Prelude.Nothing, _ServiceDescriptorProto'_unknownFields = ([])} parseMessage = let loop :: ServiceDescriptorProto -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MethodDescriptorProto -> Data.ProtoLens.Encoding.Bytes.Parser ServiceDescriptorProto loop x mutable'method = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'method <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'method) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'method") frozen'method x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) mutable'method 18 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "method" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'method y) loop x v 26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "options" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) mutable'method wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'method in (do mutable'method <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'method) Data.ProtoLens.Encoding.Bytes. "ServiceDescriptorProto" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'method") _x)) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ServiceDescriptorProto where rnf = (\ x__ -> Control.DeepSeq.deepseq (_ServiceDescriptorProto'_unknownFields x__) (Control.DeepSeq.deepseq (_ServiceDescriptorProto'name x__) (Control.DeepSeq.deepseq (_ServiceDescriptorProto'method x__) (Control.DeepSeq.deepseq (_ServiceDescriptorProto'options x__) (()))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' ServiceOptions Prelude.Bool@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' ServiceOptions (Prelude.Maybe Prelude.Bool)@ * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' ServiceOptions [UninterpretedOption]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' ServiceOptions (Data.Vector.Vector UninterpretedOption)@ -} data ServiceOptions = ServiceOptions{_ServiceOptions'deprecated :: !(Prelude.Maybe Prelude.Bool), _ServiceOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption), _ServiceOptions'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show ServiceOptions where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ServiceOptions "deprecated" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _ServiceOptions'deprecated (\ x__ y__ -> x__{_ServiceOptions'deprecated = y__})) Prelude.. Data.ProtoLens.maybeLens Prelude.False instance Data.ProtoLens.Field.HasField ServiceOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _ServiceOptions'deprecated (\ x__ y__ -> x__{_ServiceOptions'deprecated = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField ServiceOptions "uninterpretedOption" ([UninterpretedOption]) where fieldOf _ = (Lens.Family2.Unchecked.lens _ServiceOptions'uninterpretedOption (\ x__ y__ -> x__{_ServiceOptions'uninterpretedOption = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField ServiceOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where fieldOf _ = (Lens.Family2.Unchecked.lens _ServiceOptions'uninterpretedOption (\ x__ y__ -> x__{_ServiceOptions'uninterpretedOption = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message ServiceOptions where messageName _ = Data.Text.pack "google.protobuf.ServiceOptions" fieldsByTag = let deprecated__field_descriptor = Data.ProtoLens.FieldDescriptor "deprecated" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'deprecated")) :: Data.ProtoLens.FieldDescriptor ServiceOptions uninterpretedOption__field_descriptor = Data.ProtoLens.FieldDescriptor "uninterpreted_option" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uninterpretedOption")) :: Data.ProtoLens.FieldDescriptor ServiceOptions in Data.Map.fromList [(Data.ProtoLens.Tag 33, deprecated__field_descriptor), (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ServiceOptions'_unknownFields (\ x__ y__ -> x__{_ServiceOptions'_unknownFields = y__}) defMessage = ServiceOptions{_ServiceOptions'deprecated = Prelude.Nothing, _ServiceOptions'uninterpretedOption = Data.Vector.Generic.empty, _ServiceOptions'_unknownFields = ([])} parseMessage = let loop :: ServiceOptions -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UninterpretedOption -> Data.ProtoLens.Encoding.Bytes.Parser ServiceOptions loop x mutable'uninterpretedOption = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uninterpretedOption) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'uninterpretedOption") frozen'uninterpretedOption x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 264 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "deprecated" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"deprecated") y x) mutable'uninterpretedOption 7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "uninterpreted_option" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'uninterpretedOption y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'uninterpretedOption in (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'uninterpretedOption) Data.ProtoLens.Encoding.Bytes. "ServiceOptions" buildMessage = (\ _x -> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 264) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uninterpretedOption") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ServiceOptions where rnf = (\ x__ -> Control.DeepSeq.deepseq (_ServiceOptions'_unknownFields x__) (Control.DeepSeq.deepseq (_ServiceOptions'deprecated x__) (Control.DeepSeq.deepseq (_ServiceOptions'uninterpretedOption x__) (())))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.location' @:: Lens' SourceCodeInfo [SourceCodeInfo'Location]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'location' @:: Lens' SourceCodeInfo (Data.Vector.Vector SourceCodeInfo'Location)@ -} data SourceCodeInfo = SourceCodeInfo{_SourceCodeInfo'location :: !(Data.Vector.Vector SourceCodeInfo'Location), _SourceCodeInfo'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show SourceCodeInfo where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SourceCodeInfo "location" ([SourceCodeInfo'Location]) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'location (\ x__ y__ -> x__{_SourceCodeInfo'location = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField SourceCodeInfo "vec'location" (Data.Vector.Vector SourceCodeInfo'Location) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'location (\ x__ y__ -> x__{_SourceCodeInfo'location = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message SourceCodeInfo where messageName _ = Data.Text.pack "google.protobuf.SourceCodeInfo" fieldsByTag = let location__field_descriptor = Data.ProtoLens.FieldDescriptor "location" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor SourceCodeInfo'Location) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"location")) :: Data.ProtoLens.FieldDescriptor SourceCodeInfo in Data.Map.fromList [(Data.ProtoLens.Tag 1, location__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SourceCodeInfo'_unknownFields (\ x__ y__ -> x__{_SourceCodeInfo'_unknownFields = y__}) defMessage = SourceCodeInfo{_SourceCodeInfo'location = Data.Vector.Generic.empty, _SourceCodeInfo'_unknownFields = ([])} parseMessage = let loop :: SourceCodeInfo -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld SourceCodeInfo'Location -> Data.ProtoLens.Encoding.Bytes.Parser SourceCodeInfo loop x mutable'location = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'location <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'location) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'location") frozen'location x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "location" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'location y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'location in (do mutable'location <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'location) Data.ProtoLens.Encoding.Bytes. "SourceCodeInfo" buildMessage = (\ _x -> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'location") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData SourceCodeInfo where rnf = (\ x__ -> Control.DeepSeq.deepseq (_SourceCodeInfo'_unknownFields x__) (Control.DeepSeq.deepseq (_SourceCodeInfo'location x__) (()))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.path' @:: Lens' SourceCodeInfo'Location [Data.Int.Int32]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'path' @:: Lens' SourceCodeInfo'Location (Data.Vector.Unboxed.Vector Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.span' @:: Lens' SourceCodeInfo'Location [Data.Int.Int32]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'span' @:: Lens' SourceCodeInfo'Location (Data.Vector.Unboxed.Vector Data.Int.Int32)@ * 'Proto.Google.Protobuf.Descriptor_Fields.leadingComments' @:: Lens' SourceCodeInfo'Location Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'leadingComments' @:: Lens' SourceCodeInfo'Location (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.trailingComments' @:: Lens' SourceCodeInfo'Location Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'trailingComments' @:: Lens' SourceCodeInfo'Location (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.leadingDetachedComments' @:: Lens' SourceCodeInfo'Location [Data.Text.Text]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'leadingDetachedComments' @:: Lens' SourceCodeInfo'Location (Data.Vector.Vector Data.Text.Text)@ -} data SourceCodeInfo'Location = SourceCodeInfo'Location{_SourceCodeInfo'Location'path :: !(Data.Vector.Unboxed.Vector Data.Int.Int32), _SourceCodeInfo'Location'span :: !(Data.Vector.Unboxed.Vector Data.Int.Int32), _SourceCodeInfo'Location'leadingComments :: !(Prelude.Maybe Data.Text.Text), _SourceCodeInfo'Location'trailingComments :: !(Prelude.Maybe Data.Text.Text), _SourceCodeInfo'Location'leadingDetachedComments :: !(Data.Vector.Vector Data.Text.Text), _SourceCodeInfo'Location'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show SourceCodeInfo'Location where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "path" ([Data.Int.Int32]) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'path (\ x__ y__ -> x__{_SourceCodeInfo'Location'path = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "vec'path" (Data.Vector.Unboxed.Vector Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'path (\ x__ y__ -> x__{_SourceCodeInfo'Location'path = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "span" ([Data.Int.Int32]) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'span (\ x__ y__ -> x__{_SourceCodeInfo'Location'span = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "vec'span" (Data.Vector.Unboxed.Vector Data.Int.Int32) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'span (\ x__ y__ -> x__{_SourceCodeInfo'Location'span = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "leadingComments" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'leadingComments (\ x__ y__ -> x__{_SourceCodeInfo'Location'leadingComments = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "maybe'leadingComments" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'leadingComments (\ x__ y__ -> x__{_SourceCodeInfo'Location'leadingComments = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "trailingComments" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'trailingComments (\ x__ y__ -> x__{_SourceCodeInfo'Location'trailingComments = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "maybe'trailingComments" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'trailingComments (\ x__ y__ -> x__{_SourceCodeInfo'Location'trailingComments = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "leadingDetachedComments" ([Data.Text.Text]) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'leadingDetachedComments (\ x__ y__ -> x__{_SourceCodeInfo'Location'leadingDetachedComments = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "vec'leadingDetachedComments" (Data.Vector.Vector Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'leadingDetachedComments (\ x__ y__ -> x__{_SourceCodeInfo'Location'leadingDetachedComments = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message SourceCodeInfo'Location where messageName _ = Data.Text.pack "google.protobuf.SourceCodeInfo.Location" fieldsByTag = let path__field_descriptor = Data.ProtoLens.FieldDescriptor "path" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"path")) :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location span__field_descriptor = Data.ProtoLens.FieldDescriptor "span" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"span")) :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location leadingComments__field_descriptor = Data.ProtoLens.FieldDescriptor "leading_comments" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'leadingComments")) :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location trailingComments__field_descriptor = Data.ProtoLens.FieldDescriptor "trailing_comments" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'trailingComments")) :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location leadingDetachedComments__field_descriptor = Data.ProtoLens.FieldDescriptor "leading_detached_comments" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"leadingDetachedComments")) :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location in Data.Map.fromList [(Data.ProtoLens.Tag 1, path__field_descriptor), (Data.ProtoLens.Tag 2, span__field_descriptor), (Data.ProtoLens.Tag 3, leadingComments__field_descriptor), (Data.ProtoLens.Tag 4, trailingComments__field_descriptor), (Data.ProtoLens.Tag 6, leadingDetachedComments__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'_unknownFields (\ x__ y__ -> x__{_SourceCodeInfo'Location'_unknownFields = y__}) defMessage = SourceCodeInfo'Location{_SourceCodeInfo'Location'path = Data.Vector.Generic.empty, _SourceCodeInfo'Location'span = Data.Vector.Generic.empty, _SourceCodeInfo'Location'leadingComments = Prelude.Nothing, _SourceCodeInfo'Location'trailingComments = Prelude.Nothing, _SourceCodeInfo'Location'leadingDetachedComments = Data.Vector.Generic.empty, _SourceCodeInfo'Location'_unknownFields = ([])} parseMessage = let loop :: SourceCodeInfo'Location -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32 -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32 -> Data.ProtoLens.Encoding.Bytes.Parser SourceCodeInfo'Location loop x mutable'leadingDetachedComments mutable'path mutable'span = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'leadingDetachedComments <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'leadingDetachedComments) frozen'path <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'path) frozen'span <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'span) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'leadingDetachedComments") frozen'leadingDetachedComments (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'path") frozen'path (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'span") frozen'span x)))) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 8 -> do !y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "path" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'path y) loop x mutable'leadingDetachedComments v mutable'span 10 -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) ((let ploop qs = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd if packedEnd then Prelude.return qs else do !q <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "path" qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append qs q) ploop qs' in ploop) mutable'path) loop x mutable'leadingDetachedComments y mutable'span 16 -> do !y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "span" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'span y) loop x mutable'leadingDetachedComments mutable'path v 18 -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) ((let ploop qs = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd if packedEnd then Prelude.return qs else do !q <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "span" qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append qs q) ploop qs' in ploop) mutable'span) loop x mutable'leadingDetachedComments mutable'path y 26 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "leading_comments" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"leadingComments") y x) mutable'leadingDetachedComments mutable'path mutable'span 34 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "trailing_comments" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"trailingComments") y x) mutable'leadingDetachedComments mutable'path mutable'span 50 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "leading_detached_comments" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'leadingDetachedComments y) loop x v mutable'path mutable'span wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'leadingDetachedComments mutable'path mutable'span in (do mutable'leadingDetachedComments <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'path <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'span <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'leadingDetachedComments mutable'path mutable'span) Data.ProtoLens.Encoding.Bytes. "Location" buildMessage = (\ _x -> (let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'path") _x in if Data.Vector.Generic.null p then Data.Monoid.mempty else (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs) (Data.ProtoLens.Encoding.Bytes.runBuilder (Data.ProtoLens.Encoding.Bytes.foldMapBuilder ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) p))) Data.Monoid.<> (let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'span") _x in if Data.Vector.Generic.null p then Data.Monoid.mempty else (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<> (\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs) (Data.ProtoLens.Encoding.Bytes.runBuilder (Data.ProtoLens.Encoding.Bytes.foldMapBuilder ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) p))) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'leadingComments") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'trailingComments") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 50) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'leadingDetachedComments") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData SourceCodeInfo'Location where rnf = (\ x__ -> Control.DeepSeq.deepseq (_SourceCodeInfo'Location'_unknownFields x__) (Control.DeepSeq.deepseq (_SourceCodeInfo'Location'path x__) (Control.DeepSeq.deepseq (_SourceCodeInfo'Location'span x__) (Control.DeepSeq.deepseq (_SourceCodeInfo'Location'leadingComments x__) (Control.DeepSeq.deepseq (_SourceCodeInfo'Location'trailingComments x__) (Control.DeepSeq.deepseq (_SourceCodeInfo'Location'leadingDetachedComments x__) (()))))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' UninterpretedOption [UninterpretedOption'NamePart]@ * 'Proto.Google.Protobuf.Descriptor_Fields.vec'name' @:: Lens' UninterpretedOption (Data.Vector.Vector UninterpretedOption'NamePart)@ * 'Proto.Google.Protobuf.Descriptor_Fields.identifierValue' @:: Lens' UninterpretedOption Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'identifierValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Descriptor_Fields.positiveIntValue' @:: Lens' UninterpretedOption Data.Word.Word64@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'positiveIntValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Word.Word64)@ * 'Proto.Google.Protobuf.Descriptor_Fields.negativeIntValue' @:: Lens' UninterpretedOption Data.Int.Int64@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'negativeIntValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Int.Int64)@ * 'Proto.Google.Protobuf.Descriptor_Fields.doubleValue' @:: Lens' UninterpretedOption Prelude.Double@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'doubleValue' @:: Lens' UninterpretedOption (Prelude.Maybe Prelude.Double)@ * 'Proto.Google.Protobuf.Descriptor_Fields.stringValue' @:: Lens' UninterpretedOption Data.ByteString.ByteString@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'stringValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.ByteString.ByteString)@ * 'Proto.Google.Protobuf.Descriptor_Fields.aggregateValue' @:: Lens' UninterpretedOption Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'aggregateValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Text.Text)@ -} data UninterpretedOption = UninterpretedOption{_UninterpretedOption'name :: !(Data.Vector.Vector UninterpretedOption'NamePart), _UninterpretedOption'identifierValue :: !(Prelude.Maybe Data.Text.Text), _UninterpretedOption'positiveIntValue :: !(Prelude.Maybe Data.Word.Word64), _UninterpretedOption'negativeIntValue :: !(Prelude.Maybe Data.Int.Int64), _UninterpretedOption'doubleValue :: !(Prelude.Maybe Prelude.Double), _UninterpretedOption'stringValue :: !(Prelude.Maybe Data.ByteString.ByteString), _UninterpretedOption'aggregateValue :: !(Prelude.Maybe Data.Text.Text), _UninterpretedOption'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show UninterpretedOption where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField UninterpretedOption "name" ([UninterpretedOption'NamePart]) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'name (\ x__ y__ -> x__{_UninterpretedOption'name = y__})) Prelude.. Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__) instance Data.ProtoLens.Field.HasField UninterpretedOption "vec'name" (Data.Vector.Vector UninterpretedOption'NamePart) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'name (\ x__ y__ -> x__{_UninterpretedOption'name = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField UninterpretedOption "identifierValue" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'identifierValue (\ x__ y__ -> x__{_UninterpretedOption'identifierValue = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'identifierValue" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'identifierValue (\ x__ y__ -> x__{_UninterpretedOption'identifierValue = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField UninterpretedOption "positiveIntValue" (Data.Word.Word64) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'positiveIntValue (\ x__ y__ -> x__{_UninterpretedOption'positiveIntValue = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'positiveIntValue" (Prelude.Maybe Data.Word.Word64) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'positiveIntValue (\ x__ y__ -> x__{_UninterpretedOption'positiveIntValue = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField UninterpretedOption "negativeIntValue" (Data.Int.Int64) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'negativeIntValue (\ x__ y__ -> x__{_UninterpretedOption'negativeIntValue = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'negativeIntValue" (Prelude.Maybe Data.Int.Int64) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'negativeIntValue (\ x__ y__ -> x__{_UninterpretedOption'negativeIntValue = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField UninterpretedOption "doubleValue" (Prelude.Double) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'doubleValue (\ x__ y__ -> x__{_UninterpretedOption'doubleValue = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'doubleValue" (Prelude.Maybe Prelude.Double) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'doubleValue (\ x__ y__ -> x__{_UninterpretedOption'doubleValue = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField UninterpretedOption "stringValue" (Data.ByteString.ByteString) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'stringValue (\ x__ y__ -> x__{_UninterpretedOption'stringValue = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'stringValue" (Prelude.Maybe Data.ByteString.ByteString) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'stringValue (\ x__ y__ -> x__{_UninterpretedOption'stringValue = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField UninterpretedOption "aggregateValue" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'aggregateValue (\ x__ y__ -> x__{_UninterpretedOption'aggregateValue = y__})) Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'aggregateValue" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'aggregateValue (\ x__ y__ -> x__{_UninterpretedOption'aggregateValue = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message UninterpretedOption where messageName _ = Data.Text.pack "google.protobuf.UninterpretedOption" fieldsByTag = let name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UninterpretedOption'NamePart) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"name")) :: Data.ProtoLens.FieldDescriptor UninterpretedOption identifierValue__field_descriptor = Data.ProtoLens.FieldDescriptor "identifier_value" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'identifierValue")) :: Data.ProtoLens.FieldDescriptor UninterpretedOption positiveIntValue__field_descriptor = Data.ProtoLens.FieldDescriptor "positive_int_value" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'positiveIntValue")) :: Data.ProtoLens.FieldDescriptor UninterpretedOption negativeIntValue__field_descriptor = Data.ProtoLens.FieldDescriptor "negative_int_value" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'negativeIntValue")) :: Data.ProtoLens.FieldDescriptor UninterpretedOption doubleValue__field_descriptor = Data.ProtoLens.FieldDescriptor "double_value" (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Double) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'doubleValue")) :: Data.ProtoLens.FieldDescriptor UninterpretedOption stringValue__field_descriptor = Data.ProtoLens.FieldDescriptor "string_value" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'stringValue")) :: Data.ProtoLens.FieldDescriptor UninterpretedOption aggregateValue__field_descriptor = Data.ProtoLens.FieldDescriptor "aggregate_value" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'aggregateValue")) :: Data.ProtoLens.FieldDescriptor UninterpretedOption in Data.Map.fromList [(Data.ProtoLens.Tag 2, name__field_descriptor), (Data.ProtoLens.Tag 3, identifierValue__field_descriptor), (Data.ProtoLens.Tag 4, positiveIntValue__field_descriptor), (Data.ProtoLens.Tag 5, negativeIntValue__field_descriptor), (Data.ProtoLens.Tag 6, doubleValue__field_descriptor), (Data.ProtoLens.Tag 7, stringValue__field_descriptor), (Data.ProtoLens.Tag 8, aggregateValue__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _UninterpretedOption'_unknownFields (\ x__ y__ -> x__{_UninterpretedOption'_unknownFields = y__}) defMessage = UninterpretedOption{_UninterpretedOption'name = Data.Vector.Generic.empty, _UninterpretedOption'identifierValue = Prelude.Nothing, _UninterpretedOption'positiveIntValue = Prelude.Nothing, _UninterpretedOption'negativeIntValue = Prelude.Nothing, _UninterpretedOption'doubleValue = Prelude.Nothing, _UninterpretedOption'stringValue = Prelude.Nothing, _UninterpretedOption'aggregateValue = Prelude.Nothing, _UninterpretedOption'_unknownFields = ([])} parseMessage = let loop :: UninterpretedOption -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UninterpretedOption'NamePart -> Data.ProtoLens.Encoding.Bytes.Parser UninterpretedOption loop x mutable'name = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'name <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'name) let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'name") frozen'name x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 18 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) Data.ProtoLens.Encoding.Bytes. "name" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'name y) loop x v 26 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "identifier_value" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"identifierValue") y x) mutable'name 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "positive_int_value" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"positiveIntValue") y x) mutable'name 40 -> do y <- (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "negative_int_value" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"negativeIntValue") y x) mutable'name 49 -> do y <- (Prelude.fmap Data.ProtoLens.Encoding.Bytes.wordToDouble Data.ProtoLens.Encoding.Bytes.getFixed64) Data.ProtoLens.Encoding.Bytes. "double_value" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"doubleValue") y x) mutable'name 58 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) Data.ProtoLens.Encoding.Bytes. "string_value" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"stringValue") y x) mutable'name 66 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "aggregate_value" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"aggregateValue") y x) mutable'name wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'name in (do mutable'name <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'name) Data.ProtoLens.Encoding.Bytes. "UninterpretedOption" buildMessage = (\ _x -> (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.ProtoLens.encodeMessage) _v) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'name") _x)) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'identifierValue") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'positiveIntValue") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 32) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putVarInt _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'negativeIntValue") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 40) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. Prelude.fromIntegral) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'doubleValue") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 49) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putFixed64) Prelude.. Data.ProtoLens.Encoding.Bytes.doubleToWord) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'stringValue") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 58) Data.Monoid.<> (\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs) _v) Data.Monoid.<> (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'aggregateValue") _x of (Prelude.Nothing) -> Data.Monoid.mempty Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 66) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) _v) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData UninterpretedOption where rnf = (\ x__ -> Control.DeepSeq.deepseq (_UninterpretedOption'_unknownFields x__) (Control.DeepSeq.deepseq (_UninterpretedOption'name x__) (Control.DeepSeq.deepseq (_UninterpretedOption'identifierValue x__) (Control.DeepSeq.deepseq (_UninterpretedOption'positiveIntValue x__) (Control.DeepSeq.deepseq (_UninterpretedOption'negativeIntValue x__) (Control.DeepSeq.deepseq (_UninterpretedOption'doubleValue x__) (Control.DeepSeq.deepseq (_UninterpretedOption'stringValue x__) (Control.DeepSeq.deepseq (_UninterpretedOption'aggregateValue x__) (()))))))))) {- | Fields : * 'Proto.Google.Protobuf.Descriptor_Fields.namePart' @:: Lens' UninterpretedOption'NamePart Data.Text.Text@ * 'Proto.Google.Protobuf.Descriptor_Fields.isExtension' @:: Lens' UninterpretedOption'NamePart Prelude.Bool@ -} data UninterpretedOption'NamePart = UninterpretedOption'NamePart{_UninterpretedOption'NamePart'namePart :: !Data.Text.Text, _UninterpretedOption'NamePart'isExtension :: !Prelude.Bool, _UninterpretedOption'NamePart'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Eq, Prelude.Ord) instance Prelude.Show UninterpretedOption'NamePart where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField UninterpretedOption'NamePart "namePart" (Data.Text.Text) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'NamePart'namePart (\ x__ y__ -> x__{_UninterpretedOption'NamePart'namePart = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Field.HasField UninterpretedOption'NamePart "isExtension" (Prelude.Bool) where fieldOf _ = (Lens.Family2.Unchecked.lens _UninterpretedOption'NamePart'isExtension (\ x__ y__ -> x__{_UninterpretedOption'NamePart'isExtension = y__})) Prelude.. Prelude.id instance Data.ProtoLens.Message UninterpretedOption'NamePart where messageName _ = Data.Text.pack "google.protobuf.UninterpretedOption.NamePart" fieldsByTag = let namePart__field_descriptor = Data.ProtoLens.FieldDescriptor "name_part" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Required (Data.ProtoLens.Field.field @"namePart")) :: Data.ProtoLens.FieldDescriptor UninterpretedOption'NamePart isExtension__field_descriptor = Data.ProtoLens.FieldDescriptor "is_extension" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Required (Data.ProtoLens.Field.field @"isExtension")) :: Data.ProtoLens.FieldDescriptor UninterpretedOption'NamePart in Data.Map.fromList [(Data.ProtoLens.Tag 1, namePart__field_descriptor), (Data.ProtoLens.Tag 2, isExtension__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _UninterpretedOption'NamePart'_unknownFields (\ x__ y__ -> x__{_UninterpretedOption'NamePart'_unknownFields = y__}) defMessage = UninterpretedOption'NamePart{_UninterpretedOption'NamePart'namePart = Data.ProtoLens.fieldDefault, _UninterpretedOption'NamePart'isExtension = Data.ProtoLens.fieldDefault, _UninterpretedOption'NamePart'_unknownFields = ([])} parseMessage = let loop :: UninterpretedOption'NamePart -> Prelude.Bool -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser UninterpretedOption'NamePart loop x required'isExtension required'namePart = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do let missing = (if required'isExtension then (:) "is_extension" else Prelude.id) ((if required'namePart then (:) "name_part" else Prelude.id) []) in if Prelude.null missing then Prelude.return () else Prelude.fail (("Missing required fields: ") Prelude.++ Prelude.show (missing :: ([Prelude.String]))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len) Data.ProtoLens.Encoding.Bytes.runEither (case Data.Text.Encoding.decodeUtf8' value of Prelude.Left err -> Prelude.Left (Prelude.show err) Prelude.Right r -> Prelude.Right r)) Data.ProtoLens.Encoding.Bytes. "name_part" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"namePart") y x) required'isExtension Prelude.False 16 -> do y <- (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) Data.ProtoLens.Encoding.Bytes. "is_extension" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"isExtension") y x) Prelude.False required'namePart wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) required'isExtension required'namePart in (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) Data.ProtoLens.Encoding.Bytes. "NamePart" buildMessage = (\ _x -> ((Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<> (((\ bs -> (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)) Prelude.. Data.Text.Encoding.encodeUtf8) (Lens.Family2.view (Data.ProtoLens.Field.field @"namePart") _x)) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<> ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude.. (\ b -> if b then 1 else 0)) (Lens.Family2.view (Data.ProtoLens.Field.field @"isExtension") _x)) Data.Monoid.<> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData UninterpretedOption'NamePart where rnf = (\ x__ -> Control.DeepSeq.deepseq (_UninterpretedOption'NamePart'_unknownFields x__) (Control.DeepSeq.deepseq (_UninterpretedOption'NamePart'namePart x__) (Control.DeepSeq.deepseq (_UninterpretedOption'NamePart'isExtension x__) (()))))