diff --git a/Changelog.md b/Changelog.md --- a/Changelog.md +++ b/Changelog.md @@ -1,5 +1,44 @@ # Changelog for `proto-lens` +## v0.7.1.7 +- Relax upper bounds for ghc-9.10. +- Bump upper bound to allow ghc-prim-0.12 (ghc-9.10.2). +- Support GHC 9.12. +- Support GHC 9.14. + +## v0.7.1.2 +- Support GHC 9.4 + +## v0.7.1.1 +- Relax upper bounds for ghc-9.2 + +## v0.7.1.0 +- Support GHC 9.0. +- Fixed parsing of UTF8 chars in text format proto string literals. +- Support all valid text format boolean field values +- Remove redundant (.&. 127) from putVarInt (#396) + +## v0.7.0.0 +- Support GHC 8.10. +- Add a method to `Data.ProtoLens.Message` for getting the `DescriptorProto` + of a given message. For a simpler API, see `Data.ProtoLens.Descriptor` + from `proto-lens-protobuf-types`. +- Bump ghc-source-gen to version 0.4.0.0. +- Bump upper bound to allow base-4.14. +- Bump upper bound to allow ghc-prim-0.6. + +## v0.6.0.0 + +### Breaking Changes +- Bump lower bounds to base-4.10 (ghc-8.2). +- Move `Proto.Google.Protobuf.Descriptor` and + `Proto.Google.Protobuf.Compiler.Plugin` to the `proto-lens-protobuf-types` + package. + +### Backwards-Compatible Changes +- Bump upper bound to allow profunctors-5.5. +- Support dependencies on base-4.13 (ghc-8.8) and lens-family-2.0. + ## v0.5.1.0 - Add `decodeMessageDelimitedH` to decode delimited messages from a file handle (#61). diff --git a/proto-lens-imports/google/protobuf/compiler/plugin.proto b/proto-lens-imports/google/protobuf/compiler/plugin.proto --- a/proto-lens-imports/google/protobuf/compiler/plugin.proto +++ b/proto-lens-imports/google/protobuf/compiler/plugin.proto @@ -1,38 +1,12 @@ // Protocol Buffers - Google's data interchange format // Copyright 2008 Google Inc. All rights reserved. -// https://developers.google.com/protocol-buffers/ // -// Redistribution and use in source and binary forms, with or without -// modification, are permitted provided that the following conditions are -// met: -// -// * Redistributions of source code must retain the above copyright -// notice, this list of conditions and the following disclaimer. -// * Redistributions in binary form must reproduce the above -// copyright notice, this list of conditions and the following disclaimer -// in the documentation and/or other materials provided with the -// distribution. -// * Neither the name of Google Inc. nor the names of its -// contributors may be used to endorse or promote products derived from -// this software without specific prior written permission. -// -// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -// LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -// A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -// OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -// LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE -// OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file or at +// https://developers.google.com/open-source/licenses/bsd // Author: kenton@google.com (Kenton Varda) // -// WARNING: The plugin interface is currently EXPERIMENTAL and is subject to -// change. -// // protoc (aka the Protocol Compiler) can be extended via plugins. A plugin is // just a program that reads a CodeGeneratorRequest from stdin and writes a // CodeGeneratorResponse to stdout. @@ -45,11 +19,13 @@ // flag "--${NAME}_out" is passed to protoc. syntax = "proto2"; + package google.protobuf.compiler; option java_package = "com.google.protobuf.compiler"; option java_outer_classname = "PluginProtos"; -option go_package = "github.com/golang/protobuf/protoc-gen-go/plugin;plugin_go"; +option csharp_namespace = "Google.Protobuf.Compiler"; +option go_package = "google.golang.org/protobuf/types/pluginpb"; import "google/protobuf/descriptor.proto"; @@ -77,6 +53,11 @@ // they import. The files will appear in topological order, so each file // appears before any file that imports it. // + // Note: the files listed in files_to_generate will include runtime-retention + // options only, but all other files will include source-retention options. + // The source_file_descriptors field below is available in case you need + // source-retention options for files_to_generate. + // // protoc guarantees that all proto_files will be written after // the fields above, even though this is not technically guaranteed by the // protobuf wire format. This theoretically could allow a plugin to stream @@ -89,9 +70,13 @@ // fully qualified. repeated FileDescriptorProto proto_file = 15; + // File descriptors with all options, including source-retention options. + // These descriptors are only provided for the files listed in + // files_to_generate. + repeated FileDescriptorProto source_file_descriptors = 17; + // The version number of protocol compiler. optional Version compiler_version = 3; - } // The plugin writes an encoded CodeGeneratorResponse to stdout. @@ -106,6 +91,29 @@ // exiting with a non-zero status code. optional string error = 1; + // A bitmask of supported features that the code generator supports. + // This is a bitwise "or" of values from the Feature enum. + optional uint64 supported_features = 2; + + // Sync with code_generator.h. + enum Feature { + FEATURE_NONE = 0; + FEATURE_PROTO3_OPTIONAL = 1; + FEATURE_SUPPORTS_EDITIONS = 2; + } + + // The minimum edition this plugin supports. This will be treated as an + // Edition enum, but we want to allow unknown values. It should be specified + // according the edition enum value, *not* the edition number. Only takes + // effect for plugins that have FEATURE_SUPPORTS_EDITIONS set. + optional int32 minimum_edition = 3; + + // The maximum edition this plugin supports. This will be treated as an + // Edition enum, but we want to allow unknown values. It should be specified + // according the edition enum value, *not* the edition number. Only takes + // effect for plugins that have FEATURE_SUPPORTS_EDITIONS set. + optional int32 maximum_edition = 4; + // Represents a single generated file. message File { // The file name, relative to the output directory. The name must not @@ -162,6 +170,11 @@ // The file contents. optional string content = 15; + + // Information describing the file content being inserted. If an insertion + // point is used, this information will be appropriately offset and inserted + // into the code generation metadata for the generated files. + optional GeneratedCodeInfo generated_code_info = 16; } repeated File file = 15; } diff --git a/proto-lens-imports/google/protobuf/descriptor.proto b/proto-lens-imports/google/protobuf/descriptor.proto --- a/proto-lens-imports/google/protobuf/descriptor.proto +++ b/proto-lens-imports/google/protobuf/descriptor.proto @@ -36,11 +36,11 @@ // A valid .proto file can be translated directly to a FileDescriptorProto // without any other information (e.g. without reading its imports). - syntax = "proto2"; package google.protobuf; -option go_package = "github.com/golang/protobuf/protoc-gen-go/descriptor;descriptor"; + +option go_package = "google.golang.org/protobuf/types/descriptorpb"; option java_package = "com.google.protobuf"; option java_outer_classname = "DescriptorProtos"; option csharp_namespace = "Google.Protobuf.Reflection"; @@ -57,10 +57,46 @@ repeated FileDescriptorProto file = 1; } +// The full set of known editions. +enum Edition { + // A placeholder for an unknown edition value. + EDITION_UNKNOWN = 0; + + // A placeholder edition for specifying default behaviors *before* a feature + // was first introduced. This is effectively an "infinite past". + EDITION_LEGACY = 900; + + // Legacy syntax "editions". These pre-date editions, but behave much like + // distinct editions. These can't be used to specify the edition of proto + // files, but feature definitions must supply proto2/proto3 defaults for + // backwards compatibility. + EDITION_PROTO2 = 998; + EDITION_PROTO3 = 999; + + // Editions that have been released. The specific values are arbitrary and + // should not be depended on, but they will always be time-ordered for easy + // comparison. + EDITION_2023 = 1000; + EDITION_2024 = 1001; + + // Placeholder editions for testing feature resolution. These should not be + // used or relyed on outside of tests. + EDITION_1_TEST_ONLY = 1; + EDITION_2_TEST_ONLY = 2; + EDITION_99997_TEST_ONLY = 99997; + EDITION_99998_TEST_ONLY = 99998; + EDITION_99999_TEST_ONLY = 99999; + + // Placeholder for specifying unbounded edition support. This should only + // ever be used by plugins that can expect to never require any changes to + // support a new edition. + EDITION_MAX = 0x7FFFFFFF; +} + // Describes a complete .proto file. message FileDescriptorProto { - optional string name = 1; // file name, relative to root of source tree - optional string package = 2; // e.g. "foo", "foo.bar", etc. + optional string name = 1; // file name, relative to root of source tree + optional string package = 2; // e.g. "foo", "foo.bar", etc. // Names of files imported by this file. repeated string dependency = 3; @@ -85,8 +121,13 @@ optional SourceCodeInfo source_code_info = 9; // The syntax of the proto file. - // The supported values are "proto2" and "proto3". + // The supported values are "proto2", "proto3", and "editions". + // + // If `edition` is present, this value must be "editions". optional string syntax = 12; + + // The edition of the proto file. + optional Edition edition = 14; } // Describes a message type. @@ -100,8 +141,8 @@ repeated EnumDescriptorProto enum_type = 4; message ExtensionRange { - optional int32 start = 1; - optional int32 end = 2; + optional int32 start = 1; // Inclusive. + optional int32 end = 2; // Exclusive. optional ExtensionRangeOptions options = 3; } @@ -115,8 +156,8 @@ // fields or extension ranges in the same message. Reserved ranges may // not overlap. message ReservedRange { - optional int32 start = 1; // Inclusive. - optional int32 end = 2; // Exclusive. + optional int32 start = 1; // Inclusive. + optional int32 end = 2; // Exclusive. } repeated ReservedRange reserved_range = 9; // Reserved field names, which may not be used by fields in the same message. @@ -128,6 +169,52 @@ // The parser stores options it doesn't recognize here. See above. repeated UninterpretedOption uninterpreted_option = 999; + message Declaration { + // The extension number declared within the extension range. + optional int32 number = 1; + + // The fully-qualified name of the extension field. There must be a leading + // dot in front of the full name. + optional string full_name = 2; + + // The fully-qualified type name of the extension field. Unlike + // Metadata.type, Declaration.type must have a leading dot for messages + // and enums. + optional string type = 3; + + // If true, indicates that the number is reserved in the extension range, + // and any extension field with the number will fail to compile. Set this + // when a declared extension field is deleted. + optional bool reserved = 5; + + // If true, indicates that the extension must be defined as repeated. + // Otherwise the extension must be defined as optional. + optional bool repeated = 6; + + reserved 4; // removed is_repeated + } + + // For external users: DO NOT USE. We are in the process of open sourcing + // extension declaration and executing internal cleanups before it can be + // used externally. + repeated Declaration declaration = 2 [retention = RETENTION_SOURCE]; + + // Any features defined in the specific edition. + optional FeatureSet features = 50; + + // The verification state of the extension range. + enum VerificationState { + // All the extensions of the range must be declared. + DECLARATION = 0; + UNVERIFIED = 1; + } + + // The verification state of the range. + // TODO: flip the default to DECLARATION once all empty ranges + // are marked as UNVERIFIED. + optional VerificationState verification = 3 + [default = UNVERIFIED, retention = RETENTION_SOURCE]; + // Clients can define custom options in extensions of this message. See above. extensions 1000 to max; } @@ -137,42 +224,46 @@ enum Type { // 0 is reserved for errors. // Order is weird for historical reasons. - TYPE_DOUBLE = 1; - TYPE_FLOAT = 2; + TYPE_DOUBLE = 1; + TYPE_FLOAT = 2; // Not ZigZag encoded. Negative numbers take 10 bytes. Use TYPE_SINT64 if // negative values are likely. - TYPE_INT64 = 3; - TYPE_UINT64 = 4; + TYPE_INT64 = 3; + TYPE_UINT64 = 4; // Not ZigZag encoded. Negative numbers take 10 bytes. Use TYPE_SINT32 if // negative values are likely. - TYPE_INT32 = 5; - TYPE_FIXED64 = 6; - TYPE_FIXED32 = 7; - TYPE_BOOL = 8; - TYPE_STRING = 9; + TYPE_INT32 = 5; + TYPE_FIXED64 = 6; + TYPE_FIXED32 = 7; + TYPE_BOOL = 8; + TYPE_STRING = 9; // Tag-delimited aggregate. - // Group type is deprecated and not supported in proto3. However, Proto3 + // Group type is deprecated and not supported after google.protobuf. However, Proto3 // implementations should still be able to parse the group wire format and - // treat group fields as unknown fields. - TYPE_GROUP = 10; - TYPE_MESSAGE = 11; // Length-delimited aggregate. + // treat group fields as unknown fields. In Editions, the group wire format + // can be enabled via the `message_encoding` feature. + TYPE_GROUP = 10; + TYPE_MESSAGE = 11; // Length-delimited aggregate. // New in version 2. - TYPE_BYTES = 12; - TYPE_UINT32 = 13; - TYPE_ENUM = 14; - TYPE_SFIXED32 = 15; - TYPE_SFIXED64 = 16; - TYPE_SINT32 = 17; // Uses ZigZag encoding. - TYPE_SINT64 = 18; // Uses ZigZag encoding. - }; + TYPE_BYTES = 12; + TYPE_UINT32 = 13; + TYPE_ENUM = 14; + TYPE_SFIXED32 = 15; + TYPE_SFIXED64 = 16; + TYPE_SINT32 = 17; // Uses ZigZag encoding. + TYPE_SINT64 = 18; // Uses ZigZag encoding. + } enum Label { // 0 is reserved for errors - LABEL_OPTIONAL = 1; - LABEL_REQUIRED = 2; - LABEL_REPEATED = 3; - }; + LABEL_OPTIONAL = 1; + LABEL_REPEATED = 3; + // The required label is only allowed in google.protobuf. In proto3 and Editions + // it's explicitly prohibited. In Editions, the `field_presence` feature + // can be used to get this behavior. + LABEL_REQUIRED = 2; + } optional string name = 1; optional int32 number = 3; @@ -197,7 +288,6 @@ // For booleans, "true" or "false". // For strings, contains the default text contents (not escaped in any way). // For bytes, contains the C escaped value. All bytes >= 128 are escaped. - // TODO(kenton): Base-64 encode? optional string default_value = 7; // If set, gives the index of a oneof in the containing type's oneof_decl @@ -211,6 +301,29 @@ optional string json_name = 10; optional FieldOptions options = 8; + + // If true, this is a proto3 "optional". When a proto3 field is optional, it + // tracks presence regardless of field type. + // + // When proto3_optional is true, this field must belong to a oneof to signal + // to old proto3 clients that presence is tracked for this field. This oneof + // is known as a "synthetic" oneof, and this field must be its sole member + // (each proto3 optional field gets its own synthetic oneof). Synthetic oneofs + // exist in the descriptor only, and do not generate any API. Synthetic oneofs + // must be ordered after all "real" oneofs. + // + // For message fields, proto3_optional doesn't create any semantic change, + // since non-repeated message fields always track presence. However it still + // indicates the semantic detail of whether the user wrote "optional" or not. + // This can be useful for round-tripping the .proto file. For consistency we + // give message fields a synthetic oneof also, even though it is not required + // to track presence. This is especially important because the parser can't + // tell if a field is a message or an enum, so it must always create a + // synthetic oneof. + // + // Proto2 optional fields do not set this flag, because they already indicate + // optional with `LABEL_OPTIONAL`. + optional bool proto3_optional = 17; } // Describes a oneof. @@ -234,8 +347,8 @@ // is inclusive such that it can appropriately represent the entire int32 // domain. message EnumReservedRange { - optional int32 start = 1; // Inclusive. - optional int32 end = 2; // Inclusive. + optional int32 start = 1; // Inclusive. + optional int32 end = 2; // Inclusive. } // Range of reserved numeric values. Reserved numeric values may not be used @@ -276,12 +389,11 @@ optional MethodOptions options = 4; // Identifies if client streams multiple client messages - optional bool client_streaming = 5 [default=false]; + optional bool client_streaming = 5 [default = false]; // Identifies if server streams multiple server messages - optional bool server_streaming = 6 [default=false]; + optional bool server_streaming = 6 [default = false]; } - // =================================================================== // Options @@ -314,7 +426,6 @@ // If this turns out to be popular, a web service will be set up // to automatically assign option numbers. - message FileOptions { // Sets the Java package where classes generated from this .proto will be @@ -323,42 +434,44 @@ // domain names. optional string java_package = 1; - - // If set, all the classes from the .proto file are wrapped in a single - // outer class with the given name. This applies to both Proto1 - // (equivalent to the old "--one_java_file" option) and Proto2 (where - // a .proto always translates to a single class, but you may want to - // explicitly choose the class name). + // Controls the name of the wrapper Java class generated for the .proto file. + // That class will always contain the .proto file's getDescriptor() method as + // well as any top-level extensions defined in the .proto file. + // If java_multiple_files is disabled, then all the other classes from the + // .proto file will be nested inside the single wrapper outer class. optional string java_outer_classname = 8; - // If set true, then the Java code generator will generate a separate .java + // If enabled, then the Java code generator will generate a separate .java // file for each top-level message, enum, and service defined in the .proto - // file. Thus, these types will *not* be nested inside the outer class - // named by java_outer_classname. However, the outer class will still be + // file. Thus, these types will *not* be nested inside the wrapper class + // named by java_outer_classname. However, the wrapper class will still be // generated to contain the file's getDescriptor() method as well as any // top-level extensions defined in the file. - optional bool java_multiple_files = 10 [default=false]; + optional bool java_multiple_files = 10 [default = false]; // This option does nothing. optional bool java_generate_equals_and_hash = 20 [deprecated=true]; - // If set true, then the Java2 code generator will generate code that - // throws an exception whenever an attempt is made to assign a non-UTF-8 - // byte sequence to a string field. - // Message reflection will do the same. - // However, an extension field still accepts non-UTF-8 byte sequences. - // This option has no effect on when used with the lite runtime. - optional bool java_string_check_utf8 = 27 [default=false]; - + // A proto2 file can set this to true to opt in to UTF-8 checking for Java, + // which will throw an exception if invalid UTF-8 is parsed from the wire or + // assigned to a string field. + // + // TODO: clarify exactly what kinds of field types this option + // applies to, and update these docs accordingly. + // + // Proto3 files already perform these checks. Setting the option explicitly to + // false has no effect: it cannot be used to opt proto3 files out of UTF-8 + // checks. + optional bool java_string_check_utf8 = 27 [default = false]; // Generated classes can be optimized for speed or code size. enum OptimizeMode { - SPEED = 1; // Generate complete code for parsing, serialization, - // etc. - CODE_SIZE = 2; // Use ReflectionOps to implement these methods. - LITE_RUNTIME = 3; // Generate code using MessageLite and the lite runtime. + SPEED = 1; // Generate complete code for parsing, serialization, + // etc. + CODE_SIZE = 2; // Use ReflectionOps to implement these methods. + LITE_RUNTIME = 3; // Generate code using MessageLite and the lite runtime. } - optional OptimizeMode optimize_for = 9 [default=SPEED]; + optional OptimizeMode optimize_for = 9 [default = SPEED]; // Sets the Go package where structs generated from this .proto will be // placed. If omitted, the Go package will be derived from the following: @@ -367,8 +480,6 @@ // - Otherwise, the basename of the .proto file, without extension. optional string go_package = 11; - - // Should generic services be generated in each language? "Generic" services // are not specific to any particular RPC system. They are generated by the // main code generators in each language (without additional plugins). @@ -379,21 +490,21 @@ // that generate code specific to your particular RPC system. Therefore, // these default to false. Old code which depends on generic services should // explicitly set them to true. - optional bool cc_generic_services = 16 [default=false]; - optional bool java_generic_services = 17 [default=false]; - optional bool py_generic_services = 18 [default=false]; - optional bool php_generic_services = 42 [default=false]; + optional bool cc_generic_services = 16 [default = false]; + optional bool java_generic_services = 17 [default = false]; + optional bool py_generic_services = 18 [default = false]; + reserved 42; // removed php_generic_services + reserved "php_generic_services"; // Is this file deprecated? // Depending on the target platform, this can emit Deprecated annotations // for everything in the file, or it will be completely ignored; in the very // least, this is a formalization for deprecating files. - optional bool deprecated = 23 [default=false]; + optional bool deprecated = 23 [default = false]; // Enables the use of arenas for the proto messages in this file. This applies // only to generated classes for C++. - optional bool cc_enable_arenas = 31 [default=false]; - + optional bool cc_enable_arenas = 31 [default = true]; // Sets the objective c class prefix which is prepended to all objective c // generated classes from this .proto. There is no default. @@ -417,10 +528,9 @@ // determining the namespace. optional string php_namespace = 41; - // Use this option to change the namespace of php generated metadata classes. - // Default is empty. When this option is empty, the proto file name will be used - // for determining the namespace. + // Default is empty. When this option is empty, the proto file name will be + // used for determining the namespace. optional string php_metadata_namespace = 44; // Use this option to change the package of ruby generated classes. Default @@ -428,6 +538,9 @@ // determining the ruby package. optional string ruby_package = 45; + // Any features defined in the specific edition. + optional FeatureSet features = 50; + // The parser stores options it doesn't recognize here. // See the documentation for the "Options" section above. repeated UninterpretedOption uninterpreted_option = 999; @@ -458,19 +571,21 @@ // // Because this is an option, the above two restrictions are not enforced by // the protocol compiler. - optional bool message_set_wire_format = 1 [default=false]; + optional bool message_set_wire_format = 1 [default = false]; // Disables the generation of the standard "descriptor()" accessor, which can // conflict with a field of the same name. This is meant to make migration // from proto1 easier; new code should avoid fields named "descriptor". - optional bool no_standard_descriptor_accessor = 2 [default=false]; + optional bool no_standard_descriptor_accessor = 2 [default = false]; // Is this message deprecated? // Depending on the target platform, this can emit Deprecated annotations // for the message, or it will be completely ignored; in the very least, // this is a formalization for deprecating messages. - optional bool deprecated = 3 [default=false]; + optional bool deprecated = 3 [default = false]; + reserved 4, 5, 6; + // Whether the message is an automatically generated map entry type for the // maps field. // @@ -486,7 +601,7 @@ // // Implementations may choose not to generate the map_entry=true message, but // use a native map in the target language to hold the keys and values. - // The reflection APIs in such implementions still need to work as + // The reflection APIs in such implementations still need to work as // if the field is a repeated message field. // // NOTE: Do not set the option in .proto files. Always use the maps syntax @@ -497,6 +612,21 @@ reserved 8; // javalite_serializable reserved 9; // javanano_as_lite + // Enable the legacy handling of JSON field name conflicts. This lowercases + // and strips underscored from the fields before comparison in proto3 only. + // The new behavior takes `json_name` into account and applies to proto2 as + // well. + // + // This should only be used as a temporary measure against broken builds due + // to the change in behavior for JSON field name conflicts. + // + // TODO This is legacy behavior we plan to remove once downstream + // teams have had time to migrate. + optional bool deprecated_legacy_json_field_conflicts = 11 [deprecated = true]; + + // Any features defined in the specific edition. + optional FeatureSet features = 12; + // The parser stores options it doesn't recognize here. See above. repeated UninterpretedOption uninterpreted_option = 999; @@ -505,15 +635,24 @@ } message FieldOptions { + // NOTE: ctype is deprecated. Use `features.(pb.cpp).string_type` instead. // The ctype option instructs the C++ code generator to use a different // representation of the field than it normally would. See the specific - // options below. This option is not yet implemented in the open source - // release -- sorry, we'll try to include it in a future version! - optional CType ctype = 1 [default = STRING]; + // options below. This option is only implemented to support use of + // [ctype=CORD] and [ctype=STRING] (the default) on non-repeated fields of + // type "bytes" in the open source release. + // TODO: make ctype actually deprecated. + optional CType ctype = 1 [/*deprecated = true,*/ default = STRING]; enum CType { // Default mode. STRING = 0; + // The option [ctype=CORD] may be applied to a non-repeated field of type + // "bytes". It indicates that in C++, the data should be stored in a Cord + // instead of a string. For very large strings, this may reduce memory + // fragmentation. It may also allow better performance when parsing from a + // Cord, or when parsing with aliasing enabled, as the parsed Cord may then + // alias the original buffer. CORD = 1; STRING_PIECE = 2; @@ -522,7 +661,9 @@ // a more efficient representation on the wire. Rather than repeatedly // writing the tag and type for each element, the entire array is encoded as // a single length-delimited blob. In proto3, only explicit setting it to - // false will avoid using packed encoding. + // false will avoid using packed encoding. This option is prohibited in + // Editions, but the `repeated_field_encoding` feature can be used to control + // the behavior. optional bool packed = 2; // The jstype option determines the JavaScript type used for values of the @@ -565,39 +706,106 @@ // call from multiple threads concurrently, while non-const methods continue // to require exclusive access. // - // - // Note that implementations may choose not to check required fields within - // a lazy sub-message. That is, calling IsInitialized() on the outer message - // may return true even if the inner message has missing required fields. - // This is necessary because otherwise the inner message would have to be - // parsed in order to perform the check, defeating the purpose of lazy - // parsing. An implementation which chooses not to check required fields - // must be consistent about it. That is, for any particular sub-message, the - // implementation must either *always* check its required fields, or *never* - // check its required fields, regardless of whether or not the message has - // been parsed. - optional bool lazy = 5 [default=false]; + // Note that lazy message fields are still eagerly verified to check + // ill-formed wireformat or missing required fields. Calling IsInitialized() + // on the outer message would fail if the inner message has missing required + // fields. Failed verification would result in parsing failure (except when + // uninitialized messages are acceptable). + optional bool lazy = 5 [default = false]; + // unverified_lazy does no correctness checks on the byte stream. This should + // only be used where lazy with verification is prohibitive for performance + // reasons. + optional bool unverified_lazy = 15 [default = false]; + // Is this field deprecated? // Depending on the target platform, this can emit Deprecated annotations // for accessors, or it will be completely ignored; in the very least, this // is a formalization for deprecating fields. - optional bool deprecated = 3 [default=false]; + optional bool deprecated = 3 [default = false]; // For Google-internal migration only. Do not use. - optional bool weak = 10 [default=false]; + optional bool weak = 10 [default = false]; + // Indicate that the field value should not be printed out when using debug + // formats, e.g. when the field contains sensitive credentials. + optional bool debug_redact = 16 [default = false]; + // If set to RETENTION_SOURCE, the option will be omitted from the binary. + // Note: as of January 2023, support for this is in progress and does not yet + // have an effect (b/264593489). + enum OptionRetention { + RETENTION_UNKNOWN = 0; + RETENTION_RUNTIME = 1; + RETENTION_SOURCE = 2; + } + + optional OptionRetention retention = 17; + + // This indicates the types of entities that the field may apply to when used + // as an option. If it is unset, then the field may be freely used as an + // option on any kind of entity. Note: as of January 2023, support for this is + // in progress and does not yet have an effect (b/264593489). + enum OptionTargetType { + TARGET_TYPE_UNKNOWN = 0; + TARGET_TYPE_FILE = 1; + TARGET_TYPE_EXTENSION_RANGE = 2; + TARGET_TYPE_MESSAGE = 3; + TARGET_TYPE_FIELD = 4; + TARGET_TYPE_ONEOF = 5; + TARGET_TYPE_ENUM = 6; + TARGET_TYPE_ENUM_ENTRY = 7; + TARGET_TYPE_SERVICE = 8; + TARGET_TYPE_METHOD = 9; + } + + repeated OptionTargetType targets = 19; + + message EditionDefault { + optional Edition edition = 3; + optional string value = 2; // Textproto value. + } + repeated EditionDefault edition_defaults = 20; + + // Any features defined in the specific edition. + optional FeatureSet features = 21; + + // Information about the support window of a feature. + message FeatureSupport { + // The edition that this feature was first available in. In editions + // earlier than this one, the default assigned to EDITION_LEGACY will be + // used, and proto files will not be able to override it. + optional Edition edition_introduced = 1; + + // The edition this feature becomes deprecated in. Using this after this + // edition may trigger warnings. + optional Edition edition_deprecated = 2; + + // The deprecation warning text if this feature is used after the edition it + // was marked deprecated in. + optional string deprecation_warning = 3; + + // The edition this feature is no longer available in. In editions after + // this one, the last default assigned will be used, and proto files will + // not be able to override it. + optional Edition edition_removed = 4; + } + optional FeatureSupport feature_support = 22; + // The parser stores options it doesn't recognize here. See above. repeated UninterpretedOption uninterpreted_option = 999; // Clients can define custom options in extensions of this message. See above. extensions 1000 to max; - reserved 4; // removed jtype + reserved 4; // removed jtype + reserved 18; // reserve target, target_obsolete_do_not_use } message OneofOptions { + // Any features defined in the specific edition. + optional FeatureSet features = 1; + // The parser stores options it doesn't recognize here. See above. repeated UninterpretedOption uninterpreted_option = 999; @@ -615,10 +823,21 @@ // Depending on the target platform, this can emit Deprecated annotations // for the enum, or it will be completely ignored; in the very least, this // is a formalization for deprecating enums. - optional bool deprecated = 3 [default=false]; + optional bool deprecated = 3 [default = false]; reserved 5; // javanano_as_lite + // Enable the legacy handling of JSON field name conflicts. This lowercases + // and strips underscored from the fields before comparison in proto3 only. + // The new behavior takes `json_name` into account and applies to proto2 as + // well. + // TODO Remove this legacy behavior once downstream teams have + // had time to migrate. + optional bool deprecated_legacy_json_field_conflicts = 6 [deprecated = true]; + + // Any features defined in the specific edition. + optional FeatureSet features = 7; + // The parser stores options it doesn't recognize here. See above. repeated UninterpretedOption uninterpreted_option = 999; @@ -631,8 +850,19 @@ // Depending on the target platform, this can emit Deprecated annotations // for the enum value, or it will be completely ignored; in the very least, // this is a formalization for deprecating enum values. - optional bool deprecated = 1 [default=false]; + optional bool deprecated = 1 [default = false]; + // Any features defined in the specific edition. + optional FeatureSet features = 2; + + // Indicate that fields annotated with this enum value should not be printed + // out when using debug formats, e.g. when the field contains sensitive + // credentials. + optional bool debug_redact = 3 [default = false]; + + // Information about the support window of a feature value. + optional FieldOptions.FeatureSupport feature_support = 4; + // The parser stores options it doesn't recognize here. See above. repeated UninterpretedOption uninterpreted_option = 999; @@ -642,6 +872,9 @@ message ServiceOptions { + // Any features defined in the specific edition. + optional FeatureSet features = 34; + // Note: Field numbers 1 through 32 are reserved for Google's internal RPC // framework. We apologize for hoarding these numbers to ourselves, but // we were already using them long before we decided to release Protocol @@ -651,7 +884,7 @@ // Depending on the target platform, this can emit Deprecated annotations // for the service, or it will be completely ignored; in the very least, // this is a formalization for deprecating services. - optional bool deprecated = 33 [default=false]; + optional bool deprecated = 33 [default = false]; // The parser stores options it doesn't recognize here. See above. repeated UninterpretedOption uninterpreted_option = 999; @@ -671,19 +904,22 @@ // Depending on the target platform, this can emit Deprecated annotations // for the method, or it will be completely ignored; in the very least, // this is a formalization for deprecating methods. - optional bool deprecated = 33 [default=false]; + optional bool deprecated = 33 [default = false]; // Is this method side-effect-free (or safe in HTTP parlance), or idempotent, // or neither? HTTP based RPC implementation may choose GET verb for safe // methods, and PUT verb for idempotent methods instead of the default POST. enum IdempotencyLevel { IDEMPOTENCY_UNKNOWN = 0; - NO_SIDE_EFFECTS = 1; // implies idempotent - IDEMPOTENT = 2; // idempotent, but may have side effects + NO_SIDE_EFFECTS = 1; // implies idempotent + IDEMPOTENT = 2; // idempotent, but may have side effects } - optional IdempotencyLevel idempotency_level = - 34 [default=IDEMPOTENCY_UNKNOWN]; + optional IdempotencyLevel idempotency_level = 34 + [default = IDEMPOTENCY_UNKNOWN]; + // Any features defined in the specific edition. + optional FeatureSet features = 35; + // The parser stores options it doesn't recognize here. See above. repeated UninterpretedOption uninterpreted_option = 999; @@ -691,7 +927,6 @@ extensions 1000 to max; } - // A message representing a option the parser does not recognize. This only // appears in options protos created by the compiler::Parser class. // DescriptorPool resolves these when building Descriptor objects. Therefore, @@ -702,8 +937,8 @@ // The name of the uninterpreted option. Each string represents a segment in // a dot-separated name. is_extension is true iff a segment represents an // extension (denoted with parentheses in options specs in .proto files). - // E.g.,{ ["foo", false], ["bar.baz", true], ["qux", false] } represents - // "foo.(bar.baz).qux". + // E.g.,{ ["foo", false], ["bar.baz", true], ["moo", false] } represents + // "foo.(bar.baz).moo". message NamePart { required string name_part = 1; required bool is_extension = 2; @@ -721,6 +956,172 @@ } // =================================================================== +// Features + +// TODO Enums in C++ gencode (and potentially other languages) are +// not well scoped. This means that each of the feature enums below can clash +// with each other. The short names we've chosen maximize call-site +// readability, but leave us very open to this scenario. A future feature will +// be designed and implemented to handle this, hopefully before we ever hit a +// conflict here. +message FeatureSet { + enum FieldPresence { + FIELD_PRESENCE_UNKNOWN = 0; + EXPLICIT = 1; + IMPLICIT = 2; + LEGACY_REQUIRED = 3; + } + optional FieldPresence field_presence = 1 [ + retention = RETENTION_RUNTIME, + targets = TARGET_TYPE_FIELD, + targets = TARGET_TYPE_FILE, + feature_support = { + edition_introduced: EDITION_2023, + }, + edition_defaults = { edition: EDITION_LEGACY, value: "EXPLICIT" }, + edition_defaults = { edition: EDITION_PROTO3, value: "IMPLICIT" }, + edition_defaults = { edition: EDITION_2023, value: "EXPLICIT" } + ]; + + enum EnumType { + ENUM_TYPE_UNKNOWN = 0; + OPEN = 1; + CLOSED = 2; + } + optional EnumType enum_type = 2 [ + retention = RETENTION_RUNTIME, + targets = TARGET_TYPE_ENUM, + targets = TARGET_TYPE_FILE, + feature_support = { + edition_introduced: EDITION_2023, + }, + edition_defaults = { edition: EDITION_LEGACY, value: "CLOSED" }, + edition_defaults = { edition: EDITION_PROTO3, value: "OPEN" } + ]; + + enum RepeatedFieldEncoding { + REPEATED_FIELD_ENCODING_UNKNOWN = 0; + PACKED = 1; + EXPANDED = 2; + } + optional RepeatedFieldEncoding repeated_field_encoding = 3 [ + retention = RETENTION_RUNTIME, + targets = TARGET_TYPE_FIELD, + targets = TARGET_TYPE_FILE, + feature_support = { + edition_introduced: EDITION_2023, + }, + edition_defaults = { edition: EDITION_LEGACY, value: "EXPANDED" }, + edition_defaults = { edition: EDITION_PROTO3, value: "PACKED" } + ]; + + enum Utf8Validation { + UTF8_VALIDATION_UNKNOWN = 0; + VERIFY = 2; + NONE = 3; + reserved 1; + } + optional Utf8Validation utf8_validation = 4 [ + retention = RETENTION_RUNTIME, + targets = TARGET_TYPE_FIELD, + targets = TARGET_TYPE_FILE, + feature_support = { + edition_introduced: EDITION_2023, + }, + edition_defaults = { edition: EDITION_LEGACY, value: "NONE" }, + edition_defaults = { edition: EDITION_PROTO3, value: "VERIFY" } + ]; + + enum MessageEncoding { + MESSAGE_ENCODING_UNKNOWN = 0; + LENGTH_PREFIXED = 1; + DELIMITED = 2; + } + optional MessageEncoding message_encoding = 5 [ + retention = RETENTION_RUNTIME, + targets = TARGET_TYPE_FIELD, + targets = TARGET_TYPE_FILE, + feature_support = { + edition_introduced: EDITION_2023, + }, + edition_defaults = { edition: EDITION_LEGACY, value: "LENGTH_PREFIXED" } + ]; + + enum JsonFormat { + JSON_FORMAT_UNKNOWN = 0; + ALLOW = 1; + LEGACY_BEST_EFFORT = 2; + } + optional JsonFormat json_format = 6 [ + retention = RETENTION_RUNTIME, + targets = TARGET_TYPE_MESSAGE, + targets = TARGET_TYPE_ENUM, + targets = TARGET_TYPE_FILE, + feature_support = { + edition_introduced: EDITION_2023, + }, + edition_defaults = { edition: EDITION_LEGACY, value: "LEGACY_BEST_EFFORT" }, + edition_defaults = { edition: EDITION_PROTO3, value: "ALLOW" } + ]; + + reserved 999; + + extensions 1000 to 9994 [ + declaration = { + number: 1000, + full_name: ".pb.cpp", + type: ".pb.CppFeatures" + }, + declaration = { + number: 1001, + full_name: ".pb.java", + type: ".pb.JavaFeatures" + }, + declaration = { number: 1002, full_name: ".pb.go", type: ".pb.GoFeatures" }, + declaration = { + number: 9990, + full_name: ".pb.proto1", + type: ".pb.Proto1Features" + } + ]; + + extensions 9995 to 9999; // For internal testing + extensions 10000; // for https://github.com/bufbuild/protobuf-es +} + +// A compiled specification for the defaults of a set of features. These +// messages are generated from FeatureSet extensions and can be used to seed +// feature resolution. The resolution with this object becomes a simple search +// for the closest matching edition, followed by proto merges. +message FeatureSetDefaults { + // A map from every known edition with a unique set of defaults to its + // defaults. Not all editions may be contained here. For a given edition, + // the defaults at the closest matching edition ordered at or before it should + // be used. This field must be in strict ascending order by edition. + message FeatureSetEditionDefault { + optional Edition edition = 3; + + // Defaults of features that can be overridden in this edition. + optional FeatureSet overridable_features = 4; + + // Defaults of features that can't be overridden in this edition. + optional FeatureSet fixed_features = 5; + + reserved 1, 2; + reserved "features"; + } + repeated FeatureSetEditionDefault defaults = 1; + + // The minimum supported edition (inclusive) when this was constructed. + // Editions before this will not have defaults. + optional Edition minimum_edition = 4; + + // The maximum known edition (inclusive) when this was constructed. Editions + // after this will not have reliable defaults. + optional Edition maximum_edition = 5; +} + +// =================================================================== // Optional source code info // Encapsulates information about the original source file from which a @@ -763,7 +1164,7 @@ // beginning of the "extend" block and is shared by all extensions within // the block. // - Just because a location's span is a subset of some other location's span - // does not mean that it is a descendent. For example, a "group" defines + // does not mean that it is a descendant. For example, a "group" defines // both a type and a field in a single declaration. Thus, the locations // corresponding to the type and field and their components will overlap. // - Code which tries to interpret locations should probably be designed to @@ -775,8 +1176,8 @@ // location. // // Each element is a field number or an index. They form a path from - // the root FileDescriptorProto to the place where the definition. For - // example, this path: + // the root FileDescriptorProto to the place where the definition appears. + // For example, this path: // [ 4, 3, 2, 7, 1 ] // refers to: // file.message_type(3) // 4, 3 @@ -794,14 +1195,14 @@ // [ 4, 3, 2, 7 ] // this path refers to the whole field declaration (from the beginning // of the label to the terminating semicolon). - repeated int32 path = 1 [packed=true]; + repeated int32 path = 1 [packed = true]; // Always has exactly three or four elements: start line, start column, // end line (optional, otherwise assumed same as start line), end column. // These are packed into a single field for efficiency. Note that line // and column numbers are zero-based -- typically you will want to add // 1 to each before displaying to a user. - repeated int32 span = 2 [packed=true]; + repeated int32 span = 2 [packed = true]; // If this SourceCodeInfo represents a complete declaration, these are any // comments appearing before and after the declaration which appear to be @@ -830,13 +1231,13 @@ // // Comment attached to baz. // // Another line attached to baz. // - // // Comment attached to qux. + // // Comment attached to moo. // // - // // Another line attached to qux. - // optional double qux = 4; + // // Another line attached to moo. + // optional double moo = 4; // // // Detached comment for corge. This is not leading or trailing comments - // // to qux or corge because there are blank lines separating it from + // // to moo or corge because there are blank lines separating it from // // both. // // // Detached comment for corge paragraph 2. @@ -866,7 +1267,7 @@ message Annotation { // Identifies the element in the original source .proto file. This field // is formatted the same as SourceCodeInfo.Location.path. - repeated int32 path = 1 [packed=true]; + repeated int32 path = 1 [packed = true]; // Identifies the filesystem path to the original source .proto. optional string source_file = 2; @@ -876,8 +1277,20 @@ optional int32 begin = 3; // Identifies the ending offset in bytes in the generated code that - // relates to the identified offset. The end offset should be one past + // relates to the identified object. The end offset should be one past // the last relevant byte (so the length of the text = end - begin). optional int32 end = 4; + + // Represents the identified object's effect on the element in the original + // .proto file. + enum Semantic { + // There is no effect or the effect is indescribable. + NONE = 0; + // The element is set or otherwise mutated. + SET = 1; + // An alias to the element is returned. + ALIAS = 2; + } + optional Semantic semantic = 5; } } diff --git a/proto-lens.cabal b/proto-lens.cabal --- a/proto-lens.cabal +++ b/proto-lens.cabal @@ -1,13 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.31.1. +-- This file has been generated from package.yaml by hpack version 0.39.1. -- -- see: https://github.com/sol/hpack --- --- hash: 383bc147ec1afaa52a971f87eb6ac95d25c572f183ae0ace7d63ea570da72c44 name: proto-lens -version: 0.5.1.0 +version: 0.7.1.7 synopsis: A lens-based implementation of protocol buffers in Haskell. description: The proto-lens library provides an API for protocol buffers using modern Haskell language and library patterns. Specifically, it provides: . @@ -54,31 +52,26 @@ Data.ProtoLens.Prism Data.ProtoLens.Service.Types Data.ProtoLens.TextFormat - Proto.Google.Protobuf.Compiler.Plugin - Proto.Google.Protobuf.Compiler.Plugin_Fields - Proto.Google.Protobuf.Descriptor - Proto.Google.Protobuf.Descriptor_Fields other-modules: Data.ProtoLens.Encoding.Parser.Internal Data.ProtoLens.TextFormat.Parser hs-source-dirs: src build-depends: - base >=4.9 && <4.13 - , bytestring ==0.10.* - , containers >=0.5 && <0.7 - , deepseq ==1.4.* - , ghc-prim >=0.4 && <0.6 - , lens-family ==1.2.* + base >=4.10 && <4.23 + , bytestring >=0.10 && <0.14 + , containers >=0.5 && <0.9 + , deepseq >=1.4 && <1.6 + , ghc-prim >=0.4 && <0.14 + , lens-family >=1.2 && <2.2 , parsec ==3.1.* , pretty ==1.1.* - , primitive >=0.6 && <0.8 - , profunctors >=5.2 && <5.5 + , primitive >=0.6 && <0.10 + , profunctors >=5.2 && <6.0 , tagged ==0.8.* - , text ==1.2.* - , transformers >=0.4 && <0.6 - , vector >=0.11 && <0.13 - , void ==0.7.* + , text >=1.2 && <2.2 + , transformers >=0.4 && <0.7 + , vector >=0.11 && <0.14 default-language: Haskell2010 test-suite growing_test @@ -92,8 +85,8 @@ QuickCheck , base , proto-lens - , test-framework - , test-framework-quickcheck2 + , tasty + , tasty-quickcheck , vector default-language: Haskell2010 @@ -109,6 +102,6 @@ , base , bytestring , proto-lens - , test-framework - , test-framework-quickcheck2 + , tasty + , tasty-quickcheck default-language: Haskell2010 diff --git a/src/Data/ProtoLens/Combinators.hs b/src/Data/ProtoLens/Combinators.hs --- a/src/Data/ProtoLens/Combinators.hs +++ b/src/Data/ProtoLens/Combinators.hs @@ -29,7 +29,7 @@ -- | Sets the provided lens in @a@ to @Nothing@. clear :: Setter a a' b (Maybe b') -> a -> a' -clear = (.~ Nothing) +clear setter = setter .~ Nothing -- | Creates a 'Default' and then applies the provided `State` to it. This is -- convenient for creating complicated structures. diff --git a/src/Data/ProtoLens/Encoding.hs b/src/Data/ProtoLens/Encoding.hs --- a/src/Data/ProtoLens/Encoding.hs +++ b/src/Data/ProtoLens/Encoding.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE CPP #-} module Data.ProtoLens.Encoding ( encodeMessage, buildMessage, @@ -19,7 +20,9 @@ import Control.Monad.IO.Class (liftIO) import Control.Monad.Trans.Except (runExceptT, ExceptT(..)) import qualified Data.ByteString as B +#if !MIN_VERSION_base(4,11,0) import Data.Semigroup ((<>)) +#endif -- | Decode a message from its wire format. Returns 'Left' if the decoding -- fails. diff --git a/src/Data/ProtoLens/Encoding/Bytes.hs b/src/Data/ProtoLens/Encoding/Bytes.hs --- a/src/Data/ProtoLens/Encoding/Bytes.hs +++ b/src/Data/ProtoLens/Encoding/Bytes.hs @@ -6,7 +6,6 @@ {-# LANGUAGE BangPatterns #-} {-# LANGUAGE CPP #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE LambdaCase #-} @@ -22,6 +21,8 @@ -- * Bytestrings getBytes, putBytes, + -- * Text + getText, -- * Integral types getVarInt, getVarIntH, @@ -51,22 +52,24 @@ import Control.Monad.Trans.Except (throwE, ExceptT) import Data.Bits import Data.ByteString (ByteString) -import Data.ByteString.Lazy.Builder as Builder +import Data.ByteString.Builder as Builder import qualified Data.ByteString.Builder.Internal as Internal import qualified Data.ByteString.Lazy as L import Data.Int (Int32, Int64) -import Data.Monoid ((<>)) +#if !MIN_VERSION_base(4,11,0) +import Data.Semigroup ((<>)) +#endif import qualified Data.Vector.Generic as V import Data.Word (Word8, Word32, Word64) import Foreign.Marshal (malloc, free) -import Foreign.Storable (peek) import System.IO (Handle, hGetBuf) #if MIN_VERSION_base(4,11,0) import qualified GHC.Float as Float +import Foreign.Storable (peek) #else import Foreign.Ptr (castPtr) import Foreign.Marshal.Alloc (alloca) -import Foreign.Storable (Storable, poke) +import Foreign.Storable (Storable, peek, poke) import System.IO.Unsafe (unsafePerformIO) #endif @@ -92,9 +95,9 @@ getVarIntH h = do buf <- liftIO malloc let loopStart !n !s = - (liftIO $ hGetBuf h buf 1) >>= + liftIO (hGetBuf h buf 1) >>= \case - 1 -> (liftIO $ peek buf) >>= + 1 -> liftIO (peek buf) >>= getVarIntLoopFinish loopStart n s _ -> throwE "Unexpected end of file" res <- loopStart 0 1 @@ -124,7 +127,7 @@ putVarInt :: Word64 -> Builder putVarInt n | n < 128 = Builder.word8 (fromIntegral n) - | otherwise = Builder.word8 (fromIntegral $ n .&. 127 .|. 128) + | otherwise = Builder.word8 (fromIntegral $ n .|. 128) <> putVarInt (n `shiftR` 7) getFixed32 :: Parser Word32 diff --git a/src/Data/ProtoLens/Encoding/Parser.hs b/src/Data/ProtoLens/Encoding/Parser.hs --- a/src/Data/ProtoLens/Encoding/Parser.hs +++ b/src/Data/ProtoLens/Encoding/Parser.hs @@ -1,6 +1,4 @@ -- | A custom parsing monad, optimized for speed. -{-# LANGUAGE BangPatterns #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ScopedTypeVariables #-} module Data.ProtoLens.Encoding.Parser @@ -11,6 +9,7 @@ , getWord8 , getWord32le , getBytes + , getText , () ) where @@ -18,6 +17,8 @@ import Data.Word (Word8, Word32) import Data.ByteString (ByteString, packCStringLen) import qualified Data.ByteString.Unsafe as B +import Data.Text (Text) +import Data.Text.Encoding (decodeUtf8') import Foreign.Ptr import Foreign.Storable import System.IO.Unsafe (unsafePerformIO) @@ -68,6 +69,12 @@ getBytes n = withSized n "getBytes: Unexpected end of input" $ \pos -> packCStringLen (castPtr pos, n) +getText :: Int -> Parser Text +getText n = do + r <- withSized n "getText: Unexpected end of input" $ \pos -> + decodeUtf8' <$> B.unsafePackCStringLen (castPtr pos, n) + either (fail . show) pure r + -- | Helper function for reading bytes from the current position and -- advancing the pointer. -- @@ -86,7 +93,7 @@ | otherwise = fail "withSized: negative length" {-# INLINE withSized #-} --- | Run the given parsing action as if there are only +-- | Run the given parsing action as if there are only -- @len@ bytes remaining. That is, once @len@ bytes have been -- consumed, 'atEnd' will return 'True' and other actions -- like 'getWord8' will act like there is no input remaining. diff --git a/src/Data/ProtoLens/Encoding/Parser/Internal.hs b/src/Data/ProtoLens/Encoding/Parser/Internal.hs --- a/src/Data/ProtoLens/Encoding/Parser/Internal.hs +++ b/src/Data/ProtoLens/Encoding/Parser/Internal.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE CPP #-} {-# LANGUAGE LambdaCase #-} -- | Definition of the parsing monad, plus internal -- unsafe functions. @@ -7,6 +8,7 @@ ) where import Control.Monad (ap) +import qualified Control.Monad.Fail as Fail import Data.Word (Word8) import Foreign.Ptr @@ -36,8 +38,13 @@ (<*>) = ap instance Monad Parser where - fail s = Parser $ \_ _ -> return $ ParseFailure s +#if !MIN_VERSION_base(4,13,0) + fail = Fail.fail +#endif return = pure Parser f >>= g = Parser $ \end pos -> f end pos >>= \case ParseSuccess pos' x -> unParser (g x) end pos' ParseFailure s -> return $ ParseFailure s + +instance Fail.MonadFail Parser where + fail s = Parser $ \_ _ -> return $ ParseFailure s diff --git a/src/Data/ProtoLens/Encoding/Wire.hs b/src/Data/ProtoLens/Encoding/Wire.hs --- a/src/Data/ProtoLens/Encoding/Wire.hs +++ b/src/Data/ProtoLens/Encoding/Wire.hs @@ -5,6 +5,7 @@ -- Upstream docs: -- {-# LANGUAGE BangPatterns #-} +{-# LANGUAGE CPP #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Data.ProtoLens.Encoding.Wire ( Tag(..) @@ -15,13 +16,17 @@ , joinTypeAndTag , parseFieldSet , buildFieldSet + , buildMessageSet , parseTaggedValueFromWire + , parseMessageSetTaggedValueFromWire ) where import Control.DeepSeq (NFData(..)) import Data.Bits ((.&.), (.|.), shiftL, shiftR) import qualified Data.ByteString as B +#if !MIN_VERSION_base(4,11,0) import Data.Semigroup ((<>)) +#endif import Data.Word (Word8, Word32, Word64) import Data.ProtoLens.Encoding.Bytes @@ -60,6 +65,15 @@ putVarInt (joinTypeAndTag tag (wireValueToInt wv)) <> buildWireValue wv +-- builds in legacy MessageSet format. +-- See https://github.com/protocolbuffers/protobuf/blob/dec4939439d9ca2adf2bb14edccf876c2587faf2/src/google/protobuf/descriptor.proto#L444 +buildTaggedValueAsMessageSet :: TaggedValue -> Builder +buildTaggedValueAsMessageSet (TaggedValue (Tag t) wv) = + buildTaggedValue ( TaggedValue 1 StartGroup) + <> buildTaggedValue (TaggedValue 2 (VarInt $ fromIntegral t)) + <> buildTaggedValue (TaggedValue 3 wv) + <> buildTaggedValue (TaggedValue 1 EndGroup) + buildWireValue :: WireValue -> Builder buildWireValue (VarInt w) = putVarInt w buildWireValue (Fixed64 w) = putFixed64 w @@ -95,6 +109,18 @@ 5 -> Fixed32 <$> getFixed32 _ -> fail $ "Unknown wire type " ++ show w +parseMessageSetTaggedValueFromWire :: Word64 -> Parser TaggedValue +parseMessageSetTaggedValueFromWire t = + parseTaggedValueFromWire t >>= \v -> case v of + TaggedValue 1 StartGroup -> parseTaggedValue >>= \ft -> case ft of + TaggedValue 2 (VarInt f) -> parseTaggedValue >>= \dt -> case dt of + TaggedValue 3 (Lengthy b) -> parseTaggedValue >>= \et -> case et of + TaggedValue 1 EndGroup -> return $ TaggedValue (Tag $ fromIntegral f) (Lengthy b) + _ -> fail "missing end_group" + _ -> fail "missing message" + _ -> fail "missing field tag" + _ -> return v + splitTypeAndTag :: Word64 -> (Tag, Word8) splitTypeAndTag w = (fromIntegral $ w `shiftR` 3, fromIntegral (w .&. 7)) @@ -114,3 +140,6 @@ buildFieldSet :: FieldSet -> Builder buildFieldSet = mconcat . map buildTaggedValue + +buildMessageSet :: FieldSet -> Builder +buildMessageSet = mconcat . map buildTaggedValueAsMessageSet diff --git a/src/Data/ProtoLens/Field.hs b/src/Data/ProtoLens/Field.hs --- a/src/Data/ProtoLens/Field.hs +++ b/src/Data/ProtoLens/Field.hs @@ -17,7 +17,6 @@ {-# LANGUAGE FunctionalDependencies #-} {-# LANGUAGE KindSignatures #-} {-# LANGUAGE MagicHash #-} -{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE ScopedTypeVariables #-} module Data.ProtoLens.Field diff --git a/src/Data/ProtoLens/Labels.hs b/src/Data/ProtoLens/Labels.hs --- a/src/Data/ProtoLens/Labels.hs +++ b/src/Data/ProtoLens/Labels.hs @@ -3,6 +3,7 @@ {-# LANGUAGE MagicHash #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} {-# LANGUAGE UndecidableInstances #-} #if __GLASGOW_HASKELL__ >= 802 {-# LANGUAGE ScopedTypeVariables #-} diff --git a/src/Data/ProtoLens/Message.hs b/src/Data/ProtoLens/Message.hs --- a/src/Data/ProtoLens/Message.hs +++ b/src/Data/ProtoLens/Message.hs @@ -75,6 +75,20 @@ -- @"packagename.messagename"@. messageName :: Proxy msg -> T.Text + -- | The serialized protobuffer message descriptor for this type. + -- + -- For a friendlier version which returns the actual descriptor type, + -- use @Data.ProtoLens.Descriptor.messageDescriptor@ + -- from the @proto-lens-protobuf-types@ package. + packedMessageDescriptor :: Proxy msg -> B.ByteString + + -- | The serialized protobuffer file message descriptor containing this type. + -- + -- For a friendlier version which returns the actual file descriptor type, + -- use @Data.ProtoLens.Descriptor.fileDescriptor@ + -- from the @proto-lens-protobuf-types@ package. + packedFileDescriptor :: Proxy msg -> B.ByteString + -- | A message with all fields set to their default values. -- -- Satisfies @encodeMessage defMessage == ""@ and @decodeMessage "" == Right defMessage@. diff --git a/src/Data/ProtoLens/Service/Types.hs b/src/Data/ProtoLens/Service/Types.hs --- a/src/Data/ProtoLens/Service/Types.hs +++ b/src/Data/ProtoLens/Service/Types.hs @@ -3,7 +3,6 @@ {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GADTs #-} -{-# LANGUAGE KindSignatures #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE PolyKinds #-} {-# LANGUAGE RankNTypes #-} @@ -23,8 +22,10 @@ , StreamingType (..) ) where -import Data.Kind (Constraint) +import qualified Data.ByteString as B +import Data.Kind (Constraint, Type) import Data.ProtoLens.Message (Message) +import Data.Proxy (Proxy(..)) import GHC.TypeLits @@ -53,6 +54,7 @@ type ServicePackage s :: Symbol type ServiceMethods s :: [Symbol] + packedServiceDescriptor :: Proxy s -> B.ByteString ------------------------------------------------------------------------------ -- | Data type to be used as a promoted type for 'MethodStreamingType'. @@ -82,8 +84,8 @@ , Message (MethodOutput s m) ) => HasMethodImpl s (m :: Symbol) where type MethodName s m :: Symbol - type MethodInput s m :: * - type MethodOutput s m :: * + type MethodInput s m :: Type + type MethodOutput s m :: Type type MethodStreamingType s m :: StreamingType diff --git a/src/Data/ProtoLens/TextFormat.hs b/src/Data/ProtoLens/TextFormat.hs --- a/src/Data/ProtoLens/TextFormat.hs +++ b/src/Data/ProtoLens/TextFormat.hs @@ -28,7 +28,8 @@ import Data.Bifunctor (first) import qualified Data.ByteString import Data.Char (isPrint, isAscii, chr) -import Data.Foldable (foldlM, foldl') +import Data.Foldable (foldlM) +import qualified Data.Foldable as F import qualified Data.Map as Map import Data.Maybe (catMaybes) import Data.Proxy (Proxy(Proxy)) @@ -228,7 +229,7 @@ <$> buildMessageFromDescriptor reg defMessage fields missingFields :: forall msg . Message msg => Proxy msg -> Parser.Message -> [String] -missingFields _ = Set.toList . foldl' deleteField requiredFieldNames +missingFields _ = Set.toList . F.foldl' deleteField requiredFieldNames where requiredFieldNames :: Set.Set String requiredFieldNames = Set.fromList $ Map.keys @@ -317,8 +318,8 @@ makeScalarValue DoubleField (Parser.DoubleValue x) = Right x makeScalarValue FloatField (Parser.DoubleValue x) = Right (realToFrac x) makeScalarValue BoolField (Parser.EnumValue x) - | x == "true" = Right True - | x == "false" = Right False + | x `elem` ["true", "True", "t"] = Right True + | x `elem` ["false", "False", "f"] = Right False | otherwise = Left $ "Unrecognized bool value " ++ show x makeScalarValue StringField (Parser.ByteStringValue x) = Right (Text.decodeUtf8 x) makeScalarValue BytesField (Parser.ByteStringValue x) = Right x diff --git a/src/Data/ProtoLens/TextFormat/Parser.hs b/src/Data/ProtoLens/TextFormat/Parser.hs --- a/src/Data/ProtoLens/TextFormat/Parser.hs +++ b/src/Data/ProtoLens/TextFormat/Parser.hs @@ -16,23 +16,23 @@ , parser ) where -import Data.ByteString (ByteString, pack) -import Data.Char (ord, isSpace) +import Control.Applicative ((<|>), many) +import Control.Monad (liftM, liftM2, mzero, unless) +import Data.ByteString (ByteString) +import Data.ByteString.Builder (Builder, char8, charUtf8, toLazyByteString, word8) +import Data.ByteString.Lazy (toStrict) +import Data.Char (digitToInt, isSpace) +import Data.Functor (($>)) import Data.Functor.Identity (Identity) import Data.List (intercalate) -import Data.Maybe (catMaybes) -import Data.Text.Lazy (Text) import qualified Data.Text as StrictText -import Data.Word (Word8) -import Numeric (readOct, readHex) +import Data.Text.Lazy (Text) import Text.Parsec (()) import Text.Parsec.Char (alphaNum, char, hexDigit, letter, octDigit, oneOf, satisfy) import Text.Parsec.Text.Lazy (Parser) -import Text.Parsec.Combinator (choice, eof, many1, optionMaybe, sepBy1) +import Text.Parsec.Combinator (choice, eof, many1, sepBy1) import Text.Parsec.Token hiding (octal) -import Control.Applicative ((<|>), many) -import Control.Monad (liftM, liftM2, mzero) -- | A 'TokenParser' for the protobuf text format. ptp :: GenTokenParser Text () Identity @@ -55,7 +55,6 @@ , caseSensitive = True } - type Message = [Field] data Field = Field Key Value @@ -103,7 +102,7 @@ value <- naturalOrFloat ptp return $ makeNumberValue negative value parseString = liftM (ByteStringValue . mconcat) - $ many1 $ lexeme ptp $ protoStringLiteral + $ many1 $ lexeme ptp protoStringLiteral parseEnumValue = liftM EnumValue (identifier ptp) parseMessageValue = braces ptp (parseAny <|> @@ -131,39 +130,43 @@ protoStringLiteral :: Parser ByteString protoStringLiteral = do initialQuoteChar <- char '\'' <|> char '\"' - word8s <- many $ stringChar initialQuoteChar + let quoted = do + _ <- char '\\' + choice + [ char 'a' $> char8 '\a' + , char 'b' $> char8 '\b' + , char 'f' $> char8 '\f' + , char 'n' $> char8 '\n' + , char 'r' $> char8 '\r' + , char 't' $> char8 '\t' + , char 'v' $> char8 '\v' + , char '\\' $> char8 '\\' + , char '\'' $> char8 '\'' + , char '\"' $> char8 '\"' + , oneOf "xX" *> parse8BitToBuilder hexDigit 16 (1, 2) + , oneOf "uU" *> fail "Unicode in string literals not yet supported" + , parse8BitToBuilder octDigit 8 (1, 3) + ] + unquoted = charUtf8 <$> satisfy (/= initialQuoteChar) + builders <- many $ quoted <|> unquoted _ <- char initialQuoteChar - return $ pack word8s + return $ toStrict $ toLazyByteString $ mconcat builders where - stringChar :: Char -> Parser Word8 - stringChar quote = (nonEscape quote) <|> stringEscape - nonEscape quote = fmap (fromIntegral . ord) - $ satisfy (\c -> c `notElem` "\\" ++ [quote] && ord c < 256) - stringEscape = char '\\' >> (octal <|> hex <|> unicode <|> simple) - octal = do d0 <- octDigit - d1 <- optionMaybe octDigit - d2 <- optionMaybe octDigit - readMaybeDigits readOct [Just d0, d1, d2] - readMaybeDigits :: ReadS Word8 -> [Maybe Char] -> Parser Word8 - readMaybeDigits reader - = return . (\str -> let [(v, "")] = reader str in v) . catMaybes - hex = do _ <- oneOf "xX" - d0 <- hexDigit - d1 <- optionMaybe hexDigit - readMaybeDigits readHex [Just d0, d1] - unicode = oneOf "uU" >> fail "Unicode in string literals not yet supported" - simple = choice $ map charRet [ ('a', '\a') - , ('b', '\b') - , ('f', '\f') - , ('n', '\n') - , ('r', '\r') - , ('t', '\t') - , ('v', '\v') - , ('\\', '\\') - , ('\'', '\'') - , ('\"', '\"') - ] - where - charRet :: (Char, Char) -> Parser Word8 - charRet (escapeCh, ch) = do _ <- char escapeCh - return $ fromIntegral $ ord ch + -- | Apply a parser between 'min' and 'max' times, failing otherwise. + manyN :: Parser a -> (Int, Int) -> Parser [a] + manyN _ (_, 0) = return [] + manyN p (0, maX) = ((:) <$> p <*> manyN p (0, maX - 1)) <|> pure [] + manyN p (miN, maX) = (:) <$> p <*> manyN p (miN - 1, maX - 1) + + -- | Parse a number in 'base' with between 'min' and 'max' digits. + parseNum :: Parser Char -> Int -> (Int, Int) -> Parser Int + parseNum p base range = do + digits <- map digitToInt <$> manyN p range + return $ foldl (\a d -> a * base + d) 0 digits + + -- | Parse a number and return a builder for the 8-bit char it represents. + parse8BitToBuilder :: Parser Char -> Int -> (Int, Int) -> Parser Builder + parse8BitToBuilder p base range = do + value <- parseNum p base range + unless (value < 256) $ fail "Escaped number is not 8-bit" + return $ word8 $ fromIntegral value diff --git a/src/Proto/Google/Protobuf/Compiler/Plugin.hs b/src/Proto/Google/Protobuf/Compiler/Plugin.hs deleted file mode 100644 --- a/src/Proto/Google/Protobuf/Compiler/Plugin.hs +++ /dev/null @@ -1,1026 +0,0 @@ -{- This file was auto-generated from google/protobuf/compiler/plugin.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.Compiler.Plugin - (CodeGeneratorRequest(), CodeGeneratorResponse(), - CodeGeneratorResponse'File(), Version()) - 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 -import qualified Proto.Google.Protobuf.Descriptor - -{- | Fields : - - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.fileToGenerate' @:: Lens' CodeGeneratorRequest [Data.Text.Text]@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.vec'fileToGenerate' @:: Lens' CodeGeneratorRequest (Data.Vector.Vector Data.Text.Text)@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.parameter' @:: Lens' CodeGeneratorRequest Data.Text.Text@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'parameter' @:: Lens' CodeGeneratorRequest (Prelude.Maybe Data.Text.Text)@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.protoFile' @:: Lens' CodeGeneratorRequest - [Proto.Google.Protobuf.Descriptor.FileDescriptorProto]@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.vec'protoFile' @:: Lens' CodeGeneratorRequest - (Data.Vector.Vector - Proto.Google.Protobuf.Descriptor.FileDescriptorProto)@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.compilerVersion' @:: Lens' CodeGeneratorRequest Version@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'compilerVersion' @:: Lens' CodeGeneratorRequest (Prelude.Maybe Version)@ - -} -data CodeGeneratorRequest = CodeGeneratorRequest{_CodeGeneratorRequest'fileToGenerate - :: !(Data.Vector.Vector Data.Text.Text), - _CodeGeneratorRequest'parameter :: - !(Prelude.Maybe Data.Text.Text), - _CodeGeneratorRequest'protoFile :: - !(Data.Vector.Vector - Proto.Google.Protobuf.Descriptor.FileDescriptorProto), - _CodeGeneratorRequest'compilerVersion :: - !(Prelude.Maybe Version), - _CodeGeneratorRequest'_unknownFields :: - !Data.ProtoLens.FieldSet} - deriving (Prelude.Eq, Prelude.Ord) -instance Prelude.Show CodeGeneratorRequest where - showsPrec _ __x __s - = Prelude.showChar '{' - (Prelude.showString (Data.ProtoLens.showMessageShort __x) - (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField CodeGeneratorRequest - "fileToGenerate" - ([Data.Text.Text]) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'fileToGenerate - (\ x__ y__ -> x__{_CodeGeneratorRequest'fileToGenerate = y__})) - Prelude.. - Lens.Family2.Unchecked.lens Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__) -instance Data.ProtoLens.Field.HasField CodeGeneratorRequest - "vec'fileToGenerate" - (Data.Vector.Vector Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'fileToGenerate - (\ x__ y__ -> x__{_CodeGeneratorRequest'fileToGenerate = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Field.HasField CodeGeneratorRequest - "parameter" - (Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'parameter - (\ x__ y__ -> x__{_CodeGeneratorRequest'parameter = y__})) - Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault -instance Data.ProtoLens.Field.HasField CodeGeneratorRequest - "maybe'parameter" - (Prelude.Maybe Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'parameter - (\ x__ y__ -> x__{_CodeGeneratorRequest'parameter = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Field.HasField CodeGeneratorRequest - "protoFile" - ([Proto.Google.Protobuf.Descriptor.FileDescriptorProto]) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'protoFile - (\ x__ y__ -> x__{_CodeGeneratorRequest'protoFile = y__})) - Prelude.. - Lens.Family2.Unchecked.lens Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__) -instance Data.ProtoLens.Field.HasField CodeGeneratorRequest - "vec'protoFile" - (Data.Vector.Vector - Proto.Google.Protobuf.Descriptor.FileDescriptorProto) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'protoFile - (\ x__ y__ -> x__{_CodeGeneratorRequest'protoFile = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Field.HasField CodeGeneratorRequest - "compilerVersion" - (Version) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens - _CodeGeneratorRequest'compilerVersion - (\ x__ y__ -> x__{_CodeGeneratorRequest'compilerVersion = y__})) - Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage -instance Data.ProtoLens.Field.HasField CodeGeneratorRequest - "maybe'compilerVersion" - (Prelude.Maybe Version) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens - _CodeGeneratorRequest'compilerVersion - (\ x__ y__ -> x__{_CodeGeneratorRequest'compilerVersion = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Message CodeGeneratorRequest where - messageName _ - = Data.Text.pack "google.protobuf.compiler.CodeGeneratorRequest" - fieldsByTag - = let fileToGenerate__field_descriptor - = Data.ProtoLens.FieldDescriptor "file_to_generate" - (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - (Data.ProtoLens.Field.field @"fileToGenerate")) - :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest - parameter__field_descriptor - = Data.ProtoLens.FieldDescriptor "parameter" - (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'parameter")) - :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest - protoFile__field_descriptor - = Data.ProtoLens.FieldDescriptor "proto_file" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Google.Protobuf.Descriptor.FileDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - (Data.ProtoLens.Field.field @"protoFile")) - :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest - compilerVersion__field_descriptor - = Data.ProtoLens.FieldDescriptor "compiler_version" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor Version) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'compilerVersion")) - :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, fileToGenerate__field_descriptor), - (Data.ProtoLens.Tag 2, parameter__field_descriptor), - (Data.ProtoLens.Tag 15, protoFile__field_descriptor), - (Data.ProtoLens.Tag 3, compilerVersion__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens _CodeGeneratorRequest'_unknownFields - (\ x__ y__ -> x__{_CodeGeneratorRequest'_unknownFields = y__}) - defMessage - = CodeGeneratorRequest{_CodeGeneratorRequest'fileToGenerate = - Data.Vector.Generic.empty, - _CodeGeneratorRequest'parameter = Prelude.Nothing, - _CodeGeneratorRequest'protoFile = Data.Vector.Generic.empty, - _CodeGeneratorRequest'compilerVersion = Prelude.Nothing, - _CodeGeneratorRequest'_unknownFields = ([])} - parseMessage - = let loop :: - CodeGeneratorRequest -> - 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 - Proto.Google.Protobuf.Descriptor.FileDescriptorProto - -> Data.ProtoLens.Encoding.Bytes.Parser CodeGeneratorRequest - loop x mutable'fileToGenerate mutable'protoFile - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'fileToGenerate <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze - mutable'fileToGenerate) - frozen'protoFile <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze - mutable'protoFile) - 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'fileToGenerate") - frozen'fileToGenerate - (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'protoFile") - frozen'protoFile - 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. - "file_to_generate" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append - mutable'fileToGenerate - y) - loop x v mutable'protoFile - 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. "parameter" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"parameter") - y - x) - mutable'fileToGenerate - mutable'protoFile - 122 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - Data.ProtoLens.Encoding.Bytes. "proto_file" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append - mutable'protoFile - y) - loop x mutable'fileToGenerate 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. "compiler_version" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"compilerVersion") - y - x) - mutable'fileToGenerate - mutable'protoFile - wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over Data.ProtoLens.unknownFields - (\ !t -> (:) y t) - x) - mutable'fileToGenerate - mutable'protoFile - in - (do mutable'fileToGenerate <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - mutable'protoFile <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'fileToGenerate - mutable'protoFile) - Data.ProtoLens.Encoding.Bytes. "CodeGeneratorRequest" - 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.Text.Encoding.encodeUtf8) - _v) - (Lens.Family2.view - (Data.ProtoLens.Field.field @"vec'fileToGenerate") - _x)) - Data.Monoid.<> - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'parameter") - _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 122) 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'protoFile") - _x)) - Data.Monoid.<> - (case - Lens.Family2.view - (Data.ProtoLens.Field.field @"maybe'compilerVersion") - _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 CodeGeneratorRequest where - rnf - = (\ x__ -> - Control.DeepSeq.deepseq (_CodeGeneratorRequest'_unknownFields x__) - (Control.DeepSeq.deepseq (_CodeGeneratorRequest'fileToGenerate x__) - (Control.DeepSeq.deepseq (_CodeGeneratorRequest'parameter x__) - (Control.DeepSeq.deepseq (_CodeGeneratorRequest'protoFile x__) - (Control.DeepSeq.deepseq - (_CodeGeneratorRequest'compilerVersion x__) - (())))))) -{- | Fields : - - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.error' @:: Lens' CodeGeneratorResponse Data.Text.Text@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'error' @:: Lens' CodeGeneratorResponse (Prelude.Maybe Data.Text.Text)@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.file' @:: Lens' CodeGeneratorResponse [CodeGeneratorResponse'File]@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.vec'file' @:: Lens' CodeGeneratorResponse - (Data.Vector.Vector CodeGeneratorResponse'File)@ - -} -data CodeGeneratorResponse = CodeGeneratorResponse{_CodeGeneratorResponse'error - :: !(Prelude.Maybe Data.Text.Text), - _CodeGeneratorResponse'file :: - !(Data.Vector.Vector CodeGeneratorResponse'File), - _CodeGeneratorResponse'_unknownFields :: - !Data.ProtoLens.FieldSet} - deriving (Prelude.Eq, Prelude.Ord) -instance Prelude.Show CodeGeneratorResponse where - showsPrec _ __x __s - = Prelude.showChar '{' - (Prelude.showString (Data.ProtoLens.showMessageShort __x) - (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField CodeGeneratorResponse - "error" - (Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'error - (\ x__ y__ -> x__{_CodeGeneratorResponse'error = y__})) - Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault -instance Data.ProtoLens.Field.HasField CodeGeneratorResponse - "maybe'error" - (Prelude.Maybe Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'error - (\ x__ y__ -> x__{_CodeGeneratorResponse'error = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Field.HasField CodeGeneratorResponse "file" - ([CodeGeneratorResponse'File]) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'file - (\ x__ y__ -> x__{_CodeGeneratorResponse'file = y__})) - Prelude.. - Lens.Family2.Unchecked.lens Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__) -instance Data.ProtoLens.Field.HasField CodeGeneratorResponse - "vec'file" - (Data.Vector.Vector CodeGeneratorResponse'File) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'file - (\ x__ y__ -> x__{_CodeGeneratorResponse'file = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Message CodeGeneratorResponse where - messageName _ - = Data.Text.pack "google.protobuf.compiler.CodeGeneratorResponse" - fieldsByTag - = let error__field_descriptor - = Data.ProtoLens.FieldDescriptor "error" - (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'error")) - :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse - file__field_descriptor - = Data.ProtoLens.FieldDescriptor "file" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor CodeGeneratorResponse'File) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - (Data.ProtoLens.Field.field @"file")) - :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, error__field_descriptor), - (Data.ProtoLens.Tag 15, file__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens _CodeGeneratorResponse'_unknownFields - (\ x__ y__ -> x__{_CodeGeneratorResponse'_unknownFields = y__}) - defMessage - = CodeGeneratorResponse{_CodeGeneratorResponse'error = - Prelude.Nothing, - _CodeGeneratorResponse'file = Data.Vector.Generic.empty, - _CodeGeneratorResponse'_unknownFields = ([])} - parseMessage - = let loop :: - CodeGeneratorResponse -> - Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector - Data.ProtoLens.Encoding.Growing.RealWorld - CodeGeneratorResponse'File - -> Data.ProtoLens.Encoding.Bytes.Parser CodeGeneratorResponse - 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 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. "error" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"error") y - x) - mutable'file - 122 -> 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. "CodeGeneratorResponse" - buildMessage - = (\ _x -> - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'error") _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 122) 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 CodeGeneratorResponse where - rnf - = (\ x__ -> - Control.DeepSeq.deepseq (_CodeGeneratorResponse'_unknownFields x__) - (Control.DeepSeq.deepseq (_CodeGeneratorResponse'error x__) - (Control.DeepSeq.deepseq (_CodeGeneratorResponse'file x__) (())))) -{- | Fields : - - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.name' @:: Lens' CodeGeneratorResponse'File Data.Text.Text@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'name' @:: Lens' CodeGeneratorResponse'File (Prelude.Maybe Data.Text.Text)@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.insertionPoint' @:: Lens' CodeGeneratorResponse'File Data.Text.Text@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'insertionPoint' @:: Lens' CodeGeneratorResponse'File (Prelude.Maybe Data.Text.Text)@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.content' @:: Lens' CodeGeneratorResponse'File Data.Text.Text@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'content' @:: Lens' CodeGeneratorResponse'File (Prelude.Maybe Data.Text.Text)@ - -} -data CodeGeneratorResponse'File = CodeGeneratorResponse'File{_CodeGeneratorResponse'File'name - :: !(Prelude.Maybe Data.Text.Text), - _CodeGeneratorResponse'File'insertionPoint - :: !(Prelude.Maybe Data.Text.Text), - _CodeGeneratorResponse'File'content :: - !(Prelude.Maybe Data.Text.Text), - _CodeGeneratorResponse'File'_unknownFields - :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Eq, Prelude.Ord) -instance Prelude.Show CodeGeneratorResponse'File where - showsPrec _ __x __s - = Prelude.showChar '{' - (Prelude.showString (Data.ProtoLens.showMessageShort __x) - (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File - "name" - (Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'name - (\ x__ y__ -> x__{_CodeGeneratorResponse'File'name = y__})) - Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault -instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File - "maybe'name" - (Prelude.Maybe Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'name - (\ x__ y__ -> x__{_CodeGeneratorResponse'File'name = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File - "insertionPoint" - (Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens - _CodeGeneratorResponse'File'insertionPoint - (\ x__ y__ -> - x__{_CodeGeneratorResponse'File'insertionPoint = y__})) - Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault -instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File - "maybe'insertionPoint" - (Prelude.Maybe Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens - _CodeGeneratorResponse'File'insertionPoint - (\ x__ y__ -> - x__{_CodeGeneratorResponse'File'insertionPoint = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File - "content" - (Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'content - (\ x__ y__ -> x__{_CodeGeneratorResponse'File'content = y__})) - Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault -instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File - "maybe'content" - (Prelude.Maybe Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'content - (\ x__ y__ -> x__{_CodeGeneratorResponse'File'content = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Message CodeGeneratorResponse'File where - messageName _ - = Data.Text.pack - "google.protobuf.compiler.CodeGeneratorResponse.File" - 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 CodeGeneratorResponse'File - insertionPoint__field_descriptor - = Data.ProtoLens.FieldDescriptor "insertion_point" - (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'insertionPoint")) - :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File - content__field_descriptor - = Data.ProtoLens.FieldDescriptor "content" - (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'content")) - :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, insertionPoint__field_descriptor), - (Data.ProtoLens.Tag 15, content__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _CodeGeneratorResponse'File'_unknownFields - (\ x__ y__ -> - x__{_CodeGeneratorResponse'File'_unknownFields = y__}) - defMessage - = CodeGeneratorResponse'File{_CodeGeneratorResponse'File'name = - Prelude.Nothing, - _CodeGeneratorResponse'File'insertionPoint = Prelude.Nothing, - _CodeGeneratorResponse'File'content = Prelude.Nothing, - _CodeGeneratorResponse'File'_unknownFields = ([])} - parseMessage - = let loop :: - CodeGeneratorResponse'File -> - Data.ProtoLens.Encoding.Bytes.Parser CodeGeneratorResponse'File - 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. "insertion_point" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"insertionPoint") - y - x) - 122 -> 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. "content" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"content") - 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. "File" - 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'insertionPoint") - _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'content") _x - of - (Prelude.Nothing) -> Data.Monoid.mempty - Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 122) - 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 CodeGeneratorResponse'File where - rnf - = (\ x__ -> - Control.DeepSeq.deepseq - (_CodeGeneratorResponse'File'_unknownFields x__) - (Control.DeepSeq.deepseq (_CodeGeneratorResponse'File'name x__) - (Control.DeepSeq.deepseq - (_CodeGeneratorResponse'File'insertionPoint x__) - (Control.DeepSeq.deepseq (_CodeGeneratorResponse'File'content x__) - (()))))) -{- | Fields : - - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.major' @:: Lens' Version Data.Int.Int32@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'major' @:: Lens' Version (Prelude.Maybe Data.Int.Int32)@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.minor' @:: Lens' Version Data.Int.Int32@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'minor' @:: Lens' Version (Prelude.Maybe Data.Int.Int32)@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.patch' @:: Lens' Version Data.Int.Int32@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'patch' @:: Lens' Version (Prelude.Maybe Data.Int.Int32)@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.suffix' @:: Lens' Version Data.Text.Text@ - * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'suffix' @:: Lens' Version (Prelude.Maybe Data.Text.Text)@ - -} -data Version = Version{_Version'major :: - !(Prelude.Maybe Data.Int.Int32), - _Version'minor :: !(Prelude.Maybe Data.Int.Int32), - _Version'patch :: !(Prelude.Maybe Data.Int.Int32), - _Version'suffix :: !(Prelude.Maybe Data.Text.Text), - _Version'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Eq, Prelude.Ord) -instance Prelude.Show Version where - showsPrec _ __x __s - = Prelude.showChar '{' - (Prelude.showString (Data.ProtoLens.showMessageShort __x) - (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField Version "major" - (Data.Int.Int32) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _Version'major - (\ x__ y__ -> x__{_Version'major = y__})) - Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault -instance Data.ProtoLens.Field.HasField Version "maybe'major" - (Prelude.Maybe Data.Int.Int32) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _Version'major - (\ x__ y__ -> x__{_Version'major = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Field.HasField Version "minor" - (Data.Int.Int32) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _Version'minor - (\ x__ y__ -> x__{_Version'minor = y__})) - Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault -instance Data.ProtoLens.Field.HasField Version "maybe'minor" - (Prelude.Maybe Data.Int.Int32) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _Version'minor - (\ x__ y__ -> x__{_Version'minor = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Field.HasField Version "patch" - (Data.Int.Int32) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _Version'patch - (\ x__ y__ -> x__{_Version'patch = y__})) - Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault -instance Data.ProtoLens.Field.HasField Version "maybe'patch" - (Prelude.Maybe Data.Int.Int32) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _Version'patch - (\ x__ y__ -> x__{_Version'patch = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Field.HasField Version "suffix" - (Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _Version'suffix - (\ x__ y__ -> x__{_Version'suffix = y__})) - Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault -instance Data.ProtoLens.Field.HasField Version "maybe'suffix" - (Prelude.Maybe Data.Text.Text) - where - fieldOf _ - = (Lens.Family2.Unchecked.lens _Version'suffix - (\ x__ y__ -> x__{_Version'suffix = y__})) - Prelude.. Prelude.id -instance Data.ProtoLens.Message Version where - messageName _ = Data.Text.pack "google.protobuf.compiler.Version" - fieldsByTag - = let major__field_descriptor - = Data.ProtoLens.FieldDescriptor "major" - (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'major")) - :: Data.ProtoLens.FieldDescriptor Version - minor__field_descriptor - = Data.ProtoLens.FieldDescriptor "minor" - (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'minor")) - :: Data.ProtoLens.FieldDescriptor Version - patch__field_descriptor - = Data.ProtoLens.FieldDescriptor "patch" - (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'patch")) - :: Data.ProtoLens.FieldDescriptor Version - suffix__field_descriptor - = Data.ProtoLens.FieldDescriptor "suffix" - (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'suffix")) - :: Data.ProtoLens.FieldDescriptor Version - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, major__field_descriptor), - (Data.ProtoLens.Tag 2, minor__field_descriptor), - (Data.ProtoLens.Tag 3, patch__field_descriptor), - (Data.ProtoLens.Tag 4, suffix__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens _Version'_unknownFields - (\ x__ y__ -> x__{_Version'_unknownFields = y__}) - defMessage - = Version{_Version'major = Prelude.Nothing, - _Version'minor = Prelude.Nothing, _Version'patch = Prelude.Nothing, - _Version'suffix = Prelude.Nothing, _Version'_unknownFields = ([])} - parseMessage - = let loop :: - Version -> Data.ProtoLens.Encoding.Bytes.Parser Version - 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. "major" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"major") y - x) - 16 -> do y <- (Prelude.fmap Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - Data.ProtoLens.Encoding.Bytes. "minor" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"minor") y - x) - 24 -> do y <- (Prelude.fmap Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - Data.ProtoLens.Encoding.Bytes. "patch" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"patch") y - x) - 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. "suffix" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"suffix") - 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. "Version" - buildMessage - = (\ _x -> - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'major") _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'minor") _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'patch") _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'suffix") _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.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData Version where - rnf - = (\ x__ -> - Control.DeepSeq.deepseq (_Version'_unknownFields x__) - (Control.DeepSeq.deepseq (_Version'major x__) - (Control.DeepSeq.deepseq (_Version'minor x__) - (Control.DeepSeq.deepseq (_Version'patch x__) - (Control.DeepSeq.deepseq (_Version'suffix x__) (())))))) diff --git a/src/Proto/Google/Protobuf/Compiler/Plugin_Fields.hs b/src/Proto/Google/Protobuf/Compiler/Plugin_Fields.hs deleted file mode 100644 --- a/src/Proto/Google/Protobuf/Compiler/Plugin_Fields.hs +++ /dev/null @@ -1,185 +0,0 @@ -{- This file was auto-generated from google/protobuf/compiler/plugin.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.Compiler.Plugin_Fields where -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 -import qualified Proto.Google.Protobuf.Descriptor - -compilerVersion :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "compilerVersion" a) => - Lens.Family2.LensLike' f s a -compilerVersion = Data.ProtoLens.Field.field @"compilerVersion" -content :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "content" a) => - Lens.Family2.LensLike' f s a -content = Data.ProtoLens.Field.field @"content" -error :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "error" a) => - Lens.Family2.LensLike' f s a -error = Data.ProtoLens.Field.field @"error" -file :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "file" a) => - Lens.Family2.LensLike' f s a -file = Data.ProtoLens.Field.field @"file" -fileToGenerate :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "fileToGenerate" a) => - Lens.Family2.LensLike' f s a -fileToGenerate = Data.ProtoLens.Field.field @"fileToGenerate" -insertionPoint :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "insertionPoint" a) => - Lens.Family2.LensLike' f s a -insertionPoint = Data.ProtoLens.Field.field @"insertionPoint" -major :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "major" a) => - Lens.Family2.LensLike' f s a -major = Data.ProtoLens.Field.field @"major" -maybe'compilerVersion :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'compilerVersion" a) => - Lens.Family2.LensLike' f s a -maybe'compilerVersion - = Data.ProtoLens.Field.field @"maybe'compilerVersion" -maybe'content :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'content" a) => - Lens.Family2.LensLike' f s a -maybe'content = Data.ProtoLens.Field.field @"maybe'content" -maybe'error :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'error" a) => - Lens.Family2.LensLike' f s a -maybe'error = Data.ProtoLens.Field.field @"maybe'error" -maybe'insertionPoint :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'insertionPoint" a) => - Lens.Family2.LensLike' f s a -maybe'insertionPoint - = Data.ProtoLens.Field.field @"maybe'insertionPoint" -maybe'major :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'major" a) => - Lens.Family2.LensLike' f s a -maybe'major = Data.ProtoLens.Field.field @"maybe'major" -maybe'minor :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'minor" a) => - Lens.Family2.LensLike' f s a -maybe'minor = Data.ProtoLens.Field.field @"maybe'minor" -maybe'name :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'name" a) => - Lens.Family2.LensLike' f s a -maybe'name = Data.ProtoLens.Field.field @"maybe'name" -maybe'parameter :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'parameter" a) => - Lens.Family2.LensLike' f s a -maybe'parameter = Data.ProtoLens.Field.field @"maybe'parameter" -maybe'patch :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'patch" a) => - Lens.Family2.LensLike' f s a -maybe'patch = Data.ProtoLens.Field.field @"maybe'patch" -maybe'suffix :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'suffix" a) => - Lens.Family2.LensLike' f s a -maybe'suffix = Data.ProtoLens.Field.field @"maybe'suffix" -minor :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "minor" a) => - Lens.Family2.LensLike' f s a -minor = Data.ProtoLens.Field.field @"minor" -name :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "name" a) => - Lens.Family2.LensLike' f s a -name = Data.ProtoLens.Field.field @"name" -parameter :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "parameter" a) => - Lens.Family2.LensLike' f s a -parameter = Data.ProtoLens.Field.field @"parameter" -patch :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "patch" a) => - Lens.Family2.LensLike' f s a -patch = Data.ProtoLens.Field.field @"patch" -protoFile :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "protoFile" a) => - Lens.Family2.LensLike' f s a -protoFile = Data.ProtoLens.Field.field @"protoFile" -suffix :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "suffix" a) => - Lens.Family2.LensLike' f s a -suffix = Data.ProtoLens.Field.field @"suffix" -vec'file :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'file" a) => - Lens.Family2.LensLike' f s a -vec'file = Data.ProtoLens.Field.field @"vec'file" -vec'fileToGenerate :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'fileToGenerate" a) => - Lens.Family2.LensLike' f s a -vec'fileToGenerate - = Data.ProtoLens.Field.field @"vec'fileToGenerate" -vec'protoFile :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'protoFile" a) => - Lens.Family2.LensLike' f s a -vec'protoFile = Data.ProtoLens.Field.field @"vec'protoFile" diff --git a/src/Proto/Google/Protobuf/Descriptor.hs b/src/Proto/Google/Protobuf/Descriptor.hs deleted file mode 100644 --- a/src/Proto/Google/Protobuf/Descriptor.hs +++ /dev/null @@ -1,9690 +0,0 @@ -{- 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__) - (())))) diff --git a/src/Proto/Google/Protobuf/Descriptor_Fields.hs b/src/Proto/Google/Protobuf/Descriptor_Fields.hs deleted file mode 100644 --- a/src/Proto/Google/Protobuf/Descriptor_Fields.hs +++ /dev/null @@ -1,1046 +0,0 @@ -{- 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_Fields where -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 - -aggregateValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "aggregateValue" a) => - Lens.Family2.LensLike' f s a -aggregateValue = Data.ProtoLens.Field.field @"aggregateValue" -allowAlias :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "allowAlias" a) => - Lens.Family2.LensLike' f s a -allowAlias = Data.ProtoLens.Field.field @"allowAlias" -annotation :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "annotation" a) => - Lens.Family2.LensLike' f s a -annotation = Data.ProtoLens.Field.field @"annotation" -begin :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "begin" a) => - Lens.Family2.LensLike' f s a -begin = Data.ProtoLens.Field.field @"begin" -ccEnableArenas :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "ccEnableArenas" a) => - Lens.Family2.LensLike' f s a -ccEnableArenas = Data.ProtoLens.Field.field @"ccEnableArenas" -ccGenericServices :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "ccGenericServices" a) => - Lens.Family2.LensLike' f s a -ccGenericServices = Data.ProtoLens.Field.field @"ccGenericServices" -clientStreaming :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "clientStreaming" a) => - Lens.Family2.LensLike' f s a -clientStreaming = Data.ProtoLens.Field.field @"clientStreaming" -csharpNamespace :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "csharpNamespace" a) => - Lens.Family2.LensLike' f s a -csharpNamespace = Data.ProtoLens.Field.field @"csharpNamespace" -ctype :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ctype" a) => - Lens.Family2.LensLike' f s a -ctype = Data.ProtoLens.Field.field @"ctype" -defaultValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "defaultValue" a) => - Lens.Family2.LensLike' f s a -defaultValue = Data.ProtoLens.Field.field @"defaultValue" -dependency :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "dependency" a) => - Lens.Family2.LensLike' f s a -dependency = Data.ProtoLens.Field.field @"dependency" -deprecated :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "deprecated" a) => - Lens.Family2.LensLike' f s a -deprecated = Data.ProtoLens.Field.field @"deprecated" -doubleValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "doubleValue" a) => - Lens.Family2.LensLike' f s a -doubleValue = Data.ProtoLens.Field.field @"doubleValue" -end :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "end" a) => - Lens.Family2.LensLike' f s a -end = Data.ProtoLens.Field.field @"end" -enumType :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "enumType" a) => - Lens.Family2.LensLike' f s a -enumType = Data.ProtoLens.Field.field @"enumType" -extendee :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "extendee" a) => - Lens.Family2.LensLike' f s a -extendee = Data.ProtoLens.Field.field @"extendee" -extension :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "extension" a) => - Lens.Family2.LensLike' f s a -extension = Data.ProtoLens.Field.field @"extension" -extensionRange :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "extensionRange" a) => - Lens.Family2.LensLike' f s a -extensionRange = Data.ProtoLens.Field.field @"extensionRange" -field :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "field" a) => - Lens.Family2.LensLike' f s a -field = Data.ProtoLens.Field.field @"field" -file :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "file" a) => - Lens.Family2.LensLike' f s a -file = Data.ProtoLens.Field.field @"file" -goPackage :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "goPackage" a) => - Lens.Family2.LensLike' f s a -goPackage = Data.ProtoLens.Field.field @"goPackage" -idempotencyLevel :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "idempotencyLevel" a) => - Lens.Family2.LensLike' f s a -idempotencyLevel = Data.ProtoLens.Field.field @"idempotencyLevel" -identifierValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "identifierValue" a) => - Lens.Family2.LensLike' f s a -identifierValue = Data.ProtoLens.Field.field @"identifierValue" -inputType :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "inputType" a) => - Lens.Family2.LensLike' f s a -inputType = Data.ProtoLens.Field.field @"inputType" -isExtension :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "isExtension" a) => - Lens.Family2.LensLike' f s a -isExtension = Data.ProtoLens.Field.field @"isExtension" -javaGenerateEqualsAndHash :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "javaGenerateEqualsAndHash" a) => - Lens.Family2.LensLike' f s a -javaGenerateEqualsAndHash - = Data.ProtoLens.Field.field @"javaGenerateEqualsAndHash" -javaGenericServices :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "javaGenericServices" a) => - Lens.Family2.LensLike' f s a -javaGenericServices - = Data.ProtoLens.Field.field @"javaGenericServices" -javaMultipleFiles :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "javaMultipleFiles" a) => - Lens.Family2.LensLike' f s a -javaMultipleFiles = Data.ProtoLens.Field.field @"javaMultipleFiles" -javaOuterClassname :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "javaOuterClassname" a) => - Lens.Family2.LensLike' f s a -javaOuterClassname - = Data.ProtoLens.Field.field @"javaOuterClassname" -javaPackage :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "javaPackage" a) => - Lens.Family2.LensLike' f s a -javaPackage = Data.ProtoLens.Field.field @"javaPackage" -javaStringCheckUtf8 :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "javaStringCheckUtf8" a) => - Lens.Family2.LensLike' f s a -javaStringCheckUtf8 - = Data.ProtoLens.Field.field @"javaStringCheckUtf8" -jsonName :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "jsonName" a) => - Lens.Family2.LensLike' f s a -jsonName = Data.ProtoLens.Field.field @"jsonName" -jstype :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "jstype" a) => - Lens.Family2.LensLike' f s a -jstype = Data.ProtoLens.Field.field @"jstype" -label :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "label" a) => - Lens.Family2.LensLike' f s a -label = Data.ProtoLens.Field.field @"label" -lazy :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "lazy" a) => - Lens.Family2.LensLike' f s a -lazy = Data.ProtoLens.Field.field @"lazy" -leadingComments :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "leadingComments" a) => - Lens.Family2.LensLike' f s a -leadingComments = Data.ProtoLens.Field.field @"leadingComments" -leadingDetachedComments :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "leadingDetachedComments" a) => - Lens.Family2.LensLike' f s a -leadingDetachedComments - = Data.ProtoLens.Field.field @"leadingDetachedComments" -location :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "location" a) => - Lens.Family2.LensLike' f s a -location = Data.ProtoLens.Field.field @"location" -mapEntry :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "mapEntry" a) => - Lens.Family2.LensLike' f s a -mapEntry = Data.ProtoLens.Field.field @"mapEntry" -maybe'aggregateValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'aggregateValue" a) => - Lens.Family2.LensLike' f s a -maybe'aggregateValue - = Data.ProtoLens.Field.field @"maybe'aggregateValue" -maybe'allowAlias :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'allowAlias" a) => - Lens.Family2.LensLike' f s a -maybe'allowAlias = Data.ProtoLens.Field.field @"maybe'allowAlias" -maybe'begin :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'begin" a) => - Lens.Family2.LensLike' f s a -maybe'begin = Data.ProtoLens.Field.field @"maybe'begin" -maybe'ccEnableArenas :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'ccEnableArenas" a) => - Lens.Family2.LensLike' f s a -maybe'ccEnableArenas - = Data.ProtoLens.Field.field @"maybe'ccEnableArenas" -maybe'ccGenericServices :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'ccGenericServices" a) => - Lens.Family2.LensLike' f s a -maybe'ccGenericServices - = Data.ProtoLens.Field.field @"maybe'ccGenericServices" -maybe'clientStreaming :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'clientStreaming" a) => - Lens.Family2.LensLike' f s a -maybe'clientStreaming - = Data.ProtoLens.Field.field @"maybe'clientStreaming" -maybe'csharpNamespace :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'csharpNamespace" a) => - Lens.Family2.LensLike' f s a -maybe'csharpNamespace - = Data.ProtoLens.Field.field @"maybe'csharpNamespace" -maybe'ctype :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'ctype" a) => - Lens.Family2.LensLike' f s a -maybe'ctype = Data.ProtoLens.Field.field @"maybe'ctype" -maybe'defaultValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'defaultValue" a) => - Lens.Family2.LensLike' f s a -maybe'defaultValue - = Data.ProtoLens.Field.field @"maybe'defaultValue" -maybe'deprecated :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'deprecated" a) => - Lens.Family2.LensLike' f s a -maybe'deprecated = Data.ProtoLens.Field.field @"maybe'deprecated" -maybe'doubleValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'doubleValue" a) => - Lens.Family2.LensLike' f s a -maybe'doubleValue = Data.ProtoLens.Field.field @"maybe'doubleValue" -maybe'end :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'end" a) => - Lens.Family2.LensLike' f s a -maybe'end = Data.ProtoLens.Field.field @"maybe'end" -maybe'extendee :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'extendee" a) => - Lens.Family2.LensLike' f s a -maybe'extendee = Data.ProtoLens.Field.field @"maybe'extendee" -maybe'goPackage :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'goPackage" a) => - Lens.Family2.LensLike' f s a -maybe'goPackage = Data.ProtoLens.Field.field @"maybe'goPackage" -maybe'idempotencyLevel :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'idempotencyLevel" a) => - Lens.Family2.LensLike' f s a -maybe'idempotencyLevel - = Data.ProtoLens.Field.field @"maybe'idempotencyLevel" -maybe'identifierValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'identifierValue" a) => - Lens.Family2.LensLike' f s a -maybe'identifierValue - = Data.ProtoLens.Field.field @"maybe'identifierValue" -maybe'inputType :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'inputType" a) => - Lens.Family2.LensLike' f s a -maybe'inputType = Data.ProtoLens.Field.field @"maybe'inputType" -maybe'javaGenerateEqualsAndHash :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'javaGenerateEqualsAndHash" - a) => - Lens.Family2.LensLike' f s a -maybe'javaGenerateEqualsAndHash - = Data.ProtoLens.Field.field @"maybe'javaGenerateEqualsAndHash" -maybe'javaGenericServices :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'javaGenericServices" a) => - Lens.Family2.LensLike' f s a -maybe'javaGenericServices - = Data.ProtoLens.Field.field @"maybe'javaGenericServices" -maybe'javaMultipleFiles :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'javaMultipleFiles" a) => - Lens.Family2.LensLike' f s a -maybe'javaMultipleFiles - = Data.ProtoLens.Field.field @"maybe'javaMultipleFiles" -maybe'javaOuterClassname :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'javaOuterClassname" a) => - Lens.Family2.LensLike' f s a -maybe'javaOuterClassname - = Data.ProtoLens.Field.field @"maybe'javaOuterClassname" -maybe'javaPackage :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'javaPackage" a) => - Lens.Family2.LensLike' f s a -maybe'javaPackage = Data.ProtoLens.Field.field @"maybe'javaPackage" -maybe'javaStringCheckUtf8 :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'javaStringCheckUtf8" a) => - Lens.Family2.LensLike' f s a -maybe'javaStringCheckUtf8 - = Data.ProtoLens.Field.field @"maybe'javaStringCheckUtf8" -maybe'jsonName :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'jsonName" a) => - Lens.Family2.LensLike' f s a -maybe'jsonName = Data.ProtoLens.Field.field @"maybe'jsonName" -maybe'jstype :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'jstype" a) => - Lens.Family2.LensLike' f s a -maybe'jstype = Data.ProtoLens.Field.field @"maybe'jstype" -maybe'label :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'label" a) => - Lens.Family2.LensLike' f s a -maybe'label = Data.ProtoLens.Field.field @"maybe'label" -maybe'lazy :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'lazy" a) => - Lens.Family2.LensLike' f s a -maybe'lazy = Data.ProtoLens.Field.field @"maybe'lazy" -maybe'leadingComments :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'leadingComments" a) => - Lens.Family2.LensLike' f s a -maybe'leadingComments - = Data.ProtoLens.Field.field @"maybe'leadingComments" -maybe'mapEntry :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'mapEntry" a) => - Lens.Family2.LensLike' f s a -maybe'mapEntry = Data.ProtoLens.Field.field @"maybe'mapEntry" -maybe'messageSetWireFormat :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'messageSetWireFormat" a) => - Lens.Family2.LensLike' f s a -maybe'messageSetWireFormat - = Data.ProtoLens.Field.field @"maybe'messageSetWireFormat" -maybe'name :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'name" a) => - Lens.Family2.LensLike' f s a -maybe'name = Data.ProtoLens.Field.field @"maybe'name" -maybe'negativeIntValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'negativeIntValue" a) => - Lens.Family2.LensLike' f s a -maybe'negativeIntValue - = Data.ProtoLens.Field.field @"maybe'negativeIntValue" -maybe'noStandardDescriptorAccessor :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s - "maybe'noStandardDescriptorAccessor" a) => - Lens.Family2.LensLike' f s a -maybe'noStandardDescriptorAccessor - = Data.ProtoLens.Field.field @"maybe'noStandardDescriptorAccessor" -maybe'number :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'number" a) => - Lens.Family2.LensLike' f s a -maybe'number = Data.ProtoLens.Field.field @"maybe'number" -maybe'objcClassPrefix :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'objcClassPrefix" a) => - Lens.Family2.LensLike' f s a -maybe'objcClassPrefix - = Data.ProtoLens.Field.field @"maybe'objcClassPrefix" -maybe'oneofIndex :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'oneofIndex" a) => - Lens.Family2.LensLike' f s a -maybe'oneofIndex = Data.ProtoLens.Field.field @"maybe'oneofIndex" -maybe'optimizeFor :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'optimizeFor" a) => - Lens.Family2.LensLike' f s a -maybe'optimizeFor = Data.ProtoLens.Field.field @"maybe'optimizeFor" -maybe'options :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'options" a) => - Lens.Family2.LensLike' f s a -maybe'options = Data.ProtoLens.Field.field @"maybe'options" -maybe'outputType :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'outputType" a) => - Lens.Family2.LensLike' f s a -maybe'outputType = Data.ProtoLens.Field.field @"maybe'outputType" -maybe'package :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'package" a) => - Lens.Family2.LensLike' f s a -maybe'package = Data.ProtoLens.Field.field @"maybe'package" -maybe'packed :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'packed" a) => - Lens.Family2.LensLike' f s a -maybe'packed = Data.ProtoLens.Field.field @"maybe'packed" -maybe'phpClassPrefix :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'phpClassPrefix" a) => - Lens.Family2.LensLike' f s a -maybe'phpClassPrefix - = Data.ProtoLens.Field.field @"maybe'phpClassPrefix" -maybe'phpGenericServices :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'phpGenericServices" a) => - Lens.Family2.LensLike' f s a -maybe'phpGenericServices - = Data.ProtoLens.Field.field @"maybe'phpGenericServices" -maybe'phpMetadataNamespace :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'phpMetadataNamespace" a) => - Lens.Family2.LensLike' f s a -maybe'phpMetadataNamespace - = Data.ProtoLens.Field.field @"maybe'phpMetadataNamespace" -maybe'phpNamespace :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'phpNamespace" a) => - Lens.Family2.LensLike' f s a -maybe'phpNamespace - = Data.ProtoLens.Field.field @"maybe'phpNamespace" -maybe'positiveIntValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'positiveIntValue" a) => - Lens.Family2.LensLike' f s a -maybe'positiveIntValue - = Data.ProtoLens.Field.field @"maybe'positiveIntValue" -maybe'pyGenericServices :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'pyGenericServices" a) => - Lens.Family2.LensLike' f s a -maybe'pyGenericServices - = Data.ProtoLens.Field.field @"maybe'pyGenericServices" -maybe'rubyPackage :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'rubyPackage" a) => - Lens.Family2.LensLike' f s a -maybe'rubyPackage = Data.ProtoLens.Field.field @"maybe'rubyPackage" -maybe'serverStreaming :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'serverStreaming" a) => - Lens.Family2.LensLike' f s a -maybe'serverStreaming - = Data.ProtoLens.Field.field @"maybe'serverStreaming" -maybe'sourceCodeInfo :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'sourceCodeInfo" a) => - Lens.Family2.LensLike' f s a -maybe'sourceCodeInfo - = Data.ProtoLens.Field.field @"maybe'sourceCodeInfo" -maybe'sourceFile :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'sourceFile" a) => - Lens.Family2.LensLike' f s a -maybe'sourceFile = Data.ProtoLens.Field.field @"maybe'sourceFile" -maybe'start :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'start" a) => - Lens.Family2.LensLike' f s a -maybe'start = Data.ProtoLens.Field.field @"maybe'start" -maybe'stringValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'stringValue" a) => - Lens.Family2.LensLike' f s a -maybe'stringValue = Data.ProtoLens.Field.field @"maybe'stringValue" -maybe'swiftPrefix :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'swiftPrefix" a) => - Lens.Family2.LensLike' f s a -maybe'swiftPrefix = Data.ProtoLens.Field.field @"maybe'swiftPrefix" -maybe'syntax :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'syntax" a) => - Lens.Family2.LensLike' f s a -maybe'syntax = Data.ProtoLens.Field.field @"maybe'syntax" -maybe'trailingComments :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'trailingComments" a) => - Lens.Family2.LensLike' f s a -maybe'trailingComments - = Data.ProtoLens.Field.field @"maybe'trailingComments" -maybe'type' :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'type'" a) => - Lens.Family2.LensLike' f s a -maybe'type' = Data.ProtoLens.Field.field @"maybe'type'" -maybe'typeName :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'typeName" a) => - Lens.Family2.LensLike' f s a -maybe'typeName = Data.ProtoLens.Field.field @"maybe'typeName" -maybe'weak :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'weak" a) => - Lens.Family2.LensLike' f s a -maybe'weak = Data.ProtoLens.Field.field @"maybe'weak" -messageSetWireFormat :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "messageSetWireFormat" a) => - Lens.Family2.LensLike' f s a -messageSetWireFormat - = Data.ProtoLens.Field.field @"messageSetWireFormat" -messageType :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "messageType" a) => - Lens.Family2.LensLike' f s a -messageType = Data.ProtoLens.Field.field @"messageType" -method :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "method" a) => - Lens.Family2.LensLike' f s a -method = Data.ProtoLens.Field.field @"method" -name :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "name" a) => - Lens.Family2.LensLike' f s a -name = Data.ProtoLens.Field.field @"name" -namePart :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "namePart" a) => - Lens.Family2.LensLike' f s a -namePart = Data.ProtoLens.Field.field @"namePart" -negativeIntValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "negativeIntValue" a) => - Lens.Family2.LensLike' f s a -negativeIntValue = Data.ProtoLens.Field.field @"negativeIntValue" -nestedType :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "nestedType" a) => - Lens.Family2.LensLike' f s a -nestedType = Data.ProtoLens.Field.field @"nestedType" -noStandardDescriptorAccessor :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "noStandardDescriptorAccessor" - a) => - Lens.Family2.LensLike' f s a -noStandardDescriptorAccessor - = Data.ProtoLens.Field.field @"noStandardDescriptorAccessor" -number :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "number" a) => - Lens.Family2.LensLike' f s a -number = Data.ProtoLens.Field.field @"number" -objcClassPrefix :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "objcClassPrefix" a) => - Lens.Family2.LensLike' f s a -objcClassPrefix = Data.ProtoLens.Field.field @"objcClassPrefix" -oneofDecl :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "oneofDecl" a) => - Lens.Family2.LensLike' f s a -oneofDecl = Data.ProtoLens.Field.field @"oneofDecl" -oneofIndex :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "oneofIndex" a) => - Lens.Family2.LensLike' f s a -oneofIndex = Data.ProtoLens.Field.field @"oneofIndex" -optimizeFor :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "optimizeFor" a) => - Lens.Family2.LensLike' f s a -optimizeFor = Data.ProtoLens.Field.field @"optimizeFor" -options :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "options" a) => - Lens.Family2.LensLike' f s a -options = Data.ProtoLens.Field.field @"options" -outputType :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "outputType" a) => - Lens.Family2.LensLike' f s a -outputType = Data.ProtoLens.Field.field @"outputType" -package :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "package" a) => - Lens.Family2.LensLike' f s a -package = Data.ProtoLens.Field.field @"package" -packed :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "packed" a) => - Lens.Family2.LensLike' f s a -packed = Data.ProtoLens.Field.field @"packed" -path :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "path" a) => - Lens.Family2.LensLike' f s a -path = Data.ProtoLens.Field.field @"path" -phpClassPrefix :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "phpClassPrefix" a) => - Lens.Family2.LensLike' f s a -phpClassPrefix = Data.ProtoLens.Field.field @"phpClassPrefix" -phpGenericServices :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "phpGenericServices" a) => - Lens.Family2.LensLike' f s a -phpGenericServices - = Data.ProtoLens.Field.field @"phpGenericServices" -phpMetadataNamespace :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "phpMetadataNamespace" a) => - Lens.Family2.LensLike' f s a -phpMetadataNamespace - = Data.ProtoLens.Field.field @"phpMetadataNamespace" -phpNamespace :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "phpNamespace" a) => - Lens.Family2.LensLike' f s a -phpNamespace = Data.ProtoLens.Field.field @"phpNamespace" -positiveIntValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "positiveIntValue" a) => - Lens.Family2.LensLike' f s a -positiveIntValue = Data.ProtoLens.Field.field @"positiveIntValue" -publicDependency :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "publicDependency" a) => - Lens.Family2.LensLike' f s a -publicDependency = Data.ProtoLens.Field.field @"publicDependency" -pyGenericServices :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "pyGenericServices" a) => - Lens.Family2.LensLike' f s a -pyGenericServices = Data.ProtoLens.Field.field @"pyGenericServices" -reservedName :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "reservedName" a) => - Lens.Family2.LensLike' f s a -reservedName = Data.ProtoLens.Field.field @"reservedName" -reservedRange :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "reservedRange" a) => - Lens.Family2.LensLike' f s a -reservedRange = Data.ProtoLens.Field.field @"reservedRange" -rubyPackage :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "rubyPackage" a) => - Lens.Family2.LensLike' f s a -rubyPackage = Data.ProtoLens.Field.field @"rubyPackage" -serverStreaming :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "serverStreaming" a) => - Lens.Family2.LensLike' f s a -serverStreaming = Data.ProtoLens.Field.field @"serverStreaming" -service :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "service" a) => - Lens.Family2.LensLike' f s a -service = Data.ProtoLens.Field.field @"service" -sourceCodeInfo :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "sourceCodeInfo" a) => - Lens.Family2.LensLike' f s a -sourceCodeInfo = Data.ProtoLens.Field.field @"sourceCodeInfo" -sourceFile :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "sourceFile" a) => - Lens.Family2.LensLike' f s a -sourceFile = Data.ProtoLens.Field.field @"sourceFile" -span :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "span" a) => - Lens.Family2.LensLike' f s a -span = Data.ProtoLens.Field.field @"span" -start :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "start" a) => - Lens.Family2.LensLike' f s a -start = Data.ProtoLens.Field.field @"start" -stringValue :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "stringValue" a) => - Lens.Family2.LensLike' f s a -stringValue = Data.ProtoLens.Field.field @"stringValue" -swiftPrefix :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "swiftPrefix" a) => - Lens.Family2.LensLike' f s a -swiftPrefix = Data.ProtoLens.Field.field @"swiftPrefix" -syntax :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "syntax" a) => - Lens.Family2.LensLike' f s a -syntax = Data.ProtoLens.Field.field @"syntax" -trailingComments :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "trailingComments" a) => - Lens.Family2.LensLike' f s a -trailingComments = Data.ProtoLens.Field.field @"trailingComments" -type' :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "type'" a) => - Lens.Family2.LensLike' f s a -type' = Data.ProtoLens.Field.field @"type'" -typeName :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "typeName" a) => - Lens.Family2.LensLike' f s a -typeName = Data.ProtoLens.Field.field @"typeName" -uninterpretedOption :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "uninterpretedOption" a) => - Lens.Family2.LensLike' f s a -uninterpretedOption - = Data.ProtoLens.Field.field @"uninterpretedOption" -value :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "value" a) => - Lens.Family2.LensLike' f s a -value = Data.ProtoLens.Field.field @"value" -vec'annotation :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'annotation" a) => - Lens.Family2.LensLike' f s a -vec'annotation = Data.ProtoLens.Field.field @"vec'annotation" -vec'dependency :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'dependency" a) => - Lens.Family2.LensLike' f s a -vec'dependency = Data.ProtoLens.Field.field @"vec'dependency" -vec'enumType :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'enumType" a) => - Lens.Family2.LensLike' f s a -vec'enumType = Data.ProtoLens.Field.field @"vec'enumType" -vec'extension :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'extension" a) => - Lens.Family2.LensLike' f s a -vec'extension = Data.ProtoLens.Field.field @"vec'extension" -vec'extensionRange :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'extensionRange" a) => - Lens.Family2.LensLike' f s a -vec'extensionRange - = Data.ProtoLens.Field.field @"vec'extensionRange" -vec'field :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'field" a) => - Lens.Family2.LensLike' f s a -vec'field = Data.ProtoLens.Field.field @"vec'field" -vec'file :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'file" a) => - Lens.Family2.LensLike' f s a -vec'file = Data.ProtoLens.Field.field @"vec'file" -vec'leadingDetachedComments :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'leadingDetachedComments" a) => - Lens.Family2.LensLike' f s a -vec'leadingDetachedComments - = Data.ProtoLens.Field.field @"vec'leadingDetachedComments" -vec'location :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'location" a) => - Lens.Family2.LensLike' f s a -vec'location = Data.ProtoLens.Field.field @"vec'location" -vec'messageType :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'messageType" a) => - Lens.Family2.LensLike' f s a -vec'messageType = Data.ProtoLens.Field.field @"vec'messageType" -vec'method :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'method" a) => - Lens.Family2.LensLike' f s a -vec'method = Data.ProtoLens.Field.field @"vec'method" -vec'name :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'name" a) => - Lens.Family2.LensLike' f s a -vec'name = Data.ProtoLens.Field.field @"vec'name" -vec'nestedType :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'nestedType" a) => - Lens.Family2.LensLike' f s a -vec'nestedType = Data.ProtoLens.Field.field @"vec'nestedType" -vec'oneofDecl :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'oneofDecl" a) => - Lens.Family2.LensLike' f s a -vec'oneofDecl = Data.ProtoLens.Field.field @"vec'oneofDecl" -vec'path :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'path" a) => - Lens.Family2.LensLike' f s a -vec'path = Data.ProtoLens.Field.field @"vec'path" -vec'publicDependency :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'publicDependency" a) => - Lens.Family2.LensLike' f s a -vec'publicDependency - = Data.ProtoLens.Field.field @"vec'publicDependency" -vec'reservedName :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'reservedName" a) => - Lens.Family2.LensLike' f s a -vec'reservedName = Data.ProtoLens.Field.field @"vec'reservedName" -vec'reservedRange :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'reservedRange" a) => - Lens.Family2.LensLike' f s a -vec'reservedRange = Data.ProtoLens.Field.field @"vec'reservedRange" -vec'service :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'service" a) => - Lens.Family2.LensLike' f s a -vec'service = Data.ProtoLens.Field.field @"vec'service" -vec'span :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'span" a) => - Lens.Family2.LensLike' f s a -vec'span = Data.ProtoLens.Field.field @"vec'span" -vec'uninterpretedOption :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'uninterpretedOption" a) => - Lens.Family2.LensLike' f s a -vec'uninterpretedOption - = Data.ProtoLens.Field.field @"vec'uninterpretedOption" -vec'value :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'value" a) => - Lens.Family2.LensLike' f s a -vec'value = Data.ProtoLens.Field.field @"vec'value" -vec'weakDependency :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'weakDependency" a) => - Lens.Family2.LensLike' f s a -vec'weakDependency - = Data.ProtoLens.Field.field @"vec'weakDependency" -weak :: - forall f s a . - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "weak" a) => - Lens.Family2.LensLike' f s a -weak = Data.ProtoLens.Field.field @"weak" -weakDependency :: - forall f s a . - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "weakDependency" a) => - Lens.Family2.LensLike' f s a -weakDependency = Data.ProtoLens.Field.field @"weakDependency" diff --git a/tests/growing_test.hs b/tests/growing_test.hs --- a/tests/growing_test.hs +++ b/tests/growing_test.hs @@ -6,13 +6,13 @@ import Data.Foldable (foldlM) import qualified Data.Vector.Unboxed as V import Test.QuickCheck -import Test.Framework (defaultMain) -import Test.Framework.Providers.QuickCheck2 (testProperty) +import Test.Tasty (defaultMain, testGroup) +import Test.Tasty.QuickCheck (testProperty) import Data.ProtoLens.Encoding.Growing main :: IO () -main = defaultMain +main = defaultMain $ testGroup "tests" [ testProperty "fromList" testFromList , testProperty "unchanged" testUnchanged ] diff --git a/tests/parser_test.hs b/tests/parser_test.hs --- a/tests/parser_test.hs +++ b/tests/parser_test.hs @@ -1,19 +1,18 @@ -- | Unit and property tests for our custom parsing monad. module Main (main) where -import Control.Applicative (liftA2) import qualified Data.ByteString as B import Data.Either (isLeft) import Test.QuickCheck -import Test.Framework (defaultMain, testGroup, Test) -import Test.Framework.Providers.QuickCheck2 (testProperty) +import Test.Tasty (defaultMain, testGroup, TestTree) +import Test.Tasty.QuickCheck (testProperty) import Data.ProtoLens.Encoding.Bytes import Data.ProtoLens.Encoding.Parser main :: IO () -main = defaultMain +main = defaultMain $ testGroup "tests" [ testGroup "Parser" testParser , testGroup "getWord8" testGetWord8 , testGroup "getBytes" testGetBytes @@ -22,7 +21,7 @@ , testGroup "isolate" testIsolate ] -testParser :: [Test] +testParser :: [TestTree] testParser = -- Test out the Applicative instance by using "traverse" to read the same number of bytes -- as in the input. @@ -32,14 +31,14 @@ === Right ws ] -testGetWord8 :: [Test] +testGetWord8 :: [TestTree] testGetWord8 = [ testProperty "atEnd" $ \ws -> runParser atEnd (B.pack ws) === Right (null ws) , testProperty "manyTillEnd" $ \ws -> runParser (manyTillEnd getWord8) (B.pack ws) === Right ws ] -testGetBytes :: [Test] +testGetBytes :: [TestTree] testGetBytes = [ testProperty "many" $ \ws -> let @@ -51,7 +50,7 @@ (runParser (getBytes n) $ B.pack ws) ] -testGetWord32le :: [Test] +testGetWord32le :: [TestTree] testGetWord32le = [ testProperty "align" $ \ws -> length ws `mod` 4 /= 0 ==> @@ -61,7 +60,7 @@ === Right ws ] -testFailure :: [Test] +testFailure :: [TestTree] testFailure = [ testProperty "fail-fast" $ \bs -> runParser (fail "abcde") (B.pack bs) @@ -71,11 +70,11 @@ === (Left "fghij: abcde" :: Either String ()) ] -testIsolate :: [Test] +testIsolate :: [TestTree] testIsolate = [ testProperty "many" $ \bs bs' -> - runParser (liftA2 (,) (isolate (length bs) $ manyTillEnd getWord8) - (manyTillEnd getWord8)) + runParser ((,) <$> isolate (length bs) (manyTillEnd getWord8) <*> + manyTillEnd getWord8) (B.pack (bs ++ bs')) == Right (bs, bs') , testProperty "negative length" $ \n ws ->