diff --git a/Changes.md b/Changes.md --- a/Changes.md +++ b/Changes.md @@ -1,5 +1,10 @@ +* 1.0.0 + - Switch protobuf library from `protocol-buffers` to `proto-lens` + - Collapse module hierarchy down to `Data.Riak.Proto` + * 0.24.0.0 - Regenerate protobuf for protocol-buffers 2.4.12. (https://github.com/riak-haskell-client/riak-haskell-client/issues/115) + * 0.22.0.0 - Support for riak 2.* messages - No longer expected to work with riak <= 2 diff --git a/README.markdown b/README.markdown --- a/README.markdown +++ b/README.markdown @@ -3,17 +3,23 @@ This library is a set of Haskell types for the protocol buffers API to the [Riak](http://www.basho.com/Riak.html) decentralized data store. +# Generating `.hs` files + +Haskell modules are generated manually as follows: + +`./generate-proto.sh` + # Join in! We are happy to receive bug reports, fixes, documentation enhancements, and other improvements. Please report bugs via the -[github issue tracker](http://github.com/markhibberd/riak-haskell-client/issues). +[github issue tracker](http://github.com/riak-haskell-client/riak-haskell-client/issues). -Master [git repository](http://github.com/markhibberd/riak-haskell-client): +Master [git repository](http://github.com/riak-haskell-client/riak-haskell-client): -* `git clone git://github.com/markhibberd/riak-haskell-client.git` +* `git clone git://github.com/riak-haskell-client/riak-haskell-client.git` Authors ------- @@ -22,3 +28,5 @@ and subsequently maintained by Nathan Hunter . This project is now being maintained by Mark Hibberd (). + +Version `1.0.0` was contributed by Mitchell Rosen (). diff --git a/generate-proto.sh b/generate-proto.sh new file mode 100644 --- /dev/null +++ b/generate-proto.sh @@ -0,0 +1,15 @@ +#!/bin/sh + +OUTDIR=src-proto + +echo "Generating $OUTDIR/Proto/Riak.hs" +echo "Generating $OUTDIR/Proto/Riak_Fields.hs" + +echo 'syntax = "proto2";' > riak.proto +cat proto/*.proto >> riak.proto + +protoc \ + --plugin=protoc-gen-haskell=$(which proto-lens-protoc) \ + --haskell_out="$OUTDIR" riak.proto + +rm riak.proto diff --git a/proto.sh b/proto.sh deleted file mode 100644 --- a/proto.sh +++ /dev/null @@ -1,34 +0,0 @@ -#!/bin/bash - -protobuf=$((readlink $0 || printf $0) | xargs dirname) -SED=$(which gsed || which sed) - -if [[ -z "$protobuf" ]]; then - echo "error: don't know where we are!" 1>&2 - exit 1 -fi - -cd "$protobuf" - -hprotoc="$(which hprotoc)" - -if [[ -z "$hprotoc" ]]; then - echo "error: can't continue without hprotoc" 1>&2 - echo "to fix:" 1>&2 - echo 1>&2 - echo "cabal install hprotoc" 1>&2 - exit 1 -fi - -$SED -e 's/Rpb//g' -e 's/Req\>/Request/g' -e 's/Resp\>/Response/g' \ - -e 's/MapRedR/MapReduceR/g' -e 's/DelR/DeleteR/' -e 's/ClientId/ClientID/' \ - -e 's/GetServerInfoResponse/ServerInfo/g' \ - -e 's/MapReduceResponse/MapReduce/g' \ - -e '/java/Id' \ - -e 's/Yokozuna/Yz/' \ - -e '/import "riak.proto"/d' \ - src/riak.proto src/riak_kv.proto src/riak_dt.proto src/riak_yokozuna.proto src/riak_search.proto src/riak_ts.proto src/riakextra.proto > src/Protocol.proto - -(cd src && hprotoc -p Network.Riak Protocol.proto) - -rm src/Protocol.proto diff --git a/proto/riak.proto b/proto/riak.proto new file mode 100644 --- /dev/null +++ b/proto/riak.proto @@ -0,0 +1,159 @@ +/* ------------------------------------------------------------------- + * riak.proto: Protocol buffers for Riak + * ------------------------------------------------------------------- + * + * NOTE: IMPORTANT + * Any change to the definitions in this file REQUIRES the following + * steps after: + * + * # Re-generate erlang source from changed .proto files: + * make erl_protogen + * + * # Commit changed files: + * git add -A; git commit -m 'Update erlang code from .proto files' + */ + +// Java package specifiers +// option java_package = "com.basho.riak.protobuf"; +// option java_outer_classname = "RiakPB"; + +// Error response - may be generated for any Req +message RpbErrorResp { + required bytes errmsg = 1; + required uint32 errcode = 2; +} + +// Get server info request - no message defined, just send RpbGetServerInfoReq message code +message RpbGetServerInfoResp { + optional bytes node = 1; + optional bytes server_version = 2; +} + +// Key/value pair - used for user metadata, indexes, search doc fields +message RpbPair { + required bytes key = 1; + optional bytes value = 2; +} + + +// Get bucket properties request +message RpbGetBucketReq { + required bytes bucket = 1; + optional bytes type = 2; +} + +// Get bucket properties response +message RpbGetBucketResp { + required RpbBucketProps props = 1; +} + +// Set bucket properties request +message RpbSetBucketReq { + required bytes bucket = 1; + required RpbBucketProps props = 2; + optional bytes type = 3; +} + +// Set bucket properties response - no message defined, just send +// RpbSetBucketResp + +// Reset bucket properties request +message RpbResetBucketReq { + required bytes bucket = 1; + optional bytes type = 2; +} + +// Get bucket properties request +message RpbGetBucketTypeReq { + required bytes type = 1; +} + +// Set bucket properties request +message RpbSetBucketTypeReq { + required bytes type = 1; + required RpbBucketProps props = 2; +} + +// Set bucket properties response - no message defined, just send +// RpbSetBucketResp + +// Module-Function pairs for commit hooks and other bucket properties +// that take functions +message RpbModFun { + required bytes module = 1; + required bytes function = 2; +} + +// A commit hook, which may either be a modfun or a JavaScript named +// function +message RpbCommitHook { + optional RpbModFun modfun = 1; + optional bytes name = 2; +} + +// Bucket properties +message RpbBucketProps { + // Declared in riak_core_app + optional uint32 n_val = 1; + optional bool allow_mult = 2; + optional bool last_write_wins = 3; + repeated RpbCommitHook precommit = 4; + optional bool has_precommit = 5 [default = false]; + repeated RpbCommitHook postcommit = 6; + optional bool has_postcommit = 7 [default = false]; + optional RpbModFun chash_keyfun = 8; + + // Declared in riak_kv_app + optional RpbModFun linkfun = 9; + optional uint32 old_vclock = 10; + optional uint32 young_vclock = 11; + optional uint32 big_vclock = 12; + optional uint32 small_vclock = 13; + optional uint32 pr = 14; + optional uint32 r = 15; + optional uint32 w = 16; + optional uint32 pw = 17; + optional uint32 dw = 18; + optional uint32 rw = 19; + optional bool basic_quorum = 20; + optional bool notfound_ok = 21; + + // Used by riak_kv_multi_backend + optional bytes backend = 22; + + // Used by riak_search bucket fixup + optional bool search = 23; + + // Used by riak_repl bucket fixup + enum RpbReplMode { + FALSE = 0; + REALTIME = 1; + FULLSYNC = 2; + TRUE = 3; + } + optional RpbReplMode repl = 24; + + // Search index + optional bytes search_index = 25; + + // KV Datatypes + optional bytes datatype = 26; + + // KV strong consistency + optional bool consistent = 27; + + // KV fast path + optional bool write_once = 28; + + // Hyperlolog DT Precision + optional uint32 hll_precision = 29; + + // KV sweeper object expiry time + optional uint32 ttl = 30; +} + +// Authentication request +message RpbAuthReq { + required bytes user = 1; + required bytes password = 2; +} diff --git a/proto/riak_dt.proto b/proto/riak_dt.proto new file mode 100644 --- /dev/null +++ b/proto/riak_dt.proto @@ -0,0 +1,274 @@ +/* ------------------------------------------------------------------- + * riak_dt.proto: Protocol buffers for Riak CRDTs + * ------------------------------------------------------------------- + * + * NOTE: IMPORTANT + * Any change to the definitions in this file REQUIRES the following + * steps after: + * + * # Re-generate erlang source from changed .proto files: + * make erl_protogen + * + * # Commit changed files: + * git add -A; git commit -m 'Update erlang code from .proto files' + */ + +// Java package specifiers +// option java_package = "com.basho.riak.protobuf"; +// option java_outer_classname = "RiakDtPB"; + +/* + * =============== DATA STRUCTURES ================= + */ + +/* + * Field names in maps are composed of a binary identifier and a type. + * This is so that two clients can create fields with the same name + * but different types, and they converge independently. + */ +message MapField { + /* + * The types that can be stored in a map are limited to counters, + * sets, registers, flags, and maps. + */ + enum MapFieldType { + COUNTER = 1; + SET = 2; + REGISTER = 3; + FLAG = 4; + MAP = 5; + } + + required bytes name = 1; + required MapFieldType type = 2; +} + + +/* + * An entry in a map is a pair of a field-name and value. The type + * defined in the field determines which value type is expected. + */ +message MapEntry { + required MapField field = 1; + optional sint64 counter_value = 2; + repeated bytes set_value = 3; + optional bytes register_value = 4; + optional bool flag_value = 5; + repeated MapEntry map_value = 6; +} + +/* + * =============== FETCH ================= + */ + +/* + * The equivalent of KV's "RpbGetReq", results in a DtFetchResp. The + * request-time options are limited to ones that are relevant to + * structured data-types. + */ +message DtFetchReq { + // The identifier: bucket, key and bucket-type + required bytes bucket = 1; + required bytes key = 2; + required bytes type = 3; + + // Request options + optional uint32 r = 4; + optional uint32 pr = 5; + optional bool basic_quorum = 6; + optional bool notfound_ok = 7; + optional uint32 timeout = 8; + optional bool sloppy_quorum = 9; // Experimental, may change/disappear + optional uint32 n_val = 10; // Experimental, may change/disappear + + // For read-only requests or context-free operations, you can set + // this to false to reduce the size of the response payload. + optional bool include_context = 11 [default=true]; +} + + +/* + * The value of the fetched data type. If present in the response, + * then empty values (sets, maps) should be treated as such. + */ +message DtValue { + optional sint64 counter_value = 1; + repeated bytes set_value = 2; + repeated MapEntry map_value = 3; + /* We return an estimated cardinality of the Hyperloglog set + * on fetch. + */ + optional uint64 hll_value = 4; + repeated bytes gset_value = 5; +} + + +/* + * The response to a "Fetch" request. If the `include_context` option + * is specified, an opaque "context" value will be returned along with + * the user-friendly data. When sending an "Update" request, the + * client should send this context as well, similar to how one would + * send a vclock for KV updates. The `type` field indicates which + * value type to expect. When the `value` field is missing from the + * message, the client should interpret it as a "not found". + */ +message DtFetchResp { + enum DataType { + COUNTER = 1; + SET = 2; + MAP = 3; + HLL = 4; + GSET = 5; + } + + optional bytes context = 1; + required DataType type = 2; + optional DtValue value = 3; +} + +/* + * =============== UPDATE ================= + */ + +/* + * An operation to update a Counter, either on its own or inside a + * Map. The `increment` field can be positive or negative. When absent, + * the meaning is an increment by 1. + */ +message CounterOp { + optional sint64 increment = 1; +} + +/* + * An operation to update a Set, either on its own or inside a Map. + * Set members are opaque binary values, you can only add or remove + * them from a Set. + */ +message SetOp { + repeated bytes adds = 1; + repeated bytes removes = 2; +} + +/* + * An operation to update a GSet, on its own. + * GSet members are opaque binary values, you can only add + * them to a Set. + */ +message GSetOp { + repeated bytes adds = 1; +} + +/* + * An operation to update a Hyperloglog Set, a top-level DT. + * You can only add to a HllSet. + */ +message HllOp { + repeated bytes adds = 1; +} + +/* + * An operation to be applied to a value stored in a Map -- the + * contents of an UPDATE operation. The operation field that is + * present depends on the type of the field to which it is applied. + */ +message MapUpdate { + /* + * Flags only exist inside Maps and can only be enabled or + * disabled, and there are no arguments to the operations. + */ + enum FlagOp { + ENABLE = 1; + DISABLE = 2; + } + + required MapField field = 1; + + optional CounterOp counter_op = 2; + optional SetOp set_op = 3; + + /* + * There is only one operation on a register, which is to set its + * value, therefore the "operation" is the new value. + */ + optional bytes register_op = 4; + optional FlagOp flag_op = 5; + optional MapOp map_op = 6; + +} + +/* + * An operation to update a Map. All operations apply to individual + * fields in the Map. + */ +message MapOp { + /* + * REMOVE removes a field and value from the Map. + * UPDATE applies type-specific + * operations to the values stored in the Map. + */ + repeated MapField removes = 1; + repeated MapUpdate updates = 2; +} + +/* + * A "union" type for update operations. The included operation + * depends on the datatype being updated. + */ +message DtOp { + optional CounterOp counter_op = 1; + optional SetOp set_op = 2; + optional MapOp map_op = 3; + /* Adding values to a hyperloglog (set) is just like adding values + * to a set. + */ + optional HllOp hll_op = 4; + optional GSetOp gset_op = 5; +} + +/* + * The equivalent of KV's "RpbPutReq", results in an empty response or + * "DtUpdateResp" if `return_body` is specified, or the key is + * assigned by the server. The request-time options are limited to + * ones that are relevant to structured data-types. + */ +message DtUpdateReq { + // The identifier + required bytes bucket = 1; + optional bytes key = 2; // missing key results in server-assigned key, like KV + required bytes type = 3; // bucket type, not data-type (but the data-type is constrained per bucket-type) + + // Opaque update-context + optional bytes context = 4; + + // The operations + required DtOp op = 5; + + // Request options + optional uint32 w = 6; + optional uint32 dw = 7; + optional uint32 pw = 8; + optional bool return_body = 9 [default=false]; + optional uint32 timeout = 10; + optional bool sloppy_quorum = 11; // Experimental, may change/disappear + optional uint32 n_val = 12; // Experimental, may change/disappear + optional bool include_context = 13 [default=true]; // When return_body is true, should the context be returned too? +} + + +/* + * The equivalent of KV's "RpbPutResp", contains the assigned key if + * it was assigned by the server, and the resulting value and context + * if return_body was set. + */ +message DtUpdateResp { + // The key, if assigned by the server + optional bytes key = 1; + + // The opaque update context and value, if return_body was set. + optional bytes context = 2; + optional sint64 counter_value = 3; + repeated bytes set_value = 4; + repeated MapEntry map_value = 5; + optional uint64 hll_value = 6; + repeated bytes gset_value = 7; +} diff --git a/proto/riak_extra.proto b/proto/riak_extra.proto new file mode 100644 --- /dev/null +++ b/proto/riak_extra.proto @@ -0,0 +1,10 @@ +// Extra protobuf messages for payloads that consist only of a message code + +message RpbAuthResp { } +message RpbDelResp { } +message RpbGetClientIdReq { } +message RpbGetServerInfoReq { } +message RpbPingReq { } +message RpbPingResp { } +message RpbResetBucketResp { } +message RpbSetBucketResp { } diff --git a/proto/riak_kv.proto b/proto/riak_kv.proto new file mode 100644 --- /dev/null +++ b/proto/riak_kv.proto @@ -0,0 +1,318 @@ +/* ------------------------------------------------------------------- + * riak_kv.proto: Protocol buffers for Riak KV + * ------------------------------------------------------------------- + * + * NOTE: IMPORTANT + * Any change to the definitions in this file REQUIRES the following + * steps after: + * + * # Re-generate erlang source from changed .proto files: + * make erl_protogen + * + * # Commit changed files: + * git add -A; git commit -m 'Update erlang code from .proto files' + */ + +// Java package specifiers +// option java_package = "com.basho.riak.protobuf"; +// option java_outer_classname = "RiakKvPB"; + +// import "riak.proto"; // for RpbPair + +// Get ClientId Request - no message defined, just send RpbGetClientIdReq message code +message RpbGetClientIdResp { + required bytes client_id = 1; // Client id in use for this connection +} + +message RpbSetClientIdReq { + required bytes client_id = 1; // Client id to use for this connection +} +// Set ClientId Request - no message defined, just send RpbSetClientIdReq message code + + +// Get Request - retrieve bucket/key +message RpbGetReq { + required bytes bucket = 1; + required bytes key = 2; + optional uint32 r = 3; + optional uint32 pr = 4; + optional bool basic_quorum = 5; + optional bool notfound_ok = 6; + optional bytes if_modified = 7; // fail if the supplied vclock does not match + optional bool head = 8; // return everything but the value + optional bool deletedvclock = 9; // return the tombstone's vclock, if applicable + optional uint32 timeout = 10; + optional bool sloppy_quorum = 11; // Experimental, may change/disappear + optional uint32 n_val = 12; // Experimental, may change/disappear + optional bytes type = 13; // Bucket type, if not set we assume the 'default' type +} + +// Get Response - if the record was not found there will be no content/vclock +message RpbGetResp { + repeated RpbContent content = 1; + optional bytes vclock = 2; // the opaque vector clock for the object + optional bool unchanged = 3; +} + + +// Put request - if options.return_body is set then the updated metadata/data for +// the key will be returned. +message RpbPutReq { + required bytes bucket = 1; + optional bytes key = 2; + optional bytes vclock = 3; + required RpbContent content = 4; + optional uint32 w = 5; + optional uint32 dw = 6; + optional bool return_body = 7; + optional uint32 pw = 8; + optional bool if_not_modified = 9; + optional bool if_none_match = 10; + optional bool return_head = 11; + optional uint32 timeout = 12; + optional bool asis = 13; + optional bool sloppy_quorum = 14; // Experimental, may change/disappear + optional uint32 n_val = 15; // Experimental, may change/disappear + optional bytes type = 16; // Bucket type, if not set we assume the 'default' type +} + +// Put response - same as get response with optional key if one was generated +message RpbPutResp { + repeated RpbContent content = 1; + optional bytes vclock = 2; // the opaque vector clock for the object + optional bytes key = 3; // the key generated, if any +} + + +// Delete request +message RpbDelReq { + required bytes bucket = 1; + required bytes key = 2; + optional uint32 rw = 3; + optional bytes vclock = 4; + optional uint32 r = 5; + optional uint32 w = 6; + optional uint32 pr = 7; + optional uint32 pw = 8; + optional uint32 dw = 9; + optional uint32 timeout = 10; + optional bool sloppy_quorum = 11; // Experimental, may change/disappear + optional uint32 n_val = 12; // Experimental, may change/disappear + optional bytes type = 13; // Bucket type, if not set we assume the 'default' type +} + +// Delete response - not defined, will return a RpbDelResp on success or RpbErrorResp on failure + +// List buckets request +message RpbListBucketsReq { + optional uint32 timeout = 1; + optional bool stream = 2; + optional bytes type = 3; // Bucket type, if not set we assume the 'default' type +} + +// List buckets response - one or more of these packets will be sent +// the last one will have done set true (and may not have any buckets in it) +message RpbListBucketsResp { + repeated bytes buckets = 1; + optional bool done = 2; +} + + +// List keys in bucket request +message RpbListKeysReq { + required bytes bucket = 1; + optional uint32 timeout = 2; + optional bytes type = 3; // Bucket type, if not set we assume the 'default' type +} + +// List keys in bucket response - one or more of these packets will be sent +// the last one will have done set true (and may not have any keys in it) +message RpbListKeysResp { + repeated bytes keys = 1; + optional bool done = 2; +} + + +// Map/Reduce request +message RpbMapRedReq { + required bytes request = 1; + required bytes content_type = 2; +} + +// Map/Reduce response +// one or more of these packets will be sent the last one will have done set +// true (and may not have phase/data in it) +message RpbMapRedResp { + optional uint32 phase = 1; + optional bytes response = 2; + optional bool done = 3; +} + +// Secondary Index query request +message RpbIndexReq { + enum IndexQueryType { + eq = 0; + range = 1; + } + + required bytes bucket = 1; + required bytes index = 2; + required IndexQueryType qtype = 3; + optional bytes key = 4; // key here means equals value for index? + optional bytes range_min = 5; + optional bytes range_max = 6; + optional bool return_terms = 7; + optional bool stream = 8; + optional uint32 max_results = 9; + optional bytes continuation = 10; + optional uint32 timeout = 11; + optional bytes type = 12; // Bucket type, if not set we assume the 'default' type + optional bytes term_regex = 13; + // Whether to use pagination sort for non-paginated queries + optional bool pagination_sort = 14; + // parallel extraction extension + optional bytes cover_context = 15; // chopped up coverage plan per-req + optional bool return_body = 16; // Return values with keys, only works with $bucket/$key index queries + +} + +// Secondary Index query response +message RpbIndexResp { + repeated bytes keys = 1; + repeated RpbPair results = 2; + optional bytes continuation = 3; + optional bool done = 4; +} + +// Stolen from CS bucket response, to be used when return_body=true +message RpbIndexBodyResp { + repeated RpbIndexObject objects = 1; + optional bytes continuation = 2; + optional bool done = 3; +} + +// added solely for riak_cs currently +// for folding over a bucket and returning +// objects. +message RpbCSBucketReq { + required bytes bucket = 1; + required bytes start_key = 2; + optional bytes end_key = 3; + optional bool start_incl = 4 [default = true]; + optional bool end_incl = 5 [default = false]; + optional bytes continuation = 6; + optional uint32 max_results = 7; + optional uint32 timeout = 8; + optional bytes type = 9; // Bucket type, if not set we assume the 'default' type + // parallel extraction extension + optional bytes cover_context = 10; // chopped up coverage plan per-req +} + +// return for CS bucket fold +message RpbCSBucketResp { + repeated RpbIndexObject objects = 1; + optional bytes continuation = 2; + optional bool done = 3; +} + +message RpbIndexObject { + required bytes key = 1; + required RpbGetResp object = 2; +} + +// Content message included in get/put responses +// Holds the value and associated metadata +message RpbContent { + required bytes value = 1; + optional bytes content_type = 2; // the media type/format + optional bytes charset = 3; + optional bytes content_encoding = 4; + optional bytes vtag = 5; + repeated RpbLink links = 6; // links to other resources + optional uint32 last_mod = 7; + optional uint32 last_mod_usecs = 8; + repeated RpbPair usermeta = 9; // user metadata stored with the object + repeated RpbPair indexes = 10; // user metadata stored with the object + optional bool deleted = 11; + optional uint32 ttl = 12; +} + +// Link metadata +message RpbLink { + optional bytes bucket = 1; + optional bytes key = 2; + optional bytes tag = 3; +} + +// Counter update request +message RpbCounterUpdateReq { + required bytes bucket = 1; + required bytes key = 2; + required sint64 amount = 3; + optional uint32 w = 4; + optional uint32 dw = 5; + optional uint32 pw = 6; + optional bool returnvalue = 7; +} + +// Counter update response? No message | error response +message RpbCounterUpdateResp { + optional sint64 value = 1; +} + +// counter value +message RpbCounterGetReq { + required bytes bucket = 1; + required bytes key = 2; + optional uint32 r = 3; + optional uint32 pr = 4; + optional bool basic_quorum = 5; + optional bool notfound_ok = 6; +} + +// Counter value response +message RpbCounterGetResp { + optional sint64 value = 1; +} + +// Get bucket-key preflist request +message RpbGetBucketKeyPreflistReq { + required bytes bucket = 1; + required bytes key = 2; + optional bytes type = 3; +} + +// Get bucket-key preflist response +message RpbGetBucketKeyPreflistResp { + repeated RpbBucketKeyPreflistItem preflist = 1; +} + +// Preflist item +message RpbBucketKeyPreflistItem { + required int64 partition = 1; + required bytes node = 2; + required bool primary = 3; +} + + +// Request a segmented coverage plan for the specified bucket +message RpbCoverageReq { + optional bytes type = 1; // Bucket type, if not set we assume the 'default' type + required bytes bucket = 2; + optional uint32 min_partitions = 3; // If undefined, we build a normal coverage plan. If =1.8 -tested-with: GHC==8.4.4, GHC==8.2.2, GHC==8.0.2 + README.markdown + generate-proto.sh + proto/riak.proto + proto/riak_dt.proto + proto/riak_extra.proto + proto/riak_kv.proto + proto/riak_search.proto + proto/riak_ts.proto + proto/riak_yokozuna.proto +cabal-version: >=1.10 +tested-with: GHC==8.4.4, GHC==8.2.2, GHC == 8.6.3, GHC == 8.8.4, GHC==8.10.4 library - hs-source-dirs: src + default-language: Haskell2010 + hs-source-dirs: + src, + src-proto exposed-modules: - Network.Riak.Protocol.AuthRequest - Network.Riak.Protocol.BucketKeyPreflistItem - Network.Riak.Protocol.BucketProps - Network.Riak.Protocol.BucketProps.ReplMode - Network.Riak.Protocol.CommitHook - Network.Riak.Protocol.Content - Network.Riak.Protocol.CounterGetRequest - Network.Riak.Protocol.CounterGetResponse - Network.Riak.Protocol.CounterOp - Network.Riak.Protocol.CounterUpdateRequest - Network.Riak.Protocol.CounterUpdateResponse - Network.Riak.Protocol.CSBucketRequest - Network.Riak.Protocol.CSBucketResponse - Network.Riak.Protocol.DeleteRequest - Network.Riak.Protocol.DtFetchRequest - Network.Riak.Protocol.DtFetchResponse.DataType - Network.Riak.Protocol.DtFetchResponse - Network.Riak.Protocol.DtOp - Network.Riak.Protocol.DtUpdateRequest - Network.Riak.Protocol.DtUpdateResponse - Network.Riak.Protocol.DtValue - Network.Riak.Protocol.ErrorResponse - Network.Riak.Protocol.GetBucketKeyPreflistRequest - Network.Riak.Protocol.GetBucketKeyPreflistResponse - Network.Riak.Protocol.GetBucketRequest - Network.Riak.Protocol.GetBucketResponse - Network.Riak.Protocol.GetBucketTypeRequest - Network.Riak.Protocol.GetClientIDRequest - Network.Riak.Protocol.GetClientIDResponse - Network.Riak.Protocol.GetRequest - Network.Riak.Protocol.GetResponse - Network.Riak.Protocol.GetServerInfoRequest - Network.Riak.Protocol.IndexObject - Network.Riak.Protocol.IndexRequest - Network.Riak.Protocol.IndexRequest.IndexQueryType - Network.Riak.Protocol.IndexResponse - Network.Riak.Protocol.Link - Network.Riak.Protocol.ListBucketsRequest - Network.Riak.Protocol.ListBucketsResponse - Network.Riak.Protocol.ListKeysRequest - Network.Riak.Protocol.ListKeysResponse - Network.Riak.Protocol.MapEntry - Network.Riak.Protocol.MapField - Network.Riak.Protocol.MapField.MapFieldType - Network.Riak.Protocol.MapOp - Network.Riak.Protocol.MapReduce - Network.Riak.Protocol.MapReduceRequest - Network.Riak.Protocol.MapUpdate.FlagOp - Network.Riak.Protocol.MapUpdate - Network.Riak.Protocol.ModFun - Network.Riak.Protocol.Pair - Network.Riak.Protocol.PingRequest - Network.Riak.Protocol.PutRequest - Network.Riak.Protocol.PutResponse - Network.Riak.Protocol.ResetBucketRequest - Network.Riak.Protocol.SearchDoc - Network.Riak.Protocol.SearchQueryRequest - Network.Riak.Protocol.SearchQueryResponse - Network.Riak.Protocol.ServerInfo - Network.Riak.Protocol.SetBucketRequest - Network.Riak.Protocol.SetBucketTypeRequest - Network.Riak.Protocol.SetClientIDRequest - Network.Riak.Protocol.SetOp - Network.Riak.Protocol.TsCell - Network.Riak.Protocol.TsColumnDescription - Network.Riak.Protocol.TsColumnType - Network.Riak.Protocol.TsCoverageEntry - Network.Riak.Protocol.TsCoverageRequest - Network.Riak.Protocol.TsCoverageResponse - Network.Riak.Protocol.TsDeleteRequest - Network.Riak.Protocol.TsDeleteResponse - Network.Riak.Protocol.TsGetRequest - Network.Riak.Protocol.TsGetResponse - Network.Riak.Protocol.TsInterpolation - Network.Riak.Protocol.TsListKeysRequest - Network.Riak.Protocol.TsListKeysResponse - Network.Riak.Protocol.TsPutRequest - Network.Riak.Protocol.TsPutResponse - Network.Riak.Protocol.TsQueryRequest - Network.Riak.Protocol.TsQueryResponse - Network.Riak.Protocol.TsRange - Network.Riak.Protocol.TsRow - Network.Riak.Protocol.YzIndexDeleteRequest - Network.Riak.Protocol.YzIndexGetRequest - Network.Riak.Protocol.YzIndexGetResponse - Network.Riak.Protocol.YzIndex - Network.Riak.Protocol.YzIndexPutRequest - Network.Riak.Protocol.YzSchemaGetRequest - Network.Riak.Protocol.YzSchemaGetResponse - Network.Riak.Protocol.YzSchema - Network.Riak.Protocol.YzSchemaPutRequest + Data.Riak.Proto other-modules: - Network.Riak.Protocol + Proto.Riak + Proto.Riak_Fields build-depends: - array >= 0.4, base == 4.*, - parsec >= 3, - protocol-buffers >= 2.2.0 && < 2.5, - protocol-buffers-descriptor >= 2.2.0 && < 2.5 + proto-lens == 0.7.*, + proto-lens-runtime == 0.7.* - ghc-options: -Wall -fno-warn-orphans -fno-warn-unused-matches + default-extensions: + DoAndIfThenElse source-repository head type: git diff --git a/src-proto/Proto/Riak.hs b/src-proto/Proto/Riak.hs new file mode 100644 --- /dev/null +++ b/src-proto/Proto/Riak.hs @@ -0,0 +1,30055 @@ +{- This file was auto-generated from riak.proto by the proto-lens-protoc program. -} +{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} +{-# OPTIONS_GHC -Wno-unused-imports#-} +{-# OPTIONS_GHC -Wno-duplicate-exports#-} +{-# OPTIONS_GHC -Wno-dodgy-exports#-} +module Proto.Riak ( + CounterOp(), DtFetchReq(), DtFetchResp(), DtFetchResp'DataType(..), + DtFetchResp'DataType(), DtOp(), DtUpdateReq(), DtUpdateResp(), + DtValue(), GSetOp(), HllOp(), MapEntry(), MapField(), + MapField'MapFieldType(..), MapField'MapFieldType(), MapOp(), + MapUpdate(), MapUpdate'FlagOp(..), MapUpdate'FlagOp(), + RpbAuthReq(), RpbAuthResp(), RpbBucketKeyPreflistItem(), + RpbBucketProps(), RpbBucketProps'RpbReplMode(..), + RpbBucketProps'RpbReplMode(), RpbCSBucketReq(), RpbCSBucketResp(), + RpbCommitHook(), RpbContent(), RpbCounterGetReq(), + RpbCounterGetResp(), RpbCounterUpdateReq(), RpbCounterUpdateResp(), + RpbCoverageEntry(), RpbCoverageReq(), RpbCoverageResp(), + RpbDelReq(), RpbDelResp(), RpbErrorResp(), + RpbGetBucketKeyPreflistReq(), RpbGetBucketKeyPreflistResp(), + RpbGetBucketReq(), RpbGetBucketResp(), RpbGetBucketTypeReq(), + RpbGetClientIdReq(), RpbGetClientIdResp(), RpbGetReq(), + RpbGetResp(), RpbGetServerInfoReq(), RpbGetServerInfoResp(), + RpbIndexBodyResp(), RpbIndexObject(), RpbIndexReq(), + RpbIndexReq'IndexQueryType(..), RpbIndexReq'IndexQueryType(), + RpbIndexResp(), RpbLink(), RpbListBucketsReq(), + RpbListBucketsResp(), RpbListKeysReq(), RpbListKeysResp(), + RpbMapRedReq(), RpbMapRedResp(), RpbModFun(), RpbPair(), + RpbPingReq(), RpbPingResp(), RpbPutReq(), RpbPutResp(), + RpbResetBucketReq(), RpbResetBucketResp(), RpbSearchDoc(), + RpbSearchQueryReq(), RpbSearchQueryResp(), RpbSetBucketReq(), + RpbSetBucketResp(), RpbSetBucketTypeReq(), RpbSetClientIdReq(), + RpbYokozunaIndex(), RpbYokozunaIndexDeleteReq(), + RpbYokozunaIndexGetReq(), RpbYokozunaIndexGetResp(), + RpbYokozunaIndexPutReq(), RpbYokozunaSchema(), + RpbYokozunaSchemaGetReq(), RpbYokozunaSchemaGetResp(), + RpbYokozunaSchemaPutReq(), SetOp(), TsCell(), + TsColumnDescription(), TsColumnType(..), TsColumnType(), + TsCoverageEntry(), TsCoverageReq(), TsCoverageResp(), TsDelReq(), + TsDelResp(), TsGetReq(), TsGetResp(), TsInterpolation(), + TsListKeysReq(), TsListKeysResp(), TsPutReq(), TsPutResp(), + TsQueryReq(), TsQueryResp(), TsRange(), TsRow() + ) where +import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString +import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding +import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector +import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic +import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read +{- | Fields : + + * 'Proto.Riak_Fields.increment' @:: Lens' CounterOp Data.Int.Int64@ + * 'Proto.Riak_Fields.maybe'increment' @:: Lens' CounterOp (Prelude.Maybe Data.Int.Int64)@ -} +data CounterOp + = CounterOp'_constructor {_CounterOp'increment :: !(Prelude.Maybe Data.Int.Int64), + _CounterOp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CounterOp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CounterOp "increment" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CounterOp'increment + (\ x__ y__ -> x__ {_CounterOp'increment = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField CounterOp "maybe'increment" (Prelude.Maybe Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CounterOp'increment + (\ x__ y__ -> x__ {_CounterOp'increment = y__})) + Prelude.id +instance Data.ProtoLens.Message CounterOp where + messageName _ = Data.Text.pack "CounterOp" + packedMessageDescriptor _ + = "\n\ + \\tCounterOp\DC2\FS\n\ + \\tincrement\CAN\SOH \SOH(\DC2R\tincrement" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + increment__field_descriptor + = Data.ProtoLens.FieldDescriptor + "increment" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'increment")) :: + Data.ProtoLens.FieldDescriptor CounterOp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, increment__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CounterOp'_unknownFields + (\ x__ y__ -> x__ {_CounterOp'_unknownFields = y__}) + defMessage + = CounterOp'_constructor + {_CounterOp'increment = Prelude.Nothing, + _CounterOp'_unknownFields = []} + parseMessage + = let + loop :: CounterOp -> Data.ProtoLens.Encoding.Bytes.Parser CounterOp + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "increment" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"increment") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "CounterOp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'increment") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData CounterOp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CounterOp'_unknownFields x__) + (Control.DeepSeq.deepseq (_CounterOp'increment x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' DtFetchReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.key' @:: Lens' DtFetchReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.type'' @:: Lens' DtFetchReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.r' @:: Lens' DtFetchReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'r' @:: Lens' DtFetchReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.pr' @:: Lens' DtFetchReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'pr' @:: Lens' DtFetchReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.basicQuorum' @:: Lens' DtFetchReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'basicQuorum' @:: Lens' DtFetchReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.notfoundOk' @:: Lens' DtFetchReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'notfoundOk' @:: Lens' DtFetchReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.timeout' @:: Lens' DtFetchReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' DtFetchReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.sloppyQuorum' @:: Lens' DtFetchReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'sloppyQuorum' @:: Lens' DtFetchReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.nVal' @:: Lens' DtFetchReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'nVal' @:: Lens' DtFetchReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.includeContext' @:: Lens' DtFetchReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'includeContext' @:: Lens' DtFetchReq (Prelude.Maybe Prelude.Bool)@ -} +data DtFetchReq + = DtFetchReq'_constructor {_DtFetchReq'bucket :: !Data.ByteString.ByteString, + _DtFetchReq'key :: !Data.ByteString.ByteString, + _DtFetchReq'type' :: !Data.ByteString.ByteString, + _DtFetchReq'r :: !(Prelude.Maybe Data.Word.Word32), + _DtFetchReq'pr :: !(Prelude.Maybe Data.Word.Word32), + _DtFetchReq'basicQuorum :: !(Prelude.Maybe Prelude.Bool), + _DtFetchReq'notfoundOk :: !(Prelude.Maybe Prelude.Bool), + _DtFetchReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _DtFetchReq'sloppyQuorum :: !(Prelude.Maybe Prelude.Bool), + _DtFetchReq'nVal :: !(Prelude.Maybe Data.Word.Word32), + _DtFetchReq'includeContext :: !(Prelude.Maybe Prelude.Bool), + _DtFetchReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DtFetchReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DtFetchReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'bucket (\ x__ y__ -> x__ {_DtFetchReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchReq "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'key (\ x__ y__ -> x__ {_DtFetchReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'type' (\ x__ y__ -> x__ {_DtFetchReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchReq "r" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'r (\ x__ y__ -> x__ {_DtFetchReq'r = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtFetchReq "maybe'r" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'r (\ x__ y__ -> x__ {_DtFetchReq'r = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchReq "pr" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'pr (\ x__ y__ -> x__ {_DtFetchReq'pr = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtFetchReq "maybe'pr" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'pr (\ x__ y__ -> x__ {_DtFetchReq'pr = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchReq "basicQuorum" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'basicQuorum + (\ x__ y__ -> x__ {_DtFetchReq'basicQuorum = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtFetchReq "maybe'basicQuorum" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'basicQuorum + (\ x__ y__ -> x__ {_DtFetchReq'basicQuorum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchReq "notfoundOk" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'notfoundOk + (\ x__ y__ -> x__ {_DtFetchReq'notfoundOk = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtFetchReq "maybe'notfoundOk" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'notfoundOk + (\ x__ y__ -> x__ {_DtFetchReq'notfoundOk = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'timeout (\ x__ y__ -> x__ {_DtFetchReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtFetchReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'timeout (\ x__ y__ -> x__ {_DtFetchReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchReq "sloppyQuorum" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'sloppyQuorum + (\ x__ y__ -> x__ {_DtFetchReq'sloppyQuorum = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtFetchReq "maybe'sloppyQuorum" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'sloppyQuorum + (\ x__ y__ -> x__ {_DtFetchReq'sloppyQuorum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchReq "nVal" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'nVal (\ x__ y__ -> x__ {_DtFetchReq'nVal = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtFetchReq "maybe'nVal" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'nVal (\ x__ y__ -> x__ {_DtFetchReq'nVal = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchReq "includeContext" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'includeContext + (\ x__ y__ -> x__ {_DtFetchReq'includeContext = y__})) + (Data.ProtoLens.maybeLens Prelude.True) +instance Data.ProtoLens.Field.HasField DtFetchReq "maybe'includeContext" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchReq'includeContext + (\ x__ y__ -> x__ {_DtFetchReq'includeContext = y__})) + Prelude.id +instance Data.ProtoLens.Message DtFetchReq where + messageName _ = Data.Text.pack "DtFetchReq" + packedMessageDescriptor _ + = "\n\ + \\n\ + \DtFetchReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\DC2\n\ + \\EOTtype\CAN\ETX \STX(\fR\EOTtype\DC2\f\n\ + \\SOHr\CAN\EOT \SOH(\rR\SOHr\DC2\SO\n\ + \\STXpr\CAN\ENQ \SOH(\rR\STXpr\DC2!\n\ + \\fbasic_quorum\CAN\ACK \SOH(\bR\vbasicQuorum\DC2\US\n\ + \\vnotfound_ok\CAN\a \SOH(\bR\n\ + \notfoundOk\DC2\CAN\n\ + \\atimeout\CAN\b \SOH(\rR\atimeout\DC2#\n\ + \\rsloppy_quorum\CAN\t \SOH(\bR\fsloppyQuorum\DC2\DC3\n\ + \\ENQn_val\CAN\n\ + \ \SOH(\rR\EOTnVal\DC2-\n\ + \\SIinclude_context\CAN\v \SOH(\b:\EOTtrueR\SOincludeContext" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"type'")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + r__field_descriptor + = Data.ProtoLens.FieldDescriptor + "r" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'r")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + pr__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pr" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pr")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + basicQuorum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "basic_quorum" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'basicQuorum")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + notfoundOk__field_descriptor + = Data.ProtoLens.FieldDescriptor + "notfound_ok" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'notfoundOk")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + sloppyQuorum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "sloppy_quorum" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'sloppyQuorum")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + nVal__field_descriptor + = Data.ProtoLens.FieldDescriptor + "n_val" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'nVal")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + includeContext__field_descriptor + = Data.ProtoLens.FieldDescriptor + "include_context" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'includeContext")) :: + Data.ProtoLens.FieldDescriptor DtFetchReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, type'__field_descriptor), + (Data.ProtoLens.Tag 4, r__field_descriptor), + (Data.ProtoLens.Tag 5, pr__field_descriptor), + (Data.ProtoLens.Tag 6, basicQuorum__field_descriptor), + (Data.ProtoLens.Tag 7, notfoundOk__field_descriptor), + (Data.ProtoLens.Tag 8, timeout__field_descriptor), + (Data.ProtoLens.Tag 9, sloppyQuorum__field_descriptor), + (Data.ProtoLens.Tag 10, nVal__field_descriptor), + (Data.ProtoLens.Tag 11, includeContext__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DtFetchReq'_unknownFields + (\ x__ y__ -> x__ {_DtFetchReq'_unknownFields = y__}) + defMessage + = DtFetchReq'_constructor + {_DtFetchReq'bucket = Data.ProtoLens.fieldDefault, + _DtFetchReq'key = Data.ProtoLens.fieldDefault, + _DtFetchReq'type' = Data.ProtoLens.fieldDefault, + _DtFetchReq'r = Prelude.Nothing, _DtFetchReq'pr = Prelude.Nothing, + _DtFetchReq'basicQuorum = Prelude.Nothing, + _DtFetchReq'notfoundOk = Prelude.Nothing, + _DtFetchReq'timeout = Prelude.Nothing, + _DtFetchReq'sloppyQuorum = Prelude.Nothing, + _DtFetchReq'nVal = Prelude.Nothing, + _DtFetchReq'includeContext = Prelude.Nothing, + _DtFetchReq'_unknownFields = []} + parseMessage + = let + loop :: + DtFetchReq + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser DtFetchReq + loop x required'bucket required'key required'type' + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'bucket then (:) "bucket" else Prelude.id) + ((if required'key then (:) "key" else Prelude.id) + ((if required'type' then (:) "type" else Prelude.id) [])) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + required'key + required'type' + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + required'bucket + Prelude.False + required'type' + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + required'key + Prelude.False + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "r" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"r") y x) + required'bucket + required'key + required'type' + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "pr" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pr") y x) + required'bucket + required'key + required'type' + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "basic_quorum" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"basicQuorum") y x) + required'bucket + required'key + required'type' + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "notfound_ok" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"notfoundOk") y x) + required'bucket + required'key + required'type' + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'bucket + required'key + required'type' + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "sloppy_quorum" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"sloppyQuorum") y x) + required'bucket + required'key + required'type' + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "n_val" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nVal") y x) + required'bucket + required'key + required'type' + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "include_context" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"includeContext") y x) + required'bucket + required'key + required'type' + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + required'key + required'type' + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop + Data.ProtoLens.defMessage Prelude.True Prelude.True Prelude.True) + "DtFetchReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'r") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pr") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'basicQuorum") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'notfoundOk") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'sloppyQuorum") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'nVal") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'includeContext") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x)))))))))))) +instance Control.DeepSeq.NFData DtFetchReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DtFetchReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'bucket x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'key x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'type' x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'r x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'pr x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'basicQuorum x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'notfoundOk x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'timeout x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'sloppyQuorum x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'nVal x__) + (Control.DeepSeq.deepseq + (_DtFetchReq'includeContext x__) ()))))))))))) +{- | Fields : + + * 'Proto.Riak_Fields.context' @:: Lens' DtFetchResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'context' @:: Lens' DtFetchResp (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.type'' @:: Lens' DtFetchResp DtFetchResp'DataType@ + * 'Proto.Riak_Fields.value' @:: Lens' DtFetchResp DtValue@ + * 'Proto.Riak_Fields.maybe'value' @:: Lens' DtFetchResp (Prelude.Maybe DtValue)@ -} +data DtFetchResp + = DtFetchResp'_constructor {_DtFetchResp'context :: !(Prelude.Maybe Data.ByteString.ByteString), + _DtFetchResp'type' :: !DtFetchResp'DataType, + _DtFetchResp'value :: !(Prelude.Maybe DtValue), + _DtFetchResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DtFetchResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DtFetchResp "context" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchResp'context + (\ x__ y__ -> x__ {_DtFetchResp'context = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtFetchResp "maybe'context" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchResp'context + (\ x__ y__ -> x__ {_DtFetchResp'context = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchResp "type'" DtFetchResp'DataType where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchResp'type' (\ x__ y__ -> x__ {_DtFetchResp'type' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtFetchResp "value" DtValue where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchResp'value (\ x__ y__ -> x__ {_DtFetchResp'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DtFetchResp "maybe'value" (Prelude.Maybe DtValue) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtFetchResp'value (\ x__ y__ -> x__ {_DtFetchResp'value = y__})) + Prelude.id +instance Data.ProtoLens.Message DtFetchResp where + messageName _ = Data.Text.pack "DtFetchResp" + packedMessageDescriptor _ + = "\n\ + \\vDtFetchResp\DC2\CAN\n\ + \\acontext\CAN\SOH \SOH(\fR\acontext\DC2)\n\ + \\EOTtype\CAN\STX \STX(\SO2\NAK.DtFetchResp.DataTypeR\EOTtype\DC2\RS\n\ + \\ENQvalue\CAN\ETX \SOH(\v2\b.DtValueR\ENQvalue\"<\n\ + \\bDataType\DC2\v\n\ + \\aCOUNTER\DLE\SOH\DC2\a\n\ + \\ETXSET\DLE\STX\DC2\a\n\ + \\ETXMAP\DLE\ETX\DC2\a\n\ + \\ETXHLL\DLE\EOT\DC2\b\n\ + \\EOTGSET\DLE\ENQ" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + context__field_descriptor + = Data.ProtoLens.FieldDescriptor + "context" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'context")) :: + Data.ProtoLens.FieldDescriptor DtFetchResp + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor DtFetchResp'DataType) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"type'")) :: + Data.ProtoLens.FieldDescriptor DtFetchResp + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DtValue) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor DtFetchResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, context__field_descriptor), + (Data.ProtoLens.Tag 2, type'__field_descriptor), + (Data.ProtoLens.Tag 3, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DtFetchResp'_unknownFields + (\ x__ y__ -> x__ {_DtFetchResp'_unknownFields = y__}) + defMessage + = DtFetchResp'_constructor + {_DtFetchResp'context = Prelude.Nothing, + _DtFetchResp'type' = Data.ProtoLens.fieldDefault, + _DtFetchResp'value = Prelude.Nothing, + _DtFetchResp'_unknownFields = []} + parseMessage + = let + loop :: + DtFetchResp + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser DtFetchResp + loop x required'type' + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'type' then (:) "type" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "context" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"context") y x) + required'type' + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + Prelude.False + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + required'type' + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'type' + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) "DtFetchResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'context") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum + (Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData DtFetchResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DtFetchResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DtFetchResp'context x__) + (Control.DeepSeq.deepseq + (_DtFetchResp'type' x__) + (Control.DeepSeq.deepseq (_DtFetchResp'value x__) ()))) +data DtFetchResp'DataType + = DtFetchResp'COUNTER | + DtFetchResp'SET | + DtFetchResp'MAP | + DtFetchResp'HLL | + DtFetchResp'GSET + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum DtFetchResp'DataType where + maybeToEnum 1 = Prelude.Just DtFetchResp'COUNTER + maybeToEnum 2 = Prelude.Just DtFetchResp'SET + maybeToEnum 3 = Prelude.Just DtFetchResp'MAP + maybeToEnum 4 = Prelude.Just DtFetchResp'HLL + maybeToEnum 5 = Prelude.Just DtFetchResp'GSET + maybeToEnum _ = Prelude.Nothing + showEnum DtFetchResp'COUNTER = "COUNTER" + showEnum DtFetchResp'SET = "SET" + showEnum DtFetchResp'MAP = "MAP" + showEnum DtFetchResp'HLL = "HLL" + showEnum DtFetchResp'GSET = "GSET" + readEnum k + | (Prelude.==) k "COUNTER" = Prelude.Just DtFetchResp'COUNTER + | (Prelude.==) k "SET" = Prelude.Just DtFetchResp'SET + | (Prelude.==) k "MAP" = Prelude.Just DtFetchResp'MAP + | (Prelude.==) k "HLL" = Prelude.Just DtFetchResp'HLL + | (Prelude.==) k "GSET" = Prelude.Just DtFetchResp'GSET + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded DtFetchResp'DataType where + minBound = DtFetchResp'COUNTER + maxBound = DtFetchResp'GSET +instance Prelude.Enum DtFetchResp'DataType where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum DataType: " (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum DtFetchResp'COUNTER = 1 + fromEnum DtFetchResp'SET = 2 + fromEnum DtFetchResp'MAP = 3 + fromEnum DtFetchResp'HLL = 4 + fromEnum DtFetchResp'GSET = 5 + succ DtFetchResp'GSET + = Prelude.error + "DtFetchResp'DataType.succ: bad argument DtFetchResp'GSET. This value would be out of bounds." + succ DtFetchResp'COUNTER = DtFetchResp'SET + succ DtFetchResp'SET = DtFetchResp'MAP + succ DtFetchResp'MAP = DtFetchResp'HLL + succ DtFetchResp'HLL = DtFetchResp'GSET + pred DtFetchResp'COUNTER + = Prelude.error + "DtFetchResp'DataType.pred: bad argument DtFetchResp'COUNTER. This value would be out of bounds." + pred DtFetchResp'SET = DtFetchResp'COUNTER + pred DtFetchResp'MAP = DtFetchResp'SET + pred DtFetchResp'HLL = DtFetchResp'MAP + pred DtFetchResp'GSET = DtFetchResp'HLL + 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 DtFetchResp'DataType where + fieldDefault = DtFetchResp'COUNTER +instance Control.DeepSeq.NFData DtFetchResp'DataType where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Riak_Fields.counterOp' @:: Lens' DtOp CounterOp@ + * 'Proto.Riak_Fields.maybe'counterOp' @:: Lens' DtOp (Prelude.Maybe CounterOp)@ + * 'Proto.Riak_Fields.setOp' @:: Lens' DtOp SetOp@ + * 'Proto.Riak_Fields.maybe'setOp' @:: Lens' DtOp (Prelude.Maybe SetOp)@ + * 'Proto.Riak_Fields.mapOp' @:: Lens' DtOp MapOp@ + * 'Proto.Riak_Fields.maybe'mapOp' @:: Lens' DtOp (Prelude.Maybe MapOp)@ + * 'Proto.Riak_Fields.hllOp' @:: Lens' DtOp HllOp@ + * 'Proto.Riak_Fields.maybe'hllOp' @:: Lens' DtOp (Prelude.Maybe HllOp)@ + * 'Proto.Riak_Fields.gsetOp' @:: Lens' DtOp GSetOp@ + * 'Proto.Riak_Fields.maybe'gsetOp' @:: Lens' DtOp (Prelude.Maybe GSetOp)@ -} +data DtOp + = DtOp'_constructor {_DtOp'counterOp :: !(Prelude.Maybe CounterOp), + _DtOp'setOp :: !(Prelude.Maybe SetOp), + _DtOp'mapOp :: !(Prelude.Maybe MapOp), + _DtOp'hllOp :: !(Prelude.Maybe HllOp), + _DtOp'gsetOp :: !(Prelude.Maybe GSetOp), + _DtOp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DtOp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DtOp "counterOp" CounterOp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtOp'counterOp (\ x__ y__ -> x__ {_DtOp'counterOp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DtOp "maybe'counterOp" (Prelude.Maybe CounterOp) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtOp'counterOp (\ x__ y__ -> x__ {_DtOp'counterOp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtOp "setOp" SetOp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtOp'setOp (\ x__ y__ -> x__ {_DtOp'setOp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DtOp "maybe'setOp" (Prelude.Maybe SetOp) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtOp'setOp (\ x__ y__ -> x__ {_DtOp'setOp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtOp "mapOp" MapOp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtOp'mapOp (\ x__ y__ -> x__ {_DtOp'mapOp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DtOp "maybe'mapOp" (Prelude.Maybe MapOp) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtOp'mapOp (\ x__ y__ -> x__ {_DtOp'mapOp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtOp "hllOp" HllOp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtOp'hllOp (\ x__ y__ -> x__ {_DtOp'hllOp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DtOp "maybe'hllOp" (Prelude.Maybe HllOp) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtOp'hllOp (\ x__ y__ -> x__ {_DtOp'hllOp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtOp "gsetOp" GSetOp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtOp'gsetOp (\ x__ y__ -> x__ {_DtOp'gsetOp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DtOp "maybe'gsetOp" (Prelude.Maybe GSetOp) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtOp'gsetOp (\ x__ y__ -> x__ {_DtOp'gsetOp = y__})) + Prelude.id +instance Data.ProtoLens.Message DtOp where + messageName _ = Data.Text.pack "DtOp" + packedMessageDescriptor _ + = "\n\ + \\EOTDtOp\DC2)\n\ + \\n\ + \counter_op\CAN\SOH \SOH(\v2\n\ + \.CounterOpR\tcounterOp\DC2\GS\n\ + \\ACKset_op\CAN\STX \SOH(\v2\ACK.SetOpR\ENQsetOp\DC2\GS\n\ + \\ACKmap_op\CAN\ETX \SOH(\v2\ACK.MapOpR\ENQmapOp\DC2\GS\n\ + \\ACKhll_op\CAN\EOT \SOH(\v2\ACK.HllOpR\ENQhllOp\DC2 \n\ + \\agset_op\CAN\ENQ \SOH(\v2\a.GSetOpR\ACKgsetOp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + counterOp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "counter_op" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CounterOp) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'counterOp")) :: + Data.ProtoLens.FieldDescriptor DtOp + setOp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "set_op" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor SetOp) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'setOp")) :: + Data.ProtoLens.FieldDescriptor DtOp + mapOp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "map_op" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MapOp) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'mapOp")) :: + Data.ProtoLens.FieldDescriptor DtOp + hllOp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hll_op" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor HllOp) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hllOp")) :: + Data.ProtoLens.FieldDescriptor DtOp + gsetOp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gset_op" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor GSetOp) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'gsetOp")) :: + Data.ProtoLens.FieldDescriptor DtOp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, counterOp__field_descriptor), + (Data.ProtoLens.Tag 2, setOp__field_descriptor), + (Data.ProtoLens.Tag 3, mapOp__field_descriptor), + (Data.ProtoLens.Tag 4, hllOp__field_descriptor), + (Data.ProtoLens.Tag 5, gsetOp__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DtOp'_unknownFields + (\ x__ y__ -> x__ {_DtOp'_unknownFields = y__}) + defMessage + = DtOp'_constructor + {_DtOp'counterOp = Prelude.Nothing, _DtOp'setOp = Prelude.Nothing, + _DtOp'mapOp = Prelude.Nothing, _DtOp'hllOp = Prelude.Nothing, + _DtOp'gsetOp = Prelude.Nothing, _DtOp'_unknownFields = []} + parseMessage + = let + loop :: DtOp -> Data.ProtoLens.Encoding.Bytes.Parser DtOp + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "counter_op" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"counterOp") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "set_op" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"setOp") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "map_op" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"mapOp") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "hll_op" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hllOp") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "gset_op" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"gsetOp") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DtOp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'counterOp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'setOp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'mapOp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'hllOp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'gsetOp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData DtOp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DtOp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DtOp'counterOp x__) + (Control.DeepSeq.deepseq + (_DtOp'setOp x__) + (Control.DeepSeq.deepseq + (_DtOp'mapOp x__) + (Control.DeepSeq.deepseq + (_DtOp'hllOp x__) + (Control.DeepSeq.deepseq (_DtOp'gsetOp x__) ()))))) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' DtUpdateReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.key' @:: Lens' DtUpdateReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'key' @:: Lens' DtUpdateReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.type'' @:: Lens' DtUpdateReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.context' @:: Lens' DtUpdateReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'context' @:: Lens' DtUpdateReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.op' @:: Lens' DtUpdateReq DtOp@ + * 'Proto.Riak_Fields.w' @:: Lens' DtUpdateReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'w' @:: Lens' DtUpdateReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.dw' @:: Lens' DtUpdateReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'dw' @:: Lens' DtUpdateReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.pw' @:: Lens' DtUpdateReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'pw' @:: Lens' DtUpdateReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.returnBody' @:: Lens' DtUpdateReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'returnBody' @:: Lens' DtUpdateReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.timeout' @:: Lens' DtUpdateReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' DtUpdateReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.sloppyQuorum' @:: Lens' DtUpdateReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'sloppyQuorum' @:: Lens' DtUpdateReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.nVal' @:: Lens' DtUpdateReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'nVal' @:: Lens' DtUpdateReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.includeContext' @:: Lens' DtUpdateReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'includeContext' @:: Lens' DtUpdateReq (Prelude.Maybe Prelude.Bool)@ -} +data DtUpdateReq + = DtUpdateReq'_constructor {_DtUpdateReq'bucket :: !Data.ByteString.ByteString, + _DtUpdateReq'key :: !(Prelude.Maybe Data.ByteString.ByteString), + _DtUpdateReq'type' :: !Data.ByteString.ByteString, + _DtUpdateReq'context :: !(Prelude.Maybe Data.ByteString.ByteString), + _DtUpdateReq'op :: !DtOp, + _DtUpdateReq'w :: !(Prelude.Maybe Data.Word.Word32), + _DtUpdateReq'dw :: !(Prelude.Maybe Data.Word.Word32), + _DtUpdateReq'pw :: !(Prelude.Maybe Data.Word.Word32), + _DtUpdateReq'returnBody :: !(Prelude.Maybe Prelude.Bool), + _DtUpdateReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _DtUpdateReq'sloppyQuorum :: !(Prelude.Maybe Prelude.Bool), + _DtUpdateReq'nVal :: !(Prelude.Maybe Data.Word.Word32), + _DtUpdateReq'includeContext :: !(Prelude.Maybe Prelude.Bool), + _DtUpdateReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DtUpdateReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DtUpdateReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'bucket (\ x__ y__ -> x__ {_DtUpdateReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'key (\ x__ y__ -> x__ {_DtUpdateReq'key = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateReq "maybe'key" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'key (\ x__ y__ -> x__ {_DtUpdateReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'type' (\ x__ y__ -> x__ {_DtUpdateReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "context" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'context + (\ x__ y__ -> x__ {_DtUpdateReq'context = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateReq "maybe'context" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'context + (\ x__ y__ -> x__ {_DtUpdateReq'context = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "op" DtOp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'op (\ x__ y__ -> x__ {_DtUpdateReq'op = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "w" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'w (\ x__ y__ -> x__ {_DtUpdateReq'w = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateReq "maybe'w" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'w (\ x__ y__ -> x__ {_DtUpdateReq'w = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "dw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'dw (\ x__ y__ -> x__ {_DtUpdateReq'dw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateReq "maybe'dw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'dw (\ x__ y__ -> x__ {_DtUpdateReq'dw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "pw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'pw (\ x__ y__ -> x__ {_DtUpdateReq'pw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateReq "maybe'pw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'pw (\ x__ y__ -> x__ {_DtUpdateReq'pw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "returnBody" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'returnBody + (\ x__ y__ -> x__ {_DtUpdateReq'returnBody = y__})) + (Data.ProtoLens.maybeLens Prelude.False) +instance Data.ProtoLens.Field.HasField DtUpdateReq "maybe'returnBody" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'returnBody + (\ x__ y__ -> x__ {_DtUpdateReq'returnBody = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'timeout + (\ x__ y__ -> x__ {_DtUpdateReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'timeout + (\ x__ y__ -> x__ {_DtUpdateReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "sloppyQuorum" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'sloppyQuorum + (\ x__ y__ -> x__ {_DtUpdateReq'sloppyQuorum = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateReq "maybe'sloppyQuorum" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'sloppyQuorum + (\ x__ y__ -> x__ {_DtUpdateReq'sloppyQuorum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "nVal" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'nVal (\ x__ y__ -> x__ {_DtUpdateReq'nVal = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateReq "maybe'nVal" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'nVal (\ x__ y__ -> x__ {_DtUpdateReq'nVal = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateReq "includeContext" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'includeContext + (\ x__ y__ -> x__ {_DtUpdateReq'includeContext = y__})) + (Data.ProtoLens.maybeLens Prelude.True) +instance Data.ProtoLens.Field.HasField DtUpdateReq "maybe'includeContext" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateReq'includeContext + (\ x__ y__ -> x__ {_DtUpdateReq'includeContext = y__})) + Prelude.id +instance Data.ProtoLens.Message DtUpdateReq where + messageName _ = Data.Text.pack "DtUpdateReq" + packedMessageDescriptor _ + = "\n\ + \\vDtUpdateReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2\DC2\n\ + \\EOTtype\CAN\ETX \STX(\fR\EOTtype\DC2\CAN\n\ + \\acontext\CAN\EOT \SOH(\fR\acontext\DC2\NAK\n\ + \\STXop\CAN\ENQ \STX(\v2\ENQ.DtOpR\STXop\DC2\f\n\ + \\SOHw\CAN\ACK \SOH(\rR\SOHw\DC2\SO\n\ + \\STXdw\CAN\a \SOH(\rR\STXdw\DC2\SO\n\ + \\STXpw\CAN\b \SOH(\rR\STXpw\DC2&\n\ + \\vreturn_body\CAN\t \SOH(\b:\ENQfalseR\n\ + \returnBody\DC2\CAN\n\ + \\atimeout\CAN\n\ + \ \SOH(\rR\atimeout\DC2#\n\ + \\rsloppy_quorum\CAN\v \SOH(\bR\fsloppyQuorum\DC2\DC3\n\ + \\ENQn_val\CAN\f \SOH(\rR\EOTnVal\DC2-\n\ + \\SIinclude_context\CAN\r \SOH(\b:\EOTtrueR\SOincludeContext" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'key")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"type'")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + context__field_descriptor + = Data.ProtoLens.FieldDescriptor + "context" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'context")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + op__field_descriptor + = Data.ProtoLens.FieldDescriptor + "op" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DtOp) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"op")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + w__field_descriptor + = Data.ProtoLens.FieldDescriptor + "w" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'w")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + dw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "dw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'dw")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + pw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pw")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + returnBody__field_descriptor + = Data.ProtoLens.FieldDescriptor + "return_body" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'returnBody")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + sloppyQuorum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "sloppy_quorum" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'sloppyQuorum")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + nVal__field_descriptor + = Data.ProtoLens.FieldDescriptor + "n_val" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'nVal")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + includeContext__field_descriptor + = Data.ProtoLens.FieldDescriptor + "include_context" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'includeContext")) :: + Data.ProtoLens.FieldDescriptor DtUpdateReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, type'__field_descriptor), + (Data.ProtoLens.Tag 4, context__field_descriptor), + (Data.ProtoLens.Tag 5, op__field_descriptor), + (Data.ProtoLens.Tag 6, w__field_descriptor), + (Data.ProtoLens.Tag 7, dw__field_descriptor), + (Data.ProtoLens.Tag 8, pw__field_descriptor), + (Data.ProtoLens.Tag 9, returnBody__field_descriptor), + (Data.ProtoLens.Tag 10, timeout__field_descriptor), + (Data.ProtoLens.Tag 11, sloppyQuorum__field_descriptor), + (Data.ProtoLens.Tag 12, nVal__field_descriptor), + (Data.ProtoLens.Tag 13, includeContext__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DtUpdateReq'_unknownFields + (\ x__ y__ -> x__ {_DtUpdateReq'_unknownFields = y__}) + defMessage + = DtUpdateReq'_constructor + {_DtUpdateReq'bucket = Data.ProtoLens.fieldDefault, + _DtUpdateReq'key = Prelude.Nothing, + _DtUpdateReq'type' = Data.ProtoLens.fieldDefault, + _DtUpdateReq'context = Prelude.Nothing, + _DtUpdateReq'op = Data.ProtoLens.defMessage, + _DtUpdateReq'w = Prelude.Nothing, + _DtUpdateReq'dw = Prelude.Nothing, + _DtUpdateReq'pw = Prelude.Nothing, + _DtUpdateReq'returnBody = Prelude.Nothing, + _DtUpdateReq'timeout = Prelude.Nothing, + _DtUpdateReq'sloppyQuorum = Prelude.Nothing, + _DtUpdateReq'nVal = Prelude.Nothing, + _DtUpdateReq'includeContext = Prelude.Nothing, + _DtUpdateReq'_unknownFields = []} + parseMessage + = let + loop :: + DtUpdateReq + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser DtUpdateReq + loop x required'bucket required'op required'type' + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'bucket then (:) "bucket" else Prelude.id) + ((if required'op then (:) "op" else Prelude.id) + ((if required'type' then (:) "type" else Prelude.id) [])) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + required'op + required'type' + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + required'bucket + required'op + required'type' + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + required'op + Prelude.False + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "context" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"context") y x) + required'bucket + required'op + required'type' + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "op" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"op") y x) + required'bucket + Prelude.False + required'type' + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "w" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"w") y x) + required'bucket + required'op + required'type' + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "dw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"dw") y x) + required'bucket + required'op + required'type' + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "pw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pw") y x) + required'bucket + required'op + required'type' + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "return_body" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"returnBody") y x) + required'bucket + required'op + required'type' + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'bucket + required'op + required'type' + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "sloppy_quorum" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"sloppyQuorum") y x) + required'bucket + required'op + required'type' + 96 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "n_val" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nVal") y x) + required'bucket + required'op + required'type' + 104 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "include_context" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"includeContext") y x) + required'bucket + required'op + required'type' + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + required'op + required'type' + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop + Data.ProtoLens.defMessage Prelude.True Prelude.True Prelude.True) + "DtUpdateReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'context") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"op") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'w") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'dw") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pw") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'returnBody") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'sloppyQuorum") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'nVal") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'includeContext") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 104) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x)))))))))))))) +instance Control.DeepSeq.NFData DtUpdateReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DtUpdateReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'bucket x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'key x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'type' x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'context x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'op x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'w x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'dw x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'pw x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'returnBody x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'timeout x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'sloppyQuorum x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'nVal x__) + (Control.DeepSeq.deepseq + (_DtUpdateReq'includeContext x__) + ()))))))))))))) +{- | Fields : + + * 'Proto.Riak_Fields.key' @:: Lens' DtUpdateResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'key' @:: Lens' DtUpdateResp (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.context' @:: Lens' DtUpdateResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'context' @:: Lens' DtUpdateResp (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.counterValue' @:: Lens' DtUpdateResp Data.Int.Int64@ + * 'Proto.Riak_Fields.maybe'counterValue' @:: Lens' DtUpdateResp (Prelude.Maybe Data.Int.Int64)@ + * 'Proto.Riak_Fields.setValue' @:: Lens' DtUpdateResp [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'setValue' @:: Lens' DtUpdateResp (Data.Vector.Vector Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.mapValue' @:: Lens' DtUpdateResp [MapEntry]@ + * 'Proto.Riak_Fields.vec'mapValue' @:: Lens' DtUpdateResp (Data.Vector.Vector MapEntry)@ + * 'Proto.Riak_Fields.hllValue' @:: Lens' DtUpdateResp Data.Word.Word64@ + * 'Proto.Riak_Fields.maybe'hllValue' @:: Lens' DtUpdateResp (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Riak_Fields.gsetValue' @:: Lens' DtUpdateResp [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'gsetValue' @:: Lens' DtUpdateResp (Data.Vector.Vector Data.ByteString.ByteString)@ -} +data DtUpdateResp + = DtUpdateResp'_constructor {_DtUpdateResp'key :: !(Prelude.Maybe Data.ByteString.ByteString), + _DtUpdateResp'context :: !(Prelude.Maybe Data.ByteString.ByteString), + _DtUpdateResp'counterValue :: !(Prelude.Maybe Data.Int.Int64), + _DtUpdateResp'setValue :: !(Data.Vector.Vector Data.ByteString.ByteString), + _DtUpdateResp'mapValue :: !(Data.Vector.Vector MapEntry), + _DtUpdateResp'hllValue :: !(Prelude.Maybe Data.Word.Word64), + _DtUpdateResp'gsetValue :: !(Data.Vector.Vector Data.ByteString.ByteString), + _DtUpdateResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DtUpdateResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DtUpdateResp "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'key (\ x__ y__ -> x__ {_DtUpdateResp'key = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateResp "maybe'key" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'key (\ x__ y__ -> x__ {_DtUpdateResp'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateResp "context" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'context + (\ x__ y__ -> x__ {_DtUpdateResp'context = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateResp "maybe'context" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'context + (\ x__ y__ -> x__ {_DtUpdateResp'context = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateResp "counterValue" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'counterValue + (\ x__ y__ -> x__ {_DtUpdateResp'counterValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateResp "maybe'counterValue" (Prelude.Maybe Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'counterValue + (\ x__ y__ -> x__ {_DtUpdateResp'counterValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateResp "setValue" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'setValue + (\ x__ y__ -> x__ {_DtUpdateResp'setValue = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField DtUpdateResp "vec'setValue" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'setValue + (\ x__ y__ -> x__ {_DtUpdateResp'setValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateResp "mapValue" [MapEntry] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'mapValue + (\ x__ y__ -> x__ {_DtUpdateResp'mapValue = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField DtUpdateResp "vec'mapValue" (Data.Vector.Vector MapEntry) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'mapValue + (\ x__ y__ -> x__ {_DtUpdateResp'mapValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateResp "hllValue" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'hllValue + (\ x__ y__ -> x__ {_DtUpdateResp'hllValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtUpdateResp "maybe'hllValue" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'hllValue + (\ x__ y__ -> x__ {_DtUpdateResp'hllValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtUpdateResp "gsetValue" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'gsetValue + (\ x__ y__ -> x__ {_DtUpdateResp'gsetValue = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField DtUpdateResp "vec'gsetValue" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtUpdateResp'gsetValue + (\ x__ y__ -> x__ {_DtUpdateResp'gsetValue = y__})) + Prelude.id +instance Data.ProtoLens.Message DtUpdateResp where + messageName _ = Data.Text.pack "DtUpdateResp" + packedMessageDescriptor _ + = "\n\ + \\fDtUpdateResp\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2\CAN\n\ + \\acontext\CAN\STX \SOH(\fR\acontext\DC2#\n\ + \\rcounter_value\CAN\ETX \SOH(\DC2R\fcounterValue\DC2\ESC\n\ + \\tset_value\CAN\EOT \ETX(\fR\bsetValue\DC2&\n\ + \\tmap_value\CAN\ENQ \ETX(\v2\t.MapEntryR\bmapValue\DC2\ESC\n\ + \\thll_value\CAN\ACK \SOH(\EOTR\bhllValue\DC2\GS\n\ + \\n\ + \gset_value\CAN\a \ETX(\fR\tgsetValue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'key")) :: + Data.ProtoLens.FieldDescriptor DtUpdateResp + context__field_descriptor + = Data.ProtoLens.FieldDescriptor + "context" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'context")) :: + Data.ProtoLens.FieldDescriptor DtUpdateResp + counterValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "counter_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'counterValue")) :: + Data.ProtoLens.FieldDescriptor DtUpdateResp + setValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "set_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"setValue")) :: + Data.ProtoLens.FieldDescriptor DtUpdateResp + mapValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "map_value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MapEntry) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"mapValue")) :: + Data.ProtoLens.FieldDescriptor DtUpdateResp + hllValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hll_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hllValue")) :: + Data.ProtoLens.FieldDescriptor DtUpdateResp + gsetValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gset_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"gsetValue")) :: + Data.ProtoLens.FieldDescriptor DtUpdateResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, context__field_descriptor), + (Data.ProtoLens.Tag 3, counterValue__field_descriptor), + (Data.ProtoLens.Tag 4, setValue__field_descriptor), + (Data.ProtoLens.Tag 5, mapValue__field_descriptor), + (Data.ProtoLens.Tag 6, hllValue__field_descriptor), + (Data.ProtoLens.Tag 7, gsetValue__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DtUpdateResp'_unknownFields + (\ x__ y__ -> x__ {_DtUpdateResp'_unknownFields = y__}) + defMessage + = DtUpdateResp'_constructor + {_DtUpdateResp'key = Prelude.Nothing, + _DtUpdateResp'context = Prelude.Nothing, + _DtUpdateResp'counterValue = Prelude.Nothing, + _DtUpdateResp'setValue = Data.Vector.Generic.empty, + _DtUpdateResp'mapValue = Data.Vector.Generic.empty, + _DtUpdateResp'hllValue = Prelude.Nothing, + _DtUpdateResp'gsetValue = Data.Vector.Generic.empty, + _DtUpdateResp'_unknownFields = []} + parseMessage + = let + loop :: + DtUpdateResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MapEntry + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser DtUpdateResp + loop x mutable'gsetValue mutable'mapValue mutable'setValue + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'gsetValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'gsetValue) + frozen'mapValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'mapValue) + frozen'setValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'setValue) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'gsetValue") + frozen'gsetValue + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'mapValue") + frozen'mapValue + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'setValue") + frozen'setValue + x)))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + mutable'gsetValue + mutable'mapValue + mutable'setValue + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "context" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"context") y x) + mutable'gsetValue + mutable'mapValue + mutable'setValue + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "counter_value" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"counterValue") y x) + mutable'gsetValue + mutable'mapValue + mutable'setValue + 34 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "set_value" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'setValue y) + loop x mutable'gsetValue mutable'mapValue v + 42 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "map_value" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'mapValue y) + loop x mutable'gsetValue v mutable'setValue + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "hll_value" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"hllValue") y x) + mutable'gsetValue + mutable'mapValue + mutable'setValue + 58 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "gset_value" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'gsetValue y) + loop x v mutable'mapValue mutable'setValue + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'gsetValue + mutable'mapValue + mutable'setValue + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'gsetValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'mapValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'setValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'gsetValue + mutable'mapValue + mutable'setValue) + "DtUpdateResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'context") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'counterValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'setValue") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'mapValue") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'hllValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'gsetValue") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))) +instance Control.DeepSeq.NFData DtUpdateResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DtUpdateResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DtUpdateResp'key x__) + (Control.DeepSeq.deepseq + (_DtUpdateResp'context x__) + (Control.DeepSeq.deepseq + (_DtUpdateResp'counterValue x__) + (Control.DeepSeq.deepseq + (_DtUpdateResp'setValue x__) + (Control.DeepSeq.deepseq + (_DtUpdateResp'mapValue x__) + (Control.DeepSeq.deepseq + (_DtUpdateResp'hllValue x__) + (Control.DeepSeq.deepseq (_DtUpdateResp'gsetValue x__) ()))))))) +{- | Fields : + + * 'Proto.Riak_Fields.counterValue' @:: Lens' DtValue Data.Int.Int64@ + * 'Proto.Riak_Fields.maybe'counterValue' @:: Lens' DtValue (Prelude.Maybe Data.Int.Int64)@ + * 'Proto.Riak_Fields.setValue' @:: Lens' DtValue [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'setValue' @:: Lens' DtValue (Data.Vector.Vector Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.mapValue' @:: Lens' DtValue [MapEntry]@ + * 'Proto.Riak_Fields.vec'mapValue' @:: Lens' DtValue (Data.Vector.Vector MapEntry)@ + * 'Proto.Riak_Fields.hllValue' @:: Lens' DtValue Data.Word.Word64@ + * 'Proto.Riak_Fields.maybe'hllValue' @:: Lens' DtValue (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Riak_Fields.gsetValue' @:: Lens' DtValue [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'gsetValue' @:: Lens' DtValue (Data.Vector.Vector Data.ByteString.ByteString)@ -} +data DtValue + = DtValue'_constructor {_DtValue'counterValue :: !(Prelude.Maybe Data.Int.Int64), + _DtValue'setValue :: !(Data.Vector.Vector Data.ByteString.ByteString), + _DtValue'mapValue :: !(Data.Vector.Vector MapEntry), + _DtValue'hllValue :: !(Prelude.Maybe Data.Word.Word64), + _DtValue'gsetValue :: !(Data.Vector.Vector Data.ByteString.ByteString), + _DtValue'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DtValue where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DtValue "counterValue" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtValue'counterValue + (\ x__ y__ -> x__ {_DtValue'counterValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtValue "maybe'counterValue" (Prelude.Maybe Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtValue'counterValue + (\ x__ y__ -> x__ {_DtValue'counterValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtValue "setValue" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtValue'setValue (\ x__ y__ -> x__ {_DtValue'setValue = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField DtValue "vec'setValue" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtValue'setValue (\ x__ y__ -> x__ {_DtValue'setValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtValue "mapValue" [MapEntry] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtValue'mapValue (\ x__ y__ -> x__ {_DtValue'mapValue = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField DtValue "vec'mapValue" (Data.Vector.Vector MapEntry) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtValue'mapValue (\ x__ y__ -> x__ {_DtValue'mapValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtValue "hllValue" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtValue'hllValue (\ x__ y__ -> x__ {_DtValue'hllValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField DtValue "maybe'hllValue" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtValue'hllValue (\ x__ y__ -> x__ {_DtValue'hllValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DtValue "gsetValue" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtValue'gsetValue (\ x__ y__ -> x__ {_DtValue'gsetValue = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField DtValue "vec'gsetValue" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DtValue'gsetValue (\ x__ y__ -> x__ {_DtValue'gsetValue = y__})) + Prelude.id +instance Data.ProtoLens.Message DtValue where + messageName _ = Data.Text.pack "DtValue" + packedMessageDescriptor _ + = "\n\ + \\aDtValue\DC2#\n\ + \\rcounter_value\CAN\SOH \SOH(\DC2R\fcounterValue\DC2\ESC\n\ + \\tset_value\CAN\STX \ETX(\fR\bsetValue\DC2&\n\ + \\tmap_value\CAN\ETX \ETX(\v2\t.MapEntryR\bmapValue\DC2\ESC\n\ + \\thll_value\CAN\EOT \SOH(\EOTR\bhllValue\DC2\GS\n\ + \\n\ + \gset_value\CAN\ENQ \ETX(\fR\tgsetValue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + counterValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "counter_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'counterValue")) :: + Data.ProtoLens.FieldDescriptor DtValue + setValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "set_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"setValue")) :: + Data.ProtoLens.FieldDescriptor DtValue + mapValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "map_value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MapEntry) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"mapValue")) :: + Data.ProtoLens.FieldDescriptor DtValue + hllValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hll_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hllValue")) :: + Data.ProtoLens.FieldDescriptor DtValue + gsetValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gset_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"gsetValue")) :: + Data.ProtoLens.FieldDescriptor DtValue + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, counterValue__field_descriptor), + (Data.ProtoLens.Tag 2, setValue__field_descriptor), + (Data.ProtoLens.Tag 3, mapValue__field_descriptor), + (Data.ProtoLens.Tag 4, hllValue__field_descriptor), + (Data.ProtoLens.Tag 5, gsetValue__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DtValue'_unknownFields + (\ x__ y__ -> x__ {_DtValue'_unknownFields = y__}) + defMessage + = DtValue'_constructor + {_DtValue'counterValue = Prelude.Nothing, + _DtValue'setValue = Data.Vector.Generic.empty, + _DtValue'mapValue = Data.Vector.Generic.empty, + _DtValue'hllValue = Prelude.Nothing, + _DtValue'gsetValue = Data.Vector.Generic.empty, + _DtValue'_unknownFields = []} + parseMessage + = let + loop :: + DtValue + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MapEntry + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser DtValue + loop x mutable'gsetValue mutable'mapValue mutable'setValue + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'gsetValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'gsetValue) + frozen'mapValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'mapValue) + frozen'setValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'setValue) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'gsetValue") + frozen'gsetValue + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'mapValue") + frozen'mapValue + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'setValue") + frozen'setValue + x)))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "counter_value" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"counterValue") y x) + mutable'gsetValue + mutable'mapValue + mutable'setValue + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "set_value" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'setValue y) + loop x mutable'gsetValue mutable'mapValue v + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "map_value" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'mapValue y) + loop x mutable'gsetValue v mutable'setValue + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "hll_value" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"hllValue") y x) + mutable'gsetValue + mutable'mapValue + mutable'setValue + 42 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "gset_value" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'gsetValue y) + loop x v mutable'mapValue mutable'setValue + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'gsetValue + mutable'mapValue + mutable'setValue + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'gsetValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'mapValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'setValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + mutable'gsetValue + mutable'mapValue + mutable'setValue) + "DtValue" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'counterValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'setValue") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'mapValue") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'hllValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'gsetValue") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData DtValue where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DtValue'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DtValue'counterValue x__) + (Control.DeepSeq.deepseq + (_DtValue'setValue x__) + (Control.DeepSeq.deepseq + (_DtValue'mapValue x__) + (Control.DeepSeq.deepseq + (_DtValue'hllValue x__) + (Control.DeepSeq.deepseq (_DtValue'gsetValue x__) ()))))) +{- | Fields : + + * 'Proto.Riak_Fields.adds' @:: Lens' GSetOp [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'adds' @:: Lens' GSetOp (Data.Vector.Vector Data.ByteString.ByteString)@ -} +data GSetOp + = GSetOp'_constructor {_GSetOp'adds :: !(Data.Vector.Vector Data.ByteString.ByteString), + _GSetOp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show GSetOp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField GSetOp "adds" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GSetOp'adds (\ x__ y__ -> x__ {_GSetOp'adds = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField GSetOp "vec'adds" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GSetOp'adds (\ x__ y__ -> x__ {_GSetOp'adds = y__})) + Prelude.id +instance Data.ProtoLens.Message GSetOp where + messageName _ = Data.Text.pack "GSetOp" + packedMessageDescriptor _ + = "\n\ + \\ACKGSetOp\DC2\DC2\n\ + \\EOTadds\CAN\SOH \ETX(\fR\EOTadds" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + adds__field_descriptor + = Data.ProtoLens.FieldDescriptor + "adds" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"adds")) :: + Data.ProtoLens.FieldDescriptor GSetOp + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, adds__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _GSetOp'_unknownFields + (\ x__ y__ -> x__ {_GSetOp'_unknownFields = y__}) + defMessage + = GSetOp'_constructor + {_GSetOp'adds = Data.Vector.Generic.empty, + _GSetOp'_unknownFields = []} + parseMessage + = let + loop :: + GSetOp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser GSetOp + loop x mutable'adds + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'adds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'adds) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'adds") frozen'adds x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "adds" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'adds 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'adds + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'adds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'adds) + "GSetOp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'adds") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData GSetOp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_GSetOp'_unknownFields x__) + (Control.DeepSeq.deepseq (_GSetOp'adds x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.adds' @:: Lens' HllOp [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'adds' @:: Lens' HllOp (Data.Vector.Vector Data.ByteString.ByteString)@ -} +data HllOp + = HllOp'_constructor {_HllOp'adds :: !(Data.Vector.Vector Data.ByteString.ByteString), + _HllOp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show HllOp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField HllOp "adds" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HllOp'adds (\ x__ y__ -> x__ {_HllOp'adds = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField HllOp "vec'adds" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HllOp'adds (\ x__ y__ -> x__ {_HllOp'adds = y__})) + Prelude.id +instance Data.ProtoLens.Message HllOp where + messageName _ = Data.Text.pack "HllOp" + packedMessageDescriptor _ + = "\n\ + \\ENQHllOp\DC2\DC2\n\ + \\EOTadds\CAN\SOH \ETX(\fR\EOTadds" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + adds__field_descriptor + = Data.ProtoLens.FieldDescriptor + "adds" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"adds")) :: + Data.ProtoLens.FieldDescriptor HllOp + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, adds__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _HllOp'_unknownFields + (\ x__ y__ -> x__ {_HllOp'_unknownFields = y__}) + defMessage + = HllOp'_constructor + {_HllOp'adds = Data.Vector.Generic.empty, + _HllOp'_unknownFields = []} + parseMessage + = let + loop :: + HllOp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser HllOp + loop x mutable'adds + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'adds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'adds) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'adds") frozen'adds x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "adds" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'adds 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'adds + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'adds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'adds) + "HllOp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'adds") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData HllOp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_HllOp'_unknownFields x__) + (Control.DeepSeq.deepseq (_HllOp'adds x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.field' @:: Lens' MapEntry MapField@ + * 'Proto.Riak_Fields.counterValue' @:: Lens' MapEntry Data.Int.Int64@ + * 'Proto.Riak_Fields.maybe'counterValue' @:: Lens' MapEntry (Prelude.Maybe Data.Int.Int64)@ + * 'Proto.Riak_Fields.setValue' @:: Lens' MapEntry [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'setValue' @:: Lens' MapEntry (Data.Vector.Vector Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.registerValue' @:: Lens' MapEntry Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'registerValue' @:: Lens' MapEntry (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.flagValue' @:: Lens' MapEntry Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'flagValue' @:: Lens' MapEntry (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.mapValue' @:: Lens' MapEntry [MapEntry]@ + * 'Proto.Riak_Fields.vec'mapValue' @:: Lens' MapEntry (Data.Vector.Vector MapEntry)@ -} +data MapEntry + = MapEntry'_constructor {_MapEntry'field :: !MapField, + _MapEntry'counterValue :: !(Prelude.Maybe Data.Int.Int64), + _MapEntry'setValue :: !(Data.Vector.Vector Data.ByteString.ByteString), + _MapEntry'registerValue :: !(Prelude.Maybe Data.ByteString.ByteString), + _MapEntry'flagValue :: !(Prelude.Maybe Prelude.Bool), + _MapEntry'mapValue :: !(Data.Vector.Vector MapEntry), + _MapEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MapEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MapEntry "field" MapField where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'field (\ x__ y__ -> x__ {_MapEntry'field = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapEntry "counterValue" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'counterValue + (\ x__ y__ -> x__ {_MapEntry'counterValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField MapEntry "maybe'counterValue" (Prelude.Maybe Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'counterValue + (\ x__ y__ -> x__ {_MapEntry'counterValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapEntry "setValue" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'setValue (\ x__ y__ -> x__ {_MapEntry'setValue = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField MapEntry "vec'setValue" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'setValue (\ x__ y__ -> x__ {_MapEntry'setValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapEntry "registerValue" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'registerValue + (\ x__ y__ -> x__ {_MapEntry'registerValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField MapEntry "maybe'registerValue" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'registerValue + (\ x__ y__ -> x__ {_MapEntry'registerValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapEntry "flagValue" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'flagValue (\ x__ y__ -> x__ {_MapEntry'flagValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField MapEntry "maybe'flagValue" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'flagValue (\ x__ y__ -> x__ {_MapEntry'flagValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapEntry "mapValue" [MapEntry] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'mapValue (\ x__ y__ -> x__ {_MapEntry'mapValue = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField MapEntry "vec'mapValue" (Data.Vector.Vector MapEntry) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapEntry'mapValue (\ x__ y__ -> x__ {_MapEntry'mapValue = y__})) + Prelude.id +instance Data.ProtoLens.Message MapEntry where + messageName _ = Data.Text.pack "MapEntry" + packedMessageDescriptor _ + = "\n\ + \\bMapEntry\DC2\US\n\ + \\ENQfield\CAN\SOH \STX(\v2\t.MapFieldR\ENQfield\DC2#\n\ + \\rcounter_value\CAN\STX \SOH(\DC2R\fcounterValue\DC2\ESC\n\ + \\tset_value\CAN\ETX \ETX(\fR\bsetValue\DC2%\n\ + \\SOregister_value\CAN\EOT \SOH(\fR\rregisterValue\DC2\GS\n\ + \\n\ + \flag_value\CAN\ENQ \SOH(\bR\tflagValue\DC2&\n\ + \\tmap_value\CAN\ACK \ETX(\v2\t.MapEntryR\bmapValue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + field__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MapField) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"field")) :: + Data.ProtoLens.FieldDescriptor MapEntry + counterValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "counter_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'counterValue")) :: + Data.ProtoLens.FieldDescriptor MapEntry + setValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "set_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"setValue")) :: + Data.ProtoLens.FieldDescriptor MapEntry + registerValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "register_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'registerValue")) :: + Data.ProtoLens.FieldDescriptor MapEntry + flagValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "flag_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'flagValue")) :: + Data.ProtoLens.FieldDescriptor MapEntry + mapValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "map_value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MapEntry) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"mapValue")) :: + Data.ProtoLens.FieldDescriptor MapEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, field__field_descriptor), + (Data.ProtoLens.Tag 2, counterValue__field_descriptor), + (Data.ProtoLens.Tag 3, setValue__field_descriptor), + (Data.ProtoLens.Tag 4, registerValue__field_descriptor), + (Data.ProtoLens.Tag 5, flagValue__field_descriptor), + (Data.ProtoLens.Tag 6, mapValue__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MapEntry'_unknownFields + (\ x__ y__ -> x__ {_MapEntry'_unknownFields = y__}) + defMessage + = MapEntry'_constructor + {_MapEntry'field = Data.ProtoLens.defMessage, + _MapEntry'counterValue = Prelude.Nothing, + _MapEntry'setValue = Data.Vector.Generic.empty, + _MapEntry'registerValue = Prelude.Nothing, + _MapEntry'flagValue = Prelude.Nothing, + _MapEntry'mapValue = Data.Vector.Generic.empty, + _MapEntry'_unknownFields = []} + parseMessage + = let + loop :: + MapEntry + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MapEntry + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser MapEntry + loop x required'field mutable'mapValue mutable'setValue + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'mapValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'mapValue) + frozen'setValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'setValue) + (let + missing = (if required'field then (:) "field" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'mapValue") + frozen'mapValue + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'setValue") frozen'setValue x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "field" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"field") y x) + Prelude.False + mutable'mapValue + mutable'setValue + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "counter_value" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"counterValue") y x) + required'field + mutable'mapValue + mutable'setValue + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "set_value" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'setValue y) + loop x required'field mutable'mapValue v + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "register_value" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"registerValue") y x) + required'field + mutable'mapValue + mutable'setValue + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "flag_value" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"flagValue") y x) + required'field + mutable'mapValue + mutable'setValue + 50 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "map_value" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'mapValue y) + loop x required'field v mutable'setValue + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'field + mutable'mapValue + mutable'setValue + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'mapValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'setValue <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + Prelude.True + mutable'mapValue + mutable'setValue) + "MapEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"field") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'counterValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'setValue") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'registerValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'flagValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'mapValue") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) +instance Control.DeepSeq.NFData MapEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MapEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_MapEntry'field x__) + (Control.DeepSeq.deepseq + (_MapEntry'counterValue x__) + (Control.DeepSeq.deepseq + (_MapEntry'setValue x__) + (Control.DeepSeq.deepseq + (_MapEntry'registerValue x__) + (Control.DeepSeq.deepseq + (_MapEntry'flagValue x__) + (Control.DeepSeq.deepseq (_MapEntry'mapValue x__) ())))))) +{- | Fields : + + * 'Proto.Riak_Fields.name' @:: Lens' MapField Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.type'' @:: Lens' MapField MapField'MapFieldType@ -} +data MapField + = MapField'_constructor {_MapField'name :: !Data.ByteString.ByteString, + _MapField'type' :: !MapField'MapFieldType, + _MapField'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MapField where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MapField "name" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapField'name (\ x__ y__ -> x__ {_MapField'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapField "type'" MapField'MapFieldType where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapField'type' (\ x__ y__ -> x__ {_MapField'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message MapField where + messageName _ = Data.Text.pack "MapField" + packedMessageDescriptor _ + = "\n\ + \\bMapField\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname\DC2*\n\ + \\EOTtype\CAN\STX \STX(\SO2\SYN.MapField.MapFieldTypeR\EOTtype\"E\n\ + \\fMapFieldType\DC2\v\n\ + \\aCOUNTER\DLE\SOH\DC2\a\n\ + \\ETXSET\DLE\STX\DC2\f\n\ + \\bREGISTER\DLE\ETX\DC2\b\n\ + \\EOTFLAG\DLE\EOT\DC2\a\n\ + \\ETXMAP\DLE\ENQ" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor MapField + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor MapField'MapFieldType) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"type'")) :: + Data.ProtoLens.FieldDescriptor MapField + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MapField'_unknownFields + (\ x__ y__ -> x__ {_MapField'_unknownFields = y__}) + defMessage + = MapField'_constructor + {_MapField'name = Data.ProtoLens.fieldDefault, + _MapField'type' = Data.ProtoLens.fieldDefault, + _MapField'_unknownFields = []} + parseMessage + = let + loop :: + MapField + -> Prelude.Bool + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser MapField + loop x required'name required'type' + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'name then (:) "name" else Prelude.id) + ((if required'type' then (:) "type" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + Prelude.False + required'type' + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'name + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'name + required'type' + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "MapField" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum + (Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData MapField where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MapField'_unknownFields x__) + (Control.DeepSeq.deepseq + (_MapField'name x__) + (Control.DeepSeq.deepseq (_MapField'type' x__) ())) +data MapField'MapFieldType + = MapField'COUNTER | + MapField'SET | + MapField'REGISTER | + MapField'FLAG | + MapField'MAP + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum MapField'MapFieldType where + maybeToEnum 1 = Prelude.Just MapField'COUNTER + maybeToEnum 2 = Prelude.Just MapField'SET + maybeToEnum 3 = Prelude.Just MapField'REGISTER + maybeToEnum 4 = Prelude.Just MapField'FLAG + maybeToEnum 5 = Prelude.Just MapField'MAP + maybeToEnum _ = Prelude.Nothing + showEnum MapField'COUNTER = "COUNTER" + showEnum MapField'SET = "SET" + showEnum MapField'REGISTER = "REGISTER" + showEnum MapField'FLAG = "FLAG" + showEnum MapField'MAP = "MAP" + readEnum k + | (Prelude.==) k "COUNTER" = Prelude.Just MapField'COUNTER + | (Prelude.==) k "SET" = Prelude.Just MapField'SET + | (Prelude.==) k "REGISTER" = Prelude.Just MapField'REGISTER + | (Prelude.==) k "FLAG" = Prelude.Just MapField'FLAG + | (Prelude.==) k "MAP" = Prelude.Just MapField'MAP + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded MapField'MapFieldType where + minBound = MapField'COUNTER + maxBound = MapField'MAP +instance Prelude.Enum MapField'MapFieldType where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum MapFieldType: " + (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum MapField'COUNTER = 1 + fromEnum MapField'SET = 2 + fromEnum MapField'REGISTER = 3 + fromEnum MapField'FLAG = 4 + fromEnum MapField'MAP = 5 + succ MapField'MAP + = Prelude.error + "MapField'MapFieldType.succ: bad argument MapField'MAP. This value would be out of bounds." + succ MapField'COUNTER = MapField'SET + succ MapField'SET = MapField'REGISTER + succ MapField'REGISTER = MapField'FLAG + succ MapField'FLAG = MapField'MAP + pred MapField'COUNTER + = Prelude.error + "MapField'MapFieldType.pred: bad argument MapField'COUNTER. This value would be out of bounds." + pred MapField'SET = MapField'COUNTER + pred MapField'REGISTER = MapField'SET + pred MapField'FLAG = MapField'REGISTER + pred MapField'MAP = MapField'FLAG + 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 MapField'MapFieldType where + fieldDefault = MapField'COUNTER +instance Control.DeepSeq.NFData MapField'MapFieldType where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Riak_Fields.removes' @:: Lens' MapOp [MapField]@ + * 'Proto.Riak_Fields.vec'removes' @:: Lens' MapOp (Data.Vector.Vector MapField)@ + * 'Proto.Riak_Fields.updates' @:: Lens' MapOp [MapUpdate]@ + * 'Proto.Riak_Fields.vec'updates' @:: Lens' MapOp (Data.Vector.Vector MapUpdate)@ -} +data MapOp + = MapOp'_constructor {_MapOp'removes :: !(Data.Vector.Vector MapField), + _MapOp'updates :: !(Data.Vector.Vector MapUpdate), + _MapOp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MapOp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MapOp "removes" [MapField] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapOp'removes (\ x__ y__ -> x__ {_MapOp'removes = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField MapOp "vec'removes" (Data.Vector.Vector MapField) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapOp'removes (\ x__ y__ -> x__ {_MapOp'removes = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapOp "updates" [MapUpdate] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapOp'updates (\ x__ y__ -> x__ {_MapOp'updates = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField MapOp "vec'updates" (Data.Vector.Vector MapUpdate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapOp'updates (\ x__ y__ -> x__ {_MapOp'updates = y__})) + Prelude.id +instance Data.ProtoLens.Message MapOp where + messageName _ = Data.Text.pack "MapOp" + packedMessageDescriptor _ + = "\n\ + \\ENQMapOp\DC2#\n\ + \\aremoves\CAN\SOH \ETX(\v2\t.MapFieldR\aremoves\DC2$\n\ + \\aupdates\CAN\STX \ETX(\v2\n\ + \.MapUpdateR\aupdates" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + removes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "removes" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MapField) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"removes")) :: + Data.ProtoLens.FieldDescriptor MapOp + updates__field_descriptor + = Data.ProtoLens.FieldDescriptor + "updates" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MapUpdate) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"updates")) :: + Data.ProtoLens.FieldDescriptor MapOp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, removes__field_descriptor), + (Data.ProtoLens.Tag 2, updates__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MapOp'_unknownFields + (\ x__ y__ -> x__ {_MapOp'_unknownFields = y__}) + defMessage + = MapOp'_constructor + {_MapOp'removes = Data.Vector.Generic.empty, + _MapOp'updates = Data.Vector.Generic.empty, + _MapOp'_unknownFields = []} + parseMessage + = let + loop :: + MapOp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MapField + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MapUpdate + -> Data.ProtoLens.Encoding.Bytes.Parser MapOp + loop x mutable'removes mutable'updates + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'removes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'removes) + frozen'updates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'updates) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'removes") + frozen'removes + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'updates") frozen'updates x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "removes" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'removes y) + loop x v mutable'updates + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "updates" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'updates y) + loop x mutable'removes v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'removes + mutable'updates + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'removes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'updates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'removes mutable'updates) + "MapOp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'removes") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'updates") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData MapOp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MapOp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_MapOp'removes x__) + (Control.DeepSeq.deepseq (_MapOp'updates x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.field' @:: Lens' MapUpdate MapField@ + * 'Proto.Riak_Fields.counterOp' @:: Lens' MapUpdate CounterOp@ + * 'Proto.Riak_Fields.maybe'counterOp' @:: Lens' MapUpdate (Prelude.Maybe CounterOp)@ + * 'Proto.Riak_Fields.setOp' @:: Lens' MapUpdate SetOp@ + * 'Proto.Riak_Fields.maybe'setOp' @:: Lens' MapUpdate (Prelude.Maybe SetOp)@ + * 'Proto.Riak_Fields.registerOp' @:: Lens' MapUpdate Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'registerOp' @:: Lens' MapUpdate (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.flagOp' @:: Lens' MapUpdate MapUpdate'FlagOp@ + * 'Proto.Riak_Fields.maybe'flagOp' @:: Lens' MapUpdate (Prelude.Maybe MapUpdate'FlagOp)@ + * 'Proto.Riak_Fields.mapOp' @:: Lens' MapUpdate MapOp@ + * 'Proto.Riak_Fields.maybe'mapOp' @:: Lens' MapUpdate (Prelude.Maybe MapOp)@ -} +data MapUpdate + = MapUpdate'_constructor {_MapUpdate'field :: !MapField, + _MapUpdate'counterOp :: !(Prelude.Maybe CounterOp), + _MapUpdate'setOp :: !(Prelude.Maybe SetOp), + _MapUpdate'registerOp :: !(Prelude.Maybe Data.ByteString.ByteString), + _MapUpdate'flagOp :: !(Prelude.Maybe MapUpdate'FlagOp), + _MapUpdate'mapOp :: !(Prelude.Maybe MapOp), + _MapUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MapUpdate where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MapUpdate "field" MapField where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'field (\ x__ y__ -> x__ {_MapUpdate'field = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapUpdate "counterOp" CounterOp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'counterOp + (\ x__ y__ -> x__ {_MapUpdate'counterOp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MapUpdate "maybe'counterOp" (Prelude.Maybe CounterOp) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'counterOp + (\ x__ y__ -> x__ {_MapUpdate'counterOp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapUpdate "setOp" SetOp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'setOp (\ x__ y__ -> x__ {_MapUpdate'setOp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MapUpdate "maybe'setOp" (Prelude.Maybe SetOp) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'setOp (\ x__ y__ -> x__ {_MapUpdate'setOp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapUpdate "registerOp" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'registerOp + (\ x__ y__ -> x__ {_MapUpdate'registerOp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField MapUpdate "maybe'registerOp" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'registerOp + (\ x__ y__ -> x__ {_MapUpdate'registerOp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapUpdate "flagOp" MapUpdate'FlagOp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'flagOp (\ x__ y__ -> x__ {_MapUpdate'flagOp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField MapUpdate "maybe'flagOp" (Prelude.Maybe MapUpdate'FlagOp) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'flagOp (\ x__ y__ -> x__ {_MapUpdate'flagOp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MapUpdate "mapOp" MapOp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'mapOp (\ x__ y__ -> x__ {_MapUpdate'mapOp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MapUpdate "maybe'mapOp" (Prelude.Maybe MapOp) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MapUpdate'mapOp (\ x__ y__ -> x__ {_MapUpdate'mapOp = y__})) + Prelude.id +instance Data.ProtoLens.Message MapUpdate where + messageName _ = Data.Text.pack "MapUpdate" + packedMessageDescriptor _ + = "\n\ + \\tMapUpdate\DC2\US\n\ + \\ENQfield\CAN\SOH \STX(\v2\t.MapFieldR\ENQfield\DC2)\n\ + \\n\ + \counter_op\CAN\STX \SOH(\v2\n\ + \.CounterOpR\tcounterOp\DC2\GS\n\ + \\ACKset_op\CAN\ETX \SOH(\v2\ACK.SetOpR\ENQsetOp\DC2\US\n\ + \\vregister_op\CAN\EOT \SOH(\fR\n\ + \registerOp\DC2*\n\ + \\aflag_op\CAN\ENQ \SOH(\SO2\DC1.MapUpdate.FlagOpR\ACKflagOp\DC2\GS\n\ + \\ACKmap_op\CAN\ACK \SOH(\v2\ACK.MapOpR\ENQmapOp\"!\n\ + \\ACKFlagOp\DC2\n\ + \\n\ + \\ACKENABLE\DLE\SOH\DC2\v\n\ + \\aDISABLE\DLE\STX" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + field__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MapField) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"field")) :: + Data.ProtoLens.FieldDescriptor MapUpdate + counterOp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "counter_op" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CounterOp) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'counterOp")) :: + Data.ProtoLens.FieldDescriptor MapUpdate + setOp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "set_op" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor SetOp) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'setOp")) :: + Data.ProtoLens.FieldDescriptor MapUpdate + registerOp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "register_op" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'registerOp")) :: + Data.ProtoLens.FieldDescriptor MapUpdate + flagOp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "flag_op" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor MapUpdate'FlagOp) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'flagOp")) :: + Data.ProtoLens.FieldDescriptor MapUpdate + mapOp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "map_op" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MapOp) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'mapOp")) :: + Data.ProtoLens.FieldDescriptor MapUpdate + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, field__field_descriptor), + (Data.ProtoLens.Tag 2, counterOp__field_descriptor), + (Data.ProtoLens.Tag 3, setOp__field_descriptor), + (Data.ProtoLens.Tag 4, registerOp__field_descriptor), + (Data.ProtoLens.Tag 5, flagOp__field_descriptor), + (Data.ProtoLens.Tag 6, mapOp__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MapUpdate'_unknownFields + (\ x__ y__ -> x__ {_MapUpdate'_unknownFields = y__}) + defMessage + = MapUpdate'_constructor + {_MapUpdate'field = Data.ProtoLens.defMessage, + _MapUpdate'counterOp = Prelude.Nothing, + _MapUpdate'setOp = Prelude.Nothing, + _MapUpdate'registerOp = Prelude.Nothing, + _MapUpdate'flagOp = Prelude.Nothing, + _MapUpdate'mapOp = Prelude.Nothing, _MapUpdate'_unknownFields = []} + parseMessage + = let + loop :: + MapUpdate + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser MapUpdate + loop x required'field + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'field then (:) "field" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "field" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"field") y x) + Prelude.False + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "counter_op" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"counterOp") y x) + required'field + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "set_op" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"setOp") y x) + required'field + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "register_op" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"registerOp") y x) + required'field + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "flag_op" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"flagOp") y x) + required'field + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "map_op" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"mapOp") y x) + required'field + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'field + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) "MapUpdate" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"field") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'counterOp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'setOp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'registerOp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'flagOp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral) + Prelude.fromEnum + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'mapOp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) +instance Control.DeepSeq.NFData MapUpdate where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MapUpdate'_unknownFields x__) + (Control.DeepSeq.deepseq + (_MapUpdate'field x__) + (Control.DeepSeq.deepseq + (_MapUpdate'counterOp x__) + (Control.DeepSeq.deepseq + (_MapUpdate'setOp x__) + (Control.DeepSeq.deepseq + (_MapUpdate'registerOp x__) + (Control.DeepSeq.deepseq + (_MapUpdate'flagOp x__) + (Control.DeepSeq.deepseq (_MapUpdate'mapOp x__) ())))))) +data MapUpdate'FlagOp + = MapUpdate'ENABLE | MapUpdate'DISABLE + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum MapUpdate'FlagOp where + maybeToEnum 1 = Prelude.Just MapUpdate'ENABLE + maybeToEnum 2 = Prelude.Just MapUpdate'DISABLE + maybeToEnum _ = Prelude.Nothing + showEnum MapUpdate'ENABLE = "ENABLE" + showEnum MapUpdate'DISABLE = "DISABLE" + readEnum k + | (Prelude.==) k "ENABLE" = Prelude.Just MapUpdate'ENABLE + | (Prelude.==) k "DISABLE" = Prelude.Just MapUpdate'DISABLE + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded MapUpdate'FlagOp where + minBound = MapUpdate'ENABLE + maxBound = MapUpdate'DISABLE +instance Prelude.Enum MapUpdate'FlagOp where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum FlagOp: " (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum MapUpdate'ENABLE = 1 + fromEnum MapUpdate'DISABLE = 2 + succ MapUpdate'DISABLE + = Prelude.error + "MapUpdate'FlagOp.succ: bad argument MapUpdate'DISABLE. This value would be out of bounds." + succ MapUpdate'ENABLE = MapUpdate'DISABLE + pred MapUpdate'ENABLE + = Prelude.error + "MapUpdate'FlagOp.pred: bad argument MapUpdate'ENABLE. This value would be out of bounds." + pred MapUpdate'DISABLE = MapUpdate'ENABLE + 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 MapUpdate'FlagOp where + fieldDefault = MapUpdate'ENABLE +instance Control.DeepSeq.NFData MapUpdate'FlagOp where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Riak_Fields.user' @:: Lens' RpbAuthReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.password' @:: Lens' RpbAuthReq Data.ByteString.ByteString@ -} +data RpbAuthReq + = RpbAuthReq'_constructor {_RpbAuthReq'user :: !Data.ByteString.ByteString, + _RpbAuthReq'password :: !Data.ByteString.ByteString, + _RpbAuthReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbAuthReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbAuthReq "user" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbAuthReq'user (\ x__ y__ -> x__ {_RpbAuthReq'user = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbAuthReq "password" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbAuthReq'password + (\ x__ y__ -> x__ {_RpbAuthReq'password = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbAuthReq where + messageName _ = Data.Text.pack "RpbAuthReq" + packedMessageDescriptor _ + = "\n\ + \\n\ + \RpbAuthReq\DC2\DC2\n\ + \\EOTuser\CAN\SOH \STX(\fR\EOTuser\DC2\SUB\n\ + \\bpassword\CAN\STX \STX(\fR\bpassword" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + user__field_descriptor + = Data.ProtoLens.FieldDescriptor + "user" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"user")) :: + Data.ProtoLens.FieldDescriptor RpbAuthReq + password__field_descriptor + = Data.ProtoLens.FieldDescriptor + "password" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"password")) :: + Data.ProtoLens.FieldDescriptor RpbAuthReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, user__field_descriptor), + (Data.ProtoLens.Tag 2, password__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbAuthReq'_unknownFields + (\ x__ y__ -> x__ {_RpbAuthReq'_unknownFields = y__}) + defMessage + = RpbAuthReq'_constructor + {_RpbAuthReq'user = Data.ProtoLens.fieldDefault, + _RpbAuthReq'password = Data.ProtoLens.fieldDefault, + _RpbAuthReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbAuthReq + -> Prelude.Bool + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser RpbAuthReq + loop x required'password required'user + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'password then (:) "password" else Prelude.id) + ((if required'user then (:) "user" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "user" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"user") y x) + required'password + Prelude.False + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "password" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"password") y x) + Prelude.False + required'user + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'password + required'user + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbAuthReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"user") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"password") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbAuthReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbAuthReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbAuthReq'user x__) + (Control.DeepSeq.deepseq (_RpbAuthReq'password x__) ())) +{- | Fields : + -} +data RpbAuthResp + = RpbAuthResp'_constructor {_RpbAuthResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbAuthResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message RpbAuthResp where + messageName _ = Data.Text.pack "RpbAuthResp" + packedMessageDescriptor _ + = "\n\ + \\vRpbAuthResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbAuthResp'_unknownFields + (\ x__ y__ -> x__ {_RpbAuthResp'_unknownFields = y__}) + defMessage + = RpbAuthResp'_constructor {_RpbAuthResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbAuthResp -> Data.ProtoLens.Encoding.Bytes.Parser RpbAuthResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbAuthResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData RpbAuthResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_RpbAuthResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Riak_Fields.partition' @:: Lens' RpbBucketKeyPreflistItem Data.Int.Int64@ + * 'Proto.Riak_Fields.node' @:: Lens' RpbBucketKeyPreflistItem Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.primary' @:: Lens' RpbBucketKeyPreflistItem Prelude.Bool@ -} +data RpbBucketKeyPreflistItem + = RpbBucketKeyPreflistItem'_constructor {_RpbBucketKeyPreflistItem'partition :: !Data.Int.Int64, + _RpbBucketKeyPreflistItem'node :: !Data.ByteString.ByteString, + _RpbBucketKeyPreflistItem'primary :: !Prelude.Bool, + _RpbBucketKeyPreflistItem'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbBucketKeyPreflistItem where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbBucketKeyPreflistItem "partition" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketKeyPreflistItem'partition + (\ x__ y__ -> x__ {_RpbBucketKeyPreflistItem'partition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketKeyPreflistItem "node" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketKeyPreflistItem'node + (\ x__ y__ -> x__ {_RpbBucketKeyPreflistItem'node = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketKeyPreflistItem "primary" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketKeyPreflistItem'primary + (\ x__ y__ -> x__ {_RpbBucketKeyPreflistItem'primary = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbBucketKeyPreflistItem where + messageName _ = Data.Text.pack "RpbBucketKeyPreflistItem" + packedMessageDescriptor _ + = "\n\ + \\CANRpbBucketKeyPreflistItem\DC2\FS\n\ + \\tpartition\CAN\SOH \STX(\ETXR\tpartition\DC2\DC2\n\ + \\EOTnode\CAN\STX \STX(\fR\EOTnode\DC2\CAN\n\ + \\aprimary\CAN\ETX \STX(\bR\aprimary" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + partition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "partition" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"partition")) :: + Data.ProtoLens.FieldDescriptor RpbBucketKeyPreflistItem + node__field_descriptor + = Data.ProtoLens.FieldDescriptor + "node" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"node")) :: + Data.ProtoLens.FieldDescriptor RpbBucketKeyPreflistItem + primary__field_descriptor + = Data.ProtoLens.FieldDescriptor + "primary" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"primary")) :: + Data.ProtoLens.FieldDescriptor RpbBucketKeyPreflistItem + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, partition__field_descriptor), + (Data.ProtoLens.Tag 2, node__field_descriptor), + (Data.ProtoLens.Tag 3, primary__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbBucketKeyPreflistItem'_unknownFields + (\ x__ y__ -> x__ {_RpbBucketKeyPreflistItem'_unknownFields = y__}) + defMessage + = RpbBucketKeyPreflistItem'_constructor + {_RpbBucketKeyPreflistItem'partition = Data.ProtoLens.fieldDefault, + _RpbBucketKeyPreflistItem'node = Data.ProtoLens.fieldDefault, + _RpbBucketKeyPreflistItem'primary = Data.ProtoLens.fieldDefault, + _RpbBucketKeyPreflistItem'_unknownFields = []} + parseMessage + = let + loop :: + RpbBucketKeyPreflistItem + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbBucketKeyPreflistItem + loop x required'node required'partition required'primary + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'node then (:) "node" else Prelude.id) + ((if required'partition then (:) "partition" else Prelude.id) + ((if required'primary then (:) "primary" else Prelude.id) [])) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "partition" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"partition") y x) + required'node + Prelude.False + required'primary + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "node" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"node") y x) + Prelude.False + required'partition + required'primary + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "primary" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"primary") y x) + required'node + required'partition + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'node + required'partition + required'primary + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop + Data.ProtoLens.defMessage Prelude.True Prelude.True Prelude.True) + "RpbBucketKeyPreflistItem" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + (Lens.Family2.view (Data.ProtoLens.Field.field @"partition") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"node") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + (Lens.Family2.view (Data.ProtoLens.Field.field @"primary") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbBucketKeyPreflistItem where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbBucketKeyPreflistItem'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbBucketKeyPreflistItem'partition x__) + (Control.DeepSeq.deepseq + (_RpbBucketKeyPreflistItem'node x__) + (Control.DeepSeq.deepseq + (_RpbBucketKeyPreflistItem'primary x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.nVal' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'nVal' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.allowMult' @:: Lens' RpbBucketProps Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'allowMult' @:: Lens' RpbBucketProps (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.lastWriteWins' @:: Lens' RpbBucketProps Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'lastWriteWins' @:: Lens' RpbBucketProps (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.precommit' @:: Lens' RpbBucketProps [RpbCommitHook]@ + * 'Proto.Riak_Fields.vec'precommit' @:: Lens' RpbBucketProps (Data.Vector.Vector RpbCommitHook)@ + * 'Proto.Riak_Fields.hasPrecommit' @:: Lens' RpbBucketProps Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'hasPrecommit' @:: Lens' RpbBucketProps (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.postcommit' @:: Lens' RpbBucketProps [RpbCommitHook]@ + * 'Proto.Riak_Fields.vec'postcommit' @:: Lens' RpbBucketProps (Data.Vector.Vector RpbCommitHook)@ + * 'Proto.Riak_Fields.hasPostcommit' @:: Lens' RpbBucketProps Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'hasPostcommit' @:: Lens' RpbBucketProps (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.chashKeyfun' @:: Lens' RpbBucketProps RpbModFun@ + * 'Proto.Riak_Fields.maybe'chashKeyfun' @:: Lens' RpbBucketProps (Prelude.Maybe RpbModFun)@ + * 'Proto.Riak_Fields.linkfun' @:: Lens' RpbBucketProps RpbModFun@ + * 'Proto.Riak_Fields.maybe'linkfun' @:: Lens' RpbBucketProps (Prelude.Maybe RpbModFun)@ + * 'Proto.Riak_Fields.oldVclock' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'oldVclock' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.youngVclock' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'youngVclock' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.bigVclock' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'bigVclock' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.smallVclock' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'smallVclock' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.pr' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'pr' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.r' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'r' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.w' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'w' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.pw' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'pw' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.dw' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'dw' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.rw' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'rw' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.basicQuorum' @:: Lens' RpbBucketProps Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'basicQuorum' @:: Lens' RpbBucketProps (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.notfoundOk' @:: Lens' RpbBucketProps Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'notfoundOk' @:: Lens' RpbBucketProps (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.backend' @:: Lens' RpbBucketProps Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'backend' @:: Lens' RpbBucketProps (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.search' @:: Lens' RpbBucketProps Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'search' @:: Lens' RpbBucketProps (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.repl' @:: Lens' RpbBucketProps RpbBucketProps'RpbReplMode@ + * 'Proto.Riak_Fields.maybe'repl' @:: Lens' RpbBucketProps (Prelude.Maybe RpbBucketProps'RpbReplMode)@ + * 'Proto.Riak_Fields.searchIndex' @:: Lens' RpbBucketProps Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'searchIndex' @:: Lens' RpbBucketProps (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.datatype' @:: Lens' RpbBucketProps Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'datatype' @:: Lens' RpbBucketProps (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.consistent' @:: Lens' RpbBucketProps Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'consistent' @:: Lens' RpbBucketProps (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.writeOnce' @:: Lens' RpbBucketProps Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'writeOnce' @:: Lens' RpbBucketProps (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.hllPrecision' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'hllPrecision' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.ttl' @:: Lens' RpbBucketProps Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'ttl' @:: Lens' RpbBucketProps (Prelude.Maybe Data.Word.Word32)@ -} +data RpbBucketProps + = RpbBucketProps'_constructor {_RpbBucketProps'nVal :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'allowMult :: !(Prelude.Maybe Prelude.Bool), + _RpbBucketProps'lastWriteWins :: !(Prelude.Maybe Prelude.Bool), + _RpbBucketProps'precommit :: !(Data.Vector.Vector RpbCommitHook), + _RpbBucketProps'hasPrecommit :: !(Prelude.Maybe Prelude.Bool), + _RpbBucketProps'postcommit :: !(Data.Vector.Vector RpbCommitHook), + _RpbBucketProps'hasPostcommit :: !(Prelude.Maybe Prelude.Bool), + _RpbBucketProps'chashKeyfun :: !(Prelude.Maybe RpbModFun), + _RpbBucketProps'linkfun :: !(Prelude.Maybe RpbModFun), + _RpbBucketProps'oldVclock :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'youngVclock :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'bigVclock :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'smallVclock :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'pr :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'r :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'w :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'pw :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'dw :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'rw :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'basicQuorum :: !(Prelude.Maybe Prelude.Bool), + _RpbBucketProps'notfoundOk :: !(Prelude.Maybe Prelude.Bool), + _RpbBucketProps'backend :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbBucketProps'search :: !(Prelude.Maybe Prelude.Bool), + _RpbBucketProps'repl :: !(Prelude.Maybe RpbBucketProps'RpbReplMode), + _RpbBucketProps'searchIndex :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbBucketProps'datatype :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbBucketProps'consistent :: !(Prelude.Maybe Prelude.Bool), + _RpbBucketProps'writeOnce :: !(Prelude.Maybe Prelude.Bool), + _RpbBucketProps'hllPrecision :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'ttl :: !(Prelude.Maybe Data.Word.Word32), + _RpbBucketProps'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbBucketProps where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbBucketProps "nVal" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'nVal + (\ x__ y__ -> x__ {_RpbBucketProps'nVal = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'nVal" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'nVal + (\ x__ y__ -> x__ {_RpbBucketProps'nVal = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "allowMult" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'allowMult + (\ x__ y__ -> x__ {_RpbBucketProps'allowMult = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'allowMult" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'allowMult + (\ x__ y__ -> x__ {_RpbBucketProps'allowMult = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "lastWriteWins" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'lastWriteWins + (\ x__ y__ -> x__ {_RpbBucketProps'lastWriteWins = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'lastWriteWins" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'lastWriteWins + (\ x__ y__ -> x__ {_RpbBucketProps'lastWriteWins = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "precommit" [RpbCommitHook] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'precommit + (\ x__ y__ -> x__ {_RpbBucketProps'precommit = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbBucketProps "vec'precommit" (Data.Vector.Vector RpbCommitHook) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'precommit + (\ x__ y__ -> x__ {_RpbBucketProps'precommit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "hasPrecommit" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'hasPrecommit + (\ x__ y__ -> x__ {_RpbBucketProps'hasPrecommit = y__})) + (Data.ProtoLens.maybeLens Prelude.False) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'hasPrecommit" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'hasPrecommit + (\ x__ y__ -> x__ {_RpbBucketProps'hasPrecommit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "postcommit" [RpbCommitHook] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'postcommit + (\ x__ y__ -> x__ {_RpbBucketProps'postcommit = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbBucketProps "vec'postcommit" (Data.Vector.Vector RpbCommitHook) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'postcommit + (\ x__ y__ -> x__ {_RpbBucketProps'postcommit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "hasPostcommit" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'hasPostcommit + (\ x__ y__ -> x__ {_RpbBucketProps'hasPostcommit = y__})) + (Data.ProtoLens.maybeLens Prelude.False) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'hasPostcommit" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'hasPostcommit + (\ x__ y__ -> x__ {_RpbBucketProps'hasPostcommit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "chashKeyfun" RpbModFun where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'chashKeyfun + (\ x__ y__ -> x__ {_RpbBucketProps'chashKeyfun = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'chashKeyfun" (Prelude.Maybe RpbModFun) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'chashKeyfun + (\ x__ y__ -> x__ {_RpbBucketProps'chashKeyfun = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "linkfun" RpbModFun where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'linkfun + (\ x__ y__ -> x__ {_RpbBucketProps'linkfun = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'linkfun" (Prelude.Maybe RpbModFun) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'linkfun + (\ x__ y__ -> x__ {_RpbBucketProps'linkfun = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "oldVclock" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'oldVclock + (\ x__ y__ -> x__ {_RpbBucketProps'oldVclock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'oldVclock" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'oldVclock + (\ x__ y__ -> x__ {_RpbBucketProps'oldVclock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "youngVclock" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'youngVclock + (\ x__ y__ -> x__ {_RpbBucketProps'youngVclock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'youngVclock" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'youngVclock + (\ x__ y__ -> x__ {_RpbBucketProps'youngVclock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "bigVclock" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'bigVclock + (\ x__ y__ -> x__ {_RpbBucketProps'bigVclock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'bigVclock" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'bigVclock + (\ x__ y__ -> x__ {_RpbBucketProps'bigVclock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "smallVclock" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'smallVclock + (\ x__ y__ -> x__ {_RpbBucketProps'smallVclock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'smallVclock" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'smallVclock + (\ x__ y__ -> x__ {_RpbBucketProps'smallVclock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "pr" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'pr (\ x__ y__ -> x__ {_RpbBucketProps'pr = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'pr" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'pr (\ x__ y__ -> x__ {_RpbBucketProps'pr = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "r" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'r (\ x__ y__ -> x__ {_RpbBucketProps'r = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'r" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'r (\ x__ y__ -> x__ {_RpbBucketProps'r = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "w" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'w (\ x__ y__ -> x__ {_RpbBucketProps'w = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'w" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'w (\ x__ y__ -> x__ {_RpbBucketProps'w = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "pw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'pw (\ x__ y__ -> x__ {_RpbBucketProps'pw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'pw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'pw (\ x__ y__ -> x__ {_RpbBucketProps'pw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "dw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'dw (\ x__ y__ -> x__ {_RpbBucketProps'dw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'dw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'dw (\ x__ y__ -> x__ {_RpbBucketProps'dw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "rw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'rw (\ x__ y__ -> x__ {_RpbBucketProps'rw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'rw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'rw (\ x__ y__ -> x__ {_RpbBucketProps'rw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "basicQuorum" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'basicQuorum + (\ x__ y__ -> x__ {_RpbBucketProps'basicQuorum = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'basicQuorum" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'basicQuorum + (\ x__ y__ -> x__ {_RpbBucketProps'basicQuorum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "notfoundOk" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'notfoundOk + (\ x__ y__ -> x__ {_RpbBucketProps'notfoundOk = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'notfoundOk" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'notfoundOk + (\ x__ y__ -> x__ {_RpbBucketProps'notfoundOk = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "backend" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'backend + (\ x__ y__ -> x__ {_RpbBucketProps'backend = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'backend" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'backend + (\ x__ y__ -> x__ {_RpbBucketProps'backend = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "search" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'search + (\ x__ y__ -> x__ {_RpbBucketProps'search = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'search" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'search + (\ x__ y__ -> x__ {_RpbBucketProps'search = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "repl" RpbBucketProps'RpbReplMode where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'repl + (\ x__ y__ -> x__ {_RpbBucketProps'repl = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'repl" (Prelude.Maybe RpbBucketProps'RpbReplMode) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'repl + (\ x__ y__ -> x__ {_RpbBucketProps'repl = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "searchIndex" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'searchIndex + (\ x__ y__ -> x__ {_RpbBucketProps'searchIndex = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'searchIndex" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'searchIndex + (\ x__ y__ -> x__ {_RpbBucketProps'searchIndex = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "datatype" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'datatype + (\ x__ y__ -> x__ {_RpbBucketProps'datatype = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'datatype" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'datatype + (\ x__ y__ -> x__ {_RpbBucketProps'datatype = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "consistent" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'consistent + (\ x__ y__ -> x__ {_RpbBucketProps'consistent = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'consistent" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'consistent + (\ x__ y__ -> x__ {_RpbBucketProps'consistent = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "writeOnce" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'writeOnce + (\ x__ y__ -> x__ {_RpbBucketProps'writeOnce = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'writeOnce" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'writeOnce + (\ x__ y__ -> x__ {_RpbBucketProps'writeOnce = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "hllPrecision" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'hllPrecision + (\ x__ y__ -> x__ {_RpbBucketProps'hllPrecision = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'hllPrecision" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'hllPrecision + (\ x__ y__ -> x__ {_RpbBucketProps'hllPrecision = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbBucketProps "ttl" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'ttl (\ x__ y__ -> x__ {_RpbBucketProps'ttl = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbBucketProps "maybe'ttl" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbBucketProps'ttl (\ x__ y__ -> x__ {_RpbBucketProps'ttl = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbBucketProps where + messageName _ = Data.Text.pack "RpbBucketProps" + packedMessageDescriptor _ + = "\n\ + \\SORpbBucketProps\DC2\DC3\n\ + \\ENQn_val\CAN\SOH \SOH(\rR\EOTnVal\DC2\GS\n\ + \\n\ + \allow_mult\CAN\STX \SOH(\bR\tallowMult\DC2&\n\ + \\SIlast_write_wins\CAN\ETX \SOH(\bR\rlastWriteWins\DC2,\n\ + \\tprecommit\CAN\EOT \ETX(\v2\SO.RpbCommitHookR\tprecommit\DC2*\n\ + \\rhas_precommit\CAN\ENQ \SOH(\b:\ENQfalseR\fhasPrecommit\DC2.\n\ + \\n\ + \postcommit\CAN\ACK \ETX(\v2\SO.RpbCommitHookR\n\ + \postcommit\DC2,\n\ + \\SOhas_postcommit\CAN\a \SOH(\b:\ENQfalseR\rhasPostcommit\DC2-\n\ + \\fchash_keyfun\CAN\b \SOH(\v2\n\ + \.RpbModFunR\vchashKeyfun\DC2$\n\ + \\alinkfun\CAN\t \SOH(\v2\n\ + \.RpbModFunR\alinkfun\DC2\GS\n\ + \\n\ + \old_vclock\CAN\n\ + \ \SOH(\rR\toldVclock\DC2!\n\ + \\fyoung_vclock\CAN\v \SOH(\rR\vyoungVclock\DC2\GS\n\ + \\n\ + \big_vclock\CAN\f \SOH(\rR\tbigVclock\DC2!\n\ + \\fsmall_vclock\CAN\r \SOH(\rR\vsmallVclock\DC2\SO\n\ + \\STXpr\CAN\SO \SOH(\rR\STXpr\DC2\f\n\ + \\SOHr\CAN\SI \SOH(\rR\SOHr\DC2\f\n\ + \\SOHw\CAN\DLE \SOH(\rR\SOHw\DC2\SO\n\ + \\STXpw\CAN\DC1 \SOH(\rR\STXpw\DC2\SO\n\ + \\STXdw\CAN\DC2 \SOH(\rR\STXdw\DC2\SO\n\ + \\STXrw\CAN\DC3 \SOH(\rR\STXrw\DC2!\n\ + \\fbasic_quorum\CAN\DC4 \SOH(\bR\vbasicQuorum\DC2\US\n\ + \\vnotfound_ok\CAN\NAK \SOH(\bR\n\ + \notfoundOk\DC2\CAN\n\ + \\abackend\CAN\SYN \SOH(\fR\abackend\DC2\SYN\n\ + \\ACKsearch\CAN\ETB \SOH(\bR\ACKsearch\DC2/\n\ + \\EOTrepl\CAN\CAN \SOH(\SO2\ESC.RpbBucketProps.RpbReplModeR\EOTrepl\DC2!\n\ + \\fsearch_index\CAN\EM \SOH(\fR\vsearchIndex\DC2\SUB\n\ + \\bdatatype\CAN\SUB \SOH(\fR\bdatatype\DC2\RS\n\ + \\n\ + \consistent\CAN\ESC \SOH(\bR\n\ + \consistent\DC2\GS\n\ + \\n\ + \write_once\CAN\FS \SOH(\bR\twriteOnce\DC2#\n\ + \\rhll_precision\CAN\GS \SOH(\rR\fhllPrecision\DC2\DLE\n\ + \\ETXttl\CAN\RS \SOH(\rR\ETXttl\">\n\ + \\vRpbReplMode\DC2\t\n\ + \\ENQFALSE\DLE\NUL\DC2\f\n\ + \\bREALTIME\DLE\SOH\DC2\f\n\ + \\bFULLSYNC\DLE\STX\DC2\b\n\ + \\EOTTRUE\DLE\ETX" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + nVal__field_descriptor + = Data.ProtoLens.FieldDescriptor + "n_val" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'nVal")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + allowMult__field_descriptor + = Data.ProtoLens.FieldDescriptor + "allow_mult" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'allowMult")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + lastWriteWins__field_descriptor + = Data.ProtoLens.FieldDescriptor + "last_write_wins" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'lastWriteWins")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + precommit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "precommit" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbCommitHook) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"precommit")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + hasPrecommit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "has_precommit" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hasPrecommit")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + postcommit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "postcommit" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbCommitHook) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"postcommit")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + hasPostcommit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "has_postcommit" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hasPostcommit")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + chashKeyfun__field_descriptor + = Data.ProtoLens.FieldDescriptor + "chash_keyfun" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbModFun) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'chashKeyfun")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + linkfun__field_descriptor + = Data.ProtoLens.FieldDescriptor + "linkfun" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbModFun) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'linkfun")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + oldVclock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "old_vclock" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'oldVclock")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + youngVclock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "young_vclock" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'youngVclock")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + bigVclock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "big_vclock" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'bigVclock")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + smallVclock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "small_vclock" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'smallVclock")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + pr__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pr" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pr")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + r__field_descriptor + = Data.ProtoLens.FieldDescriptor + "r" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'r")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + w__field_descriptor + = Data.ProtoLens.FieldDescriptor + "w" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'w")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + pw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pw")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + dw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "dw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'dw")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + rw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'rw")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + basicQuorum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "basic_quorum" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'basicQuorum")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + notfoundOk__field_descriptor + = Data.ProtoLens.FieldDescriptor + "notfound_ok" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'notfoundOk")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + backend__field_descriptor + = Data.ProtoLens.FieldDescriptor + "backend" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'backend")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + search__field_descriptor + = Data.ProtoLens.FieldDescriptor + "search" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'search")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + repl__field_descriptor + = Data.ProtoLens.FieldDescriptor + "repl" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor RpbBucketProps'RpbReplMode) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'repl")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + searchIndex__field_descriptor + = Data.ProtoLens.FieldDescriptor + "search_index" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'searchIndex")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + datatype__field_descriptor + = Data.ProtoLens.FieldDescriptor + "datatype" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'datatype")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + consistent__field_descriptor + = Data.ProtoLens.FieldDescriptor + "consistent" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'consistent")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + writeOnce__field_descriptor + = Data.ProtoLens.FieldDescriptor + "write_once" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'writeOnce")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + hllPrecision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hll_precision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hllPrecision")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + ttl__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ttl" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ttl")) :: + Data.ProtoLens.FieldDescriptor RpbBucketProps + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, nVal__field_descriptor), + (Data.ProtoLens.Tag 2, allowMult__field_descriptor), + (Data.ProtoLens.Tag 3, lastWriteWins__field_descriptor), + (Data.ProtoLens.Tag 4, precommit__field_descriptor), + (Data.ProtoLens.Tag 5, hasPrecommit__field_descriptor), + (Data.ProtoLens.Tag 6, postcommit__field_descriptor), + (Data.ProtoLens.Tag 7, hasPostcommit__field_descriptor), + (Data.ProtoLens.Tag 8, chashKeyfun__field_descriptor), + (Data.ProtoLens.Tag 9, linkfun__field_descriptor), + (Data.ProtoLens.Tag 10, oldVclock__field_descriptor), + (Data.ProtoLens.Tag 11, youngVclock__field_descriptor), + (Data.ProtoLens.Tag 12, bigVclock__field_descriptor), + (Data.ProtoLens.Tag 13, smallVclock__field_descriptor), + (Data.ProtoLens.Tag 14, pr__field_descriptor), + (Data.ProtoLens.Tag 15, r__field_descriptor), + (Data.ProtoLens.Tag 16, w__field_descriptor), + (Data.ProtoLens.Tag 17, pw__field_descriptor), + (Data.ProtoLens.Tag 18, dw__field_descriptor), + (Data.ProtoLens.Tag 19, rw__field_descriptor), + (Data.ProtoLens.Tag 20, basicQuorum__field_descriptor), + (Data.ProtoLens.Tag 21, notfoundOk__field_descriptor), + (Data.ProtoLens.Tag 22, backend__field_descriptor), + (Data.ProtoLens.Tag 23, search__field_descriptor), + (Data.ProtoLens.Tag 24, repl__field_descriptor), + (Data.ProtoLens.Tag 25, searchIndex__field_descriptor), + (Data.ProtoLens.Tag 26, datatype__field_descriptor), + (Data.ProtoLens.Tag 27, consistent__field_descriptor), + (Data.ProtoLens.Tag 28, writeOnce__field_descriptor), + (Data.ProtoLens.Tag 29, hllPrecision__field_descriptor), + (Data.ProtoLens.Tag 30, ttl__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbBucketProps'_unknownFields + (\ x__ y__ -> x__ {_RpbBucketProps'_unknownFields = y__}) + defMessage + = RpbBucketProps'_constructor + {_RpbBucketProps'nVal = Prelude.Nothing, + _RpbBucketProps'allowMult = Prelude.Nothing, + _RpbBucketProps'lastWriteWins = Prelude.Nothing, + _RpbBucketProps'precommit = Data.Vector.Generic.empty, + _RpbBucketProps'hasPrecommit = Prelude.Nothing, + _RpbBucketProps'postcommit = Data.Vector.Generic.empty, + _RpbBucketProps'hasPostcommit = Prelude.Nothing, + _RpbBucketProps'chashKeyfun = Prelude.Nothing, + _RpbBucketProps'linkfun = Prelude.Nothing, + _RpbBucketProps'oldVclock = Prelude.Nothing, + _RpbBucketProps'youngVclock = Prelude.Nothing, + _RpbBucketProps'bigVclock = Prelude.Nothing, + _RpbBucketProps'smallVclock = Prelude.Nothing, + _RpbBucketProps'pr = Prelude.Nothing, + _RpbBucketProps'r = Prelude.Nothing, + _RpbBucketProps'w = Prelude.Nothing, + _RpbBucketProps'pw = Prelude.Nothing, + _RpbBucketProps'dw = Prelude.Nothing, + _RpbBucketProps'rw = Prelude.Nothing, + _RpbBucketProps'basicQuorum = Prelude.Nothing, + _RpbBucketProps'notfoundOk = Prelude.Nothing, + _RpbBucketProps'backend = Prelude.Nothing, + _RpbBucketProps'search = Prelude.Nothing, + _RpbBucketProps'repl = Prelude.Nothing, + _RpbBucketProps'searchIndex = Prelude.Nothing, + _RpbBucketProps'datatype = Prelude.Nothing, + _RpbBucketProps'consistent = Prelude.Nothing, + _RpbBucketProps'writeOnce = Prelude.Nothing, + _RpbBucketProps'hllPrecision = Prelude.Nothing, + _RpbBucketProps'ttl = Prelude.Nothing, + _RpbBucketProps'_unknownFields = []} + parseMessage + = let + loop :: + RpbBucketProps + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbCommitHook + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbCommitHook + -> Data.ProtoLens.Encoding.Bytes.Parser RpbBucketProps + loop x mutable'postcommit mutable'precommit + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'postcommit <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'postcommit) + frozen'precommit <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'precommit) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'postcommit") + frozen'postcommit + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'precommit") frozen'precommit x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "n_val" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nVal") y x) + mutable'postcommit + mutable'precommit + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "allow_mult" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"allowMult") y x) + mutable'postcommit + mutable'precommit + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "last_write_wins" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"lastWriteWins") y x) + mutable'postcommit + mutable'precommit + 34 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "precommit" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'precommit y) + loop x mutable'postcommit v + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "has_precommit" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"hasPrecommit") y x) + mutable'postcommit + mutable'precommit + 50 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "postcommit" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'postcommit y) + loop x v mutable'precommit + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "has_postcommit" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"hasPostcommit") y x) + mutable'postcommit + mutable'precommit + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "chash_keyfun" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"chashKeyfun") y x) + mutable'postcommit + mutable'precommit + 74 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "linkfun" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"linkfun") y x) + mutable'postcommit + mutable'precommit + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "old_vclock" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"oldVclock") y x) + mutable'postcommit + mutable'precommit + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "young_vclock" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"youngVclock") y x) + mutable'postcommit + mutable'precommit + 96 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "big_vclock" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bigVclock") y x) + mutable'postcommit + mutable'precommit + 104 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "small_vclock" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"smallVclock") y x) + mutable'postcommit + mutable'precommit + 112 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "pr" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pr") y x) + mutable'postcommit + mutable'precommit + 120 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "r" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"r") y x) + mutable'postcommit + mutable'precommit + 128 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "w" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"w") y x) + mutable'postcommit + mutable'precommit + 136 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "pw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pw") y x) + mutable'postcommit + mutable'precommit + 144 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "dw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"dw") y x) + mutable'postcommit + mutable'precommit + 152 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "rw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"rw") y x) + mutable'postcommit + mutable'precommit + 160 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "basic_quorum" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"basicQuorum") y x) + mutable'postcommit + mutable'precommit + 168 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "notfound_ok" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"notfoundOk") y x) + mutable'postcommit + mutable'precommit + 178 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "backend" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"backend") y x) + mutable'postcommit + mutable'precommit + 184 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "search" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"search") y x) + mutable'postcommit + mutable'precommit + 192 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "repl" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"repl") y x) + mutable'postcommit + mutable'precommit + 202 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "search_index" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"searchIndex") y x) + mutable'postcommit + mutable'precommit + 210 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "datatype" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"datatype") y x) + mutable'postcommit + mutable'precommit + 216 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "consistent" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"consistent") y x) + mutable'postcommit + mutable'precommit + 224 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "write_once" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"writeOnce") y x) + mutable'postcommit + mutable'precommit + 232 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "hll_precision" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"hllPrecision") y x) + mutable'postcommit + mutable'precommit + 240 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "ttl" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ttl") y x) + mutable'postcommit + mutable'precommit + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'postcommit + mutable'precommit + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'postcommit <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'precommit <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage mutable'postcommit mutable'precommit) + "RpbBucketProps" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'nVal") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'allowMult") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'lastWriteWins") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'precommit") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'hasPrecommit") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'postcommit") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'hasPostcommit") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'chashKeyfun") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'linkfun") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'oldVclock") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'youngVclock") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'bigVclock") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'smallVclock") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 104) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'pr") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 112) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'r") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 120) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'w") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 128) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'pw") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 136) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'dw") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 144) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'rw") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 152) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'basicQuorum") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 160) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b + -> if b then + 1 + else + 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'notfoundOk") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 168) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b + -> if b then + 1 + else + 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'backend") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 178) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'search") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 184) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b + -> if b then + 1 + else + 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'repl") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 192) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral) + Prelude.fromEnum + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'searchIndex") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 202) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'datatype") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 210) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'consistent") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 216) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b + -> if b then + 1 + else + 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'writeOnce") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 224) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b + -> if b then + 1 + else + 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'hllPrecision") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 232) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'ttl") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 240) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields + _x))))))))))))))))))))))))))))))) +instance Control.DeepSeq.NFData RpbBucketProps where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbBucketProps'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'nVal x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'allowMult x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'lastWriteWins x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'precommit x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'hasPrecommit x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'postcommit x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'hasPostcommit x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'chashKeyfun x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'linkfun x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'oldVclock x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'youngVclock x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'bigVclock x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'smallVclock x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'pr x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'r x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'w x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'pw x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'dw x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'rw x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'basicQuorum + x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'notfoundOk + x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'backend + x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'search + x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'repl + x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'searchIndex + x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'datatype + x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'consistent + x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'writeOnce + x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'hllPrecision + x__) + (Control.DeepSeq.deepseq + (_RpbBucketProps'ttl + x__) + ())))))))))))))))))))))))))))))) +data RpbBucketProps'RpbReplMode + = RpbBucketProps'FALSE | + RpbBucketProps'REALTIME | + RpbBucketProps'FULLSYNC | + RpbBucketProps'TRUE + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum RpbBucketProps'RpbReplMode where + maybeToEnum 0 = Prelude.Just RpbBucketProps'FALSE + maybeToEnum 1 = Prelude.Just RpbBucketProps'REALTIME + maybeToEnum 2 = Prelude.Just RpbBucketProps'FULLSYNC + maybeToEnum 3 = Prelude.Just RpbBucketProps'TRUE + maybeToEnum _ = Prelude.Nothing + showEnum RpbBucketProps'FALSE = "FALSE" + showEnum RpbBucketProps'REALTIME = "REALTIME" + showEnum RpbBucketProps'FULLSYNC = "FULLSYNC" + showEnum RpbBucketProps'TRUE = "TRUE" + readEnum k + | (Prelude.==) k "FALSE" = Prelude.Just RpbBucketProps'FALSE + | (Prelude.==) k "REALTIME" = Prelude.Just RpbBucketProps'REALTIME + | (Prelude.==) k "FULLSYNC" = Prelude.Just RpbBucketProps'FULLSYNC + | (Prelude.==) k "TRUE" = Prelude.Just RpbBucketProps'TRUE + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded RpbBucketProps'RpbReplMode where + minBound = RpbBucketProps'FALSE + maxBound = RpbBucketProps'TRUE +instance Prelude.Enum RpbBucketProps'RpbReplMode where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum RpbReplMode: " (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum RpbBucketProps'FALSE = 0 + fromEnum RpbBucketProps'REALTIME = 1 + fromEnum RpbBucketProps'FULLSYNC = 2 + fromEnum RpbBucketProps'TRUE = 3 + succ RpbBucketProps'TRUE + = Prelude.error + "RpbBucketProps'RpbReplMode.succ: bad argument RpbBucketProps'TRUE. This value would be out of bounds." + succ RpbBucketProps'FALSE = RpbBucketProps'REALTIME + succ RpbBucketProps'REALTIME = RpbBucketProps'FULLSYNC + succ RpbBucketProps'FULLSYNC = RpbBucketProps'TRUE + pred RpbBucketProps'FALSE + = Prelude.error + "RpbBucketProps'RpbReplMode.pred: bad argument RpbBucketProps'FALSE. This value would be out of bounds." + pred RpbBucketProps'REALTIME = RpbBucketProps'FALSE + pred RpbBucketProps'FULLSYNC = RpbBucketProps'REALTIME + pred RpbBucketProps'TRUE = RpbBucketProps'FULLSYNC + 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 RpbBucketProps'RpbReplMode where + fieldDefault = RpbBucketProps'FALSE +instance Control.DeepSeq.NFData RpbBucketProps'RpbReplMode where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbCSBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.startKey' @:: Lens' RpbCSBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.endKey' @:: Lens' RpbCSBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'endKey' @:: Lens' RpbCSBucketReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.startIncl' @:: Lens' RpbCSBucketReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'startIncl' @:: Lens' RpbCSBucketReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.endIncl' @:: Lens' RpbCSBucketReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'endIncl' @:: Lens' RpbCSBucketReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.continuation' @:: Lens' RpbCSBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'continuation' @:: Lens' RpbCSBucketReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.maxResults' @:: Lens' RpbCSBucketReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'maxResults' @:: Lens' RpbCSBucketReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.timeout' @:: Lens' RpbCSBucketReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' RpbCSBucketReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbCSBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbCSBucketReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.coverContext' @:: Lens' RpbCSBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'coverContext' @:: Lens' RpbCSBucketReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbCSBucketReq + = RpbCSBucketReq'_constructor {_RpbCSBucketReq'bucket :: !Data.ByteString.ByteString, + _RpbCSBucketReq'startKey :: !Data.ByteString.ByteString, + _RpbCSBucketReq'endKey :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbCSBucketReq'startIncl :: !(Prelude.Maybe Prelude.Bool), + _RpbCSBucketReq'endIncl :: !(Prelude.Maybe Prelude.Bool), + _RpbCSBucketReq'continuation :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbCSBucketReq'maxResults :: !(Prelude.Maybe Data.Word.Word32), + _RpbCSBucketReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _RpbCSBucketReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbCSBucketReq'coverContext :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbCSBucketReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbCSBucketReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'bucket + (\ x__ y__ -> x__ {_RpbCSBucketReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "startKey" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'startKey + (\ x__ y__ -> x__ {_RpbCSBucketReq'startKey = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "endKey" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'endKey + (\ x__ y__ -> x__ {_RpbCSBucketReq'endKey = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "maybe'endKey" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'endKey + (\ x__ y__ -> x__ {_RpbCSBucketReq'endKey = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "startIncl" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'startIncl + (\ x__ y__ -> x__ {_RpbCSBucketReq'startIncl = y__})) + (Data.ProtoLens.maybeLens Prelude.True) +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "maybe'startIncl" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'startIncl + (\ x__ y__ -> x__ {_RpbCSBucketReq'startIncl = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "endIncl" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'endIncl + (\ x__ y__ -> x__ {_RpbCSBucketReq'endIncl = y__})) + (Data.ProtoLens.maybeLens Prelude.False) +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "maybe'endIncl" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'endIncl + (\ x__ y__ -> x__ {_RpbCSBucketReq'endIncl = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "continuation" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'continuation + (\ x__ y__ -> x__ {_RpbCSBucketReq'continuation = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "maybe'continuation" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'continuation + (\ x__ y__ -> x__ {_RpbCSBucketReq'continuation = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "maxResults" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'maxResults + (\ x__ y__ -> x__ {_RpbCSBucketReq'maxResults = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "maybe'maxResults" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'maxResults + (\ x__ y__ -> x__ {_RpbCSBucketReq'maxResults = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'timeout + (\ x__ y__ -> x__ {_RpbCSBucketReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'timeout + (\ x__ y__ -> x__ {_RpbCSBucketReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'type' + (\ x__ y__ -> x__ {_RpbCSBucketReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'type' + (\ x__ y__ -> x__ {_RpbCSBucketReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "coverContext" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'coverContext + (\ x__ y__ -> x__ {_RpbCSBucketReq'coverContext = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCSBucketReq "maybe'coverContext" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketReq'coverContext + (\ x__ y__ -> x__ {_RpbCSBucketReq'coverContext = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbCSBucketReq where + messageName _ = Data.Text.pack "RpbCSBucketReq" + packedMessageDescriptor _ + = "\n\ + \\SORpbCSBucketReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\ESC\n\ + \\tstart_key\CAN\STX \STX(\fR\bstartKey\DC2\ETB\n\ + \\aend_key\CAN\ETX \SOH(\fR\ACKendKey\DC2#\n\ + \\n\ + \start_incl\CAN\EOT \SOH(\b:\EOTtrueR\tstartIncl\DC2 \n\ + \\bend_incl\CAN\ENQ \SOH(\b:\ENQfalseR\aendIncl\DC2\"\n\ + \\fcontinuation\CAN\ACK \SOH(\fR\fcontinuation\DC2\US\n\ + \\vmax_results\CAN\a \SOH(\rR\n\ + \maxResults\DC2\CAN\n\ + \\atimeout\CAN\b \SOH(\rR\atimeout\DC2\DC2\n\ + \\EOTtype\CAN\t \SOH(\fR\EOTtype\DC2#\n\ + \\rcover_context\CAN\n\ + \ \SOH(\fR\fcoverContext" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketReq + startKey__field_descriptor + = Data.ProtoLens.FieldDescriptor + "start_key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"startKey")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketReq + endKey__field_descriptor + = Data.ProtoLens.FieldDescriptor + "end_key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'endKey")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketReq + startIncl__field_descriptor + = Data.ProtoLens.FieldDescriptor + "start_incl" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'startIncl")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketReq + endIncl__field_descriptor + = Data.ProtoLens.FieldDescriptor + "end_incl" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'endIncl")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketReq + continuation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "continuation" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'continuation")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketReq + maxResults__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_results" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'maxResults")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketReq + coverContext__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cover_context" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coverContext")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, startKey__field_descriptor), + (Data.ProtoLens.Tag 3, endKey__field_descriptor), + (Data.ProtoLens.Tag 4, startIncl__field_descriptor), + (Data.ProtoLens.Tag 5, endIncl__field_descriptor), + (Data.ProtoLens.Tag 6, continuation__field_descriptor), + (Data.ProtoLens.Tag 7, maxResults__field_descriptor), + (Data.ProtoLens.Tag 8, timeout__field_descriptor), + (Data.ProtoLens.Tag 9, type'__field_descriptor), + (Data.ProtoLens.Tag 10, coverContext__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbCSBucketReq'_unknownFields + (\ x__ y__ -> x__ {_RpbCSBucketReq'_unknownFields = y__}) + defMessage + = RpbCSBucketReq'_constructor + {_RpbCSBucketReq'bucket = Data.ProtoLens.fieldDefault, + _RpbCSBucketReq'startKey = Data.ProtoLens.fieldDefault, + _RpbCSBucketReq'endKey = Prelude.Nothing, + _RpbCSBucketReq'startIncl = Prelude.Nothing, + _RpbCSBucketReq'endIncl = Prelude.Nothing, + _RpbCSBucketReq'continuation = Prelude.Nothing, + _RpbCSBucketReq'maxResults = Prelude.Nothing, + _RpbCSBucketReq'timeout = Prelude.Nothing, + _RpbCSBucketReq'type' = Prelude.Nothing, + _RpbCSBucketReq'coverContext = Prelude.Nothing, + _RpbCSBucketReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbCSBucketReq + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbCSBucketReq + loop x required'bucket required'startKey + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'bucket then (:) "bucket" else Prelude.id) + ((if required'startKey then (:) "start_key" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + required'startKey + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "start_key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"startKey") y x) + required'bucket + Prelude.False + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "end_key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"endKey") y x) + required'bucket + required'startKey + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "start_incl" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"startIncl") y x) + required'bucket + required'startKey + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "end_incl" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"endIncl") y x) + required'bucket + required'startKey + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "continuation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"continuation") y x) + required'bucket + required'startKey + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_results" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"maxResults") y x) + required'bucket + required'startKey + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'bucket + required'startKey + 74 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + required'startKey + 82 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "cover_context" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"coverContext") y x) + required'bucket + required'startKey + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + required'startKey + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbCSBucketReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"startKey") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'endKey") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'startIncl") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'endIncl") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'continuation") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'maxResults") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'type'") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'coverContext") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x))))))))))) +instance Control.DeepSeq.NFData RpbCSBucketReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbCSBucketReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketReq'startKey x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketReq'endKey x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketReq'startIncl x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketReq'endIncl x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketReq'continuation x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketReq'maxResults x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketReq'timeout x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketReq'type' x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketReq'coverContext x__) ())))))))))) +{- | Fields : + + * 'Proto.Riak_Fields.objects' @:: Lens' RpbCSBucketResp [RpbIndexObject]@ + * 'Proto.Riak_Fields.vec'objects' @:: Lens' RpbCSBucketResp (Data.Vector.Vector RpbIndexObject)@ + * 'Proto.Riak_Fields.continuation' @:: Lens' RpbCSBucketResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'continuation' @:: Lens' RpbCSBucketResp (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.done' @:: Lens' RpbCSBucketResp Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'done' @:: Lens' RpbCSBucketResp (Prelude.Maybe Prelude.Bool)@ -} +data RpbCSBucketResp + = RpbCSBucketResp'_constructor {_RpbCSBucketResp'objects :: !(Data.Vector.Vector RpbIndexObject), + _RpbCSBucketResp'continuation :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbCSBucketResp'done :: !(Prelude.Maybe Prelude.Bool), + _RpbCSBucketResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbCSBucketResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbCSBucketResp "objects" [RpbIndexObject] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketResp'objects + (\ x__ y__ -> x__ {_RpbCSBucketResp'objects = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbCSBucketResp "vec'objects" (Data.Vector.Vector RpbIndexObject) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketResp'objects + (\ x__ y__ -> x__ {_RpbCSBucketResp'objects = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketResp "continuation" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketResp'continuation + (\ x__ y__ -> x__ {_RpbCSBucketResp'continuation = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCSBucketResp "maybe'continuation" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketResp'continuation + (\ x__ y__ -> x__ {_RpbCSBucketResp'continuation = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCSBucketResp "done" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketResp'done + (\ x__ y__ -> x__ {_RpbCSBucketResp'done = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCSBucketResp "maybe'done" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCSBucketResp'done + (\ x__ y__ -> x__ {_RpbCSBucketResp'done = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbCSBucketResp where + messageName _ = Data.Text.pack "RpbCSBucketResp" + packedMessageDescriptor _ + = "\n\ + \\SIRpbCSBucketResp\DC2)\n\ + \\aobjects\CAN\SOH \ETX(\v2\SI.RpbIndexObjectR\aobjects\DC2\"\n\ + \\fcontinuation\CAN\STX \SOH(\fR\fcontinuation\DC2\DC2\n\ + \\EOTdone\CAN\ETX \SOH(\bR\EOTdone" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + objects__field_descriptor + = Data.ProtoLens.FieldDescriptor + "objects" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbIndexObject) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"objects")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketResp + continuation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "continuation" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'continuation")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketResp + done__field_descriptor + = Data.ProtoLens.FieldDescriptor + "done" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'done")) :: + Data.ProtoLens.FieldDescriptor RpbCSBucketResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, objects__field_descriptor), + (Data.ProtoLens.Tag 2, continuation__field_descriptor), + (Data.ProtoLens.Tag 3, done__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbCSBucketResp'_unknownFields + (\ x__ y__ -> x__ {_RpbCSBucketResp'_unknownFields = y__}) + defMessage + = RpbCSBucketResp'_constructor + {_RpbCSBucketResp'objects = Data.Vector.Generic.empty, + _RpbCSBucketResp'continuation = Prelude.Nothing, + _RpbCSBucketResp'done = Prelude.Nothing, + _RpbCSBucketResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbCSBucketResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbIndexObject + -> Data.ProtoLens.Encoding.Bytes.Parser RpbCSBucketResp + loop x mutable'objects + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'objects <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'objects) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'objects") frozen'objects x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "objects" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'objects y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "continuation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"continuation") y x) + mutable'objects + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "done" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"done") y x) + mutable'objects + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'objects + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'objects <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'objects) + "RpbCSBucketResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'objects") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'continuation") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'done") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbCSBucketResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbCSBucketResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketResp'objects x__) + (Control.DeepSeq.deepseq + (_RpbCSBucketResp'continuation x__) + (Control.DeepSeq.deepseq (_RpbCSBucketResp'done x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.modfun' @:: Lens' RpbCommitHook RpbModFun@ + * 'Proto.Riak_Fields.maybe'modfun' @:: Lens' RpbCommitHook (Prelude.Maybe RpbModFun)@ + * 'Proto.Riak_Fields.name' @:: Lens' RpbCommitHook Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'name' @:: Lens' RpbCommitHook (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbCommitHook + = RpbCommitHook'_constructor {_RpbCommitHook'modfun :: !(Prelude.Maybe RpbModFun), + _RpbCommitHook'name :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbCommitHook'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbCommitHook where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbCommitHook "modfun" RpbModFun where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCommitHook'modfun + (\ x__ y__ -> x__ {_RpbCommitHook'modfun = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField RpbCommitHook "maybe'modfun" (Prelude.Maybe RpbModFun) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCommitHook'modfun + (\ x__ y__ -> x__ {_RpbCommitHook'modfun = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCommitHook "name" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCommitHook'name (\ x__ y__ -> x__ {_RpbCommitHook'name = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCommitHook "maybe'name" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCommitHook'name (\ x__ y__ -> x__ {_RpbCommitHook'name = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbCommitHook where + messageName _ = Data.Text.pack "RpbCommitHook" + packedMessageDescriptor _ + = "\n\ + \\rRpbCommitHook\DC2\"\n\ + \\ACKmodfun\CAN\SOH \SOH(\v2\n\ + \.RpbModFunR\ACKmodfun\DC2\DC2\n\ + \\EOTname\CAN\STX \SOH(\fR\EOTname" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + modfun__field_descriptor + = Data.ProtoLens.FieldDescriptor + "modfun" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbModFun) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'modfun")) :: + Data.ProtoLens.FieldDescriptor RpbCommitHook + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'name")) :: + Data.ProtoLens.FieldDescriptor RpbCommitHook + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, modfun__field_descriptor), + (Data.ProtoLens.Tag 2, name__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbCommitHook'_unknownFields + (\ x__ y__ -> x__ {_RpbCommitHook'_unknownFields = y__}) + defMessage + = RpbCommitHook'_constructor + {_RpbCommitHook'modfun = Prelude.Nothing, + _RpbCommitHook'name = Prelude.Nothing, + _RpbCommitHook'_unknownFields = []} + parseMessage + = let + loop :: + RpbCommitHook -> Data.ProtoLens.Encoding.Bytes.Parser RpbCommitHook + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "modfun" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"modfun") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbCommitHook" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'modfun") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbCommitHook where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbCommitHook'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbCommitHook'modfun x__) + (Control.DeepSeq.deepseq (_RpbCommitHook'name x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.value' @:: Lens' RpbContent Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.contentType' @:: Lens' RpbContent Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'contentType' @:: Lens' RpbContent (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.charset' @:: Lens' RpbContent Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'charset' @:: Lens' RpbContent (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.contentEncoding' @:: Lens' RpbContent Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'contentEncoding' @:: Lens' RpbContent (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.vtag' @:: Lens' RpbContent Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'vtag' @:: Lens' RpbContent (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.links' @:: Lens' RpbContent [RpbLink]@ + * 'Proto.Riak_Fields.vec'links' @:: Lens' RpbContent (Data.Vector.Vector RpbLink)@ + * 'Proto.Riak_Fields.lastMod' @:: Lens' RpbContent Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'lastMod' @:: Lens' RpbContent (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.lastModUsecs' @:: Lens' RpbContent Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'lastModUsecs' @:: Lens' RpbContent (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.usermeta' @:: Lens' RpbContent [RpbPair]@ + * 'Proto.Riak_Fields.vec'usermeta' @:: Lens' RpbContent (Data.Vector.Vector RpbPair)@ + * 'Proto.Riak_Fields.indexes' @:: Lens' RpbContent [RpbPair]@ + * 'Proto.Riak_Fields.vec'indexes' @:: Lens' RpbContent (Data.Vector.Vector RpbPair)@ + * 'Proto.Riak_Fields.deleted' @:: Lens' RpbContent Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'deleted' @:: Lens' RpbContent (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.ttl' @:: Lens' RpbContent Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'ttl' @:: Lens' RpbContent (Prelude.Maybe Data.Word.Word32)@ -} +data RpbContent + = RpbContent'_constructor {_RpbContent'value :: !Data.ByteString.ByteString, + _RpbContent'contentType :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbContent'charset :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbContent'contentEncoding :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbContent'vtag :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbContent'links :: !(Data.Vector.Vector RpbLink), + _RpbContent'lastMod :: !(Prelude.Maybe Data.Word.Word32), + _RpbContent'lastModUsecs :: !(Prelude.Maybe Data.Word.Word32), + _RpbContent'usermeta :: !(Data.Vector.Vector RpbPair), + _RpbContent'indexes :: !(Data.Vector.Vector RpbPair), + _RpbContent'deleted :: !(Prelude.Maybe Prelude.Bool), + _RpbContent'ttl :: !(Prelude.Maybe Data.Word.Word32), + _RpbContent'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbContent where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbContent "value" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'value (\ x__ y__ -> x__ {_RpbContent'value = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "contentType" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'contentType + (\ x__ y__ -> x__ {_RpbContent'contentType = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbContent "maybe'contentType" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'contentType + (\ x__ y__ -> x__ {_RpbContent'contentType = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "charset" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'charset (\ x__ y__ -> x__ {_RpbContent'charset = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbContent "maybe'charset" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'charset (\ x__ y__ -> x__ {_RpbContent'charset = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "contentEncoding" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'contentEncoding + (\ x__ y__ -> x__ {_RpbContent'contentEncoding = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbContent "maybe'contentEncoding" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'contentEncoding + (\ x__ y__ -> x__ {_RpbContent'contentEncoding = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "vtag" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'vtag (\ x__ y__ -> x__ {_RpbContent'vtag = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbContent "maybe'vtag" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'vtag (\ x__ y__ -> x__ {_RpbContent'vtag = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "links" [RpbLink] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'links (\ x__ y__ -> x__ {_RpbContent'links = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbContent "vec'links" (Data.Vector.Vector RpbLink) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'links (\ x__ y__ -> x__ {_RpbContent'links = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "lastMod" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'lastMod (\ x__ y__ -> x__ {_RpbContent'lastMod = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbContent "maybe'lastMod" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'lastMod (\ x__ y__ -> x__ {_RpbContent'lastMod = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "lastModUsecs" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'lastModUsecs + (\ x__ y__ -> x__ {_RpbContent'lastModUsecs = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbContent "maybe'lastModUsecs" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'lastModUsecs + (\ x__ y__ -> x__ {_RpbContent'lastModUsecs = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "usermeta" [RpbPair] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'usermeta + (\ x__ y__ -> x__ {_RpbContent'usermeta = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbContent "vec'usermeta" (Data.Vector.Vector RpbPair) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'usermeta + (\ x__ y__ -> x__ {_RpbContent'usermeta = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "indexes" [RpbPair] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'indexes (\ x__ y__ -> x__ {_RpbContent'indexes = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbContent "vec'indexes" (Data.Vector.Vector RpbPair) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'indexes (\ x__ y__ -> x__ {_RpbContent'indexes = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "deleted" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'deleted (\ x__ y__ -> x__ {_RpbContent'deleted = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbContent "maybe'deleted" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'deleted (\ x__ y__ -> x__ {_RpbContent'deleted = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbContent "ttl" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'ttl (\ x__ y__ -> x__ {_RpbContent'ttl = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbContent "maybe'ttl" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbContent'ttl (\ x__ y__ -> x__ {_RpbContent'ttl = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbContent where + messageName _ = Data.Text.pack "RpbContent" + packedMessageDescriptor _ + = "\n\ + \\n\ + \RpbContent\DC2\DC4\n\ + \\ENQvalue\CAN\SOH \STX(\fR\ENQvalue\DC2!\n\ + \\fcontent_type\CAN\STX \SOH(\fR\vcontentType\DC2\CAN\n\ + \\acharset\CAN\ETX \SOH(\fR\acharset\DC2)\n\ + \\DLEcontent_encoding\CAN\EOT \SOH(\fR\SIcontentEncoding\DC2\DC2\n\ + \\EOTvtag\CAN\ENQ \SOH(\fR\EOTvtag\DC2\RS\n\ + \\ENQlinks\CAN\ACK \ETX(\v2\b.RpbLinkR\ENQlinks\DC2\EM\n\ + \\blast_mod\CAN\a \SOH(\rR\alastMod\DC2$\n\ + \\SOlast_mod_usecs\CAN\b \SOH(\rR\flastModUsecs\DC2$\n\ + \\busermeta\CAN\t \ETX(\v2\b.RpbPairR\busermeta\DC2\"\n\ + \\aindexes\CAN\n\ + \ \ETX(\v2\b.RpbPairR\aindexes\DC2\CAN\n\ + \\adeleted\CAN\v \SOH(\bR\adeleted\DC2\DLE\n\ + \\ETXttl\CAN\f \SOH(\rR\ETXttl" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor RpbContent + contentType__field_descriptor + = Data.ProtoLens.FieldDescriptor + "content_type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'contentType")) :: + Data.ProtoLens.FieldDescriptor RpbContent + charset__field_descriptor + = Data.ProtoLens.FieldDescriptor + "charset" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'charset")) :: + Data.ProtoLens.FieldDescriptor RpbContent + contentEncoding__field_descriptor + = Data.ProtoLens.FieldDescriptor + "content_encoding" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'contentEncoding")) :: + Data.ProtoLens.FieldDescriptor RpbContent + vtag__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vtag" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'vtag")) :: + Data.ProtoLens.FieldDescriptor RpbContent + links__field_descriptor + = Data.ProtoLens.FieldDescriptor + "links" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbLink) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"links")) :: + Data.ProtoLens.FieldDescriptor RpbContent + lastMod__field_descriptor + = Data.ProtoLens.FieldDescriptor + "last_mod" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'lastMod")) :: + Data.ProtoLens.FieldDescriptor RpbContent + lastModUsecs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "last_mod_usecs" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'lastModUsecs")) :: + Data.ProtoLens.FieldDescriptor RpbContent + usermeta__field_descriptor + = Data.ProtoLens.FieldDescriptor + "usermeta" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbPair) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"usermeta")) :: + Data.ProtoLens.FieldDescriptor RpbContent + indexes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "indexes" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbPair) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"indexes")) :: + Data.ProtoLens.FieldDescriptor RpbContent + deleted__field_descriptor + = Data.ProtoLens.FieldDescriptor + "deleted" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'deleted")) :: + Data.ProtoLens.FieldDescriptor RpbContent + ttl__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ttl" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ttl")) :: + Data.ProtoLens.FieldDescriptor RpbContent + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, value__field_descriptor), + (Data.ProtoLens.Tag 2, contentType__field_descriptor), + (Data.ProtoLens.Tag 3, charset__field_descriptor), + (Data.ProtoLens.Tag 4, contentEncoding__field_descriptor), + (Data.ProtoLens.Tag 5, vtag__field_descriptor), + (Data.ProtoLens.Tag 6, links__field_descriptor), + (Data.ProtoLens.Tag 7, lastMod__field_descriptor), + (Data.ProtoLens.Tag 8, lastModUsecs__field_descriptor), + (Data.ProtoLens.Tag 9, usermeta__field_descriptor), + (Data.ProtoLens.Tag 10, indexes__field_descriptor), + (Data.ProtoLens.Tag 11, deleted__field_descriptor), + (Data.ProtoLens.Tag 12, ttl__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbContent'_unknownFields + (\ x__ y__ -> x__ {_RpbContent'_unknownFields = y__}) + defMessage + = RpbContent'_constructor + {_RpbContent'value = Data.ProtoLens.fieldDefault, + _RpbContent'contentType = Prelude.Nothing, + _RpbContent'charset = Prelude.Nothing, + _RpbContent'contentEncoding = Prelude.Nothing, + _RpbContent'vtag = Prelude.Nothing, + _RpbContent'links = Data.Vector.Generic.empty, + _RpbContent'lastMod = Prelude.Nothing, + _RpbContent'lastModUsecs = Prelude.Nothing, + _RpbContent'usermeta = Data.Vector.Generic.empty, + _RpbContent'indexes = Data.Vector.Generic.empty, + _RpbContent'deleted = Prelude.Nothing, + _RpbContent'ttl = Prelude.Nothing, _RpbContent'_unknownFields = []} + parseMessage + = let + loop :: + RpbContent + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbPair + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbLink + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbPair + -> Data.ProtoLens.Encoding.Bytes.Parser RpbContent + loop + x + required'value + mutable'indexes + mutable'links + mutable'usermeta + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'indexes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'indexes) + frozen'links <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'links) + frozen'usermeta <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'usermeta) + (let + missing = (if required'value then (:) "value" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'indexes") + frozen'indexes + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'links") + frozen'links + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'usermeta") + frozen'usermeta + x)))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "value" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + Prelude.False + mutable'indexes + mutable'links + mutable'usermeta + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "content_type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"contentType") y x) + required'value + mutable'indexes + mutable'links + mutable'usermeta + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "charset" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"charset") y x) + required'value + mutable'indexes + mutable'links + mutable'usermeta + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "content_encoding" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"contentEncoding") y x) + required'value + mutable'indexes + mutable'links + mutable'usermeta + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "vtag" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"vtag") y x) + required'value + mutable'indexes + mutable'links + mutable'usermeta + 50 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "links" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'links y) + loop x required'value mutable'indexes v mutable'usermeta + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "last_mod" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"lastMod") y x) + required'value + mutable'indexes + mutable'links + mutable'usermeta + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "last_mod_usecs" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"lastModUsecs") y x) + required'value + mutable'indexes + mutable'links + mutable'usermeta + 74 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "usermeta" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'usermeta y) + loop x required'value mutable'indexes mutable'links v + 82 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "indexes" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'indexes y) + loop x required'value v mutable'links mutable'usermeta + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "deleted" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"deleted") y x) + required'value + mutable'indexes + mutable'links + mutable'usermeta + 96 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "ttl" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ttl") y x) + required'value + mutable'indexes + mutable'links + mutable'usermeta + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'value + mutable'indexes + mutable'links + mutable'usermeta + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'indexes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'links <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'usermeta <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + Prelude.True + mutable'indexes + mutable'links + mutable'usermeta) + "RpbContent" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'contentType") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'charset") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'contentEncoding") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'vtag") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'links") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'lastMod") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'lastModUsecs") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'usermeta") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'indexes") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'deleted") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ttl") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x))))))))))))) +instance Control.DeepSeq.NFData RpbContent where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbContent'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbContent'value x__) + (Control.DeepSeq.deepseq + (_RpbContent'contentType x__) + (Control.DeepSeq.deepseq + (_RpbContent'charset x__) + (Control.DeepSeq.deepseq + (_RpbContent'contentEncoding x__) + (Control.DeepSeq.deepseq + (_RpbContent'vtag x__) + (Control.DeepSeq.deepseq + (_RpbContent'links x__) + (Control.DeepSeq.deepseq + (_RpbContent'lastMod x__) + (Control.DeepSeq.deepseq + (_RpbContent'lastModUsecs x__) + (Control.DeepSeq.deepseq + (_RpbContent'usermeta x__) + (Control.DeepSeq.deepseq + (_RpbContent'indexes x__) + (Control.DeepSeq.deepseq + (_RpbContent'deleted x__) + (Control.DeepSeq.deepseq + (_RpbContent'ttl x__) ())))))))))))) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbCounterGetReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.key' @:: Lens' RpbCounterGetReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.r' @:: Lens' RpbCounterGetReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'r' @:: Lens' RpbCounterGetReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.pr' @:: Lens' RpbCounterGetReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'pr' @:: Lens' RpbCounterGetReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.basicQuorum' @:: Lens' RpbCounterGetReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'basicQuorum' @:: Lens' RpbCounterGetReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.notfoundOk' @:: Lens' RpbCounterGetReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'notfoundOk' @:: Lens' RpbCounterGetReq (Prelude.Maybe Prelude.Bool)@ -} +data RpbCounterGetReq + = RpbCounterGetReq'_constructor {_RpbCounterGetReq'bucket :: !Data.ByteString.ByteString, + _RpbCounterGetReq'key :: !Data.ByteString.ByteString, + _RpbCounterGetReq'r :: !(Prelude.Maybe Data.Word.Word32), + _RpbCounterGetReq'pr :: !(Prelude.Maybe Data.Word.Word32), + _RpbCounterGetReq'basicQuorum :: !(Prelude.Maybe Prelude.Bool), + _RpbCounterGetReq'notfoundOk :: !(Prelude.Maybe Prelude.Bool), + _RpbCounterGetReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbCounterGetReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbCounterGetReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetReq'bucket + (\ x__ y__ -> x__ {_RpbCounterGetReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterGetReq "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetReq'key + (\ x__ y__ -> x__ {_RpbCounterGetReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterGetReq "r" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetReq'r (\ x__ y__ -> x__ {_RpbCounterGetReq'r = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCounterGetReq "maybe'r" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetReq'r (\ x__ y__ -> x__ {_RpbCounterGetReq'r = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterGetReq "pr" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetReq'pr + (\ x__ y__ -> x__ {_RpbCounterGetReq'pr = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCounterGetReq "maybe'pr" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetReq'pr + (\ x__ y__ -> x__ {_RpbCounterGetReq'pr = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterGetReq "basicQuorum" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetReq'basicQuorum + (\ x__ y__ -> x__ {_RpbCounterGetReq'basicQuorum = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCounterGetReq "maybe'basicQuorum" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetReq'basicQuorum + (\ x__ y__ -> x__ {_RpbCounterGetReq'basicQuorum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterGetReq "notfoundOk" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetReq'notfoundOk + (\ x__ y__ -> x__ {_RpbCounterGetReq'notfoundOk = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCounterGetReq "maybe'notfoundOk" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetReq'notfoundOk + (\ x__ y__ -> x__ {_RpbCounterGetReq'notfoundOk = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbCounterGetReq where + messageName _ = Data.Text.pack "RpbCounterGetReq" + packedMessageDescriptor _ + = "\n\ + \\DLERpbCounterGetReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\f\n\ + \\SOHr\CAN\ETX \SOH(\rR\SOHr\DC2\SO\n\ + \\STXpr\CAN\EOT \SOH(\rR\STXpr\DC2!\n\ + \\fbasic_quorum\CAN\ENQ \SOH(\bR\vbasicQuorum\DC2\US\n\ + \\vnotfound_ok\CAN\ACK \SOH(\bR\n\ + \notfoundOk" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbCounterGetReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor RpbCounterGetReq + r__field_descriptor + = Data.ProtoLens.FieldDescriptor + "r" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'r")) :: + Data.ProtoLens.FieldDescriptor RpbCounterGetReq + pr__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pr" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pr")) :: + Data.ProtoLens.FieldDescriptor RpbCounterGetReq + basicQuorum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "basic_quorum" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'basicQuorum")) :: + Data.ProtoLens.FieldDescriptor RpbCounterGetReq + notfoundOk__field_descriptor + = Data.ProtoLens.FieldDescriptor + "notfound_ok" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'notfoundOk")) :: + Data.ProtoLens.FieldDescriptor RpbCounterGetReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, r__field_descriptor), + (Data.ProtoLens.Tag 4, pr__field_descriptor), + (Data.ProtoLens.Tag 5, basicQuorum__field_descriptor), + (Data.ProtoLens.Tag 6, notfoundOk__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbCounterGetReq'_unknownFields + (\ x__ y__ -> x__ {_RpbCounterGetReq'_unknownFields = y__}) + defMessage + = RpbCounterGetReq'_constructor + {_RpbCounterGetReq'bucket = Data.ProtoLens.fieldDefault, + _RpbCounterGetReq'key = Data.ProtoLens.fieldDefault, + _RpbCounterGetReq'r = Prelude.Nothing, + _RpbCounterGetReq'pr = Prelude.Nothing, + _RpbCounterGetReq'basicQuorum = Prelude.Nothing, + _RpbCounterGetReq'notfoundOk = Prelude.Nothing, + _RpbCounterGetReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbCounterGetReq + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbCounterGetReq + loop x required'bucket required'key + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'bucket then (:) "bucket" else Prelude.id) + ((if required'key then (:) "key" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + required'key + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + required'bucket + Prelude.False + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "r" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"r") y x) + required'bucket + required'key + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "pr" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pr") y x) + required'bucket + required'key + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "basic_quorum" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"basicQuorum") y x) + required'bucket + required'key + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "notfound_ok" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"notfoundOk") y x) + required'bucket + required'key + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + required'key + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbCounterGetReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'r") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pr") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'basicQuorum") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'notfoundOk") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) +instance Control.DeepSeq.NFData RpbCounterGetReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbCounterGetReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbCounterGetReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbCounterGetReq'key x__) + (Control.DeepSeq.deepseq + (_RpbCounterGetReq'r x__) + (Control.DeepSeq.deepseq + (_RpbCounterGetReq'pr x__) + (Control.DeepSeq.deepseq + (_RpbCounterGetReq'basicQuorum x__) + (Control.DeepSeq.deepseq + (_RpbCounterGetReq'notfoundOk x__) ())))))) +{- | Fields : + + * 'Proto.Riak_Fields.value' @:: Lens' RpbCounterGetResp Data.Int.Int64@ + * 'Proto.Riak_Fields.maybe'value' @:: Lens' RpbCounterGetResp (Prelude.Maybe Data.Int.Int64)@ -} +data RpbCounterGetResp + = RpbCounterGetResp'_constructor {_RpbCounterGetResp'value :: !(Prelude.Maybe Data.Int.Int64), + _RpbCounterGetResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbCounterGetResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbCounterGetResp "value" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetResp'value + (\ x__ y__ -> x__ {_RpbCounterGetResp'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCounterGetResp "maybe'value" (Prelude.Maybe Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterGetResp'value + (\ x__ y__ -> x__ {_RpbCounterGetResp'value = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbCounterGetResp where + messageName _ = Data.Text.pack "RpbCounterGetResp" + packedMessageDescriptor _ + = "\n\ + \\DC1RpbCounterGetResp\DC2\DC4\n\ + \\ENQvalue\CAN\SOH \SOH(\DC2R\ENQvalue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor RpbCounterGetResp + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbCounterGetResp'_unknownFields + (\ x__ y__ -> x__ {_RpbCounterGetResp'_unknownFields = y__}) + defMessage + = RpbCounterGetResp'_constructor + {_RpbCounterGetResp'value = Prelude.Nothing, + _RpbCounterGetResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbCounterGetResp + -> Data.ProtoLens.Encoding.Bytes.Parser RpbCounterGetResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbCounterGetResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbCounterGetResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbCounterGetResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbCounterGetResp'value x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbCounterUpdateReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.key' @:: Lens' RpbCounterUpdateReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.amount' @:: Lens' RpbCounterUpdateReq Data.Int.Int64@ + * 'Proto.Riak_Fields.w' @:: Lens' RpbCounterUpdateReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'w' @:: Lens' RpbCounterUpdateReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.dw' @:: Lens' RpbCounterUpdateReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'dw' @:: Lens' RpbCounterUpdateReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.pw' @:: Lens' RpbCounterUpdateReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'pw' @:: Lens' RpbCounterUpdateReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.returnvalue' @:: Lens' RpbCounterUpdateReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'returnvalue' @:: Lens' RpbCounterUpdateReq (Prelude.Maybe Prelude.Bool)@ -} +data RpbCounterUpdateReq + = RpbCounterUpdateReq'_constructor {_RpbCounterUpdateReq'bucket :: !Data.ByteString.ByteString, + _RpbCounterUpdateReq'key :: !Data.ByteString.ByteString, + _RpbCounterUpdateReq'amount :: !Data.Int.Int64, + _RpbCounterUpdateReq'w :: !(Prelude.Maybe Data.Word.Word32), + _RpbCounterUpdateReq'dw :: !(Prelude.Maybe Data.Word.Word32), + _RpbCounterUpdateReq'pw :: !(Prelude.Maybe Data.Word.Word32), + _RpbCounterUpdateReq'returnvalue :: !(Prelude.Maybe Prelude.Bool), + _RpbCounterUpdateReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbCounterUpdateReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'bucket + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'key + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "amount" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'amount + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'amount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "w" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'w + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'w = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "maybe'w" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'w + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'w = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "dw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'dw + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'dw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "maybe'dw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'dw + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'dw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "pw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'pw + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'pw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "maybe'pw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'pw + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'pw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "returnvalue" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'returnvalue + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'returnvalue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCounterUpdateReq "maybe'returnvalue" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'returnvalue + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'returnvalue = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbCounterUpdateReq where + messageName _ = Data.Text.pack "RpbCounterUpdateReq" + packedMessageDescriptor _ + = "\n\ + \\DC3RpbCounterUpdateReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\SYN\n\ + \\ACKamount\CAN\ETX \STX(\DC2R\ACKamount\DC2\f\n\ + \\SOHw\CAN\EOT \SOH(\rR\SOHw\DC2\SO\n\ + \\STXdw\CAN\ENQ \SOH(\rR\STXdw\DC2\SO\n\ + \\STXpw\CAN\ACK \SOH(\rR\STXpw\DC2 \n\ + \\vreturnvalue\CAN\a \SOH(\bR\vreturnvalue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbCounterUpdateReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor RpbCounterUpdateReq + amount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "amount" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"amount")) :: + Data.ProtoLens.FieldDescriptor RpbCounterUpdateReq + w__field_descriptor + = Data.ProtoLens.FieldDescriptor + "w" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'w")) :: + Data.ProtoLens.FieldDescriptor RpbCounterUpdateReq + dw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "dw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'dw")) :: + Data.ProtoLens.FieldDescriptor RpbCounterUpdateReq + pw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pw")) :: + Data.ProtoLens.FieldDescriptor RpbCounterUpdateReq + returnvalue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "returnvalue" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'returnvalue")) :: + Data.ProtoLens.FieldDescriptor RpbCounterUpdateReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, amount__field_descriptor), + (Data.ProtoLens.Tag 4, w__field_descriptor), + (Data.ProtoLens.Tag 5, dw__field_descriptor), + (Data.ProtoLens.Tag 6, pw__field_descriptor), + (Data.ProtoLens.Tag 7, returnvalue__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbCounterUpdateReq'_unknownFields + (\ x__ y__ -> x__ {_RpbCounterUpdateReq'_unknownFields = y__}) + defMessage + = RpbCounterUpdateReq'_constructor + {_RpbCounterUpdateReq'bucket = Data.ProtoLens.fieldDefault, + _RpbCounterUpdateReq'key = Data.ProtoLens.fieldDefault, + _RpbCounterUpdateReq'amount = Data.ProtoLens.fieldDefault, + _RpbCounterUpdateReq'w = Prelude.Nothing, + _RpbCounterUpdateReq'dw = Prelude.Nothing, + _RpbCounterUpdateReq'pw = Prelude.Nothing, + _RpbCounterUpdateReq'returnvalue = Prelude.Nothing, + _RpbCounterUpdateReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbCounterUpdateReq + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbCounterUpdateReq + loop x required'amount required'bucket required'key + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'amount then (:) "amount" else Prelude.id) + ((if required'bucket then (:) "bucket" else Prelude.id) + ((if required'key then (:) "key" else Prelude.id) [])) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + required'amount + Prelude.False + required'key + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + required'amount + required'bucket + Prelude.False + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "amount" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"amount") y x) + Prelude.False + required'bucket + required'key + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "w" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"w") y x) + required'amount + required'bucket + required'key + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "dw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"dw") y x) + required'amount + required'bucket + required'key + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "pw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pw") y x) + required'amount + required'bucket + required'key + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "returnvalue" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"returnvalue") y x) + required'amount + required'bucket + required'key + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'amount + required'bucket + required'key + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop + Data.ProtoLens.defMessage Prelude.True Prelude.True Prelude.True) + "RpbCounterUpdateReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + (Lens.Family2.view (Data.ProtoLens.Field.field @"amount") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'w") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'dw") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pw") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'returnvalue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))) +instance Control.DeepSeq.NFData RpbCounterUpdateReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbCounterUpdateReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbCounterUpdateReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbCounterUpdateReq'key x__) + (Control.DeepSeq.deepseq + (_RpbCounterUpdateReq'amount x__) + (Control.DeepSeq.deepseq + (_RpbCounterUpdateReq'w x__) + (Control.DeepSeq.deepseq + (_RpbCounterUpdateReq'dw x__) + (Control.DeepSeq.deepseq + (_RpbCounterUpdateReq'pw x__) + (Control.DeepSeq.deepseq + (_RpbCounterUpdateReq'returnvalue x__) ()))))))) +{- | Fields : + + * 'Proto.Riak_Fields.value' @:: Lens' RpbCounterUpdateResp Data.Int.Int64@ + * 'Proto.Riak_Fields.maybe'value' @:: Lens' RpbCounterUpdateResp (Prelude.Maybe Data.Int.Int64)@ -} +data RpbCounterUpdateResp + = RpbCounterUpdateResp'_constructor {_RpbCounterUpdateResp'value :: !(Prelude.Maybe Data.Int.Int64), + _RpbCounterUpdateResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbCounterUpdateResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbCounterUpdateResp "value" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateResp'value + (\ x__ y__ -> x__ {_RpbCounterUpdateResp'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCounterUpdateResp "maybe'value" (Prelude.Maybe Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCounterUpdateResp'value + (\ x__ y__ -> x__ {_RpbCounterUpdateResp'value = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbCounterUpdateResp where + messageName _ = Data.Text.pack "RpbCounterUpdateResp" + packedMessageDescriptor _ + = "\n\ + \\DC4RpbCounterUpdateResp\DC2\DC4\n\ + \\ENQvalue\CAN\SOH \SOH(\DC2R\ENQvalue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor RpbCounterUpdateResp + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbCounterUpdateResp'_unknownFields + (\ x__ y__ -> x__ {_RpbCounterUpdateResp'_unknownFields = y__}) + defMessage + = RpbCounterUpdateResp'_constructor + {_RpbCounterUpdateResp'value = Prelude.Nothing, + _RpbCounterUpdateResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbCounterUpdateResp + -> Data.ProtoLens.Encoding.Bytes.Parser RpbCounterUpdateResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbCounterUpdateResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbCounterUpdateResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbCounterUpdateResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbCounterUpdateResp'value x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.ip' @:: Lens' RpbCoverageEntry Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.port' @:: Lens' RpbCoverageEntry Data.Word.Word32@ + * 'Proto.Riak_Fields.keyspaceDesc' @:: Lens' RpbCoverageEntry Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'keyspaceDesc' @:: Lens' RpbCoverageEntry (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.coverContext' @:: Lens' RpbCoverageEntry Data.ByteString.ByteString@ -} +data RpbCoverageEntry + = RpbCoverageEntry'_constructor {_RpbCoverageEntry'ip :: !Data.ByteString.ByteString, + _RpbCoverageEntry'port :: !Data.Word.Word32, + _RpbCoverageEntry'keyspaceDesc :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbCoverageEntry'coverContext :: !Data.ByteString.ByteString, + _RpbCoverageEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbCoverageEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbCoverageEntry "ip" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageEntry'ip + (\ x__ y__ -> x__ {_RpbCoverageEntry'ip = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCoverageEntry "port" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageEntry'port + (\ x__ y__ -> x__ {_RpbCoverageEntry'port = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCoverageEntry "keyspaceDesc" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageEntry'keyspaceDesc + (\ x__ y__ -> x__ {_RpbCoverageEntry'keyspaceDesc = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCoverageEntry "maybe'keyspaceDesc" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageEntry'keyspaceDesc + (\ x__ y__ -> x__ {_RpbCoverageEntry'keyspaceDesc = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCoverageEntry "coverContext" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageEntry'coverContext + (\ x__ y__ -> x__ {_RpbCoverageEntry'coverContext = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbCoverageEntry where + messageName _ = Data.Text.pack "RpbCoverageEntry" + packedMessageDescriptor _ + = "\n\ + \\DLERpbCoverageEntry\DC2\SO\n\ + \\STXip\CAN\SOH \STX(\fR\STXip\DC2\DC2\n\ + \\EOTport\CAN\STX \STX(\rR\EOTport\DC2#\n\ + \\rkeyspace_desc\CAN\ETX \SOH(\fR\fkeyspaceDesc\DC2#\n\ + \\rcover_context\CAN\EOT \STX(\fR\fcoverContext" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + ip__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ip" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"ip")) :: + Data.ProtoLens.FieldDescriptor RpbCoverageEntry + port__field_descriptor + = Data.ProtoLens.FieldDescriptor + "port" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"port")) :: + Data.ProtoLens.FieldDescriptor RpbCoverageEntry + keyspaceDesc__field_descriptor + = Data.ProtoLens.FieldDescriptor + "keyspace_desc" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'keyspaceDesc")) :: + Data.ProtoLens.FieldDescriptor RpbCoverageEntry + coverContext__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cover_context" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"coverContext")) :: + Data.ProtoLens.FieldDescriptor RpbCoverageEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, ip__field_descriptor), + (Data.ProtoLens.Tag 2, port__field_descriptor), + (Data.ProtoLens.Tag 3, keyspaceDesc__field_descriptor), + (Data.ProtoLens.Tag 4, coverContext__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbCoverageEntry'_unknownFields + (\ x__ y__ -> x__ {_RpbCoverageEntry'_unknownFields = y__}) + defMessage + = RpbCoverageEntry'_constructor + {_RpbCoverageEntry'ip = Data.ProtoLens.fieldDefault, + _RpbCoverageEntry'port = Data.ProtoLens.fieldDefault, + _RpbCoverageEntry'keyspaceDesc = Prelude.Nothing, + _RpbCoverageEntry'coverContext = Data.ProtoLens.fieldDefault, + _RpbCoverageEntry'_unknownFields = []} + parseMessage + = let + loop :: + RpbCoverageEntry + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbCoverageEntry + loop x required'coverContext required'ip required'port + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'coverContext then + (:) "cover_context" + else + Prelude.id) + ((if required'ip then (:) "ip" else Prelude.id) + ((if required'port then (:) "port" else Prelude.id) [])) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "ip" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ip") y x) + required'coverContext + Prelude.False + required'port + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "port" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"port") y x) + required'coverContext + required'ip + Prelude.False + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "keyspace_desc" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"keyspaceDesc") y x) + required'coverContext + required'ip + required'port + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "cover_context" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"coverContext") y x) + Prelude.False + required'ip + required'port + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'coverContext + required'ip + required'port + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop + Data.ProtoLens.defMessage Prelude.True Prelude.True Prelude.True) + "RpbCoverageEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"ip") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + (Lens.Family2.view (Data.ProtoLens.Field.field @"port") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'keyspaceDesc") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"coverContext") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData RpbCoverageEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbCoverageEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbCoverageEntry'ip x__) + (Control.DeepSeq.deepseq + (_RpbCoverageEntry'port x__) + (Control.DeepSeq.deepseq + (_RpbCoverageEntry'keyspaceDesc x__) + (Control.DeepSeq.deepseq + (_RpbCoverageEntry'coverContext x__) ())))) +{- | Fields : + + * 'Proto.Riak_Fields.type'' @:: Lens' RpbCoverageReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbCoverageReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbCoverageReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.minPartitions' @:: Lens' RpbCoverageReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'minPartitions' @:: Lens' RpbCoverageReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.replaceCover' @:: Lens' RpbCoverageReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'replaceCover' @:: Lens' RpbCoverageReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.unavailableCover' @:: Lens' RpbCoverageReq [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'unavailableCover' @:: Lens' RpbCoverageReq (Data.Vector.Vector Data.ByteString.ByteString)@ -} +data RpbCoverageReq + = RpbCoverageReq'_constructor {_RpbCoverageReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbCoverageReq'bucket :: !Data.ByteString.ByteString, + _RpbCoverageReq'minPartitions :: !(Prelude.Maybe Data.Word.Word32), + _RpbCoverageReq'replaceCover :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbCoverageReq'unavailableCover :: !(Data.Vector.Vector Data.ByteString.ByteString), + _RpbCoverageReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbCoverageReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbCoverageReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageReq'type' + (\ x__ y__ -> x__ {_RpbCoverageReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCoverageReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageReq'type' + (\ x__ y__ -> x__ {_RpbCoverageReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCoverageReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageReq'bucket + (\ x__ y__ -> x__ {_RpbCoverageReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCoverageReq "minPartitions" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageReq'minPartitions + (\ x__ y__ -> x__ {_RpbCoverageReq'minPartitions = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCoverageReq "maybe'minPartitions" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageReq'minPartitions + (\ x__ y__ -> x__ {_RpbCoverageReq'minPartitions = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCoverageReq "replaceCover" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageReq'replaceCover + (\ x__ y__ -> x__ {_RpbCoverageReq'replaceCover = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbCoverageReq "maybe'replaceCover" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageReq'replaceCover + (\ x__ y__ -> x__ {_RpbCoverageReq'replaceCover = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbCoverageReq "unavailableCover" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageReq'unavailableCover + (\ x__ y__ -> x__ {_RpbCoverageReq'unavailableCover = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbCoverageReq "vec'unavailableCover" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageReq'unavailableCover + (\ x__ y__ -> x__ {_RpbCoverageReq'unavailableCover = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbCoverageReq where + messageName _ = Data.Text.pack "RpbCoverageReq" + packedMessageDescriptor _ + = "\n\ + \\SORpbCoverageReq\DC2\DC2\n\ + \\EOTtype\CAN\SOH \SOH(\fR\EOTtype\DC2\SYN\n\ + \\ACKbucket\CAN\STX \STX(\fR\ACKbucket\DC2%\n\ + \\SOmin_partitions\CAN\ETX \SOH(\rR\rminPartitions\DC2#\n\ + \\rreplace_cover\CAN\EOT \SOH(\fR\freplaceCover\DC2+\n\ + \\DC1unavailable_cover\CAN\ENQ \ETX(\fR\DLEunavailableCover" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbCoverageReq + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbCoverageReq + minPartitions__field_descriptor + = Data.ProtoLens.FieldDescriptor + "min_partitions" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'minPartitions")) :: + Data.ProtoLens.FieldDescriptor RpbCoverageReq + replaceCover__field_descriptor + = Data.ProtoLens.FieldDescriptor + "replace_cover" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'replaceCover")) :: + Data.ProtoLens.FieldDescriptor RpbCoverageReq + unavailableCover__field_descriptor + = Data.ProtoLens.FieldDescriptor + "unavailable_cover" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"unavailableCover")) :: + Data.ProtoLens.FieldDescriptor RpbCoverageReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, type'__field_descriptor), + (Data.ProtoLens.Tag 2, bucket__field_descriptor), + (Data.ProtoLens.Tag 3, minPartitions__field_descriptor), + (Data.ProtoLens.Tag 4, replaceCover__field_descriptor), + (Data.ProtoLens.Tag 5, unavailableCover__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbCoverageReq'_unknownFields + (\ x__ y__ -> x__ {_RpbCoverageReq'_unknownFields = y__}) + defMessage + = RpbCoverageReq'_constructor + {_RpbCoverageReq'type' = Prelude.Nothing, + _RpbCoverageReq'bucket = Data.ProtoLens.fieldDefault, + _RpbCoverageReq'minPartitions = Prelude.Nothing, + _RpbCoverageReq'replaceCover = Prelude.Nothing, + _RpbCoverageReq'unavailableCover = Data.Vector.Generic.empty, + _RpbCoverageReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbCoverageReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser RpbCoverageReq + loop x required'bucket mutable'unavailableCover + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'unavailableCover <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'unavailableCover) + (let + missing = (if required'bucket then (:) "bucket" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'unavailableCover") + frozen'unavailableCover + x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + mutable'unavailableCover + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + mutable'unavailableCover + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "min_partitions" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"minPartitions") y x) + required'bucket + mutable'unavailableCover + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "replace_cover" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"replaceCover") y x) + required'bucket + mutable'unavailableCover + 42 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "unavailable_cover" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'unavailableCover y) + loop x required'bucket v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + mutable'unavailableCover + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'unavailableCover <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage Prelude.True mutable'unavailableCover) + "RpbCoverageReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'minPartitions") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'replaceCover") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'unavailableCover") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData RpbCoverageReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbCoverageReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbCoverageReq'type' x__) + (Control.DeepSeq.deepseq + (_RpbCoverageReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbCoverageReq'minPartitions x__) + (Control.DeepSeq.deepseq + (_RpbCoverageReq'replaceCover x__) + (Control.DeepSeq.deepseq + (_RpbCoverageReq'unavailableCover x__) ()))))) +{- | Fields : + + * 'Proto.Riak_Fields.entries' @:: Lens' RpbCoverageResp [RpbCoverageEntry]@ + * 'Proto.Riak_Fields.vec'entries' @:: Lens' RpbCoverageResp (Data.Vector.Vector RpbCoverageEntry)@ -} +data RpbCoverageResp + = RpbCoverageResp'_constructor {_RpbCoverageResp'entries :: !(Data.Vector.Vector RpbCoverageEntry), + _RpbCoverageResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbCoverageResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbCoverageResp "entries" [RpbCoverageEntry] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageResp'entries + (\ x__ y__ -> x__ {_RpbCoverageResp'entries = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbCoverageResp "vec'entries" (Data.Vector.Vector RpbCoverageEntry) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbCoverageResp'entries + (\ x__ y__ -> x__ {_RpbCoverageResp'entries = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbCoverageResp where + messageName _ = Data.Text.pack "RpbCoverageResp" + packedMessageDescriptor _ + = "\n\ + \\SIRpbCoverageResp\DC2+\n\ + \\aentries\CAN\SOH \ETX(\v2\DC1.RpbCoverageEntryR\aentries" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + entries__field_descriptor + = Data.ProtoLens.FieldDescriptor + "entries" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbCoverageEntry) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"entries")) :: + Data.ProtoLens.FieldDescriptor RpbCoverageResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, entries__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbCoverageResp'_unknownFields + (\ x__ y__ -> x__ {_RpbCoverageResp'_unknownFields = y__}) + defMessage + = RpbCoverageResp'_constructor + {_RpbCoverageResp'entries = Data.Vector.Generic.empty, + _RpbCoverageResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbCoverageResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbCoverageEntry + -> Data.ProtoLens.Encoding.Bytes.Parser RpbCoverageResp + loop x mutable'entries + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'entries <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'entries) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'entries") frozen'entries x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "entries" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'entries 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'entries + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'entries <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'entries) + "RpbCoverageResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'entries") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbCoverageResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbCoverageResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbCoverageResp'entries x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbDelReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.key' @:: Lens' RpbDelReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.rw' @:: Lens' RpbDelReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'rw' @:: Lens' RpbDelReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.vclock' @:: Lens' RpbDelReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'vclock' @:: Lens' RpbDelReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.r' @:: Lens' RpbDelReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'r' @:: Lens' RpbDelReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.w' @:: Lens' RpbDelReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'w' @:: Lens' RpbDelReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.pr' @:: Lens' RpbDelReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'pr' @:: Lens' RpbDelReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.pw' @:: Lens' RpbDelReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'pw' @:: Lens' RpbDelReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.dw' @:: Lens' RpbDelReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'dw' @:: Lens' RpbDelReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.timeout' @:: Lens' RpbDelReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' RpbDelReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.sloppyQuorum' @:: Lens' RpbDelReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'sloppyQuorum' @:: Lens' RpbDelReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.nVal' @:: Lens' RpbDelReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'nVal' @:: Lens' RpbDelReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbDelReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbDelReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbDelReq + = RpbDelReq'_constructor {_RpbDelReq'bucket :: !Data.ByteString.ByteString, + _RpbDelReq'key :: !Data.ByteString.ByteString, + _RpbDelReq'rw :: !(Prelude.Maybe Data.Word.Word32), + _RpbDelReq'vclock :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbDelReq'r :: !(Prelude.Maybe Data.Word.Word32), + _RpbDelReq'w :: !(Prelude.Maybe Data.Word.Word32), + _RpbDelReq'pr :: !(Prelude.Maybe Data.Word.Word32), + _RpbDelReq'pw :: !(Prelude.Maybe Data.Word.Word32), + _RpbDelReq'dw :: !(Prelude.Maybe Data.Word.Word32), + _RpbDelReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _RpbDelReq'sloppyQuorum :: !(Prelude.Maybe Prelude.Bool), + _RpbDelReq'nVal :: !(Prelude.Maybe Data.Word.Word32), + _RpbDelReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbDelReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbDelReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbDelReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'bucket (\ x__ y__ -> x__ {_RpbDelReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'key (\ x__ y__ -> x__ {_RpbDelReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "rw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'rw (\ x__ y__ -> x__ {_RpbDelReq'rw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'rw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'rw (\ x__ y__ -> x__ {_RpbDelReq'rw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "vclock" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'vclock (\ x__ y__ -> x__ {_RpbDelReq'vclock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'vclock" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'vclock (\ x__ y__ -> x__ {_RpbDelReq'vclock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "r" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'r (\ x__ y__ -> x__ {_RpbDelReq'r = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'r" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'r (\ x__ y__ -> x__ {_RpbDelReq'r = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "w" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'w (\ x__ y__ -> x__ {_RpbDelReq'w = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'w" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'w (\ x__ y__ -> x__ {_RpbDelReq'w = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "pr" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'pr (\ x__ y__ -> x__ {_RpbDelReq'pr = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'pr" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'pr (\ x__ y__ -> x__ {_RpbDelReq'pr = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "pw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'pw (\ x__ y__ -> x__ {_RpbDelReq'pw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'pw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'pw (\ x__ y__ -> x__ {_RpbDelReq'pw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "dw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'dw (\ x__ y__ -> x__ {_RpbDelReq'dw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'dw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'dw (\ x__ y__ -> x__ {_RpbDelReq'dw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'timeout (\ x__ y__ -> x__ {_RpbDelReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'timeout (\ x__ y__ -> x__ {_RpbDelReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "sloppyQuorum" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'sloppyQuorum + (\ x__ y__ -> x__ {_RpbDelReq'sloppyQuorum = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'sloppyQuorum" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'sloppyQuorum + (\ x__ y__ -> x__ {_RpbDelReq'sloppyQuorum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "nVal" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'nVal (\ x__ y__ -> x__ {_RpbDelReq'nVal = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'nVal" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'nVal (\ x__ y__ -> x__ {_RpbDelReq'nVal = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbDelReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'type' (\ x__ y__ -> x__ {_RpbDelReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbDelReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbDelReq'type' (\ x__ y__ -> x__ {_RpbDelReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbDelReq where + messageName _ = Data.Text.pack "RpbDelReq" + packedMessageDescriptor _ + = "\n\ + \\tRpbDelReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\SO\n\ + \\STXrw\CAN\ETX \SOH(\rR\STXrw\DC2\SYN\n\ + \\ACKvclock\CAN\EOT \SOH(\fR\ACKvclock\DC2\f\n\ + \\SOHr\CAN\ENQ \SOH(\rR\SOHr\DC2\f\n\ + \\SOHw\CAN\ACK \SOH(\rR\SOHw\DC2\SO\n\ + \\STXpr\CAN\a \SOH(\rR\STXpr\DC2\SO\n\ + \\STXpw\CAN\b \SOH(\rR\STXpw\DC2\SO\n\ + \\STXdw\CAN\t \SOH(\rR\STXdw\DC2\CAN\n\ + \\atimeout\CAN\n\ + \ \SOH(\rR\atimeout\DC2#\n\ + \\rsloppy_quorum\CAN\v \SOH(\bR\fsloppyQuorum\DC2\DC3\n\ + \\ENQn_val\CAN\f \SOH(\rR\EOTnVal\DC2\DC2\n\ + \\EOTtype\CAN\r \SOH(\fR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + rw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'rw")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + vclock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vclock" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'vclock")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + r__field_descriptor + = Data.ProtoLens.FieldDescriptor + "r" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'r")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + w__field_descriptor + = Data.ProtoLens.FieldDescriptor + "w" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'w")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + pr__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pr" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pr")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + pw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pw")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + dw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "dw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'dw")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + sloppyQuorum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "sloppy_quorum" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'sloppyQuorum")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + nVal__field_descriptor + = Data.ProtoLens.FieldDescriptor + "n_val" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'nVal")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbDelReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, rw__field_descriptor), + (Data.ProtoLens.Tag 4, vclock__field_descriptor), + (Data.ProtoLens.Tag 5, r__field_descriptor), + (Data.ProtoLens.Tag 6, w__field_descriptor), + (Data.ProtoLens.Tag 7, pr__field_descriptor), + (Data.ProtoLens.Tag 8, pw__field_descriptor), + (Data.ProtoLens.Tag 9, dw__field_descriptor), + (Data.ProtoLens.Tag 10, timeout__field_descriptor), + (Data.ProtoLens.Tag 11, sloppyQuorum__field_descriptor), + (Data.ProtoLens.Tag 12, nVal__field_descriptor), + (Data.ProtoLens.Tag 13, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbDelReq'_unknownFields + (\ x__ y__ -> x__ {_RpbDelReq'_unknownFields = y__}) + defMessage + = RpbDelReq'_constructor + {_RpbDelReq'bucket = Data.ProtoLens.fieldDefault, + _RpbDelReq'key = Data.ProtoLens.fieldDefault, + _RpbDelReq'rw = Prelude.Nothing, + _RpbDelReq'vclock = Prelude.Nothing, + _RpbDelReq'r = Prelude.Nothing, _RpbDelReq'w = Prelude.Nothing, + _RpbDelReq'pr = Prelude.Nothing, _RpbDelReq'pw = Prelude.Nothing, + _RpbDelReq'dw = Prelude.Nothing, + _RpbDelReq'timeout = Prelude.Nothing, + _RpbDelReq'sloppyQuorum = Prelude.Nothing, + _RpbDelReq'nVal = Prelude.Nothing, + _RpbDelReq'type' = Prelude.Nothing, _RpbDelReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbDelReq + -> Prelude.Bool + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser RpbDelReq + loop x required'bucket required'key + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'bucket then (:) "bucket" else Prelude.id) + ((if required'key then (:) "key" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + required'key + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + required'bucket + Prelude.False + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "rw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"rw") y x) + required'bucket + required'key + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "vclock" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"vclock") y x) + required'bucket + required'key + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "r" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"r") y x) + required'bucket + required'key + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "w" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"w") y x) + required'bucket + required'key + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "pr" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pr") y x) + required'bucket + required'key + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "pw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pw") y x) + required'bucket + required'key + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "dw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"dw") y x) + required'bucket + required'key + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'bucket + required'key + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "sloppy_quorum" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"sloppyQuorum") y x) + required'bucket + required'key + 96 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "n_val" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nVal") y x) + required'bucket + required'key + 106 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + required'key + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + required'key + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbDelReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'rw") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'vclock") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'r") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'w") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pr") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pw") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'dw") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'sloppyQuorum") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'nVal") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'type'") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 106) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x)))))))))))))) +instance Control.DeepSeq.NFData RpbDelReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbDelReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'key x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'rw x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'vclock x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'r x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'w x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'pr x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'pw x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'dw x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'timeout x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'sloppyQuorum x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'nVal x__) + (Control.DeepSeq.deepseq + (_RpbDelReq'type' x__) ()))))))))))))) +{- | Fields : + -} +data RpbDelResp + = RpbDelResp'_constructor {_RpbDelResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbDelResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message RpbDelResp where + messageName _ = Data.Text.pack "RpbDelResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \RpbDelResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbDelResp'_unknownFields + (\ x__ y__ -> x__ {_RpbDelResp'_unknownFields = y__}) + defMessage + = RpbDelResp'_constructor {_RpbDelResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbDelResp -> Data.ProtoLens.Encoding.Bytes.Parser RpbDelResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbDelResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData RpbDelResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_RpbDelResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Riak_Fields.errmsg' @:: Lens' RpbErrorResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.errcode' @:: Lens' RpbErrorResp Data.Word.Word32@ -} +data RpbErrorResp + = RpbErrorResp'_constructor {_RpbErrorResp'errmsg :: !Data.ByteString.ByteString, + _RpbErrorResp'errcode :: !Data.Word.Word32, + _RpbErrorResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbErrorResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbErrorResp "errmsg" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbErrorResp'errmsg + (\ x__ y__ -> x__ {_RpbErrorResp'errmsg = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbErrorResp "errcode" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbErrorResp'errcode + (\ x__ y__ -> x__ {_RpbErrorResp'errcode = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbErrorResp where + messageName _ = Data.Text.pack "RpbErrorResp" + packedMessageDescriptor _ + = "\n\ + \\fRpbErrorResp\DC2\SYN\n\ + \\ACKerrmsg\CAN\SOH \STX(\fR\ACKerrmsg\DC2\CAN\n\ + \\aerrcode\CAN\STX \STX(\rR\aerrcode" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + errmsg__field_descriptor + = Data.ProtoLens.FieldDescriptor + "errmsg" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"errmsg")) :: + Data.ProtoLens.FieldDescriptor RpbErrorResp + errcode__field_descriptor + = Data.ProtoLens.FieldDescriptor + "errcode" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"errcode")) :: + Data.ProtoLens.FieldDescriptor RpbErrorResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, errmsg__field_descriptor), + (Data.ProtoLens.Tag 2, errcode__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbErrorResp'_unknownFields + (\ x__ y__ -> x__ {_RpbErrorResp'_unknownFields = y__}) + defMessage + = RpbErrorResp'_constructor + {_RpbErrorResp'errmsg = Data.ProtoLens.fieldDefault, + _RpbErrorResp'errcode = Data.ProtoLens.fieldDefault, + _RpbErrorResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbErrorResp + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbErrorResp + loop x required'errcode required'errmsg + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'errcode then (:) "errcode" else Prelude.id) + ((if required'errmsg then (:) "errmsg" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "errmsg" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"errmsg") y x) + required'errcode + Prelude.False + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "errcode" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"errcode") y x) + Prelude.False + required'errmsg + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'errcode + required'errmsg + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbErrorResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"errmsg") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + (Lens.Family2.view (Data.ProtoLens.Field.field @"errcode") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbErrorResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbErrorResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbErrorResp'errmsg x__) + (Control.DeepSeq.deepseq (_RpbErrorResp'errcode x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbGetBucketKeyPreflistReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.key' @:: Lens' RpbGetBucketKeyPreflistReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbGetBucketKeyPreflistReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbGetBucketKeyPreflistReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbGetBucketKeyPreflistReq + = RpbGetBucketKeyPreflistReq'_constructor {_RpbGetBucketKeyPreflistReq'bucket :: !Data.ByteString.ByteString, + _RpbGetBucketKeyPreflistReq'key :: !Data.ByteString.ByteString, + _RpbGetBucketKeyPreflistReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbGetBucketKeyPreflistReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetBucketKeyPreflistReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbGetBucketKeyPreflistReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketKeyPreflistReq'bucket + (\ x__ y__ -> x__ {_RpbGetBucketKeyPreflistReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetBucketKeyPreflistReq "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketKeyPreflistReq'key + (\ x__ y__ -> x__ {_RpbGetBucketKeyPreflistReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetBucketKeyPreflistReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketKeyPreflistReq'type' + (\ x__ y__ -> x__ {_RpbGetBucketKeyPreflistReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetBucketKeyPreflistReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketKeyPreflistReq'type' + (\ x__ y__ -> x__ {_RpbGetBucketKeyPreflistReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbGetBucketKeyPreflistReq where + messageName _ = Data.Text.pack "RpbGetBucketKeyPreflistReq" + packedMessageDescriptor _ + = "\n\ + \\SUBRpbGetBucketKeyPreflistReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\DC2\n\ + \\EOTtype\CAN\ETX \SOH(\fR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbGetBucketKeyPreflistReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor RpbGetBucketKeyPreflistReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbGetBucketKeyPreflistReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetBucketKeyPreflistReq'_unknownFields + (\ x__ y__ + -> x__ {_RpbGetBucketKeyPreflistReq'_unknownFields = y__}) + defMessage + = RpbGetBucketKeyPreflistReq'_constructor + {_RpbGetBucketKeyPreflistReq'bucket = Data.ProtoLens.fieldDefault, + _RpbGetBucketKeyPreflistReq'key = Data.ProtoLens.fieldDefault, + _RpbGetBucketKeyPreflistReq'type' = Prelude.Nothing, + _RpbGetBucketKeyPreflistReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetBucketKeyPreflistReq + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetBucketKeyPreflistReq + loop x required'bucket required'key + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'bucket then (:) "bucket" else Prelude.id) + ((if required'key then (:) "key" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + required'key + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + required'bucket + Prelude.False + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + required'key + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + required'key + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbGetBucketKeyPreflistReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbGetBucketKeyPreflistReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetBucketKeyPreflistReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbGetBucketKeyPreflistReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbGetBucketKeyPreflistReq'key x__) + (Control.DeepSeq.deepseq + (_RpbGetBucketKeyPreflistReq'type' x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.preflist' @:: Lens' RpbGetBucketKeyPreflistResp [RpbBucketKeyPreflistItem]@ + * 'Proto.Riak_Fields.vec'preflist' @:: Lens' RpbGetBucketKeyPreflistResp (Data.Vector.Vector RpbBucketKeyPreflistItem)@ -} +data RpbGetBucketKeyPreflistResp + = RpbGetBucketKeyPreflistResp'_constructor {_RpbGetBucketKeyPreflistResp'preflist :: !(Data.Vector.Vector RpbBucketKeyPreflistItem), + _RpbGetBucketKeyPreflistResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetBucketKeyPreflistResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbGetBucketKeyPreflistResp "preflist" [RpbBucketKeyPreflistItem] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketKeyPreflistResp'preflist + (\ x__ y__ -> x__ {_RpbGetBucketKeyPreflistResp'preflist = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbGetBucketKeyPreflistResp "vec'preflist" (Data.Vector.Vector RpbBucketKeyPreflistItem) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketKeyPreflistResp'preflist + (\ x__ y__ -> x__ {_RpbGetBucketKeyPreflistResp'preflist = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbGetBucketKeyPreflistResp where + messageName _ = Data.Text.pack "RpbGetBucketKeyPreflistResp" + packedMessageDescriptor _ + = "\n\ + \\ESCRpbGetBucketKeyPreflistResp\DC25\n\ + \\bpreflist\CAN\SOH \ETX(\v2\EM.RpbBucketKeyPreflistItemR\bpreflist" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + preflist__field_descriptor + = Data.ProtoLens.FieldDescriptor + "preflist" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbBucketKeyPreflistItem) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"preflist")) :: + Data.ProtoLens.FieldDescriptor RpbGetBucketKeyPreflistResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, preflist__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetBucketKeyPreflistResp'_unknownFields + (\ x__ y__ + -> x__ {_RpbGetBucketKeyPreflistResp'_unknownFields = y__}) + defMessage + = RpbGetBucketKeyPreflistResp'_constructor + {_RpbGetBucketKeyPreflistResp'preflist = Data.Vector.Generic.empty, + _RpbGetBucketKeyPreflistResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetBucketKeyPreflistResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbBucketKeyPreflistItem + -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetBucketKeyPreflistResp + loop x mutable'preflist + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'preflist <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'preflist) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'preflist") frozen'preflist x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "preflist" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'preflist 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'preflist + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'preflist <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'preflist) + "RpbGetBucketKeyPreflistResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'preflist") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbGetBucketKeyPreflistResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetBucketKeyPreflistResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbGetBucketKeyPreflistResp'preflist x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbGetBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbGetBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbGetBucketReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbGetBucketReq + = RpbGetBucketReq'_constructor {_RpbGetBucketReq'bucket :: !Data.ByteString.ByteString, + _RpbGetBucketReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbGetBucketReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetBucketReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbGetBucketReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketReq'bucket + (\ x__ y__ -> x__ {_RpbGetBucketReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetBucketReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketReq'type' + (\ x__ y__ -> x__ {_RpbGetBucketReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetBucketReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketReq'type' + (\ x__ y__ -> x__ {_RpbGetBucketReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbGetBucketReq where + messageName _ = Data.Text.pack "RpbGetBucketReq" + packedMessageDescriptor _ + = "\n\ + \\SIRpbGetBucketReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DC2\n\ + \\EOTtype\CAN\STX \SOH(\fR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbGetBucketReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbGetBucketReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetBucketReq'_unknownFields + (\ x__ y__ -> x__ {_RpbGetBucketReq'_unknownFields = y__}) + defMessage + = RpbGetBucketReq'_constructor + {_RpbGetBucketReq'bucket = Data.ProtoLens.fieldDefault, + _RpbGetBucketReq'type' = Prelude.Nothing, + _RpbGetBucketReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetBucketReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetBucketReq + loop x required'bucket + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'bucket then (:) "bucket" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) "RpbGetBucketReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbGetBucketReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetBucketReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbGetBucketReq'bucket x__) + (Control.DeepSeq.deepseq (_RpbGetBucketReq'type' x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.props' @:: Lens' RpbGetBucketResp RpbBucketProps@ -} +data RpbGetBucketResp + = RpbGetBucketResp'_constructor {_RpbGetBucketResp'props :: !RpbBucketProps, + _RpbGetBucketResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetBucketResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbGetBucketResp "props" RpbBucketProps where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketResp'props + (\ x__ y__ -> x__ {_RpbGetBucketResp'props = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbGetBucketResp where + messageName _ = Data.Text.pack "RpbGetBucketResp" + packedMessageDescriptor _ + = "\n\ + \\DLERpbGetBucketResp\DC2%\n\ + \\ENQprops\CAN\SOH \STX(\v2\SI.RpbBucketPropsR\ENQprops" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + props__field_descriptor + = Data.ProtoLens.FieldDescriptor + "props" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbBucketProps) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"props")) :: + Data.ProtoLens.FieldDescriptor RpbGetBucketResp + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, props__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetBucketResp'_unknownFields + (\ x__ y__ -> x__ {_RpbGetBucketResp'_unknownFields = y__}) + defMessage + = RpbGetBucketResp'_constructor + {_RpbGetBucketResp'props = Data.ProtoLens.defMessage, + _RpbGetBucketResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetBucketResp + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetBucketResp + loop x required'props + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'props then (:) "props" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "props" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"props") y x) + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'props + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) "RpbGetBucketResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"props") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbGetBucketResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetBucketResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbGetBucketResp'props x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.type'' @:: Lens' RpbGetBucketTypeReq Data.ByteString.ByteString@ -} +data RpbGetBucketTypeReq + = RpbGetBucketTypeReq'_constructor {_RpbGetBucketTypeReq'type' :: !Data.ByteString.ByteString, + _RpbGetBucketTypeReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetBucketTypeReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbGetBucketTypeReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetBucketTypeReq'type' + (\ x__ y__ -> x__ {_RpbGetBucketTypeReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbGetBucketTypeReq where + messageName _ = Data.Text.pack "RpbGetBucketTypeReq" + packedMessageDescriptor _ + = "\n\ + \\DC3RpbGetBucketTypeReq\DC2\DC2\n\ + \\EOTtype\CAN\SOH \STX(\fR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"type'")) :: + Data.ProtoLens.FieldDescriptor RpbGetBucketTypeReq + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetBucketTypeReq'_unknownFields + (\ x__ y__ -> x__ {_RpbGetBucketTypeReq'_unknownFields = y__}) + defMessage + = RpbGetBucketTypeReq'_constructor + {_RpbGetBucketTypeReq'type' = Data.ProtoLens.fieldDefault, + _RpbGetBucketTypeReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetBucketTypeReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetBucketTypeReq + loop x required'type' + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'type' then (:) "type" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'type' + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) + "RpbGetBucketTypeReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbGetBucketTypeReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetBucketTypeReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbGetBucketTypeReq'type' x__) ()) +{- | Fields : + -} +data RpbGetClientIdReq + = RpbGetClientIdReq'_constructor {_RpbGetClientIdReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetClientIdReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message RpbGetClientIdReq where + messageName _ = Data.Text.pack "RpbGetClientIdReq" + packedMessageDescriptor _ + = "\n\ + \\DC1RpbGetClientIdReq" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetClientIdReq'_unknownFields + (\ x__ y__ -> x__ {_RpbGetClientIdReq'_unknownFields = y__}) + defMessage + = RpbGetClientIdReq'_constructor + {_RpbGetClientIdReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetClientIdReq + -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetClientIdReq + 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 + ((Prelude.++) + "Missing required fields: " + (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 { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbGetClientIdReq" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData RpbGetClientIdReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetClientIdReq'_unknownFields x__) () +{- | Fields : + + * 'Proto.Riak_Fields.clientId' @:: Lens' RpbGetClientIdResp Data.ByteString.ByteString@ -} +data RpbGetClientIdResp + = RpbGetClientIdResp'_constructor {_RpbGetClientIdResp'clientId :: !Data.ByteString.ByteString, + _RpbGetClientIdResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetClientIdResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbGetClientIdResp "clientId" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetClientIdResp'clientId + (\ x__ y__ -> x__ {_RpbGetClientIdResp'clientId = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbGetClientIdResp where + messageName _ = Data.Text.pack "RpbGetClientIdResp" + packedMessageDescriptor _ + = "\n\ + \\DC2RpbGetClientIdResp\DC2\ESC\n\ + \\tclient_id\CAN\SOH \STX(\fR\bclientId" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + clientId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "client_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"clientId")) :: + Data.ProtoLens.FieldDescriptor RpbGetClientIdResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, clientId__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetClientIdResp'_unknownFields + (\ x__ y__ -> x__ {_RpbGetClientIdResp'_unknownFields = y__}) + defMessage + = RpbGetClientIdResp'_constructor + {_RpbGetClientIdResp'clientId = Data.ProtoLens.fieldDefault, + _RpbGetClientIdResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetClientIdResp + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetClientIdResp + loop x required'clientId + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'clientId then (:) "client_id" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "client_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"clientId") y x) + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'clientId + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) + "RpbGetClientIdResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"clientId") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbGetClientIdResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetClientIdResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbGetClientIdResp'clientId x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbGetReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.key' @:: Lens' RpbGetReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.r' @:: Lens' RpbGetReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'r' @:: Lens' RpbGetReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.pr' @:: Lens' RpbGetReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'pr' @:: Lens' RpbGetReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.basicQuorum' @:: Lens' RpbGetReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'basicQuorum' @:: Lens' RpbGetReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.notfoundOk' @:: Lens' RpbGetReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'notfoundOk' @:: Lens' RpbGetReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.ifModified' @:: Lens' RpbGetReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'ifModified' @:: Lens' RpbGetReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.head' @:: Lens' RpbGetReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'head' @:: Lens' RpbGetReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.deletedvclock' @:: Lens' RpbGetReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'deletedvclock' @:: Lens' RpbGetReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.timeout' @:: Lens' RpbGetReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' RpbGetReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.sloppyQuorum' @:: Lens' RpbGetReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'sloppyQuorum' @:: Lens' RpbGetReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.nVal' @:: Lens' RpbGetReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'nVal' @:: Lens' RpbGetReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbGetReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbGetReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbGetReq + = RpbGetReq'_constructor {_RpbGetReq'bucket :: !Data.ByteString.ByteString, + _RpbGetReq'key :: !Data.ByteString.ByteString, + _RpbGetReq'r :: !(Prelude.Maybe Data.Word.Word32), + _RpbGetReq'pr :: !(Prelude.Maybe Data.Word.Word32), + _RpbGetReq'basicQuorum :: !(Prelude.Maybe Prelude.Bool), + _RpbGetReq'notfoundOk :: !(Prelude.Maybe Prelude.Bool), + _RpbGetReq'ifModified :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbGetReq'head :: !(Prelude.Maybe Prelude.Bool), + _RpbGetReq'deletedvclock :: !(Prelude.Maybe Prelude.Bool), + _RpbGetReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _RpbGetReq'sloppyQuorum :: !(Prelude.Maybe Prelude.Bool), + _RpbGetReq'nVal :: !(Prelude.Maybe Data.Word.Word32), + _RpbGetReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbGetReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbGetReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'bucket (\ x__ y__ -> x__ {_RpbGetReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'key (\ x__ y__ -> x__ {_RpbGetReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "r" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'r (\ x__ y__ -> x__ {_RpbGetReq'r = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'r" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'r (\ x__ y__ -> x__ {_RpbGetReq'r = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "pr" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'pr (\ x__ y__ -> x__ {_RpbGetReq'pr = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'pr" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'pr (\ x__ y__ -> x__ {_RpbGetReq'pr = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "basicQuorum" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'basicQuorum + (\ x__ y__ -> x__ {_RpbGetReq'basicQuorum = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'basicQuorum" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'basicQuorum + (\ x__ y__ -> x__ {_RpbGetReq'basicQuorum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "notfoundOk" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'notfoundOk + (\ x__ y__ -> x__ {_RpbGetReq'notfoundOk = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'notfoundOk" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'notfoundOk + (\ x__ y__ -> x__ {_RpbGetReq'notfoundOk = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "ifModified" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'ifModified + (\ x__ y__ -> x__ {_RpbGetReq'ifModified = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'ifModified" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'ifModified + (\ x__ y__ -> x__ {_RpbGetReq'ifModified = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "head" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'head (\ x__ y__ -> x__ {_RpbGetReq'head = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'head" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'head (\ x__ y__ -> x__ {_RpbGetReq'head = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "deletedvclock" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'deletedvclock + (\ x__ y__ -> x__ {_RpbGetReq'deletedvclock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'deletedvclock" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'deletedvclock + (\ x__ y__ -> x__ {_RpbGetReq'deletedvclock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'timeout (\ x__ y__ -> x__ {_RpbGetReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'timeout (\ x__ y__ -> x__ {_RpbGetReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "sloppyQuorum" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'sloppyQuorum + (\ x__ y__ -> x__ {_RpbGetReq'sloppyQuorum = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'sloppyQuorum" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'sloppyQuorum + (\ x__ y__ -> x__ {_RpbGetReq'sloppyQuorum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "nVal" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'nVal (\ x__ y__ -> x__ {_RpbGetReq'nVal = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'nVal" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'nVal (\ x__ y__ -> x__ {_RpbGetReq'nVal = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'type' (\ x__ y__ -> x__ {_RpbGetReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetReq'type' (\ x__ y__ -> x__ {_RpbGetReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbGetReq where + messageName _ = Data.Text.pack "RpbGetReq" + packedMessageDescriptor _ + = "\n\ + \\tRpbGetReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\f\n\ + \\SOHr\CAN\ETX \SOH(\rR\SOHr\DC2\SO\n\ + \\STXpr\CAN\EOT \SOH(\rR\STXpr\DC2!\n\ + \\fbasic_quorum\CAN\ENQ \SOH(\bR\vbasicQuorum\DC2\US\n\ + \\vnotfound_ok\CAN\ACK \SOH(\bR\n\ + \notfoundOk\DC2\US\n\ + \\vif_modified\CAN\a \SOH(\fR\n\ + \ifModified\DC2\DC2\n\ + \\EOThead\CAN\b \SOH(\bR\EOThead\DC2$\n\ + \\rdeletedvclock\CAN\t \SOH(\bR\rdeletedvclock\DC2\CAN\n\ + \\atimeout\CAN\n\ + \ \SOH(\rR\atimeout\DC2#\n\ + \\rsloppy_quorum\CAN\v \SOH(\bR\fsloppyQuorum\DC2\DC3\n\ + \\ENQn_val\CAN\f \SOH(\rR\EOTnVal\DC2\DC2\n\ + \\EOTtype\CAN\r \SOH(\fR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + r__field_descriptor + = Data.ProtoLens.FieldDescriptor + "r" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'r")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + pr__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pr" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pr")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + basicQuorum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "basic_quorum" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'basicQuorum")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + notfoundOk__field_descriptor + = Data.ProtoLens.FieldDescriptor + "notfound_ok" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'notfoundOk")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + ifModified__field_descriptor + = Data.ProtoLens.FieldDescriptor + "if_modified" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ifModified")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + head__field_descriptor + = Data.ProtoLens.FieldDescriptor + "head" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'head")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + deletedvclock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "deletedvclock" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'deletedvclock")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + sloppyQuorum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "sloppy_quorum" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'sloppyQuorum")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + nVal__field_descriptor + = Data.ProtoLens.FieldDescriptor + "n_val" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'nVal")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbGetReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, r__field_descriptor), + (Data.ProtoLens.Tag 4, pr__field_descriptor), + (Data.ProtoLens.Tag 5, basicQuorum__field_descriptor), + (Data.ProtoLens.Tag 6, notfoundOk__field_descriptor), + (Data.ProtoLens.Tag 7, ifModified__field_descriptor), + (Data.ProtoLens.Tag 8, head__field_descriptor), + (Data.ProtoLens.Tag 9, deletedvclock__field_descriptor), + (Data.ProtoLens.Tag 10, timeout__field_descriptor), + (Data.ProtoLens.Tag 11, sloppyQuorum__field_descriptor), + (Data.ProtoLens.Tag 12, nVal__field_descriptor), + (Data.ProtoLens.Tag 13, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetReq'_unknownFields + (\ x__ y__ -> x__ {_RpbGetReq'_unknownFields = y__}) + defMessage + = RpbGetReq'_constructor + {_RpbGetReq'bucket = Data.ProtoLens.fieldDefault, + _RpbGetReq'key = Data.ProtoLens.fieldDefault, + _RpbGetReq'r = Prelude.Nothing, _RpbGetReq'pr = Prelude.Nothing, + _RpbGetReq'basicQuorum = Prelude.Nothing, + _RpbGetReq'notfoundOk = Prelude.Nothing, + _RpbGetReq'ifModified = Prelude.Nothing, + _RpbGetReq'head = Prelude.Nothing, + _RpbGetReq'deletedvclock = Prelude.Nothing, + _RpbGetReq'timeout = Prelude.Nothing, + _RpbGetReq'sloppyQuorum = Prelude.Nothing, + _RpbGetReq'nVal = Prelude.Nothing, + _RpbGetReq'type' = Prelude.Nothing, _RpbGetReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetReq + -> Prelude.Bool + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetReq + loop x required'bucket required'key + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'bucket then (:) "bucket" else Prelude.id) + ((if required'key then (:) "key" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + required'key + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + required'bucket + Prelude.False + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "r" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"r") y x) + required'bucket + required'key + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "pr" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pr") y x) + required'bucket + required'key + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "basic_quorum" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"basicQuorum") y x) + required'bucket + required'key + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "notfound_ok" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"notfoundOk") y x) + required'bucket + required'key + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "if_modified" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ifModified") y x) + required'bucket + required'key + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "head" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"head") y x) + required'bucket + required'key + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "deletedvclock" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"deletedvclock") y x) + required'bucket + required'key + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'bucket + required'key + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "sloppy_quorum" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"sloppyQuorum") y x) + required'bucket + required'key + 96 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "n_val" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nVal") y x) + required'bucket + required'key + 106 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + required'key + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + required'key + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbGetReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'r") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pr") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'basicQuorum") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'notfoundOk") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ifModified") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'head") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'deletedvclock") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'sloppyQuorum") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'nVal") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'type'") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 106) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x)))))))))))))) +instance Control.DeepSeq.NFData RpbGetReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'key x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'r x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'pr x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'basicQuorum x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'notfoundOk x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'ifModified x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'head x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'deletedvclock x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'timeout x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'sloppyQuorum x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'nVal x__) + (Control.DeepSeq.deepseq + (_RpbGetReq'type' x__) ()))))))))))))) +{- | Fields : + + * 'Proto.Riak_Fields.content' @:: Lens' RpbGetResp [RpbContent]@ + * 'Proto.Riak_Fields.vec'content' @:: Lens' RpbGetResp (Data.Vector.Vector RpbContent)@ + * 'Proto.Riak_Fields.vclock' @:: Lens' RpbGetResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'vclock' @:: Lens' RpbGetResp (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.unchanged' @:: Lens' RpbGetResp Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'unchanged' @:: Lens' RpbGetResp (Prelude.Maybe Prelude.Bool)@ -} +data RpbGetResp + = RpbGetResp'_constructor {_RpbGetResp'content :: !(Data.Vector.Vector RpbContent), + _RpbGetResp'vclock :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbGetResp'unchanged :: !(Prelude.Maybe Prelude.Bool), + _RpbGetResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbGetResp "content" [RpbContent] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetResp'content (\ x__ y__ -> x__ {_RpbGetResp'content = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbGetResp "vec'content" (Data.Vector.Vector RpbContent) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetResp'content (\ x__ y__ -> x__ {_RpbGetResp'content = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetResp "vclock" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetResp'vclock (\ x__ y__ -> x__ {_RpbGetResp'vclock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetResp "maybe'vclock" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetResp'vclock (\ x__ y__ -> x__ {_RpbGetResp'vclock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetResp "unchanged" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetResp'unchanged + (\ x__ y__ -> x__ {_RpbGetResp'unchanged = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetResp "maybe'unchanged" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetResp'unchanged + (\ x__ y__ -> x__ {_RpbGetResp'unchanged = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbGetResp where + messageName _ = Data.Text.pack "RpbGetResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \RpbGetResp\DC2%\n\ + \\acontent\CAN\SOH \ETX(\v2\v.RpbContentR\acontent\DC2\SYN\n\ + \\ACKvclock\CAN\STX \SOH(\fR\ACKvclock\DC2\FS\n\ + \\tunchanged\CAN\ETX \SOH(\bR\tunchanged" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + content__field_descriptor + = Data.ProtoLens.FieldDescriptor + "content" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbContent) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"content")) :: + Data.ProtoLens.FieldDescriptor RpbGetResp + vclock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vclock" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'vclock")) :: + Data.ProtoLens.FieldDescriptor RpbGetResp + unchanged__field_descriptor + = Data.ProtoLens.FieldDescriptor + "unchanged" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'unchanged")) :: + Data.ProtoLens.FieldDescriptor RpbGetResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, content__field_descriptor), + (Data.ProtoLens.Tag 2, vclock__field_descriptor), + (Data.ProtoLens.Tag 3, unchanged__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetResp'_unknownFields + (\ x__ y__ -> x__ {_RpbGetResp'_unknownFields = y__}) + defMessage + = RpbGetResp'_constructor + {_RpbGetResp'content = Data.Vector.Generic.empty, + _RpbGetResp'vclock = Prelude.Nothing, + _RpbGetResp'unchanged = Prelude.Nothing, + _RpbGetResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbContent + -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetResp + loop x mutable'content + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'content <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'content) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'content") frozen'content x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "content" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'content y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "vclock" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"vclock") y x) + mutable'content + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "unchanged" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"unchanged") y x) + mutable'content + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'content + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'content <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'content) + "RpbGetResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'content") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'vclock") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'unchanged") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbGetResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbGetResp'content x__) + (Control.DeepSeq.deepseq + (_RpbGetResp'vclock x__) + (Control.DeepSeq.deepseq (_RpbGetResp'unchanged x__) ()))) +{- | Fields : + -} +data RpbGetServerInfoReq + = RpbGetServerInfoReq'_constructor {_RpbGetServerInfoReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetServerInfoReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message RpbGetServerInfoReq where + messageName _ = Data.Text.pack "RpbGetServerInfoReq" + packedMessageDescriptor _ + = "\n\ + \\DC3RpbGetServerInfoReq" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetServerInfoReq'_unknownFields + (\ x__ y__ -> x__ {_RpbGetServerInfoReq'_unknownFields = y__}) + defMessage + = RpbGetServerInfoReq'_constructor + {_RpbGetServerInfoReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetServerInfoReq + -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetServerInfoReq + 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 + ((Prelude.++) + "Missing required fields: " + (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 { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbGetServerInfoReq" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData RpbGetServerInfoReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetServerInfoReq'_unknownFields x__) () +{- | Fields : + + * 'Proto.Riak_Fields.node' @:: Lens' RpbGetServerInfoResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'node' @:: Lens' RpbGetServerInfoResp (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.serverVersion' @:: Lens' RpbGetServerInfoResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'serverVersion' @:: Lens' RpbGetServerInfoResp (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbGetServerInfoResp + = RpbGetServerInfoResp'_constructor {_RpbGetServerInfoResp'node :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbGetServerInfoResp'serverVersion :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbGetServerInfoResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbGetServerInfoResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbGetServerInfoResp "node" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetServerInfoResp'node + (\ x__ y__ -> x__ {_RpbGetServerInfoResp'node = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetServerInfoResp "maybe'node" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetServerInfoResp'node + (\ x__ y__ -> x__ {_RpbGetServerInfoResp'node = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbGetServerInfoResp "serverVersion" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetServerInfoResp'serverVersion + (\ x__ y__ -> x__ {_RpbGetServerInfoResp'serverVersion = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbGetServerInfoResp "maybe'serverVersion" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbGetServerInfoResp'serverVersion + (\ x__ y__ -> x__ {_RpbGetServerInfoResp'serverVersion = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbGetServerInfoResp where + messageName _ = Data.Text.pack "RpbGetServerInfoResp" + packedMessageDescriptor _ + = "\n\ + \\DC4RpbGetServerInfoResp\DC2\DC2\n\ + \\EOTnode\CAN\SOH \SOH(\fR\EOTnode\DC2%\n\ + \\SOserver_version\CAN\STX \SOH(\fR\rserverVersion" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + node__field_descriptor + = Data.ProtoLens.FieldDescriptor + "node" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'node")) :: + Data.ProtoLens.FieldDescriptor RpbGetServerInfoResp + serverVersion__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_version" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverVersion")) :: + Data.ProtoLens.FieldDescriptor RpbGetServerInfoResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, node__field_descriptor), + (Data.ProtoLens.Tag 2, serverVersion__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbGetServerInfoResp'_unknownFields + (\ x__ y__ -> x__ {_RpbGetServerInfoResp'_unknownFields = y__}) + defMessage + = RpbGetServerInfoResp'_constructor + {_RpbGetServerInfoResp'node = Prelude.Nothing, + _RpbGetServerInfoResp'serverVersion = Prelude.Nothing, + _RpbGetServerInfoResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbGetServerInfoResp + -> Data.ProtoLens.Encoding.Bytes.Parser RpbGetServerInfoResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "node" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"node") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "server_version" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"serverVersion") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbGetServerInfoResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'node") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'serverVersion") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbGetServerInfoResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbGetServerInfoResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbGetServerInfoResp'node x__) + (Control.DeepSeq.deepseq + (_RpbGetServerInfoResp'serverVersion x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.objects' @:: Lens' RpbIndexBodyResp [RpbIndexObject]@ + * 'Proto.Riak_Fields.vec'objects' @:: Lens' RpbIndexBodyResp (Data.Vector.Vector RpbIndexObject)@ + * 'Proto.Riak_Fields.continuation' @:: Lens' RpbIndexBodyResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'continuation' @:: Lens' RpbIndexBodyResp (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.done' @:: Lens' RpbIndexBodyResp Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'done' @:: Lens' RpbIndexBodyResp (Prelude.Maybe Prelude.Bool)@ -} +data RpbIndexBodyResp + = RpbIndexBodyResp'_constructor {_RpbIndexBodyResp'objects :: !(Data.Vector.Vector RpbIndexObject), + _RpbIndexBodyResp'continuation :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbIndexBodyResp'done :: !(Prelude.Maybe Prelude.Bool), + _RpbIndexBodyResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbIndexBodyResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbIndexBodyResp "objects" [RpbIndexObject] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexBodyResp'objects + (\ x__ y__ -> x__ {_RpbIndexBodyResp'objects = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbIndexBodyResp "vec'objects" (Data.Vector.Vector RpbIndexObject) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexBodyResp'objects + (\ x__ y__ -> x__ {_RpbIndexBodyResp'objects = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexBodyResp "continuation" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexBodyResp'continuation + (\ x__ y__ -> x__ {_RpbIndexBodyResp'continuation = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexBodyResp "maybe'continuation" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexBodyResp'continuation + (\ x__ y__ -> x__ {_RpbIndexBodyResp'continuation = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexBodyResp "done" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexBodyResp'done + (\ x__ y__ -> x__ {_RpbIndexBodyResp'done = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexBodyResp "maybe'done" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexBodyResp'done + (\ x__ y__ -> x__ {_RpbIndexBodyResp'done = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbIndexBodyResp where + messageName _ = Data.Text.pack "RpbIndexBodyResp" + packedMessageDescriptor _ + = "\n\ + \\DLERpbIndexBodyResp\DC2)\n\ + \\aobjects\CAN\SOH \ETX(\v2\SI.RpbIndexObjectR\aobjects\DC2\"\n\ + \\fcontinuation\CAN\STX \SOH(\fR\fcontinuation\DC2\DC2\n\ + \\EOTdone\CAN\ETX \SOH(\bR\EOTdone" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + objects__field_descriptor + = Data.ProtoLens.FieldDescriptor + "objects" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbIndexObject) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"objects")) :: + Data.ProtoLens.FieldDescriptor RpbIndexBodyResp + continuation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "continuation" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'continuation")) :: + Data.ProtoLens.FieldDescriptor RpbIndexBodyResp + done__field_descriptor + = Data.ProtoLens.FieldDescriptor + "done" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'done")) :: + Data.ProtoLens.FieldDescriptor RpbIndexBodyResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, objects__field_descriptor), + (Data.ProtoLens.Tag 2, continuation__field_descriptor), + (Data.ProtoLens.Tag 3, done__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbIndexBodyResp'_unknownFields + (\ x__ y__ -> x__ {_RpbIndexBodyResp'_unknownFields = y__}) + defMessage + = RpbIndexBodyResp'_constructor + {_RpbIndexBodyResp'objects = Data.Vector.Generic.empty, + _RpbIndexBodyResp'continuation = Prelude.Nothing, + _RpbIndexBodyResp'done = Prelude.Nothing, + _RpbIndexBodyResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbIndexBodyResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbIndexObject + -> Data.ProtoLens.Encoding.Bytes.Parser RpbIndexBodyResp + loop x mutable'objects + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'objects <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'objects) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'objects") frozen'objects x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "objects" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'objects y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "continuation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"continuation") y x) + mutable'objects + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "done" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"done") y x) + mutable'objects + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'objects + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'objects <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'objects) + "RpbIndexBodyResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'objects") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'continuation") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'done") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbIndexBodyResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbIndexBodyResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbIndexBodyResp'objects x__) + (Control.DeepSeq.deepseq + (_RpbIndexBodyResp'continuation x__) + (Control.DeepSeq.deepseq (_RpbIndexBodyResp'done x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.key' @:: Lens' RpbIndexObject Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.object' @:: Lens' RpbIndexObject RpbGetResp@ -} +data RpbIndexObject + = RpbIndexObject'_constructor {_RpbIndexObject'key :: !Data.ByteString.ByteString, + _RpbIndexObject'object :: !RpbGetResp, + _RpbIndexObject'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbIndexObject where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbIndexObject "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexObject'key (\ x__ y__ -> x__ {_RpbIndexObject'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexObject "object" RpbGetResp where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexObject'object + (\ x__ y__ -> x__ {_RpbIndexObject'object = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbIndexObject where + messageName _ = Data.Text.pack "RpbIndexObject" + packedMessageDescriptor _ + = "\n\ + \\SORpbIndexObject\DC2\DLE\n\ + \\ETXkey\CAN\SOH \STX(\fR\ETXkey\DC2#\n\ + \\ACKobject\CAN\STX \STX(\v2\v.RpbGetRespR\ACKobject" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor RpbIndexObject + object__field_descriptor + = Data.ProtoLens.FieldDescriptor + "object" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbGetResp) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"object")) :: + Data.ProtoLens.FieldDescriptor RpbIndexObject + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, object__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbIndexObject'_unknownFields + (\ x__ y__ -> x__ {_RpbIndexObject'_unknownFields = y__}) + defMessage + = RpbIndexObject'_constructor + {_RpbIndexObject'key = Data.ProtoLens.fieldDefault, + _RpbIndexObject'object = Data.ProtoLens.defMessage, + _RpbIndexObject'_unknownFields = []} + parseMessage + = let + loop :: + RpbIndexObject + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbIndexObject + loop x required'key required'object + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'key then (:) "key" else Prelude.id) + ((if required'object then (:) "object" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + Prelude.False + required'object + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "object" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"object") y x) + required'key + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'key + required'object + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbIndexObject" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"object") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbIndexObject where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbIndexObject'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbIndexObject'key x__) + (Control.DeepSeq.deepseq (_RpbIndexObject'object x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbIndexReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.index' @:: Lens' RpbIndexReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.qtype' @:: Lens' RpbIndexReq RpbIndexReq'IndexQueryType@ + * 'Proto.Riak_Fields.key' @:: Lens' RpbIndexReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'key' @:: Lens' RpbIndexReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.rangeMin' @:: Lens' RpbIndexReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'rangeMin' @:: Lens' RpbIndexReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.rangeMax' @:: Lens' RpbIndexReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'rangeMax' @:: Lens' RpbIndexReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.returnTerms' @:: Lens' RpbIndexReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'returnTerms' @:: Lens' RpbIndexReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.stream' @:: Lens' RpbIndexReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'stream' @:: Lens' RpbIndexReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.maxResults' @:: Lens' RpbIndexReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'maxResults' @:: Lens' RpbIndexReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.continuation' @:: Lens' RpbIndexReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'continuation' @:: Lens' RpbIndexReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.timeout' @:: Lens' RpbIndexReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' RpbIndexReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbIndexReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbIndexReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.termRegex' @:: Lens' RpbIndexReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'termRegex' @:: Lens' RpbIndexReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.paginationSort' @:: Lens' RpbIndexReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'paginationSort' @:: Lens' RpbIndexReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.coverContext' @:: Lens' RpbIndexReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'coverContext' @:: Lens' RpbIndexReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.returnBody' @:: Lens' RpbIndexReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'returnBody' @:: Lens' RpbIndexReq (Prelude.Maybe Prelude.Bool)@ -} +data RpbIndexReq + = RpbIndexReq'_constructor {_RpbIndexReq'bucket :: !Data.ByteString.ByteString, + _RpbIndexReq'index :: !Data.ByteString.ByteString, + _RpbIndexReq'qtype :: !RpbIndexReq'IndexQueryType, + _RpbIndexReq'key :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbIndexReq'rangeMin :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbIndexReq'rangeMax :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbIndexReq'returnTerms :: !(Prelude.Maybe Prelude.Bool), + _RpbIndexReq'stream :: !(Prelude.Maybe Prelude.Bool), + _RpbIndexReq'maxResults :: !(Prelude.Maybe Data.Word.Word32), + _RpbIndexReq'continuation :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbIndexReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _RpbIndexReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbIndexReq'termRegex :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbIndexReq'paginationSort :: !(Prelude.Maybe Prelude.Bool), + _RpbIndexReq'coverContext :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbIndexReq'returnBody :: !(Prelude.Maybe Prelude.Bool), + _RpbIndexReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbIndexReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbIndexReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'bucket (\ x__ y__ -> x__ {_RpbIndexReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "index" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'index (\ x__ y__ -> x__ {_RpbIndexReq'index = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "qtype" RpbIndexReq'IndexQueryType where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'qtype (\ x__ y__ -> x__ {_RpbIndexReq'qtype = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'key (\ x__ y__ -> x__ {_RpbIndexReq'key = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'key" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'key (\ x__ y__ -> x__ {_RpbIndexReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "rangeMin" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'rangeMin + (\ x__ y__ -> x__ {_RpbIndexReq'rangeMin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'rangeMin" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'rangeMin + (\ x__ y__ -> x__ {_RpbIndexReq'rangeMin = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "rangeMax" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'rangeMax + (\ x__ y__ -> x__ {_RpbIndexReq'rangeMax = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'rangeMax" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'rangeMax + (\ x__ y__ -> x__ {_RpbIndexReq'rangeMax = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "returnTerms" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'returnTerms + (\ x__ y__ -> x__ {_RpbIndexReq'returnTerms = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'returnTerms" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'returnTerms + (\ x__ y__ -> x__ {_RpbIndexReq'returnTerms = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "stream" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'stream (\ x__ y__ -> x__ {_RpbIndexReq'stream = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'stream" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'stream (\ x__ y__ -> x__ {_RpbIndexReq'stream = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "maxResults" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'maxResults + (\ x__ y__ -> x__ {_RpbIndexReq'maxResults = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'maxResults" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'maxResults + (\ x__ y__ -> x__ {_RpbIndexReq'maxResults = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "continuation" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'continuation + (\ x__ y__ -> x__ {_RpbIndexReq'continuation = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'continuation" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'continuation + (\ x__ y__ -> x__ {_RpbIndexReq'continuation = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'timeout + (\ x__ y__ -> x__ {_RpbIndexReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'timeout + (\ x__ y__ -> x__ {_RpbIndexReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'type' (\ x__ y__ -> x__ {_RpbIndexReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'type' (\ x__ y__ -> x__ {_RpbIndexReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "termRegex" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'termRegex + (\ x__ y__ -> x__ {_RpbIndexReq'termRegex = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'termRegex" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'termRegex + (\ x__ y__ -> x__ {_RpbIndexReq'termRegex = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "paginationSort" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'paginationSort + (\ x__ y__ -> x__ {_RpbIndexReq'paginationSort = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'paginationSort" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'paginationSort + (\ x__ y__ -> x__ {_RpbIndexReq'paginationSort = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "coverContext" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'coverContext + (\ x__ y__ -> x__ {_RpbIndexReq'coverContext = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'coverContext" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'coverContext + (\ x__ y__ -> x__ {_RpbIndexReq'coverContext = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexReq "returnBody" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'returnBody + (\ x__ y__ -> x__ {_RpbIndexReq'returnBody = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexReq "maybe'returnBody" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexReq'returnBody + (\ x__ y__ -> x__ {_RpbIndexReq'returnBody = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbIndexReq where + messageName _ = Data.Text.pack "RpbIndexReq" + packedMessageDescriptor _ + = "\n\ + \\vRpbIndexReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DC4\n\ + \\ENQindex\CAN\STX \STX(\fR\ENQindex\DC21\n\ + \\ENQqtype\CAN\ETX \STX(\SO2\ESC.RpbIndexReq.IndexQueryTypeR\ENQqtype\DC2\DLE\n\ + \\ETXkey\CAN\EOT \SOH(\fR\ETXkey\DC2\ESC\n\ + \\trange_min\CAN\ENQ \SOH(\fR\brangeMin\DC2\ESC\n\ + \\trange_max\CAN\ACK \SOH(\fR\brangeMax\DC2!\n\ + \\freturn_terms\CAN\a \SOH(\bR\vreturnTerms\DC2\SYN\n\ + \\ACKstream\CAN\b \SOH(\bR\ACKstream\DC2\US\n\ + \\vmax_results\CAN\t \SOH(\rR\n\ + \maxResults\DC2\"\n\ + \\fcontinuation\CAN\n\ + \ \SOH(\fR\fcontinuation\DC2\CAN\n\ + \\atimeout\CAN\v \SOH(\rR\atimeout\DC2\DC2\n\ + \\EOTtype\CAN\f \SOH(\fR\EOTtype\DC2\GS\n\ + \\n\ + \term_regex\CAN\r \SOH(\fR\ttermRegex\DC2'\n\ + \\SIpagination_sort\CAN\SO \SOH(\bR\SOpaginationSort\DC2#\n\ + \\rcover_context\CAN\SI \SOH(\fR\fcoverContext\DC2\US\n\ + \\vreturn_body\CAN\DLE \SOH(\bR\n\ + \returnBody\"#\n\ + \\SOIndexQueryType\DC2\ACK\n\ + \\STXeq\DLE\NUL\DC2\t\n\ + \\ENQrange\DLE\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + index__field_descriptor + = Data.ProtoLens.FieldDescriptor + "index" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"index")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + qtype__field_descriptor + = Data.ProtoLens.FieldDescriptor + "qtype" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor RpbIndexReq'IndexQueryType) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"qtype")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'key")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + rangeMin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "range_min" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'rangeMin")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + rangeMax__field_descriptor + = Data.ProtoLens.FieldDescriptor + "range_max" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'rangeMax")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + returnTerms__field_descriptor + = Data.ProtoLens.FieldDescriptor + "return_terms" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'returnTerms")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + stream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stream")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + maxResults__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_results" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'maxResults")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + continuation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "continuation" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'continuation")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + termRegex__field_descriptor + = Data.ProtoLens.FieldDescriptor + "term_regex" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'termRegex")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + paginationSort__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pagination_sort" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'paginationSort")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + coverContext__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cover_context" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coverContext")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + returnBody__field_descriptor + = Data.ProtoLens.FieldDescriptor + "return_body" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'returnBody")) :: + Data.ProtoLens.FieldDescriptor RpbIndexReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, index__field_descriptor), + (Data.ProtoLens.Tag 3, qtype__field_descriptor), + (Data.ProtoLens.Tag 4, key__field_descriptor), + (Data.ProtoLens.Tag 5, rangeMin__field_descriptor), + (Data.ProtoLens.Tag 6, rangeMax__field_descriptor), + (Data.ProtoLens.Tag 7, returnTerms__field_descriptor), + (Data.ProtoLens.Tag 8, stream__field_descriptor), + (Data.ProtoLens.Tag 9, maxResults__field_descriptor), + (Data.ProtoLens.Tag 10, continuation__field_descriptor), + (Data.ProtoLens.Tag 11, timeout__field_descriptor), + (Data.ProtoLens.Tag 12, type'__field_descriptor), + (Data.ProtoLens.Tag 13, termRegex__field_descriptor), + (Data.ProtoLens.Tag 14, paginationSort__field_descriptor), + (Data.ProtoLens.Tag 15, coverContext__field_descriptor), + (Data.ProtoLens.Tag 16, returnBody__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbIndexReq'_unknownFields + (\ x__ y__ -> x__ {_RpbIndexReq'_unknownFields = y__}) + defMessage + = RpbIndexReq'_constructor + {_RpbIndexReq'bucket = Data.ProtoLens.fieldDefault, + _RpbIndexReq'index = Data.ProtoLens.fieldDefault, + _RpbIndexReq'qtype = Data.ProtoLens.fieldDefault, + _RpbIndexReq'key = Prelude.Nothing, + _RpbIndexReq'rangeMin = Prelude.Nothing, + _RpbIndexReq'rangeMax = Prelude.Nothing, + _RpbIndexReq'returnTerms = Prelude.Nothing, + _RpbIndexReq'stream = Prelude.Nothing, + _RpbIndexReq'maxResults = Prelude.Nothing, + _RpbIndexReq'continuation = Prelude.Nothing, + _RpbIndexReq'timeout = Prelude.Nothing, + _RpbIndexReq'type' = Prelude.Nothing, + _RpbIndexReq'termRegex = Prelude.Nothing, + _RpbIndexReq'paginationSort = Prelude.Nothing, + _RpbIndexReq'coverContext = Prelude.Nothing, + _RpbIndexReq'returnBody = Prelude.Nothing, + _RpbIndexReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbIndexReq + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser RpbIndexReq + loop x required'bucket required'index required'qtype + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'bucket then (:) "bucket" else Prelude.id) + ((if required'index then (:) "index" else Prelude.id) + ((if required'qtype then (:) "qtype" else Prelude.id) [])) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + required'index + required'qtype + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "index" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"index") y x) + required'bucket + Prelude.False + required'qtype + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "qtype" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"qtype") y x) + required'bucket + required'index + Prelude.False + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + required'bucket + required'index + required'qtype + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "range_min" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"rangeMin") y x) + required'bucket + required'index + required'qtype + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "range_max" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"rangeMax") y x) + required'bucket + required'index + required'qtype + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "return_terms" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"returnTerms") y x) + required'bucket + required'index + required'qtype + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "stream" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"stream") y x) + required'bucket + required'index + required'qtype + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_results" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"maxResults") y x) + required'bucket + required'index + required'qtype + 82 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "continuation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"continuation") y x) + required'bucket + required'index + required'qtype + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'bucket + required'index + required'qtype + 98 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + required'index + required'qtype + 106 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "term_regex" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"termRegex") y x) + required'bucket + required'index + required'qtype + 112 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "pagination_sort" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"paginationSort") y x) + required'bucket + required'index + required'qtype + 122 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "cover_context" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"coverContext") y x) + required'bucket + required'index + required'qtype + 128 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "return_body" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"returnBody") y x) + required'bucket + required'index + required'qtype + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + required'index + required'qtype + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop + Data.ProtoLens.defMessage Prelude.True Prelude.True Prelude.True) + "RpbIndexReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"index") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum + (Lens.Family2.view (Data.ProtoLens.Field.field @"qtype") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'rangeMin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'rangeMax") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'returnTerms") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stream") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'maxResults") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'continuation") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'type'") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 98) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'termRegex") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 106) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'paginationSort") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 112) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'coverContext") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 122) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'returnBody") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 128) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields + _x))))))))))))))))) +instance Control.DeepSeq.NFData RpbIndexReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbIndexReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'index x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'qtype x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'key x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'rangeMin x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'rangeMax x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'returnTerms x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'stream x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'maxResults x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'continuation x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'timeout x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'type' x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'termRegex x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'paginationSort x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'coverContext x__) + (Control.DeepSeq.deepseq + (_RpbIndexReq'returnBody x__) + ())))))))))))))))) +data RpbIndexReq'IndexQueryType + = RpbIndexReq'Eq | RpbIndexReq'Range + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum RpbIndexReq'IndexQueryType where + maybeToEnum 0 = Prelude.Just RpbIndexReq'Eq + maybeToEnum 1 = Prelude.Just RpbIndexReq'Range + maybeToEnum _ = Prelude.Nothing + showEnum RpbIndexReq'Eq = "eq" + showEnum RpbIndexReq'Range = "range" + readEnum k + | (Prelude.==) k "eq" = Prelude.Just RpbIndexReq'Eq + | (Prelude.==) k "range" = Prelude.Just RpbIndexReq'Range + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded RpbIndexReq'IndexQueryType where + minBound = RpbIndexReq'Eq + maxBound = RpbIndexReq'Range +instance Prelude.Enum RpbIndexReq'IndexQueryType where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum IndexQueryType: " + (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum RpbIndexReq'Eq = 0 + fromEnum RpbIndexReq'Range = 1 + succ RpbIndexReq'Range + = Prelude.error + "RpbIndexReq'IndexQueryType.succ: bad argument RpbIndexReq'Range. This value would be out of bounds." + succ RpbIndexReq'Eq = RpbIndexReq'Range + pred RpbIndexReq'Eq + = Prelude.error + "RpbIndexReq'IndexQueryType.pred: bad argument RpbIndexReq'Eq. This value would be out of bounds." + pred RpbIndexReq'Range = RpbIndexReq'Eq + 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 RpbIndexReq'IndexQueryType where + fieldDefault = RpbIndexReq'Eq +instance Control.DeepSeq.NFData RpbIndexReq'IndexQueryType where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Riak_Fields.keys' @:: Lens' RpbIndexResp [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'keys' @:: Lens' RpbIndexResp (Data.Vector.Vector Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.results' @:: Lens' RpbIndexResp [RpbPair]@ + * 'Proto.Riak_Fields.vec'results' @:: Lens' RpbIndexResp (Data.Vector.Vector RpbPair)@ + * 'Proto.Riak_Fields.continuation' @:: Lens' RpbIndexResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'continuation' @:: Lens' RpbIndexResp (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.done' @:: Lens' RpbIndexResp Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'done' @:: Lens' RpbIndexResp (Prelude.Maybe Prelude.Bool)@ -} +data RpbIndexResp + = RpbIndexResp'_constructor {_RpbIndexResp'keys :: !(Data.Vector.Vector Data.ByteString.ByteString), + _RpbIndexResp'results :: !(Data.Vector.Vector RpbPair), + _RpbIndexResp'continuation :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbIndexResp'done :: !(Prelude.Maybe Prelude.Bool), + _RpbIndexResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbIndexResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbIndexResp "keys" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexResp'keys (\ x__ y__ -> x__ {_RpbIndexResp'keys = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbIndexResp "vec'keys" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexResp'keys (\ x__ y__ -> x__ {_RpbIndexResp'keys = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexResp "results" [RpbPair] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexResp'results + (\ x__ y__ -> x__ {_RpbIndexResp'results = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbIndexResp "vec'results" (Data.Vector.Vector RpbPair) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexResp'results + (\ x__ y__ -> x__ {_RpbIndexResp'results = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexResp "continuation" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexResp'continuation + (\ x__ y__ -> x__ {_RpbIndexResp'continuation = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexResp "maybe'continuation" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexResp'continuation + (\ x__ y__ -> x__ {_RpbIndexResp'continuation = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbIndexResp "done" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexResp'done (\ x__ y__ -> x__ {_RpbIndexResp'done = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbIndexResp "maybe'done" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbIndexResp'done (\ x__ y__ -> x__ {_RpbIndexResp'done = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbIndexResp where + messageName _ = Data.Text.pack "RpbIndexResp" + packedMessageDescriptor _ + = "\n\ + \\fRpbIndexResp\DC2\DC2\n\ + \\EOTkeys\CAN\SOH \ETX(\fR\EOTkeys\DC2\"\n\ + \\aresults\CAN\STX \ETX(\v2\b.RpbPairR\aresults\DC2\"\n\ + \\fcontinuation\CAN\ETX \SOH(\fR\fcontinuation\DC2\DC2\n\ + \\EOTdone\CAN\EOT \SOH(\bR\EOTdone" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + keys__field_descriptor + = Data.ProtoLens.FieldDescriptor + "keys" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"keys")) :: + Data.ProtoLens.FieldDescriptor RpbIndexResp + results__field_descriptor + = Data.ProtoLens.FieldDescriptor + "results" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbPair) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"results")) :: + Data.ProtoLens.FieldDescriptor RpbIndexResp + continuation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "continuation" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'continuation")) :: + Data.ProtoLens.FieldDescriptor RpbIndexResp + done__field_descriptor + = Data.ProtoLens.FieldDescriptor + "done" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'done")) :: + Data.ProtoLens.FieldDescriptor RpbIndexResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, keys__field_descriptor), + (Data.ProtoLens.Tag 2, results__field_descriptor), + (Data.ProtoLens.Tag 3, continuation__field_descriptor), + (Data.ProtoLens.Tag 4, done__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbIndexResp'_unknownFields + (\ x__ y__ -> x__ {_RpbIndexResp'_unknownFields = y__}) + defMessage + = RpbIndexResp'_constructor + {_RpbIndexResp'keys = Data.Vector.Generic.empty, + _RpbIndexResp'results = Data.Vector.Generic.empty, + _RpbIndexResp'continuation = Prelude.Nothing, + _RpbIndexResp'done = Prelude.Nothing, + _RpbIndexResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbIndexResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbPair + -> Data.ProtoLens.Encoding.Bytes.Parser RpbIndexResp + loop x mutable'keys mutable'results + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'keys) + frozen'results <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'results) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'keys") + frozen'keys + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'results") frozen'results x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "keys" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'keys y) + loop x v mutable'results + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "results" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'results y) + loop x mutable'keys v + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "continuation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"continuation") y x) + mutable'keys + mutable'results + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "done" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"done") y x) + mutable'keys + mutable'results + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'keys + mutable'results + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'results <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'keys mutable'results) + "RpbIndexResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'keys") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'results") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'continuation") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'done") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData RpbIndexResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbIndexResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbIndexResp'keys x__) + (Control.DeepSeq.deepseq + (_RpbIndexResp'results x__) + (Control.DeepSeq.deepseq + (_RpbIndexResp'continuation x__) + (Control.DeepSeq.deepseq (_RpbIndexResp'done x__) ())))) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbLink Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'bucket' @:: Lens' RpbLink (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.key' @:: Lens' RpbLink Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'key' @:: Lens' RpbLink (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.tag' @:: Lens' RpbLink Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'tag' @:: Lens' RpbLink (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbLink + = RpbLink'_constructor {_RpbLink'bucket :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbLink'key :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbLink'tag :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbLink'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbLink where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbLink "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbLink'bucket (\ x__ y__ -> x__ {_RpbLink'bucket = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbLink "maybe'bucket" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbLink'bucket (\ x__ y__ -> x__ {_RpbLink'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbLink "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbLink'key (\ x__ y__ -> x__ {_RpbLink'key = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbLink "maybe'key" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbLink'key (\ x__ y__ -> x__ {_RpbLink'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbLink "tag" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbLink'tag (\ x__ y__ -> x__ {_RpbLink'tag = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbLink "maybe'tag" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbLink'tag (\ x__ y__ -> x__ {_RpbLink'tag = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbLink where + messageName _ = Data.Text.pack "RpbLink" + packedMessageDescriptor _ + = "\n\ + \\aRpbLink\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \SOH(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2\DLE\n\ + \\ETXtag\CAN\ETX \SOH(\fR\ETXtag" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'bucket")) :: + Data.ProtoLens.FieldDescriptor RpbLink + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'key")) :: + Data.ProtoLens.FieldDescriptor RpbLink + tag__field_descriptor + = Data.ProtoLens.FieldDescriptor + "tag" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'tag")) :: + Data.ProtoLens.FieldDescriptor RpbLink + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, tag__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbLink'_unknownFields + (\ x__ y__ -> x__ {_RpbLink'_unknownFields = y__}) + defMessage + = RpbLink'_constructor + {_RpbLink'bucket = Prelude.Nothing, _RpbLink'key = Prelude.Nothing, + _RpbLink'tag = Prelude.Nothing, _RpbLink'_unknownFields = []} + parseMessage + = let + loop :: RpbLink -> Data.ProtoLens.Encoding.Bytes.Parser RpbLink + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "tag" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"tag") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbLink" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'bucket") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'tag") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbLink where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbLink'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbLink'bucket x__) + (Control.DeepSeq.deepseq + (_RpbLink'key x__) + (Control.DeepSeq.deepseq (_RpbLink'tag x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.timeout' @:: Lens' RpbListBucketsReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' RpbListBucketsReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.stream' @:: Lens' RpbListBucketsReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'stream' @:: Lens' RpbListBucketsReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbListBucketsReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbListBucketsReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbListBucketsReq + = RpbListBucketsReq'_constructor {_RpbListBucketsReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _RpbListBucketsReq'stream :: !(Prelude.Maybe Prelude.Bool), + _RpbListBucketsReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbListBucketsReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbListBucketsReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbListBucketsReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListBucketsReq'timeout + (\ x__ y__ -> x__ {_RpbListBucketsReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbListBucketsReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListBucketsReq'timeout + (\ x__ y__ -> x__ {_RpbListBucketsReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbListBucketsReq "stream" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListBucketsReq'stream + (\ x__ y__ -> x__ {_RpbListBucketsReq'stream = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbListBucketsReq "maybe'stream" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListBucketsReq'stream + (\ x__ y__ -> x__ {_RpbListBucketsReq'stream = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbListBucketsReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListBucketsReq'type' + (\ x__ y__ -> x__ {_RpbListBucketsReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbListBucketsReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListBucketsReq'type' + (\ x__ y__ -> x__ {_RpbListBucketsReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbListBucketsReq where + messageName _ = Data.Text.pack "RpbListBucketsReq" + packedMessageDescriptor _ + = "\n\ + \\DC1RpbListBucketsReq\DC2\CAN\n\ + \\atimeout\CAN\SOH \SOH(\rR\atimeout\DC2\SYN\n\ + \\ACKstream\CAN\STX \SOH(\bR\ACKstream\DC2\DC2\n\ + \\EOTtype\CAN\ETX \SOH(\fR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor RpbListBucketsReq + stream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stream")) :: + Data.ProtoLens.FieldDescriptor RpbListBucketsReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbListBucketsReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, timeout__field_descriptor), + (Data.ProtoLens.Tag 2, stream__field_descriptor), + (Data.ProtoLens.Tag 3, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbListBucketsReq'_unknownFields + (\ x__ y__ -> x__ {_RpbListBucketsReq'_unknownFields = y__}) + defMessage + = RpbListBucketsReq'_constructor + {_RpbListBucketsReq'timeout = Prelude.Nothing, + _RpbListBucketsReq'stream = Prelude.Nothing, + _RpbListBucketsReq'type' = Prelude.Nothing, + _RpbListBucketsReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbListBucketsReq + -> Data.ProtoLens.Encoding.Bytes.Parser RpbListBucketsReq + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "stream" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"stream") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbListBucketsReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'stream") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbListBucketsReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbListBucketsReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbListBucketsReq'timeout x__) + (Control.DeepSeq.deepseq + (_RpbListBucketsReq'stream x__) + (Control.DeepSeq.deepseq (_RpbListBucketsReq'type' x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.buckets' @:: Lens' RpbListBucketsResp [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'buckets' @:: Lens' RpbListBucketsResp (Data.Vector.Vector Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.done' @:: Lens' RpbListBucketsResp Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'done' @:: Lens' RpbListBucketsResp (Prelude.Maybe Prelude.Bool)@ -} +data RpbListBucketsResp + = RpbListBucketsResp'_constructor {_RpbListBucketsResp'buckets :: !(Data.Vector.Vector Data.ByteString.ByteString), + _RpbListBucketsResp'done :: !(Prelude.Maybe Prelude.Bool), + _RpbListBucketsResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbListBucketsResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbListBucketsResp "buckets" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListBucketsResp'buckets + (\ x__ y__ -> x__ {_RpbListBucketsResp'buckets = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbListBucketsResp "vec'buckets" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListBucketsResp'buckets + (\ x__ y__ -> x__ {_RpbListBucketsResp'buckets = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbListBucketsResp "done" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListBucketsResp'done + (\ x__ y__ -> x__ {_RpbListBucketsResp'done = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbListBucketsResp "maybe'done" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListBucketsResp'done + (\ x__ y__ -> x__ {_RpbListBucketsResp'done = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbListBucketsResp where + messageName _ = Data.Text.pack "RpbListBucketsResp" + packedMessageDescriptor _ + = "\n\ + \\DC2RpbListBucketsResp\DC2\CAN\n\ + \\abuckets\CAN\SOH \ETX(\fR\abuckets\DC2\DC2\n\ + \\EOTdone\CAN\STX \SOH(\bR\EOTdone" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + buckets__field_descriptor + = Data.ProtoLens.FieldDescriptor + "buckets" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"buckets")) :: + Data.ProtoLens.FieldDescriptor RpbListBucketsResp + done__field_descriptor + = Data.ProtoLens.FieldDescriptor + "done" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'done")) :: + Data.ProtoLens.FieldDescriptor RpbListBucketsResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, buckets__field_descriptor), + (Data.ProtoLens.Tag 2, done__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbListBucketsResp'_unknownFields + (\ x__ y__ -> x__ {_RpbListBucketsResp'_unknownFields = y__}) + defMessage + = RpbListBucketsResp'_constructor + {_RpbListBucketsResp'buckets = Data.Vector.Generic.empty, + _RpbListBucketsResp'done = Prelude.Nothing, + _RpbListBucketsResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbListBucketsResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser RpbListBucketsResp + loop x mutable'buckets + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'buckets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'buckets) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'buckets") frozen'buckets x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "buckets" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'buckets y) + loop x v + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "done" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"done") y x) + mutable'buckets + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'buckets + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'buckets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'buckets) + "RpbListBucketsResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'buckets") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'done") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbListBucketsResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbListBucketsResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbListBucketsResp'buckets x__) + (Control.DeepSeq.deepseq (_RpbListBucketsResp'done x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbListKeysReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.timeout' @:: Lens' RpbListKeysReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' RpbListKeysReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbListKeysReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbListKeysReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbListKeysReq + = RpbListKeysReq'_constructor {_RpbListKeysReq'bucket :: !Data.ByteString.ByteString, + _RpbListKeysReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _RpbListKeysReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbListKeysReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbListKeysReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbListKeysReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListKeysReq'bucket + (\ x__ y__ -> x__ {_RpbListKeysReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbListKeysReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListKeysReq'timeout + (\ x__ y__ -> x__ {_RpbListKeysReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbListKeysReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListKeysReq'timeout + (\ x__ y__ -> x__ {_RpbListKeysReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbListKeysReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListKeysReq'type' + (\ x__ y__ -> x__ {_RpbListKeysReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbListKeysReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListKeysReq'type' + (\ x__ y__ -> x__ {_RpbListKeysReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbListKeysReq where + messageName _ = Data.Text.pack "RpbListKeysReq" + packedMessageDescriptor _ + = "\n\ + \\SORpbListKeysReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\CAN\n\ + \\atimeout\CAN\STX \SOH(\rR\atimeout\DC2\DC2\n\ + \\EOTtype\CAN\ETX \SOH(\fR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbListKeysReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor RpbListKeysReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbListKeysReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, timeout__field_descriptor), + (Data.ProtoLens.Tag 3, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbListKeysReq'_unknownFields + (\ x__ y__ -> x__ {_RpbListKeysReq'_unknownFields = y__}) + defMessage + = RpbListKeysReq'_constructor + {_RpbListKeysReq'bucket = Data.ProtoLens.fieldDefault, + _RpbListKeysReq'timeout = Prelude.Nothing, + _RpbListKeysReq'type' = Prelude.Nothing, + _RpbListKeysReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbListKeysReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbListKeysReq + loop x required'bucket + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'bucket then (:) "bucket" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'bucket + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) "RpbListKeysReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbListKeysReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbListKeysReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbListKeysReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbListKeysReq'timeout x__) + (Control.DeepSeq.deepseq (_RpbListKeysReq'type' x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.keys' @:: Lens' RpbListKeysResp [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'keys' @:: Lens' RpbListKeysResp (Data.Vector.Vector Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.done' @:: Lens' RpbListKeysResp Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'done' @:: Lens' RpbListKeysResp (Prelude.Maybe Prelude.Bool)@ -} +data RpbListKeysResp + = RpbListKeysResp'_constructor {_RpbListKeysResp'keys :: !(Data.Vector.Vector Data.ByteString.ByteString), + _RpbListKeysResp'done :: !(Prelude.Maybe Prelude.Bool), + _RpbListKeysResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbListKeysResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbListKeysResp "keys" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListKeysResp'keys + (\ x__ y__ -> x__ {_RpbListKeysResp'keys = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbListKeysResp "vec'keys" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListKeysResp'keys + (\ x__ y__ -> x__ {_RpbListKeysResp'keys = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbListKeysResp "done" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListKeysResp'done + (\ x__ y__ -> x__ {_RpbListKeysResp'done = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbListKeysResp "maybe'done" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbListKeysResp'done + (\ x__ y__ -> x__ {_RpbListKeysResp'done = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbListKeysResp where + messageName _ = Data.Text.pack "RpbListKeysResp" + packedMessageDescriptor _ + = "\n\ + \\SIRpbListKeysResp\DC2\DC2\n\ + \\EOTkeys\CAN\SOH \ETX(\fR\EOTkeys\DC2\DC2\n\ + \\EOTdone\CAN\STX \SOH(\bR\EOTdone" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + keys__field_descriptor + = Data.ProtoLens.FieldDescriptor + "keys" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"keys")) :: + Data.ProtoLens.FieldDescriptor RpbListKeysResp + done__field_descriptor + = Data.ProtoLens.FieldDescriptor + "done" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'done")) :: + Data.ProtoLens.FieldDescriptor RpbListKeysResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, keys__field_descriptor), + (Data.ProtoLens.Tag 2, done__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbListKeysResp'_unknownFields + (\ x__ y__ -> x__ {_RpbListKeysResp'_unknownFields = y__}) + defMessage + = RpbListKeysResp'_constructor + {_RpbListKeysResp'keys = Data.Vector.Generic.empty, + _RpbListKeysResp'done = Prelude.Nothing, + _RpbListKeysResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbListKeysResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser RpbListKeysResp + loop x mutable'keys + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'keys) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'keys") frozen'keys x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "keys" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'keys y) + loop x v + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "done" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"done") y x) + mutable'keys + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'keys + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'keys) + "RpbListKeysResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'keys") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'done") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbListKeysResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbListKeysResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbListKeysResp'keys x__) + (Control.DeepSeq.deepseq (_RpbListKeysResp'done x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.request' @:: Lens' RpbMapRedReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.contentType' @:: Lens' RpbMapRedReq Data.ByteString.ByteString@ -} +data RpbMapRedReq + = RpbMapRedReq'_constructor {_RpbMapRedReq'request :: !Data.ByteString.ByteString, + _RpbMapRedReq'contentType :: !Data.ByteString.ByteString, + _RpbMapRedReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbMapRedReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbMapRedReq "request" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbMapRedReq'request + (\ x__ y__ -> x__ {_RpbMapRedReq'request = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbMapRedReq "contentType" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbMapRedReq'contentType + (\ x__ y__ -> x__ {_RpbMapRedReq'contentType = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbMapRedReq where + messageName _ = Data.Text.pack "RpbMapRedReq" + packedMessageDescriptor _ + = "\n\ + \\fRpbMapRedReq\DC2\CAN\n\ + \\arequest\CAN\SOH \STX(\fR\arequest\DC2!\n\ + \\fcontent_type\CAN\STX \STX(\fR\vcontentType" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + request__field_descriptor + = Data.ProtoLens.FieldDescriptor + "request" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"request")) :: + Data.ProtoLens.FieldDescriptor RpbMapRedReq + contentType__field_descriptor + = Data.ProtoLens.FieldDescriptor + "content_type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"contentType")) :: + Data.ProtoLens.FieldDescriptor RpbMapRedReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, request__field_descriptor), + (Data.ProtoLens.Tag 2, contentType__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbMapRedReq'_unknownFields + (\ x__ y__ -> x__ {_RpbMapRedReq'_unknownFields = y__}) + defMessage + = RpbMapRedReq'_constructor + {_RpbMapRedReq'request = Data.ProtoLens.fieldDefault, + _RpbMapRedReq'contentType = Data.ProtoLens.fieldDefault, + _RpbMapRedReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbMapRedReq + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbMapRedReq + loop x required'contentType required'request + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'contentType then (:) "content_type" else Prelude.id) + ((if required'request then (:) "request" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "request" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"request") y x) + required'contentType + Prelude.False + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "content_type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"contentType") y x) + Prelude.False + required'request + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'contentType + required'request + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbMapRedReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"request") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"contentType") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbMapRedReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbMapRedReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbMapRedReq'request x__) + (Control.DeepSeq.deepseq (_RpbMapRedReq'contentType x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.phase' @:: Lens' RpbMapRedResp Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'phase' @:: Lens' RpbMapRedResp (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.response' @:: Lens' RpbMapRedResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'response' @:: Lens' RpbMapRedResp (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.done' @:: Lens' RpbMapRedResp Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'done' @:: Lens' RpbMapRedResp (Prelude.Maybe Prelude.Bool)@ -} +data RpbMapRedResp + = RpbMapRedResp'_constructor {_RpbMapRedResp'phase :: !(Prelude.Maybe Data.Word.Word32), + _RpbMapRedResp'response :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbMapRedResp'done :: !(Prelude.Maybe Prelude.Bool), + _RpbMapRedResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbMapRedResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbMapRedResp "phase" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbMapRedResp'phase + (\ x__ y__ -> x__ {_RpbMapRedResp'phase = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbMapRedResp "maybe'phase" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbMapRedResp'phase + (\ x__ y__ -> x__ {_RpbMapRedResp'phase = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbMapRedResp "response" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbMapRedResp'response + (\ x__ y__ -> x__ {_RpbMapRedResp'response = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbMapRedResp "maybe'response" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbMapRedResp'response + (\ x__ y__ -> x__ {_RpbMapRedResp'response = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbMapRedResp "done" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbMapRedResp'done (\ x__ y__ -> x__ {_RpbMapRedResp'done = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbMapRedResp "maybe'done" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbMapRedResp'done (\ x__ y__ -> x__ {_RpbMapRedResp'done = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbMapRedResp where + messageName _ = Data.Text.pack "RpbMapRedResp" + packedMessageDescriptor _ + = "\n\ + \\rRpbMapRedResp\DC2\DC4\n\ + \\ENQphase\CAN\SOH \SOH(\rR\ENQphase\DC2\SUB\n\ + \\bresponse\CAN\STX \SOH(\fR\bresponse\DC2\DC2\n\ + \\EOTdone\CAN\ETX \SOH(\bR\EOTdone" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + phase__field_descriptor + = Data.ProtoLens.FieldDescriptor + "phase" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'phase")) :: + Data.ProtoLens.FieldDescriptor RpbMapRedResp + response__field_descriptor + = Data.ProtoLens.FieldDescriptor + "response" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'response")) :: + Data.ProtoLens.FieldDescriptor RpbMapRedResp + done__field_descriptor + = Data.ProtoLens.FieldDescriptor + "done" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'done")) :: + Data.ProtoLens.FieldDescriptor RpbMapRedResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, phase__field_descriptor), + (Data.ProtoLens.Tag 2, response__field_descriptor), + (Data.ProtoLens.Tag 3, done__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbMapRedResp'_unknownFields + (\ x__ y__ -> x__ {_RpbMapRedResp'_unknownFields = y__}) + defMessage + = RpbMapRedResp'_constructor + {_RpbMapRedResp'phase = Prelude.Nothing, + _RpbMapRedResp'response = Prelude.Nothing, + _RpbMapRedResp'done = Prelude.Nothing, + _RpbMapRedResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbMapRedResp -> Data.ProtoLens.Encoding.Bytes.Parser RpbMapRedResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "phase" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"phase") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "response" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"response") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "done" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"done") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbMapRedResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'phase") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'response") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'done") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbMapRedResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbMapRedResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbMapRedResp'phase x__) + (Control.DeepSeq.deepseq + (_RpbMapRedResp'response x__) + (Control.DeepSeq.deepseq (_RpbMapRedResp'done x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.module'' @:: Lens' RpbModFun Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.function' @:: Lens' RpbModFun Data.ByteString.ByteString@ -} +data RpbModFun + = RpbModFun'_constructor {_RpbModFun'module' :: !Data.ByteString.ByteString, + _RpbModFun'function :: !Data.ByteString.ByteString, + _RpbModFun'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbModFun where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbModFun "module'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbModFun'module' (\ x__ y__ -> x__ {_RpbModFun'module' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbModFun "function" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbModFun'function (\ x__ y__ -> x__ {_RpbModFun'function = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbModFun where + messageName _ = Data.Text.pack "RpbModFun" + packedMessageDescriptor _ + = "\n\ + \\tRpbModFun\DC2\SYN\n\ + \\ACKmodule\CAN\SOH \STX(\fR\ACKmodule\DC2\SUB\n\ + \\bfunction\CAN\STX \STX(\fR\bfunction" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + module'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "module" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"module'")) :: + Data.ProtoLens.FieldDescriptor RpbModFun + function__field_descriptor + = Data.ProtoLens.FieldDescriptor + "function" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"function")) :: + Data.ProtoLens.FieldDescriptor RpbModFun + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, module'__field_descriptor), + (Data.ProtoLens.Tag 2, function__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbModFun'_unknownFields + (\ x__ y__ -> x__ {_RpbModFun'_unknownFields = y__}) + defMessage + = RpbModFun'_constructor + {_RpbModFun'module' = Data.ProtoLens.fieldDefault, + _RpbModFun'function = Data.ProtoLens.fieldDefault, + _RpbModFun'_unknownFields = []} + parseMessage + = let + loop :: + RpbModFun + -> Prelude.Bool + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser RpbModFun + loop x required'function required'module' + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'function then (:) "function" else Prelude.id) + ((if required'module' then (:) "module" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "module" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"module'") y x) + required'function + Prelude.False + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "function" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"function") y x) + Prelude.False + required'module' + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'function + required'module' + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbModFun" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"module'") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"function") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbModFun where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbModFun'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbModFun'module' x__) + (Control.DeepSeq.deepseq (_RpbModFun'function x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.key' @:: Lens' RpbPair Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.value' @:: Lens' RpbPair Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'value' @:: Lens' RpbPair (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbPair + = RpbPair'_constructor {_RpbPair'key :: !Data.ByteString.ByteString, + _RpbPair'value :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbPair'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbPair where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbPair "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPair'key (\ x__ y__ -> x__ {_RpbPair'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPair "value" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPair'value (\ x__ y__ -> x__ {_RpbPair'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPair "maybe'value" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPair'value (\ x__ y__ -> x__ {_RpbPair'value = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbPair where + messageName _ = Data.Text.pack "RpbPair" + packedMessageDescriptor _ + = "\n\ + \\aRpbPair\DC2\DLE\n\ + \\ETXkey\CAN\SOH \STX(\fR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\fR\ENQvalue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor RpbPair + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor RpbPair + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbPair'_unknownFields + (\ x__ y__ -> x__ {_RpbPair'_unknownFields = y__}) + defMessage + = RpbPair'_constructor + {_RpbPair'key = Data.ProtoLens.fieldDefault, + _RpbPair'value = Prelude.Nothing, _RpbPair'_unknownFields = []} + parseMessage + = let + loop :: + RpbPair + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser RpbPair + loop x required'key + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'key then (:) "key" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + Prelude.False + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "value" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + required'key + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'key + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) "RpbPair" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbPair where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbPair'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbPair'key x__) + (Control.DeepSeq.deepseq (_RpbPair'value x__) ())) +{- | Fields : + -} +data RpbPingReq + = RpbPingReq'_constructor {_RpbPingReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbPingReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message RpbPingReq where + messageName _ = Data.Text.pack "RpbPingReq" + packedMessageDescriptor _ + = "\n\ + \\n\ + \RpbPingReq" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbPingReq'_unknownFields + (\ x__ y__ -> x__ {_RpbPingReq'_unknownFields = y__}) + defMessage + = RpbPingReq'_constructor {_RpbPingReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbPingReq -> Data.ProtoLens.Encoding.Bytes.Parser RpbPingReq + 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 + ((Prelude.++) + "Missing required fields: " + (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 { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbPingReq" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData RpbPingReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_RpbPingReq'_unknownFields x__) () +{- | Fields : + -} +data RpbPingResp + = RpbPingResp'_constructor {_RpbPingResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbPingResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message RpbPingResp where + messageName _ = Data.Text.pack "RpbPingResp" + packedMessageDescriptor _ + = "\n\ + \\vRpbPingResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbPingResp'_unknownFields + (\ x__ y__ -> x__ {_RpbPingResp'_unknownFields = y__}) + defMessage + = RpbPingResp'_constructor {_RpbPingResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbPingResp -> Data.ProtoLens.Encoding.Bytes.Parser RpbPingResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbPingResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData RpbPingResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_RpbPingResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbPutReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.key' @:: Lens' RpbPutReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'key' @:: Lens' RpbPutReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.vclock' @:: Lens' RpbPutReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'vclock' @:: Lens' RpbPutReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.content' @:: Lens' RpbPutReq RpbContent@ + * 'Proto.Riak_Fields.w' @:: Lens' RpbPutReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'w' @:: Lens' RpbPutReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.dw' @:: Lens' RpbPutReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'dw' @:: Lens' RpbPutReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.returnBody' @:: Lens' RpbPutReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'returnBody' @:: Lens' RpbPutReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.pw' @:: Lens' RpbPutReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'pw' @:: Lens' RpbPutReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.ifNotModified' @:: Lens' RpbPutReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'ifNotModified' @:: Lens' RpbPutReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.ifNoneMatch' @:: Lens' RpbPutReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'ifNoneMatch' @:: Lens' RpbPutReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.returnHead' @:: Lens' RpbPutReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'returnHead' @:: Lens' RpbPutReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.timeout' @:: Lens' RpbPutReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' RpbPutReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.asis' @:: Lens' RpbPutReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'asis' @:: Lens' RpbPutReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.sloppyQuorum' @:: Lens' RpbPutReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'sloppyQuorum' @:: Lens' RpbPutReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.nVal' @:: Lens' RpbPutReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'nVal' @:: Lens' RpbPutReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbPutReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbPutReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbPutReq + = RpbPutReq'_constructor {_RpbPutReq'bucket :: !Data.ByteString.ByteString, + _RpbPutReq'key :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbPutReq'vclock :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbPutReq'content :: !RpbContent, + _RpbPutReq'w :: !(Prelude.Maybe Data.Word.Word32), + _RpbPutReq'dw :: !(Prelude.Maybe Data.Word.Word32), + _RpbPutReq'returnBody :: !(Prelude.Maybe Prelude.Bool), + _RpbPutReq'pw :: !(Prelude.Maybe Data.Word.Word32), + _RpbPutReq'ifNotModified :: !(Prelude.Maybe Prelude.Bool), + _RpbPutReq'ifNoneMatch :: !(Prelude.Maybe Prelude.Bool), + _RpbPutReq'returnHead :: !(Prelude.Maybe Prelude.Bool), + _RpbPutReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _RpbPutReq'asis :: !(Prelude.Maybe Prelude.Bool), + _RpbPutReq'sloppyQuorum :: !(Prelude.Maybe Prelude.Bool), + _RpbPutReq'nVal :: !(Prelude.Maybe Data.Word.Word32), + _RpbPutReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbPutReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbPutReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbPutReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'bucket (\ x__ y__ -> x__ {_RpbPutReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'key (\ x__ y__ -> x__ {_RpbPutReq'key = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'key" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'key (\ x__ y__ -> x__ {_RpbPutReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "vclock" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'vclock (\ x__ y__ -> x__ {_RpbPutReq'vclock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'vclock" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'vclock (\ x__ y__ -> x__ {_RpbPutReq'vclock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "content" RpbContent where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'content (\ x__ y__ -> x__ {_RpbPutReq'content = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "w" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'w (\ x__ y__ -> x__ {_RpbPutReq'w = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'w" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'w (\ x__ y__ -> x__ {_RpbPutReq'w = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "dw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'dw (\ x__ y__ -> x__ {_RpbPutReq'dw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'dw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'dw (\ x__ y__ -> x__ {_RpbPutReq'dw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "returnBody" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'returnBody + (\ x__ y__ -> x__ {_RpbPutReq'returnBody = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'returnBody" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'returnBody + (\ x__ y__ -> x__ {_RpbPutReq'returnBody = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "pw" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'pw (\ x__ y__ -> x__ {_RpbPutReq'pw = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'pw" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'pw (\ x__ y__ -> x__ {_RpbPutReq'pw = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "ifNotModified" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'ifNotModified + (\ x__ y__ -> x__ {_RpbPutReq'ifNotModified = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'ifNotModified" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'ifNotModified + (\ x__ y__ -> x__ {_RpbPutReq'ifNotModified = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "ifNoneMatch" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'ifNoneMatch + (\ x__ y__ -> x__ {_RpbPutReq'ifNoneMatch = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'ifNoneMatch" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'ifNoneMatch + (\ x__ y__ -> x__ {_RpbPutReq'ifNoneMatch = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "returnHead" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'returnHead + (\ x__ y__ -> x__ {_RpbPutReq'returnHead = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'returnHead" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'returnHead + (\ x__ y__ -> x__ {_RpbPutReq'returnHead = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'timeout (\ x__ y__ -> x__ {_RpbPutReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'timeout (\ x__ y__ -> x__ {_RpbPutReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "asis" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'asis (\ x__ y__ -> x__ {_RpbPutReq'asis = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'asis" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'asis (\ x__ y__ -> x__ {_RpbPutReq'asis = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "sloppyQuorum" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'sloppyQuorum + (\ x__ y__ -> x__ {_RpbPutReq'sloppyQuorum = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'sloppyQuorum" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'sloppyQuorum + (\ x__ y__ -> x__ {_RpbPutReq'sloppyQuorum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "nVal" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'nVal (\ x__ y__ -> x__ {_RpbPutReq'nVal = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'nVal" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'nVal (\ x__ y__ -> x__ {_RpbPutReq'nVal = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'type' (\ x__ y__ -> x__ {_RpbPutReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutReq'type' (\ x__ y__ -> x__ {_RpbPutReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbPutReq where + messageName _ = Data.Text.pack "RpbPutReq" + packedMessageDescriptor _ + = "\n\ + \\tRpbPutReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2\SYN\n\ + \\ACKvclock\CAN\ETX \SOH(\fR\ACKvclock\DC2%\n\ + \\acontent\CAN\EOT \STX(\v2\v.RpbContentR\acontent\DC2\f\n\ + \\SOHw\CAN\ENQ \SOH(\rR\SOHw\DC2\SO\n\ + \\STXdw\CAN\ACK \SOH(\rR\STXdw\DC2\US\n\ + \\vreturn_body\CAN\a \SOH(\bR\n\ + \returnBody\DC2\SO\n\ + \\STXpw\CAN\b \SOH(\rR\STXpw\DC2&\n\ + \\SIif_not_modified\CAN\t \SOH(\bR\rifNotModified\DC2\"\n\ + \\rif_none_match\CAN\n\ + \ \SOH(\bR\vifNoneMatch\DC2\US\n\ + \\vreturn_head\CAN\v \SOH(\bR\n\ + \returnHead\DC2\CAN\n\ + \\atimeout\CAN\f \SOH(\rR\atimeout\DC2\DC2\n\ + \\EOTasis\CAN\r \SOH(\bR\EOTasis\DC2#\n\ + \\rsloppy_quorum\CAN\SO \SOH(\bR\fsloppyQuorum\DC2\DC3\n\ + \\ENQn_val\CAN\SI \SOH(\rR\EOTnVal\DC2\DC2\n\ + \\EOTtype\CAN\DLE \SOH(\fR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'key")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + vclock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vclock" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'vclock")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + content__field_descriptor + = Data.ProtoLens.FieldDescriptor + "content" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbContent) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"content")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + w__field_descriptor + = Data.ProtoLens.FieldDescriptor + "w" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'w")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + dw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "dw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'dw")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + returnBody__field_descriptor + = Data.ProtoLens.FieldDescriptor + "return_body" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'returnBody")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + pw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pw" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pw")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + ifNotModified__field_descriptor + = Data.ProtoLens.FieldDescriptor + "if_not_modified" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ifNotModified")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + ifNoneMatch__field_descriptor + = Data.ProtoLens.FieldDescriptor + "if_none_match" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ifNoneMatch")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + returnHead__field_descriptor + = Data.ProtoLens.FieldDescriptor + "return_head" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'returnHead")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + asis__field_descriptor + = Data.ProtoLens.FieldDescriptor + "asis" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'asis")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + sloppyQuorum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "sloppy_quorum" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'sloppyQuorum")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + nVal__field_descriptor + = Data.ProtoLens.FieldDescriptor + "n_val" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'nVal")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbPutReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, vclock__field_descriptor), + (Data.ProtoLens.Tag 4, content__field_descriptor), + (Data.ProtoLens.Tag 5, w__field_descriptor), + (Data.ProtoLens.Tag 6, dw__field_descriptor), + (Data.ProtoLens.Tag 7, returnBody__field_descriptor), + (Data.ProtoLens.Tag 8, pw__field_descriptor), + (Data.ProtoLens.Tag 9, ifNotModified__field_descriptor), + (Data.ProtoLens.Tag 10, ifNoneMatch__field_descriptor), + (Data.ProtoLens.Tag 11, returnHead__field_descriptor), + (Data.ProtoLens.Tag 12, timeout__field_descriptor), + (Data.ProtoLens.Tag 13, asis__field_descriptor), + (Data.ProtoLens.Tag 14, sloppyQuorum__field_descriptor), + (Data.ProtoLens.Tag 15, nVal__field_descriptor), + (Data.ProtoLens.Tag 16, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbPutReq'_unknownFields + (\ x__ y__ -> x__ {_RpbPutReq'_unknownFields = y__}) + defMessage + = RpbPutReq'_constructor + {_RpbPutReq'bucket = Data.ProtoLens.fieldDefault, + _RpbPutReq'key = Prelude.Nothing, + _RpbPutReq'vclock = Prelude.Nothing, + _RpbPutReq'content = Data.ProtoLens.defMessage, + _RpbPutReq'w = Prelude.Nothing, _RpbPutReq'dw = Prelude.Nothing, + _RpbPutReq'returnBody = Prelude.Nothing, + _RpbPutReq'pw = Prelude.Nothing, + _RpbPutReq'ifNotModified = Prelude.Nothing, + _RpbPutReq'ifNoneMatch = Prelude.Nothing, + _RpbPutReq'returnHead = Prelude.Nothing, + _RpbPutReq'timeout = Prelude.Nothing, + _RpbPutReq'asis = Prelude.Nothing, + _RpbPutReq'sloppyQuorum = Prelude.Nothing, + _RpbPutReq'nVal = Prelude.Nothing, + _RpbPutReq'type' = Prelude.Nothing, _RpbPutReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbPutReq + -> Prelude.Bool + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser RpbPutReq + loop x required'bucket required'content + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'bucket then (:) "bucket" else Prelude.id) + ((if required'content then (:) "content" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + required'content + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + required'bucket + required'content + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "vclock" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"vclock") y x) + required'bucket + required'content + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "content" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"content") y x) + required'bucket + Prelude.False + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "w" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"w") y x) + required'bucket + required'content + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "dw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"dw") y x) + required'bucket + required'content + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "return_body" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"returnBody") y x) + required'bucket + required'content + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "pw" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pw") y x) + required'bucket + required'content + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "if_not_modified" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"ifNotModified") y x) + required'bucket + required'content + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "if_none_match" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ifNoneMatch") y x) + required'bucket + required'content + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "return_head" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"returnHead") y x) + required'bucket + required'content + 96 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'bucket + required'content + 104 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "asis" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"asis") y x) + required'bucket + required'content + 112 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "sloppy_quorum" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"sloppyQuorum") y x) + required'bucket + required'content + 120 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "n_val" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nVal") y x) + required'bucket + required'content + 130 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + required'content + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + required'content + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbPutReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'vclock") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"content") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'w") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'dw") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'returnBody") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pw") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ifNotModified") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ifNoneMatch") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'returnHead") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'timeout") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'asis") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 104) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'sloppyQuorum") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 112) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'nVal") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 120) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'type'") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 130) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields + _x))))))))))))))))) +instance Control.DeepSeq.NFData RpbPutReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbPutReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'key x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'vclock x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'content x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'w x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'dw x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'returnBody x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'pw x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'ifNotModified x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'ifNoneMatch x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'returnHead x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'timeout x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'asis x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'sloppyQuorum x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'nVal x__) + (Control.DeepSeq.deepseq + (_RpbPutReq'type' x__) + ())))))))))))))))) +{- | Fields : + + * 'Proto.Riak_Fields.content' @:: Lens' RpbPutResp [RpbContent]@ + * 'Proto.Riak_Fields.vec'content' @:: Lens' RpbPutResp (Data.Vector.Vector RpbContent)@ + * 'Proto.Riak_Fields.vclock' @:: Lens' RpbPutResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'vclock' @:: Lens' RpbPutResp (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.key' @:: Lens' RpbPutResp Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'key' @:: Lens' RpbPutResp (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbPutResp + = RpbPutResp'_constructor {_RpbPutResp'content :: !(Data.Vector.Vector RpbContent), + _RpbPutResp'vclock :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbPutResp'key :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbPutResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbPutResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbPutResp "content" [RpbContent] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutResp'content (\ x__ y__ -> x__ {_RpbPutResp'content = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbPutResp "vec'content" (Data.Vector.Vector RpbContent) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutResp'content (\ x__ y__ -> x__ {_RpbPutResp'content = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutResp "vclock" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutResp'vclock (\ x__ y__ -> x__ {_RpbPutResp'vclock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutResp "maybe'vclock" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutResp'vclock (\ x__ y__ -> x__ {_RpbPutResp'vclock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbPutResp "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutResp'key (\ x__ y__ -> x__ {_RpbPutResp'key = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbPutResp "maybe'key" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbPutResp'key (\ x__ y__ -> x__ {_RpbPutResp'key = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbPutResp where + messageName _ = Data.Text.pack "RpbPutResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \RpbPutResp\DC2%\n\ + \\acontent\CAN\SOH \ETX(\v2\v.RpbContentR\acontent\DC2\SYN\n\ + \\ACKvclock\CAN\STX \SOH(\fR\ACKvclock\DC2\DLE\n\ + \\ETXkey\CAN\ETX \SOH(\fR\ETXkey" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + content__field_descriptor + = Data.ProtoLens.FieldDescriptor + "content" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbContent) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"content")) :: + Data.ProtoLens.FieldDescriptor RpbPutResp + vclock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vclock" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'vclock")) :: + Data.ProtoLens.FieldDescriptor RpbPutResp + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'key")) :: + Data.ProtoLens.FieldDescriptor RpbPutResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, content__field_descriptor), + (Data.ProtoLens.Tag 2, vclock__field_descriptor), + (Data.ProtoLens.Tag 3, key__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbPutResp'_unknownFields + (\ x__ y__ -> x__ {_RpbPutResp'_unknownFields = y__}) + defMessage + = RpbPutResp'_constructor + {_RpbPutResp'content = Data.Vector.Generic.empty, + _RpbPutResp'vclock = Prelude.Nothing, + _RpbPutResp'key = Prelude.Nothing, _RpbPutResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbPutResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbContent + -> Data.ProtoLens.Encoding.Bytes.Parser RpbPutResp + loop x mutable'content + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'content <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'content) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'content") frozen'content x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "content" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'content y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "vclock" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"vclock") y x) + mutable'content + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + mutable'content + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'content + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'content <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'content) + "RpbPutResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'content") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'vclock") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbPutResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbPutResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbPutResp'content x__) + (Control.DeepSeq.deepseq + (_RpbPutResp'vclock x__) + (Control.DeepSeq.deepseq (_RpbPutResp'key x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbResetBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbResetBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbResetBucketReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbResetBucketReq + = RpbResetBucketReq'_constructor {_RpbResetBucketReq'bucket :: !Data.ByteString.ByteString, + _RpbResetBucketReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbResetBucketReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbResetBucketReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbResetBucketReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbResetBucketReq'bucket + (\ x__ y__ -> x__ {_RpbResetBucketReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbResetBucketReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbResetBucketReq'type' + (\ x__ y__ -> x__ {_RpbResetBucketReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbResetBucketReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbResetBucketReq'type' + (\ x__ y__ -> x__ {_RpbResetBucketReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbResetBucketReq where + messageName _ = Data.Text.pack "RpbResetBucketReq" + packedMessageDescriptor _ + = "\n\ + \\DC1RpbResetBucketReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DC2\n\ + \\EOTtype\CAN\STX \SOH(\fR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbResetBucketReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbResetBucketReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbResetBucketReq'_unknownFields + (\ x__ y__ -> x__ {_RpbResetBucketReq'_unknownFields = y__}) + defMessage + = RpbResetBucketReq'_constructor + {_RpbResetBucketReq'bucket = Data.ProtoLens.fieldDefault, + _RpbResetBucketReq'type' = Prelude.Nothing, + _RpbResetBucketReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbResetBucketReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbResetBucketReq + loop x required'bucket + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'bucket then (:) "bucket" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) + "RpbResetBucketReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbResetBucketReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbResetBucketReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbResetBucketReq'bucket x__) + (Control.DeepSeq.deepseq (_RpbResetBucketReq'type' x__) ())) +{- | Fields : + -} +data RpbResetBucketResp + = RpbResetBucketResp'_constructor {_RpbResetBucketResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbResetBucketResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message RpbResetBucketResp where + messageName _ = Data.Text.pack "RpbResetBucketResp" + packedMessageDescriptor _ + = "\n\ + \\DC2RpbResetBucketResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbResetBucketResp'_unknownFields + (\ x__ y__ -> x__ {_RpbResetBucketResp'_unknownFields = y__}) + defMessage + = RpbResetBucketResp'_constructor + {_RpbResetBucketResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbResetBucketResp + -> Data.ProtoLens.Encoding.Bytes.Parser RpbResetBucketResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbResetBucketResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData RpbResetBucketResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbResetBucketResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Riak_Fields.fields' @:: Lens' RpbSearchDoc [RpbPair]@ + * 'Proto.Riak_Fields.vec'fields' @:: Lens' RpbSearchDoc (Data.Vector.Vector RpbPair)@ -} +data RpbSearchDoc + = RpbSearchDoc'_constructor {_RpbSearchDoc'fields :: !(Data.Vector.Vector RpbPair), + _RpbSearchDoc'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbSearchDoc where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbSearchDoc "fields" [RpbPair] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchDoc'fields + (\ x__ y__ -> x__ {_RpbSearchDoc'fields = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbSearchDoc "vec'fields" (Data.Vector.Vector RpbPair) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchDoc'fields + (\ x__ y__ -> x__ {_RpbSearchDoc'fields = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbSearchDoc where + messageName _ = Data.Text.pack "RpbSearchDoc" + packedMessageDescriptor _ + = "\n\ + \\fRpbSearchDoc\DC2 \n\ + \\ACKfields\CAN\SOH \ETX(\v2\b.RpbPairR\ACKfields" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + fields__field_descriptor + = Data.ProtoLens.FieldDescriptor + "fields" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbPair) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"fields")) :: + Data.ProtoLens.FieldDescriptor RpbSearchDoc + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, fields__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbSearchDoc'_unknownFields + (\ x__ y__ -> x__ {_RpbSearchDoc'_unknownFields = y__}) + defMessage + = RpbSearchDoc'_constructor + {_RpbSearchDoc'fields = Data.Vector.Generic.empty, + _RpbSearchDoc'_unknownFields = []} + parseMessage + = let + loop :: + RpbSearchDoc + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbPair + -> Data.ProtoLens.Encoding.Bytes.Parser RpbSearchDoc + loop x mutable'fields + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'fields) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'fields") frozen'fields x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "fields" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'fields 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'fields + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'fields) + "RpbSearchDoc" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'fields") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbSearchDoc where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbSearchDoc'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbSearchDoc'fields x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.q' @:: Lens' RpbSearchQueryReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.index' @:: Lens' RpbSearchQueryReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.rows' @:: Lens' RpbSearchQueryReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'rows' @:: Lens' RpbSearchQueryReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.start' @:: Lens' RpbSearchQueryReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'start' @:: Lens' RpbSearchQueryReq (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Riak_Fields.sort' @:: Lens' RpbSearchQueryReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'sort' @:: Lens' RpbSearchQueryReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.filter' @:: Lens' RpbSearchQueryReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'filter' @:: Lens' RpbSearchQueryReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.df' @:: Lens' RpbSearchQueryReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'df' @:: Lens' RpbSearchQueryReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.op' @:: Lens' RpbSearchQueryReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'op' @:: Lens' RpbSearchQueryReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.fl' @:: Lens' RpbSearchQueryReq [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'fl' @:: Lens' RpbSearchQueryReq (Data.Vector.Vector Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.presort' @:: Lens' RpbSearchQueryReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'presort' @:: Lens' RpbSearchQueryReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbSearchQueryReq + = RpbSearchQueryReq'_constructor {_RpbSearchQueryReq'q :: !Data.ByteString.ByteString, + _RpbSearchQueryReq'index :: !Data.ByteString.ByteString, + _RpbSearchQueryReq'rows :: !(Prelude.Maybe Data.Word.Word32), + _RpbSearchQueryReq'start :: !(Prelude.Maybe Data.Word.Word32), + _RpbSearchQueryReq'sort :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbSearchQueryReq'filter :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbSearchQueryReq'df :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbSearchQueryReq'op :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbSearchQueryReq'fl :: !(Data.Vector.Vector Data.ByteString.ByteString), + _RpbSearchQueryReq'presort :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbSearchQueryReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbSearchQueryReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "q" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'q + (\ x__ y__ -> x__ {_RpbSearchQueryReq'q = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "index" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'index + (\ x__ y__ -> x__ {_RpbSearchQueryReq'index = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "rows" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'rows + (\ x__ y__ -> x__ {_RpbSearchQueryReq'rows = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "maybe'rows" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'rows + (\ x__ y__ -> x__ {_RpbSearchQueryReq'rows = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "start" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'start + (\ x__ y__ -> x__ {_RpbSearchQueryReq'start = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "maybe'start" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'start + (\ x__ y__ -> x__ {_RpbSearchQueryReq'start = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "sort" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'sort + (\ x__ y__ -> x__ {_RpbSearchQueryReq'sort = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "maybe'sort" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'sort + (\ x__ y__ -> x__ {_RpbSearchQueryReq'sort = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "filter" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'filter + (\ x__ y__ -> x__ {_RpbSearchQueryReq'filter = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "maybe'filter" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'filter + (\ x__ y__ -> x__ {_RpbSearchQueryReq'filter = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "df" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'df + (\ x__ y__ -> x__ {_RpbSearchQueryReq'df = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "maybe'df" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'df + (\ x__ y__ -> x__ {_RpbSearchQueryReq'df = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "op" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'op + (\ x__ y__ -> x__ {_RpbSearchQueryReq'op = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "maybe'op" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'op + (\ x__ y__ -> x__ {_RpbSearchQueryReq'op = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "fl" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'fl + (\ x__ y__ -> x__ {_RpbSearchQueryReq'fl = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "vec'fl" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'fl + (\ x__ y__ -> x__ {_RpbSearchQueryReq'fl = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "presort" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'presort + (\ x__ y__ -> x__ {_RpbSearchQueryReq'presort = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbSearchQueryReq "maybe'presort" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'presort + (\ x__ y__ -> x__ {_RpbSearchQueryReq'presort = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbSearchQueryReq where + messageName _ = Data.Text.pack "RpbSearchQueryReq" + packedMessageDescriptor _ + = "\n\ + \\DC1RpbSearchQueryReq\DC2\f\n\ + \\SOHq\CAN\SOH \STX(\fR\SOHq\DC2\DC4\n\ + \\ENQindex\CAN\STX \STX(\fR\ENQindex\DC2\DC2\n\ + \\EOTrows\CAN\ETX \SOH(\rR\EOTrows\DC2\DC4\n\ + \\ENQstart\CAN\EOT \SOH(\rR\ENQstart\DC2\DC2\n\ + \\EOTsort\CAN\ENQ \SOH(\fR\EOTsort\DC2\SYN\n\ + \\ACKfilter\CAN\ACK \SOH(\fR\ACKfilter\DC2\SO\n\ + \\STXdf\CAN\a \SOH(\fR\STXdf\DC2\SO\n\ + \\STXop\CAN\b \SOH(\fR\STXop\DC2\SO\n\ + \\STXfl\CAN\t \ETX(\fR\STXfl\DC2\CAN\n\ + \\apresort\CAN\n\ + \ \SOH(\fR\apresort" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + q__field_descriptor + = Data.ProtoLens.FieldDescriptor + "q" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"q")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryReq + index__field_descriptor + = Data.ProtoLens.FieldDescriptor + "index" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"index")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryReq + rows__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rows" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'rows")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryReq + start__field_descriptor + = Data.ProtoLens.FieldDescriptor + "start" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'start")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryReq + sort__field_descriptor + = Data.ProtoLens.FieldDescriptor + "sort" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'sort")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryReq + filter__field_descriptor + = Data.ProtoLens.FieldDescriptor + "filter" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'filter")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryReq + df__field_descriptor + = Data.ProtoLens.FieldDescriptor + "df" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'df")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryReq + op__field_descriptor + = Data.ProtoLens.FieldDescriptor + "op" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'op")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryReq + fl__field_descriptor + = Data.ProtoLens.FieldDescriptor + "fl" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"fl")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryReq + presort__field_descriptor + = Data.ProtoLens.FieldDescriptor + "presort" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'presort")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, q__field_descriptor), + (Data.ProtoLens.Tag 2, index__field_descriptor), + (Data.ProtoLens.Tag 3, rows__field_descriptor), + (Data.ProtoLens.Tag 4, start__field_descriptor), + (Data.ProtoLens.Tag 5, sort__field_descriptor), + (Data.ProtoLens.Tag 6, filter__field_descriptor), + (Data.ProtoLens.Tag 7, df__field_descriptor), + (Data.ProtoLens.Tag 8, op__field_descriptor), + (Data.ProtoLens.Tag 9, fl__field_descriptor), + (Data.ProtoLens.Tag 10, presort__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbSearchQueryReq'_unknownFields + (\ x__ y__ -> x__ {_RpbSearchQueryReq'_unknownFields = y__}) + defMessage + = RpbSearchQueryReq'_constructor + {_RpbSearchQueryReq'q = Data.ProtoLens.fieldDefault, + _RpbSearchQueryReq'index = Data.ProtoLens.fieldDefault, + _RpbSearchQueryReq'rows = Prelude.Nothing, + _RpbSearchQueryReq'start = Prelude.Nothing, + _RpbSearchQueryReq'sort = Prelude.Nothing, + _RpbSearchQueryReq'filter = Prelude.Nothing, + _RpbSearchQueryReq'df = Prelude.Nothing, + _RpbSearchQueryReq'op = Prelude.Nothing, + _RpbSearchQueryReq'fl = Data.Vector.Generic.empty, + _RpbSearchQueryReq'presort = Prelude.Nothing, + _RpbSearchQueryReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbSearchQueryReq + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser RpbSearchQueryReq + loop x required'index required'q mutable'fl + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'fl <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'fl) + (let + missing + = (if required'index then (:) "index" else Prelude.id) + ((if required'q then (:) "q" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'fl") frozen'fl x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "q" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"q") y x) + required'index + Prelude.False + mutable'fl + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "index" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"index") y x) + Prelude.False + required'q + mutable'fl + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "rows" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"rows") y x) + required'index + required'q + mutable'fl + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "start" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x) + required'index + required'q + mutable'fl + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "sort" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"sort") y x) + required'index + required'q + mutable'fl + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "filter" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"filter") y x) + required'index + required'q + mutable'fl + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "df" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"df") y x) + required'index + required'q + mutable'fl + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "op" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"op") y x) + required'index + required'q + mutable'fl + 74 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "fl" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'fl y) + loop x required'index required'q v + 82 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "presort" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"presort") y x) + required'index + required'q + mutable'fl + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'index + required'q + mutable'fl + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'fl <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage Prelude.True Prelude.True mutable'fl) + "RpbSearchQueryReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"q") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"index") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'rows") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'start") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'sort") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'filter") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'df") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'op") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'fl") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'presort") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x))))))))))) +instance Control.DeepSeq.NFData RpbSearchQueryReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbSearchQueryReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryReq'q x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryReq'index x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryReq'rows x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryReq'start x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryReq'sort x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryReq'filter x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryReq'df x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryReq'op x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryReq'fl x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryReq'presort x__) ())))))))))) +{- | Fields : + + * 'Proto.Riak_Fields.docs' @:: Lens' RpbSearchQueryResp [RpbSearchDoc]@ + * 'Proto.Riak_Fields.vec'docs' @:: Lens' RpbSearchQueryResp (Data.Vector.Vector RpbSearchDoc)@ + * 'Proto.Riak_Fields.maxScore' @:: Lens' RpbSearchQueryResp Prelude.Float@ + * 'Proto.Riak_Fields.maybe'maxScore' @:: Lens' RpbSearchQueryResp (Prelude.Maybe Prelude.Float)@ + * 'Proto.Riak_Fields.numFound' @:: Lens' RpbSearchQueryResp Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'numFound' @:: Lens' RpbSearchQueryResp (Prelude.Maybe Data.Word.Word32)@ -} +data RpbSearchQueryResp + = RpbSearchQueryResp'_constructor {_RpbSearchQueryResp'docs :: !(Data.Vector.Vector RpbSearchDoc), + _RpbSearchQueryResp'maxScore :: !(Prelude.Maybe Prelude.Float), + _RpbSearchQueryResp'numFound :: !(Prelude.Maybe Data.Word.Word32), + _RpbSearchQueryResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbSearchQueryResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbSearchQueryResp "docs" [RpbSearchDoc] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryResp'docs + (\ x__ y__ -> x__ {_RpbSearchQueryResp'docs = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbSearchQueryResp "vec'docs" (Data.Vector.Vector RpbSearchDoc) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryResp'docs + (\ x__ y__ -> x__ {_RpbSearchQueryResp'docs = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryResp "maxScore" Prelude.Float where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryResp'maxScore + (\ x__ y__ -> x__ {_RpbSearchQueryResp'maxScore = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbSearchQueryResp "maybe'maxScore" (Prelude.Maybe Prelude.Float) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryResp'maxScore + (\ x__ y__ -> x__ {_RpbSearchQueryResp'maxScore = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSearchQueryResp "numFound" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryResp'numFound + (\ x__ y__ -> x__ {_RpbSearchQueryResp'numFound = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbSearchQueryResp "maybe'numFound" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSearchQueryResp'numFound + (\ x__ y__ -> x__ {_RpbSearchQueryResp'numFound = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbSearchQueryResp where + messageName _ = Data.Text.pack "RpbSearchQueryResp" + packedMessageDescriptor _ + = "\n\ + \\DC2RpbSearchQueryResp\DC2!\n\ + \\EOTdocs\CAN\SOH \ETX(\v2\r.RpbSearchDocR\EOTdocs\DC2\ESC\n\ + \\tmax_score\CAN\STX \SOH(\STXR\bmaxScore\DC2\ESC\n\ + \\tnum_found\CAN\ETX \SOH(\rR\bnumFound" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + docs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "docs" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbSearchDoc) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"docs")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryResp + maxScore__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_score" + (Data.ProtoLens.ScalarField Data.ProtoLens.FloatField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Float) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'maxScore")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryResp + numFound__field_descriptor + = Data.ProtoLens.FieldDescriptor + "num_found" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'numFound")) :: + Data.ProtoLens.FieldDescriptor RpbSearchQueryResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, docs__field_descriptor), + (Data.ProtoLens.Tag 2, maxScore__field_descriptor), + (Data.ProtoLens.Tag 3, numFound__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbSearchQueryResp'_unknownFields + (\ x__ y__ -> x__ {_RpbSearchQueryResp'_unknownFields = y__}) + defMessage + = RpbSearchQueryResp'_constructor + {_RpbSearchQueryResp'docs = Data.Vector.Generic.empty, + _RpbSearchQueryResp'maxScore = Prelude.Nothing, + _RpbSearchQueryResp'numFound = Prelude.Nothing, + _RpbSearchQueryResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbSearchQueryResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbSearchDoc + -> Data.ProtoLens.Encoding.Bytes.Parser RpbSearchQueryResp + loop x mutable'docs + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'docs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'docs) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'docs") frozen'docs x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "docs" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'docs y) + loop x v + 21 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToFloat + Data.ProtoLens.Encoding.Bytes.getFixed32) + "max_score" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"maxScore") y x) + mutable'docs + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "num_found" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"numFound") y x) + mutable'docs + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'docs + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'docs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'docs) + "RpbSearchQueryResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'docs") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'maxScore") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 21) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed32 + Data.ProtoLens.Encoding.Bytes.floatToWord + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'numFound") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbSearchQueryResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbSearchQueryResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryResp'docs x__) + (Control.DeepSeq.deepseq + (_RpbSearchQueryResp'maxScore x__) + (Control.DeepSeq.deepseq (_RpbSearchQueryResp'numFound x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.bucket' @:: Lens' RpbSetBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.props' @:: Lens' RpbSetBucketReq RpbBucketProps@ + * 'Proto.Riak_Fields.type'' @:: Lens' RpbSetBucketReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'type'' @:: Lens' RpbSetBucketReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbSetBucketReq + = RpbSetBucketReq'_constructor {_RpbSetBucketReq'bucket :: !Data.ByteString.ByteString, + _RpbSetBucketReq'props :: !RpbBucketProps, + _RpbSetBucketReq'type' :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbSetBucketReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbSetBucketReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbSetBucketReq "bucket" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSetBucketReq'bucket + (\ x__ y__ -> x__ {_RpbSetBucketReq'bucket = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSetBucketReq "props" RpbBucketProps where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSetBucketReq'props + (\ x__ y__ -> x__ {_RpbSetBucketReq'props = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSetBucketReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSetBucketReq'type' + (\ x__ y__ -> x__ {_RpbSetBucketReq'type' = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbSetBucketReq "maybe'type'" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSetBucketReq'type' + (\ x__ y__ -> x__ {_RpbSetBucketReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbSetBucketReq where + messageName _ = Data.Text.pack "RpbSetBucketReq" + packedMessageDescriptor _ + = "\n\ + \\SIRpbSetBucketReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2%\n\ + \\ENQprops\CAN\STX \STX(\v2\SI.RpbBucketPropsR\ENQprops\DC2\DC2\n\ + \\EOTtype\CAN\ETX \SOH(\fR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + bucket__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bucket" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"bucket")) :: + Data.ProtoLens.FieldDescriptor RpbSetBucketReq + props__field_descriptor + = Data.ProtoLens.FieldDescriptor + "props" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbBucketProps) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"props")) :: + Data.ProtoLens.FieldDescriptor RpbSetBucketReq + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'type'")) :: + Data.ProtoLens.FieldDescriptor RpbSetBucketReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, bucket__field_descriptor), + (Data.ProtoLens.Tag 2, props__field_descriptor), + (Data.ProtoLens.Tag 3, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbSetBucketReq'_unknownFields + (\ x__ y__ -> x__ {_RpbSetBucketReq'_unknownFields = y__}) + defMessage + = RpbSetBucketReq'_constructor + {_RpbSetBucketReq'bucket = Data.ProtoLens.fieldDefault, + _RpbSetBucketReq'props = Data.ProtoLens.defMessage, + _RpbSetBucketReq'type' = Prelude.Nothing, + _RpbSetBucketReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbSetBucketReq + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbSetBucketReq + loop x required'bucket required'props + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'bucket then (:) "bucket" else Prelude.id) + ((if required'props then (:) "props" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bucket" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bucket") y x) + Prelude.False + required'props + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "props" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"props") y x) + required'bucket + Prelude.False + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'bucket + required'props + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'bucket + required'props + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbSetBucketReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"bucket") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"props") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbSetBucketReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbSetBucketReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbSetBucketReq'bucket x__) + (Control.DeepSeq.deepseq + (_RpbSetBucketReq'props x__) + (Control.DeepSeq.deepseq (_RpbSetBucketReq'type' x__) ()))) +{- | Fields : + -} +data RpbSetBucketResp + = RpbSetBucketResp'_constructor {_RpbSetBucketResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbSetBucketResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message RpbSetBucketResp where + messageName _ = Data.Text.pack "RpbSetBucketResp" + packedMessageDescriptor _ + = "\n\ + \\DLERpbSetBucketResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbSetBucketResp'_unknownFields + (\ x__ y__ -> x__ {_RpbSetBucketResp'_unknownFields = y__}) + defMessage + = RpbSetBucketResp'_constructor + {_RpbSetBucketResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbSetBucketResp + -> Data.ProtoLens.Encoding.Bytes.Parser RpbSetBucketResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbSetBucketResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData RpbSetBucketResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbSetBucketResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Riak_Fields.type'' @:: Lens' RpbSetBucketTypeReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.props' @:: Lens' RpbSetBucketTypeReq RpbBucketProps@ -} +data RpbSetBucketTypeReq + = RpbSetBucketTypeReq'_constructor {_RpbSetBucketTypeReq'type' :: !Data.ByteString.ByteString, + _RpbSetBucketTypeReq'props :: !RpbBucketProps, + _RpbSetBucketTypeReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbSetBucketTypeReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbSetBucketTypeReq "type'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSetBucketTypeReq'type' + (\ x__ y__ -> x__ {_RpbSetBucketTypeReq'type' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbSetBucketTypeReq "props" RpbBucketProps where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSetBucketTypeReq'props + (\ x__ y__ -> x__ {_RpbSetBucketTypeReq'props = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbSetBucketTypeReq where + messageName _ = Data.Text.pack "RpbSetBucketTypeReq" + packedMessageDescriptor _ + = "\n\ + \\DC3RpbSetBucketTypeReq\DC2\DC2\n\ + \\EOTtype\CAN\SOH \STX(\fR\EOTtype\DC2%\n\ + \\ENQprops\CAN\STX \STX(\v2\SI.RpbBucketPropsR\ENQprops" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"type'")) :: + Data.ProtoLens.FieldDescriptor RpbSetBucketTypeReq + props__field_descriptor + = Data.ProtoLens.FieldDescriptor + "props" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbBucketProps) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"props")) :: + Data.ProtoLens.FieldDescriptor RpbSetBucketTypeReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, type'__field_descriptor), + (Data.ProtoLens.Tag 2, props__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbSetBucketTypeReq'_unknownFields + (\ x__ y__ -> x__ {_RpbSetBucketTypeReq'_unknownFields = y__}) + defMessage + = RpbSetBucketTypeReq'_constructor + {_RpbSetBucketTypeReq'type' = Data.ProtoLens.fieldDefault, + _RpbSetBucketTypeReq'props = Data.ProtoLens.defMessage, + _RpbSetBucketTypeReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbSetBucketTypeReq + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbSetBucketTypeReq + loop x required'props required'type' + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'props then (:) "props" else Prelude.id) + ((if required'type' then (:) "type" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'props + Prelude.False + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "props" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"props") y x) + Prelude.False + required'type' + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'props + required'type' + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "RpbSetBucketTypeReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"props") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbSetBucketTypeReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbSetBucketTypeReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbSetBucketTypeReq'type' x__) + (Control.DeepSeq.deepseq (_RpbSetBucketTypeReq'props x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.clientId' @:: Lens' RpbSetClientIdReq Data.ByteString.ByteString@ -} +data RpbSetClientIdReq + = RpbSetClientIdReq'_constructor {_RpbSetClientIdReq'clientId :: !Data.ByteString.ByteString, + _RpbSetClientIdReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbSetClientIdReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbSetClientIdReq "clientId" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbSetClientIdReq'clientId + (\ x__ y__ -> x__ {_RpbSetClientIdReq'clientId = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbSetClientIdReq where + messageName _ = Data.Text.pack "RpbSetClientIdReq" + packedMessageDescriptor _ + = "\n\ + \\DC1RpbSetClientIdReq\DC2\ESC\n\ + \\tclient_id\CAN\SOH \STX(\fR\bclientId" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + clientId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "client_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"clientId")) :: + Data.ProtoLens.FieldDescriptor RpbSetClientIdReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, clientId__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbSetClientIdReq'_unknownFields + (\ x__ y__ -> x__ {_RpbSetClientIdReq'_unknownFields = y__}) + defMessage + = RpbSetClientIdReq'_constructor + {_RpbSetClientIdReq'clientId = Data.ProtoLens.fieldDefault, + _RpbSetClientIdReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbSetClientIdReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbSetClientIdReq + loop x required'clientId + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'clientId then (:) "client_id" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "client_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"clientId") y x) + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'clientId + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) + "RpbSetClientIdReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"clientId") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbSetClientIdReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbSetClientIdReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbSetClientIdReq'clientId x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.name' @:: Lens' RpbYokozunaIndex Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.schema' @:: Lens' RpbYokozunaIndex Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'schema' @:: Lens' RpbYokozunaIndex (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.nVal' @:: Lens' RpbYokozunaIndex Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'nVal' @:: Lens' RpbYokozunaIndex (Prelude.Maybe Data.Word.Word32)@ -} +data RpbYokozunaIndex + = RpbYokozunaIndex'_constructor {_RpbYokozunaIndex'name :: !Data.ByteString.ByteString, + _RpbYokozunaIndex'schema :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbYokozunaIndex'nVal :: !(Prelude.Maybe Data.Word.Word32), + _RpbYokozunaIndex'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbYokozunaIndex where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbYokozunaIndex "name" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndex'name + (\ x__ y__ -> x__ {_RpbYokozunaIndex'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbYokozunaIndex "schema" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndex'schema + (\ x__ y__ -> x__ {_RpbYokozunaIndex'schema = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbYokozunaIndex "maybe'schema" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndex'schema + (\ x__ y__ -> x__ {_RpbYokozunaIndex'schema = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbYokozunaIndex "nVal" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndex'nVal + (\ x__ y__ -> x__ {_RpbYokozunaIndex'nVal = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbYokozunaIndex "maybe'nVal" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndex'nVal + (\ x__ y__ -> x__ {_RpbYokozunaIndex'nVal = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbYokozunaIndex where + messageName _ = Data.Text.pack "RpbYokozunaIndex" + packedMessageDescriptor _ + = "\n\ + \\DLERpbYokozunaIndex\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname\DC2\SYN\n\ + \\ACKschema\CAN\STX \SOH(\fR\ACKschema\DC2\DC3\n\ + \\ENQn_val\CAN\ETX \SOH(\rR\EOTnVal" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaIndex + schema__field_descriptor + = Data.ProtoLens.FieldDescriptor + "schema" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'schema")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaIndex + nVal__field_descriptor + = Data.ProtoLens.FieldDescriptor + "n_val" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'nVal")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaIndex + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, schema__field_descriptor), + (Data.ProtoLens.Tag 3, nVal__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbYokozunaIndex'_unknownFields + (\ x__ y__ -> x__ {_RpbYokozunaIndex'_unknownFields = y__}) + defMessage + = RpbYokozunaIndex'_constructor + {_RpbYokozunaIndex'name = Data.ProtoLens.fieldDefault, + _RpbYokozunaIndex'schema = Prelude.Nothing, + _RpbYokozunaIndex'nVal = Prelude.Nothing, + _RpbYokozunaIndex'_unknownFields = []} + parseMessage + = let + loop :: + RpbYokozunaIndex + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbYokozunaIndex + loop x required'name + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'name then (:) "name" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + Prelude.False + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "schema" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"schema") y x) + required'name + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "n_val" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nVal") y x) + required'name + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'name + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) "RpbYokozunaIndex" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'schema") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'nVal") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RpbYokozunaIndex where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbYokozunaIndex'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbYokozunaIndex'name x__) + (Control.DeepSeq.deepseq + (_RpbYokozunaIndex'schema x__) + (Control.DeepSeq.deepseq (_RpbYokozunaIndex'nVal x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.name' @:: Lens' RpbYokozunaIndexDeleteReq Data.ByteString.ByteString@ -} +data RpbYokozunaIndexDeleteReq + = RpbYokozunaIndexDeleteReq'_constructor {_RpbYokozunaIndexDeleteReq'name :: !Data.ByteString.ByteString, + _RpbYokozunaIndexDeleteReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbYokozunaIndexDeleteReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbYokozunaIndexDeleteReq "name" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndexDeleteReq'name + (\ x__ y__ -> x__ {_RpbYokozunaIndexDeleteReq'name = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbYokozunaIndexDeleteReq where + messageName _ = Data.Text.pack "RpbYokozunaIndexDeleteReq" + packedMessageDescriptor _ + = "\n\ + \\EMRpbYokozunaIndexDeleteReq\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaIndexDeleteReq + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbYokozunaIndexDeleteReq'_unknownFields + (\ x__ y__ + -> x__ {_RpbYokozunaIndexDeleteReq'_unknownFields = y__}) + defMessage + = RpbYokozunaIndexDeleteReq'_constructor + {_RpbYokozunaIndexDeleteReq'name = Data.ProtoLens.fieldDefault, + _RpbYokozunaIndexDeleteReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbYokozunaIndexDeleteReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbYokozunaIndexDeleteReq + loop x required'name + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'name then (:) "name" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'name + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) + "RpbYokozunaIndexDeleteReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbYokozunaIndexDeleteReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbYokozunaIndexDeleteReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbYokozunaIndexDeleteReq'name x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.name' @:: Lens' RpbYokozunaIndexGetReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'name' @:: Lens' RpbYokozunaIndexGetReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbYokozunaIndexGetReq + = RpbYokozunaIndexGetReq'_constructor {_RpbYokozunaIndexGetReq'name :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbYokozunaIndexGetReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbYokozunaIndexGetReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbYokozunaIndexGetReq "name" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndexGetReq'name + (\ x__ y__ -> x__ {_RpbYokozunaIndexGetReq'name = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbYokozunaIndexGetReq "maybe'name" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndexGetReq'name + (\ x__ y__ -> x__ {_RpbYokozunaIndexGetReq'name = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbYokozunaIndexGetReq where + messageName _ = Data.Text.pack "RpbYokozunaIndexGetReq" + packedMessageDescriptor _ + = "\n\ + \\SYNRpbYokozunaIndexGetReq\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\fR\EOTname" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'name")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaIndexGetReq + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbYokozunaIndexGetReq'_unknownFields + (\ x__ y__ -> x__ {_RpbYokozunaIndexGetReq'_unknownFields = y__}) + defMessage + = RpbYokozunaIndexGetReq'_constructor + {_RpbYokozunaIndexGetReq'name = Prelude.Nothing, + _RpbYokozunaIndexGetReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbYokozunaIndexGetReq + -> Data.ProtoLens.Encoding.Bytes.Parser RpbYokozunaIndexGetReq + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpbYokozunaIndexGetReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbYokozunaIndexGetReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbYokozunaIndexGetReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbYokozunaIndexGetReq'name x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.index' @:: Lens' RpbYokozunaIndexGetResp [RpbYokozunaIndex]@ + * 'Proto.Riak_Fields.vec'index' @:: Lens' RpbYokozunaIndexGetResp (Data.Vector.Vector RpbYokozunaIndex)@ -} +data RpbYokozunaIndexGetResp + = RpbYokozunaIndexGetResp'_constructor {_RpbYokozunaIndexGetResp'index :: !(Data.Vector.Vector RpbYokozunaIndex), + _RpbYokozunaIndexGetResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbYokozunaIndexGetResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbYokozunaIndexGetResp "index" [RpbYokozunaIndex] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndexGetResp'index + (\ x__ y__ -> x__ {_RpbYokozunaIndexGetResp'index = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField RpbYokozunaIndexGetResp "vec'index" (Data.Vector.Vector RpbYokozunaIndex) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndexGetResp'index + (\ x__ y__ -> x__ {_RpbYokozunaIndexGetResp'index = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbYokozunaIndexGetResp where + messageName _ = Data.Text.pack "RpbYokozunaIndexGetResp" + packedMessageDescriptor _ + = "\n\ + \\ETBRpbYokozunaIndexGetResp\DC2'\n\ + \\ENQindex\CAN\SOH \ETX(\v2\DC1.RpbYokozunaIndexR\ENQindex" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + index__field_descriptor + = Data.ProtoLens.FieldDescriptor + "index" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbYokozunaIndex) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"index")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaIndexGetResp + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, index__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbYokozunaIndexGetResp'_unknownFields + (\ x__ y__ -> x__ {_RpbYokozunaIndexGetResp'_unknownFields = y__}) + defMessage + = RpbYokozunaIndexGetResp'_constructor + {_RpbYokozunaIndexGetResp'index = Data.Vector.Generic.empty, + _RpbYokozunaIndexGetResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbYokozunaIndexGetResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbYokozunaIndex + -> Data.ProtoLens.Encoding.Bytes.Parser RpbYokozunaIndexGetResp + loop x mutable'index + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'index <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'index) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'index") frozen'index x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "index" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'index 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'index + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'index <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'index) + "RpbYokozunaIndexGetResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'index") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbYokozunaIndexGetResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbYokozunaIndexGetResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbYokozunaIndexGetResp'index x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.index' @:: Lens' RpbYokozunaIndexPutReq RpbYokozunaIndex@ + * 'Proto.Riak_Fields.timeout' @:: Lens' RpbYokozunaIndexPutReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' RpbYokozunaIndexPutReq (Prelude.Maybe Data.Word.Word32)@ -} +data RpbYokozunaIndexPutReq + = RpbYokozunaIndexPutReq'_constructor {_RpbYokozunaIndexPutReq'index :: !RpbYokozunaIndex, + _RpbYokozunaIndexPutReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _RpbYokozunaIndexPutReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbYokozunaIndexPutReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbYokozunaIndexPutReq "index" RpbYokozunaIndex where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndexPutReq'index + (\ x__ y__ -> x__ {_RpbYokozunaIndexPutReq'index = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbYokozunaIndexPutReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndexPutReq'timeout + (\ x__ y__ -> x__ {_RpbYokozunaIndexPutReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbYokozunaIndexPutReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaIndexPutReq'timeout + (\ x__ y__ -> x__ {_RpbYokozunaIndexPutReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbYokozunaIndexPutReq where + messageName _ = Data.Text.pack "RpbYokozunaIndexPutReq" + packedMessageDescriptor _ + = "\n\ + \\SYNRpbYokozunaIndexPutReq\DC2'\n\ + \\ENQindex\CAN\SOH \STX(\v2\DC1.RpbYokozunaIndexR\ENQindex\DC2\CAN\n\ + \\atimeout\CAN\STX \SOH(\rR\atimeout" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + index__field_descriptor + = Data.ProtoLens.FieldDescriptor + "index" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbYokozunaIndex) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"index")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaIndexPutReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaIndexPutReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, index__field_descriptor), + (Data.ProtoLens.Tag 2, timeout__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbYokozunaIndexPutReq'_unknownFields + (\ x__ y__ -> x__ {_RpbYokozunaIndexPutReq'_unknownFields = y__}) + defMessage + = RpbYokozunaIndexPutReq'_constructor + {_RpbYokozunaIndexPutReq'index = Data.ProtoLens.defMessage, + _RpbYokozunaIndexPutReq'timeout = Prelude.Nothing, + _RpbYokozunaIndexPutReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbYokozunaIndexPutReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbYokozunaIndexPutReq + loop x required'index + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'index then (:) "index" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "index" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"index") y x) + Prelude.False + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'index + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'index + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) + "RpbYokozunaIndexPutReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"index") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbYokozunaIndexPutReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbYokozunaIndexPutReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbYokozunaIndexPutReq'index x__) + (Control.DeepSeq.deepseq (_RpbYokozunaIndexPutReq'timeout x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.name' @:: Lens' RpbYokozunaSchema Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.content' @:: Lens' RpbYokozunaSchema Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'content' @:: Lens' RpbYokozunaSchema (Prelude.Maybe Data.ByteString.ByteString)@ -} +data RpbYokozunaSchema + = RpbYokozunaSchema'_constructor {_RpbYokozunaSchema'name :: !Data.ByteString.ByteString, + _RpbYokozunaSchema'content :: !(Prelude.Maybe Data.ByteString.ByteString), + _RpbYokozunaSchema'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbYokozunaSchema where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbYokozunaSchema "name" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaSchema'name + (\ x__ y__ -> x__ {_RpbYokozunaSchema'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RpbYokozunaSchema "content" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaSchema'content + (\ x__ y__ -> x__ {_RpbYokozunaSchema'content = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField RpbYokozunaSchema "maybe'content" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaSchema'content + (\ x__ y__ -> x__ {_RpbYokozunaSchema'content = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbYokozunaSchema where + messageName _ = Data.Text.pack "RpbYokozunaSchema" + packedMessageDescriptor _ + = "\n\ + \\DC1RpbYokozunaSchema\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname\DC2\CAN\n\ + \\acontent\CAN\STX \SOH(\fR\acontent" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaSchema + content__field_descriptor + = Data.ProtoLens.FieldDescriptor + "content" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'content")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaSchema + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, content__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbYokozunaSchema'_unknownFields + (\ x__ y__ -> x__ {_RpbYokozunaSchema'_unknownFields = y__}) + defMessage + = RpbYokozunaSchema'_constructor + {_RpbYokozunaSchema'name = Data.ProtoLens.fieldDefault, + _RpbYokozunaSchema'content = Prelude.Nothing, + _RpbYokozunaSchema'_unknownFields = []} + parseMessage + = let + loop :: + RpbYokozunaSchema + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbYokozunaSchema + loop x required'name + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'name then (:) "name" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + Prelude.False + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "content" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"content") y x) + required'name + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'name + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) + "RpbYokozunaSchema" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'content") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RpbYokozunaSchema where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbYokozunaSchema'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RpbYokozunaSchema'name x__) + (Control.DeepSeq.deepseq (_RpbYokozunaSchema'content x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.name' @:: Lens' RpbYokozunaSchemaGetReq Data.ByteString.ByteString@ -} +data RpbYokozunaSchemaGetReq + = RpbYokozunaSchemaGetReq'_constructor {_RpbYokozunaSchemaGetReq'name :: !Data.ByteString.ByteString, + _RpbYokozunaSchemaGetReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbYokozunaSchemaGetReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbYokozunaSchemaGetReq "name" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaSchemaGetReq'name + (\ x__ y__ -> x__ {_RpbYokozunaSchemaGetReq'name = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbYokozunaSchemaGetReq where + messageName _ = Data.Text.pack "RpbYokozunaSchemaGetReq" + packedMessageDescriptor _ + = "\n\ + \\ETBRpbYokozunaSchemaGetReq\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaSchemaGetReq + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbYokozunaSchemaGetReq'_unknownFields + (\ x__ y__ -> x__ {_RpbYokozunaSchemaGetReq'_unknownFields = y__}) + defMessage + = RpbYokozunaSchemaGetReq'_constructor + {_RpbYokozunaSchemaGetReq'name = Data.ProtoLens.fieldDefault, + _RpbYokozunaSchemaGetReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbYokozunaSchemaGetReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbYokozunaSchemaGetReq + loop x required'name + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'name then (:) "name" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'name + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) + "RpbYokozunaSchemaGetReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbYokozunaSchemaGetReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbYokozunaSchemaGetReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbYokozunaSchemaGetReq'name x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.schema' @:: Lens' RpbYokozunaSchemaGetResp RpbYokozunaSchema@ -} +data RpbYokozunaSchemaGetResp + = RpbYokozunaSchemaGetResp'_constructor {_RpbYokozunaSchemaGetResp'schema :: !RpbYokozunaSchema, + _RpbYokozunaSchemaGetResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbYokozunaSchemaGetResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbYokozunaSchemaGetResp "schema" RpbYokozunaSchema where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaSchemaGetResp'schema + (\ x__ y__ -> x__ {_RpbYokozunaSchemaGetResp'schema = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbYokozunaSchemaGetResp where + messageName _ = Data.Text.pack "RpbYokozunaSchemaGetResp" + packedMessageDescriptor _ + = "\n\ + \\CANRpbYokozunaSchemaGetResp\DC2*\n\ + \\ACKschema\CAN\SOH \STX(\v2\DC2.RpbYokozunaSchemaR\ACKschema" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + schema__field_descriptor + = Data.ProtoLens.FieldDescriptor + "schema" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbYokozunaSchema) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"schema")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaSchemaGetResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, schema__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbYokozunaSchemaGetResp'_unknownFields + (\ x__ y__ -> x__ {_RpbYokozunaSchemaGetResp'_unknownFields = y__}) + defMessage + = RpbYokozunaSchemaGetResp'_constructor + {_RpbYokozunaSchemaGetResp'schema = Data.ProtoLens.defMessage, + _RpbYokozunaSchemaGetResp'_unknownFields = []} + parseMessage + = let + loop :: + RpbYokozunaSchemaGetResp + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbYokozunaSchemaGetResp + loop x required'schema + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'schema then (:) "schema" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "schema" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"schema") y x) + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'schema + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) + "RpbYokozunaSchemaGetResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"schema") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbYokozunaSchemaGetResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbYokozunaSchemaGetResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbYokozunaSchemaGetResp'schema x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.schema' @:: Lens' RpbYokozunaSchemaPutReq RpbYokozunaSchema@ -} +data RpbYokozunaSchemaPutReq + = RpbYokozunaSchemaPutReq'_constructor {_RpbYokozunaSchemaPutReq'schema :: !RpbYokozunaSchema, + _RpbYokozunaSchemaPutReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RpbYokozunaSchemaPutReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RpbYokozunaSchemaPutReq "schema" RpbYokozunaSchema where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RpbYokozunaSchemaPutReq'schema + (\ x__ y__ -> x__ {_RpbYokozunaSchemaPutReq'schema = y__})) + Prelude.id +instance Data.ProtoLens.Message RpbYokozunaSchemaPutReq where + messageName _ = Data.Text.pack "RpbYokozunaSchemaPutReq" + packedMessageDescriptor _ + = "\n\ + \\ETBRpbYokozunaSchemaPutReq\DC2*\n\ + \\ACKschema\CAN\SOH \STX(\v2\DC2.RpbYokozunaSchemaR\ACKschema" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + schema__field_descriptor + = Data.ProtoLens.FieldDescriptor + "schema" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbYokozunaSchema) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"schema")) :: + Data.ProtoLens.FieldDescriptor RpbYokozunaSchemaPutReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, schema__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RpbYokozunaSchemaPutReq'_unknownFields + (\ x__ y__ -> x__ {_RpbYokozunaSchemaPutReq'_unknownFields = y__}) + defMessage + = RpbYokozunaSchemaPutReq'_constructor + {_RpbYokozunaSchemaPutReq'schema = Data.ProtoLens.defMessage, + _RpbYokozunaSchemaPutReq'_unknownFields = []} + parseMessage + = let + loop :: + RpbYokozunaSchemaPutReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser RpbYokozunaSchemaPutReq + loop x required'schema + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'schema then (:) "schema" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "schema" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"schema") y x) + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'schema + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) + "RpbYokozunaSchemaPutReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.view (Data.ProtoLens.Field.field @"schema") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData RpbYokozunaSchemaPutReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RpbYokozunaSchemaPutReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_RpbYokozunaSchemaPutReq'schema x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.adds' @:: Lens' SetOp [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'adds' @:: Lens' SetOp (Data.Vector.Vector Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.removes' @:: Lens' SetOp [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'removes' @:: Lens' SetOp (Data.Vector.Vector Data.ByteString.ByteString)@ -} +data SetOp + = SetOp'_constructor {_SetOp'adds :: !(Data.Vector.Vector Data.ByteString.ByteString), + _SetOp'removes :: !(Data.Vector.Vector Data.ByteString.ByteString), + _SetOp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show SetOp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField SetOp "adds" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SetOp'adds (\ x__ y__ -> x__ {_SetOp'adds = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField SetOp "vec'adds" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SetOp'adds (\ x__ y__ -> x__ {_SetOp'adds = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SetOp "removes" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SetOp'removes (\ x__ y__ -> x__ {_SetOp'removes = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField SetOp "vec'removes" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SetOp'removes (\ x__ y__ -> x__ {_SetOp'removes = y__})) + Prelude.id +instance Data.ProtoLens.Message SetOp where + messageName _ = Data.Text.pack "SetOp" + packedMessageDescriptor _ + = "\n\ + \\ENQSetOp\DC2\DC2\n\ + \\EOTadds\CAN\SOH \ETX(\fR\EOTadds\DC2\CAN\n\ + \\aremoves\CAN\STX \ETX(\fR\aremoves" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + adds__field_descriptor + = Data.ProtoLens.FieldDescriptor + "adds" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"adds")) :: + Data.ProtoLens.FieldDescriptor SetOp + removes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "removes" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"removes")) :: + Data.ProtoLens.FieldDescriptor SetOp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, adds__field_descriptor), + (Data.ProtoLens.Tag 2, removes__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _SetOp'_unknownFields + (\ x__ y__ -> x__ {_SetOp'_unknownFields = y__}) + defMessage + = SetOp'_constructor + {_SetOp'adds = Data.Vector.Generic.empty, + _SetOp'removes = Data.Vector.Generic.empty, + _SetOp'_unknownFields = []} + parseMessage + = let + loop :: + SetOp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser SetOp + loop x mutable'adds mutable'removes + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'adds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'adds) + frozen'removes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'removes) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'adds") + frozen'adds + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'removes") frozen'removes x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "adds" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'adds y) + loop x v mutable'removes + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "removes" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'removes y) + loop x mutable'adds v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'adds + mutable'removes + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'adds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'removes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'adds mutable'removes) + "SetOp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'adds") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'removes") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData SetOp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_SetOp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_SetOp'adds x__) + (Control.DeepSeq.deepseq (_SetOp'removes x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.varcharValue' @:: Lens' TsCell Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'varcharValue' @:: Lens' TsCell (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.sint64Value' @:: Lens' TsCell Data.Int.Int64@ + * 'Proto.Riak_Fields.maybe'sint64Value' @:: Lens' TsCell (Prelude.Maybe Data.Int.Int64)@ + * 'Proto.Riak_Fields.timestampValue' @:: Lens' TsCell Data.Int.Int64@ + * 'Proto.Riak_Fields.maybe'timestampValue' @:: Lens' TsCell (Prelude.Maybe Data.Int.Int64)@ + * 'Proto.Riak_Fields.booleanValue' @:: Lens' TsCell Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'booleanValue' @:: Lens' TsCell (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.doubleValue' @:: Lens' TsCell Prelude.Double@ + * 'Proto.Riak_Fields.maybe'doubleValue' @:: Lens' TsCell (Prelude.Maybe Prelude.Double)@ -} +data TsCell + = TsCell'_constructor {_TsCell'varcharValue :: !(Prelude.Maybe Data.ByteString.ByteString), + _TsCell'sint64Value :: !(Prelude.Maybe Data.Int.Int64), + _TsCell'timestampValue :: !(Prelude.Maybe Data.Int.Int64), + _TsCell'booleanValue :: !(Prelude.Maybe Prelude.Bool), + _TsCell'doubleValue :: !(Prelude.Maybe Prelude.Double), + _TsCell'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsCell where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsCell "varcharValue" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCell'varcharValue + (\ x__ y__ -> x__ {_TsCell'varcharValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsCell "maybe'varcharValue" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCell'varcharValue + (\ x__ y__ -> x__ {_TsCell'varcharValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsCell "sint64Value" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCell'sint64Value (\ x__ y__ -> x__ {_TsCell'sint64Value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsCell "maybe'sint64Value" (Prelude.Maybe Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCell'sint64Value (\ x__ y__ -> x__ {_TsCell'sint64Value = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsCell "timestampValue" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCell'timestampValue + (\ x__ y__ -> x__ {_TsCell'timestampValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsCell "maybe'timestampValue" (Prelude.Maybe Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCell'timestampValue + (\ x__ y__ -> x__ {_TsCell'timestampValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsCell "booleanValue" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCell'booleanValue + (\ x__ y__ -> x__ {_TsCell'booleanValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsCell "maybe'booleanValue" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCell'booleanValue + (\ x__ y__ -> x__ {_TsCell'booleanValue = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsCell "doubleValue" Prelude.Double where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCell'doubleValue (\ x__ y__ -> x__ {_TsCell'doubleValue = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsCell "maybe'doubleValue" (Prelude.Maybe Prelude.Double) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCell'doubleValue (\ x__ y__ -> x__ {_TsCell'doubleValue = y__})) + Prelude.id +instance Data.ProtoLens.Message TsCell where + messageName _ = Data.Text.pack "TsCell" + packedMessageDescriptor _ + = "\n\ + \\ACKTsCell\DC2#\n\ + \\rvarchar_value\CAN\SOH \SOH(\fR\fvarcharValue\DC2!\n\ + \\fsint64_value\CAN\STX \SOH(\DC2R\vsint64Value\DC2'\n\ + \\SItimestamp_value\CAN\ETX \SOH(\DC2R\SOtimestampValue\DC2#\n\ + \\rboolean_value\CAN\EOT \SOH(\bR\fbooleanValue\DC2!\n\ + \\fdouble_value\CAN\ENQ \SOH(\SOHR\vdoubleValue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + varcharValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "varchar_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'varcharValue")) :: + Data.ProtoLens.FieldDescriptor TsCell + sint64Value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "sint64_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'sint64Value")) :: + Data.ProtoLens.FieldDescriptor TsCell + timestampValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timestamp_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timestampValue")) :: + Data.ProtoLens.FieldDescriptor TsCell + booleanValue__field_descriptor + = Data.ProtoLens.FieldDescriptor + "boolean_value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'booleanValue")) :: + Data.ProtoLens.FieldDescriptor TsCell + 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 TsCell + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, varcharValue__field_descriptor), + (Data.ProtoLens.Tag 2, sint64Value__field_descriptor), + (Data.ProtoLens.Tag 3, timestampValue__field_descriptor), + (Data.ProtoLens.Tag 4, booleanValue__field_descriptor), + (Data.ProtoLens.Tag 5, doubleValue__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsCell'_unknownFields + (\ x__ y__ -> x__ {_TsCell'_unknownFields = y__}) + defMessage + = TsCell'_constructor + {_TsCell'varcharValue = Prelude.Nothing, + _TsCell'sint64Value = Prelude.Nothing, + _TsCell'timestampValue = Prelude.Nothing, + _TsCell'booleanValue = Prelude.Nothing, + _TsCell'doubleValue = Prelude.Nothing, _TsCell'_unknownFields = []} + parseMessage + = let + loop :: TsCell -> Data.ProtoLens.Encoding.Bytes.Parser TsCell + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "varchar_value" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"varcharValue") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "sint64_value" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"sint64Value") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "timestamp_value" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"timestampValue") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "boolean_value" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"booleanValue") y x) + 41 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToDouble + Data.ProtoLens.Encoding.Bytes.getFixed64) + "double_value" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"doubleValue") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TsCell" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'varcharValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'sint64Value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'timestampValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'booleanValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'doubleValue") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 41) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData TsCell where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsCell'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsCell'varcharValue x__) + (Control.DeepSeq.deepseq + (_TsCell'sint64Value x__) + (Control.DeepSeq.deepseq + (_TsCell'timestampValue x__) + (Control.DeepSeq.deepseq + (_TsCell'booleanValue x__) + (Control.DeepSeq.deepseq (_TsCell'doubleValue x__) ()))))) +{- | Fields : + + * 'Proto.Riak_Fields.name' @:: Lens' TsColumnDescription Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.type'' @:: Lens' TsColumnDescription TsColumnType@ -} +data TsColumnDescription + = TsColumnDescription'_constructor {_TsColumnDescription'name :: !Data.ByteString.ByteString, + _TsColumnDescription'type' :: !TsColumnType, + _TsColumnDescription'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsColumnDescription where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsColumnDescription "name" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsColumnDescription'name + (\ x__ y__ -> x__ {_TsColumnDescription'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsColumnDescription "type'" TsColumnType where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsColumnDescription'type' + (\ x__ y__ -> x__ {_TsColumnDescription'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message TsColumnDescription where + messageName _ = Data.Text.pack "TsColumnDescription" + packedMessageDescriptor _ + = "\n\ + \\DC3TsColumnDescription\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname\DC2!\n\ + \\EOTtype\CAN\STX \STX(\SO2\r.TsColumnTypeR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor TsColumnDescription + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor TsColumnType) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"type'")) :: + Data.ProtoLens.FieldDescriptor TsColumnDescription + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsColumnDescription'_unknownFields + (\ x__ y__ -> x__ {_TsColumnDescription'_unknownFields = y__}) + defMessage + = TsColumnDescription'_constructor + {_TsColumnDescription'name = Data.ProtoLens.fieldDefault, + _TsColumnDescription'type' = Data.ProtoLens.fieldDefault, + _TsColumnDescription'_unknownFields = []} + parseMessage + = let + loop :: + TsColumnDescription + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser TsColumnDescription + loop x required'name required'type' + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'name then (:) "name" else Prelude.id) + ((if required'type' then (:) "type" else Prelude.id) []) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + Prelude.False + required'type' + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + required'name + Prelude.False + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'name + required'type' + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True) + "TsColumnDescription" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum + (Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TsColumnDescription where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsColumnDescription'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsColumnDescription'name x__) + (Control.DeepSeq.deepseq (_TsColumnDescription'type' x__) ())) +data TsColumnType + = VARCHAR | SINT64 | DOUBLE | TIMESTAMP | BOOLEAN | BLOB + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum TsColumnType where + maybeToEnum 0 = Prelude.Just VARCHAR + maybeToEnum 1 = Prelude.Just SINT64 + maybeToEnum 2 = Prelude.Just DOUBLE + maybeToEnum 3 = Prelude.Just TIMESTAMP + maybeToEnum 4 = Prelude.Just BOOLEAN + maybeToEnum 5 = Prelude.Just BLOB + maybeToEnum _ = Prelude.Nothing + showEnum VARCHAR = "VARCHAR" + showEnum SINT64 = "SINT64" + showEnum DOUBLE = "DOUBLE" + showEnum TIMESTAMP = "TIMESTAMP" + showEnum BOOLEAN = "BOOLEAN" + showEnum BLOB = "BLOB" + readEnum k + | (Prelude.==) k "VARCHAR" = Prelude.Just VARCHAR + | (Prelude.==) k "SINT64" = Prelude.Just SINT64 + | (Prelude.==) k "DOUBLE" = Prelude.Just DOUBLE + | (Prelude.==) k "TIMESTAMP" = Prelude.Just TIMESTAMP + | (Prelude.==) k "BOOLEAN" = Prelude.Just BOOLEAN + | (Prelude.==) k "BLOB" = Prelude.Just BLOB + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded TsColumnType where + minBound = VARCHAR + maxBound = BLOB +instance Prelude.Enum TsColumnType where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum TsColumnType: " + (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum VARCHAR = 0 + fromEnum SINT64 = 1 + fromEnum DOUBLE = 2 + fromEnum TIMESTAMP = 3 + fromEnum BOOLEAN = 4 + fromEnum BLOB = 5 + succ BLOB + = Prelude.error + "TsColumnType.succ: bad argument BLOB. This value would be out of bounds." + succ VARCHAR = SINT64 + succ SINT64 = DOUBLE + succ DOUBLE = TIMESTAMP + succ TIMESTAMP = BOOLEAN + succ BOOLEAN = BLOB + pred VARCHAR + = Prelude.error + "TsColumnType.pred: bad argument VARCHAR. This value would be out of bounds." + pred SINT64 = VARCHAR + pred DOUBLE = SINT64 + pred TIMESTAMP = DOUBLE + pred BOOLEAN = TIMESTAMP + pred BLOB = BOOLEAN + 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 TsColumnType where + fieldDefault = VARCHAR +instance Control.DeepSeq.NFData TsColumnType where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Riak_Fields.ip' @:: Lens' TsCoverageEntry Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.port' @:: Lens' TsCoverageEntry Data.Word.Word32@ + * 'Proto.Riak_Fields.coverContext' @:: Lens' TsCoverageEntry Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.range' @:: Lens' TsCoverageEntry TsRange@ + * 'Proto.Riak_Fields.maybe'range' @:: Lens' TsCoverageEntry (Prelude.Maybe TsRange)@ -} +data TsCoverageEntry + = TsCoverageEntry'_constructor {_TsCoverageEntry'ip :: !Data.ByteString.ByteString, + _TsCoverageEntry'port :: !Data.Word.Word32, + _TsCoverageEntry'coverContext :: !Data.ByteString.ByteString, + _TsCoverageEntry'range :: !(Prelude.Maybe TsRange), + _TsCoverageEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsCoverageEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsCoverageEntry "ip" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageEntry'ip (\ x__ y__ -> x__ {_TsCoverageEntry'ip = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsCoverageEntry "port" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageEntry'port + (\ x__ y__ -> x__ {_TsCoverageEntry'port = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsCoverageEntry "coverContext" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageEntry'coverContext + (\ x__ y__ -> x__ {_TsCoverageEntry'coverContext = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsCoverageEntry "range" TsRange where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageEntry'range + (\ x__ y__ -> x__ {_TsCoverageEntry'range = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TsCoverageEntry "maybe'range" (Prelude.Maybe TsRange) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageEntry'range + (\ x__ y__ -> x__ {_TsCoverageEntry'range = y__})) + Prelude.id +instance Data.ProtoLens.Message TsCoverageEntry where + messageName _ = Data.Text.pack "TsCoverageEntry" + packedMessageDescriptor _ + = "\n\ + \\SITsCoverageEntry\DC2\SO\n\ + \\STXip\CAN\SOH \STX(\fR\STXip\DC2\DC2\n\ + \\EOTport\CAN\STX \STX(\rR\EOTport\DC2#\n\ + \\rcover_context\CAN\ETX \STX(\fR\fcoverContext\DC2\RS\n\ + \\ENQrange\CAN\EOT \SOH(\v2\b.TsRangeR\ENQrange" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + ip__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ip" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"ip")) :: + Data.ProtoLens.FieldDescriptor TsCoverageEntry + port__field_descriptor + = Data.ProtoLens.FieldDescriptor + "port" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"port")) :: + Data.ProtoLens.FieldDescriptor TsCoverageEntry + coverContext__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cover_context" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"coverContext")) :: + Data.ProtoLens.FieldDescriptor TsCoverageEntry + range__field_descriptor + = Data.ProtoLens.FieldDescriptor + "range" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsRange) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'range")) :: + Data.ProtoLens.FieldDescriptor TsCoverageEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, ip__field_descriptor), + (Data.ProtoLens.Tag 2, port__field_descriptor), + (Data.ProtoLens.Tag 3, coverContext__field_descriptor), + (Data.ProtoLens.Tag 4, range__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsCoverageEntry'_unknownFields + (\ x__ y__ -> x__ {_TsCoverageEntry'_unknownFields = y__}) + defMessage + = TsCoverageEntry'_constructor + {_TsCoverageEntry'ip = Data.ProtoLens.fieldDefault, + _TsCoverageEntry'port = Data.ProtoLens.fieldDefault, + _TsCoverageEntry'coverContext = Data.ProtoLens.fieldDefault, + _TsCoverageEntry'range = Prelude.Nothing, + _TsCoverageEntry'_unknownFields = []} + parseMessage + = let + loop :: + TsCoverageEntry + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser TsCoverageEntry + loop x required'coverContext required'ip required'port + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'coverContext then + (:) "cover_context" + else + Prelude.id) + ((if required'ip then (:) "ip" else Prelude.id) + ((if required'port then (:) "port" else Prelude.id) [])) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "ip" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ip") y x) + required'coverContext + Prelude.False + required'port + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "port" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"port") y x) + required'coverContext + required'ip + Prelude.False + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "cover_context" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"coverContext") y x) + Prelude.False + required'ip + required'port + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "range" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"range") y x) + required'coverContext + required'ip + required'port + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'coverContext + required'ip + required'port + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop + Data.ProtoLens.defMessage Prelude.True Prelude.True Prelude.True) + "TsCoverageEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"ip") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + (Lens.Family2.view (Data.ProtoLens.Field.field @"port") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"coverContext") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'range") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData TsCoverageEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsCoverageEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsCoverageEntry'ip x__) + (Control.DeepSeq.deepseq + (_TsCoverageEntry'port x__) + (Control.DeepSeq.deepseq + (_TsCoverageEntry'coverContext x__) + (Control.DeepSeq.deepseq (_TsCoverageEntry'range x__) ())))) +{- | Fields : + + * 'Proto.Riak_Fields.query' @:: Lens' TsCoverageReq TsInterpolation@ + * 'Proto.Riak_Fields.maybe'query' @:: Lens' TsCoverageReq (Prelude.Maybe TsInterpolation)@ + * 'Proto.Riak_Fields.table' @:: Lens' TsCoverageReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.replaceCover' @:: Lens' TsCoverageReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'replaceCover' @:: Lens' TsCoverageReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.unavailableCover' @:: Lens' TsCoverageReq [Data.ByteString.ByteString]@ + * 'Proto.Riak_Fields.vec'unavailableCover' @:: Lens' TsCoverageReq (Data.Vector.Vector Data.ByteString.ByteString)@ -} +data TsCoverageReq + = TsCoverageReq'_constructor {_TsCoverageReq'query :: !(Prelude.Maybe TsInterpolation), + _TsCoverageReq'table :: !Data.ByteString.ByteString, + _TsCoverageReq'replaceCover :: !(Prelude.Maybe Data.ByteString.ByteString), + _TsCoverageReq'unavailableCover :: !(Data.Vector.Vector Data.ByteString.ByteString), + _TsCoverageReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsCoverageReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsCoverageReq "query" TsInterpolation where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageReq'query + (\ x__ y__ -> x__ {_TsCoverageReq'query = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TsCoverageReq "maybe'query" (Prelude.Maybe TsInterpolation) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageReq'query + (\ x__ y__ -> x__ {_TsCoverageReq'query = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsCoverageReq "table" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageReq'table + (\ x__ y__ -> x__ {_TsCoverageReq'table = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsCoverageReq "replaceCover" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageReq'replaceCover + (\ x__ y__ -> x__ {_TsCoverageReq'replaceCover = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsCoverageReq "maybe'replaceCover" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageReq'replaceCover + (\ x__ y__ -> x__ {_TsCoverageReq'replaceCover = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsCoverageReq "unavailableCover" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageReq'unavailableCover + (\ x__ y__ -> x__ {_TsCoverageReq'unavailableCover = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsCoverageReq "vec'unavailableCover" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageReq'unavailableCover + (\ x__ y__ -> x__ {_TsCoverageReq'unavailableCover = y__})) + Prelude.id +instance Data.ProtoLens.Message TsCoverageReq where + messageName _ = Data.Text.pack "TsCoverageReq" + packedMessageDescriptor _ + = "\n\ + \\rTsCoverageReq\DC2&\n\ + \\ENQquery\CAN\SOH \SOH(\v2\DLE.TsInterpolationR\ENQquery\DC2\DC4\n\ + \\ENQtable\CAN\STX \STX(\fR\ENQtable\DC2#\n\ + \\rreplace_cover\CAN\ETX \SOH(\fR\freplaceCover\DC2+\n\ + \\DC1unavailable_cover\CAN\EOT \ETX(\fR\DLEunavailableCover" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + query__field_descriptor + = Data.ProtoLens.FieldDescriptor + "query" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsInterpolation) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'query")) :: + Data.ProtoLens.FieldDescriptor TsCoverageReq + table__field_descriptor + = Data.ProtoLens.FieldDescriptor + "table" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"table")) :: + Data.ProtoLens.FieldDescriptor TsCoverageReq + replaceCover__field_descriptor + = Data.ProtoLens.FieldDescriptor + "replace_cover" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'replaceCover")) :: + Data.ProtoLens.FieldDescriptor TsCoverageReq + unavailableCover__field_descriptor + = Data.ProtoLens.FieldDescriptor + "unavailable_cover" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"unavailableCover")) :: + Data.ProtoLens.FieldDescriptor TsCoverageReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, query__field_descriptor), + (Data.ProtoLens.Tag 2, table__field_descriptor), + (Data.ProtoLens.Tag 3, replaceCover__field_descriptor), + (Data.ProtoLens.Tag 4, unavailableCover__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsCoverageReq'_unknownFields + (\ x__ y__ -> x__ {_TsCoverageReq'_unknownFields = y__}) + defMessage + = TsCoverageReq'_constructor + {_TsCoverageReq'query = Prelude.Nothing, + _TsCoverageReq'table = Data.ProtoLens.fieldDefault, + _TsCoverageReq'replaceCover = Prelude.Nothing, + _TsCoverageReq'unavailableCover = Data.Vector.Generic.empty, + _TsCoverageReq'_unknownFields = []} + parseMessage + = let + loop :: + TsCoverageReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser TsCoverageReq + loop x required'table mutable'unavailableCover + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'unavailableCover <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'unavailableCover) + (let + missing = (if required'table then (:) "table" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'unavailableCover") + frozen'unavailableCover + x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "query" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"query") y x) + required'table + mutable'unavailableCover + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "table" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"table") y x) + Prelude.False + mutable'unavailableCover + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "replace_cover" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"replaceCover") y x) + required'table + mutable'unavailableCover + 34 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "unavailable_cover" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'unavailableCover y) + loop x required'table v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'table + mutable'unavailableCover + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'unavailableCover <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage Prelude.True mutable'unavailableCover) + "TsCoverageReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'query") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"table") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'replaceCover") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'unavailableCover") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData TsCoverageReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsCoverageReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsCoverageReq'query x__) + (Control.DeepSeq.deepseq + (_TsCoverageReq'table x__) + (Control.DeepSeq.deepseq + (_TsCoverageReq'replaceCover x__) + (Control.DeepSeq.deepseq + (_TsCoverageReq'unavailableCover x__) ())))) +{- | Fields : + + * 'Proto.Riak_Fields.entries' @:: Lens' TsCoverageResp [TsCoverageEntry]@ + * 'Proto.Riak_Fields.vec'entries' @:: Lens' TsCoverageResp (Data.Vector.Vector TsCoverageEntry)@ -} +data TsCoverageResp + = TsCoverageResp'_constructor {_TsCoverageResp'entries :: !(Data.Vector.Vector TsCoverageEntry), + _TsCoverageResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsCoverageResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsCoverageResp "entries" [TsCoverageEntry] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageResp'entries + (\ x__ y__ -> x__ {_TsCoverageResp'entries = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsCoverageResp "vec'entries" (Data.Vector.Vector TsCoverageEntry) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsCoverageResp'entries + (\ x__ y__ -> x__ {_TsCoverageResp'entries = y__})) + Prelude.id +instance Data.ProtoLens.Message TsCoverageResp where + messageName _ = Data.Text.pack "TsCoverageResp" + packedMessageDescriptor _ + = "\n\ + \\SOTsCoverageResp\DC2*\n\ + \\aentries\CAN\SOH \ETX(\v2\DLE.TsCoverageEntryR\aentries" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + entries__field_descriptor + = Data.ProtoLens.FieldDescriptor + "entries" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsCoverageEntry) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"entries")) :: + Data.ProtoLens.FieldDescriptor TsCoverageResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, entries__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsCoverageResp'_unknownFields + (\ x__ y__ -> x__ {_TsCoverageResp'_unknownFields = y__}) + defMessage + = TsCoverageResp'_constructor + {_TsCoverageResp'entries = Data.Vector.Generic.empty, + _TsCoverageResp'_unknownFields = []} + parseMessage + = let + loop :: + TsCoverageResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsCoverageEntry + -> Data.ProtoLens.Encoding.Bytes.Parser TsCoverageResp + loop x mutable'entries + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'entries <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'entries) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'entries") frozen'entries x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "entries" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'entries 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'entries + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'entries <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'entries) + "TsCoverageResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'entries") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData TsCoverageResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsCoverageResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_TsCoverageResp'entries x__) ()) +{- | Fields : + + * 'Proto.Riak_Fields.table' @:: Lens' TsDelReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.key' @:: Lens' TsDelReq [TsCell]@ + * 'Proto.Riak_Fields.vec'key' @:: Lens' TsDelReq (Data.Vector.Vector TsCell)@ + * 'Proto.Riak_Fields.vclock' @:: Lens' TsDelReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'vclock' @:: Lens' TsDelReq (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Riak_Fields.timeout' @:: Lens' TsDelReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' TsDelReq (Prelude.Maybe Data.Word.Word32)@ -} +data TsDelReq + = TsDelReq'_constructor {_TsDelReq'table :: !Data.ByteString.ByteString, + _TsDelReq'key :: !(Data.Vector.Vector TsCell), + _TsDelReq'vclock :: !(Prelude.Maybe Data.ByteString.ByteString), + _TsDelReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _TsDelReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsDelReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsDelReq "table" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsDelReq'table (\ x__ y__ -> x__ {_TsDelReq'table = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsDelReq "key" [TsCell] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsDelReq'key (\ x__ y__ -> x__ {_TsDelReq'key = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsDelReq "vec'key" (Data.Vector.Vector TsCell) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsDelReq'key (\ x__ y__ -> x__ {_TsDelReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsDelReq "vclock" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsDelReq'vclock (\ x__ y__ -> x__ {_TsDelReq'vclock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsDelReq "maybe'vclock" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsDelReq'vclock (\ x__ y__ -> x__ {_TsDelReq'vclock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsDelReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsDelReq'timeout (\ x__ y__ -> x__ {_TsDelReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsDelReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsDelReq'timeout (\ x__ y__ -> x__ {_TsDelReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Message TsDelReq where + messageName _ = Data.Text.pack "TsDelReq" + packedMessageDescriptor _ + = "\n\ + \\bTsDelReq\DC2\DC4\n\ + \\ENQtable\CAN\SOH \STX(\fR\ENQtable\DC2\EM\n\ + \\ETXkey\CAN\STX \ETX(\v2\a.TsCellR\ETXkey\DC2\SYN\n\ + \\ACKvclock\CAN\ETX \SOH(\fR\ACKvclock\DC2\CAN\n\ + \\atimeout\CAN\EOT \SOH(\rR\atimeout" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + table__field_descriptor + = Data.ProtoLens.FieldDescriptor + "table" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"table")) :: + Data.ProtoLens.FieldDescriptor TsDelReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsCell) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor TsDelReq + vclock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vclock" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'vclock")) :: + Data.ProtoLens.FieldDescriptor TsDelReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor TsDelReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, table__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, vclock__field_descriptor), + (Data.ProtoLens.Tag 4, timeout__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsDelReq'_unknownFields + (\ x__ y__ -> x__ {_TsDelReq'_unknownFields = y__}) + defMessage + = TsDelReq'_constructor + {_TsDelReq'table = Data.ProtoLens.fieldDefault, + _TsDelReq'key = Data.Vector.Generic.empty, + _TsDelReq'vclock = Prelude.Nothing, + _TsDelReq'timeout = Prelude.Nothing, _TsDelReq'_unknownFields = []} + parseMessage + = let + loop :: + TsDelReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsCell + -> Data.ProtoLens.Encoding.Bytes.Parser TsDelReq + loop x required'table mutable'key + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'key <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'key) + (let + missing = (if required'table then (:) "table" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'key") frozen'key x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "table" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"table") y x) + Prelude.False + mutable'key + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "key" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'key y) + loop x required'table v + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "vclock" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"vclock") y x) + required'table + mutable'key + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'table + mutable'key + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'table + mutable'key + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'key <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage Prelude.True mutable'key) + "TsDelReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"table") _x))) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'key") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'vclock") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData TsDelReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsDelReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsDelReq'table x__) + (Control.DeepSeq.deepseq + (_TsDelReq'key x__) + (Control.DeepSeq.deepseq + (_TsDelReq'vclock x__) + (Control.DeepSeq.deepseq (_TsDelReq'timeout x__) ())))) +{- | Fields : + -} +data TsDelResp + = TsDelResp'_constructor {_TsDelResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsDelResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message TsDelResp where + messageName _ = Data.Text.pack "TsDelResp" + packedMessageDescriptor _ + = "\n\ + \\tTsDelResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _TsDelResp'_unknownFields + (\ x__ y__ -> x__ {_TsDelResp'_unknownFields = y__}) + defMessage + = TsDelResp'_constructor {_TsDelResp'_unknownFields = []} + parseMessage + = let + loop :: TsDelResp -> Data.ProtoLens.Encoding.Bytes.Parser TsDelResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TsDelResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData TsDelResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_TsDelResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Riak_Fields.table' @:: Lens' TsGetReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.key' @:: Lens' TsGetReq [TsCell]@ + * 'Proto.Riak_Fields.vec'key' @:: Lens' TsGetReq (Data.Vector.Vector TsCell)@ + * 'Proto.Riak_Fields.timeout' @:: Lens' TsGetReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' TsGetReq (Prelude.Maybe Data.Word.Word32)@ -} +data TsGetReq + = TsGetReq'_constructor {_TsGetReq'table :: !Data.ByteString.ByteString, + _TsGetReq'key :: !(Data.Vector.Vector TsCell), + _TsGetReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _TsGetReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsGetReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsGetReq "table" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsGetReq'table (\ x__ y__ -> x__ {_TsGetReq'table = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsGetReq "key" [TsCell] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsGetReq'key (\ x__ y__ -> x__ {_TsGetReq'key = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsGetReq "vec'key" (Data.Vector.Vector TsCell) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsGetReq'key (\ x__ y__ -> x__ {_TsGetReq'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsGetReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsGetReq'timeout (\ x__ y__ -> x__ {_TsGetReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsGetReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsGetReq'timeout (\ x__ y__ -> x__ {_TsGetReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Message TsGetReq where + messageName _ = Data.Text.pack "TsGetReq" + packedMessageDescriptor _ + = "\n\ + \\bTsGetReq\DC2\DC4\n\ + \\ENQtable\CAN\SOH \STX(\fR\ENQtable\DC2\EM\n\ + \\ETXkey\CAN\STX \ETX(\v2\a.TsCellR\ETXkey\DC2\CAN\n\ + \\atimeout\CAN\ETX \SOH(\rR\atimeout" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + table__field_descriptor + = Data.ProtoLens.FieldDescriptor + "table" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"table")) :: + Data.ProtoLens.FieldDescriptor TsGetReq + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsCell) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor TsGetReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor TsGetReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, table__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, timeout__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsGetReq'_unknownFields + (\ x__ y__ -> x__ {_TsGetReq'_unknownFields = y__}) + defMessage + = TsGetReq'_constructor + {_TsGetReq'table = Data.ProtoLens.fieldDefault, + _TsGetReq'key = Data.Vector.Generic.empty, + _TsGetReq'timeout = Prelude.Nothing, _TsGetReq'_unknownFields = []} + parseMessage + = let + loop :: + TsGetReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsCell + -> Data.ProtoLens.Encoding.Bytes.Parser TsGetReq + loop x required'table mutable'key + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'key <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'key) + (let + missing = (if required'table then (:) "table" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'key") frozen'key x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "table" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"table") y x) + Prelude.False + mutable'key + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "key" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'key y) + loop x required'table v + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'table + mutable'key + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'table + mutable'key + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'key <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage Prelude.True mutable'key) + "TsGetReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"table") _x))) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'key") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData TsGetReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsGetReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsGetReq'table x__) + (Control.DeepSeq.deepseq + (_TsGetReq'key x__) + (Control.DeepSeq.deepseq (_TsGetReq'timeout x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.columns' @:: Lens' TsGetResp [TsColumnDescription]@ + * 'Proto.Riak_Fields.vec'columns' @:: Lens' TsGetResp (Data.Vector.Vector TsColumnDescription)@ + * 'Proto.Riak_Fields.rows' @:: Lens' TsGetResp [TsRow]@ + * 'Proto.Riak_Fields.vec'rows' @:: Lens' TsGetResp (Data.Vector.Vector TsRow)@ -} +data TsGetResp + = TsGetResp'_constructor {_TsGetResp'columns :: !(Data.Vector.Vector TsColumnDescription), + _TsGetResp'rows :: !(Data.Vector.Vector TsRow), + _TsGetResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsGetResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsGetResp "columns" [TsColumnDescription] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsGetResp'columns (\ x__ y__ -> x__ {_TsGetResp'columns = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsGetResp "vec'columns" (Data.Vector.Vector TsColumnDescription) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsGetResp'columns (\ x__ y__ -> x__ {_TsGetResp'columns = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsGetResp "rows" [TsRow] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsGetResp'rows (\ x__ y__ -> x__ {_TsGetResp'rows = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsGetResp "vec'rows" (Data.Vector.Vector TsRow) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsGetResp'rows (\ x__ y__ -> x__ {_TsGetResp'rows = y__})) + Prelude.id +instance Data.ProtoLens.Message TsGetResp where + messageName _ = Data.Text.pack "TsGetResp" + packedMessageDescriptor _ + = "\n\ + \\tTsGetResp\DC2.\n\ + \\acolumns\CAN\SOH \ETX(\v2\DC4.TsColumnDescriptionR\acolumns\DC2\SUB\n\ + \\EOTrows\CAN\STX \ETX(\v2\ACK.TsRowR\EOTrows" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + columns__field_descriptor + = Data.ProtoLens.FieldDescriptor + "columns" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsColumnDescription) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"columns")) :: + Data.ProtoLens.FieldDescriptor TsGetResp + rows__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rows" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsRow) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"rows")) :: + Data.ProtoLens.FieldDescriptor TsGetResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, columns__field_descriptor), + (Data.ProtoLens.Tag 2, rows__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsGetResp'_unknownFields + (\ x__ y__ -> x__ {_TsGetResp'_unknownFields = y__}) + defMessage + = TsGetResp'_constructor + {_TsGetResp'columns = Data.Vector.Generic.empty, + _TsGetResp'rows = Data.Vector.Generic.empty, + _TsGetResp'_unknownFields = []} + parseMessage + = let + loop :: + TsGetResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsColumnDescription + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsRow + -> Data.ProtoLens.Encoding.Bytes.Parser TsGetResp + loop x mutable'columns mutable'rows + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'columns <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'columns) + frozen'rows <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'rows) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'columns") + frozen'columns + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'rows") frozen'rows x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "columns" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'columns y) + loop x v mutable'rows + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "rows" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'rows y) + loop x mutable'columns v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'columns + mutable'rows + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'columns <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'rows <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'columns mutable'rows) + "TsGetResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'columns") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'rows") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TsGetResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsGetResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsGetResp'columns x__) + (Control.DeepSeq.deepseq (_TsGetResp'rows x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.base' @:: Lens' TsInterpolation Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.interpolations' @:: Lens' TsInterpolation [RpbPair]@ + * 'Proto.Riak_Fields.vec'interpolations' @:: Lens' TsInterpolation (Data.Vector.Vector RpbPair)@ -} +data TsInterpolation + = TsInterpolation'_constructor {_TsInterpolation'base :: !Data.ByteString.ByteString, + _TsInterpolation'interpolations :: !(Data.Vector.Vector RpbPair), + _TsInterpolation'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsInterpolation where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsInterpolation "base" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsInterpolation'base + (\ x__ y__ -> x__ {_TsInterpolation'base = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsInterpolation "interpolations" [RpbPair] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsInterpolation'interpolations + (\ x__ y__ -> x__ {_TsInterpolation'interpolations = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsInterpolation "vec'interpolations" (Data.Vector.Vector RpbPair) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsInterpolation'interpolations + (\ x__ y__ -> x__ {_TsInterpolation'interpolations = y__})) + Prelude.id +instance Data.ProtoLens.Message TsInterpolation where + messageName _ = Data.Text.pack "TsInterpolation" + packedMessageDescriptor _ + = "\n\ + \\SITsInterpolation\DC2\DC2\n\ + \\EOTbase\CAN\SOH \STX(\fR\EOTbase\DC20\n\ + \\SOinterpolations\CAN\STX \ETX(\v2\b.RpbPairR\SOinterpolations" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + base__field_descriptor + = Data.ProtoLens.FieldDescriptor + "base" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"base")) :: + Data.ProtoLens.FieldDescriptor TsInterpolation + interpolations__field_descriptor + = Data.ProtoLens.FieldDescriptor + "interpolations" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RpbPair) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"interpolations")) :: + Data.ProtoLens.FieldDescriptor TsInterpolation + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, base__field_descriptor), + (Data.ProtoLens.Tag 2, interpolations__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsInterpolation'_unknownFields + (\ x__ y__ -> x__ {_TsInterpolation'_unknownFields = y__}) + defMessage + = TsInterpolation'_constructor + {_TsInterpolation'base = Data.ProtoLens.fieldDefault, + _TsInterpolation'interpolations = Data.Vector.Generic.empty, + _TsInterpolation'_unknownFields = []} + parseMessage + = let + loop :: + TsInterpolation + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RpbPair + -> Data.ProtoLens.Encoding.Bytes.Parser TsInterpolation + loop x required'base mutable'interpolations + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'interpolations <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'interpolations) + (let + missing = (if required'base then (:) "base" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'interpolations") + frozen'interpolations + x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "base" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"base") y x) + Prelude.False + mutable'interpolations + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "interpolations" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'interpolations y) + loop x required'base v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'base + mutable'interpolations + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'interpolations <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage Prelude.True mutable'interpolations) + "TsInterpolation" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"base") _x))) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'interpolations") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TsInterpolation where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsInterpolation'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsInterpolation'base x__) + (Control.DeepSeq.deepseq (_TsInterpolation'interpolations x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.table' @:: Lens' TsListKeysReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.timeout' @:: Lens' TsListKeysReq Data.Word.Word32@ + * 'Proto.Riak_Fields.maybe'timeout' @:: Lens' TsListKeysReq (Prelude.Maybe Data.Word.Word32)@ -} +data TsListKeysReq + = TsListKeysReq'_constructor {_TsListKeysReq'table :: !Data.ByteString.ByteString, + _TsListKeysReq'timeout :: !(Prelude.Maybe Data.Word.Word32), + _TsListKeysReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsListKeysReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsListKeysReq "table" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsListKeysReq'table + (\ x__ y__ -> x__ {_TsListKeysReq'table = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsListKeysReq "timeout" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsListKeysReq'timeout + (\ x__ y__ -> x__ {_TsListKeysReq'timeout = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsListKeysReq "maybe'timeout" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsListKeysReq'timeout + (\ x__ y__ -> x__ {_TsListKeysReq'timeout = y__})) + Prelude.id +instance Data.ProtoLens.Message TsListKeysReq where + messageName _ = Data.Text.pack "TsListKeysReq" + packedMessageDescriptor _ + = "\n\ + \\rTsListKeysReq\DC2\DC4\n\ + \\ENQtable\CAN\SOH \STX(\fR\ENQtable\DC2\CAN\n\ + \\atimeout\CAN\STX \SOH(\rR\atimeout" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + table__field_descriptor + = Data.ProtoLens.FieldDescriptor + "table" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"table")) :: + Data.ProtoLens.FieldDescriptor TsListKeysReq + timeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'timeout")) :: + Data.ProtoLens.FieldDescriptor TsListKeysReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, table__field_descriptor), + (Data.ProtoLens.Tag 2, timeout__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsListKeysReq'_unknownFields + (\ x__ y__ -> x__ {_TsListKeysReq'_unknownFields = y__}) + defMessage + = TsListKeysReq'_constructor + {_TsListKeysReq'table = Data.ProtoLens.fieldDefault, + _TsListKeysReq'timeout = Prelude.Nothing, + _TsListKeysReq'_unknownFields = []} + parseMessage + = let + loop :: + TsListKeysReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Bytes.Parser TsListKeysReq + loop x required'table + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing = (if required'table then (:) "table" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "table" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"table") y x) + Prelude.False + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") y x) + required'table + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'table + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage Prelude.True) "TsListKeysReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"table") _x))) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'timeout") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TsListKeysReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsListKeysReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsListKeysReq'table x__) + (Control.DeepSeq.deepseq (_TsListKeysReq'timeout x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.keys' @:: Lens' TsListKeysResp [TsRow]@ + * 'Proto.Riak_Fields.vec'keys' @:: Lens' TsListKeysResp (Data.Vector.Vector TsRow)@ + * 'Proto.Riak_Fields.done' @:: Lens' TsListKeysResp Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'done' @:: Lens' TsListKeysResp (Prelude.Maybe Prelude.Bool)@ -} +data TsListKeysResp + = TsListKeysResp'_constructor {_TsListKeysResp'keys :: !(Data.Vector.Vector TsRow), + _TsListKeysResp'done :: !(Prelude.Maybe Prelude.Bool), + _TsListKeysResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsListKeysResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsListKeysResp "keys" [TsRow] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsListKeysResp'keys + (\ x__ y__ -> x__ {_TsListKeysResp'keys = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsListKeysResp "vec'keys" (Data.Vector.Vector TsRow) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsListKeysResp'keys + (\ x__ y__ -> x__ {_TsListKeysResp'keys = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsListKeysResp "done" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsListKeysResp'done + (\ x__ y__ -> x__ {_TsListKeysResp'done = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsListKeysResp "maybe'done" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsListKeysResp'done + (\ x__ y__ -> x__ {_TsListKeysResp'done = y__})) + Prelude.id +instance Data.ProtoLens.Message TsListKeysResp where + messageName _ = Data.Text.pack "TsListKeysResp" + packedMessageDescriptor _ + = "\n\ + \\SOTsListKeysResp\DC2\SUB\n\ + \\EOTkeys\CAN\SOH \ETX(\v2\ACK.TsRowR\EOTkeys\DC2\DC2\n\ + \\EOTdone\CAN\STX \SOH(\bR\EOTdone" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + keys__field_descriptor + = Data.ProtoLens.FieldDescriptor + "keys" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsRow) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"keys")) :: + Data.ProtoLens.FieldDescriptor TsListKeysResp + done__field_descriptor + = Data.ProtoLens.FieldDescriptor + "done" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'done")) :: + Data.ProtoLens.FieldDescriptor TsListKeysResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, keys__field_descriptor), + (Data.ProtoLens.Tag 2, done__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsListKeysResp'_unknownFields + (\ x__ y__ -> x__ {_TsListKeysResp'_unknownFields = y__}) + defMessage + = TsListKeysResp'_constructor + {_TsListKeysResp'keys = Data.Vector.Generic.empty, + _TsListKeysResp'done = Prelude.Nothing, + _TsListKeysResp'_unknownFields = []} + parseMessage + = let + loop :: + TsListKeysResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsRow + -> Data.ProtoLens.Encoding.Bytes.Parser TsListKeysResp + loop x mutable'keys + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'keys) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'keys") frozen'keys x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "keys" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'keys y) + loop x v + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "done" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"done") y x) + mutable'keys + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'keys + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'keys) + "TsListKeysResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'keys") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'done") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TsListKeysResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsListKeysResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsListKeysResp'keys x__) + (Control.DeepSeq.deepseq (_TsListKeysResp'done x__) ())) +{- | Fields : + + * 'Proto.Riak_Fields.table' @:: Lens' TsPutReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.columns' @:: Lens' TsPutReq [TsColumnDescription]@ + * 'Proto.Riak_Fields.vec'columns' @:: Lens' TsPutReq (Data.Vector.Vector TsColumnDescription)@ + * 'Proto.Riak_Fields.rows' @:: Lens' TsPutReq [TsRow]@ + * 'Proto.Riak_Fields.vec'rows' @:: Lens' TsPutReq (Data.Vector.Vector TsRow)@ -} +data TsPutReq + = TsPutReq'_constructor {_TsPutReq'table :: !Data.ByteString.ByteString, + _TsPutReq'columns :: !(Data.Vector.Vector TsColumnDescription), + _TsPutReq'rows :: !(Data.Vector.Vector TsRow), + _TsPutReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsPutReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsPutReq "table" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsPutReq'table (\ x__ y__ -> x__ {_TsPutReq'table = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsPutReq "columns" [TsColumnDescription] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsPutReq'columns (\ x__ y__ -> x__ {_TsPutReq'columns = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsPutReq "vec'columns" (Data.Vector.Vector TsColumnDescription) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsPutReq'columns (\ x__ y__ -> x__ {_TsPutReq'columns = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsPutReq "rows" [TsRow] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsPutReq'rows (\ x__ y__ -> x__ {_TsPutReq'rows = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsPutReq "vec'rows" (Data.Vector.Vector TsRow) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsPutReq'rows (\ x__ y__ -> x__ {_TsPutReq'rows = y__})) + Prelude.id +instance Data.ProtoLens.Message TsPutReq where + messageName _ = Data.Text.pack "TsPutReq" + packedMessageDescriptor _ + = "\n\ + \\bTsPutReq\DC2\DC4\n\ + \\ENQtable\CAN\SOH \STX(\fR\ENQtable\DC2.\n\ + \\acolumns\CAN\STX \ETX(\v2\DC4.TsColumnDescriptionR\acolumns\DC2\SUB\n\ + \\EOTrows\CAN\ETX \ETX(\v2\ACK.TsRowR\EOTrows" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + table__field_descriptor + = Data.ProtoLens.FieldDescriptor + "table" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"table")) :: + Data.ProtoLens.FieldDescriptor TsPutReq + columns__field_descriptor + = Data.ProtoLens.FieldDescriptor + "columns" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsColumnDescription) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"columns")) :: + Data.ProtoLens.FieldDescriptor TsPutReq + rows__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rows" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsRow) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"rows")) :: + Data.ProtoLens.FieldDescriptor TsPutReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, table__field_descriptor), + (Data.ProtoLens.Tag 2, columns__field_descriptor), + (Data.ProtoLens.Tag 3, rows__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsPutReq'_unknownFields + (\ x__ y__ -> x__ {_TsPutReq'_unknownFields = y__}) + defMessage + = TsPutReq'_constructor + {_TsPutReq'table = Data.ProtoLens.fieldDefault, + _TsPutReq'columns = Data.Vector.Generic.empty, + _TsPutReq'rows = Data.Vector.Generic.empty, + _TsPutReq'_unknownFields = []} + parseMessage + = let + loop :: + TsPutReq + -> Prelude.Bool + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsColumnDescription + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsRow + -> Data.ProtoLens.Encoding.Bytes.Parser TsPutReq + loop x required'table mutable'columns mutable'rows + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'columns <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'columns) + frozen'rows <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'rows) + (let + missing = (if required'table then (:) "table" else Prelude.id) [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'columns") + frozen'columns + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'rows") frozen'rows x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "table" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"table") y x) + Prelude.False + mutable'columns + mutable'rows + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "columns" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'columns y) + loop x required'table v mutable'rows + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "rows" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'rows y) + loop x required'table mutable'columns v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'table + mutable'columns + mutable'rows + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'columns <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'rows <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage + Prelude.True + mutable'columns + mutable'rows) + "TsPutReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"table") _x))) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'columns") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'rows") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData TsPutReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsPutReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsPutReq'table x__) + (Control.DeepSeq.deepseq + (_TsPutReq'columns x__) + (Control.DeepSeq.deepseq (_TsPutReq'rows x__) ()))) +{- | Fields : + -} +data TsPutResp + = TsPutResp'_constructor {_TsPutResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsPutResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message TsPutResp where + messageName _ = Data.Text.pack "TsPutResp" + packedMessageDescriptor _ + = "\n\ + \\tTsPutResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _TsPutResp'_unknownFields + (\ x__ y__ -> x__ {_TsPutResp'_unknownFields = y__}) + defMessage + = TsPutResp'_constructor {_TsPutResp'_unknownFields = []} + parseMessage + = let + loop :: TsPutResp -> Data.ProtoLens.Encoding.Bytes.Parser TsPutResp + 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 + ((Prelude.++) + "Missing required fields: " + (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 { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TsPutResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData TsPutResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_TsPutResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Riak_Fields.query' @:: Lens' TsQueryReq TsInterpolation@ + * 'Proto.Riak_Fields.maybe'query' @:: Lens' TsQueryReq (Prelude.Maybe TsInterpolation)@ + * 'Proto.Riak_Fields.stream' @:: Lens' TsQueryReq Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'stream' @:: Lens' TsQueryReq (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Riak_Fields.coverContext' @:: Lens' TsQueryReq Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.maybe'coverContext' @:: Lens' TsQueryReq (Prelude.Maybe Data.ByteString.ByteString)@ -} +data TsQueryReq + = TsQueryReq'_constructor {_TsQueryReq'query :: !(Prelude.Maybe TsInterpolation), + _TsQueryReq'stream :: !(Prelude.Maybe Prelude.Bool), + _TsQueryReq'coverContext :: !(Prelude.Maybe Data.ByteString.ByteString), + _TsQueryReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsQueryReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsQueryReq "query" TsInterpolation where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryReq'query (\ x__ y__ -> x__ {_TsQueryReq'query = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TsQueryReq "maybe'query" (Prelude.Maybe TsInterpolation) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryReq'query (\ x__ y__ -> x__ {_TsQueryReq'query = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsQueryReq "stream" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryReq'stream (\ x__ y__ -> x__ {_TsQueryReq'stream = y__})) + (Data.ProtoLens.maybeLens Prelude.False) +instance Data.ProtoLens.Field.HasField TsQueryReq "maybe'stream" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryReq'stream (\ x__ y__ -> x__ {_TsQueryReq'stream = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsQueryReq "coverContext" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryReq'coverContext + (\ x__ y__ -> x__ {_TsQueryReq'coverContext = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField TsQueryReq "maybe'coverContext" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryReq'coverContext + (\ x__ y__ -> x__ {_TsQueryReq'coverContext = y__})) + Prelude.id +instance Data.ProtoLens.Message TsQueryReq where + messageName _ = Data.Text.pack "TsQueryReq" + packedMessageDescriptor _ + = "\n\ + \\n\ + \TsQueryReq\DC2&\n\ + \\ENQquery\CAN\SOH \SOH(\v2\DLE.TsInterpolationR\ENQquery\DC2\GS\n\ + \\ACKstream\CAN\STX \SOH(\b:\ENQfalseR\ACKstream\DC2#\n\ + \\rcover_context\CAN\ETX \SOH(\fR\fcoverContext" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + query__field_descriptor + = Data.ProtoLens.FieldDescriptor + "query" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsInterpolation) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'query")) :: + Data.ProtoLens.FieldDescriptor TsQueryReq + stream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stream")) :: + Data.ProtoLens.FieldDescriptor TsQueryReq + coverContext__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cover_context" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coverContext")) :: + Data.ProtoLens.FieldDescriptor TsQueryReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, query__field_descriptor), + (Data.ProtoLens.Tag 2, stream__field_descriptor), + (Data.ProtoLens.Tag 3, coverContext__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsQueryReq'_unknownFields + (\ x__ y__ -> x__ {_TsQueryReq'_unknownFields = y__}) + defMessage + = TsQueryReq'_constructor + {_TsQueryReq'query = Prelude.Nothing, + _TsQueryReq'stream = Prelude.Nothing, + _TsQueryReq'coverContext = Prelude.Nothing, + _TsQueryReq'_unknownFields = []} + parseMessage + = let + loop :: + TsQueryReq -> Data.ProtoLens.Encoding.Bytes.Parser TsQueryReq + 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 + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "query" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"query") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "stream" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"stream") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "cover_context" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"coverContext") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TsQueryReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'query") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'stream") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'coverContext") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData TsQueryReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsQueryReq'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsQueryReq'query x__) + (Control.DeepSeq.deepseq + (_TsQueryReq'stream x__) + (Control.DeepSeq.deepseq (_TsQueryReq'coverContext x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.columns' @:: Lens' TsQueryResp [TsColumnDescription]@ + * 'Proto.Riak_Fields.vec'columns' @:: Lens' TsQueryResp (Data.Vector.Vector TsColumnDescription)@ + * 'Proto.Riak_Fields.rows' @:: Lens' TsQueryResp [TsRow]@ + * 'Proto.Riak_Fields.vec'rows' @:: Lens' TsQueryResp (Data.Vector.Vector TsRow)@ + * 'Proto.Riak_Fields.done' @:: Lens' TsQueryResp Prelude.Bool@ + * 'Proto.Riak_Fields.maybe'done' @:: Lens' TsQueryResp (Prelude.Maybe Prelude.Bool)@ -} +data TsQueryResp + = TsQueryResp'_constructor {_TsQueryResp'columns :: !(Data.Vector.Vector TsColumnDescription), + _TsQueryResp'rows :: !(Data.Vector.Vector TsRow), + _TsQueryResp'done :: !(Prelude.Maybe Prelude.Bool), + _TsQueryResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsQueryResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsQueryResp "columns" [TsColumnDescription] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryResp'columns + (\ x__ y__ -> x__ {_TsQueryResp'columns = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsQueryResp "vec'columns" (Data.Vector.Vector TsColumnDescription) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryResp'columns + (\ x__ y__ -> x__ {_TsQueryResp'columns = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsQueryResp "rows" [TsRow] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryResp'rows (\ x__ y__ -> x__ {_TsQueryResp'rows = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsQueryResp "vec'rows" (Data.Vector.Vector TsRow) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryResp'rows (\ x__ y__ -> x__ {_TsQueryResp'rows = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsQueryResp "done" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryResp'done (\ x__ y__ -> x__ {_TsQueryResp'done = y__})) + (Data.ProtoLens.maybeLens Prelude.True) +instance Data.ProtoLens.Field.HasField TsQueryResp "maybe'done" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsQueryResp'done (\ x__ y__ -> x__ {_TsQueryResp'done = y__})) + Prelude.id +instance Data.ProtoLens.Message TsQueryResp where + messageName _ = Data.Text.pack "TsQueryResp" + packedMessageDescriptor _ + = "\n\ + \\vTsQueryResp\DC2.\n\ + \\acolumns\CAN\SOH \ETX(\v2\DC4.TsColumnDescriptionR\acolumns\DC2\SUB\n\ + \\EOTrows\CAN\STX \ETX(\v2\ACK.TsRowR\EOTrows\DC2\CAN\n\ + \\EOTdone\CAN\ETX \SOH(\b:\EOTtrueR\EOTdone" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + columns__field_descriptor + = Data.ProtoLens.FieldDescriptor + "columns" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsColumnDescription) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"columns")) :: + Data.ProtoLens.FieldDescriptor TsQueryResp + rows__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rows" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsRow) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"rows")) :: + Data.ProtoLens.FieldDescriptor TsQueryResp + done__field_descriptor + = Data.ProtoLens.FieldDescriptor + "done" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'done")) :: + Data.ProtoLens.FieldDescriptor TsQueryResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, columns__field_descriptor), + (Data.ProtoLens.Tag 2, rows__field_descriptor), + (Data.ProtoLens.Tag 3, done__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsQueryResp'_unknownFields + (\ x__ y__ -> x__ {_TsQueryResp'_unknownFields = y__}) + defMessage + = TsQueryResp'_constructor + {_TsQueryResp'columns = Data.Vector.Generic.empty, + _TsQueryResp'rows = Data.Vector.Generic.empty, + _TsQueryResp'done = Prelude.Nothing, + _TsQueryResp'_unknownFields = []} + parseMessage + = let + loop :: + TsQueryResp + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsColumnDescription + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsRow + -> Data.ProtoLens.Encoding.Bytes.Parser TsQueryResp + loop x mutable'columns mutable'rows + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'columns <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'columns) + frozen'rows <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'rows) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'columns") + frozen'columns + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'rows") frozen'rows x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "columns" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'columns y) + loop x v mutable'rows + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "rows" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'rows y) + loop x mutable'columns v + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "done" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"done") y x) + mutable'columns + mutable'rows + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'columns + mutable'rows + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'columns <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'rows <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'columns mutable'rows) + "TsQueryResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'columns") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'rows") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'done") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData TsQueryResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsQueryResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsQueryResp'columns x__) + (Control.DeepSeq.deepseq + (_TsQueryResp'rows x__) + (Control.DeepSeq.deepseq (_TsQueryResp'done x__) ()))) +{- | Fields : + + * 'Proto.Riak_Fields.fieldName' @:: Lens' TsRange Data.ByteString.ByteString@ + * 'Proto.Riak_Fields.lowerBound' @:: Lens' TsRange Data.Int.Int64@ + * 'Proto.Riak_Fields.lowerBoundInclusive' @:: Lens' TsRange Prelude.Bool@ + * 'Proto.Riak_Fields.upperBound' @:: Lens' TsRange Data.Int.Int64@ + * 'Proto.Riak_Fields.upperBoundInclusive' @:: Lens' TsRange Prelude.Bool@ + * 'Proto.Riak_Fields.desc' @:: Lens' TsRange Data.ByteString.ByteString@ -} +data TsRange + = TsRange'_constructor {_TsRange'fieldName :: !Data.ByteString.ByteString, + _TsRange'lowerBound :: !Data.Int.Int64, + _TsRange'lowerBoundInclusive :: !Prelude.Bool, + _TsRange'upperBound :: !Data.Int.Int64, + _TsRange'upperBoundInclusive :: !Prelude.Bool, + _TsRange'desc :: !Data.ByteString.ByteString, + _TsRange'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsRange where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsRange "fieldName" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsRange'fieldName (\ x__ y__ -> x__ {_TsRange'fieldName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsRange "lowerBound" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsRange'lowerBound (\ x__ y__ -> x__ {_TsRange'lowerBound = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsRange "lowerBoundInclusive" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsRange'lowerBoundInclusive + (\ x__ y__ -> x__ {_TsRange'lowerBoundInclusive = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsRange "upperBound" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsRange'upperBound (\ x__ y__ -> x__ {_TsRange'upperBound = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsRange "upperBoundInclusive" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsRange'upperBoundInclusive + (\ x__ y__ -> x__ {_TsRange'upperBoundInclusive = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TsRange "desc" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsRange'desc (\ x__ y__ -> x__ {_TsRange'desc = y__})) + Prelude.id +instance Data.ProtoLens.Message TsRange where + messageName _ = Data.Text.pack "TsRange" + packedMessageDescriptor _ + = "\n\ + \\aTsRange\DC2\GS\n\ + \\n\ + \field_name\CAN\SOH \STX(\fR\tfieldName\DC2\US\n\ + \\vlower_bound\CAN\STX \STX(\DC2R\n\ + \lowerBound\DC22\n\ + \\NAKlower_bound_inclusive\CAN\ETX \STX(\bR\DC3lowerBoundInclusive\DC2\US\n\ + \\vupper_bound\CAN\EOT \STX(\DC2R\n\ + \upperBound\DC22\n\ + \\NAKupper_bound_inclusive\CAN\ENQ \STX(\bR\DC3upperBoundInclusive\DC2\DC2\n\ + \\EOTdesc\CAN\ACK \STX(\fR\EOTdesc" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + fieldName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"fieldName")) :: + Data.ProtoLens.FieldDescriptor TsRange + lowerBound__field_descriptor + = Data.ProtoLens.FieldDescriptor + "lower_bound" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"lowerBound")) :: + Data.ProtoLens.FieldDescriptor TsRange + lowerBoundInclusive__field_descriptor + = Data.ProtoLens.FieldDescriptor + "lower_bound_inclusive" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"lowerBoundInclusive")) :: + Data.ProtoLens.FieldDescriptor TsRange + upperBound__field_descriptor + = Data.ProtoLens.FieldDescriptor + "upper_bound" + (Data.ProtoLens.ScalarField Data.ProtoLens.SInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"upperBound")) :: + Data.ProtoLens.FieldDescriptor TsRange + upperBoundInclusive__field_descriptor + = Data.ProtoLens.FieldDescriptor + "upper_bound_inclusive" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required + (Data.ProtoLens.Field.field @"upperBoundInclusive")) :: + Data.ProtoLens.FieldDescriptor TsRange + desc__field_descriptor + = Data.ProtoLens.FieldDescriptor + "desc" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Required (Data.ProtoLens.Field.field @"desc")) :: + Data.ProtoLens.FieldDescriptor TsRange + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, fieldName__field_descriptor), + (Data.ProtoLens.Tag 2, lowerBound__field_descriptor), + (Data.ProtoLens.Tag 3, lowerBoundInclusive__field_descriptor), + (Data.ProtoLens.Tag 4, upperBound__field_descriptor), + (Data.ProtoLens.Tag 5, upperBoundInclusive__field_descriptor), + (Data.ProtoLens.Tag 6, desc__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsRange'_unknownFields + (\ x__ y__ -> x__ {_TsRange'_unknownFields = y__}) + defMessage + = TsRange'_constructor + {_TsRange'fieldName = Data.ProtoLens.fieldDefault, + _TsRange'lowerBound = Data.ProtoLens.fieldDefault, + _TsRange'lowerBoundInclusive = Data.ProtoLens.fieldDefault, + _TsRange'upperBound = Data.ProtoLens.fieldDefault, + _TsRange'upperBoundInclusive = Data.ProtoLens.fieldDefault, + _TsRange'desc = Data.ProtoLens.fieldDefault, + _TsRange'_unknownFields = []} + parseMessage + = let + loop :: + TsRange + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool + -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser TsRange + loop + x + required'desc + required'fieldName + required'lowerBound + required'lowerBoundInclusive + required'upperBound + required'upperBoundInclusive + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let + missing + = (if required'desc then (:) "desc" else Prelude.id) + ((if required'fieldName then (:) "field_name" else Prelude.id) + ((if required'lowerBound then (:) "lower_bound" else Prelude.id) + ((if required'lowerBoundInclusive then + (:) "lower_bound_inclusive" + else + Prelude.id) + ((if required'upperBound then + (:) "upper_bound" + else + Prelude.id) + ((if required'upperBoundInclusive then + (:) "upper_bound_inclusive" + else + Prelude.id) + []))))) + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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 <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "field_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldName") y x) + required'desc + Prelude.False + required'lowerBound + required'lowerBoundInclusive + required'upperBound + required'upperBoundInclusive + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "lower_bound" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"lowerBound") y x) + required'desc + required'fieldName + Prelude.False + required'lowerBoundInclusive + required'upperBound + required'upperBoundInclusive + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "lower_bound_inclusive" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"lowerBoundInclusive") y x) + required'desc + required'fieldName + required'lowerBound + Prelude.False + required'upperBound + required'upperBoundInclusive + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToSignedInt64 + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "upper_bound" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"upperBound") y x) + required'desc + required'fieldName + required'lowerBound + required'lowerBoundInclusive + Prelude.False + required'upperBoundInclusive + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "upper_bound_inclusive" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"upperBoundInclusive") y x) + required'desc + required'fieldName + required'lowerBound + required'lowerBoundInclusive + required'upperBound + Prelude.False + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "desc" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"desc") y x) + Prelude.False + required'fieldName + required'lowerBound + required'lowerBoundInclusive + required'upperBound + required'upperBoundInclusive + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + required'desc + required'fieldName + required'lowerBound + required'lowerBoundInclusive + required'upperBound + required'upperBoundInclusive + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop + Data.ProtoLens.defMessage + Prelude.True + Prelude.True + Prelude.True + Prelude.True + Prelude.True + Prelude.True) + "TsRange" + buildMessage + = \ _x + -> (Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"fieldName") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + (Lens.Family2.view (Data.ProtoLens.Field.field @"lowerBound") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"lowerBoundInclusive") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Data.ProtoLens.Encoding.Bytes.signedInt64ToWord + (Lens.Family2.view (Data.ProtoLens.Field.field @"upperBound") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"upperBoundInclusive") _x))) + ((Data.Monoid.<>) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"desc") _x))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) +instance Control.DeepSeq.NFData TsRange where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsRange'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TsRange'fieldName x__) + (Control.DeepSeq.deepseq + (_TsRange'lowerBound x__) + (Control.DeepSeq.deepseq + (_TsRange'lowerBoundInclusive x__) + (Control.DeepSeq.deepseq + (_TsRange'upperBound x__) + (Control.DeepSeq.deepseq + (_TsRange'upperBoundInclusive x__) + (Control.DeepSeq.deepseq (_TsRange'desc x__) ())))))) +{- | Fields : + + * 'Proto.Riak_Fields.cells' @:: Lens' TsRow [TsCell]@ + * 'Proto.Riak_Fields.vec'cells' @:: Lens' TsRow (Data.Vector.Vector TsCell)@ -} +data TsRow + = TsRow'_constructor {_TsRow'cells :: !(Data.Vector.Vector TsCell), + _TsRow'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TsRow where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TsRow "cells" [TsCell] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsRow'cells (\ x__ y__ -> x__ {_TsRow'cells = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TsRow "vec'cells" (Data.Vector.Vector TsCell) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TsRow'cells (\ x__ y__ -> x__ {_TsRow'cells = y__})) + Prelude.id +instance Data.ProtoLens.Message TsRow where + messageName _ = Data.Text.pack "TsRow" + packedMessageDescriptor _ + = "\n\ + \\ENQTsRow\DC2\GS\n\ + \\ENQcells\CAN\SOH \ETX(\v2\a.TsCellR\ENQcells" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + cells__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cells" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TsCell) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"cells")) :: + Data.ProtoLens.FieldDescriptor TsRow + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, cells__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TsRow'_unknownFields + (\ x__ y__ -> x__ {_TsRow'_unknownFields = y__}) + defMessage + = TsRow'_constructor + {_TsRow'cells = Data.Vector.Generic.empty, + _TsRow'_unknownFields = []} + parseMessage + = let + loop :: + TsRow + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TsCell + -> Data.ProtoLens.Encoding.Bytes.Parser TsRow + loop x mutable'cells + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'cells <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'cells) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (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'cells") frozen'cells x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "cells" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'cells 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'cells + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'cells <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'cells) + "TsRow" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'cells") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData TsRow where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TsRow'_unknownFields x__) + (Control.DeepSeq.deepseq (_TsRow'cells x__) ()) +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\n\ + \riak.proto\"@\n\ + \\fRpbErrorResp\DC2\SYN\n\ + \\ACKerrmsg\CAN\SOH \STX(\fR\ACKerrmsg\DC2\CAN\n\ + \\aerrcode\CAN\STX \STX(\rR\aerrcode\"Q\n\ + \\DC4RpbGetServerInfoResp\DC2\DC2\n\ + \\EOTnode\CAN\SOH \SOH(\fR\EOTnode\DC2%\n\ + \\SOserver_version\CAN\STX \SOH(\fR\rserverVersion\"1\n\ + \\aRpbPair\DC2\DLE\n\ + \\ETXkey\CAN\SOH \STX(\fR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\fR\ENQvalue\"=\n\ + \\SIRpbGetBucketReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DC2\n\ + \\EOTtype\CAN\STX \SOH(\fR\EOTtype\"9\n\ + \\DLERpbGetBucketResp\DC2%\n\ + \\ENQprops\CAN\SOH \STX(\v2\SI.RpbBucketPropsR\ENQprops\"d\n\ + \\SIRpbSetBucketReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2%\n\ + \\ENQprops\CAN\STX \STX(\v2\SI.RpbBucketPropsR\ENQprops\DC2\DC2\n\ + \\EOTtype\CAN\ETX \SOH(\fR\EOTtype\"?\n\ + \\DC1RpbResetBucketReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DC2\n\ + \\EOTtype\CAN\STX \SOH(\fR\EOTtype\")\n\ + \\DC3RpbGetBucketTypeReq\DC2\DC2\n\ + \\EOTtype\CAN\SOH \STX(\fR\EOTtype\"P\n\ + \\DC3RpbSetBucketTypeReq\DC2\DC2\n\ + \\EOTtype\CAN\SOH \STX(\fR\EOTtype\DC2%\n\ + \\ENQprops\CAN\STX \STX(\v2\SI.RpbBucketPropsR\ENQprops\"?\n\ + \\tRpbModFun\DC2\SYN\n\ + \\ACKmodule\CAN\SOH \STX(\fR\ACKmodule\DC2\SUB\n\ + \\bfunction\CAN\STX \STX(\fR\bfunction\"G\n\ + \\rRpbCommitHook\DC2\"\n\ + \\ACKmodfun\CAN\SOH \SOH(\v2\n\ + \.RpbModFunR\ACKmodfun\DC2\DC2\n\ + \\EOTname\CAN\STX \SOH(\fR\EOTname\"\245\a\n\ + \\SORpbBucketProps\DC2\DC3\n\ + \\ENQn_val\CAN\SOH \SOH(\rR\EOTnVal\DC2\GS\n\ + \\n\ + \allow_mult\CAN\STX \SOH(\bR\tallowMult\DC2&\n\ + \\SIlast_write_wins\CAN\ETX \SOH(\bR\rlastWriteWins\DC2,\n\ + \\tprecommit\CAN\EOT \ETX(\v2\SO.RpbCommitHookR\tprecommit\DC2*\n\ + \\rhas_precommit\CAN\ENQ \SOH(\b:\ENQfalseR\fhasPrecommit\DC2.\n\ + \\n\ + \postcommit\CAN\ACK \ETX(\v2\SO.RpbCommitHookR\n\ + \postcommit\DC2,\n\ + \\SOhas_postcommit\CAN\a \SOH(\b:\ENQfalseR\rhasPostcommit\DC2-\n\ + \\fchash_keyfun\CAN\b \SOH(\v2\n\ + \.RpbModFunR\vchashKeyfun\DC2$\n\ + \\alinkfun\CAN\t \SOH(\v2\n\ + \.RpbModFunR\alinkfun\DC2\GS\n\ + \\n\ + \old_vclock\CAN\n\ + \ \SOH(\rR\toldVclock\DC2!\n\ + \\fyoung_vclock\CAN\v \SOH(\rR\vyoungVclock\DC2\GS\n\ + \\n\ + \big_vclock\CAN\f \SOH(\rR\tbigVclock\DC2!\n\ + \\fsmall_vclock\CAN\r \SOH(\rR\vsmallVclock\DC2\SO\n\ + \\STXpr\CAN\SO \SOH(\rR\STXpr\DC2\f\n\ + \\SOHr\CAN\SI \SOH(\rR\SOHr\DC2\f\n\ + \\SOHw\CAN\DLE \SOH(\rR\SOHw\DC2\SO\n\ + \\STXpw\CAN\DC1 \SOH(\rR\STXpw\DC2\SO\n\ + \\STXdw\CAN\DC2 \SOH(\rR\STXdw\DC2\SO\n\ + \\STXrw\CAN\DC3 \SOH(\rR\STXrw\DC2!\n\ + \\fbasic_quorum\CAN\DC4 \SOH(\bR\vbasicQuorum\DC2\US\n\ + \\vnotfound_ok\CAN\NAK \SOH(\bR\n\ + \notfoundOk\DC2\CAN\n\ + \\abackend\CAN\SYN \SOH(\fR\abackend\DC2\SYN\n\ + \\ACKsearch\CAN\ETB \SOH(\bR\ACKsearch\DC2/\n\ + \\EOTrepl\CAN\CAN \SOH(\SO2\ESC.RpbBucketProps.RpbReplModeR\EOTrepl\DC2!\n\ + \\fsearch_index\CAN\EM \SOH(\fR\vsearchIndex\DC2\SUB\n\ + \\bdatatype\CAN\SUB \SOH(\fR\bdatatype\DC2\RS\n\ + \\n\ + \consistent\CAN\ESC \SOH(\bR\n\ + \consistent\DC2\GS\n\ + \\n\ + \write_once\CAN\FS \SOH(\bR\twriteOnce\DC2#\n\ + \\rhll_precision\CAN\GS \SOH(\rR\fhllPrecision\DC2\DLE\n\ + \\ETXttl\CAN\RS \SOH(\rR\ETXttl\">\n\ + \\vRpbReplMode\DC2\t\n\ + \\ENQFALSE\DLE\NUL\DC2\f\n\ + \\bREALTIME\DLE\SOH\DC2\f\n\ + \\bFULLSYNC\DLE\STX\DC2\b\n\ + \\EOTTRUE\DLE\ETX\"<\n\ + \\n\ + \RpbAuthReq\DC2\DC2\n\ + \\EOTuser\CAN\SOH \STX(\fR\EOTuser\DC2\SUB\n\ + \\bpassword\CAN\STX \STX(\fR\bpassword\"\145\SOH\n\ + \\bMapField\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname\DC2*\n\ + \\EOTtype\CAN\STX \STX(\SO2\SYN.MapField.MapFieldTypeR\EOTtype\"E\n\ + \\fMapFieldType\DC2\v\n\ + \\aCOUNTER\DLE\SOH\DC2\a\n\ + \\ETXSET\DLE\STX\DC2\f\n\ + \\bREGISTER\DLE\ETX\DC2\b\n\ + \\EOTFLAG\DLE\EOT\DC2\a\n\ + \\ETXMAP\DLE\ENQ\"\219\SOH\n\ + \\bMapEntry\DC2\US\n\ + \\ENQfield\CAN\SOH \STX(\v2\t.MapFieldR\ENQfield\DC2#\n\ + \\rcounter_value\CAN\STX \SOH(\DC2R\fcounterValue\DC2\ESC\n\ + \\tset_value\CAN\ETX \ETX(\fR\bsetValue\DC2%\n\ + \\SOregister_value\CAN\EOT \SOH(\fR\rregisterValue\DC2\GS\n\ + \\n\ + \flag_value\CAN\ENQ \SOH(\bR\tflagValue\DC2&\n\ + \\tmap_value\CAN\ACK \ETX(\v2\t.MapEntryR\bmapValue\"\175\STX\n\ + \\n\ + \DtFetchReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\DC2\n\ + \\EOTtype\CAN\ETX \STX(\fR\EOTtype\DC2\f\n\ + \\SOHr\CAN\EOT \SOH(\rR\SOHr\DC2\SO\n\ + \\STXpr\CAN\ENQ \SOH(\rR\STXpr\DC2!\n\ + \\fbasic_quorum\CAN\ACK \SOH(\bR\vbasicQuorum\DC2\US\n\ + \\vnotfound_ok\CAN\a \SOH(\bR\n\ + \notfoundOk\DC2\CAN\n\ + \\atimeout\CAN\b \SOH(\rR\atimeout\DC2#\n\ + \\rsloppy_quorum\CAN\t \SOH(\bR\fsloppyQuorum\DC2\DC3\n\ + \\ENQn_val\CAN\n\ + \ \SOH(\rR\EOTnVal\DC2-\n\ + \\SIinclude_context\CAN\v \SOH(\b:\EOTtrueR\SOincludeContext\"\175\SOH\n\ + \\aDtValue\DC2#\n\ + \\rcounter_value\CAN\SOH \SOH(\DC2R\fcounterValue\DC2\ESC\n\ + \\tset_value\CAN\STX \ETX(\fR\bsetValue\DC2&\n\ + \\tmap_value\CAN\ETX \ETX(\v2\t.MapEntryR\bmapValue\DC2\ESC\n\ + \\thll_value\CAN\EOT \SOH(\EOTR\bhllValue\DC2\GS\n\ + \\n\ + \gset_value\CAN\ENQ \ETX(\fR\tgsetValue\"\176\SOH\n\ + \\vDtFetchResp\DC2\CAN\n\ + \\acontext\CAN\SOH \SOH(\fR\acontext\DC2)\n\ + \\EOTtype\CAN\STX \STX(\SO2\NAK.DtFetchResp.DataTypeR\EOTtype\DC2\RS\n\ + \\ENQvalue\CAN\ETX \SOH(\v2\b.DtValueR\ENQvalue\"<\n\ + \\bDataType\DC2\v\n\ + \\aCOUNTER\DLE\SOH\DC2\a\n\ + \\ETXSET\DLE\STX\DC2\a\n\ + \\ETXMAP\DLE\ETX\DC2\a\n\ + \\ETXHLL\DLE\EOT\DC2\b\n\ + \\EOTGSET\DLE\ENQ\")\n\ + \\tCounterOp\DC2\FS\n\ + \\tincrement\CAN\SOH \SOH(\DC2R\tincrement\"5\n\ + \\ENQSetOp\DC2\DC2\n\ + \\EOTadds\CAN\SOH \ETX(\fR\EOTadds\DC2\CAN\n\ + \\aremoves\CAN\STX \ETX(\fR\aremoves\"\FS\n\ + \\ACKGSetOp\DC2\DC2\n\ + \\EOTadds\CAN\SOH \ETX(\fR\EOTadds\"\ESC\n\ + \\ENQHllOp\DC2\DC2\n\ + \\EOTadds\CAN\SOH \ETX(\fR\EOTadds\"\133\STX\n\ + \\tMapUpdate\DC2\US\n\ + \\ENQfield\CAN\SOH \STX(\v2\t.MapFieldR\ENQfield\DC2)\n\ + \\n\ + \counter_op\CAN\STX \SOH(\v2\n\ + \.CounterOpR\tcounterOp\DC2\GS\n\ + \\ACKset_op\CAN\ETX \SOH(\v2\ACK.SetOpR\ENQsetOp\DC2\US\n\ + \\vregister_op\CAN\EOT \SOH(\fR\n\ + \registerOp\DC2*\n\ + \\aflag_op\CAN\ENQ \SOH(\SO2\DC1.MapUpdate.FlagOpR\ACKflagOp\DC2\GS\n\ + \\ACKmap_op\CAN\ACK \SOH(\v2\ACK.MapOpR\ENQmapOp\"!\n\ + \\ACKFlagOp\DC2\n\ + \\n\ + \\ACKENABLE\DLE\SOH\DC2\v\n\ + \\aDISABLE\DLE\STX\"R\n\ + \\ENQMapOp\DC2#\n\ + \\aremoves\CAN\SOH \ETX(\v2\t.MapFieldR\aremoves\DC2$\n\ + \\aupdates\CAN\STX \ETX(\v2\n\ + \.MapUpdateR\aupdates\"\176\SOH\n\ + \\EOTDtOp\DC2)\n\ + \\n\ + \counter_op\CAN\SOH \SOH(\v2\n\ + \.CounterOpR\tcounterOp\DC2\GS\n\ + \\ACKset_op\CAN\STX \SOH(\v2\ACK.SetOpR\ENQsetOp\DC2\GS\n\ + \\ACKmap_op\CAN\ETX \SOH(\v2\ACK.MapOpR\ENQmapOp\DC2\GS\n\ + \\ACKhll_op\CAN\EOT \SOH(\v2\ACK.HllOpR\ENQhllOp\DC2 \n\ + \\agset_op\CAN\ENQ \SOH(\v2\a.GSetOpR\ACKgsetOp\"\213\STX\n\ + \\vDtUpdateReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2\DC2\n\ + \\EOTtype\CAN\ETX \STX(\fR\EOTtype\DC2\CAN\n\ + \\acontext\CAN\EOT \SOH(\fR\acontext\DC2\NAK\n\ + \\STXop\CAN\ENQ \STX(\v2\ENQ.DtOpR\STXop\DC2\f\n\ + \\SOHw\CAN\ACK \SOH(\rR\SOHw\DC2\SO\n\ + \\STXdw\CAN\a \SOH(\rR\STXdw\DC2\SO\n\ + \\STXpw\CAN\b \SOH(\rR\STXpw\DC2&\n\ + \\vreturn_body\CAN\t \SOH(\b:\ENQfalseR\n\ + \returnBody\DC2\CAN\n\ + \\atimeout\CAN\n\ + \ \SOH(\rR\atimeout\DC2#\n\ + \\rsloppy_quorum\CAN\v \SOH(\bR\fsloppyQuorum\DC2\DC3\n\ + \\ENQn_val\CAN\f \SOH(\rR\EOTnVal\DC2-\n\ + \\SIinclude_context\CAN\r \SOH(\b:\EOTtrueR\SOincludeContext\"\224\SOH\n\ + \\fDtUpdateResp\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2\CAN\n\ + \\acontext\CAN\STX \SOH(\fR\acontext\DC2#\n\ + \\rcounter_value\CAN\ETX \SOH(\DC2R\fcounterValue\DC2\ESC\n\ + \\tset_value\CAN\EOT \ETX(\fR\bsetValue\DC2&\n\ + \\tmap_value\CAN\ENQ \ETX(\v2\t.MapEntryR\bmapValue\DC2\ESC\n\ + \\thll_value\CAN\ACK \SOH(\EOTR\bhllValue\DC2\GS\n\ + \\n\ + \gset_value\CAN\a \ETX(\fR\tgsetValue\"\r\n\ + \\vRpbAuthResp\"\f\n\ + \\n\ + \RpbDelResp\"\DC3\n\ + \\DC1RpbGetClientIdReq\"\NAK\n\ + \\DC3RpbGetServerInfoReq\"\f\n\ + \\n\ + \RpbPingReq\"\r\n\ + \\vRpbPingResp\"\DC4\n\ + \\DC2RpbResetBucketResp\"\DC2\n\ + \\DLERpbSetBucketResp\"1\n\ + \\DC2RpbGetClientIdResp\DC2\ESC\n\ + \\tclient_id\CAN\SOH \STX(\fR\bclientId\"0\n\ + \\DC1RpbSetClientIdReq\DC2\ESC\n\ + \\tclient_id\CAN\SOH \STX(\fR\bclientId\"\218\STX\n\ + \\tRpbGetReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\f\n\ + \\SOHr\CAN\ETX \SOH(\rR\SOHr\DC2\SO\n\ + \\STXpr\CAN\EOT \SOH(\rR\STXpr\DC2!\n\ + \\fbasic_quorum\CAN\ENQ \SOH(\bR\vbasicQuorum\DC2\US\n\ + \\vnotfound_ok\CAN\ACK \SOH(\bR\n\ + \notfoundOk\DC2\US\n\ + \\vif_modified\CAN\a \SOH(\fR\n\ + \ifModified\DC2\DC2\n\ + \\EOThead\CAN\b \SOH(\bR\EOThead\DC2$\n\ + \\rdeletedvclock\CAN\t \SOH(\bR\rdeletedvclock\DC2\CAN\n\ + \\atimeout\CAN\n\ + \ \SOH(\rR\atimeout\DC2#\n\ + \\rsloppy_quorum\CAN\v \SOH(\bR\fsloppyQuorum\DC2\DC3\n\ + \\ENQn_val\CAN\f \SOH(\rR\EOTnVal\DC2\DC2\n\ + \\EOTtype\CAN\r \SOH(\fR\EOTtype\"i\n\ + \\n\ + \RpbGetResp\DC2%\n\ + \\acontent\CAN\SOH \ETX(\v2\v.RpbContentR\acontent\DC2\SYN\n\ + \\ACKvclock\CAN\STX \SOH(\fR\ACKvclock\DC2\FS\n\ + \\tunchanged\CAN\ETX \SOH(\bR\tunchanged\"\172\ETX\n\ + \\tRpbPutReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2\SYN\n\ + \\ACKvclock\CAN\ETX \SOH(\fR\ACKvclock\DC2%\n\ + \\acontent\CAN\EOT \STX(\v2\v.RpbContentR\acontent\DC2\f\n\ + \\SOHw\CAN\ENQ \SOH(\rR\SOHw\DC2\SO\n\ + \\STXdw\CAN\ACK \SOH(\rR\STXdw\DC2\US\n\ + \\vreturn_body\CAN\a \SOH(\bR\n\ + \returnBody\DC2\SO\n\ + \\STXpw\CAN\b \SOH(\rR\STXpw\DC2&\n\ + \\SIif_not_modified\CAN\t \SOH(\bR\rifNotModified\DC2\"\n\ + \\rif_none_match\CAN\n\ + \ \SOH(\bR\vifNoneMatch\DC2\US\n\ + \\vreturn_head\CAN\v \SOH(\bR\n\ + \returnHead\DC2\CAN\n\ + \\atimeout\CAN\f \SOH(\rR\atimeout\DC2\DC2\n\ + \\EOTasis\CAN\r \SOH(\bR\EOTasis\DC2#\n\ + \\rsloppy_quorum\CAN\SO \SOH(\bR\fsloppyQuorum\DC2\DC3\n\ + \\ENQn_val\CAN\SI \SOH(\rR\EOTnVal\DC2\DC2\n\ + \\EOTtype\CAN\DLE \SOH(\fR\EOTtype\"]\n\ + \\n\ + \RpbPutResp\DC2%\n\ + \\acontent\CAN\SOH \ETX(\v2\v.RpbContentR\acontent\DC2\SYN\n\ + \\ACKvclock\CAN\STX \SOH(\fR\ACKvclock\DC2\DLE\n\ + \\ETXkey\CAN\ETX \SOH(\fR\ETXkey\"\145\STX\n\ + \\tRpbDelReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\SO\n\ + \\STXrw\CAN\ETX \SOH(\rR\STXrw\DC2\SYN\n\ + \\ACKvclock\CAN\EOT \SOH(\fR\ACKvclock\DC2\f\n\ + \\SOHr\CAN\ENQ \SOH(\rR\SOHr\DC2\f\n\ + \\SOHw\CAN\ACK \SOH(\rR\SOHw\DC2\SO\n\ + \\STXpr\CAN\a \SOH(\rR\STXpr\DC2\SO\n\ + \\STXpw\CAN\b \SOH(\rR\STXpw\DC2\SO\n\ + \\STXdw\CAN\t \SOH(\rR\STXdw\DC2\CAN\n\ + \\atimeout\CAN\n\ + \ \SOH(\rR\atimeout\DC2#\n\ + \\rsloppy_quorum\CAN\v \SOH(\bR\fsloppyQuorum\DC2\DC3\n\ + \\ENQn_val\CAN\f \SOH(\rR\EOTnVal\DC2\DC2\n\ + \\EOTtype\CAN\r \SOH(\fR\EOTtype\"Y\n\ + \\DC1RpbListBucketsReq\DC2\CAN\n\ + \\atimeout\CAN\SOH \SOH(\rR\atimeout\DC2\SYN\n\ + \\ACKstream\CAN\STX \SOH(\bR\ACKstream\DC2\DC2\n\ + \\EOTtype\CAN\ETX \SOH(\fR\EOTtype\"B\n\ + \\DC2RpbListBucketsResp\DC2\CAN\n\ + \\abuckets\CAN\SOH \ETX(\fR\abuckets\DC2\DC2\n\ + \\EOTdone\CAN\STX \SOH(\bR\EOTdone\"V\n\ + \\SORpbListKeysReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\CAN\n\ + \\atimeout\CAN\STX \SOH(\rR\atimeout\DC2\DC2\n\ + \\EOTtype\CAN\ETX \SOH(\fR\EOTtype\"9\n\ + \\SIRpbListKeysResp\DC2\DC2\n\ + \\EOTkeys\CAN\SOH \ETX(\fR\EOTkeys\DC2\DC2\n\ + \\EOTdone\CAN\STX \SOH(\bR\EOTdone\"K\n\ + \\fRpbMapRedReq\DC2\CAN\n\ + \\arequest\CAN\SOH \STX(\fR\arequest\DC2!\n\ + \\fcontent_type\CAN\STX \STX(\fR\vcontentType\"U\n\ + \\rRpbMapRedResp\DC2\DC4\n\ + \\ENQphase\CAN\SOH \SOH(\rR\ENQphase\DC2\SUB\n\ + \\bresponse\CAN\STX \SOH(\fR\bresponse\DC2\DC2\n\ + \\EOTdone\CAN\ETX \SOH(\bR\EOTdone\"\155\EOT\n\ + \\vRpbIndexReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DC4\n\ + \\ENQindex\CAN\STX \STX(\fR\ENQindex\DC21\n\ + \\ENQqtype\CAN\ETX \STX(\SO2\ESC.RpbIndexReq.IndexQueryTypeR\ENQqtype\DC2\DLE\n\ + \\ETXkey\CAN\EOT \SOH(\fR\ETXkey\DC2\ESC\n\ + \\trange_min\CAN\ENQ \SOH(\fR\brangeMin\DC2\ESC\n\ + \\trange_max\CAN\ACK \SOH(\fR\brangeMax\DC2!\n\ + \\freturn_terms\CAN\a \SOH(\bR\vreturnTerms\DC2\SYN\n\ + \\ACKstream\CAN\b \SOH(\bR\ACKstream\DC2\US\n\ + \\vmax_results\CAN\t \SOH(\rR\n\ + \maxResults\DC2\"\n\ + \\fcontinuation\CAN\n\ + \ \SOH(\fR\fcontinuation\DC2\CAN\n\ + \\atimeout\CAN\v \SOH(\rR\atimeout\DC2\DC2\n\ + \\EOTtype\CAN\f \SOH(\fR\EOTtype\DC2\GS\n\ + \\n\ + \term_regex\CAN\r \SOH(\fR\ttermRegex\DC2'\n\ + \\SIpagination_sort\CAN\SO \SOH(\bR\SOpaginationSort\DC2#\n\ + \\rcover_context\CAN\SI \SOH(\fR\fcoverContext\DC2\US\n\ + \\vreturn_body\CAN\DLE \SOH(\bR\n\ + \returnBody\"#\n\ + \\SOIndexQueryType\DC2\ACK\n\ + \\STXeq\DLE\NUL\DC2\t\n\ + \\ENQrange\DLE\SOH\"~\n\ + \\fRpbIndexResp\DC2\DC2\n\ + \\EOTkeys\CAN\SOH \ETX(\fR\EOTkeys\DC2\"\n\ + \\aresults\CAN\STX \ETX(\v2\b.RpbPairR\aresults\DC2\"\n\ + \\fcontinuation\CAN\ETX \SOH(\fR\fcontinuation\DC2\DC2\n\ + \\EOTdone\CAN\EOT \SOH(\bR\EOTdone\"u\n\ + \\DLERpbIndexBodyResp\DC2)\n\ + \\aobjects\CAN\SOH \ETX(\v2\SI.RpbIndexObjectR\aobjects\DC2\"\n\ + \\fcontinuation\CAN\STX \SOH(\fR\fcontinuation\DC2\DC2\n\ + \\EOTdone\CAN\ETX \SOH(\bR\EOTdone\"\189\STX\n\ + \\SORpbCSBucketReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\ESC\n\ + \\tstart_key\CAN\STX \STX(\fR\bstartKey\DC2\ETB\n\ + \\aend_key\CAN\ETX \SOH(\fR\ACKendKey\DC2#\n\ + \\n\ + \start_incl\CAN\EOT \SOH(\b:\EOTtrueR\tstartIncl\DC2 \n\ + \\bend_incl\CAN\ENQ \SOH(\b:\ENQfalseR\aendIncl\DC2\"\n\ + \\fcontinuation\CAN\ACK \SOH(\fR\fcontinuation\DC2\US\n\ + \\vmax_results\CAN\a \SOH(\rR\n\ + \maxResults\DC2\CAN\n\ + \\atimeout\CAN\b \SOH(\rR\atimeout\DC2\DC2\n\ + \\EOTtype\CAN\t \SOH(\fR\EOTtype\DC2#\n\ + \\rcover_context\CAN\n\ + \ \SOH(\fR\fcoverContext\"t\n\ + \\SIRpbCSBucketResp\DC2)\n\ + \\aobjects\CAN\SOH \ETX(\v2\SI.RpbIndexObjectR\aobjects\DC2\"\n\ + \\fcontinuation\CAN\STX \SOH(\fR\fcontinuation\DC2\DC2\n\ + \\EOTdone\CAN\ETX \SOH(\bR\EOTdone\"G\n\ + \\SORpbIndexObject\DC2\DLE\n\ + \\ETXkey\CAN\SOH \STX(\fR\ETXkey\DC2#\n\ + \\ACKobject\CAN\STX \STX(\v2\v.RpbGetRespR\ACKobject\"\245\STX\n\ + \\n\ + \RpbContent\DC2\DC4\n\ + \\ENQvalue\CAN\SOH \STX(\fR\ENQvalue\DC2!\n\ + \\fcontent_type\CAN\STX \SOH(\fR\vcontentType\DC2\CAN\n\ + \\acharset\CAN\ETX \SOH(\fR\acharset\DC2)\n\ + \\DLEcontent_encoding\CAN\EOT \SOH(\fR\SIcontentEncoding\DC2\DC2\n\ + \\EOTvtag\CAN\ENQ \SOH(\fR\EOTvtag\DC2\RS\n\ + \\ENQlinks\CAN\ACK \ETX(\v2\b.RpbLinkR\ENQlinks\DC2\EM\n\ + \\blast_mod\CAN\a \SOH(\rR\alastMod\DC2$\n\ + \\SOlast_mod_usecs\CAN\b \SOH(\rR\flastModUsecs\DC2$\n\ + \\busermeta\CAN\t \ETX(\v2\b.RpbPairR\busermeta\DC2\"\n\ + \\aindexes\CAN\n\ + \ \ETX(\v2\b.RpbPairR\aindexes\DC2\CAN\n\ + \\adeleted\CAN\v \SOH(\bR\adeleted\DC2\DLE\n\ + \\ETXttl\CAN\f \SOH(\rR\ETXttl\"E\n\ + \\aRpbLink\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \SOH(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2\DLE\n\ + \\ETXtag\CAN\ETX \SOH(\fR\ETXtag\"\167\SOH\n\ + \\DC3RpbCounterUpdateReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\SYN\n\ + \\ACKamount\CAN\ETX \STX(\DC2R\ACKamount\DC2\f\n\ + \\SOHw\CAN\EOT \SOH(\rR\SOHw\DC2\SO\n\ + \\STXdw\CAN\ENQ \SOH(\rR\STXdw\DC2\SO\n\ + \\STXpw\CAN\ACK \SOH(\rR\STXpw\DC2 \n\ + \\vreturnvalue\CAN\a \SOH(\bR\vreturnvalue\",\n\ + \\DC4RpbCounterUpdateResp\DC2\DC4\n\ + \\ENQvalue\CAN\SOH \SOH(\DC2R\ENQvalue\"\158\SOH\n\ + \\DLERpbCounterGetReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\f\n\ + \\SOHr\CAN\ETX \SOH(\rR\SOHr\DC2\SO\n\ + \\STXpr\CAN\EOT \SOH(\rR\STXpr\DC2!\n\ + \\fbasic_quorum\CAN\ENQ \SOH(\bR\vbasicQuorum\DC2\US\n\ + \\vnotfound_ok\CAN\ACK \SOH(\bR\n\ + \notfoundOk\")\n\ + \\DC1RpbCounterGetResp\DC2\DC4\n\ + \\ENQvalue\CAN\SOH \SOH(\DC2R\ENQvalue\"Z\n\ + \\SUBRpbGetBucketKeyPreflistReq\DC2\SYN\n\ + \\ACKbucket\CAN\SOH \STX(\fR\ACKbucket\DC2\DLE\n\ + \\ETXkey\CAN\STX \STX(\fR\ETXkey\DC2\DC2\n\ + \\EOTtype\CAN\ETX \SOH(\fR\EOTtype\"T\n\ + \\ESCRpbGetBucketKeyPreflistResp\DC25\n\ + \\bpreflist\CAN\SOH \ETX(\v2\EM.RpbBucketKeyPreflistItemR\bpreflist\"f\n\ + \\CANRpbBucketKeyPreflistItem\DC2\FS\n\ + \\tpartition\CAN\SOH \STX(\ETXR\tpartition\DC2\DC2\n\ + \\EOTnode\CAN\STX \STX(\fR\EOTnode\DC2\CAN\n\ + \\aprimary\CAN\ETX \STX(\bR\aprimary\"\181\SOH\n\ + \\SORpbCoverageReq\DC2\DC2\n\ + \\EOTtype\CAN\SOH \SOH(\fR\EOTtype\DC2\SYN\n\ + \\ACKbucket\CAN\STX \STX(\fR\ACKbucket\DC2%\n\ + \\SOmin_partitions\CAN\ETX \SOH(\rR\rminPartitions\DC2#\n\ + \\rreplace_cover\CAN\EOT \SOH(\fR\freplaceCover\DC2+\n\ + \\DC1unavailable_cover\CAN\ENQ \ETX(\fR\DLEunavailableCover\">\n\ + \\SIRpbCoverageResp\DC2+\n\ + \\aentries\CAN\SOH \ETX(\v2\DC1.RpbCoverageEntryR\aentries\"\128\SOH\n\ + \\DLERpbCoverageEntry\DC2\SO\n\ + \\STXip\CAN\SOH \STX(\fR\STXip\DC2\DC2\n\ + \\EOTport\CAN\STX \STX(\rR\EOTport\DC2#\n\ + \\rkeyspace_desc\CAN\ETX \SOH(\fR\fkeyspaceDesc\DC2#\n\ + \\rcover_context\CAN\EOT \STX(\fR\fcoverContext\"0\n\ + \\fRpbSearchDoc\DC2 \n\ + \\ACKfields\CAN\SOH \ETX(\v2\b.RpbPairR\ACKfields\"\215\SOH\n\ + \\DC1RpbSearchQueryReq\DC2\f\n\ + \\SOHq\CAN\SOH \STX(\fR\SOHq\DC2\DC4\n\ + \\ENQindex\CAN\STX \STX(\fR\ENQindex\DC2\DC2\n\ + \\EOTrows\CAN\ETX \SOH(\rR\EOTrows\DC2\DC4\n\ + \\ENQstart\CAN\EOT \SOH(\rR\ENQstart\DC2\DC2\n\ + \\EOTsort\CAN\ENQ \SOH(\fR\EOTsort\DC2\SYN\n\ + \\ACKfilter\CAN\ACK \SOH(\fR\ACKfilter\DC2\SO\n\ + \\STXdf\CAN\a \SOH(\fR\STXdf\DC2\SO\n\ + \\STXop\CAN\b \SOH(\fR\STXop\DC2\SO\n\ + \\STXfl\CAN\t \ETX(\fR\STXfl\DC2\CAN\n\ + \\apresort\CAN\n\ + \ \SOH(\fR\apresort\"q\n\ + \\DC2RpbSearchQueryResp\DC2!\n\ + \\EOTdocs\CAN\SOH \ETX(\v2\r.RpbSearchDocR\EOTdocs\DC2\ESC\n\ + \\tmax_score\CAN\STX \SOH(\STXR\bmaxScore\DC2\ESC\n\ + \\tnum_found\CAN\ETX \SOH(\rR\bnumFound\"x\n\ + \\n\ + \TsQueryReq\DC2&\n\ + \\ENQquery\CAN\SOH \SOH(\v2\DLE.TsInterpolationR\ENQquery\DC2\GS\n\ + \\ACKstream\CAN\STX \SOH(\b:\ENQfalseR\ACKstream\DC2#\n\ + \\rcover_context\CAN\ETX \SOH(\fR\fcoverContext\"s\n\ + \\vTsQueryResp\DC2.\n\ + \\acolumns\CAN\SOH \ETX(\v2\DC4.TsColumnDescriptionR\acolumns\DC2\SUB\n\ + \\EOTrows\CAN\STX \ETX(\v2\ACK.TsRowR\EOTrows\DC2\CAN\n\ + \\EOTdone\CAN\ETX \SOH(\b:\EOTtrueR\EOTdone\"U\n\ + \\bTsGetReq\DC2\DC4\n\ + \\ENQtable\CAN\SOH \STX(\fR\ENQtable\DC2\EM\n\ + \\ETXkey\CAN\STX \ETX(\v2\a.TsCellR\ETXkey\DC2\CAN\n\ + \\atimeout\CAN\ETX \SOH(\rR\atimeout\"W\n\ + \\tTsGetResp\DC2.\n\ + \\acolumns\CAN\SOH \ETX(\v2\DC4.TsColumnDescriptionR\acolumns\DC2\SUB\n\ + \\EOTrows\CAN\STX \ETX(\v2\ACK.TsRowR\EOTrows\"l\n\ + \\bTsPutReq\DC2\DC4\n\ + \\ENQtable\CAN\SOH \STX(\fR\ENQtable\DC2.\n\ + \\acolumns\CAN\STX \ETX(\v2\DC4.TsColumnDescriptionR\acolumns\DC2\SUB\n\ + \\EOTrows\CAN\ETX \ETX(\v2\ACK.TsRowR\EOTrows\"\v\n\ + \\tTsPutResp\"m\n\ + \\bTsDelReq\DC2\DC4\n\ + \\ENQtable\CAN\SOH \STX(\fR\ENQtable\DC2\EM\n\ + \\ETXkey\CAN\STX \ETX(\v2\a.TsCellR\ETXkey\DC2\SYN\n\ + \\ACKvclock\CAN\ETX \SOH(\fR\ACKvclock\DC2\CAN\n\ + \\atimeout\CAN\EOT \SOH(\rR\atimeout\"\v\n\ + \\tTsDelResp\"W\n\ + \\SITsInterpolation\DC2\DC2\n\ + \\EOTbase\CAN\SOH \STX(\fR\EOTbase\DC20\n\ + \\SOinterpolations\CAN\STX \ETX(\v2\b.RpbPairR\SOinterpolations\"L\n\ + \\DC3TsColumnDescription\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname\DC2!\n\ + \\EOTtype\CAN\STX \STX(\SO2\r.TsColumnTypeR\EOTtype\"&\n\ + \\ENQTsRow\DC2\GS\n\ + \\ENQcells\CAN\SOH \ETX(\v2\a.TsCellR\ENQcells\"\193\SOH\n\ + \\ACKTsCell\DC2#\n\ + \\rvarchar_value\CAN\SOH \SOH(\fR\fvarcharValue\DC2!\n\ + \\fsint64_value\CAN\STX \SOH(\DC2R\vsint64Value\DC2'\n\ + \\SItimestamp_value\CAN\ETX \SOH(\DC2R\SOtimestampValue\DC2#\n\ + \\rboolean_value\CAN\EOT \SOH(\bR\fbooleanValue\DC2!\n\ + \\fdouble_value\CAN\ENQ \SOH(\SOHR\vdoubleValue\"?\n\ + \\rTsListKeysReq\DC2\DC4\n\ + \\ENQtable\CAN\SOH \STX(\fR\ENQtable\DC2\CAN\n\ + \\atimeout\CAN\STX \SOH(\rR\atimeout\"@\n\ + \\SOTsListKeysResp\DC2\SUB\n\ + \\EOTkeys\CAN\SOH \ETX(\v2\ACK.TsRowR\EOTkeys\DC2\DC2\n\ + \\EOTdone\CAN\STX \SOH(\bR\EOTdone\"\159\SOH\n\ + \\rTsCoverageReq\DC2&\n\ + \\ENQquery\CAN\SOH \SOH(\v2\DLE.TsInterpolationR\ENQquery\DC2\DC4\n\ + \\ENQtable\CAN\STX \STX(\fR\ENQtable\DC2#\n\ + \\rreplace_cover\CAN\ETX \SOH(\fR\freplaceCover\DC2+\n\ + \\DC1unavailable_cover\CAN\EOT \ETX(\fR\DLEunavailableCover\"<\n\ + \\SOTsCoverageResp\DC2*\n\ + \\aentries\CAN\SOH \ETX(\v2\DLE.TsCoverageEntryR\aentries\"z\n\ + \\SITsCoverageEntry\DC2\SO\n\ + \\STXip\CAN\SOH \STX(\fR\STXip\DC2\DC2\n\ + \\EOTport\CAN\STX \STX(\rR\EOTport\DC2#\n\ + \\rcover_context\CAN\ETX \STX(\fR\fcoverContext\DC2\RS\n\ + \\ENQrange\CAN\EOT \SOH(\v2\b.TsRangeR\ENQrange\"\230\SOH\n\ + \\aTsRange\DC2\GS\n\ + \\n\ + \field_name\CAN\SOH \STX(\fR\tfieldName\DC2\US\n\ + \\vlower_bound\CAN\STX \STX(\DC2R\n\ + \lowerBound\DC22\n\ + \\NAKlower_bound_inclusive\CAN\ETX \STX(\bR\DC3lowerBoundInclusive\DC2\US\n\ + \\vupper_bound\CAN\EOT \STX(\DC2R\n\ + \upperBound\DC22\n\ + \\NAKupper_bound_inclusive\CAN\ENQ \STX(\bR\DC3upperBoundInclusive\DC2\DC2\n\ + \\EOTdesc\CAN\ACK \STX(\fR\EOTdesc\"S\n\ + \\DLERpbYokozunaIndex\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname\DC2\SYN\n\ + \\ACKschema\CAN\STX \SOH(\fR\ACKschema\DC2\DC3\n\ + \\ENQn_val\CAN\ETX \SOH(\rR\EOTnVal\",\n\ + \\SYNRpbYokozunaIndexGetReq\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\fR\EOTname\"B\n\ + \\ETBRpbYokozunaIndexGetResp\DC2'\n\ + \\ENQindex\CAN\SOH \ETX(\v2\DC1.RpbYokozunaIndexR\ENQindex\"[\n\ + \\SYNRpbYokozunaIndexPutReq\DC2'\n\ + \\ENQindex\CAN\SOH \STX(\v2\DC1.RpbYokozunaIndexR\ENQindex\DC2\CAN\n\ + \\atimeout\CAN\STX \SOH(\rR\atimeout\"/\n\ + \\EMRpbYokozunaIndexDeleteReq\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname\"A\n\ + \\DC1RpbYokozunaSchema\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname\DC2\CAN\n\ + \\acontent\CAN\STX \SOH(\fR\acontent\"E\n\ + \\ETBRpbYokozunaSchemaPutReq\DC2*\n\ + \\ACKschema\CAN\SOH \STX(\v2\DC2.RpbYokozunaSchemaR\ACKschema\"-\n\ + \\ETBRpbYokozunaSchemaGetReq\DC2\DC2\n\ + \\EOTname\CAN\SOH \STX(\fR\EOTname\"F\n\ + \\CANRpbYokozunaSchemaGetResp\DC2*\n\ + \\ACKschema\CAN\SOH \STX(\v2\DC2.RpbYokozunaSchemaR\ACKschema*Y\n\ + \\fTsColumnType\DC2\v\n\ + \\aVARCHAR\DLE\NUL\DC2\n\ + \\n\ + \\ACKSINT64\DLE\SOH\DC2\n\ + \\n\ + \\ACKDOUBLE\DLE\STX\DC2\r\n\ + \\tTIMESTAMP\DLE\ETX\DC2\v\n\ + \\aBOOLEAN\DLE\EOT\DC2\b\n\ + \\EOTBLOB\DLE\ENQJ\249\188\STX\n\ + \\a\DC2\ENQ\NUL\NUL\246\a\SOH\n\ + \\199\ETX\n\ + \\SOH\f\DC2\ETX\NUL\NUL\DC2\"\188\ETX -------------------------------------------------------------------\n\ + \ riak.proto: Protocol buffers for Riak\n\ + \ -------------------------------------------------------------------\n\ + \\n\ + \ NOTE: IMPORTANT\n\ + \ Any change to the definitions in this file REQUIRES the following\n\ + \ steps after:\n\ + \\n\ + \ # Re-generate erlang source from changed .proto files:\n\ + \ make erl_protogen\n\ + \\n\ + \ # Commit changed files:\n\ + \ git add -A; git commit -m 'Update erlang code from .proto files'\n\ + \\n\ + \\177\SOH\n\ + \\STX\EOT\NUL\DC2\EOT\NAK\NUL\CAN\SOH\SUB/ Error response - may be generated for any Req\n\ + \2t Java package specifiers\n\ + \ option java_package = \"com.basho.riak.protobuf\";\n\ + \ option java_outer_classname = \"RiakPB\";\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\NAK\b\DC4\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SYN\EOT\RS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\EOT\DC2\ETX\SYN\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\SYN\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SYN\DC3\EM\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SYN\FS\GS\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\SOH\DC2\ETX\ETB\EOT \n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\EOT\DC2\ETX\ETB\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\ETB\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\ETB\DC4\ESC\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\ETB\RS\US\n\ + \f\n\ + \\STX\EOT\SOH\DC2\EOT\ESC\NUL\RS\SOH\SUBZ Get server info request - no message defined, just send RpbGetServerInfoReq message code\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX\ESC\b\FS\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX\FS\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX\FS\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\FS\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\FS\DC3\ETB\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\FS\SUB\ESC\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\SOH\DC2\ETX\GS\EOT&\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\EOT\DC2\ETX\GS\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\GS\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\GS\DC3!\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\GS$%\n\ + \Q\n\ + \\STX\EOT\STX\DC2\EOT!\NUL$\SOH\SUBE Key/value pair - used for user metadata, indexes, search doc fields\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX!\b\SI\n\ + \\v\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX\"\EOT\ESC\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\EOT\DC2\ETX\"\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\"\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\"\DC3\SYN\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\"\EM\SUB\n\ + \\v\n\ + \\EOT\EOT\STX\STX\SOH\DC2\ETX#\EOT\GS\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\EOT\DC2\ETX#\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX#\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX#\DC3\CAN\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX#\ESC\FS\n\ + \+\n\ + \\STX\EOT\ETX\DC2\EOT(\NUL+\SOH\SUB\US Get bucket properties request\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETX(\b\ETB\n\ + \\v\n\ + \\EOT\EOT\ETX\STX\NUL\DC2\ETX)\EOT\RS\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETX)\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX)\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX)\DC3\EM\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX)\FS\GS\n\ + \\v\n\ + \\EOT\EOT\ETX\STX\SOH\DC2\ETX*\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\EOT\DC2\ETX*\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX*\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX*\DC3\ETB\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX*\SUB\ESC\n\ + \,\n\ + \\STX\EOT\EOT\DC2\EOT.\NUL0\SOH\SUB Get bucket properties response\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\EOT\SOH\DC2\ETX.\b\CAN\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\ETX/\EOT&\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\EOT\DC2\ETX/\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX/\r\ESC\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX/\FS!\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX/$%\n\ + \+\n\ + \\STX\EOT\ENQ\DC2\EOT3\NUL7\SOH\SUB\US Set bucket properties request\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ENQ\SOH\DC2\ETX3\b\ETB\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\NUL\DC2\ETX4\EOT\RS\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\EOT\DC2\ETX4\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX4\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX4\DC3\EM\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX4\FS\GS\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\SOH\DC2\ETX5\EOT&\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\EOT\DC2\ETX5\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX5\r\ESC\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX5\FS!\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX5$%\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\STX\DC2\ETX6\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\STX\EOT\DC2\ETX6\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\ETX6\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETX6\DC3\ETB\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETX6\SUB\ESC\n\ + \\129\SOH\n\ + \\STX\EOT\ACK\DC2\EOT=\NUL@\SOH\SUB! Reset bucket properties request\n\ + \2R Set bucket properties response - no message defined, just send\n\ + \ RpbSetBucketResp\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ACK\SOH\DC2\ETX=\b\EM\n\ + \\v\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\ETX>\EOT\RS\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\EOT\DC2\ETX>\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX>\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX>\DC3\EM\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX>\FS\GS\n\ + \\v\n\ + \\EOT\EOT\ACK\STX\SOH\DC2\ETX?\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\EOT\DC2\ETX?\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETX?\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX?\DC3\ETB\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX?\SUB\ESC\n\ + \+\n\ + \\STX\EOT\a\DC2\EOTC\NULE\SOH\SUB\US Get bucket properties request\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\a\SOH\DC2\ETXC\b\ESC\n\ + \\v\n\ + \\EOT\EOT\a\STX\NUL\DC2\ETXD\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\EOT\DC2\ETXD\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXD\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXD\DC3\ETB\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXD\SUB\ESC\n\ + \+\n\ + \\STX\EOT\b\DC2\EOTH\NULK\SOH\SUB\US Set bucket properties request\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\b\SOH\DC2\ETXH\b\ESC\n\ + \\v\n\ + \\EOT\EOT\b\STX\NUL\DC2\ETXI\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\EOT\DC2\ETXI\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETXI\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXI\DC3\ETB\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXI\SUB\ESC\n\ + \\v\n\ + \\EOT\EOT\b\STX\SOH\DC2\ETXJ\EOT&\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\EOT\DC2\ETXJ\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXJ\r\ESC\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXJ\FS!\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXJ$%\n\ + \\185\SOH\n\ + \\STX\EOT\t\DC2\EOTR\NULU\SOH\SUBY Module-Function pairs for commit hooks and other bucket properties\n\ + \ that take functions\n\ + \2R Set bucket properties response - no message defined, just send\n\ + \ RpbSetBucketResp\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\t\SOH\DC2\ETXR\b\DC1\n\ + \\v\n\ + \\EOT\EOT\t\STX\NUL\DC2\ETXS\EOT\RS\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXS\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ENQ\DC2\ETXS\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXS\DC3\EM\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXS\FS\GS\n\ + \\v\n\ + \\EOT\EOT\t\STX\SOH\DC2\ETXT\EOT \n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\EOT\DC2\ETXT\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\ENQ\DC2\ETXT\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXT\DC3\ESC\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXT\RS\US\n\ + \Y\n\ + \\STX\EOT\n\ + \\DC2\EOTY\NUL\\\SOH\SUBM A commit hook, which may either be a modfun or a JavaScript named\n\ + \ function\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\n\ + \\SOH\DC2\ETXY\b\NAK\n\ + \\v\n\ + \\EOT\EOT\n\ + \\STX\NUL\DC2\ETXZ\EOT\"\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\EOT\DC2\ETXZ\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ACK\DC2\ETXZ\r\SYN\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\SOH\DC2\ETXZ\ETB\GS\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ETX\DC2\ETXZ !\n\ + \\v\n\ + \\EOT\EOT\n\ + \\STX\SOH\DC2\ETX[\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\EOT\DC2\ETX[\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\ENQ\DC2\ETX[\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\SOH\DC2\ETX[\DC3\ETB\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\ETX\DC2\ETX[\SUB\ESC\n\ + \ \n\ + \\STX\EOT\v\DC2\ENQ_\NUL\153\SOH\SOH\SUB\DC3 Bucket properties\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\v\SOH\DC2\ETX_\b\SYN\n\ + \(\n\ + \\EOT\EOT\v\STX\NUL\DC2\ETXa\EOT\RS\SUB\ESC Declared in riak_core_app\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\EOT\DC2\ETXa\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ENQ\DC2\ETXa\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXa\DC4\EM\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXa\FS\GS\n\ + \\v\n\ + \\EOT\EOT\v\STX\SOH\DC2\ETXb\EOT!\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\EOT\DC2\ETXb\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\ENQ\DC2\ETXb\r\DC1\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXb\DC2\FS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXb\US \n\ + \\v\n\ + \\EOT\EOT\v\STX\STX\DC2\ETXc\EOT&\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\EOT\DC2\ETXc\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\ENQ\DC2\ETXc\r\DC1\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\SOH\DC2\ETXc\DC2!\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\ETX\DC2\ETXc$%\n\ + \\v\n\ + \\EOT\EOT\v\STX\ETX\DC2\ETXd\EOT)\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\EOT\DC2\ETXd\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\ACK\DC2\ETXd\r\SUB\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\SOH\DC2\ETXd\ESC$\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\ETX\DC2\ETXd'(\n\ + \\v\n\ + \\EOT\EOT\v\STX\EOT\DC2\ETXe\EOT6\n\ + \\f\n\ + \\ENQ\EOT\v\STX\EOT\EOT\DC2\ETXe\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\EOT\ENQ\DC2\ETXe\r\DC1\n\ + \\f\n\ + \\ENQ\EOT\v\STX\EOT\SOH\DC2\ETXe\DC2\US\n\ + \\f\n\ + \\ENQ\EOT\v\STX\EOT\ETX\DC2\ETXe\"#\n\ + \\f\n\ + \\ENQ\EOT\v\STX\EOT\b\DC2\ETXe$5\n\ + \\f\n\ + \\ENQ\EOT\v\STX\EOT\a\DC2\ETXe/4\n\ + \\v\n\ + \\EOT\EOT\v\STX\ENQ\DC2\ETXf\EOT*\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ENQ\EOT\DC2\ETXf\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ENQ\ACK\DC2\ETXf\r\SUB\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ENQ\SOH\DC2\ETXf\ESC%\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ENQ\ETX\DC2\ETXf()\n\ + \\v\n\ + \\EOT\EOT\v\STX\ACK\DC2\ETXg\EOT7\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ACK\EOT\DC2\ETXg\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ACK\ENQ\DC2\ETXg\r\DC1\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ACK\SOH\DC2\ETXg\DC2 \n\ + \\f\n\ + \\ENQ\EOT\v\STX\ACK\ETX\DC2\ETXg#$\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ACK\b\DC2\ETXg%6\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ACK\a\DC2\ETXg05\n\ + \\v\n\ + \\EOT\EOT\v\STX\a\DC2\ETXh\EOT(\n\ + \\f\n\ + \\ENQ\EOT\v\STX\a\EOT\DC2\ETXh\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\a\ACK\DC2\ETXh\r\SYN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\a\SOH\DC2\ETXh\ETB#\n\ + \\f\n\ + \\ENQ\EOT\v\STX\a\ETX\DC2\ETXh&'\n\ + \&\n\ + \\EOT\EOT\v\STX\b\DC2\ETXk\EOT#\SUB\EM Declared in riak_kv_app\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\b\EOT\DC2\ETXk\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\b\ACK\DC2\ETXk\r\SYN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\b\SOH\DC2\ETXk\ETB\RS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\b\ETX\DC2\ETXk!\"\n\ + \\v\n\ + \\EOT\EOT\v\STX\t\DC2\ETXl\EOT$\n\ + \\f\n\ + \\ENQ\EOT\v\STX\t\EOT\DC2\ETXl\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\t\ENQ\DC2\ETXl\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\t\SOH\DC2\ETXl\DC4\RS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\t\ETX\DC2\ETXl!#\n\ + \\v\n\ + \\EOT\EOT\v\STX\n\ + \\DC2\ETXm\EOT&\n\ + \\f\n\ + \\ENQ\EOT\v\STX\n\ + \\EOT\DC2\ETXm\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\n\ + \\ENQ\DC2\ETXm\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\n\ + \\SOH\DC2\ETXm\DC4 \n\ + \\f\n\ + \\ENQ\EOT\v\STX\n\ + \\ETX\DC2\ETXm#%\n\ + \\v\n\ + \\EOT\EOT\v\STX\v\DC2\ETXn\EOT$\n\ + \\f\n\ + \\ENQ\EOT\v\STX\v\EOT\DC2\ETXn\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\v\ENQ\DC2\ETXn\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\v\SOH\DC2\ETXn\DC4\RS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\v\ETX\DC2\ETXn!#\n\ + \\v\n\ + \\EOT\EOT\v\STX\f\DC2\ETXo\EOT&\n\ + \\f\n\ + \\ENQ\EOT\v\STX\f\EOT\DC2\ETXo\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\f\ENQ\DC2\ETXo\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\f\SOH\DC2\ETXo\DC4 \n\ + \\f\n\ + \\ENQ\EOT\v\STX\f\ETX\DC2\ETXo#%\n\ + \\v\n\ + \\EOT\EOT\v\STX\r\DC2\ETXp\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\r\EOT\DC2\ETXp\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\r\ENQ\DC2\ETXp\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\r\SOH\DC2\ETXp\DC4\SYN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\r\ETX\DC2\ETXp\EM\ESC\n\ + \\v\n\ + \\EOT\EOT\v\STX\SO\DC2\ETXq\EOT\ESC\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SO\EOT\DC2\ETXq\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SO\ENQ\DC2\ETXq\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SO\SOH\DC2\ETXq\DC4\NAK\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SO\ETX\DC2\ETXq\CAN\SUB\n\ + \\v\n\ + \\EOT\EOT\v\STX\SI\DC2\ETXr\EOT\ESC\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SI\EOT\DC2\ETXr\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SI\ENQ\DC2\ETXr\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SI\SOH\DC2\ETXr\DC4\NAK\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SI\ETX\DC2\ETXr\CAN\SUB\n\ + \\v\n\ + \\EOT\EOT\v\STX\DLE\DC2\ETXs\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DLE\EOT\DC2\ETXs\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DLE\ENQ\DC2\ETXs\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DLE\SOH\DC2\ETXs\DC4\SYN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DLE\ETX\DC2\ETXs\EM\ESC\n\ + \\v\n\ + \\EOT\EOT\v\STX\DC1\DC2\ETXt\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC1\EOT\DC2\ETXt\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC1\ENQ\DC2\ETXt\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC1\SOH\DC2\ETXt\DC4\SYN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC1\ETX\DC2\ETXt\EM\ESC\n\ + \\v\n\ + \\EOT\EOT\v\STX\DC2\DC2\ETXu\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC2\EOT\DC2\ETXu\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC2\ENQ\DC2\ETXu\r\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC2\SOH\DC2\ETXu\DC4\SYN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC2\ETX\DC2\ETXu\EM\ESC\n\ + \\v\n\ + \\EOT\EOT\v\STX\DC3\DC2\ETXv\EOT$\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC3\EOT\DC2\ETXv\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC3\ENQ\DC2\ETXv\r\DC1\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC3\SOH\DC2\ETXv\DC2\RS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC3\ETX\DC2\ETXv!#\n\ + \\v\n\ + \\EOT\EOT\v\STX\DC4\DC2\ETXw\EOT#\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC4\EOT\DC2\ETXw\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC4\ENQ\DC2\ETXw\r\DC1\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC4\SOH\DC2\ETXw\DC2\GS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\DC4\ETX\DC2\ETXw \"\n\ + \,\n\ + \\EOT\EOT\v\STX\NAK\DC2\ETXz\EOT \SUB\US Used by riak_kv_multi_backend\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NAK\EOT\DC2\ETXz\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NAK\ENQ\DC2\ETXz\r\DC2\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NAK\SOH\DC2\ETXz\DC3\SUB\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NAK\ETX\DC2\ETXz\GS\US\n\ + \/\n\ + \\EOT\EOT\v\STX\SYN\DC2\ETX}\EOT\RS\SUB\" Used by riak_search bucket fixup\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SYN\EOT\DC2\ETX}\EOT\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SYN\ENQ\DC2\ETX}\r\DC1\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SYN\SOH\DC2\ETX}\DC2\CAN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SYN\ETX\DC2\ETX}\ESC\GS\n\ + \0\n\ + \\EOT\EOT\v\EOT\NUL\DC2\ACK\128\SOH\EOT\133\SOH\ENQ\SUB Used by riak_repl bucket fixup\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\v\EOT\NUL\SOH\DC2\EOT\128\SOH\t\DC4\n\ + \\SO\n\ + \\ACK\EOT\v\EOT\NUL\STX\NUL\DC2\EOT\129\SOH\b\DC2\n\ + \\SI\n\ + \\a\EOT\v\EOT\NUL\STX\NUL\SOH\DC2\EOT\129\SOH\b\r\n\ + \\SI\n\ + \\a\EOT\v\EOT\NUL\STX\NUL\STX\DC2\EOT\129\SOH\DLE\DC1\n\ + \\SO\n\ + \\ACK\EOT\v\EOT\NUL\STX\SOH\DC2\EOT\130\SOH\b\NAK\n\ + \\SI\n\ + \\a\EOT\v\EOT\NUL\STX\SOH\SOH\DC2\EOT\130\SOH\b\DLE\n\ + \\SI\n\ + \\a\EOT\v\EOT\NUL\STX\SOH\STX\DC2\EOT\130\SOH\DC3\DC4\n\ + \\SO\n\ + \\ACK\EOT\v\EOT\NUL\STX\STX\DC2\EOT\131\SOH\b\NAK\n\ + \\SI\n\ + \\a\EOT\v\EOT\NUL\STX\STX\SOH\DC2\EOT\131\SOH\b\DLE\n\ + \\SI\n\ + \\a\EOT\v\EOT\NUL\STX\STX\STX\DC2\EOT\131\SOH\DC3\DC4\n\ + \\SO\n\ + \\ACK\EOT\v\EOT\NUL\STX\ETX\DC2\EOT\132\SOH\b\DC1\n\ + \\SI\n\ + \\a\EOT\v\EOT\NUL\STX\ETX\SOH\DC2\EOT\132\SOH\b\f\n\ + \\SI\n\ + \\a\EOT\v\EOT\NUL\STX\ETX\STX\DC2\EOT\132\SOH\SI\DLE\n\ + \\f\n\ + \\EOT\EOT\v\STX\ETB\DC2\EOT\134\SOH\EOT#\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ETB\EOT\DC2\EOT\134\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ETB\ACK\DC2\EOT\134\SOH\r\CAN\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ETB\SOH\DC2\EOT\134\SOH\EM\GS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ETB\ETX\DC2\EOT\134\SOH \"\n\ + \\FS\n\ + \\EOT\EOT\v\STX\CAN\DC2\EOT\137\SOH\EOT%\SUB\SO Search index\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\v\STX\CAN\EOT\DC2\EOT\137\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\v\STX\CAN\ENQ\DC2\EOT\137\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\v\STX\CAN\SOH\DC2\EOT\137\SOH\DC3\US\n\ + \\r\n\ + \\ENQ\EOT\v\STX\CAN\ETX\DC2\EOT\137\SOH\"$\n\ + \\FS\n\ + \\EOT\EOT\v\STX\EM\DC2\EOT\140\SOH\EOT!\SUB\SO KV Datatypes\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\v\STX\EM\EOT\DC2\EOT\140\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\v\STX\EM\ENQ\DC2\EOT\140\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\v\STX\EM\SOH\DC2\EOT\140\SOH\DC3\ESC\n\ + \\r\n\ + \\ENQ\EOT\v\STX\EM\ETX\DC2\EOT\140\SOH\RS \n\ + \%\n\ + \\EOT\EOT\v\STX\SUB\DC2\EOT\143\SOH\EOT\"\SUB\ETB KV strong consistency\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SUB\EOT\DC2\EOT\143\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SUB\ENQ\DC2\EOT\143\SOH\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SUB\SOH\DC2\EOT\143\SOH\DC2\FS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SUB\ETX\DC2\EOT\143\SOH\US!\n\ + \\FS\n\ + \\EOT\EOT\v\STX\ESC\DC2\EOT\146\SOH\EOT\"\SUB\SO KV fast path\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ESC\EOT\DC2\EOT\146\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ESC\ENQ\DC2\EOT\146\SOH\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ESC\SOH\DC2\EOT\146\SOH\DC2\FS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ESC\ETX\DC2\EOT\146\SOH\US!\n\ + \'\n\ + \\EOT\EOT\v\STX\FS\DC2\EOT\149\SOH\EOT'\SUB\EM Hyperlolog DT Precision\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\v\STX\FS\EOT\DC2\EOT\149\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\v\STX\FS\ENQ\DC2\EOT\149\SOH\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\v\STX\FS\SOH\DC2\EOT\149\SOH\DC4!\n\ + \\r\n\ + \\ENQ\EOT\v\STX\FS\ETX\DC2\EOT\149\SOH$&\n\ + \-\n\ + \\EOT\EOT\v\STX\GS\DC2\EOT\152\SOH\EOT\GS\SUB\US KV sweeper object expiry time\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\v\STX\GS\EOT\DC2\EOT\152\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\v\STX\GS\ENQ\DC2\EOT\152\SOH\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\v\STX\GS\SOH\DC2\EOT\152\SOH\DC4\ETB\n\ + \\r\n\ + \\ENQ\EOT\v\STX\GS\ETX\DC2\EOT\152\SOH\SUB\FS\n\ + \&\n\ + \\STX\EOT\f\DC2\ACK\156\SOH\NUL\159\SOH\SOH\SUB\CAN Authentication request\n\ + \\n\ + \\v\n\ + \\ETX\EOT\f\SOH\DC2\EOT\156\SOH\b\DC2\n\ + \\f\n\ + \\EOT\EOT\f\STX\NUL\DC2\EOT\157\SOH\EOT\FS\n\ + \\r\n\ + \\ENQ\EOT\f\STX\NUL\EOT\DC2\EOT\157\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\f\STX\NUL\ENQ\DC2\EOT\157\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\157\SOH\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\157\SOH\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\f\STX\SOH\DC2\EOT\158\SOH\EOT \n\ + \\r\n\ + \\ENQ\EOT\f\STX\SOH\EOT\DC2\EOT\158\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\f\STX\SOH\ENQ\DC2\EOT\158\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\158\SOH\DC3\ESC\n\ + \\r\n\ + \\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\158\SOH\RS\US\n\ + \\252\STX\n\ + \\STX\EOT\r\DC2\ACK\188\SOH\NUL\203\SOH\SOH\SUB\191\SOH\n\ + \ Field names in maps are composed of a binary identifier and a type.\n\ + \ This is so that two clients can create fields with the same name\n\ + \ but different types, and they converge independently.\n\ + \2v Java package specifiers\n\ + \ option java_package = \"com.basho.riak.protobuf\";\n\ + \ option java_outer_classname = \"RiakDtPB\";\n\ + \24\n\ + \ =============== DATA STRUCTURES =================\n\ + \\n\ + \\v\n\ + \\ETX\EOT\r\SOH\DC2\EOT\188\SOH\b\DLE\n\ + \t\n\ + \\EOT\EOT\r\EOT\NUL\DC2\ACK\193\SOH\EOT\199\SOH\ENQ\SUBd\n\ + \ The types that can be stored in a map are limited to counters,\n\ + \ sets, registers, flags, and maps.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\r\EOT\NUL\SOH\DC2\EOT\193\SOH\t\NAK\n\ + \\SO\n\ + \\ACK\EOT\r\EOT\NUL\STX\NUL\DC2\EOT\194\SOH\b\NAK\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\NUL\SOH\DC2\EOT\194\SOH\b\SI\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\NUL\STX\DC2\EOT\194\SOH\DC3\DC4\n\ + \\SO\n\ + \\ACK\EOT\r\EOT\NUL\STX\SOH\DC2\EOT\195\SOH\b\NAK\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\SOH\SOH\DC2\EOT\195\SOH\b\v\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\SOH\STX\DC2\EOT\195\SOH\DC3\DC4\n\ + \\SO\n\ + \\ACK\EOT\r\EOT\NUL\STX\STX\DC2\EOT\196\SOH\b\NAK\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\STX\SOH\DC2\EOT\196\SOH\b\DLE\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\STX\STX\DC2\EOT\196\SOH\DC3\DC4\n\ + \\SO\n\ + \\ACK\EOT\r\EOT\NUL\STX\ETX\DC2\EOT\197\SOH\b\NAK\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\ETX\SOH\DC2\EOT\197\SOH\b\f\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\ETX\STX\DC2\EOT\197\SOH\DC3\DC4\n\ + \\SO\n\ + \\ACK\EOT\r\EOT\NUL\STX\EOT\DC2\EOT\198\SOH\b\NAK\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\EOT\SOH\DC2\EOT\198\SOH\b\v\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\EOT\STX\DC2\EOT\198\SOH\DC3\DC4\n\ + \\f\n\ + \\EOT\EOT\r\STX\NUL\DC2\EOT\201\SOH\EOT#\n\ + \\r\n\ + \\ENQ\EOT\r\STX\NUL\EOT\DC2\EOT\201\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\r\STX\NUL\ENQ\DC2\EOT\201\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\r\STX\NUL\SOH\DC2\EOT\201\SOH\SUB\RS\n\ + \\r\n\ + \\ENQ\EOT\r\STX\NUL\ETX\DC2\EOT\201\SOH!\"\n\ + \\f\n\ + \\EOT\EOT\r\STX\SOH\DC2\EOT\202\SOH\EOT#\n\ + \\r\n\ + \\ENQ\EOT\r\STX\SOH\EOT\DC2\EOT\202\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\r\STX\SOH\ACK\DC2\EOT\202\SOH\r\EM\n\ + \\r\n\ + \\ENQ\EOT\r\STX\SOH\SOH\DC2\EOT\202\SOH\SUB\RS\n\ + \\r\n\ + \\ENQ\EOT\r\STX\SOH\ETX\DC2\EOT\202\SOH!\"\n\ + \\144\SOH\n\ + \\STX\EOT\SO\DC2\ACK\210\SOH\NUL\217\SOH\SOH\SUB\129\SOH\n\ + \ An entry in a map is a pair of a field-name and value. The type\n\ + \ defined in the field determines which value type is expected.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\SO\SOH\DC2\EOT\210\SOH\b\DLE\n\ + \\f\n\ + \\EOT\EOT\SO\STX\NUL\DC2\EOT\211\SOH\EOT \n\ + \\r\n\ + \\ENQ\EOT\SO\STX\NUL\EOT\DC2\EOT\211\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\NUL\ACK\DC2\EOT\211\SOH\r\NAK\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\NUL\SOH\DC2\EOT\211\SOH\SYN\ESC\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\NUL\ETX\DC2\EOT\211\SOH\RS\US\n\ + \\f\n\ + \\EOT\EOT\SO\STX\SOH\DC2\EOT\212\SOH\EOT)\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\SOH\EOT\DC2\EOT\212\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\SOH\ENQ\DC2\EOT\212\SOH\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\SOH\SOH\DC2\EOT\212\SOH\SYN#\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\SOH\ETX\DC2\EOT\212\SOH'(\n\ + \\f\n\ + \\EOT\EOT\SO\STX\STX\DC2\EOT\213\SOH\EOT)\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\STX\EOT\DC2\EOT\213\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\STX\ENQ\DC2\EOT\213\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\STX\SOH\DC2\EOT\213\SOH\SYN\US\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\STX\ETX\DC2\EOT\213\SOH'(\n\ + \\f\n\ + \\EOT\EOT\SO\STX\ETX\DC2\EOT\214\SOH\EOT)\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\ETX\EOT\DC2\EOT\214\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\ETX\ENQ\DC2\EOT\214\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\ETX\SOH\DC2\EOT\214\SOH\SYN$\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\ETX\ETX\DC2\EOT\214\SOH'(\n\ + \\f\n\ + \\EOT\EOT\SO\STX\EOT\DC2\EOT\215\SOH\EOT)\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\EOT\EOT\DC2\EOT\215\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\EOT\ENQ\DC2\EOT\215\SOH\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\EOT\SOH\DC2\EOT\215\SOH\SYN \n\ + \\r\n\ + \\ENQ\EOT\SO\STX\EOT\ETX\DC2\EOT\215\SOH'(\n\ + \\f\n\ + \\EOT\EOT\SO\STX\ENQ\DC2\EOT\216\SOH\EOT)\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\ENQ\EOT\DC2\EOT\216\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\ENQ\ACK\DC2\EOT\216\SOH\r\NAK\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\ENQ\SOH\DC2\EOT\216\SOH\SYN\US\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\ENQ\ETX\DC2\EOT\216\SOH'(\n\ + \\214\SOH\n\ + \\STX\EOT\SI\DC2\ACK\228\SOH\NUL\246\SOH\SOH\SUB\155\SOH\n\ + \ The equivalent of KV's \"RpbGetReq\", results in a DtFetchResp. The\n\ + \ request-time options are limited to ones that are relevant to\n\ + \ structured data-types.\n\ + \2*\n\ + \ =============== FETCH =================\n\ + \\n\ + \\v\n\ + \\ETX\EOT\SI\SOH\DC2\EOT\228\SOH\b\DC2\n\ + \;\n\ + \\EOT\EOT\SI\STX\NUL\DC2\EOT\230\SOH\EOT\RS\SUB- The identifier: bucket, key and bucket-type\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\EOT\DC2\EOT\230\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\ENQ\DC2\EOT\230\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\230\SOH\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\230\SOH\FS\GS\n\ + \\f\n\ + \\EOT\EOT\SI\STX\SOH\DC2\EOT\231\SOH\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\EOT\DC2\EOT\231\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\ENQ\DC2\EOT\231\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\SOH\DC2\EOT\231\SOH\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\ETX\DC2\EOT\231\SOH\FS\GS\n\ + \\f\n\ + \\EOT\EOT\SI\STX\STX\DC2\EOT\232\SOH\EOT\GS\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\EOT\DC2\EOT\232\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\ENQ\DC2\EOT\232\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\SOH\DC2\EOT\232\SOH\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\ETX\DC2\EOT\232\SOH\ESC\FS\n\ + \\US\n\ + \\EOT\EOT\SI\STX\ETX\DC2\EOT\235\SOH\EOT'\SUB\DC1 Request options\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ETX\EOT\DC2\EOT\235\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ETX\ENQ\DC2\EOT\235\SOH\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ETX\SOH\DC2\EOT\235\SOH\DC4\NAK\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ETX\ETX\DC2\EOT\235\SOH%&\n\ + \\f\n\ + \\EOT\EOT\SI\STX\EOT\DC2\EOT\236\SOH\EOT'\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\EOT\EOT\DC2\EOT\236\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\EOT\ENQ\DC2\EOT\236\SOH\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\EOT\SOH\DC2\EOT\236\SOH\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\EOT\ETX\DC2\EOT\236\SOH%&\n\ + \\f\n\ + \\EOT\EOT\SI\STX\ENQ\DC2\EOT\237\SOH\EOT'\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ENQ\EOT\DC2\EOT\237\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ENQ\ENQ\DC2\EOT\237\SOH\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ENQ\SOH\DC2\EOT\237\SOH\DC4 \n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ENQ\ETX\DC2\EOT\237\SOH%&\n\ + \\f\n\ + \\EOT\EOT\SI\STX\ACK\DC2\EOT\238\SOH\EOT'\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ACK\EOT\DC2\EOT\238\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ACK\ENQ\DC2\EOT\238\SOH\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ACK\SOH\DC2\EOT\238\SOH\DC4\US\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ACK\ETX\DC2\EOT\238\SOH%&\n\ + \\f\n\ + \\EOT\EOT\SI\STX\a\DC2\EOT\239\SOH\EOT'\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\a\EOT\DC2\EOT\239\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\a\ENQ\DC2\EOT\239\SOH\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\a\SOH\DC2\EOT\239\SOH\DC4\ESC\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\a\ETX\DC2\EOT\239\SOH%&\n\ + \2\n\ + \\EOT\EOT\SI\STX\b\DC2\EOT\240\SOH\EOT'\"$ Experimental, may change/disappear\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\b\EOT\DC2\EOT\240\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\b\ENQ\DC2\EOT\240\SOH\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\b\SOH\DC2\EOT\240\SOH\DC4!\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\b\ETX\DC2\EOT\240\SOH%&\n\ + \2\n\ + \\EOT\EOT\SI\STX\t\DC2\EOT\241\SOH\EOT'\"$ Experimental, may change/disappear\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\t\EOT\DC2\EOT\241\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\t\ENQ\DC2\EOT\241\SOH\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\t\SOH\DC2\EOT\241\SOH\DC4\EM\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\t\ETX\DC2\EOT\241\SOH$&\n\ + \\137\SOH\n\ + \\EOT\EOT\SI\STX\n\ + \\DC2\EOT\245\SOH\EOT6\SUB{ For read-only requests or context-free operations, you can set\n\ + \ this to false to reduce the size of the response payload.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\n\ + \\EOT\DC2\EOT\245\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\n\ + \\ENQ\DC2\EOT\245\SOH\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\n\ + \\SOH\DC2\EOT\245\SOH\DC2!\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\n\ + \\ETX\DC2\EOT\245\SOH$&\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\n\ + \\b\DC2\EOT\245\SOH'5\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\n\ + \\a\DC2\EOT\245\SOH04\n\ + \\139\SOH\n\ + \\STX\EOT\DLE\DC2\ACK\253\SOH\NUL\134\STX\SOH\SUB}\n\ + \ The value of the fetched data type. If present in the response,\n\ + \ then empty values (sets, maps) should be treated as such.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DLE\SOH\DC2\EOT\253\SOH\b\SI\n\ + \\f\n\ + \\EOT\EOT\DLE\STX\NUL\DC2\EOT\254\SOH\EOT(\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\EOT\DC2\EOT\254\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\ENQ\DC2\EOT\254\SOH\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\254\SOH\SYN#\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\254\SOH&'\n\ + \\f\n\ + \\EOT\EOT\DLE\STX\SOH\DC2\EOT\255\SOH\EOT(\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\EOT\DC2\EOT\255\SOH\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\ENQ\DC2\EOT\255\SOH\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\SOH\DC2\EOT\255\SOH\SYN\US\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\ETX\DC2\EOT\255\SOH&'\n\ + \\f\n\ + \\EOT\EOT\DLE\STX\STX\DC2\EOT\128\STX\EOT(\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\STX\EOT\DC2\EOT\128\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\STX\ACK\DC2\EOT\128\STX\r\NAK\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\STX\SOH\DC2\EOT\128\STX\SYN\US\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\STX\ETX\DC2\EOT\128\STX&'\n\ + \T\n\ + \\EOT\EOT\DLE\STX\ETX\DC2\EOT\132\STX\EOT(\SUBF We return an estimated cardinality of the Hyperloglog set\n\ + \ on fetch.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\ETX\EOT\DC2\EOT\132\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\ETX\ENQ\DC2\EOT\132\STX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\ETX\SOH\DC2\EOT\132\STX\SYN\US\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\ETX\ETX\DC2\EOT\132\STX&'\n\ + \\f\n\ + \\EOT\EOT\DLE\STX\EOT\DC2\EOT\133\STX\EOT(\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\EOT\EOT\DC2\EOT\133\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\EOT\ENQ\DC2\EOT\133\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\EOT\SOH\DC2\EOT\133\STX\SYN \n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\EOT\ETX\DC2\EOT\133\STX&'\n\ + \\216\ETX\n\ + \\STX\EOT\DC1\DC2\ACK\146\STX\NUL\158\STX\SOH\SUB\201\ETX\n\ + \ The response to a \"Fetch\" request. If the `include_context` option\n\ + \ is specified, an opaque \"context\" value will be returned along with\n\ + \ the user-friendly data. When sending an \"Update\" request, the\n\ + \ client should send this context as well, similar to how one would\n\ + \ send a vclock for KV updates. The `type` field indicates which\n\ + \ value type to expect. When the `value` field is missing from the\n\ + \ message, the client should interpret it as a \"not found\".\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DC1\SOH\DC2\EOT\146\STX\b\DC3\n\ + \\SO\n\ + \\EOT\EOT\DC1\EOT\NUL\DC2\ACK\147\STX\EOT\153\STX\ENQ\n\ + \\r\n\ + \\ENQ\EOT\DC1\EOT\NUL\SOH\DC2\EOT\147\STX\t\DC1\n\ + \\SO\n\ + \\ACK\EOT\DC1\EOT\NUL\STX\NUL\DC2\EOT\148\STX\b\DC4\n\ + \\SI\n\ + \\a\EOT\DC1\EOT\NUL\STX\NUL\SOH\DC2\EOT\148\STX\b\SI\n\ + \\SI\n\ + \\a\EOT\DC1\EOT\NUL\STX\NUL\STX\DC2\EOT\148\STX\DC2\DC3\n\ + \\SO\n\ + \\ACK\EOT\DC1\EOT\NUL\STX\SOH\DC2\EOT\149\STX\b\DC4\n\ + \\SI\n\ + \\a\EOT\DC1\EOT\NUL\STX\SOH\SOH\DC2\EOT\149\STX\b\v\n\ + \\SI\n\ + \\a\EOT\DC1\EOT\NUL\STX\SOH\STX\DC2\EOT\149\STX\DC2\DC3\n\ + \\SO\n\ + \\ACK\EOT\DC1\EOT\NUL\STX\STX\DC2\EOT\150\STX\b\DC4\n\ + \\SI\n\ + \\a\EOT\DC1\EOT\NUL\STX\STX\SOH\DC2\EOT\150\STX\b\v\n\ + \\SI\n\ + \\a\EOT\DC1\EOT\NUL\STX\STX\STX\DC2\EOT\150\STX\DC2\DC3\n\ + \\SO\n\ + \\ACK\EOT\DC1\EOT\NUL\STX\ETX\DC2\EOT\151\STX\b\DC4\n\ + \\SI\n\ + \\a\EOT\DC1\EOT\NUL\STX\ETX\SOH\DC2\EOT\151\STX\b\v\n\ + \\SI\n\ + \\a\EOT\DC1\EOT\NUL\STX\ETX\STX\DC2\EOT\151\STX\DC2\DC3\n\ + \\SO\n\ + \\ACK\EOT\DC1\EOT\NUL\STX\EOT\DC2\EOT\152\STX\b\DC4\n\ + \\SI\n\ + \\a\EOT\DC1\EOT\NUL\STX\EOT\SOH\DC2\EOT\152\STX\b\f\n\ + \\SI\n\ + \\a\EOT\DC1\EOT\NUL\STX\EOT\STX\DC2\EOT\152\STX\DC2\DC3\n\ + \\f\n\ + \\EOT\EOT\DC1\STX\NUL\DC2\EOT\155\STX\EOT\"\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\EOT\DC2\EOT\155\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\ENQ\DC2\EOT\155\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\155\STX\SYN\GS\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\155\STX !\n\ + \\f\n\ + \\EOT\EOT\DC1\STX\SOH\DC2\EOT\156\STX\EOT\"\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\SOH\EOT\DC2\EOT\156\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\SOH\ACK\DC2\EOT\156\STX\r\NAK\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\156\STX\SYN\SUB\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\156\STX !\n\ + \\f\n\ + \\EOT\EOT\DC1\STX\STX\DC2\EOT\157\STX\EOT\"\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\STX\EOT\DC2\EOT\157\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\STX\ACK\DC2\EOT\157\STX\r\DC4\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\STX\SOH\DC2\EOT\157\STX\SYN\ESC\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\STX\ETX\DC2\EOT\157\STX !\n\ + \\231\SOH\n\ + \\STX\EOT\DC2\DC2\ACK\169\STX\NUL\171\STX\SOH\SUB\171\SOH\n\ + \ An operation to update a Counter, either on its own or inside a\n\ + \ Map. The `increment` field can be positive or negative. When absent,\n\ + \ the meaning is an increment by 1.\n\ + \2+\n\ + \ =============== UPDATE =================\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DC2\SOH\DC2\EOT\169\STX\b\DC1\n\ + \\f\n\ + \\EOT\EOT\DC2\STX\NUL\DC2\EOT\170\STX\EOT\"\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\EOT\DC2\EOT\170\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\ENQ\DC2\EOT\170\STX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\170\STX\DC4\GS\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\170\STX !\n\ + \\166\SOH\n\ + \\STX\EOT\DC3\DC2\ACK\178\STX\NUL\181\STX\SOH\SUB\151\SOH\n\ + \ An operation to update a Set, either on its own or inside a Map.\n\ + \ Set members are opaque binary values, you can only add or remove\n\ + \ them from a Set.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DC3\SOH\DC2\EOT\178\STX\b\r\n\ + \\f\n\ + \\EOT\EOT\DC3\STX\NUL\DC2\EOT\179\STX\EOT\US\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\EOT\DC2\EOT\179\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\ENQ\DC2\EOT\179\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\179\STX\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\179\STX\GS\RS\n\ + \\f\n\ + \\EOT\EOT\DC3\STX\SOH\DC2\EOT\180\STX\EOT\US\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\SOH\EOT\DC2\EOT\180\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\SOH\ENQ\DC2\EOT\180\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\SOH\SOH\DC2\EOT\180\STX\DC3\SUB\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\SOH\ETX\DC2\EOT\180\STX\GS\RS\n\ + \\132\SOH\n\ + \\STX\EOT\DC4\DC2\ACK\188\STX\NUL\190\STX\SOH\SUBv\n\ + \ An operation to update a GSet, on its own.\n\ + \ GSet members are opaque binary values, you can only add\n\ + \ them to a Set.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DC4\SOH\DC2\EOT\188\STX\b\SO\n\ + \\f\n\ + \\EOT\EOT\DC4\STX\NUL\DC2\EOT\189\STX\EOT\US\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\EOT\DC2\EOT\189\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\ENQ\DC2\EOT\189\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\189\STX\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\189\STX\GS\RS\n\ + \i\n\ + \\STX\EOT\NAK\DC2\ACK\196\STX\NUL\198\STX\SOH\SUB[\n\ + \ An operation to update a Hyperloglog Set, a top-level DT.\n\ + \ You can only add to a HllSet.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\NAK\SOH\DC2\EOT\196\STX\b\r\n\ + \\f\n\ + \\EOT\EOT\NAK\STX\NUL\DC2\EOT\197\STX\EOT\US\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\EOT\DC2\EOT\197\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\ENQ\DC2\EOT\197\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\197\STX\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\197\STX\GS\RS\n\ + \\206\SOH\n\ + \\STX\EOT\SYN\DC2\ACK\205\STX\NUL\228\STX\SOH\SUB\191\SOH\n\ + \ An operation to be applied to a value stored in a Map -- the\n\ + \ contents of an UPDATE operation. The operation field that is\n\ + \ present depends on the type of the field to which it is applied.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\SYN\SOH\DC2\EOT\205\STX\b\DC1\n\ + \\131\SOH\n\ + \\EOT\EOT\SYN\EOT\NUL\DC2\ACK\210\STX\EOT\213\STX\ENQ\SUBs\n\ + \ Flags only exist inside Maps and can only be enabled or\n\ + \ disabled, and there are no arguments to the operations.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SYN\EOT\NUL\SOH\DC2\EOT\210\STX\t\SI\n\ + \\SO\n\ + \\ACK\EOT\SYN\EOT\NUL\STX\NUL\DC2\EOT\211\STX\b\DC4\n\ + \\SI\n\ + \\a\EOT\SYN\EOT\NUL\STX\NUL\SOH\DC2\EOT\211\STX\b\SO\n\ + \\SI\n\ + \\a\EOT\SYN\EOT\NUL\STX\NUL\STX\DC2\EOT\211\STX\DC2\DC3\n\ + \\SO\n\ + \\ACK\EOT\SYN\EOT\NUL\STX\SOH\DC2\EOT\212\STX\b\DC4\n\ + \\SI\n\ + \\a\EOT\SYN\EOT\NUL\STX\SOH\SOH\DC2\EOT\212\STX\b\SI\n\ + \\SI\n\ + \\a\EOT\SYN\EOT\NUL\STX\SOH\STX\DC2\EOT\212\STX\DC2\DC3\n\ + \\f\n\ + \\EOT\EOT\SYN\STX\NUL\DC2\EOT\215\STX\EOT'\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\NUL\EOT\DC2\EOT\215\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\NUL\ACK\DC2\EOT\215\STX\r\NAK\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\NUL\SOH\DC2\EOT\215\STX\ETB\FS\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\NUL\ETX\DC2\EOT\215\STX%&\n\ + \\f\n\ + \\EOT\EOT\SYN\STX\SOH\DC2\EOT\217\STX\EOT'\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\SOH\EOT\DC2\EOT\217\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\SOH\ACK\DC2\EOT\217\STX\r\SYN\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\SOH\SOH\DC2\EOT\217\STX\ETB!\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\SOH\ETX\DC2\EOT\217\STX%&\n\ + \\f\n\ + \\EOT\EOT\SYN\STX\STX\DC2\EOT\218\STX\EOT'\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\STX\EOT\DC2\EOT\218\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\STX\ACK\DC2\EOT\218\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\STX\SOH\DC2\EOT\218\STX\ETB\GS\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\STX\ETX\DC2\EOT\218\STX%&\n\ + \\131\SOH\n\ + \\EOT\EOT\SYN\STX\ETX\DC2\EOT\224\STX\EOT'\SUBu\n\ + \ There is only one operation on a register, which is to set its\n\ + \ value, therefore the \"operation\" is the new value.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\ETX\EOT\DC2\EOT\224\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\ETX\ENQ\DC2\EOT\224\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\ETX\SOH\DC2\EOT\224\STX\ETB\"\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\ETX\ETX\DC2\EOT\224\STX%&\n\ + \\f\n\ + \\EOT\EOT\SYN\STX\EOT\DC2\EOT\225\STX\EOT'\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\EOT\EOT\DC2\EOT\225\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\EOT\ACK\DC2\EOT\225\STX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\EOT\SOH\DC2\EOT\225\STX\ETB\RS\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\EOT\ETX\DC2\EOT\225\STX%&\n\ + \\f\n\ + \\EOT\EOT\SYN\STX\ENQ\DC2\EOT\226\STX\EOT'\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\ENQ\EOT\DC2\EOT\226\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\ENQ\ACK\DC2\EOT\226\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\ENQ\SOH\DC2\EOT\226\STX\ETB\GS\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\ENQ\ETX\DC2\EOT\226\STX%&\n\ + \e\n\ + \\STX\EOT\ETB\DC2\ACK\234\STX\NUL\242\STX\SOH\SUBW\n\ + \ An operation to update a Map. All operations apply to individual\n\ + \ fields in the Map.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\ETB\SOH\DC2\EOT\234\STX\b\r\n\ + \\139\SOH\n\ + \\EOT\EOT\ETB\STX\NUL\DC2\EOT\240\STX\EOT#\SUB}\n\ + \ REMOVE removes a field and value from the Map.\n\ + \ UPDATE applies type-specific\n\ + \ operations to the values stored in the Map.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\NUL\EOT\DC2\EOT\240\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\NUL\ACK\DC2\EOT\240\STX\r\NAK\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\NUL\SOH\DC2\EOT\240\STX\ETB\RS\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\NUL\ETX\DC2\EOT\240\STX!\"\n\ + \\f\n\ + \\EOT\EOT\ETB\STX\SOH\DC2\EOT\241\STX\EOT#\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\SOH\EOT\DC2\EOT\241\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\SOH\ACK\DC2\EOT\241\STX\r\SYN\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\SOH\SOH\DC2\EOT\241\STX\ETB\RS\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\SOH\ETX\DC2\EOT\241\STX!\"\n\ + \u\n\ + \\STX\EOT\CAN\DC2\ACK\248\STX\NUL\129\ETX\SOH\SUBg\n\ + \ A \"union\" type for update operations. The included operation\n\ + \ depends on the datatype being updated.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\CAN\SOH\DC2\EOT\248\STX\b\f\n\ + \\f\n\ + \\EOT\EOT\CAN\STX\NUL\DC2\EOT\249\STX\EOT&\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\NUL\EOT\DC2\EOT\249\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\NUL\ACK\DC2\EOT\249\STX\r\SYN\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\NUL\SOH\DC2\EOT\249\STX\ETB!\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\NUL\ETX\DC2\EOT\249\STX$%\n\ + \\f\n\ + \\EOT\EOT\CAN\STX\SOH\DC2\EOT\250\STX\EOT&\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\SOH\EOT\DC2\EOT\250\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\SOH\ACK\DC2\EOT\250\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\SOH\SOH\DC2\EOT\250\STX\ETB\GS\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\SOH\ETX\DC2\EOT\250\STX$%\n\ + \\f\n\ + \\EOT\EOT\CAN\STX\STX\DC2\EOT\251\STX\EOT&\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\STX\EOT\DC2\EOT\251\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\STX\ACK\DC2\EOT\251\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\STX\SOH\DC2\EOT\251\STX\ETB\GS\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\STX\ETX\DC2\EOT\251\STX$%\n\ + \Z\n\ + \\EOT\EOT\CAN\STX\ETX\DC2\EOT\255\STX\EOT&\SUBL Adding values to a hyperloglog (set) is just like adding values\n\ + \ to a set.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\ETX\EOT\DC2\EOT\255\STX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\ETX\ACK\DC2\EOT\255\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\ETX\SOH\DC2\EOT\255\STX\ETB\GS\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\ETX\ETX\DC2\EOT\255\STX$%\n\ + \\f\n\ + \\EOT\EOT\CAN\STX\EOT\DC2\EOT\128\ETX\EOT&\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\EOT\EOT\DC2\EOT\128\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\EOT\ACK\DC2\EOT\128\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\EOT\SOH\DC2\EOT\128\ETX\ETB\RS\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\EOT\ETX\DC2\EOT\128\ETX$%\n\ + \\133\STX\n\ + \\STX\EOT\EM\DC2\ACK\137\ETX\NUL\158\ETX\SOH\SUB\246\SOH\n\ + \ The equivalent of KV's \"RpbPutReq\", results in an empty response or\n\ + \ \"DtUpdateResp\" if `return_body` is specified, or the key is\n\ + \ assigned by the server. The request-time options are limited to\n\ + \ ones that are relevant to structured data-types.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\EM\SOH\DC2\EOT\137\ETX\b\DC3\n\ + \\RS\n\ + \\EOT\EOT\EM\STX\NUL\DC2\EOT\139\ETX\EOT\RS\SUB\DLE The identifier\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\NUL\EOT\DC2\EOT\139\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\NUL\ENQ\DC2\EOT\139\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\NUL\SOH\DC2\EOT\139\ETX\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\NUL\ETX\DC2\EOT\139\ETX\FS\GS\n\ + \C\n\ + \\EOT\EOT\EM\STX\SOH\DC2\EOT\140\ETX\EOT\RS\"5 missing key results in server-assigned key, like KV\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\SOH\EOT\DC2\EOT\140\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\SOH\ENQ\DC2\EOT\140\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\SOH\SOH\DC2\EOT\140\ETX\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\SOH\ETX\DC2\EOT\140\ETX\FS\GS\n\ + \]\n\ + \\EOT\EOT\EM\STX\STX\DC2\EOT\141\ETX\EOT\RS\"O bucket type, not data-type (but the data-type is constrained per bucket-type)\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\STX\EOT\DC2\EOT\141\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\STX\ENQ\DC2\EOT\141\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\STX\SOH\DC2\EOT\141\ETX\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\STX\ETX\DC2\EOT\141\ETX\FS\GS\n\ + \%\n\ + \\EOT\EOT\EM\STX\ETX\DC2\EOT\144\ETX\EOT\US\SUB\ETB Opaque update-context\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ETX\EOT\DC2\EOT\144\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ETX\ENQ\DC2\EOT\144\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ETX\SOH\DC2\EOT\144\ETX\DC3\SUB\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ETX\ETX\DC2\EOT\144\ETX\GS\RS\n\ + \\RS\n\ + \\EOT\EOT\EM\STX\EOT\DC2\EOT\147\ETX\EOT\SUB\SUB\DLE The operations\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\EOT\EOT\DC2\EOT\147\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\EOT\ACK\DC2\EOT\147\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\EOT\SOH\DC2\EOT\147\ETX\DC3\NAK\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\EOT\ETX\DC2\EOT\147\ETX\CAN\EM\n\ + \\US\n\ + \\EOT\EOT\EM\STX\ENQ\DC2\EOT\150\ETX\EOT)\SUB\DC1 Request options\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ENQ\EOT\DC2\EOT\150\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ENQ\ENQ\DC2\EOT\150\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ENQ\SOH\DC2\EOT\150\ETX\DC4\NAK\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ENQ\ETX\DC2\EOT\150\ETX'(\n\ + \\f\n\ + \\EOT\EOT\EM\STX\ACK\DC2\EOT\151\ETX\EOT)\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ACK\EOT\DC2\EOT\151\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ACK\ENQ\DC2\EOT\151\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ACK\SOH\DC2\EOT\151\ETX\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\ACK\ETX\DC2\EOT\151\ETX'(\n\ + \\f\n\ + \\EOT\EOT\EM\STX\a\DC2\EOT\152\ETX\EOT)\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\a\EOT\DC2\EOT\152\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\a\ENQ\DC2\EOT\152\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\a\SOH\DC2\EOT\152\ETX\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\a\ETX\DC2\EOT\152\ETX'(\n\ + \\f\n\ + \\EOT\EOT\EM\STX\b\DC2\EOT\153\ETX\EOT9\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\b\EOT\DC2\EOT\153\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\b\ENQ\DC2\EOT\153\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\b\SOH\DC2\EOT\153\ETX\DC4\US\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\b\ETX\DC2\EOT\153\ETX'(\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\b\b\DC2\EOT\153\ETX)8\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\b\a\DC2\EOT\153\ETX27\n\ + \\f\n\ + \\EOT\EOT\EM\STX\t\DC2\EOT\154\ETX\EOT)\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\t\EOT\DC2\EOT\154\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\t\ENQ\DC2\EOT\154\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\t\SOH\DC2\EOT\154\ETX\DC4\ESC\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\t\ETX\DC2\EOT\154\ETX&(\n\ + \2\n\ + \\EOT\EOT\EM\STX\n\ + \\DC2\EOT\155\ETX\EOT)\"$ Experimental, may change/disappear\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\n\ + \\EOT\DC2\EOT\155\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\n\ + \\ENQ\DC2\EOT\155\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\n\ + \\SOH\DC2\EOT\155\ETX\DC4!\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\n\ + \\ETX\DC2\EOT\155\ETX&(\n\ + \2\n\ + \\EOT\EOT\EM\STX\v\DC2\EOT\156\ETX\EOT)\"$ Experimental, may change/disappear\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\v\EOT\DC2\EOT\156\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\v\ENQ\DC2\EOT\156\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\v\SOH\DC2\EOT\156\ETX\DC4\EM\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\v\ETX\DC2\EOT\156\ETX&(\n\ + \M\n\ + \\EOT\EOT\EM\STX\f\DC2\EOT\157\ETX\EOT8\"? When return_body is true, should the context be returned too?\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\f\EOT\DC2\EOT\157\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\f\ENQ\DC2\EOT\157\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\f\SOH\DC2\EOT\157\ETX\DC4#\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\f\ETX\DC2\EOT\157\ETX&(\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\f\b\DC2\EOT\157\ETX)7\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\f\a\DC2\EOT\157\ETX26\n\ + \\176\SOH\n\ + \\STX\EOT\SUB\DC2\ACK\166\ETX\NUL\177\ETX\SOH\SUB\161\SOH\n\ + \ The equivalent of KV's \"RpbPutResp\", contains the assigned key if\n\ + \ it was assigned by the server, and the resulting value and context\n\ + \ if return_body was set.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\SUB\SOH\DC2\EOT\166\ETX\b\DC4\n\ + \2\n\ + \\EOT\EOT\SUB\STX\NUL\DC2\EOT\168\ETX\EOT(\SUB$ The key, if assigned by the server\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\NUL\EOT\DC2\EOT\168\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\NUL\ENQ\DC2\EOT\168\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\NUL\SOH\DC2\EOT\168\ETX\SYN\EM\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\NUL\ETX\DC2\EOT\168\ETX&'\n\ + \L\n\ + \\EOT\EOT\SUB\STX\SOH\DC2\EOT\171\ETX\EOT(\SUB> The opaque update context and value, if return_body was set.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\SOH\EOT\DC2\EOT\171\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\SOH\ENQ\DC2\EOT\171\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\SOH\SOH\DC2\EOT\171\ETX\SYN\GS\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\SOH\ETX\DC2\EOT\171\ETX&'\n\ + \\f\n\ + \\EOT\EOT\SUB\STX\STX\DC2\EOT\172\ETX\EOT(\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\STX\EOT\DC2\EOT\172\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\STX\ENQ\DC2\EOT\172\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\STX\SOH\DC2\EOT\172\ETX\SYN#\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\STX\ETX\DC2\EOT\172\ETX&'\n\ + \\f\n\ + \\EOT\EOT\SUB\STX\ETX\DC2\EOT\173\ETX\EOT(\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ETX\EOT\DC2\EOT\173\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ETX\ENQ\DC2\EOT\173\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ETX\SOH\DC2\EOT\173\ETX\SYN\US\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ETX\ETX\DC2\EOT\173\ETX&'\n\ + \\f\n\ + \\EOT\EOT\SUB\STX\EOT\DC2\EOT\174\ETX\EOT(\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\EOT\EOT\DC2\EOT\174\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\EOT\ACK\DC2\EOT\174\ETX\r\NAK\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\EOT\SOH\DC2\EOT\174\ETX\SYN\US\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\EOT\ETX\DC2\EOT\174\ETX&'\n\ + \\f\n\ + \\EOT\EOT\SUB\STX\ENQ\DC2\EOT\175\ETX\EOT(\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ENQ\EOT\DC2\EOT\175\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ENQ\ENQ\DC2\EOT\175\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ENQ\SOH\DC2\EOT\175\ETX\SYN\US\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ENQ\ETX\DC2\EOT\175\ETX&'\n\ + \\f\n\ + \\EOT\EOT\SUB\STX\ACK\DC2\EOT\176\ETX\EOT(\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ACK\EOT\DC2\EOT\176\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ACK\ENQ\DC2\EOT\176\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ACK\SOH\DC2\EOT\176\ETX\SYN \n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\ACK\ETX\DC2\EOT\176\ETX&'\n\ + \\n\ + \\n\ + \\STX\EOT\ESC\DC2\EOT\180\ETX\NUL\ETB\n\ + \\v\n\ + \\ETX\EOT\ESC\SOH\DC2\EOT\180\ETX\b\DC3\n\ + \\n\ + \\n\ + \\STX\EOT\FS\DC2\EOT\181\ETX\NUL\SYN\n\ + \\v\n\ + \\ETX\EOT\FS\SOH\DC2\EOT\181\ETX\b\DC2\n\ + \\n\ + \\n\ + \\STX\EOT\GS\DC2\EOT\182\ETX\NUL\GS\n\ + \\v\n\ + \\ETX\EOT\GS\SOH\DC2\EOT\182\ETX\b\EM\n\ + \\n\ + \\n\ + \\STX\EOT\RS\DC2\EOT\183\ETX\NUL\US\n\ + \\v\n\ + \\ETX\EOT\RS\SOH\DC2\EOT\183\ETX\b\ESC\n\ + \\n\ + \\n\ + \\STX\EOT\US\DC2\EOT\184\ETX\NUL\SYN\n\ + \\v\n\ + \\ETX\EOT\US\SOH\DC2\EOT\184\ETX\b\DC2\n\ + \\n\ + \\n\ + \\STX\EOT \DC2\EOT\185\ETX\NUL\ETB\n\ + \\v\n\ + \\ETX\EOT \SOH\DC2\EOT\185\ETX\b\DC3\n\ + \\n\ + \\n\ + \\STX\EOT!\DC2\EOT\186\ETX\NUL\RS\n\ + \\v\n\ + \\ETX\EOT!\SOH\DC2\EOT\186\ETX\b\SUB\n\ + \\n\ + \\n\ + \\STX\EOT\"\DC2\EOT\187\ETX\NUL\FS\n\ + \\v\n\ + \\ETX\EOT\"\SOH\DC2\EOT\187\ETX\b\CAN\n\ + \\130\STX\n\ + \\STX\EOT#\DC2\ACK\210\ETX\NUL\212\ETX\SOH\SUBU Get ClientId Request - no message defined, just send RpbGetClientIdReq message code\n\ + \2v Java package specifiers\n\ + \ option java_package = \"com.basho.riak.protobuf\";\n\ + \ option java_outer_classname = \"RiakKvPB\";\n\ + \2% import \"riak.proto\"; // for RpbPair\n\ + \\n\ + \\v\n\ + \\ETX\EOT#\SOH\DC2\EOT\210\ETX\b\SUB\n\ + \4\n\ + \\EOT\EOT#\STX\NUL\DC2\EOT\211\ETX\EOT!\"& Client id in use for this connection\n\ + \\n\ + \\r\n\ + \\ENQ\EOT#\STX\NUL\EOT\DC2\EOT\211\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT#\STX\NUL\ENQ\DC2\EOT\211\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT#\STX\NUL\SOH\DC2\EOT\211\ETX\DC3\FS\n\ + \\r\n\ + \\ENQ\EOT#\STX\NUL\ETX\DC2\EOT\211\ETX\US \n\ + \\f\n\ + \\STX\EOT$\DC2\ACK\214\ETX\NUL\216\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT$\SOH\DC2\EOT\214\ETX\b\EM\n\ + \4\n\ + \\EOT\EOT$\STX\NUL\DC2\EOT\215\ETX\EOT!\"& Client id to use for this connection\n\ + \\n\ + \\r\n\ + \\ENQ\EOT$\STX\NUL\EOT\DC2\EOT\215\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT$\STX\NUL\ENQ\DC2\EOT\215\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT$\STX\NUL\SOH\DC2\EOT\215\ETX\DC3\FS\n\ + \\r\n\ + \\ENQ\EOT$\STX\NUL\ETX\DC2\EOT\215\ETX\US \n\ + \1\n\ + \\STX\EOT%\DC2\ACK\221\ETX\NUL\235\ETX\SOH\SUB# Get Request - retrieve bucket/key\n\ + \\n\ + \\v\n\ + \\ETX\EOT%\SOH\DC2\EOT\221\ETX\b\DC1\n\ + \\f\n\ + \\EOT\EOT%\STX\NUL\DC2\EOT\222\ETX\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT%\STX\NUL\EOT\DC2\EOT\222\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\NUL\ENQ\DC2\EOT\222\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT%\STX\NUL\SOH\DC2\EOT\222\ETX\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT%\STX\NUL\ETX\DC2\EOT\222\ETX\FS\GS\n\ + \\f\n\ + \\EOT\EOT%\STX\SOH\DC2\EOT\223\ETX\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT%\STX\SOH\EOT\DC2\EOT\223\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\SOH\ENQ\DC2\EOT\223\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT%\STX\SOH\SOH\DC2\EOT\223\ETX\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT%\STX\SOH\ETX\DC2\EOT\223\ETX\EM\SUB\n\ + \\f\n\ + \\EOT\EOT%\STX\STX\DC2\EOT\224\ETX\EOT\SUB\n\ + \\r\n\ + \\ENQ\EOT%\STX\STX\EOT\DC2\EOT\224\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\STX\ENQ\DC2\EOT\224\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT%\STX\STX\SOH\DC2\EOT\224\ETX\DC4\NAK\n\ + \\r\n\ + \\ENQ\EOT%\STX\STX\ETX\DC2\EOT\224\ETX\CAN\EM\n\ + \\f\n\ + \\EOT\EOT%\STX\ETX\DC2\EOT\225\ETX\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT%\STX\ETX\EOT\DC2\EOT\225\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\ETX\ENQ\DC2\EOT\225\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT%\STX\ETX\SOH\DC2\EOT\225\ETX\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT%\STX\ETX\ETX\DC2\EOT\225\ETX\EM\SUB\n\ + \\f\n\ + \\EOT\EOT%\STX\EOT\DC2\EOT\226\ETX\EOT#\n\ + \\r\n\ + \\ENQ\EOT%\STX\EOT\EOT\DC2\EOT\226\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\EOT\ENQ\DC2\EOT\226\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT%\STX\EOT\SOH\DC2\EOT\226\ETX\DC2\RS\n\ + \\r\n\ + \\ENQ\EOT%\STX\EOT\ETX\DC2\EOT\226\ETX!\"\n\ + \\f\n\ + \\EOT\EOT%\STX\ENQ\DC2\EOT\227\ETX\EOT\"\n\ + \\r\n\ + \\ENQ\EOT%\STX\ENQ\EOT\DC2\EOT\227\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\ENQ\ENQ\DC2\EOT\227\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT%\STX\ENQ\SOH\DC2\EOT\227\ETX\DC2\GS\n\ + \\r\n\ + \\ENQ\EOT%\STX\ENQ\ETX\DC2\EOT\227\ETX !\n\ + \:\n\ + \\EOT\EOT%\STX\ACK\DC2\EOT\228\ETX\EOT#\", fail if the supplied vclock does not match\n\ + \\n\ + \\r\n\ + \\ENQ\EOT%\STX\ACK\EOT\DC2\EOT\228\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\ACK\ENQ\DC2\EOT\228\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT%\STX\ACK\SOH\DC2\EOT\228\ETX\DC3\RS\n\ + \\r\n\ + \\ENQ\EOT%\STX\ACK\ETX\DC2\EOT\228\ETX!\"\n\ + \/\n\ + \\EOT\EOT%\STX\a\DC2\EOT\229\ETX\EOT\ESC\"! return everything but the value\n\ + \\n\ + \\r\n\ + \\ENQ\EOT%\STX\a\EOT\DC2\EOT\229\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\a\ENQ\DC2\EOT\229\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT%\STX\a\SOH\DC2\EOT\229\ETX\DC2\SYN\n\ + \\r\n\ + \\ENQ\EOT%\STX\a\ETX\DC2\EOT\229\ETX\EM\SUB\n\ + \<\n\ + \\EOT\EOT%\STX\b\DC2\EOT\230\ETX\EOT$\". return the tombstone's vclock, if applicable\n\ + \\n\ + \\r\n\ + \\ENQ\EOT%\STX\b\EOT\DC2\EOT\230\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\b\ENQ\DC2\EOT\230\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT%\STX\b\SOH\DC2\EOT\230\ETX\DC2\US\n\ + \\r\n\ + \\ENQ\EOT%\STX\b\ETX\DC2\EOT\230\ETX\"#\n\ + \\f\n\ + \\EOT\EOT%\STX\t\DC2\EOT\231\ETX\EOT!\n\ + \\r\n\ + \\ENQ\EOT%\STX\t\EOT\DC2\EOT\231\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\t\ENQ\DC2\EOT\231\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT%\STX\t\SOH\DC2\EOT\231\ETX\DC4\ESC\n\ + \\r\n\ + \\ENQ\EOT%\STX\t\ETX\DC2\EOT\231\ETX\RS \n\ + \2\n\ + \\EOT\EOT%\STX\n\ + \\DC2\EOT\232\ETX\EOT%\"$ Experimental, may change/disappear\n\ + \\n\ + \\r\n\ + \\ENQ\EOT%\STX\n\ + \\EOT\DC2\EOT\232\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\n\ + \\ENQ\DC2\EOT\232\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT%\STX\n\ + \\SOH\DC2\EOT\232\ETX\DC2\US\n\ + \\r\n\ + \\ENQ\EOT%\STX\n\ + \\ETX\DC2\EOT\232\ETX\"$\n\ + \2\n\ + \\EOT\EOT%\STX\v\DC2\EOT\233\ETX\EOT\US\"$ Experimental, may change/disappear\n\ + \\n\ + \\r\n\ + \\ENQ\EOT%\STX\v\EOT\DC2\EOT\233\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\v\ENQ\DC2\EOT\233\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT%\STX\v\SOH\DC2\EOT\233\ETX\DC4\EM\n\ + \\r\n\ + \\ENQ\EOT%\STX\v\ETX\DC2\EOT\233\ETX\FS\RS\n\ + \D\n\ + \\EOT\EOT%\STX\f\DC2\EOT\234\ETX\EOT\GS\"6 Bucket type, if not set we assume the 'default' type\n\ + \\n\ + \\r\n\ + \\ENQ\EOT%\STX\f\EOT\DC2\EOT\234\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT%\STX\f\ENQ\DC2\EOT\234\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT%\STX\f\SOH\DC2\EOT\234\ETX\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT%\STX\f\ETX\DC2\EOT\234\ETX\SUB\FS\n\ + \Z\n\ + \\STX\EOT&\DC2\ACK\238\ETX\NUL\242\ETX\SOH\SUBL Get Response - if the record was not found there will be no content/vclock\n\ + \\n\ + \\v\n\ + \\ETX\EOT&\SOH\DC2\EOT\238\ETX\b\DC2\n\ + \\f\n\ + \\EOT\EOT&\STX\NUL\DC2\EOT\239\ETX\EOT$\n\ + \\r\n\ + \\ENQ\EOT&\STX\NUL\EOT\DC2\EOT\239\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT&\STX\NUL\ACK\DC2\EOT\239\ETX\r\ETB\n\ + \\r\n\ + \\ENQ\EOT&\STX\NUL\SOH\DC2\EOT\239\ETX\CAN\US\n\ + \\r\n\ + \\ENQ\EOT&\STX\NUL\ETX\DC2\EOT\239\ETX\"#\n\ + \6\n\ + \\EOT\EOT&\STX\SOH\DC2\EOT\240\ETX\EOT\RS\"( the opaque vector clock for the object\n\ + \\n\ + \\r\n\ + \\ENQ\EOT&\STX\SOH\EOT\DC2\EOT\240\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT&\STX\SOH\ENQ\DC2\EOT\240\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT&\STX\SOH\SOH\DC2\EOT\240\ETX\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT&\STX\SOH\ETX\DC2\EOT\240\ETX\FS\GS\n\ + \\f\n\ + \\EOT\EOT&\STX\STX\DC2\EOT\241\ETX\EOT \n\ + \\r\n\ + \\ENQ\EOT&\STX\STX\EOT\DC2\EOT\241\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT&\STX\STX\ENQ\DC2\EOT\241\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT&\STX\STX\SOH\DC2\EOT\241\ETX\DC2\ESC\n\ + \\r\n\ + \\ENQ\EOT&\STX\STX\ETX\DC2\EOT\241\ETX\RS\US\n\ + \\135\SOH\n\ + \\STX\EOT'\DC2\ACK\247\ETX\NUL\136\EOT\SOH\SUBy Put request - if options.return_body is set then the updated metadata/data for\n\ + \ the key will be returned.\n\ + \\n\ + \\v\n\ + \\ETX\EOT'\SOH\DC2\EOT\247\ETX\b\DC1\n\ + \\f\n\ + \\EOT\EOT'\STX\NUL\DC2\EOT\248\ETX\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT'\STX\NUL\EOT\DC2\EOT\248\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\NUL\ENQ\DC2\EOT\248\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT'\STX\NUL\SOH\DC2\EOT\248\ETX\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT'\STX\NUL\ETX\DC2\EOT\248\ETX\FS\GS\n\ + \\f\n\ + \\EOT\EOT'\STX\SOH\DC2\EOT\249\ETX\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT'\STX\SOH\EOT\DC2\EOT\249\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\SOH\ENQ\DC2\EOT\249\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT'\STX\SOH\SOH\DC2\EOT\249\ETX\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT'\STX\SOH\ETX\DC2\EOT\249\ETX\EM\SUB\n\ + \\f\n\ + \\EOT\EOT'\STX\STX\DC2\EOT\250\ETX\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT'\STX\STX\EOT\DC2\EOT\250\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\STX\ENQ\DC2\EOT\250\ETX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT'\STX\STX\SOH\DC2\EOT\250\ETX\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT'\STX\STX\ETX\DC2\EOT\250\ETX\FS\GS\n\ + \\f\n\ + \\EOT\EOT'\STX\ETX\DC2\EOT\251\ETX\EOT$\n\ + \\r\n\ + \\ENQ\EOT'\STX\ETX\EOT\DC2\EOT\251\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\ETX\ACK\DC2\EOT\251\ETX\r\ETB\n\ + \\r\n\ + \\ENQ\EOT'\STX\ETX\SOH\DC2\EOT\251\ETX\CAN\US\n\ + \\r\n\ + \\ENQ\EOT'\STX\ETX\ETX\DC2\EOT\251\ETX\"#\n\ + \\f\n\ + \\EOT\EOT'\STX\EOT\DC2\EOT\252\ETX\EOT\SUB\n\ + \\r\n\ + \\ENQ\EOT'\STX\EOT\EOT\DC2\EOT\252\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\EOT\ENQ\DC2\EOT\252\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT'\STX\EOT\SOH\DC2\EOT\252\ETX\DC4\NAK\n\ + \\r\n\ + \\ENQ\EOT'\STX\EOT\ETX\DC2\EOT\252\ETX\CAN\EM\n\ + \\f\n\ + \\EOT\EOT'\STX\ENQ\DC2\EOT\253\ETX\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT'\STX\ENQ\EOT\DC2\EOT\253\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\ENQ\ENQ\DC2\EOT\253\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT'\STX\ENQ\SOH\DC2\EOT\253\ETX\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT'\STX\ENQ\ETX\DC2\EOT\253\ETX\EM\SUB\n\ + \\f\n\ + \\EOT\EOT'\STX\ACK\DC2\EOT\254\ETX\EOT\"\n\ + \\r\n\ + \\ENQ\EOT'\STX\ACK\EOT\DC2\EOT\254\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\ACK\ENQ\DC2\EOT\254\ETX\r\DC1\n\ + \\r\n\ + \\ENQ\EOT'\STX\ACK\SOH\DC2\EOT\254\ETX\DC2\GS\n\ + \\r\n\ + \\ENQ\EOT'\STX\ACK\ETX\DC2\EOT\254\ETX !\n\ + \\f\n\ + \\EOT\EOT'\STX\a\DC2\EOT\255\ETX\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT'\STX\a\EOT\DC2\EOT\255\ETX\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\a\ENQ\DC2\EOT\255\ETX\r\DC3\n\ + \\r\n\ + \\ENQ\EOT'\STX\a\SOH\DC2\EOT\255\ETX\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT'\STX\a\ETX\DC2\EOT\255\ETX\EM\SUB\n\ + \\f\n\ + \\EOT\EOT'\STX\b\DC2\EOT\128\EOT\EOT&\n\ + \\r\n\ + \\ENQ\EOT'\STX\b\EOT\DC2\EOT\128\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\b\ENQ\DC2\EOT\128\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT'\STX\b\SOH\DC2\EOT\128\EOT\DC2!\n\ + \\r\n\ + \\ENQ\EOT'\STX\b\ETX\DC2\EOT\128\EOT$%\n\ + \\f\n\ + \\EOT\EOT'\STX\t\DC2\EOT\129\EOT\EOT%\n\ + \\r\n\ + \\ENQ\EOT'\STX\t\EOT\DC2\EOT\129\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\t\ENQ\DC2\EOT\129\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT'\STX\t\SOH\DC2\EOT\129\EOT\DC2\US\n\ + \\r\n\ + \\ENQ\EOT'\STX\t\ETX\DC2\EOT\129\EOT\"$\n\ + \\f\n\ + \\EOT\EOT'\STX\n\ + \\DC2\EOT\130\EOT\EOT#\n\ + \\r\n\ + \\ENQ\EOT'\STX\n\ + \\EOT\DC2\EOT\130\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\n\ + \\ENQ\DC2\EOT\130\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT'\STX\n\ + \\SOH\DC2\EOT\130\EOT\DC2\GS\n\ + \\r\n\ + \\ENQ\EOT'\STX\n\ + \\ETX\DC2\EOT\130\EOT \"\n\ + \\f\n\ + \\EOT\EOT'\STX\v\DC2\EOT\131\EOT\EOT!\n\ + \\r\n\ + \\ENQ\EOT'\STX\v\EOT\DC2\EOT\131\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\v\ENQ\DC2\EOT\131\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT'\STX\v\SOH\DC2\EOT\131\EOT\DC4\ESC\n\ + \\r\n\ + \\ENQ\EOT'\STX\v\ETX\DC2\EOT\131\EOT\RS \n\ + \\f\n\ + \\EOT\EOT'\STX\f\DC2\EOT\132\EOT\EOT\FS\n\ + \\r\n\ + \\ENQ\EOT'\STX\f\EOT\DC2\EOT\132\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\f\ENQ\DC2\EOT\132\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT'\STX\f\SOH\DC2\EOT\132\EOT\DC2\SYN\n\ + \\r\n\ + \\ENQ\EOT'\STX\f\ETX\DC2\EOT\132\EOT\EM\ESC\n\ + \2\n\ + \\EOT\EOT'\STX\r\DC2\EOT\133\EOT\EOT%\"$ Experimental, may change/disappear\n\ + \\n\ + \\r\n\ + \\ENQ\EOT'\STX\r\EOT\DC2\EOT\133\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\r\ENQ\DC2\EOT\133\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT'\STX\r\SOH\DC2\EOT\133\EOT\DC2\US\n\ + \\r\n\ + \\ENQ\EOT'\STX\r\ETX\DC2\EOT\133\EOT\"$\n\ + \2\n\ + \\EOT\EOT'\STX\SO\DC2\EOT\134\EOT\EOT\US\"$ Experimental, may change/disappear\n\ + \\n\ + \\r\n\ + \\ENQ\EOT'\STX\SO\EOT\DC2\EOT\134\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\SO\ENQ\DC2\EOT\134\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT'\STX\SO\SOH\DC2\EOT\134\EOT\DC4\EM\n\ + \\r\n\ + \\ENQ\EOT'\STX\SO\ETX\DC2\EOT\134\EOT\FS\RS\n\ + \D\n\ + \\EOT\EOT'\STX\SI\DC2\EOT\135\EOT\EOT\GS\"6 Bucket type, if not set we assume the 'default' type\n\ + \\n\ + \\r\n\ + \\ENQ\EOT'\STX\SI\EOT\DC2\EOT\135\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT'\STX\SI\ENQ\DC2\EOT\135\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT'\STX\SI\SOH\DC2\EOT\135\EOT\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT'\STX\SI\ETX\DC2\EOT\135\EOT\SUB\FS\n\ + \Z\n\ + \\STX\EOT(\DC2\ACK\139\EOT\NUL\143\EOT\SOH\SUBL Put response - same as get response with optional key if one was generated\n\ + \\n\ + \\v\n\ + \\ETX\EOT(\SOH\DC2\EOT\139\EOT\b\DC2\n\ + \\f\n\ + \\EOT\EOT(\STX\NUL\DC2\EOT\140\EOT\EOT$\n\ + \\r\n\ + \\ENQ\EOT(\STX\NUL\EOT\DC2\EOT\140\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT(\STX\NUL\ACK\DC2\EOT\140\EOT\r\ETB\n\ + \\r\n\ + \\ENQ\EOT(\STX\NUL\SOH\DC2\EOT\140\EOT\CAN\US\n\ + \\r\n\ + \\ENQ\EOT(\STX\NUL\ETX\DC2\EOT\140\EOT\"#\n\ + \6\n\ + \\EOT\EOT(\STX\SOH\DC2\EOT\141\EOT\EOT\RS\"( the opaque vector clock for the object\n\ + \\n\ + \\r\n\ + \\ENQ\EOT(\STX\SOH\EOT\DC2\EOT\141\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT(\STX\SOH\ENQ\DC2\EOT\141\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT(\STX\SOH\SOH\DC2\EOT\141\EOT\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT(\STX\SOH\ETX\DC2\EOT\141\EOT\FS\GS\n\ + \)\n\ + \\EOT\EOT(\STX\STX\DC2\EOT\142\EOT\EOT\ESC\"\ESC the key generated, if any\n\ + \\n\ + \\r\n\ + \\ENQ\EOT(\STX\STX\EOT\DC2\EOT\142\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT(\STX\STX\ENQ\DC2\EOT\142\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT(\STX\STX\SOH\DC2\EOT\142\EOT\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT(\STX\STX\ETX\DC2\EOT\142\EOT\EM\SUB\n\ + \\RS\n\ + \\STX\EOT)\DC2\ACK\147\EOT\NUL\161\EOT\SOH\SUB\DLE Delete request\n\ + \\n\ + \\v\n\ + \\ETX\EOT)\SOH\DC2\EOT\147\EOT\b\DC1\n\ + \\f\n\ + \\EOT\EOT)\STX\NUL\DC2\EOT\148\EOT\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT)\STX\NUL\EOT\DC2\EOT\148\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\NUL\ENQ\DC2\EOT\148\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT)\STX\NUL\SOH\DC2\EOT\148\EOT\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT)\STX\NUL\ETX\DC2\EOT\148\EOT\FS\GS\n\ + \\f\n\ + \\EOT\EOT)\STX\SOH\DC2\EOT\149\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT)\STX\SOH\EOT\DC2\EOT\149\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\SOH\ENQ\DC2\EOT\149\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT)\STX\SOH\SOH\DC2\EOT\149\EOT\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT)\STX\SOH\ETX\DC2\EOT\149\EOT\EM\SUB\n\ + \\f\n\ + \\EOT\EOT)\STX\STX\DC2\EOT\150\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT)\STX\STX\EOT\DC2\EOT\150\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\STX\ENQ\DC2\EOT\150\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT)\STX\STX\SOH\DC2\EOT\150\EOT\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT)\STX\STX\ETX\DC2\EOT\150\EOT\EM\SUB\n\ + \\f\n\ + \\EOT\EOT)\STX\ETX\DC2\EOT\151\EOT\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT)\STX\ETX\EOT\DC2\EOT\151\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\ETX\ENQ\DC2\EOT\151\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT)\STX\ETX\SOH\DC2\EOT\151\EOT\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT)\STX\ETX\ETX\DC2\EOT\151\EOT\FS\GS\n\ + \\f\n\ + \\EOT\EOT)\STX\EOT\DC2\EOT\152\EOT\EOT\SUB\n\ + \\r\n\ + \\ENQ\EOT)\STX\EOT\EOT\DC2\EOT\152\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\EOT\ENQ\DC2\EOT\152\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT)\STX\EOT\SOH\DC2\EOT\152\EOT\DC4\NAK\n\ + \\r\n\ + \\ENQ\EOT)\STX\EOT\ETX\DC2\EOT\152\EOT\CAN\EM\n\ + \\f\n\ + \\EOT\EOT)\STX\ENQ\DC2\EOT\153\EOT\EOT\SUB\n\ + \\r\n\ + \\ENQ\EOT)\STX\ENQ\EOT\DC2\EOT\153\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\ENQ\ENQ\DC2\EOT\153\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT)\STX\ENQ\SOH\DC2\EOT\153\EOT\DC4\NAK\n\ + \\r\n\ + \\ENQ\EOT)\STX\ENQ\ETX\DC2\EOT\153\EOT\CAN\EM\n\ + \\f\n\ + \\EOT\EOT)\STX\ACK\DC2\EOT\154\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT)\STX\ACK\EOT\DC2\EOT\154\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\ACK\ENQ\DC2\EOT\154\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT)\STX\ACK\SOH\DC2\EOT\154\EOT\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT)\STX\ACK\ETX\DC2\EOT\154\EOT\EM\SUB\n\ + \\f\n\ + \\EOT\EOT)\STX\a\DC2\EOT\155\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT)\STX\a\EOT\DC2\EOT\155\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\a\ENQ\DC2\EOT\155\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT)\STX\a\SOH\DC2\EOT\155\EOT\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT)\STX\a\ETX\DC2\EOT\155\EOT\EM\SUB\n\ + \\f\n\ + \\EOT\EOT)\STX\b\DC2\EOT\156\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT)\STX\b\EOT\DC2\EOT\156\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\b\ENQ\DC2\EOT\156\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT)\STX\b\SOH\DC2\EOT\156\EOT\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT)\STX\b\ETX\DC2\EOT\156\EOT\EM\SUB\n\ + \\f\n\ + \\EOT\EOT)\STX\t\DC2\EOT\157\EOT\EOT!\n\ + \\r\n\ + \\ENQ\EOT)\STX\t\EOT\DC2\EOT\157\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\t\ENQ\DC2\EOT\157\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT)\STX\t\SOH\DC2\EOT\157\EOT\DC4\ESC\n\ + \\r\n\ + \\ENQ\EOT)\STX\t\ETX\DC2\EOT\157\EOT\RS \n\ + \2\n\ + \\EOT\EOT)\STX\n\ + \\DC2\EOT\158\EOT\EOT%\"$ Experimental, may change/disappear\n\ + \\n\ + \\r\n\ + \\ENQ\EOT)\STX\n\ + \\EOT\DC2\EOT\158\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\n\ + \\ENQ\DC2\EOT\158\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT)\STX\n\ + \\SOH\DC2\EOT\158\EOT\DC2\US\n\ + \\r\n\ + \\ENQ\EOT)\STX\n\ + \\ETX\DC2\EOT\158\EOT\"$\n\ + \2\n\ + \\EOT\EOT)\STX\v\DC2\EOT\159\EOT\EOT\US\"$ Experimental, may change/disappear\n\ + \\n\ + \\r\n\ + \\ENQ\EOT)\STX\v\EOT\DC2\EOT\159\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\v\ENQ\DC2\EOT\159\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT)\STX\v\SOH\DC2\EOT\159\EOT\DC4\EM\n\ + \\r\n\ + \\ENQ\EOT)\STX\v\ETX\DC2\EOT\159\EOT\FS\RS\n\ + \D\n\ + \\EOT\EOT)\STX\f\DC2\EOT\160\EOT\EOT\GS\"6 Bucket type, if not set we assume the 'default' type\n\ + \\n\ + \\r\n\ + \\ENQ\EOT)\STX\f\EOT\DC2\EOT\160\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT)\STX\f\ENQ\DC2\EOT\160\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT)\STX\f\SOH\DC2\EOT\160\EOT\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT)\STX\f\ETX\DC2\EOT\160\EOT\SUB\FS\n\ + \\133\SOH\n\ + \\STX\EOT*\DC2\ACK\166\EOT\NUL\170\EOT\SOH\SUB\SYN List buckets request\n\ + \2_ Delete response - not defined, will return a RpbDelResp on success or RpbErrorResp on failure\n\ + \\n\ + \\v\n\ + \\ETX\EOT*\SOH\DC2\EOT\166\EOT\b\EM\n\ + \\f\n\ + \\EOT\EOT*\STX\NUL\DC2\EOT\167\EOT\EOT \n\ + \\r\n\ + \\ENQ\EOT*\STX\NUL\EOT\DC2\EOT\167\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT*\STX\NUL\ENQ\DC2\EOT\167\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT*\STX\NUL\SOH\DC2\EOT\167\EOT\DC4\ESC\n\ + \\r\n\ + \\ENQ\EOT*\STX\NUL\ETX\DC2\EOT\167\EOT\RS\US\n\ + \\f\n\ + \\EOT\EOT*\STX\SOH\DC2\EOT\168\EOT\EOT\GS\n\ + \\r\n\ + \\ENQ\EOT*\STX\SOH\EOT\DC2\EOT\168\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT*\STX\SOH\ENQ\DC2\EOT\168\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT*\STX\SOH\SOH\DC2\EOT\168\EOT\DC2\CAN\n\ + \\r\n\ + \\ENQ\EOT*\STX\SOH\ETX\DC2\EOT\168\EOT\ESC\FS\n\ + \D\n\ + \\EOT\EOT*\STX\STX\DC2\EOT\169\EOT\EOT\FS\"6 Bucket type, if not set we assume the 'default' type\n\ + \\n\ + \\r\n\ + \\ENQ\EOT*\STX\STX\EOT\DC2\EOT\169\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT*\STX\STX\ENQ\DC2\EOT\169\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT*\STX\STX\SOH\DC2\EOT\169\EOT\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT*\STX\STX\ETX\DC2\EOT\169\EOT\SUB\ESC\n\ + \\157\SOH\n\ + \\STX\EOT+\DC2\ACK\174\EOT\NUL\177\EOT\SOH\SUB\142\SOH List buckets response - one or more of these packets will be sent\n\ + \ the last one will have done set true (and may not have any buckets in it)\n\ + \\n\ + \\v\n\ + \\ETX\EOT+\SOH\DC2\EOT\174\EOT\b\SUB\n\ + \\f\n\ + \\EOT\EOT+\STX\NUL\DC2\EOT\175\EOT\EOT\US\n\ + \\r\n\ + \\ENQ\EOT+\STX\NUL\EOT\DC2\EOT\175\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT+\STX\NUL\ENQ\DC2\EOT\175\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT+\STX\NUL\SOH\DC2\EOT\175\EOT\DC3\SUB\n\ + \\r\n\ + \\ENQ\EOT+\STX\NUL\ETX\DC2\EOT\175\EOT\GS\RS\n\ + \\f\n\ + \\EOT\EOT+\STX\SOH\DC2\EOT\176\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT+\STX\SOH\EOT\DC2\EOT\176\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT+\STX\SOH\ENQ\DC2\EOT\176\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT+\STX\SOH\SOH\DC2\EOT\176\EOT\DC2\SYN\n\ + \\r\n\ + \\ENQ\EOT+\STX\SOH\ETX\DC2\EOT\176\EOT\EM\SUB\n\ + \+\n\ + \\STX\EOT,\DC2\ACK\181\EOT\NUL\185\EOT\SOH\SUB\GS List keys in bucket request\n\ + \\n\ + \\v\n\ + \\ETX\EOT,\SOH\DC2\EOT\181\EOT\b\SYN\n\ + \\f\n\ + \\EOT\EOT,\STX\NUL\DC2\EOT\182\EOT\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT,\STX\NUL\EOT\DC2\EOT\182\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT,\STX\NUL\ENQ\DC2\EOT\182\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT,\STX\NUL\SOH\DC2\EOT\182\EOT\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT,\STX\NUL\ETX\DC2\EOT\182\EOT\FS\GS\n\ + \\f\n\ + \\EOT\EOT,\STX\SOH\DC2\EOT\183\EOT\EOT \n\ + \\r\n\ + \\ENQ\EOT,\STX\SOH\EOT\DC2\EOT\183\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT,\STX\SOH\ENQ\DC2\EOT\183\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT,\STX\SOH\SOH\DC2\EOT\183\EOT\DC4\ESC\n\ + \\r\n\ + \\ENQ\EOT,\STX\SOH\ETX\DC2\EOT\183\EOT\RS\US\n\ + \D\n\ + \\EOT\EOT,\STX\STX\DC2\EOT\184\EOT\EOT\FS\"6 Bucket type, if not set we assume the 'default' type\n\ + \\n\ + \\r\n\ + \\ENQ\EOT,\STX\STX\EOT\DC2\EOT\184\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT,\STX\STX\ENQ\DC2\EOT\184\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT,\STX\STX\SOH\DC2\EOT\184\EOT\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT,\STX\STX\ETX\DC2\EOT\184\EOT\SUB\ESC\n\ + \\161\SOH\n\ + \\STX\EOT-\DC2\ACK\189\EOT\NUL\192\EOT\SOH\SUB\146\SOH List keys in bucket response - one or more of these packets will be sent\n\ + \ the last one will have done set true (and may not have any keys in it)\n\ + \\n\ + \\v\n\ + \\ETX\EOT-\SOH\DC2\EOT\189\EOT\b\ETB\n\ + \\f\n\ + \\EOT\EOT-\STX\NUL\DC2\EOT\190\EOT\EOT\FS\n\ + \\r\n\ + \\ENQ\EOT-\STX\NUL\EOT\DC2\EOT\190\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT-\STX\NUL\ENQ\DC2\EOT\190\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT-\STX\NUL\SOH\DC2\EOT\190\EOT\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT-\STX\NUL\ETX\DC2\EOT\190\EOT\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT-\STX\SOH\DC2\EOT\191\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT-\STX\SOH\EOT\DC2\EOT\191\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT-\STX\SOH\ENQ\DC2\EOT\191\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT-\STX\SOH\SOH\DC2\EOT\191\EOT\DC2\SYN\n\ + \\r\n\ + \\ENQ\EOT-\STX\SOH\ETX\DC2\EOT\191\EOT\EM\SUB\n\ + \\"\n\ + \\STX\EOT.\DC2\ACK\196\EOT\NUL\199\EOT\SOH\SUB\DC4 Map/Reduce request\n\ + \\n\ + \\v\n\ + \\ETX\EOT.\SOH\DC2\EOT\196\EOT\b\DC4\n\ + \\f\n\ + \\EOT\EOT.\STX\NUL\DC2\EOT\197\EOT\EOT\US\n\ + \\r\n\ + \\ENQ\EOT.\STX\NUL\EOT\DC2\EOT\197\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT.\STX\NUL\ENQ\DC2\EOT\197\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT.\STX\NUL\SOH\DC2\EOT\197\EOT\DC3\SUB\n\ + \\r\n\ + \\ENQ\EOT.\STX\NUL\ETX\DC2\EOT\197\EOT\GS\RS\n\ + \\f\n\ + \\EOT\EOT.\STX\SOH\DC2\EOT\198\EOT\EOT$\n\ + \\r\n\ + \\ENQ\EOT.\STX\SOH\EOT\DC2\EOT\198\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT.\STX\SOH\ENQ\DC2\EOT\198\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT.\STX\SOH\SOH\DC2\EOT\198\EOT\DC3\US\n\ + \\r\n\ + \\ENQ\EOT.\STX\SOH\ETX\DC2\EOT\198\EOT\"#\n\ + \\153\SOH\n\ + \\STX\EOT/\DC2\ACK\204\EOT\NUL\208\EOT\SOH\SUB\138\SOH Map/Reduce response\n\ + \ one or more of these packets will be sent the last one will have done set\n\ + \ true (and may not have phase/data in it)\n\ + \\n\ + \\v\n\ + \\ETX\EOT/\SOH\DC2\EOT\204\EOT\b\NAK\n\ + \\f\n\ + \\EOT\EOT/\STX\NUL\DC2\EOT\205\EOT\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT/\STX\NUL\EOT\DC2\EOT\205\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT/\STX\NUL\ENQ\DC2\EOT\205\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT/\STX\NUL\SOH\DC2\EOT\205\EOT\DC4\EM\n\ + \\r\n\ + \\ENQ\EOT/\STX\NUL\ETX\DC2\EOT\205\EOT\FS\GS\n\ + \\f\n\ + \\EOT\EOT/\STX\SOH\DC2\EOT\206\EOT\EOT \n\ + \\r\n\ + \\ENQ\EOT/\STX\SOH\EOT\DC2\EOT\206\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT/\STX\SOH\ENQ\DC2\EOT\206\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT/\STX\SOH\SOH\DC2\EOT\206\EOT\DC3\ESC\n\ + \\r\n\ + \\ENQ\EOT/\STX\SOH\ETX\DC2\EOT\206\EOT\RS\US\n\ + \\f\n\ + \\EOT\EOT/\STX\STX\DC2\EOT\207\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT/\STX\STX\EOT\DC2\EOT\207\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT/\STX\STX\ENQ\DC2\EOT\207\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT/\STX\STX\SOH\DC2\EOT\207\EOT\DC2\SYN\n\ + \\r\n\ + \\ENQ\EOT/\STX\STX\ETX\DC2\EOT\207\EOT\EM\SUB\n\ + \-\n\ + \\STX\EOT0\DC2\ACK\211\EOT\NUL\236\EOT\SOH\SUB\US Secondary Index query request\n\ + \\n\ + \\v\n\ + \\ETX\EOT0\SOH\DC2\EOT\211\EOT\b\DC3\n\ + \\SO\n\ + \\EOT\EOT0\EOT\NUL\DC2\ACK\212\EOT\EOT\215\EOT\ENQ\n\ + \\r\n\ + \\ENQ\EOT0\EOT\NUL\SOH\DC2\EOT\212\EOT\t\ETB\n\ + \\SO\n\ + \\ACK\EOT0\EOT\NUL\STX\NUL\DC2\EOT\213\EOT\b\SI\n\ + \\SI\n\ + \\a\EOT0\EOT\NUL\STX\NUL\SOH\DC2\EOT\213\EOT\b\n\ + \\n\ + \\SI\n\ + \\a\EOT0\EOT\NUL\STX\NUL\STX\DC2\EOT\213\EOT\r\SO\n\ + \\SO\n\ + \\ACK\EOT0\EOT\NUL\STX\SOH\DC2\EOT\214\EOT\b\DC2\n\ + \\SI\n\ + \\a\EOT0\EOT\NUL\STX\SOH\SOH\DC2\EOT\214\EOT\b\r\n\ + \\SI\n\ + \\a\EOT0\EOT\NUL\STX\SOH\STX\DC2\EOT\214\EOT\DLE\DC1\n\ + \\f\n\ + \\EOT\EOT0\STX\NUL\DC2\EOT\217\EOT\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT0\STX\NUL\EOT\DC2\EOT\217\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\NUL\ENQ\DC2\EOT\217\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT0\STX\NUL\SOH\DC2\EOT\217\EOT\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT0\STX\NUL\ETX\DC2\EOT\217\EOT\FS\GS\n\ + \\f\n\ + \\EOT\EOT0\STX\SOH\DC2\EOT\218\EOT\EOT\GS\n\ + \\r\n\ + \\ENQ\EOT0\STX\SOH\EOT\DC2\EOT\218\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\SOH\ENQ\DC2\EOT\218\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT0\STX\SOH\SOH\DC2\EOT\218\EOT\DC3\CAN\n\ + \\r\n\ + \\ENQ\EOT0\STX\SOH\ETX\DC2\EOT\218\EOT\ESC\FS\n\ + \\f\n\ + \\EOT\EOT0\STX\STX\DC2\EOT\219\EOT\EOT&\n\ + \\r\n\ + \\ENQ\EOT0\STX\STX\EOT\DC2\EOT\219\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\STX\ACK\DC2\EOT\219\EOT\r\ESC\n\ + \\r\n\ + \\ENQ\EOT0\STX\STX\SOH\DC2\EOT\219\EOT\FS!\n\ + \\r\n\ + \\ENQ\EOT0\STX\STX\ETX\DC2\EOT\219\EOT$%\n\ + \6\n\ + \\EOT\EOT0\STX\ETX\DC2\EOT\220\EOT\EOT\ESC\"( key here means equals value for index?\n\ + \\n\ + \\r\n\ + \\ENQ\EOT0\STX\ETX\EOT\DC2\EOT\220\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\ETX\ENQ\DC2\EOT\220\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT0\STX\ETX\SOH\DC2\EOT\220\EOT\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT0\STX\ETX\ETX\DC2\EOT\220\EOT\EM\SUB\n\ + \\f\n\ + \\EOT\EOT0\STX\EOT\DC2\EOT\221\EOT\EOT!\n\ + \\r\n\ + \\ENQ\EOT0\STX\EOT\EOT\DC2\EOT\221\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\EOT\ENQ\DC2\EOT\221\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT0\STX\EOT\SOH\DC2\EOT\221\EOT\DC3\FS\n\ + \\r\n\ + \\ENQ\EOT0\STX\EOT\ETX\DC2\EOT\221\EOT\US \n\ + \\f\n\ + \\EOT\EOT0\STX\ENQ\DC2\EOT\222\EOT\EOT!\n\ + \\r\n\ + \\ENQ\EOT0\STX\ENQ\EOT\DC2\EOT\222\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\ENQ\ENQ\DC2\EOT\222\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT0\STX\ENQ\SOH\DC2\EOT\222\EOT\DC3\FS\n\ + \\r\n\ + \\ENQ\EOT0\STX\ENQ\ETX\DC2\EOT\222\EOT\US \n\ + \\f\n\ + \\EOT\EOT0\STX\ACK\DC2\EOT\223\EOT\EOT#\n\ + \\r\n\ + \\ENQ\EOT0\STX\ACK\EOT\DC2\EOT\223\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\ACK\ENQ\DC2\EOT\223\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT0\STX\ACK\SOH\DC2\EOT\223\EOT\DC2\RS\n\ + \\r\n\ + \\ENQ\EOT0\STX\ACK\ETX\DC2\EOT\223\EOT!\"\n\ + \\f\n\ + \\EOT\EOT0\STX\a\DC2\EOT\224\EOT\EOT\GS\n\ + \\r\n\ + \\ENQ\EOT0\STX\a\EOT\DC2\EOT\224\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\a\ENQ\DC2\EOT\224\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT0\STX\a\SOH\DC2\EOT\224\EOT\DC2\CAN\n\ + \\r\n\ + \\ENQ\EOT0\STX\a\ETX\DC2\EOT\224\EOT\ESC\FS\n\ + \\f\n\ + \\EOT\EOT0\STX\b\DC2\EOT\225\EOT\EOT$\n\ + \\r\n\ + \\ENQ\EOT0\STX\b\EOT\DC2\EOT\225\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\b\ENQ\DC2\EOT\225\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT0\STX\b\SOH\DC2\EOT\225\EOT\DC4\US\n\ + \\r\n\ + \\ENQ\EOT0\STX\b\ETX\DC2\EOT\225\EOT\"#\n\ + \\f\n\ + \\EOT\EOT0\STX\t\DC2\EOT\226\EOT\EOT%\n\ + \\r\n\ + \\ENQ\EOT0\STX\t\EOT\DC2\EOT\226\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\t\ENQ\DC2\EOT\226\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT0\STX\t\SOH\DC2\EOT\226\EOT\DC3\US\n\ + \\r\n\ + \\ENQ\EOT0\STX\t\ETX\DC2\EOT\226\EOT\"$\n\ + \\f\n\ + \\EOT\EOT0\STX\n\ + \\DC2\EOT\227\EOT\EOT!\n\ + \\r\n\ + \\ENQ\EOT0\STX\n\ + \\EOT\DC2\EOT\227\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\n\ + \\ENQ\DC2\EOT\227\EOT\r\DC3\n\ + \\r\n\ + \\ENQ\EOT0\STX\n\ + \\SOH\DC2\EOT\227\EOT\DC4\ESC\n\ + \\r\n\ + \\ENQ\EOT0\STX\n\ + \\ETX\DC2\EOT\227\EOT\RS \n\ + \D\n\ + \\EOT\EOT0\STX\v\DC2\EOT\228\EOT\EOT\GS\"6 Bucket type, if not set we assume the 'default' type\n\ + \\n\ + \\r\n\ + \\ENQ\EOT0\STX\v\EOT\DC2\EOT\228\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\v\ENQ\DC2\EOT\228\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT0\STX\v\SOH\DC2\EOT\228\EOT\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT0\STX\v\ETX\DC2\EOT\228\EOT\SUB\FS\n\ + \\f\n\ + \\EOT\EOT0\STX\f\DC2\EOT\229\EOT\EOT#\n\ + \\r\n\ + \\ENQ\EOT0\STX\f\EOT\DC2\EOT\229\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\f\ENQ\DC2\EOT\229\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT0\STX\f\SOH\DC2\EOT\229\EOT\DC3\GS\n\ + \\r\n\ + \\ENQ\EOT0\STX\f\ETX\DC2\EOT\229\EOT \"\n\ + \H\n\ + \\EOT\EOT0\STX\r\DC2\EOT\231\EOT\EOT'\SUB: Whether to use pagination sort for non-paginated queries\n\ + \\n\ + \\r\n\ + \\ENQ\EOT0\STX\r\EOT\DC2\EOT\231\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\r\ENQ\DC2\EOT\231\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT0\STX\r\SOH\DC2\EOT\231\EOT\DC2!\n\ + \\r\n\ + \\ENQ\EOT0\STX\r\ETX\DC2\EOT\231\EOT$&\n\ + \Q\n\ + \\EOT\EOT0\STX\SO\DC2\EOT\233\EOT\EOT&\SUB\US parallel extraction extension\n\ + \\"\" chopped up coverage plan per-req\n\ + \\n\ + \\r\n\ + \\ENQ\EOT0\STX\SO\EOT\DC2\EOT\233\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\SO\ENQ\DC2\EOT\233\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT0\STX\SO\SOH\DC2\EOT\233\EOT\DC3 \n\ + \\r\n\ + \\ENQ\EOT0\STX\SO\ETX\DC2\EOT\233\EOT#%\n\ + \S\n\ + \\EOT\EOT0\STX\SI\DC2\EOT\234\EOT\EOT#\"E Return values with keys, only works with $bucket/$key index queries\n\ + \\n\ + \\r\n\ + \\ENQ\EOT0\STX\SI\EOT\DC2\EOT\234\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\SI\ENQ\DC2\EOT\234\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT0\STX\SI\SOH\DC2\EOT\234\EOT\DC2\GS\n\ + \\r\n\ + \\ENQ\EOT0\STX\SI\ETX\DC2\EOT\234\EOT \"\n\ + \.\n\ + \\STX\EOT1\DC2\ACK\239\EOT\NUL\244\EOT\SOH\SUB Secondary Index query response\n\ + \\n\ + \\v\n\ + \\ETX\EOT1\SOH\DC2\EOT\239\EOT\b\DC4\n\ + \\f\n\ + \\EOT\EOT1\STX\NUL\DC2\EOT\240\EOT\EOT\FS\n\ + \\r\n\ + \\ENQ\EOT1\STX\NUL\EOT\DC2\EOT\240\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT1\STX\NUL\ENQ\DC2\EOT\240\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT1\STX\NUL\SOH\DC2\EOT\240\EOT\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT1\STX\NUL\ETX\DC2\EOT\240\EOT\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT1\STX\SOH\DC2\EOT\241\EOT\EOT!\n\ + \\r\n\ + \\ENQ\EOT1\STX\SOH\EOT\DC2\EOT\241\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT1\STX\SOH\ACK\DC2\EOT\241\EOT\r\DC4\n\ + \\r\n\ + \\ENQ\EOT1\STX\SOH\SOH\DC2\EOT\241\EOT\NAK\FS\n\ + \\r\n\ + \\ENQ\EOT1\STX\SOH\ETX\DC2\EOT\241\EOT\US \n\ + \\f\n\ + \\EOT\EOT1\STX\STX\DC2\EOT\242\EOT\EOT$\n\ + \\r\n\ + \\ENQ\EOT1\STX\STX\EOT\DC2\EOT\242\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT1\STX\STX\ENQ\DC2\EOT\242\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT1\STX\STX\SOH\DC2\EOT\242\EOT\DC3\US\n\ + \\r\n\ + \\ENQ\EOT1\STX\STX\ETX\DC2\EOT\242\EOT\"#\n\ + \\f\n\ + \\EOT\EOT1\STX\ETX\DC2\EOT\243\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT1\STX\ETX\EOT\DC2\EOT\243\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT1\STX\ETX\ENQ\DC2\EOT\243\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT1\STX\ETX\SOH\DC2\EOT\243\EOT\DC2\SYN\n\ + \\r\n\ + \\ENQ\EOT1\STX\ETX\ETX\DC2\EOT\243\EOT\EM\SUB\n\ + \P\n\ + \\STX\EOT2\DC2\ACK\247\EOT\NUL\251\EOT\SOH\SUBB Stolen from CS bucket response, to be used when return_body=true\n\ + \\n\ + \\v\n\ + \\ETX\EOT2\SOH\DC2\EOT\247\EOT\b\CAN\n\ + \\f\n\ + \\EOT\EOT2\STX\NUL\DC2\EOT\248\EOT\EOT(\n\ + \\r\n\ + \\ENQ\EOT2\STX\NUL\EOT\DC2\EOT\248\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT2\STX\NUL\ACK\DC2\EOT\248\EOT\r\ESC\n\ + \\r\n\ + \\ENQ\EOT2\STX\NUL\SOH\DC2\EOT\248\EOT\FS#\n\ + \\r\n\ + \\ENQ\EOT2\STX\NUL\ETX\DC2\EOT\248\EOT&'\n\ + \\f\n\ + \\EOT\EOT2\STX\SOH\DC2\EOT\249\EOT\EOT$\n\ + \\r\n\ + \\ENQ\EOT2\STX\SOH\EOT\DC2\EOT\249\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT2\STX\SOH\ENQ\DC2\EOT\249\EOT\r\DC2\n\ + \\r\n\ + \\ENQ\EOT2\STX\SOH\SOH\DC2\EOT\249\EOT\DC3\US\n\ + \\r\n\ + \\ENQ\EOT2\STX\SOH\ETX\DC2\EOT\249\EOT\"#\n\ + \\f\n\ + \\EOT\EOT2\STX\STX\DC2\EOT\250\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT2\STX\STX\EOT\DC2\EOT\250\EOT\EOT\f\n\ + \\r\n\ + \\ENQ\EOT2\STX\STX\ENQ\DC2\EOT\250\EOT\r\DC1\n\ + \\r\n\ + \\ENQ\EOT2\STX\STX\SOH\DC2\EOT\250\EOT\DC2\SYN\n\ + \\r\n\ + \\ENQ\EOT2\STX\STX\ETX\DC2\EOT\250\EOT\EM\SUB\n\ + \e\n\ + \\STX\EOT3\DC2\ACK\128\ENQ\NUL\140\ENQ\SOH\SUBW added solely for riak_cs currently\n\ + \ for folding over a bucket and returning\n\ + \ objects.\n\ + \\n\ + \\v\n\ + \\ETX\EOT3\SOH\DC2\EOT\128\ENQ\b\SYN\n\ + \\f\n\ + \\EOT\EOT3\STX\NUL\DC2\EOT\129\ENQ\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT3\STX\NUL\EOT\DC2\EOT\129\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT3\STX\NUL\ENQ\DC2\EOT\129\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT3\STX\NUL\SOH\DC2\EOT\129\ENQ\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT3\STX\NUL\ETX\DC2\EOT\129\ENQ\FS\GS\n\ + \\f\n\ + \\EOT\EOT3\STX\SOH\DC2\EOT\130\ENQ\EOT!\n\ + \\r\n\ + \\ENQ\EOT3\STX\SOH\EOT\DC2\EOT\130\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT3\STX\SOH\ENQ\DC2\EOT\130\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT3\STX\SOH\SOH\DC2\EOT\130\ENQ\DC3\FS\n\ + \\r\n\ + \\ENQ\EOT3\STX\SOH\ETX\DC2\EOT\130\ENQ\US \n\ + \\f\n\ + \\EOT\EOT3\STX\STX\DC2\EOT\131\ENQ\EOT\US\n\ + \\r\n\ + \\ENQ\EOT3\STX\STX\EOT\DC2\EOT\131\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT3\STX\STX\ENQ\DC2\EOT\131\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT3\STX\STX\SOH\DC2\EOT\131\ENQ\DC3\SUB\n\ + \\r\n\ + \\ENQ\EOT3\STX\STX\ETX\DC2\EOT\131\ENQ\GS\RS\n\ + \\f\n\ + \\EOT\EOT3\STX\ETX\DC2\EOT\132\ENQ\EOT2\n\ + \\r\n\ + \\ENQ\EOT3\STX\ETX\EOT\DC2\EOT\132\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT3\STX\ETX\ENQ\DC2\EOT\132\ENQ\r\DC1\n\ + \\r\n\ + \\ENQ\EOT3\STX\ETX\SOH\DC2\EOT\132\ENQ\DC2\FS\n\ + \\r\n\ + \\ENQ\EOT3\STX\ETX\ETX\DC2\EOT\132\ENQ\US \n\ + \\r\n\ + \\ENQ\EOT3\STX\ETX\b\DC2\EOT\132\ENQ!1\n\ + \\r\n\ + \\ENQ\EOT3\STX\ETX\a\DC2\EOT\132\ENQ,0\n\ + \\f\n\ + \\EOT\EOT3\STX\EOT\DC2\EOT\133\ENQ\EOT1\n\ + \\r\n\ + \\ENQ\EOT3\STX\EOT\EOT\DC2\EOT\133\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT3\STX\EOT\ENQ\DC2\EOT\133\ENQ\r\DC1\n\ + \\r\n\ + \\ENQ\EOT3\STX\EOT\SOH\DC2\EOT\133\ENQ\DC2\SUB\n\ + \\r\n\ + \\ENQ\EOT3\STX\EOT\ETX\DC2\EOT\133\ENQ\GS\RS\n\ + \\r\n\ + \\ENQ\EOT3\STX\EOT\b\DC2\EOT\133\ENQ\US0\n\ + \\r\n\ + \\ENQ\EOT3\STX\EOT\a\DC2\EOT\133\ENQ*/\n\ + \\f\n\ + \\EOT\EOT3\STX\ENQ\DC2\EOT\134\ENQ\EOT$\n\ + \\r\n\ + \\ENQ\EOT3\STX\ENQ\EOT\DC2\EOT\134\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT3\STX\ENQ\ENQ\DC2\EOT\134\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT3\STX\ENQ\SOH\DC2\EOT\134\ENQ\DC3\US\n\ + \\r\n\ + \\ENQ\EOT3\STX\ENQ\ETX\DC2\EOT\134\ENQ\"#\n\ + \\f\n\ + \\EOT\EOT3\STX\ACK\DC2\EOT\135\ENQ\EOT$\n\ + \\r\n\ + \\ENQ\EOT3\STX\ACK\EOT\DC2\EOT\135\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT3\STX\ACK\ENQ\DC2\EOT\135\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT3\STX\ACK\SOH\DC2\EOT\135\ENQ\DC4\US\n\ + \\r\n\ + \\ENQ\EOT3\STX\ACK\ETX\DC2\EOT\135\ENQ\"#\n\ + \\f\n\ + \\EOT\EOT3\STX\a\DC2\EOT\136\ENQ\EOT \n\ + \\r\n\ + \\ENQ\EOT3\STX\a\EOT\DC2\EOT\136\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT3\STX\a\ENQ\DC2\EOT\136\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT3\STX\a\SOH\DC2\EOT\136\ENQ\DC4\ESC\n\ + \\r\n\ + \\ENQ\EOT3\STX\a\ETX\DC2\EOT\136\ENQ\RS\US\n\ + \D\n\ + \\EOT\EOT3\STX\b\DC2\EOT\137\ENQ\EOT\FS\"6 Bucket type, if not set we assume the 'default' type\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\b\EOT\DC2\EOT\137\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT3\STX\b\ENQ\DC2\EOT\137\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT3\STX\b\SOH\DC2\EOT\137\ENQ\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT3\STX\b\ETX\DC2\EOT\137\ENQ\SUB\ESC\n\ + \Q\n\ + \\EOT\EOT3\STX\t\DC2\EOT\139\ENQ\EOT&\SUB\US parallel extraction extension\n\ + \\"\" chopped up coverage plan per-req\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\t\EOT\DC2\EOT\139\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT3\STX\t\ENQ\DC2\EOT\139\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT3\STX\t\SOH\DC2\EOT\139\ENQ\DC3 \n\ + \\r\n\ + \\ENQ\EOT3\STX\t\ETX\DC2\EOT\139\ENQ#%\n\ + \)\n\ + \\STX\EOT4\DC2\ACK\143\ENQ\NUL\147\ENQ\SOH\SUB\ESC return for CS bucket fold\n\ + \\n\ + \\v\n\ + \\ETX\EOT4\SOH\DC2\EOT\143\ENQ\b\ETB\n\ + \\f\n\ + \\EOT\EOT4\STX\NUL\DC2\EOT\144\ENQ\EOT(\n\ + \\r\n\ + \\ENQ\EOT4\STX\NUL\EOT\DC2\EOT\144\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT4\STX\NUL\ACK\DC2\EOT\144\ENQ\r\ESC\n\ + \\r\n\ + \\ENQ\EOT4\STX\NUL\SOH\DC2\EOT\144\ENQ\FS#\n\ + \\r\n\ + \\ENQ\EOT4\STX\NUL\ETX\DC2\EOT\144\ENQ&'\n\ + \\f\n\ + \\EOT\EOT4\STX\SOH\DC2\EOT\145\ENQ\EOT$\n\ + \\r\n\ + \\ENQ\EOT4\STX\SOH\EOT\DC2\EOT\145\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT4\STX\SOH\ENQ\DC2\EOT\145\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT4\STX\SOH\SOH\DC2\EOT\145\ENQ\DC3\US\n\ + \\r\n\ + \\ENQ\EOT4\STX\SOH\ETX\DC2\EOT\145\ENQ\"#\n\ + \\f\n\ + \\EOT\EOT4\STX\STX\DC2\EOT\146\ENQ\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT4\STX\STX\EOT\DC2\EOT\146\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT4\STX\STX\ENQ\DC2\EOT\146\ENQ\r\DC1\n\ + \\r\n\ + \\ENQ\EOT4\STX\STX\SOH\DC2\EOT\146\ENQ\DC2\SYN\n\ + \\r\n\ + \\ENQ\EOT4\STX\STX\ETX\DC2\EOT\146\ENQ\EM\SUB\n\ + \\f\n\ + \\STX\EOT5\DC2\ACK\149\ENQ\NUL\152\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOT5\SOH\DC2\EOT\149\ENQ\b\SYN\n\ + \\f\n\ + \\EOT\EOT5\STX\NUL\DC2\EOT\150\ENQ\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT5\STX\NUL\EOT\DC2\EOT\150\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT5\STX\NUL\ENQ\DC2\EOT\150\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT5\STX\NUL\SOH\DC2\EOT\150\ENQ\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT5\STX\NUL\ETX\DC2\EOT\150\ENQ\EM\SUB\n\ + \\f\n\ + \\EOT\EOT5\STX\SOH\DC2\EOT\151\ENQ\EOT#\n\ + \\r\n\ + \\ENQ\EOT5\STX\SOH\EOT\DC2\EOT\151\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT5\STX\SOH\ACK\DC2\EOT\151\ENQ\r\ETB\n\ + \\r\n\ + \\ENQ\EOT5\STX\SOH\SOH\DC2\EOT\151\ENQ\CAN\RS\n\ + \\r\n\ + \\ENQ\EOT5\STX\SOH\ETX\DC2\EOT\151\ENQ!\"\n\ + \f\n\ + \\STX\EOT6\DC2\ACK\156\ENQ\NUL\169\ENQ\SOH\SUBX Content message included in get/put responses\n\ + \ Holds the value and associated metadata\n\ + \\n\ + \\v\n\ + \\ETX\EOT6\SOH\DC2\EOT\156\ENQ\b\DC2\n\ + \\f\n\ + \\EOT\EOT6\STX\NUL\DC2\EOT\157\ENQ\EOT\GS\n\ + \\r\n\ + \\ENQ\EOT6\STX\NUL\EOT\DC2\EOT\157\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\NUL\ENQ\DC2\EOT\157\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT6\STX\NUL\SOH\DC2\EOT\157\ENQ\DC3\CAN\n\ + \\r\n\ + \\ENQ\EOT6\STX\NUL\ETX\DC2\EOT\157\ENQ\ESC\FS\n\ + \%\n\ + \\EOT\EOT6\STX\SOH\DC2\EOT\158\ENQ\EOT$\"\ETB the media type/format\n\ + \\n\ + \\r\n\ + \\ENQ\EOT6\STX\SOH\EOT\DC2\EOT\158\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\SOH\ENQ\DC2\EOT\158\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT6\STX\SOH\SOH\DC2\EOT\158\ENQ\DC3\US\n\ + \\r\n\ + \\ENQ\EOT6\STX\SOH\ETX\DC2\EOT\158\ENQ\"#\n\ + \\f\n\ + \\EOT\EOT6\STX\STX\DC2\EOT\159\ENQ\EOT\US\n\ + \\r\n\ + \\ENQ\EOT6\STX\STX\EOT\DC2\EOT\159\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\STX\ENQ\DC2\EOT\159\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT6\STX\STX\SOH\DC2\EOT\159\ENQ\DC3\SUB\n\ + \\r\n\ + \\ENQ\EOT6\STX\STX\ETX\DC2\EOT\159\ENQ\GS\RS\n\ + \\f\n\ + \\EOT\EOT6\STX\ETX\DC2\EOT\160\ENQ\EOT(\n\ + \\r\n\ + \\ENQ\EOT6\STX\ETX\EOT\DC2\EOT\160\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\ETX\ENQ\DC2\EOT\160\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT6\STX\ETX\SOH\DC2\EOT\160\ENQ\DC3#\n\ + \\r\n\ + \\ENQ\EOT6\STX\ETX\ETX\DC2\EOT\160\ENQ&'\n\ + \\f\n\ + \\EOT\EOT6\STX\EOT\DC2\EOT\161\ENQ\EOT\FS\n\ + \\r\n\ + \\ENQ\EOT6\STX\EOT\EOT\DC2\EOT\161\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\EOT\ENQ\DC2\EOT\161\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT6\STX\EOT\SOH\DC2\EOT\161\ENQ\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT6\STX\EOT\ETX\DC2\EOT\161\ENQ\SUB\ESC\n\ + \(\n\ + \\EOT\EOT6\STX\ENQ\DC2\EOT\162\ENQ\EOT\US\"\SUB links to other resources\n\ + \\n\ + \\r\n\ + \\ENQ\EOT6\STX\ENQ\EOT\DC2\EOT\162\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\ENQ\ACK\DC2\EOT\162\ENQ\r\DC4\n\ + \\r\n\ + \\ENQ\EOT6\STX\ENQ\SOH\DC2\EOT\162\ENQ\NAK\SUB\n\ + \\r\n\ + \\ENQ\EOT6\STX\ENQ\ETX\DC2\EOT\162\ENQ\GS\RS\n\ + \\f\n\ + \\EOT\EOT6\STX\ACK\DC2\EOT\163\ENQ\EOT!\n\ + \\r\n\ + \\ENQ\EOT6\STX\ACK\EOT\DC2\EOT\163\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\ACK\ENQ\DC2\EOT\163\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT6\STX\ACK\SOH\DC2\EOT\163\ENQ\DC4\FS\n\ + \\r\n\ + \\ENQ\EOT6\STX\ACK\ETX\DC2\EOT\163\ENQ\US \n\ + \\f\n\ + \\EOT\EOT6\STX\a\DC2\EOT\164\ENQ\EOT'\n\ + \\r\n\ + \\ENQ\EOT6\STX\a\EOT\DC2\EOT\164\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\a\ENQ\DC2\EOT\164\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT6\STX\a\SOH\DC2\EOT\164\ENQ\DC4\"\n\ + \\r\n\ + \\ENQ\EOT6\STX\a\ETX\DC2\EOT\164\ENQ%&\n\ + \4\n\ + \\EOT\EOT6\STX\b\DC2\EOT\165\ENQ\EOT\"\"& user metadata stored with the object\n\ + \\n\ + \\r\n\ + \\ENQ\EOT6\STX\b\EOT\DC2\EOT\165\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\b\ACK\DC2\EOT\165\ENQ\r\DC4\n\ + \\r\n\ + \\ENQ\EOT6\STX\b\SOH\DC2\EOT\165\ENQ\NAK\GS\n\ + \\r\n\ + \\ENQ\EOT6\STX\b\ETX\DC2\EOT\165\ENQ !\n\ + \4\n\ + \\EOT\EOT6\STX\t\DC2\EOT\166\ENQ\EOT\"\"& user metadata stored with the object\n\ + \\n\ + \\r\n\ + \\ENQ\EOT6\STX\t\EOT\DC2\EOT\166\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\t\ACK\DC2\EOT\166\ENQ\r\DC4\n\ + \\r\n\ + \\ENQ\EOT6\STX\t\SOH\DC2\EOT\166\ENQ\NAK\FS\n\ + \\r\n\ + \\ENQ\EOT6\STX\t\ETX\DC2\EOT\166\ENQ\US!\n\ + \\f\n\ + \\EOT\EOT6\STX\n\ + \\DC2\EOT\167\ENQ\EOT\US\n\ + \\r\n\ + \\ENQ\EOT6\STX\n\ + \\EOT\DC2\EOT\167\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\n\ + \\ENQ\DC2\EOT\167\ENQ\r\DC1\n\ + \\r\n\ + \\ENQ\EOT6\STX\n\ + \\SOH\DC2\EOT\167\ENQ\DC2\EM\n\ + \\r\n\ + \\ENQ\EOT6\STX\n\ + \\ETX\DC2\EOT\167\ENQ\FS\RS\n\ + \\f\n\ + \\EOT\EOT6\STX\v\DC2\EOT\168\ENQ\EOT\GS\n\ + \\r\n\ + \\ENQ\EOT6\STX\v\EOT\DC2\EOT\168\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT6\STX\v\ENQ\DC2\EOT\168\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT6\STX\v\SOH\DC2\EOT\168\ENQ\DC4\ETB\n\ + \\r\n\ + \\ENQ\EOT6\STX\v\ETX\DC2\EOT\168\ENQ\SUB\FS\n\ + \\GS\n\ + \\STX\EOT7\DC2\ACK\172\ENQ\NUL\176\ENQ\SOH\SUB\SI Link metadata\n\ + \\n\ + \\v\n\ + \\ETX\EOT7\SOH\DC2\EOT\172\ENQ\b\SI\n\ + \\f\n\ + \\EOT\EOT7\STX\NUL\DC2\EOT\173\ENQ\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT7\STX\NUL\EOT\DC2\EOT\173\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT7\STX\NUL\ENQ\DC2\EOT\173\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT7\STX\NUL\SOH\DC2\EOT\173\ENQ\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT7\STX\NUL\ETX\DC2\EOT\173\ENQ\FS\GS\n\ + \\f\n\ + \\EOT\EOT7\STX\SOH\DC2\EOT\174\ENQ\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT7\STX\SOH\EOT\DC2\EOT\174\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT7\STX\SOH\ENQ\DC2\EOT\174\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT7\STX\SOH\SOH\DC2\EOT\174\ENQ\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT7\STX\SOH\ETX\DC2\EOT\174\ENQ\EM\SUB\n\ + \\f\n\ + \\EOT\EOT7\STX\STX\DC2\EOT\175\ENQ\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT7\STX\STX\EOT\DC2\EOT\175\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT7\STX\STX\ENQ\DC2\EOT\175\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT7\STX\STX\SOH\DC2\EOT\175\ENQ\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT7\STX\STX\ETX\DC2\EOT\175\ENQ\EM\SUB\n\ + \&\n\ + \\STX\EOT8\DC2\ACK\179\ENQ\NUL\187\ENQ\SOH\SUB\CAN Counter update request\n\ + \\n\ + \\v\n\ + \\ETX\EOT8\SOH\DC2\EOT\179\ENQ\b\ESC\n\ + \\f\n\ + \\EOT\EOT8\STX\NUL\DC2\EOT\180\ENQ\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT8\STX\NUL\EOT\DC2\EOT\180\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT8\STX\NUL\ENQ\DC2\EOT\180\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT8\STX\NUL\SOH\DC2\EOT\180\ENQ\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT8\STX\NUL\ETX\DC2\EOT\180\ENQ\FS\GS\n\ + \\f\n\ + \\EOT\EOT8\STX\SOH\DC2\EOT\181\ENQ\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT8\STX\SOH\EOT\DC2\EOT\181\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT8\STX\SOH\ENQ\DC2\EOT\181\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT8\STX\SOH\SOH\DC2\EOT\181\ENQ\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT8\STX\SOH\ETX\DC2\EOT\181\ENQ\EM\SUB\n\ + \\f\n\ + \\EOT\EOT8\STX\STX\DC2\EOT\182\ENQ\EOT\US\n\ + \\r\n\ + \\ENQ\EOT8\STX\STX\EOT\DC2\EOT\182\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT8\STX\STX\ENQ\DC2\EOT\182\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT8\STX\STX\SOH\DC2\EOT\182\ENQ\DC4\SUB\n\ + \\r\n\ + \\ENQ\EOT8\STX\STX\ETX\DC2\EOT\182\ENQ\GS\RS\n\ + \\f\n\ + \\EOT\EOT8\STX\ETX\DC2\EOT\183\ENQ\EOT\SUB\n\ + \\r\n\ + \\ENQ\EOT8\STX\ETX\EOT\DC2\EOT\183\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT8\STX\ETX\ENQ\DC2\EOT\183\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT8\STX\ETX\SOH\DC2\EOT\183\ENQ\DC4\NAK\n\ + \\r\n\ + \\ENQ\EOT8\STX\ETX\ETX\DC2\EOT\183\ENQ\CAN\EM\n\ + \\f\n\ + \\EOT\EOT8\STX\EOT\DC2\EOT\184\ENQ\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT8\STX\EOT\EOT\DC2\EOT\184\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT8\STX\EOT\ENQ\DC2\EOT\184\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT8\STX\EOT\SOH\DC2\EOT\184\ENQ\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT8\STX\EOT\ETX\DC2\EOT\184\ENQ\EM\SUB\n\ + \\f\n\ + \\EOT\EOT8\STX\ENQ\DC2\EOT\185\ENQ\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT8\STX\ENQ\EOT\DC2\EOT\185\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT8\STX\ENQ\ENQ\DC2\EOT\185\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT8\STX\ENQ\SOH\DC2\EOT\185\ENQ\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT8\STX\ENQ\ETX\DC2\EOT\185\ENQ\EM\SUB\n\ + \\f\n\ + \\EOT\EOT8\STX\ACK\DC2\EOT\186\ENQ\EOT\"\n\ + \\r\n\ + \\ENQ\EOT8\STX\ACK\EOT\DC2\EOT\186\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT8\STX\ACK\ENQ\DC2\EOT\186\ENQ\r\DC1\n\ + \\r\n\ + \\ENQ\EOT8\STX\ACK\SOH\DC2\EOT\186\ENQ\DC2\GS\n\ + \\r\n\ + \\ENQ\EOT8\STX\ACK\ETX\DC2\EOT\186\ENQ !\n\ + \D\n\ + \\STX\EOT9\DC2\ACK\190\ENQ\NUL\192\ENQ\SOH\SUB6 Counter update response? No message | error response\n\ + \\n\ + \\v\n\ + \\ETX\EOT9\SOH\DC2\EOT\190\ENQ\b\FS\n\ + \\f\n\ + \\EOT\EOT9\STX\NUL\DC2\EOT\191\ENQ\b\"\n\ + \\r\n\ + \\ENQ\EOT9\STX\NUL\EOT\DC2\EOT\191\ENQ\b\DLE\n\ + \\r\n\ + \\ENQ\EOT9\STX\NUL\ENQ\DC2\EOT\191\ENQ\DC1\ETB\n\ + \\r\n\ + \\ENQ\EOT9\STX\NUL\SOH\DC2\EOT\191\ENQ\CAN\GS\n\ + \\r\n\ + \\ENQ\EOT9\STX\NUL\ETX\DC2\EOT\191\ENQ !\n\ + \\GS\n\ + \\STX\EOT:\DC2\ACK\195\ENQ\NUL\202\ENQ\SOH\SUB\SI counter value\n\ + \\n\ + \\v\n\ + \\ETX\EOT:\SOH\DC2\EOT\195\ENQ\b\CAN\n\ + \\f\n\ + \\EOT\EOT:\STX\NUL\DC2\EOT\196\ENQ\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT:\STX\NUL\EOT\DC2\EOT\196\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT:\STX\NUL\ENQ\DC2\EOT\196\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT:\STX\NUL\SOH\DC2\EOT\196\ENQ\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT:\STX\NUL\ETX\DC2\EOT\196\ENQ\FS\GS\n\ + \\f\n\ + \\EOT\EOT:\STX\SOH\DC2\EOT\197\ENQ\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT:\STX\SOH\EOT\DC2\EOT\197\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT:\STX\SOH\ENQ\DC2\EOT\197\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT:\STX\SOH\SOH\DC2\EOT\197\ENQ\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT:\STX\SOH\ETX\DC2\EOT\197\ENQ\EM\SUB\n\ + \\f\n\ + \\EOT\EOT:\STX\STX\DC2\EOT\198\ENQ\EOT\SUB\n\ + \\r\n\ + \\ENQ\EOT:\STX\STX\EOT\DC2\EOT\198\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT:\STX\STX\ENQ\DC2\EOT\198\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT:\STX\STX\SOH\DC2\EOT\198\ENQ\DC4\NAK\n\ + \\r\n\ + \\ENQ\EOT:\STX\STX\ETX\DC2\EOT\198\ENQ\CAN\EM\n\ + \\f\n\ + \\EOT\EOT:\STX\ETX\DC2\EOT\199\ENQ\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT:\STX\ETX\EOT\DC2\EOT\199\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT:\STX\ETX\ENQ\DC2\EOT\199\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT:\STX\ETX\SOH\DC2\EOT\199\ENQ\DC4\SYN\n\ + \\r\n\ + \\ENQ\EOT:\STX\ETX\ETX\DC2\EOT\199\ENQ\EM\SUB\n\ + \\f\n\ + \\EOT\EOT:\STX\EOT\DC2\EOT\200\ENQ\EOT#\n\ + \\r\n\ + \\ENQ\EOT:\STX\EOT\EOT\DC2\EOT\200\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT:\STX\EOT\ENQ\DC2\EOT\200\ENQ\r\DC1\n\ + \\r\n\ + \\ENQ\EOT:\STX\EOT\SOH\DC2\EOT\200\ENQ\DC2\RS\n\ + \\r\n\ + \\ENQ\EOT:\STX\EOT\ETX\DC2\EOT\200\ENQ!\"\n\ + \\f\n\ + \\EOT\EOT:\STX\ENQ\DC2\EOT\201\ENQ\EOT\"\n\ + \\r\n\ + \\ENQ\EOT:\STX\ENQ\EOT\DC2\EOT\201\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT:\STX\ENQ\ENQ\DC2\EOT\201\ENQ\r\DC1\n\ + \\r\n\ + \\ENQ\EOT:\STX\ENQ\SOH\DC2\EOT\201\ENQ\DC2\GS\n\ + \\r\n\ + \\ENQ\EOT:\STX\ENQ\ETX\DC2\EOT\201\ENQ !\n\ + \&\n\ + \\STX\EOT;\DC2\ACK\205\ENQ\NUL\207\ENQ\SOH\SUB\CAN Counter value response\n\ + \\n\ + \\v\n\ + \\ETX\EOT;\SOH\DC2\EOT\205\ENQ\b\EM\n\ + \\f\n\ + \\EOT\EOT;\STX\NUL\DC2\EOT\206\ENQ\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT;\STX\NUL\EOT\DC2\EOT\206\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT;\STX\NUL\ENQ\DC2\EOT\206\ENQ\r\DC3\n\ + \\r\n\ + \\ENQ\EOT;\STX\NUL\SOH\DC2\EOT\206\ENQ\DC4\EM\n\ + \\r\n\ + \\ENQ\EOT;\STX\NUL\ETX\DC2\EOT\206\ENQ\FS\GS\n\ + \/\n\ + \\STX\EOT<\DC2\ACK\210\ENQ\NUL\214\ENQ\SOH\SUB! Get bucket-key preflist request\n\ + \\n\ + \\v\n\ + \\ETX\EOT<\SOH\DC2\EOT\210\ENQ\b\"\n\ + \\f\n\ + \\EOT\EOT<\STX\NUL\DC2\EOT\211\ENQ\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT<\STX\NUL\EOT\DC2\EOT\211\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT<\STX\NUL\ENQ\DC2\EOT\211\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT<\STX\NUL\SOH\DC2\EOT\211\ENQ\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT<\STX\NUL\ETX\DC2\EOT\211\ENQ\FS\GS\n\ + \\f\n\ + \\EOT\EOT<\STX\SOH\DC2\EOT\212\ENQ\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT<\STX\SOH\EOT\DC2\EOT\212\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT<\STX\SOH\ENQ\DC2\EOT\212\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT<\STX\SOH\SOH\DC2\EOT\212\ENQ\DC3\SYN\n\ + \\r\n\ + \\ENQ\EOT<\STX\SOH\ETX\DC2\EOT\212\ENQ\EM\SUB\n\ + \\f\n\ + \\EOT\EOT<\STX\STX\DC2\EOT\213\ENQ\EOT\FS\n\ + \\r\n\ + \\ENQ\EOT<\STX\STX\EOT\DC2\EOT\213\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT<\STX\STX\ENQ\DC2\EOT\213\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT<\STX\STX\SOH\DC2\EOT\213\ENQ\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT<\STX\STX\ETX\DC2\EOT\213\ENQ\SUB\ESC\n\ + \0\n\ + \\STX\EOT=\DC2\ACK\217\ENQ\NUL\219\ENQ\SOH\SUB\" Get bucket-key preflist response\n\ + \\n\ + \\v\n\ + \\ETX\EOT=\SOH\DC2\EOT\217\ENQ\b#\n\ + \\f\n\ + \\EOT\EOT=\STX\NUL\DC2\EOT\218\ENQ\EOT3\n\ + \\r\n\ + \\ENQ\EOT=\STX\NUL\EOT\DC2\EOT\218\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT=\STX\NUL\ACK\DC2\EOT\218\ENQ\r%\n\ + \\r\n\ + \\ENQ\EOT=\STX\NUL\SOH\DC2\EOT\218\ENQ&.\n\ + \\r\n\ + \\ENQ\EOT=\STX\NUL\ETX\DC2\EOT\218\ENQ12\n\ + \\GS\n\ + \\STX\EOT>\DC2\ACK\222\ENQ\NUL\226\ENQ\SOH\SUB\SI Preflist item\n\ + \\n\ + \\v\n\ + \\ETX\EOT>\SOH\DC2\EOT\222\ENQ\b \n\ + \\f\n\ + \\EOT\EOT>\STX\NUL\DC2\EOT\223\ENQ\EOT!\n\ + \\r\n\ + \\ENQ\EOT>\STX\NUL\EOT\DC2\EOT\223\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT>\STX\NUL\ENQ\DC2\EOT\223\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT>\STX\NUL\SOH\DC2\EOT\223\ENQ\DC3\FS\n\ + \\r\n\ + \\ENQ\EOT>\STX\NUL\ETX\DC2\EOT\223\ENQ\US \n\ + \\f\n\ + \\EOT\EOT>\STX\SOH\DC2\EOT\224\ENQ\EOT\FS\n\ + \\r\n\ + \\ENQ\EOT>\STX\SOH\EOT\DC2\EOT\224\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT>\STX\SOH\ENQ\DC2\EOT\224\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT>\STX\SOH\SOH\DC2\EOT\224\ENQ\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT>\STX\SOH\ETX\DC2\EOT\224\ENQ\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT>\STX\STX\DC2\EOT\225\ENQ\EOT\US\n\ + \\r\n\ + \\ENQ\EOT>\STX\STX\EOT\DC2\EOT\225\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT>\STX\STX\ENQ\DC2\EOT\225\ENQ\r\DC1\n\ + \\r\n\ + \\ENQ\EOT>\STX\STX\SOH\DC2\EOT\225\ENQ\DC3\SUB\n\ + \\r\n\ + \\ENQ\EOT>\STX\STX\ETX\DC2\EOT\225\ENQ\GS\RS\n\ + \J\n\ + \\STX\EOT?\DC2\ACK\230\ENQ\NUL\236\ENQ\SOH\SUB< Request a segmented coverage plan for the specified bucket\n\ + \\n\ + \\v\n\ + \\ETX\EOT?\SOH\DC2\EOT\230\ENQ\b\SYN\n\ + \D\n\ + \\EOT\EOT?\STX\NUL\DC2\EOT\231\ENQ\EOT\FS\"6 Bucket type, if not set we assume the 'default' type\n\ + \\n\ + \\r\n\ + \\ENQ\EOT?\STX\NUL\EOT\DC2\EOT\231\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT?\STX\NUL\ENQ\DC2\EOT\231\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT?\STX\NUL\SOH\DC2\EOT\231\ENQ\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT?\STX\NUL\ETX\DC2\EOT\231\ENQ\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT?\STX\SOH\DC2\EOT\232\ENQ\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT?\STX\SOH\EOT\DC2\EOT\232\ENQ\EOT\f\n\ + \\r\n\ + \\ENQ\EOT?\STX\SOH\ENQ\DC2\EOT\232\ENQ\r\DC2\n\ + \\r\n\ + \\ENQ\EOT?\STX\SOH\SOH\DC2\EOT\232\ENQ\DC3\EM\n\ + \\r\n\ + \\ENQ\EOT?\STX\SOH\ETX\DC2\EOT\232\ENQ\FS\GS\n\ + \\226\SOH\n\ + \\EOT\EOT?\STX\STX\DC2\EOT\233\ENQ\EOT'\"\211\SOH If undefined, we build a normal coverage plan. If left optional to support parameterized queries in the future\n\ + \\n\ + \\r\n\ + \\ENQ\EOTE\STX\NUL\EOT\DC2\EOT\190\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTE\STX\NUL\ACK\DC2\EOT\190\ACK\v\SUB\n\ + \\r\n\ + \\ENQ\EOTE\STX\NUL\SOH\DC2\EOT\190\ACK\ESC \n\ + \\r\n\ + \\ENQ\EOTE\STX\NUL\ETX\DC2\EOT\190\ACK#$\n\ + \\f\n\ + \\EOT\EOTE\STX\SOH\DC2\EOT\191\ACK\STX-\n\ + \\r\n\ + \\ENQ\EOTE\STX\SOH\EOT\DC2\EOT\191\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTE\STX\SOH\ENQ\DC2\EOT\191\ACK\v\SI\n\ + \\r\n\ + \\ENQ\EOTE\STX\SOH\SOH\DC2\EOT\191\ACK\DLE\SYN\n\ + \\r\n\ + \\ENQ\EOTE\STX\SOH\ETX\DC2\EOT\191\ACK\EM\SUB\n\ + \\r\n\ + \\ENQ\EOTE\STX\SOH\b\DC2\EOT\191\ACK\ESC,\n\ + \\r\n\ + \\ENQ\EOTE\STX\SOH\a\DC2\EOT\191\ACK&+\n\ + \0\n\ + \\EOT\EOTE\STX\STX\DC2\EOT\192\ACK\STX#\"\" chopped up coverage plan per-req\n\ + \\n\ + \\r\n\ + \\ENQ\EOTE\STX\STX\EOT\DC2\EOT\192\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTE\STX\STX\ENQ\DC2\EOT\192\ACK\v\DLE\n\ + \\r\n\ + \\ENQ\EOTE\STX\STX\SOH\DC2\EOT\192\ACK\DC1\RS\n\ + \\r\n\ + \\ENQ\EOTE\STX\STX\ETX\DC2\EOT\192\ACK!\"\n\ + \\f\n\ + \\STX\EOTF\DC2\ACK\195\ACK\NUL\199\ACK\SOH\n\ + \\v\n\ + \\ETX\EOTF\SOH\DC2\EOT\195\ACK\b\DC3\n\ + \\f\n\ + \\EOT\EOTF\STX\NUL\DC2\EOT\196\ACK\STX+\n\ + \\r\n\ + \\ENQ\EOTF\STX\NUL\EOT\DC2\EOT\196\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTF\STX\NUL\ACK\DC2\EOT\196\ACK\v\RS\n\ + \\r\n\ + \\ENQ\EOTF\STX\NUL\SOH\DC2\EOT\196\ACK\US&\n\ + \\r\n\ + \\ENQ\EOTF\STX\NUL\ETX\DC2\EOT\196\ACK)*\n\ + \\ESC\n\ + \\EOT\EOTF\STX\SOH\DC2\EOT\197\ACK\STX\SUB\"\r 0 to n rows\n\ + \\n\ + \\r\n\ + \\ENQ\EOTF\STX\SOH\EOT\DC2\EOT\197\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTF\STX\SOH\ACK\DC2\EOT\197\ACK\v\DLE\n\ + \\r\n\ + \\ENQ\EOTF\STX\SOH\SOH\DC2\EOT\197\ACK\DC1\NAK\n\ + \\r\n\ + \\ENQ\EOTF\STX\SOH\ETX\DC2\EOT\197\ACK\CAN\EM\n\ + \\f\n\ + \\EOT\EOTF\STX\STX\DC2\EOT\198\ACK\STX*\n\ + \\r\n\ + \\ENQ\EOTF\STX\STX\EOT\DC2\EOT\198\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTF\STX\STX\ENQ\DC2\EOT\198\ACK\v\SI\n\ + \\r\n\ + \\ENQ\EOTF\STX\STX\SOH\DC2\EOT\198\ACK\DLE\DC4\n\ + \\r\n\ + \\ENQ\EOTF\STX\STX\ETX\DC2\EOT\198\ACK\ETB\CAN\n\ + \\r\n\ + \\ENQ\EOTF\STX\STX\b\DC2\EOT\198\ACK\EM)\n\ + \\r\n\ + \\ENQ\EOTF\STX\STX\a\DC2\EOT\198\ACK$(\n\ + \\f\n\ + \\STX\EOTG\DC2\ACK\201\ACK\NUL\205\ACK\SOH\n\ + \\v\n\ + \\ETX\EOTG\SOH\DC2\EOT\201\ACK\b\DLE\n\ + \\f\n\ + \\EOT\EOTG\STX\NUL\DC2\EOT\202\ACK\STX\ESC\n\ + \\r\n\ + \\ENQ\EOTG\STX\NUL\EOT\DC2\EOT\202\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTG\STX\NUL\ENQ\DC2\EOT\202\ACK\v\DLE\n\ + \\r\n\ + \\ENQ\EOTG\STX\NUL\SOH\DC2\EOT\202\ACK\DC1\SYN\n\ + \\r\n\ + \\ENQ\EOTG\STX\NUL\ETX\DC2\EOT\202\ACK\EM\SUB\n\ + \\f\n\ + \\EOT\EOTG\STX\SOH\DC2\EOT\203\ACK\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTG\STX\SOH\EOT\DC2\EOT\203\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTG\STX\SOH\ACK\DC2\EOT\203\ACK\v\DC1\n\ + \\r\n\ + \\ENQ\EOTG\STX\SOH\SOH\DC2\EOT\203\ACK\DC2\NAK\n\ + \\r\n\ + \\ENQ\EOTG\STX\SOH\ETX\DC2\EOT\203\ACK\CAN\EM\n\ + \\f\n\ + \\EOT\EOTG\STX\STX\DC2\EOT\204\ACK\STX\RS\n\ + \\r\n\ + \\ENQ\EOTG\STX\STX\EOT\DC2\EOT\204\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTG\STX\STX\ENQ\DC2\EOT\204\ACK\v\DC1\n\ + \\r\n\ + \\ENQ\EOTG\STX\STX\SOH\DC2\EOT\204\ACK\DC2\EM\n\ + \\r\n\ + \\ENQ\EOTG\STX\STX\ETX\DC2\EOT\204\ACK\FS\GS\n\ + \\f\n\ + \\STX\EOTH\DC2\ACK\207\ACK\NUL\210\ACK\SOH\n\ + \\v\n\ + \\ETX\EOTH\SOH\DC2\EOT\207\ACK\b\DC1\n\ + \\f\n\ + \\EOT\EOTH\STX\NUL\DC2\EOT\208\ACK\STX+\n\ + \\r\n\ + \\ENQ\EOTH\STX\NUL\EOT\DC2\EOT\208\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\NUL\ACK\DC2\EOT\208\ACK\v\RS\n\ + \\r\n\ + \\ENQ\EOTH\STX\NUL\SOH\DC2\EOT\208\ACK\US&\n\ + \\r\n\ + \\ENQ\EOTH\STX\NUL\ETX\DC2\EOT\208\ACK)*\n\ + \\ESC\n\ + \\EOT\EOTH\STX\SOH\DC2\EOT\209\ACK\STX\SUB\"\r 0 or 1 rows\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\SOH\EOT\DC2\EOT\209\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\SOH\ACK\DC2\EOT\209\ACK\v\DLE\n\ + \\r\n\ + \\ENQ\EOTH\STX\SOH\SOH\DC2\EOT\209\ACK\DC1\NAK\n\ + \\r\n\ + \\ENQ\EOTH\STX\SOH\ETX\DC2\EOT\209\ACK\CAN\EM\n\ + \\f\n\ + \\STX\EOTI\DC2\ACK\213\ACK\NUL\220\ACK\SOH\n\ + \\v\n\ + \\ETX\EOTI\SOH\DC2\EOT\213\ACK\b\DLE\n\ + \\f\n\ + \\EOT\EOTI\STX\NUL\DC2\EOT\214\ACK\STX\ESC\n\ + \\r\n\ + \\ENQ\EOTI\STX\NUL\EOT\DC2\EOT\214\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTI\STX\NUL\ENQ\DC2\EOT\214\ACK\v\DLE\n\ + \\r\n\ + \\ENQ\EOTI\STX\NUL\SOH\DC2\EOT\214\ACK\DC1\SYN\n\ + \\r\n\ + \\ENQ\EOTI\STX\NUL\ETX\DC2\EOT\214\ACK\EM\SUB\n\ + \<\n\ + \\EOT\EOTI\STX\SOH\DC2\EOT\217\ACK\STX+\SUB. optional: omitting it should use table order\n\ + \\n\ + \\r\n\ + \\ENQ\EOTI\STX\SOH\EOT\DC2\EOT\217\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTI\STX\SOH\ACK\DC2\EOT\217\ACK\v\RS\n\ + \\r\n\ + \\ENQ\EOTI\STX\SOH\SOH\DC2\EOT\217\ACK\US&\n\ + \\r\n\ + \\ENQ\EOTI\STX\SOH\ETX\DC2\EOT\217\ACK)*\n\ + \\f\n\ + \\EOT\EOTI\STX\STX\DC2\EOT\219\ACK\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTI\STX\STX\EOT\DC2\EOT\219\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTI\STX\STX\ACK\DC2\EOT\219\ACK\v\DLE\n\ + \\r\n\ + \\ENQ\EOTI\STX\STX\SOH\DC2\EOT\219\ACK\DC1\NAK\n\ + \\r\n\ + \\ENQ\EOTI\STX\STX\ETX\DC2\EOT\219\ACK\CAN\EM\n\ + \\f\n\ + \\STX\EOTJ\DC2\ACK\222\ACK\NUL\224\ACK\SOH\n\ + \\v\n\ + \\ETX\EOTJ\SOH\DC2\EOT\222\ACK\b\DC1\n\ + \\f\n\ + \\STX\EOTK\DC2\ACK\226\ACK\NUL\231\ACK\SOH\n\ + \\v\n\ + \\ETX\EOTK\SOH\DC2\EOT\226\ACK\b\DLE\n\ + \\f\n\ + \\EOT\EOTK\STX\NUL\DC2\EOT\227\ACK\STX\ESC\n\ + \\r\n\ + \\ENQ\EOTK\STX\NUL\EOT\DC2\EOT\227\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTK\STX\NUL\ENQ\DC2\EOT\227\ACK\v\DLE\n\ + \\r\n\ + \\ENQ\EOTK\STX\NUL\SOH\DC2\EOT\227\ACK\DC1\SYN\n\ + \\r\n\ + \\ENQ\EOTK\STX\NUL\ETX\DC2\EOT\227\ACK\EM\SUB\n\ + \\f\n\ + \\EOT\EOTK\STX\SOH\DC2\EOT\228\ACK\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTK\STX\SOH\EOT\DC2\EOT\228\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTK\STX\SOH\ACK\DC2\EOT\228\ACK\v\DC1\n\ + \\r\n\ + \\ENQ\EOTK\STX\SOH\SOH\DC2\EOT\228\ACK\DC2\NAK\n\ + \\r\n\ + \\ENQ\EOTK\STX\SOH\ETX\DC2\EOT\228\ACK\CAN\EM\n\ + \\f\n\ + \\EOT\EOTK\STX\STX\DC2\EOT\229\ACK\STX\FS\n\ + \\r\n\ + \\ENQ\EOTK\STX\STX\EOT\DC2\EOT\229\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTK\STX\STX\ENQ\DC2\EOT\229\ACK\v\DLE\n\ + \\r\n\ + \\ENQ\EOTK\STX\STX\SOH\DC2\EOT\229\ACK\DC1\ETB\n\ + \\r\n\ + \\ENQ\EOTK\STX\STX\ETX\DC2\EOT\229\ACK\SUB\ESC\n\ + \\f\n\ + \\EOT\EOTK\STX\ETX\DC2\EOT\230\ACK\STX\RS\n\ + \\r\n\ + \\ENQ\EOTK\STX\ETX\EOT\DC2\EOT\230\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTK\STX\ETX\ENQ\DC2\EOT\230\ACK\v\DC1\n\ + \\r\n\ + \\ENQ\EOTK\STX\ETX\SOH\DC2\EOT\230\ACK\DC2\EM\n\ + \\r\n\ + \\ENQ\EOTK\STX\ETX\ETX\DC2\EOT\230\ACK\FS\GS\n\ + \\f\n\ + \\STX\EOTL\DC2\ACK\233\ACK\NUL\235\ACK\SOH\n\ + \\v\n\ + \\ETX\EOTL\SOH\DC2\EOT\233\ACK\b\DC1\n\ + \\f\n\ + \\STX\EOTM\DC2\ACK\237\ACK\NUL\240\ACK\SOH\n\ + \\v\n\ + \\ETX\EOTM\SOH\DC2\EOT\237\ACK\b\ETB\n\ + \\f\n\ + \\EOT\EOTM\STX\NUL\DC2\EOT\238\ACK\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTM\STX\NUL\EOT\DC2\EOT\238\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTM\STX\NUL\ENQ\DC2\EOT\238\ACK\v\DLE\n\ + \\r\n\ + \\ENQ\EOTM\STX\NUL\SOH\DC2\EOT\238\ACK\DC1\NAK\n\ + \\r\n\ + \\ENQ\EOTM\STX\NUL\ETX\DC2\EOT\238\ACK\CAN\EM\n\ + \\f\n\ + \\EOT\EOTM\STX\SOH\DC2\EOT\239\ACK\STX&\n\ + \\r\n\ + \\ENQ\EOTM\STX\SOH\EOT\DC2\EOT\239\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTM\STX\SOH\ACK\DC2\EOT\239\ACK\v\DC2\n\ + \\r\n\ + \\ENQ\EOTM\STX\SOH\SOH\DC2\EOT\239\ACK\DC3!\n\ + \\r\n\ + \\ENQ\EOTM\STX\SOH\ETX\DC2\EOT\239\ACK$%\n\ + \\f\n\ + \\STX\ENQ\NUL\DC2\ACK\242\ACK\NUL\249\ACK\SOH\n\ + \\v\n\ + \\ETX\ENQ\NUL\SOH\DC2\EOT\242\ACK\ENQ\DC1\n\ + \\f\n\ + \\EOT\ENQ\NUL\STX\NUL\DC2\EOT\243\ACK\STX\SO\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\EOT\243\ACK\STX\t\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\EOT\243\ACK\f\r\n\ + \\f\n\ + \\EOT\ENQ\NUL\STX\SOH\DC2\EOT\244\ACK\STX\r\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\EOT\244\ACK\STX\b\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\EOT\244\ACK\v\f\n\ + \\f\n\ + \\EOT\ENQ\NUL\STX\STX\DC2\EOT\245\ACK\STX\r\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\EOT\245\ACK\STX\b\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\STX\STX\DC2\EOT\245\ACK\v\f\n\ + \\f\n\ + \\EOT\ENQ\NUL\STX\ETX\DC2\EOT\246\ACK\STX\DLE\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\EOT\246\ACK\STX\v\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\EOT\246\ACK\SO\SI\n\ + \\f\n\ + \\EOT\ENQ\NUL\STX\EOT\DC2\EOT\247\ACK\STX\SO\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\EOT\SOH\DC2\EOT\247\ACK\STX\t\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\EOT\STX\DC2\EOT\247\ACK\f\r\n\ + \\f\n\ + \\EOT\ENQ\NUL\STX\ENQ\DC2\EOT\248\ACK\STX\v\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\ENQ\SOH\DC2\EOT\248\ACK\STX\ACK\n\ + \\r\n\ + \\ENQ\ENQ\NUL\STX\ENQ\STX\DC2\EOT\248\ACK\t\n\ + \\n\ + \\f\n\ + \\STX\EOTN\DC2\ACK\251\ACK\NUL\254\ACK\SOH\n\ + \\v\n\ + \\ETX\EOTN\SOH\DC2\EOT\251\ACK\b\ESC\n\ + \\f\n\ + \\EOT\EOTN\STX\NUL\DC2\EOT\252\ACK\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTN\STX\NUL\EOT\DC2\EOT\252\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTN\STX\NUL\ENQ\DC2\EOT\252\ACK\v\DLE\n\ + \\r\n\ + \\ENQ\EOTN\STX\NUL\SOH\DC2\EOT\252\ACK\DC1\NAK\n\ + \\r\n\ + \\ENQ\EOTN\STX\NUL\ETX\DC2\EOT\252\ACK\CAN\EM\n\ + \\f\n\ + \\EOT\EOTN\STX\SOH\DC2\EOT\253\ACK\STX!\n\ + \\r\n\ + \\ENQ\EOTN\STX\SOH\EOT\DC2\EOT\253\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTN\STX\SOH\ACK\DC2\EOT\253\ACK\v\ETB\n\ + \\r\n\ + \\ENQ\EOTN\STX\SOH\SOH\DC2\EOT\253\ACK\CAN\FS\n\ + \\r\n\ + \\ENQ\EOTN\STX\SOH\ETX\DC2\EOT\253\ACK\US \n\ + \\f\n\ + \\STX\EOTO\DC2\ACK\128\a\NUL\130\a\SOH\n\ + \\v\n\ + \\ETX\EOTO\SOH\DC2\EOT\128\a\b\r\n\ + \\f\n\ + \\EOT\EOTO\STX\NUL\DC2\EOT\129\a\STX\FS\n\ + \\r\n\ + \\ENQ\EOTO\STX\NUL\EOT\DC2\EOT\129\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTO\STX\NUL\ACK\DC2\EOT\129\a\v\DC1\n\ + \\r\n\ + \\ENQ\EOTO\STX\NUL\SOH\DC2\EOT\129\a\DC2\ETB\n\ + \\r\n\ + \\ENQ\EOTO\STX\NUL\ETX\DC2\EOT\129\a\SUB\ESC\n\ + \\f\n\ + \\STX\EOTP\DC2\ACK\132\a\NUL\138\a\SOH\n\ + \\v\n\ + \\ETX\EOTP\SOH\DC2\EOT\132\a\b\SO\n\ + \\f\n\ + \\EOT\EOTP\STX\NUL\DC2\EOT\133\a\STX#\n\ + \\r\n\ + \\ENQ\EOTP\STX\NUL\EOT\DC2\EOT\133\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTP\STX\NUL\ENQ\DC2\EOT\133\a\v\DLE\n\ + \\r\n\ + \\ENQ\EOTP\STX\NUL\SOH\DC2\EOT\133\a\DC1\RS\n\ + \\r\n\ + \\ENQ\EOTP\STX\NUL\ETX\DC2\EOT\133\a!\"\n\ + \\f\n\ + \\EOT\EOTP\STX\SOH\DC2\EOT\134\a\STX#\n\ + \\r\n\ + \\ENQ\EOTP\STX\SOH\EOT\DC2\EOT\134\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTP\STX\SOH\ENQ\DC2\EOT\134\a\v\DC1\n\ + \\r\n\ + \\ENQ\EOTP\STX\SOH\SOH\DC2\EOT\134\a\DC2\RS\n\ + \\r\n\ + \\ENQ\EOTP\STX\SOH\ETX\DC2\EOT\134\a!\"\n\ + \\f\n\ + \\EOT\EOTP\STX\STX\DC2\EOT\135\a\STX&\n\ + \\r\n\ + \\ENQ\EOTP\STX\STX\EOT\DC2\EOT\135\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTP\STX\STX\ENQ\DC2\EOT\135\a\v\DC1\n\ + \\r\n\ + \\ENQ\EOTP\STX\STX\SOH\DC2\EOT\135\a\DC2!\n\ + \\r\n\ + \\ENQ\EOTP\STX\STX\ETX\DC2\EOT\135\a$%\n\ + \\f\n\ + \\EOT\EOTP\STX\ETX\DC2\EOT\136\a\STX\"\n\ + \\r\n\ + \\ENQ\EOTP\STX\ETX\EOT\DC2\EOT\136\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTP\STX\ETX\ENQ\DC2\EOT\136\a\v\SI\n\ + \\r\n\ + \\ENQ\EOTP\STX\ETX\SOH\DC2\EOT\136\a\DLE\GS\n\ + \\r\n\ + \\ENQ\EOTP\STX\ETX\ETX\DC2\EOT\136\a !\n\ + \\f\n\ + \\EOT\EOTP\STX\EOT\DC2\EOT\137\a\STX#\n\ + \\r\n\ + \\ENQ\EOTP\STX\EOT\EOT\DC2\EOT\137\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTP\STX\EOT\ENQ\DC2\EOT\137\a\v\DC1\n\ + \\r\n\ + \\ENQ\EOTP\STX\EOT\SOH\DC2\EOT\137\a\DC2\RS\n\ + \\r\n\ + \\ENQ\EOTP\STX\EOT\ETX\DC2\EOT\137\a!\"\n\ + \\f\n\ + \\STX\EOTQ\DC2\ACK\140\a\NUL\143\a\SOH\n\ + \\v\n\ + \\ETX\EOTQ\SOH\DC2\EOT\140\a\b\NAK\n\ + \\f\n\ + \\EOT\EOTQ\STX\NUL\DC2\EOT\141\a\STX\ESC\n\ + \\r\n\ + \\ENQ\EOTQ\STX\NUL\EOT\DC2\EOT\141\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTQ\STX\NUL\ENQ\DC2\EOT\141\a\v\DLE\n\ + \\r\n\ + \\ENQ\EOTQ\STX\NUL\SOH\DC2\EOT\141\a\DC1\SYN\n\ + \\r\n\ + \\ENQ\EOTQ\STX\NUL\ETX\DC2\EOT\141\a\EM\SUB\n\ + \\f\n\ + \\EOT\EOTQ\STX\SOH\DC2\EOT\142\a\STX\RS\n\ + \\r\n\ + \\ENQ\EOTQ\STX\SOH\EOT\DC2\EOT\142\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTQ\STX\SOH\ENQ\DC2\EOT\142\a\v\DC1\n\ + \\r\n\ + \\ENQ\EOTQ\STX\SOH\SOH\DC2\EOT\142\a\DC2\EM\n\ + \\r\n\ + \\ENQ\EOTQ\STX\SOH\ETX\DC2\EOT\142\a\FS\GS\n\ + \\f\n\ + \\STX\EOTR\DC2\ACK\145\a\NUL\148\a\SOH\n\ + \\v\n\ + \\ETX\EOTR\SOH\DC2\EOT\145\a\b\SYN\n\ + \\f\n\ + \\EOT\EOTR\STX\NUL\DC2\EOT\146\a\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTR\STX\NUL\EOT\DC2\EOT\146\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTR\STX\NUL\ACK\DC2\EOT\146\a\v\DLE\n\ + \\r\n\ + \\ENQ\EOTR\STX\NUL\SOH\DC2\EOT\146\a\DC1\NAK\n\ + \\r\n\ + \\ENQ\EOTR\STX\NUL\ETX\DC2\EOT\146\a\CAN\EM\n\ + \\f\n\ + \\EOT\EOTR\STX\SOH\DC2\EOT\147\a\STX\EM\n\ + \\r\n\ + \\ENQ\EOTR\STX\SOH\EOT\DC2\EOT\147\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTR\STX\SOH\ENQ\DC2\EOT\147\a\v\SI\n\ + \\r\n\ + \\ENQ\EOTR\STX\SOH\SOH\DC2\EOT\147\a\DLE\DC4\n\ + \\r\n\ + \\ENQ\EOTR\STX\SOH\ETX\DC2\EOT\147\a\ETB\CAN\n\ + \@\n\ + \\STX\EOTS\DC2\ACK\151\a\NUL\157\a\SOH\SUB2 Request a segmented coverage plan for this query\n\ + \\n\ + \\v\n\ + \\ETX\EOTS\SOH\DC2\EOT\151\a\b\NAK\n\ + \L\n\ + \\EOT\EOTS\STX\NUL\DC2\EOT\153\a\STX%\SUB> left optional to support parameterized queries in the future\n\ + \\n\ + \\r\n\ + \\ENQ\EOTS\STX\NUL\EOT\DC2\EOT\153\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTS\STX\NUL\ACK\DC2\EOT\153\a\v\SUB\n\ + \\r\n\ + \\ENQ\EOTS\STX\NUL\SOH\DC2\EOT\153\a\ESC \n\ + \\r\n\ + \\ENQ\EOTS\STX\NUL\ETX\DC2\EOT\153\a#$\n\ + \\f\n\ + \\EOT\EOTS\STX\SOH\DC2\EOT\154\a\STX\ESC\n\ + \\r\n\ + \\ENQ\EOTS\STX\SOH\EOT\DC2\EOT\154\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTS\STX\SOH\ENQ\DC2\EOT\154\a\v\DLE\n\ + \\r\n\ + \\ENQ\EOTS\STX\SOH\SOH\DC2\EOT\154\a\DC1\SYN\n\ + \\r\n\ + \\ENQ\EOTS\STX\SOH\ETX\DC2\EOT\154\a\EM\SUB\n\ + \$\n\ + \\EOT\EOTS\STX\STX\DC2\EOT\155\a\STX#\"\SYN For failure recovery\n\ + \\n\ + \\r\n\ + \\ENQ\EOTS\STX\STX\EOT\DC2\EOT\155\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTS\STX\STX\ENQ\DC2\EOT\155\a\v\DLE\n\ + \\r\n\ + \\ENQ\EOTS\STX\STX\SOH\DC2\EOT\155\a\DC1\RS\n\ + \\r\n\ + \\ENQ\EOTS\STX\STX\ETX\DC2\EOT\155\a!\"\n\ + \g\n\ + \\EOT\EOTS\STX\ETX\DC2\EOT\156\a\STX'\"Y Other coverage contexts that have failed to assist Riak in deciding what nodes to avoid\n\ + \\n\ + \\r\n\ + \\ENQ\EOTS\STX\ETX\EOT\DC2\EOT\156\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTS\STX\ETX\ENQ\DC2\EOT\156\a\v\DLE\n\ + \\r\n\ + \\ENQ\EOTS\STX\ETX\SOH\DC2\EOT\156\a\DC1\"\n\ + \\r\n\ + \\ENQ\EOTS\STX\ETX\ETX\DC2\EOT\156\a%&\n\ + \3\n\ + \\STX\EOTT\DC2\ACK\160\a\NUL\162\a\SOH\SUB% Segmented TS coverage plan response\n\ + \\n\ + \\v\n\ + \\ETX\EOTT\SOH\DC2\EOT\160\a\b\SYN\n\ + \\f\n\ + \\EOT\EOTT\STX\NUL\DC2\EOT\161\a\ETX(\n\ + \\r\n\ + \\ENQ\EOTT\STX\NUL\EOT\DC2\EOT\161\a\ETX\v\n\ + \\r\n\ + \\ENQ\EOTT\STX\NUL\ACK\DC2\EOT\161\a\f\ESC\n\ + \\r\n\ + \\ENQ\EOTT\STX\NUL\SOH\DC2\EOT\161\a\FS#\n\ + \\r\n\ + \\ENQ\EOTT\STX\NUL\ETX\DC2\EOT\161\a&'\n\ + \-\n\ + \\STX\EOTU\DC2\ACK\165\a\NUL\170\a\SOH\SUB\US Segment of a TS coverage plan\n\ + \\n\ + \\v\n\ + \\ETX\EOTU\SOH\DC2\EOT\165\a\b\ETB\n\ + \\f\n\ + \\EOT\EOTU\STX\NUL\DC2\EOT\166\a\EOT\SUB\n\ + \\r\n\ + \\ENQ\EOTU\STX\NUL\EOT\DC2\EOT\166\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTU\STX\NUL\ENQ\DC2\EOT\166\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOTU\STX\NUL\SOH\DC2\EOT\166\a\DC3\NAK\n\ + \\r\n\ + \\ENQ\EOTU\STX\NUL\ETX\DC2\EOT\166\a\CAN\EM\n\ + \\f\n\ + \\EOT\EOTU\STX\SOH\DC2\EOT\167\a\EOT\GS\n\ + \\r\n\ + \\ENQ\EOTU\STX\SOH\EOT\DC2\EOT\167\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTU\STX\SOH\ENQ\DC2\EOT\167\a\r\DC3\n\ + \\r\n\ + \\ENQ\EOTU\STX\SOH\SOH\DC2\EOT\167\a\DC4\CAN\n\ + \\r\n\ + \\ENQ\EOTU\STX\SOH\ETX\DC2\EOT\167\a\ESC\FS\n\ + \=\n\ + \\EOT\EOTU\STX\STX\DC2\EOT\168\a\EOT%\"/ Opaque context to pass into follow-up request\n\ + \\n\ + \\r\n\ + \\ENQ\EOTU\STX\STX\EOT\DC2\EOT\168\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTU\STX\STX\ENQ\DC2\EOT\168\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOTU\STX\STX\SOH\DC2\EOT\168\a\DC3 \n\ + \\r\n\ + \\ENQ\EOTU\STX\STX\ETX\DC2\EOT\168\a#$\n\ + \B\n\ + \\EOT\EOTU\STX\ETX\DC2\EOT\169\a\EOT\US\"4 Might be other types of coverage queries/responses\n\ + \\n\ + \\r\n\ + \\ENQ\EOTU\STX\ETX\EOT\DC2\EOT\169\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTU\STX\ETX\ACK\DC2\EOT\169\a\r\DC4\n\ + \\r\n\ + \\ENQ\EOTU\STX\ETX\SOH\DC2\EOT\169\a\NAK\SUB\n\ + \\r\n\ + \\ENQ\EOTU\STX\ETX\ETX\DC2\EOT\169\a\GS\RS\n\ + \J\n\ + \\STX\EOTV\DC2\ACK\173\a\NUL\180\a\SOH\SUB< Each prospective subquery has a range of valid time values\n\ + \\n\ + \\v\n\ + \\ETX\EOTV\SOH\DC2\EOT\173\a\b\SI\n\ + \\f\n\ + \\EOT\EOTV\STX\NUL\DC2\EOT\174\a\EOT\"\n\ + \\r\n\ + \\ENQ\EOTV\STX\NUL\EOT\DC2\EOT\174\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTV\STX\NUL\ENQ\DC2\EOT\174\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOTV\STX\NUL\SOH\DC2\EOT\174\a\DC3\GS\n\ + \\r\n\ + \\ENQ\EOTV\STX\NUL\ETX\DC2\EOT\174\a !\n\ + \\f\n\ + \\EOT\EOTV\STX\SOH\DC2\EOT\175\a\EOT$\n\ + \\r\n\ + \\ENQ\EOTV\STX\SOH\EOT\DC2\EOT\175\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTV\STX\SOH\ENQ\DC2\EOT\175\a\r\DC3\n\ + \\r\n\ + \\ENQ\EOTV\STX\SOH\SOH\DC2\EOT\175\a\DC4\US\n\ + \\r\n\ + \\ENQ\EOTV\STX\SOH\ETX\DC2\EOT\175\a\"#\n\ + \\f\n\ + \\EOT\EOTV\STX\STX\DC2\EOT\176\a\EOT,\n\ + \\r\n\ + \\ENQ\EOTV\STX\STX\EOT\DC2\EOT\176\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTV\STX\STX\ENQ\DC2\EOT\176\a\r\DC1\n\ + \\r\n\ + \\ENQ\EOTV\STX\STX\SOH\DC2\EOT\176\a\DC2'\n\ + \\r\n\ + \\ENQ\EOTV\STX\STX\ETX\DC2\EOT\176\a*+\n\ + \\f\n\ + \\EOT\EOTV\STX\ETX\DC2\EOT\177\a\EOT$\n\ + \\r\n\ + \\ENQ\EOTV\STX\ETX\EOT\DC2\EOT\177\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTV\STX\ETX\ENQ\DC2\EOT\177\a\r\DC3\n\ + \\r\n\ + \\ENQ\EOTV\STX\ETX\SOH\DC2\EOT\177\a\DC4\US\n\ + \\r\n\ + \\ENQ\EOTV\STX\ETX\ETX\DC2\EOT\177\a\"#\n\ + \\f\n\ + \\EOT\EOTV\STX\EOT\DC2\EOT\178\a\EOT,\n\ + \\r\n\ + \\ENQ\EOTV\STX\EOT\EOT\DC2\EOT\178\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTV\STX\EOT\ENQ\DC2\EOT\178\a\r\DC1\n\ + \\r\n\ + \\ENQ\EOTV\STX\EOT\SOH\DC2\EOT\178\a\DC2'\n\ + \\r\n\ + \\ENQ\EOTV\STX\EOT\ETX\DC2\EOT\178\a*+\n\ + \A\n\ + \\EOT\EOTV\STX\ENQ\DC2\EOT\179\a\EOT\FS\"3 Some human readable description of the time range\n\ + \\n\ + \\r\n\ + \\ENQ\EOTV\STX\ENQ\EOT\DC2\EOT\179\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTV\STX\ENQ\ENQ\DC2\EOT\179\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOTV\STX\ENQ\SOH\DC2\EOT\179\a\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOTV\STX\ENQ\ETX\DC2\EOT\179\a\SUB\ESC\n\ + \\155\SOH\n\ + \\STX\EOTW\DC2\ACK\201\a\NUL\205\a\SOH2| java package specifiers\n\ + \ option java_package = \"com.basho.riak.protobuf\";\n\ + \ option java_outer_classname = \"RiakYokozunaPB\";\n\ + \2\SI Index queries\n\ + \\n\ + \\v\n\ + \\ETX\EOTW\SOH\DC2\EOT\201\a\b\CAN\n\ + \\SUB\n\ + \\EOT\EOTW\STX\NUL\DC2\EOT\202\a\EOT\US\"\f Index name\n\ + \\n\ + \\r\n\ + \\ENQ\EOTW\STX\NUL\EOT\DC2\EOT\202\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTW\STX\NUL\ENQ\DC2\EOT\202\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOTW\STX\NUL\SOH\DC2\EOT\202\a\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOTW\STX\NUL\ETX\DC2\EOT\202\a\GS\RS\n\ + \\ESC\n\ + \\EOT\EOTW\STX\SOH\DC2\EOT\203\a\EOT\US\"\r Schema name\n\ + \\n\ + \\r\n\ + \\ENQ\EOTW\STX\SOH\EOT\DC2\EOT\203\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTW\STX\SOH\ENQ\DC2\EOT\203\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOTW\STX\SOH\SOH\DC2\EOT\203\a\DC3\EM\n\ + \\r\n\ + \\ENQ\EOTW\STX\SOH\ETX\DC2\EOT\203\a\GS\RS\n\ + \\ETB\n\ + \\EOT\EOTW\STX\STX\DC2\EOT\204\a\EOT\US\"\t N value\n\ + \\n\ + \\r\n\ + \\ENQ\EOTW\STX\STX\EOT\DC2\EOT\204\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTW\STX\STX\ENQ\DC2\EOT\204\a\r\DC3\n\ + \\r\n\ + \\ENQ\EOTW\STX\STX\SOH\DC2\EOT\204\a\DC4\EM\n\ + \\r\n\ + \\ENQ\EOTW\STX\STX\ETX\DC2\EOT\204\a\GS\RS\n\ + \X\n\ + \\STX\EOTX\DC2\ACK\208\a\NUL\210\a\SOH\SUBJ GET request - If a name is given, return matching index, else return all\n\ + \\n\ + \\v\n\ + \\ETX\EOTX\SOH\DC2\EOT\208\a\b\RS\n\ + \\SUB\n\ + \\EOT\EOTX\STX\NUL\DC2\EOT\209\a\EOT\RS\"\f Index name\n\ + \\n\ + \\r\n\ + \\ENQ\EOTX\STX\NUL\EOT\DC2\EOT\209\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTX\STX\NUL\ENQ\DC2\EOT\209\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOTX\STX\NUL\SOH\DC2\EOT\209\a\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOTX\STX\NUL\ETX\DC2\EOT\209\a\FS\GS\n\ + \\f\n\ + \\STX\EOTY\DC2\ACK\212\a\NUL\214\a\SOH\n\ + \\v\n\ + \\ETX\EOTY\SOH\DC2\EOT\212\a\b\US\n\ + \\f\n\ + \\EOT\EOTY\STX\NUL\DC2\EOT\213\a\EOT*\n\ + \\r\n\ + \\ENQ\EOTY\STX\NUL\EOT\DC2\EOT\213\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTY\STX\NUL\ACK\DC2\EOT\213\a\r\GS\n\ + \\r\n\ + \\ENQ\EOTY\STX\NUL\SOH\DC2\EOT\213\a\RS#\n\ + \\r\n\ + \\ENQ\EOTY\STX\NUL\ETX\DC2\EOT\213\a()\n\ + \0\n\ + \\STX\EOTZ\DC2\ACK\217\a\NUL\220\a\SOH\SUB\" PUT request - Create a new index\n\ + \\n\ + \\v\n\ + \\ETX\EOTZ\SOH\DC2\EOT\217\a\b\RS\n\ + \\f\n\ + \\EOT\EOTZ\STX\NUL\DC2\EOT\218\a\EOT*\n\ + \\r\n\ + \\ENQ\EOTZ\STX\NUL\EOT\DC2\EOT\218\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTZ\STX\NUL\ACK\DC2\EOT\218\a\r\GS\n\ + \\r\n\ + \\ENQ\EOTZ\STX\NUL\SOH\DC2\EOT\218\a\RS#\n\ + \\r\n\ + \\ENQ\EOTZ\STX\NUL\ETX\DC2\EOT\218\a()\n\ + \\GS\n\ + \\EOT\EOTZ\STX\SOH\DC2\EOT\219\a\EOT*\"\SI Timeout value\n\ + \\n\ + \\r\n\ + \\ENQ\EOTZ\STX\SOH\EOT\DC2\EOT\219\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOTZ\STX\SOH\ENQ\DC2\EOT\219\a\r\DC3\n\ + \\r\n\ + \\ENQ\EOTZ\STX\SOH\SOH\DC2\EOT\219\a\DC4\ESC\n\ + \\r\n\ + \\ENQ\EOTZ\STX\SOH\ETX\DC2\EOT\219\a()\n\ + \0\n\ + \\STX\EOT[\DC2\ACK\223\a\NUL\225\a\SOH\SUB\" DELETE request - Remove an index\n\ + \\n\ + \\v\n\ + \\ETX\EOT[\SOH\DC2\EOT\223\a\b!\n\ + \\SUB\n\ + \\EOT\EOT[\STX\NUL\DC2\EOT\224\a\EOT\RS\"\f Index name\n\ + \\n\ + \\r\n\ + \\ENQ\EOT[\STX\NUL\EOT\DC2\EOT\224\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOT[\STX\NUL\ENQ\DC2\EOT\224\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOT[\STX\NUL\SOH\DC2\EOT\224\a\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT[\STX\NUL\ETX\DC2\EOT\224\a\FS\GS\n\ + \\RS\n\ + \\STX\EOT\\\DC2\ACK\229\a\NUL\232\a\SOH2\DLE Schema queries\n\ + \\n\ + \\v\n\ + \\ETX\EOT\\\SOH\DC2\EOT\229\a\b\EM\n\ + \\SUB\n\ + \\EOT\EOT\\\STX\NUL\DC2\EOT\230\a\EOT \"\f Index name\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\\\STX\NUL\EOT\DC2\EOT\230\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\\\STX\NUL\ENQ\DC2\EOT\230\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\\\STX\NUL\SOH\DC2\EOT\230\a\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT\\\STX\NUL\ETX\DC2\EOT\230\a\RS\US\n\ + \\ESC\n\ + \\EOT\EOT\\\STX\SOH\DC2\EOT\231\a\EOT \"\r Schema data\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\\\STX\SOH\EOT\DC2\EOT\231\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOT\\\STX\SOH\ENQ\DC2\EOT\231\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOT\\\STX\SOH\SOH\DC2\EOT\231\a\DC3\SUB\n\ + \\r\n\ + \\ENQ\EOT\\\STX\SOH\ETX\DC2\EOT\231\a\RS\US\n\ + \G\n\ + \\STX\EOT]\DC2\ACK\235\a\NUL\237\a\SOH\SUB9 PUT request - create or potentially update a new schema\n\ + \\n\ + \\v\n\ + \\ETX\EOT]\SOH\DC2\EOT\235\a\b\US\n\ + \\f\n\ + \\EOT\EOT]\STX\NUL\DC2\EOT\236\a\EOT+\n\ + \\r\n\ + \\ENQ\EOT]\STX\NUL\EOT\DC2\EOT\236\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOT]\STX\NUL\ACK\DC2\EOT\236\a\r\RS\n\ + \\r\n\ + \\ENQ\EOT]\STX\NUL\SOH\DC2\EOT\236\a\US%\n\ + \\r\n\ + \\ENQ\EOT]\STX\NUL\ETX\DC2\EOT\236\a)*\n\ + \<\n\ + \\STX\EOT^\DC2\ACK\240\a\NUL\242\a\SOH\SUB. GET request - Return matching schema by name\n\ + \\n\ + \\v\n\ + \\ETX\EOT^\SOH\DC2\EOT\240\a\b\US\n\ + \\ESC\n\ + \\EOT\EOT^\STX\NUL\DC2\EOT\241\a\EOT\RS\"\r Schema name\n\ + \\n\ + \\r\n\ + \\ENQ\EOT^\STX\NUL\EOT\DC2\EOT\241\a\EOT\f\n\ + \\r\n\ + \\ENQ\EOT^\STX\NUL\ENQ\DC2\EOT\241\a\r\DC2\n\ + \\r\n\ + \\ENQ\EOT^\STX\NUL\SOH\DC2\EOT\241\a\DC3\ETB\n\ + \\r\n\ + \\ENQ\EOT^\STX\NUL\ETX\DC2\EOT\241\a\FS\GS\n\ + \\f\n\ + \\STX\EOT_\DC2\ACK\244\a\NUL\246\a\SOH\n\ + \\v\n\ + \\ETX\EOT_\SOH\DC2\EOT\244\a\b \n\ + \\f\n\ + \\EOT\EOT_\STX\NUL\DC2\EOT\245\a\STX)\n\ + \\r\n\ + \\ENQ\EOT_\STX\NUL\EOT\DC2\EOT\245\a\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT_\STX\NUL\ACK\DC2\EOT\245\a\v\FS\n\ + \\r\n\ + \\ENQ\EOT_\STX\NUL\SOH\DC2\EOT\245\a\GS#\n\ + \\r\n\ + \\ENQ\EOT_\STX\NUL\ETX\DC2\EOT\245\a'(" diff --git a/src-proto/Proto/Riak_Fields.hs b/src-proto/Proto/Riak_Fields.hs new file mode 100644 --- /dev/null +++ b/src-proto/Proto/Riak_Fields.hs @@ -0,0 +1,1732 @@ +{- This file was auto-generated from riak.proto by the proto-lens-protoc program. -} +{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} +{-# OPTIONS_GHC -Wno-unused-imports#-} +{-# OPTIONS_GHC -Wno-duplicate-exports#-} +{-# OPTIONS_GHC -Wno-dodgy-exports#-} +module Proto.Riak_Fields where +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString +import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding +import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector +import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic +import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read +adds :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "adds" a) => + Lens.Family2.LensLike' f s a +adds = Data.ProtoLens.Field.field @"adds" +allowMult :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "allowMult" a) => + Lens.Family2.LensLike' f s a +allowMult = Data.ProtoLens.Field.field @"allowMult" +amount :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "amount" a) => + Lens.Family2.LensLike' f s a +amount = Data.ProtoLens.Field.field @"amount" +asis :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "asis" a) => + Lens.Family2.LensLike' f s a +asis = Data.ProtoLens.Field.field @"asis" +backend :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "backend" a) => + Lens.Family2.LensLike' f s a +backend = Data.ProtoLens.Field.field @"backend" +base :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "base" a) => + Lens.Family2.LensLike' f s a +base = Data.ProtoLens.Field.field @"base" +basicQuorum :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "basicQuorum" a) => + Lens.Family2.LensLike' f s a +basicQuorum = Data.ProtoLens.Field.field @"basicQuorum" +bigVclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "bigVclock" a) => + Lens.Family2.LensLike' f s a +bigVclock = Data.ProtoLens.Field.field @"bigVclock" +booleanValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "booleanValue" a) => + Lens.Family2.LensLike' f s a +booleanValue = Data.ProtoLens.Field.field @"booleanValue" +bucket :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "bucket" a) => + Lens.Family2.LensLike' f s a +bucket = Data.ProtoLens.Field.field @"bucket" +buckets :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "buckets" a) => + Lens.Family2.LensLike' f s a +buckets = Data.ProtoLens.Field.field @"buckets" +cells :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "cells" a) => + Lens.Family2.LensLike' f s a +cells = Data.ProtoLens.Field.field @"cells" +charset :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "charset" a) => + Lens.Family2.LensLike' f s a +charset = Data.ProtoLens.Field.field @"charset" +chashKeyfun :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "chashKeyfun" a) => + Lens.Family2.LensLike' f s a +chashKeyfun = Data.ProtoLens.Field.field @"chashKeyfun" +clientId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "clientId" a) => + Lens.Family2.LensLike' f s a +clientId = Data.ProtoLens.Field.field @"clientId" +columns :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "columns" a) => + Lens.Family2.LensLike' f s a +columns = Data.ProtoLens.Field.field @"columns" +consistent :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "consistent" a) => + Lens.Family2.LensLike' f s a +consistent = Data.ProtoLens.Field.field @"consistent" +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" +contentEncoding :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "contentEncoding" a) => + Lens.Family2.LensLike' f s a +contentEncoding = Data.ProtoLens.Field.field @"contentEncoding" +contentType :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "contentType" a) => + Lens.Family2.LensLike' f s a +contentType = Data.ProtoLens.Field.field @"contentType" +context :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "context" a) => + Lens.Family2.LensLike' f s a +context = Data.ProtoLens.Field.field @"context" +continuation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "continuation" a) => + Lens.Family2.LensLike' f s a +continuation = Data.ProtoLens.Field.field @"continuation" +counterOp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "counterOp" a) => + Lens.Family2.LensLike' f s a +counterOp = Data.ProtoLens.Field.field @"counterOp" +counterValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "counterValue" a) => + Lens.Family2.LensLike' f s a +counterValue = Data.ProtoLens.Field.field @"counterValue" +coverContext :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "coverContext" a) => + Lens.Family2.LensLike' f s a +coverContext = Data.ProtoLens.Field.field @"coverContext" +datatype :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "datatype" a) => + Lens.Family2.LensLike' f s a +datatype = Data.ProtoLens.Field.field @"datatype" +deleted :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "deleted" a) => + Lens.Family2.LensLike' f s a +deleted = Data.ProtoLens.Field.field @"deleted" +deletedvclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "deletedvclock" a) => + Lens.Family2.LensLike' f s a +deletedvclock = Data.ProtoLens.Field.field @"deletedvclock" +desc :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "desc" a) => + Lens.Family2.LensLike' f s a +desc = Data.ProtoLens.Field.field @"desc" +df :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "df" a) => + Lens.Family2.LensLike' f s a +df = Data.ProtoLens.Field.field @"df" +docs :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "docs" a) => + Lens.Family2.LensLike' f s a +docs = Data.ProtoLens.Field.field @"docs" +done :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "done" a) => + Lens.Family2.LensLike' f s a +done = Data.ProtoLens.Field.field @"done" +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" +dw :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "dw" a) => + Lens.Family2.LensLike' f s a +dw = Data.ProtoLens.Field.field @"dw" +endIncl :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "endIncl" a) => + Lens.Family2.LensLike' f s a +endIncl = Data.ProtoLens.Field.field @"endIncl" +endKey :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "endKey" a) => + Lens.Family2.LensLike' f s a +endKey = Data.ProtoLens.Field.field @"endKey" +entries :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "entries" a) => + Lens.Family2.LensLike' f s a +entries = Data.ProtoLens.Field.field @"entries" +errcode :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "errcode" a) => + Lens.Family2.LensLike' f s a +errcode = Data.ProtoLens.Field.field @"errcode" +errmsg :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "errmsg" a) => + Lens.Family2.LensLike' f s a +errmsg = Data.ProtoLens.Field.field @"errmsg" +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" +fieldName :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "fieldName" a) => + Lens.Family2.LensLike' f s a +fieldName = Data.ProtoLens.Field.field @"fieldName" +fields :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "fields" a) => + Lens.Family2.LensLike' f s a +fields = Data.ProtoLens.Field.field @"fields" +filter :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "filter" a) => + Lens.Family2.LensLike' f s a +filter = Data.ProtoLens.Field.field @"filter" +fl :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "fl" a) => + Lens.Family2.LensLike' f s a +fl = Data.ProtoLens.Field.field @"fl" +flagOp :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "flagOp" a) => + Lens.Family2.LensLike' f s a +flagOp = Data.ProtoLens.Field.field @"flagOp" +flagValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "flagValue" a) => + Lens.Family2.LensLike' f s a +flagValue = Data.ProtoLens.Field.field @"flagValue" +function :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "function" a) => + Lens.Family2.LensLike' f s a +function = Data.ProtoLens.Field.field @"function" +gsetOp :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "gsetOp" a) => + Lens.Family2.LensLike' f s a +gsetOp = Data.ProtoLens.Field.field @"gsetOp" +gsetValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "gsetValue" a) => + Lens.Family2.LensLike' f s a +gsetValue = Data.ProtoLens.Field.field @"gsetValue" +hasPostcommit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "hasPostcommit" a) => + Lens.Family2.LensLike' f s a +hasPostcommit = Data.ProtoLens.Field.field @"hasPostcommit" +hasPrecommit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "hasPrecommit" a) => + Lens.Family2.LensLike' f s a +hasPrecommit = Data.ProtoLens.Field.field @"hasPrecommit" +head :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "head" a) => + Lens.Family2.LensLike' f s a +head = Data.ProtoLens.Field.field @"head" +hllOp :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "hllOp" a) => + Lens.Family2.LensLike' f s a +hllOp = Data.ProtoLens.Field.field @"hllOp" +hllPrecision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "hllPrecision" a) => + Lens.Family2.LensLike' f s a +hllPrecision = Data.ProtoLens.Field.field @"hllPrecision" +hllValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "hllValue" a) => + Lens.Family2.LensLike' f s a +hllValue = Data.ProtoLens.Field.field @"hllValue" +ifModified :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "ifModified" a) => + Lens.Family2.LensLike' f s a +ifModified = Data.ProtoLens.Field.field @"ifModified" +ifNoneMatch :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "ifNoneMatch" a) => + Lens.Family2.LensLike' f s a +ifNoneMatch = Data.ProtoLens.Field.field @"ifNoneMatch" +ifNotModified :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "ifNotModified" a) => + Lens.Family2.LensLike' f s a +ifNotModified = Data.ProtoLens.Field.field @"ifNotModified" +includeContext :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "includeContext" a) => + Lens.Family2.LensLike' f s a +includeContext = Data.ProtoLens.Field.field @"includeContext" +increment :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "increment" a) => + Lens.Family2.LensLike' f s a +increment = Data.ProtoLens.Field.field @"increment" +index :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "index" a) => + Lens.Family2.LensLike' f s a +index = Data.ProtoLens.Field.field @"index" +indexes :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "indexes" a) => + Lens.Family2.LensLike' f s a +indexes = Data.ProtoLens.Field.field @"indexes" +interpolations :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "interpolations" a) => + Lens.Family2.LensLike' f s a +interpolations = Data.ProtoLens.Field.field @"interpolations" +ip :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ip" a) => + Lens.Family2.LensLike' f s a +ip = Data.ProtoLens.Field.field @"ip" +key :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "key" a) => + Lens.Family2.LensLike' f s a +key = Data.ProtoLens.Field.field @"key" +keys :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "keys" a) => + Lens.Family2.LensLike' f s a +keys = Data.ProtoLens.Field.field @"keys" +keyspaceDesc :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "keyspaceDesc" a) => + Lens.Family2.LensLike' f s a +keyspaceDesc = Data.ProtoLens.Field.field @"keyspaceDesc" +lastMod :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "lastMod" a) => + Lens.Family2.LensLike' f s a +lastMod = Data.ProtoLens.Field.field @"lastMod" +lastModUsecs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "lastModUsecs" a) => + Lens.Family2.LensLike' f s a +lastModUsecs = Data.ProtoLens.Field.field @"lastModUsecs" +lastWriteWins :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "lastWriteWins" a) => + Lens.Family2.LensLike' f s a +lastWriteWins = Data.ProtoLens.Field.field @"lastWriteWins" +linkfun :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "linkfun" a) => + Lens.Family2.LensLike' f s a +linkfun = Data.ProtoLens.Field.field @"linkfun" +links :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "links" a) => + Lens.Family2.LensLike' f s a +links = Data.ProtoLens.Field.field @"links" +lowerBound :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "lowerBound" a) => + Lens.Family2.LensLike' f s a +lowerBound = Data.ProtoLens.Field.field @"lowerBound" +lowerBoundInclusive :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "lowerBoundInclusive" a) => + Lens.Family2.LensLike' f s a +lowerBoundInclusive + = Data.ProtoLens.Field.field @"lowerBoundInclusive" +mapOp :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "mapOp" a) => + Lens.Family2.LensLike' f s a +mapOp = Data.ProtoLens.Field.field @"mapOp" +mapValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "mapValue" a) => + Lens.Family2.LensLike' f s a +mapValue = Data.ProtoLens.Field.field @"mapValue" +maxResults :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxResults" a) => + Lens.Family2.LensLike' f s a +maxResults = Data.ProtoLens.Field.field @"maxResults" +maxScore :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxScore" a) => + Lens.Family2.LensLike' f s a +maxScore = Data.ProtoLens.Field.field @"maxScore" +maybe'allowMult :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'allowMult" a) => + Lens.Family2.LensLike' f s a +maybe'allowMult = Data.ProtoLens.Field.field @"maybe'allowMult" +maybe'asis :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'asis" a) => + Lens.Family2.LensLike' f s a +maybe'asis = Data.ProtoLens.Field.field @"maybe'asis" +maybe'backend :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'backend" a) => + Lens.Family2.LensLike' f s a +maybe'backend = Data.ProtoLens.Field.field @"maybe'backend" +maybe'basicQuorum :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'basicQuorum" a) => + Lens.Family2.LensLike' f s a +maybe'basicQuorum = Data.ProtoLens.Field.field @"maybe'basicQuorum" +maybe'bigVclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'bigVclock" a) => + Lens.Family2.LensLike' f s a +maybe'bigVclock = Data.ProtoLens.Field.field @"maybe'bigVclock" +maybe'booleanValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'booleanValue" a) => + Lens.Family2.LensLike' f s a +maybe'booleanValue + = Data.ProtoLens.Field.field @"maybe'booleanValue" +maybe'bucket :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'bucket" a) => + Lens.Family2.LensLike' f s a +maybe'bucket = Data.ProtoLens.Field.field @"maybe'bucket" +maybe'charset :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'charset" a) => + Lens.Family2.LensLike' f s a +maybe'charset = Data.ProtoLens.Field.field @"maybe'charset" +maybe'chashKeyfun :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'chashKeyfun" a) => + Lens.Family2.LensLike' f s a +maybe'chashKeyfun = Data.ProtoLens.Field.field @"maybe'chashKeyfun" +maybe'consistent :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'consistent" a) => + Lens.Family2.LensLike' f s a +maybe'consistent = Data.ProtoLens.Field.field @"maybe'consistent" +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'contentEncoding :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'contentEncoding" a) => + Lens.Family2.LensLike' f s a +maybe'contentEncoding + = Data.ProtoLens.Field.field @"maybe'contentEncoding" +maybe'contentType :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'contentType" a) => + Lens.Family2.LensLike' f s a +maybe'contentType = Data.ProtoLens.Field.field @"maybe'contentType" +maybe'context :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'context" a) => + Lens.Family2.LensLike' f s a +maybe'context = Data.ProtoLens.Field.field @"maybe'context" +maybe'continuation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'continuation" a) => + Lens.Family2.LensLike' f s a +maybe'continuation + = Data.ProtoLens.Field.field @"maybe'continuation" +maybe'counterOp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'counterOp" a) => + Lens.Family2.LensLike' f s a +maybe'counterOp = Data.ProtoLens.Field.field @"maybe'counterOp" +maybe'counterValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'counterValue" a) => + Lens.Family2.LensLike' f s a +maybe'counterValue + = Data.ProtoLens.Field.field @"maybe'counterValue" +maybe'coverContext :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'coverContext" a) => + Lens.Family2.LensLike' f s a +maybe'coverContext + = Data.ProtoLens.Field.field @"maybe'coverContext" +maybe'datatype :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'datatype" a) => + Lens.Family2.LensLike' f s a +maybe'datatype = Data.ProtoLens.Field.field @"maybe'datatype" +maybe'deleted :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'deleted" a) => + Lens.Family2.LensLike' f s a +maybe'deleted = Data.ProtoLens.Field.field @"maybe'deleted" +maybe'deletedvclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'deletedvclock" a) => + Lens.Family2.LensLike' f s a +maybe'deletedvclock + = Data.ProtoLens.Field.field @"maybe'deletedvclock" +maybe'df :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'df" a) => + Lens.Family2.LensLike' f s a +maybe'df = Data.ProtoLens.Field.field @"maybe'df" +maybe'done :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'done" a) => + Lens.Family2.LensLike' f s a +maybe'done = Data.ProtoLens.Field.field @"maybe'done" +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'dw :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'dw" a) => + Lens.Family2.LensLike' f s a +maybe'dw = Data.ProtoLens.Field.field @"maybe'dw" +maybe'endIncl :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'endIncl" a) => + Lens.Family2.LensLike' f s a +maybe'endIncl = Data.ProtoLens.Field.field @"maybe'endIncl" +maybe'endKey :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'endKey" a) => + Lens.Family2.LensLike' f s a +maybe'endKey = Data.ProtoLens.Field.field @"maybe'endKey" +maybe'filter :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'filter" a) => + Lens.Family2.LensLike' f s a +maybe'filter = Data.ProtoLens.Field.field @"maybe'filter" +maybe'flagOp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'flagOp" a) => + Lens.Family2.LensLike' f s a +maybe'flagOp = Data.ProtoLens.Field.field @"maybe'flagOp" +maybe'flagValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'flagValue" a) => + Lens.Family2.LensLike' f s a +maybe'flagValue = Data.ProtoLens.Field.field @"maybe'flagValue" +maybe'gsetOp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'gsetOp" a) => + Lens.Family2.LensLike' f s a +maybe'gsetOp = Data.ProtoLens.Field.field @"maybe'gsetOp" +maybe'hasPostcommit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'hasPostcommit" a) => + Lens.Family2.LensLike' f s a +maybe'hasPostcommit + = Data.ProtoLens.Field.field @"maybe'hasPostcommit" +maybe'hasPrecommit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'hasPrecommit" a) => + Lens.Family2.LensLike' f s a +maybe'hasPrecommit + = Data.ProtoLens.Field.field @"maybe'hasPrecommit" +maybe'head :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'head" a) => + Lens.Family2.LensLike' f s a +maybe'head = Data.ProtoLens.Field.field @"maybe'head" +maybe'hllOp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'hllOp" a) => + Lens.Family2.LensLike' f s a +maybe'hllOp = Data.ProtoLens.Field.field @"maybe'hllOp" +maybe'hllPrecision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'hllPrecision" a) => + Lens.Family2.LensLike' f s a +maybe'hllPrecision + = Data.ProtoLens.Field.field @"maybe'hllPrecision" +maybe'hllValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'hllValue" a) => + Lens.Family2.LensLike' f s a +maybe'hllValue = Data.ProtoLens.Field.field @"maybe'hllValue" +maybe'ifModified :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ifModified" a) => + Lens.Family2.LensLike' f s a +maybe'ifModified = Data.ProtoLens.Field.field @"maybe'ifModified" +maybe'ifNoneMatch :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ifNoneMatch" a) => + Lens.Family2.LensLike' f s a +maybe'ifNoneMatch = Data.ProtoLens.Field.field @"maybe'ifNoneMatch" +maybe'ifNotModified :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ifNotModified" a) => + Lens.Family2.LensLike' f s a +maybe'ifNotModified + = Data.ProtoLens.Field.field @"maybe'ifNotModified" +maybe'includeContext :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'includeContext" a) => + Lens.Family2.LensLike' f s a +maybe'includeContext + = Data.ProtoLens.Field.field @"maybe'includeContext" +maybe'increment :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'increment" a) => + Lens.Family2.LensLike' f s a +maybe'increment = Data.ProtoLens.Field.field @"maybe'increment" +maybe'key :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'key" a) => + Lens.Family2.LensLike' f s a +maybe'key = Data.ProtoLens.Field.field @"maybe'key" +maybe'keyspaceDesc :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'keyspaceDesc" a) => + Lens.Family2.LensLike' f s a +maybe'keyspaceDesc + = Data.ProtoLens.Field.field @"maybe'keyspaceDesc" +maybe'lastMod :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'lastMod" a) => + Lens.Family2.LensLike' f s a +maybe'lastMod = Data.ProtoLens.Field.field @"maybe'lastMod" +maybe'lastModUsecs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'lastModUsecs" a) => + Lens.Family2.LensLike' f s a +maybe'lastModUsecs + = Data.ProtoLens.Field.field @"maybe'lastModUsecs" +maybe'lastWriteWins :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'lastWriteWins" a) => + Lens.Family2.LensLike' f s a +maybe'lastWriteWins + = Data.ProtoLens.Field.field @"maybe'lastWriteWins" +maybe'linkfun :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'linkfun" a) => + Lens.Family2.LensLike' f s a +maybe'linkfun = Data.ProtoLens.Field.field @"maybe'linkfun" +maybe'mapOp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'mapOp" a) => + Lens.Family2.LensLike' f s a +maybe'mapOp = Data.ProtoLens.Field.field @"maybe'mapOp" +maybe'maxResults :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'maxResults" a) => + Lens.Family2.LensLike' f s a +maybe'maxResults = Data.ProtoLens.Field.field @"maybe'maxResults" +maybe'maxScore :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'maxScore" a) => + Lens.Family2.LensLike' f s a +maybe'maxScore = Data.ProtoLens.Field.field @"maybe'maxScore" +maybe'minPartitions :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'minPartitions" a) => + Lens.Family2.LensLike' f s a +maybe'minPartitions + = Data.ProtoLens.Field.field @"maybe'minPartitions" +maybe'modfun :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'modfun" a) => + Lens.Family2.LensLike' f s a +maybe'modfun = Data.ProtoLens.Field.field @"maybe'modfun" +maybe'nVal :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'nVal" a) => + Lens.Family2.LensLike' f s a +maybe'nVal = Data.ProtoLens.Field.field @"maybe'nVal" +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'node :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'node" a) => + Lens.Family2.LensLike' f s a +maybe'node = Data.ProtoLens.Field.field @"maybe'node" +maybe'notfoundOk :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'notfoundOk" a) => + Lens.Family2.LensLike' f s a +maybe'notfoundOk = Data.ProtoLens.Field.field @"maybe'notfoundOk" +maybe'numFound :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'numFound" a) => + Lens.Family2.LensLike' f s a +maybe'numFound = Data.ProtoLens.Field.field @"maybe'numFound" +maybe'oldVclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'oldVclock" a) => + Lens.Family2.LensLike' f s a +maybe'oldVclock = Data.ProtoLens.Field.field @"maybe'oldVclock" +maybe'op :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'op" a) => + Lens.Family2.LensLike' f s a +maybe'op = Data.ProtoLens.Field.field @"maybe'op" +maybe'paginationSort :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'paginationSort" a) => + Lens.Family2.LensLike' f s a +maybe'paginationSort + = Data.ProtoLens.Field.field @"maybe'paginationSort" +maybe'phase :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'phase" a) => + Lens.Family2.LensLike' f s a +maybe'phase = Data.ProtoLens.Field.field @"maybe'phase" +maybe'pr :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'pr" a) => + Lens.Family2.LensLike' f s a +maybe'pr = Data.ProtoLens.Field.field @"maybe'pr" +maybe'presort :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'presort" a) => + Lens.Family2.LensLike' f s a +maybe'presort = Data.ProtoLens.Field.field @"maybe'presort" +maybe'pw :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'pw" a) => + Lens.Family2.LensLike' f s a +maybe'pw = Data.ProtoLens.Field.field @"maybe'pw" +maybe'query :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'query" a) => + Lens.Family2.LensLike' f s a +maybe'query = Data.ProtoLens.Field.field @"maybe'query" +maybe'r :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "maybe'r" a) => + Lens.Family2.LensLike' f s a +maybe'r = Data.ProtoLens.Field.field @"maybe'r" +maybe'range :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'range" a) => + Lens.Family2.LensLike' f s a +maybe'range = Data.ProtoLens.Field.field @"maybe'range" +maybe'rangeMax :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'rangeMax" a) => + Lens.Family2.LensLike' f s a +maybe'rangeMax = Data.ProtoLens.Field.field @"maybe'rangeMax" +maybe'rangeMin :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'rangeMin" a) => + Lens.Family2.LensLike' f s a +maybe'rangeMin = Data.ProtoLens.Field.field @"maybe'rangeMin" +maybe'registerOp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'registerOp" a) => + Lens.Family2.LensLike' f s a +maybe'registerOp = Data.ProtoLens.Field.field @"maybe'registerOp" +maybe'registerValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'registerValue" a) => + Lens.Family2.LensLike' f s a +maybe'registerValue + = Data.ProtoLens.Field.field @"maybe'registerValue" +maybe'repl :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'repl" a) => + Lens.Family2.LensLike' f s a +maybe'repl = Data.ProtoLens.Field.field @"maybe'repl" +maybe'replaceCover :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'replaceCover" a) => + Lens.Family2.LensLike' f s a +maybe'replaceCover + = Data.ProtoLens.Field.field @"maybe'replaceCover" +maybe'response :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'response" a) => + Lens.Family2.LensLike' f s a +maybe'response = Data.ProtoLens.Field.field @"maybe'response" +maybe'returnBody :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'returnBody" a) => + Lens.Family2.LensLike' f s a +maybe'returnBody = Data.ProtoLens.Field.field @"maybe'returnBody" +maybe'returnHead :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'returnHead" a) => + Lens.Family2.LensLike' f s a +maybe'returnHead = Data.ProtoLens.Field.field @"maybe'returnHead" +maybe'returnTerms :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'returnTerms" a) => + Lens.Family2.LensLike' f s a +maybe'returnTerms = Data.ProtoLens.Field.field @"maybe'returnTerms" +maybe'returnvalue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'returnvalue" a) => + Lens.Family2.LensLike' f s a +maybe'returnvalue = Data.ProtoLens.Field.field @"maybe'returnvalue" +maybe'rows :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'rows" a) => + Lens.Family2.LensLike' f s a +maybe'rows = Data.ProtoLens.Field.field @"maybe'rows" +maybe'rw :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'rw" a) => + Lens.Family2.LensLike' f s a +maybe'rw = Data.ProtoLens.Field.field @"maybe'rw" +maybe'schema :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'schema" a) => + Lens.Family2.LensLike' f s a +maybe'schema = Data.ProtoLens.Field.field @"maybe'schema" +maybe'search :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'search" a) => + Lens.Family2.LensLike' f s a +maybe'search = Data.ProtoLens.Field.field @"maybe'search" +maybe'searchIndex :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'searchIndex" a) => + Lens.Family2.LensLike' f s a +maybe'searchIndex = Data.ProtoLens.Field.field @"maybe'searchIndex" +maybe'serverVersion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'serverVersion" a) => + Lens.Family2.LensLike' f s a +maybe'serverVersion + = Data.ProtoLens.Field.field @"maybe'serverVersion" +maybe'setOp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'setOp" a) => + Lens.Family2.LensLike' f s a +maybe'setOp = Data.ProtoLens.Field.field @"maybe'setOp" +maybe'sint64Value :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'sint64Value" a) => + Lens.Family2.LensLike' f s a +maybe'sint64Value = Data.ProtoLens.Field.field @"maybe'sint64Value" +maybe'sloppyQuorum :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'sloppyQuorum" a) => + Lens.Family2.LensLike' f s a +maybe'sloppyQuorum + = Data.ProtoLens.Field.field @"maybe'sloppyQuorum" +maybe'smallVclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'smallVclock" a) => + Lens.Family2.LensLike' f s a +maybe'smallVclock = Data.ProtoLens.Field.field @"maybe'smallVclock" +maybe'sort :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'sort" a) => + Lens.Family2.LensLike' f s a +maybe'sort = Data.ProtoLens.Field.field @"maybe'sort" +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'startIncl :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'startIncl" a) => + Lens.Family2.LensLike' f s a +maybe'startIncl = Data.ProtoLens.Field.field @"maybe'startIncl" +maybe'stream :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'stream" a) => + Lens.Family2.LensLike' f s a +maybe'stream = Data.ProtoLens.Field.field @"maybe'stream" +maybe'tag :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'tag" a) => + Lens.Family2.LensLike' f s a +maybe'tag = Data.ProtoLens.Field.field @"maybe'tag" +maybe'termRegex :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'termRegex" a) => + Lens.Family2.LensLike' f s a +maybe'termRegex = Data.ProtoLens.Field.field @"maybe'termRegex" +maybe'timeout :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'timeout" a) => + Lens.Family2.LensLike' f s a +maybe'timeout = Data.ProtoLens.Field.field @"maybe'timeout" +maybe'timestampValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'timestampValue" a) => + Lens.Family2.LensLike' f s a +maybe'timestampValue + = Data.ProtoLens.Field.field @"maybe'timestampValue" +maybe'ttl :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ttl" a) => + Lens.Family2.LensLike' f s a +maybe'ttl = Data.ProtoLens.Field.field @"maybe'ttl" +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'unchanged :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'unchanged" a) => + Lens.Family2.LensLike' f s a +maybe'unchanged = Data.ProtoLens.Field.field @"maybe'unchanged" +maybe'value :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'value" a) => + Lens.Family2.LensLike' f s a +maybe'value = Data.ProtoLens.Field.field @"maybe'value" +maybe'varcharValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'varcharValue" a) => + Lens.Family2.LensLike' f s a +maybe'varcharValue + = Data.ProtoLens.Field.field @"maybe'varcharValue" +maybe'vclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'vclock" a) => + Lens.Family2.LensLike' f s a +maybe'vclock = Data.ProtoLens.Field.field @"maybe'vclock" +maybe'vtag :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'vtag" a) => + Lens.Family2.LensLike' f s a +maybe'vtag = Data.ProtoLens.Field.field @"maybe'vtag" +maybe'w :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "maybe'w" a) => + Lens.Family2.LensLike' f s a +maybe'w = Data.ProtoLens.Field.field @"maybe'w" +maybe'writeOnce :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'writeOnce" a) => + Lens.Family2.LensLike' f s a +maybe'writeOnce = Data.ProtoLens.Field.field @"maybe'writeOnce" +maybe'youngVclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'youngVclock" a) => + Lens.Family2.LensLike' f s a +maybe'youngVclock = Data.ProtoLens.Field.field @"maybe'youngVclock" +minPartitions :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "minPartitions" a) => + Lens.Family2.LensLike' f s a +minPartitions = Data.ProtoLens.Field.field @"minPartitions" +modfun :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "modfun" a) => + Lens.Family2.LensLike' f s a +modfun = Data.ProtoLens.Field.field @"modfun" +module' :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "module'" a) => + Lens.Family2.LensLike' f s a +module' = Data.ProtoLens.Field.field @"module'" +nVal :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "nVal" a) => + Lens.Family2.LensLike' f s a +nVal = Data.ProtoLens.Field.field @"nVal" +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" +node :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "node" a) => + Lens.Family2.LensLike' f s a +node = Data.ProtoLens.Field.field @"node" +notfoundOk :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "notfoundOk" a) => + Lens.Family2.LensLike' f s a +notfoundOk = Data.ProtoLens.Field.field @"notfoundOk" +numFound :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "numFound" a) => + Lens.Family2.LensLike' f s a +numFound = Data.ProtoLens.Field.field @"numFound" +object :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "object" a) => + Lens.Family2.LensLike' f s a +object = Data.ProtoLens.Field.field @"object" +objects :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "objects" a) => + Lens.Family2.LensLike' f s a +objects = Data.ProtoLens.Field.field @"objects" +oldVclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "oldVclock" a) => + Lens.Family2.LensLike' f s a +oldVclock = Data.ProtoLens.Field.field @"oldVclock" +op :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "op" a) => + Lens.Family2.LensLike' f s a +op = Data.ProtoLens.Field.field @"op" +paginationSort :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "paginationSort" a) => + Lens.Family2.LensLike' f s a +paginationSort = Data.ProtoLens.Field.field @"paginationSort" +partition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "partition" a) => + Lens.Family2.LensLike' f s a +partition = Data.ProtoLens.Field.field @"partition" +password :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "password" a) => + Lens.Family2.LensLike' f s a +password = Data.ProtoLens.Field.field @"password" +phase :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "phase" a) => + Lens.Family2.LensLike' f s a +phase = Data.ProtoLens.Field.field @"phase" +port :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "port" a) => + Lens.Family2.LensLike' f s a +port = Data.ProtoLens.Field.field @"port" +postcommit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "postcommit" a) => + Lens.Family2.LensLike' f s a +postcommit = Data.ProtoLens.Field.field @"postcommit" +pr :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "pr" a) => + Lens.Family2.LensLike' f s a +pr = Data.ProtoLens.Field.field @"pr" +precommit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "precommit" a) => + Lens.Family2.LensLike' f s a +precommit = Data.ProtoLens.Field.field @"precommit" +preflist :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "preflist" a) => + Lens.Family2.LensLike' f s a +preflist = Data.ProtoLens.Field.field @"preflist" +presort :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "presort" a) => + Lens.Family2.LensLike' f s a +presort = Data.ProtoLens.Field.field @"presort" +primary :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "primary" a) => + Lens.Family2.LensLike' f s a +primary = Data.ProtoLens.Field.field @"primary" +props :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "props" a) => + Lens.Family2.LensLike' f s a +props = Data.ProtoLens.Field.field @"props" +pw :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "pw" a) => + Lens.Family2.LensLike' f s a +pw = Data.ProtoLens.Field.field @"pw" +q :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "q" a) => + Lens.Family2.LensLike' f s a +q = Data.ProtoLens.Field.field @"q" +qtype :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "qtype" a) => + Lens.Family2.LensLike' f s a +qtype = Data.ProtoLens.Field.field @"qtype" +query :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "query" a) => + Lens.Family2.LensLike' f s a +query = Data.ProtoLens.Field.field @"query" +r :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "r" a) => + Lens.Family2.LensLike' f s a +r = Data.ProtoLens.Field.field @"r" +range :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "range" a) => + Lens.Family2.LensLike' f s a +range = Data.ProtoLens.Field.field @"range" +rangeMax :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "rangeMax" a) => + Lens.Family2.LensLike' f s a +rangeMax = Data.ProtoLens.Field.field @"rangeMax" +rangeMin :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "rangeMin" a) => + Lens.Family2.LensLike' f s a +rangeMin = Data.ProtoLens.Field.field @"rangeMin" +registerOp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "registerOp" a) => + Lens.Family2.LensLike' f s a +registerOp = Data.ProtoLens.Field.field @"registerOp" +registerValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "registerValue" a) => + Lens.Family2.LensLike' f s a +registerValue = Data.ProtoLens.Field.field @"registerValue" +removes :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "removes" a) => + Lens.Family2.LensLike' f s a +removes = Data.ProtoLens.Field.field @"removes" +repl :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "repl" a) => + Lens.Family2.LensLike' f s a +repl = Data.ProtoLens.Field.field @"repl" +replaceCover :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "replaceCover" a) => + Lens.Family2.LensLike' f s a +replaceCover = Data.ProtoLens.Field.field @"replaceCover" +request :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "request" a) => + Lens.Family2.LensLike' f s a +request = Data.ProtoLens.Field.field @"request" +response :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "response" a) => + Lens.Family2.LensLike' f s a +response = Data.ProtoLens.Field.field @"response" +results :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "results" a) => + Lens.Family2.LensLike' f s a +results = Data.ProtoLens.Field.field @"results" +returnBody :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "returnBody" a) => + Lens.Family2.LensLike' f s a +returnBody = Data.ProtoLens.Field.field @"returnBody" +returnHead :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "returnHead" a) => + Lens.Family2.LensLike' f s a +returnHead = Data.ProtoLens.Field.field @"returnHead" +returnTerms :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "returnTerms" a) => + Lens.Family2.LensLike' f s a +returnTerms = Data.ProtoLens.Field.field @"returnTerms" +returnvalue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "returnvalue" a) => + Lens.Family2.LensLike' f s a +returnvalue = Data.ProtoLens.Field.field @"returnvalue" +rows :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "rows" a) => + Lens.Family2.LensLike' f s a +rows = Data.ProtoLens.Field.field @"rows" +rw :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "rw" a) => + Lens.Family2.LensLike' f s a +rw = Data.ProtoLens.Field.field @"rw" +schema :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "schema" a) => + Lens.Family2.LensLike' f s a +schema = Data.ProtoLens.Field.field @"schema" +search :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "search" a) => + Lens.Family2.LensLike' f s a +search = Data.ProtoLens.Field.field @"search" +searchIndex :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "searchIndex" a) => + Lens.Family2.LensLike' f s a +searchIndex = Data.ProtoLens.Field.field @"searchIndex" +serverVersion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "serverVersion" a) => + Lens.Family2.LensLike' f s a +serverVersion = Data.ProtoLens.Field.field @"serverVersion" +setOp :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "setOp" a) => + Lens.Family2.LensLike' f s a +setOp = Data.ProtoLens.Field.field @"setOp" +setValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "setValue" a) => + Lens.Family2.LensLike' f s a +setValue = Data.ProtoLens.Field.field @"setValue" +sint64Value :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "sint64Value" a) => + Lens.Family2.LensLike' f s a +sint64Value = Data.ProtoLens.Field.field @"sint64Value" +sloppyQuorum :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "sloppyQuorum" a) => + Lens.Family2.LensLike' f s a +sloppyQuorum = Data.ProtoLens.Field.field @"sloppyQuorum" +smallVclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "smallVclock" a) => + Lens.Family2.LensLike' f s a +smallVclock = Data.ProtoLens.Field.field @"smallVclock" +sort :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "sort" a) => + Lens.Family2.LensLike' f s a +sort = Data.ProtoLens.Field.field @"sort" +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" +startIncl :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "startIncl" a) => + Lens.Family2.LensLike' f s a +startIncl = Data.ProtoLens.Field.field @"startIncl" +startKey :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "startKey" a) => + Lens.Family2.LensLike' f s a +startKey = Data.ProtoLens.Field.field @"startKey" +stream :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "stream" a) => + Lens.Family2.LensLike' f s a +stream = Data.ProtoLens.Field.field @"stream" +table :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "table" a) => + Lens.Family2.LensLike' f s a +table = Data.ProtoLens.Field.field @"table" +tag :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "tag" a) => + Lens.Family2.LensLike' f s a +tag = Data.ProtoLens.Field.field @"tag" +termRegex :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "termRegex" a) => + Lens.Family2.LensLike' f s a +termRegex = Data.ProtoLens.Field.field @"termRegex" +timeout :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "timeout" a) => + Lens.Family2.LensLike' f s a +timeout = Data.ProtoLens.Field.field @"timeout" +timestampValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "timestampValue" a) => + Lens.Family2.LensLike' f s a +timestampValue = Data.ProtoLens.Field.field @"timestampValue" +ttl :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ttl" a) => + Lens.Family2.LensLike' f s a +ttl = Data.ProtoLens.Field.field @"ttl" +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'" +unavailableCover :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "unavailableCover" a) => + Lens.Family2.LensLike' f s a +unavailableCover = Data.ProtoLens.Field.field @"unavailableCover" +unchanged :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "unchanged" a) => + Lens.Family2.LensLike' f s a +unchanged = Data.ProtoLens.Field.field @"unchanged" +updates :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "updates" a) => + Lens.Family2.LensLike' f s a +updates = Data.ProtoLens.Field.field @"updates" +upperBound :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "upperBound" a) => + Lens.Family2.LensLike' f s a +upperBound = Data.ProtoLens.Field.field @"upperBound" +upperBoundInclusive :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "upperBoundInclusive" a) => + Lens.Family2.LensLike' f s a +upperBoundInclusive + = Data.ProtoLens.Field.field @"upperBoundInclusive" +user :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "user" a) => + Lens.Family2.LensLike' f s a +user = Data.ProtoLens.Field.field @"user" +usermeta :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "usermeta" a) => + Lens.Family2.LensLike' f s a +usermeta = Data.ProtoLens.Field.field @"usermeta" +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" +varcharValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "varcharValue" a) => + Lens.Family2.LensLike' f s a +varcharValue = Data.ProtoLens.Field.field @"varcharValue" +vclock :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vclock" a) => + Lens.Family2.LensLike' f s a +vclock = Data.ProtoLens.Field.field @"vclock" +vec'adds :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'adds" a) => + Lens.Family2.LensLike' f s a +vec'adds = Data.ProtoLens.Field.field @"vec'adds" +vec'buckets :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'buckets" a) => + Lens.Family2.LensLike' f s a +vec'buckets = Data.ProtoLens.Field.field @"vec'buckets" +vec'cells :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'cells" a) => + Lens.Family2.LensLike' f s a +vec'cells = Data.ProtoLens.Field.field @"vec'cells" +vec'columns :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'columns" a) => + Lens.Family2.LensLike' f s a +vec'columns = Data.ProtoLens.Field.field @"vec'columns" +vec'content :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'content" a) => + Lens.Family2.LensLike' f s a +vec'content = Data.ProtoLens.Field.field @"vec'content" +vec'docs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'docs" a) => + Lens.Family2.LensLike' f s a +vec'docs = Data.ProtoLens.Field.field @"vec'docs" +vec'entries :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'entries" a) => + Lens.Family2.LensLike' f s a +vec'entries = Data.ProtoLens.Field.field @"vec'entries" +vec'fields :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'fields" a) => + Lens.Family2.LensLike' f s a +vec'fields = Data.ProtoLens.Field.field @"vec'fields" +vec'fl :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vec'fl" a) => + Lens.Family2.LensLike' f s a +vec'fl = Data.ProtoLens.Field.field @"vec'fl" +vec'gsetValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'gsetValue" a) => + Lens.Family2.LensLike' f s a +vec'gsetValue = Data.ProtoLens.Field.field @"vec'gsetValue" +vec'index :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'index" a) => + Lens.Family2.LensLike' f s a +vec'index = Data.ProtoLens.Field.field @"vec'index" +vec'indexes :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'indexes" a) => + Lens.Family2.LensLike' f s a +vec'indexes = Data.ProtoLens.Field.field @"vec'indexes" +vec'interpolations :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'interpolations" a) => + Lens.Family2.LensLike' f s a +vec'interpolations + = Data.ProtoLens.Field.field @"vec'interpolations" +vec'key :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vec'key" a) => + Lens.Family2.LensLike' f s a +vec'key = Data.ProtoLens.Field.field @"vec'key" +vec'keys :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'keys" a) => + Lens.Family2.LensLike' f s a +vec'keys = Data.ProtoLens.Field.field @"vec'keys" +vec'links :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'links" a) => + Lens.Family2.LensLike' f s a +vec'links = Data.ProtoLens.Field.field @"vec'links" +vec'mapValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'mapValue" a) => + Lens.Family2.LensLike' f s a +vec'mapValue = Data.ProtoLens.Field.field @"vec'mapValue" +vec'objects :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'objects" a) => + Lens.Family2.LensLike' f s a +vec'objects = Data.ProtoLens.Field.field @"vec'objects" +vec'postcommit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'postcommit" a) => + Lens.Family2.LensLike' f s a +vec'postcommit = Data.ProtoLens.Field.field @"vec'postcommit" +vec'precommit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'precommit" a) => + Lens.Family2.LensLike' f s a +vec'precommit = Data.ProtoLens.Field.field @"vec'precommit" +vec'preflist :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'preflist" a) => + Lens.Family2.LensLike' f s a +vec'preflist = Data.ProtoLens.Field.field @"vec'preflist" +vec'removes :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'removes" a) => + Lens.Family2.LensLike' f s a +vec'removes = Data.ProtoLens.Field.field @"vec'removes" +vec'results :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'results" a) => + Lens.Family2.LensLike' f s a +vec'results = Data.ProtoLens.Field.field @"vec'results" +vec'rows :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'rows" a) => + Lens.Family2.LensLike' f s a +vec'rows = Data.ProtoLens.Field.field @"vec'rows" +vec'setValue :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'setValue" a) => + Lens.Family2.LensLike' f s a +vec'setValue = Data.ProtoLens.Field.field @"vec'setValue" +vec'unavailableCover :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'unavailableCover" a) => + Lens.Family2.LensLike' f s a +vec'unavailableCover + = Data.ProtoLens.Field.field @"vec'unavailableCover" +vec'updates :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'updates" a) => + Lens.Family2.LensLike' f s a +vec'updates = Data.ProtoLens.Field.field @"vec'updates" +vec'usermeta :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'usermeta" a) => + Lens.Family2.LensLike' f s a +vec'usermeta = Data.ProtoLens.Field.field @"vec'usermeta" +vtag :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vtag" a) => + Lens.Family2.LensLike' f s a +vtag = Data.ProtoLens.Field.field @"vtag" +w :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "w" a) => + Lens.Family2.LensLike' f s a +w = Data.ProtoLens.Field.field @"w" +writeOnce :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "writeOnce" a) => + Lens.Family2.LensLike' f s a +writeOnce = Data.ProtoLens.Field.field @"writeOnce" +youngVclock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "youngVclock" a) => + Lens.Family2.LensLike' f s a +youngVclock = Data.ProtoLens.Field.field @"youngVclock" diff --git a/src/Data/Riak/Proto.hs b/src/Data/Riak/Proto.hs new file mode 100644 --- /dev/null +++ b/src/Data/Riak/Proto.hs @@ -0,0 +1,15 @@ +module Data.Riak.Proto + ( module Proto.Riak + , module Proto.Riak_Fields + -- ** Re-exports + , Message + , defMessage + , decodeMessage + , encodeMessage + ) where + +import Proto.Riak +import Proto.Riak_Fields + +import Data.ProtoLens.Encoding (decodeMessage, encodeMessage) +import Data.ProtoLens.Message (Message, defMessage) diff --git a/src/Network/Riak/Protocol.hs b/src/Network/Riak/Protocol.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol.hs +++ /dev/null @@ -1,23 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol (protoInfo, fileDescriptorProto) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import Text.DescriptorProtos.FileDescriptorProto (FileDescriptorProto) -import Text.ProtocolBuffers.Reflections (ProtoInfo) -import qualified Text.ProtocolBuffers.WireMessage as P' (wireGet,getFromBS) - -protoInfo :: ProtoInfo -protoInfo - = Prelude'.read - "ProtoInfo {protoMod = ProtoName {protobufName = FIName \".Protocol\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [], baseName = MName \"Protocol\"}, protoFilePath = [\"Network\",\"Riak\",\"Protocol.hs\"], protoSource = \"Protocol.proto\", extensionKeys = fromList [], messages = [DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ErrorResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ErrorResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ErrorResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ErrorResponse.errmsg\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ErrorResponse\"], baseName' = FName \"errmsg\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ErrorResponse.errcode\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ErrorResponse\"], baseName' = FName \"errcode\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ServerInfo\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ServerInfo\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ServerInfo.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ServerInfo.node\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ServerInfo\"], baseName' = FName \"node\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ServerInfo.server_version\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ServerInfo\"], baseName' = FName \"server_version\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"Pair.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Pair.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Pair\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Pair.value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Pair\"], baseName' = FName \"value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetBucketRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetBucketRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetBucketRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetBucketResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetBucketResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetBucketResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketResponse.props\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketResponse\"], baseName' = FName \"props\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.BucketProps\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketProps\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SetBucketRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetBucketRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SetBucketRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetBucketRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetBucketRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetBucketRequest.props\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetBucketRequest\"], baseName' = FName \"props\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.BucketProps\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketProps\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetBucketRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetBucketRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ResetBucketRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ResetBucketRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ResetBucketRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ResetBucketRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ResetBucketRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ResetBucketRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ResetBucketRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetBucketTypeRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetBucketTypeRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetBucketTypeRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketTypeRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketTypeRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SetBucketTypeRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetBucketTypeRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SetBucketTypeRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetBucketTypeRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetBucketTypeRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetBucketTypeRequest.props\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetBucketTypeRequest\"], baseName' = FName \"props\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.BucketProps\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketProps\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ModFun\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ModFun\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ModFun.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ModFun.module\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ModFun\"], baseName' = FName \"module'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ModFun.function\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ModFun\"], baseName' = FName \"function\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CommitHook\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CommitHook\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CommitHook.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CommitHook.modfun\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CommitHook\"], baseName' = FName \"modfun\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.ModFun\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ModFun\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CommitHook.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CommitHook\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.BucketProps\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketProps\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"BucketProps.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.allow_mult\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"allow_mult\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.last_write_wins\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"last_write_wins\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.precommit\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"precommit\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.CommitHook\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CommitHook\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.has_precommit\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"has_precommit\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"false\", hsDefault = Just (HsDef'Bool False)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.postcommit\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"postcommit\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.CommitHook\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CommitHook\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.has_postcommit\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"has_postcommit\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"false\", hsDefault = Just (HsDef'Bool False)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.chash_keyfun\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"chash_keyfun\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 66}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.ModFun\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ModFun\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.linkfun\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"linkfun\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 74}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.ModFun\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ModFun\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.old_vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"old_vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.young_vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"young_vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.big_vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"big_vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 96}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.small_vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"small_vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 104}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.pr\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"pr\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 14}, wireTag = WireTag {getWireTag = 112}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.r\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"r\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 15}, wireTag = WireTag {getWireTag = 120}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.w\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"w\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 16}, wireTag = WireTag {getWireTag = 128}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.pw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"pw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 17}, wireTag = WireTag {getWireTag = 136}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.dw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"dw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 18}, wireTag = WireTag {getWireTag = 144}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.rw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"rw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 19}, wireTag = WireTag {getWireTag = 152}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.basic_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"basic_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 20}, wireTag = WireTag {getWireTag = 160}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.notfound_ok\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"notfound_ok\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 21}, wireTag = WireTag {getWireTag = 168}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.backend\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"backend\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 22}, wireTag = WireTag {getWireTag = 178}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.search\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"search\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 23}, wireTag = WireTag {getWireTag = 184}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.repl\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"repl\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 24}, wireTag = WireTag {getWireTag = 192}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.BucketProps.ReplMode\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"BucketProps\"], baseName = MName \"ReplMode\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.search_index\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"search_index\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 25}, wireTag = WireTag {getWireTag = 202}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.datatype\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"datatype\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 26}, wireTag = WireTag {getWireTag = 210}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.consistent\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"consistent\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 27}, wireTag = WireTag {getWireTag = 216}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.write_once\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"write_once\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 28}, wireTag = WireTag {getWireTag = 224}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.AuthRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"AuthRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"AuthRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.AuthRequest.user\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"AuthRequest\"], baseName' = FName \"user\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.AuthRequest.password\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"AuthRequest\"], baseName' = FName \"password\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetClientIDResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetClientIDResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetClientIDResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetClientIDResponse.client_id\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetClientIDResponse\"], baseName' = FName \"client_id\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SetClientIDRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetClientIDRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SetClientIDRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetClientIDRequest.client_id\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetClientIDRequest\"], baseName' = FName \"client_id\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.r\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"r\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.pr\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"pr\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.basic_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"basic_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.notfound_ok\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"notfound_ok\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.if_modified\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"if_modified\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 58}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.head\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"head\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.deletedvclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"deletedvclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.sloppy_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"sloppy_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 96}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 106}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetResponse.content\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetResponse\"], baseName' = FName \"content\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Content\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Content\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetResponse.vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetResponse\"], baseName' = FName \"vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetResponse.unchanged\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetResponse\"], baseName' = FName \"unchanged\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.PutRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"PutRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"PutRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.content\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"content\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Content\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Content\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.w\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"w\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.dw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"dw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.return_body\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"return_body\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.pw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"pw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.if_not_modified\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"if_not_modified\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.if_none_match\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"if_none_match\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.return_head\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"return_head\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 96}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.asis\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"asis\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 104}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.sloppy_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"sloppy_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 14}, wireTag = WireTag {getWireTag = 112}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 15}, wireTag = WireTag {getWireTag = 120}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 16}, wireTag = WireTag {getWireTag = 130}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.PutResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"PutResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"PutResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutResponse.content\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutResponse\"], baseName' = FName \"content\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Content\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Content\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutResponse.vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutResponse\"], baseName' = FName \"vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutResponse.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutResponse\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DeleteRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DeleteRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DeleteRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.rw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"rw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.r\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"r\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.w\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"w\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.pr\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"pr\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.pw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"pw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.dw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"dw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.sloppy_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"sloppy_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 96}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 106}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ListBucketsRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ListBucketsRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ListBucketsRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListBucketsRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListBucketsRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListBucketsRequest.stream\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListBucketsRequest\"], baseName' = FName \"stream\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListBucketsRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListBucketsRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ListBucketsResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ListBucketsResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ListBucketsResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListBucketsResponse.buckets\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListBucketsResponse\"], baseName' = FName \"buckets\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListBucketsResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListBucketsResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ListKeysRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ListKeysRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ListKeysRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListKeysRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListKeysRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListKeysRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListKeysRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListKeysRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListKeysRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ListKeysResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ListKeysResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ListKeysResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListKeysResponse.keys\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListKeysResponse\"], baseName' = FName \"keys\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListKeysResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListKeysResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapReduceRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapReduceRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapReduceRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapReduceRequest.request\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapReduceRequest\"], baseName' = FName \"request\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapReduceRequest.content_type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapReduceRequest\"], baseName' = FName \"content_type\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapReduce\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapReduce\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapReduce.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapReduce.phase\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapReduce\"], baseName' = FName \"phase\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapReduce.response\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapReduce\"], baseName' = FName \"response\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapReduce.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapReduce\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.IndexRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"IndexRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"IndexRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.index\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"index\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.qtype\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"qtype\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.IndexRequest.IndexQueryType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"IndexRequest\"], baseName = MName \"IndexQueryType\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.range_min\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"range_min\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.range_max\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"range_max\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.return_terms\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"return_terms\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.stream\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"stream\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.max_results\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"max_results\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.continuation\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"continuation\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 82}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 98}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.term_regex\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"term_regex\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 106}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.pagination_sort\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"pagination_sort\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 14}, wireTag = WireTag {getWireTag = 112}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.IndexResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"IndexResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"IndexResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexResponse.keys\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexResponse\"], baseName' = FName \"keys\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexResponse.results\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexResponse\"], baseName' = FName \"results\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexResponse.continuation\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexResponse\"], baseName' = FName \"continuation\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CSBucketRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CSBucketRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CSBucketRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.start_key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"start_key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.end_key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"end_key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.start_incl\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"start_incl\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"true\", hsDefault = Just (HsDef'Bool True)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.end_incl\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"end_incl\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"false\", hsDefault = Just (HsDef'Bool False)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.continuation\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"continuation\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.max_results\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"max_results\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 74}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CSBucketResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CSBucketResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CSBucketResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketResponse.objects\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketResponse\"], baseName' = FName \"objects\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.IndexObject\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"IndexObject\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketResponse.continuation\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketResponse\"], baseName' = FName \"continuation\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.IndexObject\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"IndexObject\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"IndexObject.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexObject.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexObject\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexObject.object\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexObject\"], baseName' = FName \"object\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.GetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetResponse\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.Content\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Content\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"Content.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.content_type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"content_type\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.charset\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"charset\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.content_encoding\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"content_encoding\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.vtag\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"vtag\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.links\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"links\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Link\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Link\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.last_mod\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"last_mod\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.last_mod_usecs\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"last_mod_usecs\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.usermeta\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"usermeta\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 74}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.indexes\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"indexes\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 82}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.deleted\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"deleted\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.Link\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Link\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"Link.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Link.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Link\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Link.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Link\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Link.tag\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Link\"], baseName' = FName \"tag\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CounterUpdateRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterUpdateRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CounterUpdateRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.amount\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"amount\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.w\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"w\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.dw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"dw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.pw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"pw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.returnvalue\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"returnvalue\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CounterUpdateResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterUpdateResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CounterUpdateResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateResponse.value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateResponse\"], baseName' = FName \"value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CounterGetRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterGetRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CounterGetRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.r\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"r\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.pr\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"pr\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.basic_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"basic_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.notfound_ok\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"notfound_ok\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CounterGetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterGetResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CounterGetResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetResponse.value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetResponse\"], baseName' = FName \"value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetBucketKeyPreflistRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetBucketKeyPreflistRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetBucketKeyPreflistRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketKeyPreflistRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketKeyPreflistRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketKeyPreflistRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketKeyPreflistRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketKeyPreflistRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketKeyPreflistRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetBucketKeyPreflistResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetBucketKeyPreflistResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetBucketKeyPreflistResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketKeyPreflistResponse.preflist\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketKeyPreflistResponse\"], baseName' = FName \"preflist\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.BucketKeyPreflistItem\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketKeyPreflistItem\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.BucketKeyPreflistItem\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketKeyPreflistItem\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"BucketKeyPreflistItem.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketKeyPreflistItem.partition\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketKeyPreflistItem\"], baseName' = FName \"partition\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 3}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketKeyPreflistItem.node\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketKeyPreflistItem\"], baseName' = FName \"node\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketKeyPreflistItem.primary\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketKeyPreflistItem\"], baseName' = FName \"primary\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapField\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapField\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapField.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapField.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapField\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapField.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapField\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapField.MapFieldType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"MapField\"], baseName = MName \"MapFieldType\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapEntry\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapEntry.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.field\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"field\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapField\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapField\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.counter_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"counter_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.set_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"set_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.register_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"register_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.flag_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"flag_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.map_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"map_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapEntry\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtFetchRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtFetchRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtFetchRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.r\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"r\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.pr\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"pr\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.basic_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"basic_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.notfound_ok\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"notfound_ok\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.sloppy_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"sloppy_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.include_context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"include_context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"true\", hsDefault = Just (HsDef'Bool True)}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtValue\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtValue\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtValue.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtValue.counter_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtValue\"], baseName' = FName \"counter_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtValue.set_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtValue\"], baseName' = FName \"set_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtValue.map_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtValue\"], baseName' = FName \"map_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapEntry\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtFetchResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtFetchResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtFetchResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchResponse.context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchResponse\"], baseName' = FName \"context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchResponse.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchResponse\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.DtFetchResponse.DataType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"DtFetchResponse\"], baseName = MName \"DataType\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchResponse.value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchResponse\"], baseName' = FName \"value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.DtValue\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtValue\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CounterOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterOp\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CounterOp.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterOp.increment\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterOp\"], baseName' = FName \"increment\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SetOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetOp\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SetOp.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetOp.adds\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetOp\"], baseName' = FName \"adds\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetOp.removes\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetOp\"], baseName' = FName \"removes\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapUpdate\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapUpdate\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapUpdate.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.field\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"field\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapField\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapField\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.counter_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"counter_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.CounterOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.set_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"set_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.SetOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.register_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"register_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.flag_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"flag_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapUpdate.FlagOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"MapUpdate\"], baseName = MName \"FlagOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.map_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"map_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapOp\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapOp\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapOp.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapOp.removes\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapOp\"], baseName' = FName \"removes\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapField\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapField\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapOp.updates\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapOp\"], baseName' = FName \"updates\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapUpdate\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapUpdate\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtOp\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtOp.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtOp.counter_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtOp\"], baseName' = FName \"counter_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.CounterOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtOp.set_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtOp\"], baseName' = FName \"set_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.SetOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtOp.map_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtOp\"], baseName' = FName \"map_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapOp\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtUpdateRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtUpdateRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtUpdateRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.DtOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.w\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"w\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.dw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"dw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.pw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"pw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.return_body\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"return_body\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"false\", hsDefault = Just (HsDef'Bool False)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.sloppy_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"sloppy_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 96}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.include_context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"include_context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 104}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"true\", hsDefault = Just (HsDef'Bool True)}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtUpdateResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtUpdateResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtUpdateResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateResponse.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateResponse\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateResponse.context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateResponse\"], baseName' = FName \"context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateResponse.counter_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateResponse\"], baseName' = FName \"counter_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateResponse.set_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateResponse\"], baseName' = FName \"set_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateResponse.map_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateResponse\"], baseName' = FName \"map_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapEntry\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzIndex\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndex\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzIndex.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndex.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndex\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndex.schema\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndex\"], baseName' = FName \"schema\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndex.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndex\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzIndexGetRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndexGetRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzIndexGetRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndexGetRequest.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndexGetRequest\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzIndexGetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndexGetResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzIndexGetResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndexGetResponse.index\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndexGetResponse\"], baseName' = FName \"index\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.YzIndex\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndex\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzIndexPutRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndexPutRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzIndexPutRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndexPutRequest.index\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndexPutRequest\"], baseName' = FName \"index\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.YzIndex\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndex\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndexPutRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndexPutRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzIndexDeleteRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndexDeleteRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzIndexDeleteRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndexDeleteRequest.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndexDeleteRequest\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzSchema\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchema\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzSchema.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzSchema.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzSchema\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzSchema.content\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzSchema\"], baseName' = FName \"content\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzSchemaPutRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchemaPutRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzSchemaPutRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzSchemaPutRequest.schema\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzSchemaPutRequest\"], baseName' = FName \"schema\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.YzSchema\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchema\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzSchemaGetRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchemaGetRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzSchemaGetRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzSchemaGetRequest.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzSchemaGetRequest\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzSchemaGetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchemaGetResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzSchemaGetResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzSchemaGetResponse.schema\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzSchemaGetResponse\"], baseName' = FName \"schema\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.YzSchema\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchema\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SearchDoc\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SearchDoc\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SearchDoc.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchDoc.fields\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchDoc\"], baseName' = FName \"fields\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SearchQueryRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SearchQueryRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SearchQueryRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.q\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"q\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.index\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"index\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.rows\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"rows\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.start\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"start\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.sort\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"sort\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.filter\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"filter\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.df\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"df\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 58}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 66}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.fl\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"fl\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 74}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.presort\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"presort\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 82}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SearchQueryResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SearchQueryResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SearchQueryResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryResponse.docs\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryResponse\"], baseName' = FName \"docs\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.SearchDoc\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SearchDoc\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryResponse.max_score\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryResponse\"], baseName' = FName \"max_score\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 21}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 2}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryResponse.num_found\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryResponse\"], baseName' = FName \"num_found\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsQueryRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsQueryRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsQueryRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryRequest.query\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryRequest\"], baseName' = FName \"query\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsInterpolation\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsInterpolation\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryRequest.stream\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryRequest\"], baseName' = FName \"stream\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"false\", hsDefault = Just (HsDef'Bool False)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryRequest.cover_context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryRequest\"], baseName' = FName \"cover_context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsQueryResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsQueryResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsQueryResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryResponse.columns\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryResponse\"], baseName' = FName \"columns\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsColumnDescription\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnDescription\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryResponse.rows\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryResponse\"], baseName' = FName \"rows\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsRow\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRow\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"true\", hsDefault = Just (HsDef'Bool True)}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsGetRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsGetRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsGetRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsGetRequest.table\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsGetRequest\"], baseName' = FName \"table\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsGetRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsGetRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsCell\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCell\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsGetRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsGetRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsGetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsGetResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsGetResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsGetResponse.columns\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsGetResponse\"], baseName' = FName \"columns\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsColumnDescription\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnDescription\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsGetResponse.rows\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsGetResponse\"], baseName' = FName \"rows\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsRow\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRow\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsPutRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsPutRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsPutRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsPutRequest.table\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsPutRequest\"], baseName' = FName \"table\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsPutRequest.columns\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsPutRequest\"], baseName' = FName \"columns\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsColumnDescription\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnDescription\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsPutRequest.rows\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsPutRequest\"], baseName' = FName \"rows\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsRow\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRow\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsPutResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsPutResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsPutResponse.hs\"], isGroup = False, fields = fromList [], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsDeleteRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsDeleteRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsDeleteRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsDeleteRequest.table\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsDeleteRequest\"], baseName' = FName \"table\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsDeleteRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsDeleteRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsCell\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCell\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsDeleteRequest.vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsDeleteRequest\"], baseName' = FName \"vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsDeleteRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsDeleteRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsDeleteResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsDeleteResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsDeleteResponse.hs\"], isGroup = False, fields = fromList [], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsInterpolation\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsInterpolation\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsInterpolation.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsInterpolation.base\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsInterpolation\"], baseName' = FName \"base\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsInterpolation.interpolations\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsInterpolation\"], baseName' = FName \"interpolations\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsColumnDescription\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnDescription\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsColumnDescription.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsColumnDescription.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsColumnDescription\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsColumnDescription.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsColumnDescription\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsColumnType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnType\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsRow\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRow\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsRow.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRow.cells\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRow\"], baseName' = FName \"cells\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsCell\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCell\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsCell\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCell\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsCell.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCell.varchar_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCell\"], baseName' = FName \"varchar_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCell.sint64_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCell\"], baseName' = FName \"sint64_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCell.timestamp_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCell\"], baseName' = FName \"timestamp_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCell.boolean_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCell\"], baseName' = FName \"boolean_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCell.double_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCell\"], baseName' = FName \"double_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 41}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 1}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsListKeysRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsListKeysRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsListKeysRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsListKeysRequest.table\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsListKeysRequest\"], baseName' = FName \"table\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsListKeysRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsListKeysRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsListKeysResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsListKeysResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsListKeysResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsListKeysResponse.keys\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsListKeysResponse\"], baseName' = FName \"keys\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsRow\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRow\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsListKeysResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsListKeysResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsCoverageRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCoverageRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsCoverageRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageRequest.query\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageRequest\"], baseName' = FName \"query\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsInterpolation\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsInterpolation\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageRequest.table\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageRequest\"], baseName' = FName \"table\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageRequest.replace_cover\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageRequest\"], baseName' = FName \"replace_cover\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageRequest.unavailable_cover\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageRequest\"], baseName' = FName \"unavailable_cover\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsCoverageResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCoverageResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsCoverageResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageResponse.entries\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageResponse\"], baseName' = FName \"entries\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsCoverageEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCoverageEntry\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsCoverageEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCoverageEntry\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsCoverageEntry.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageEntry.ip\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageEntry\"], baseName' = FName \"ip\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageEntry.port\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageEntry\"], baseName' = FName \"port\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageEntry.cover_context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageEntry\"], baseName' = FName \"cover_context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageEntry.range\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageEntry\"], baseName' = FName \"range\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsRange\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRange\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsRange\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRange\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsRange.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.field_name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"field_name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.lower_bound\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"lower_bound\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.lower_bound_inclusive\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"lower_bound_inclusive\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.upper_bound\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"upper_bound\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.upper_bound_inclusive\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"upper_bound_inclusive\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.desc\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"desc\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.PingRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"PingRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"PingRequest.hs\"], isGroup = False, fields = fromList [], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetClientIDRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetClientIDRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetClientIDRequest.hs\"], isGroup = False, fields = fromList [], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False},DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetServerInfoRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetServerInfoRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetServerInfoRequest.hs\"], isGroup = False, fields = fromList [], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}], enums = [EnumInfo {enumName = ProtoName {protobufName = FIName \".Protocol.TsColumnType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnType\"}, enumFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsColumnType.hs\"], enumValues = [(EnumCode {getEnumCode = 0},\"VARCHAR\"),(EnumCode {getEnumCode = 1},\"SINT64\"),(EnumCode {getEnumCode = 2},\"DOUBLE\"),(EnumCode {getEnumCode = 3},\"TIMESTAMP\"),(EnumCode {getEnumCode = 4},\"BOOLEAN\"),(EnumCode {getEnumCode = 5},\"BLOB\")], enumJsonInstances = False},EnumInfo {enumName = ProtoName {protobufName = FIName \".Protocol.BucketProps.ReplMode\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"BucketProps\"], baseName = MName \"ReplMode\"}, enumFilePath = [\"Network\",\"Riak\",\"Protocol\",\"BucketProps\",\"ReplMode.hs\"], enumValues = [(EnumCode {getEnumCode = 0},\"FALSE\"),(EnumCode {getEnumCode = 1},\"REALTIME\"),(EnumCode {getEnumCode = 2},\"FULLSYNC\"),(EnumCode {getEnumCode = 3},\"TRUE\")], enumJsonInstances = False},EnumInfo {enumName = ProtoName {protobufName = FIName \".Protocol.IndexRequest.IndexQueryType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"IndexRequest\"], baseName = MName \"IndexQueryType\"}, enumFilePath = [\"Network\",\"Riak\",\"Protocol\",\"IndexRequest\",\"IndexQueryType.hs\"], enumValues = [(EnumCode {getEnumCode = 0},\"Eq\"),(EnumCode {getEnumCode = 1},\"Range\")], enumJsonInstances = False},EnumInfo {enumName = ProtoName {protobufName = FIName \".Protocol.MapField.MapFieldType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"MapField\"], baseName = MName \"MapFieldType\"}, enumFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapField\",\"MapFieldType.hs\"], enumValues = [(EnumCode {getEnumCode = 1},\"COUNTER\"),(EnumCode {getEnumCode = 2},\"SET\"),(EnumCode {getEnumCode = 3},\"REGISTER\"),(EnumCode {getEnumCode = 4},\"FLAG\"),(EnumCode {getEnumCode = 5},\"MAP\")], enumJsonInstances = False},EnumInfo {enumName = ProtoName {protobufName = FIName \".Protocol.DtFetchResponse.DataType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"DtFetchResponse\"], baseName = MName \"DataType\"}, enumFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtFetchResponse\",\"DataType.hs\"], enumValues = [(EnumCode {getEnumCode = 1},\"COUNTER\"),(EnumCode {getEnumCode = 2},\"SET\"),(EnumCode {getEnumCode = 3},\"MAP\")], enumJsonInstances = False},EnumInfo {enumName = ProtoName {protobufName = FIName \".Protocol.MapUpdate.FlagOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"MapUpdate\"], baseName = MName \"FlagOp\"}, enumFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapUpdate\",\"FlagOp.hs\"], enumValues = [(EnumCode {getEnumCode = 1},\"ENABLE\"),(EnumCode {getEnumCode = 2},\"DISABLE\")], enumJsonInstances = False}], oneofs = [], knownKeyMap = fromList []}" - -fileDescriptorProto :: FileDescriptorProto -fileDescriptorProto - = P'.getFromBS (P'.wireGet 11) - (P'.pack - "\217B\n\SOProtocol.proto\"0\n\rErrorResponse\DC2\SO\n\ACKerrmsg\CAN\SOH \STX(\f\DC2\SI\n\aerrcode\CAN\STX \STX(\r\"2\n\nServerInfo\DC2\f\n\EOTnode\CAN\SOH \SOH(\f\DC2\SYN\n\SOserver_version\CAN\STX \SOH(\f\"\"\n\EOTPair\DC2\v\n\ETXkey\CAN\SOH \STX(\f\DC2\r\n\ENQvalue\CAN\STX \SOH(\f\"0\n\DLEGetBucketRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\f\n\EOTtype\CAN\STX \SOH(\f\"9\n\DC1GetBucketResponse\DC2$\n\ENQprops\CAN\SOH \STX(\v2\NAK.Protocol.BucketProps\"V\n\DLESetBucketRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2$\n\ENQprops\CAN\STX \STX(\v2\NAK.Protocol.BucketProps\DC2\f\n\EOTtype\CAN\ETX \SOH(\f\"2\n\DC2ResetBucketRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\f\n\EOTtype\CAN\STX \SOH(\f\"$\n\DC4GetBucketTypeRequest\DC2\f\n\EOTtype\CAN\SOH \STX(\f\"J\n\DC4SetBucketTypeRequest\DC2\f\n\EOTtype\CAN\SOH \STX(\f\DC2$\n\ENQprops\CAN\STX \STX(\v2\NAK.Protocol.BucketProps\"*\n\ACKModFun\DC2\SO\n\ACKmodule\CAN\SOH \STX(\f\DC2\DLE\n\bfunction\CAN\STX \STX(\f\"<\n\nCommitHook\DC2 \n\ACKmodfun\CAN\SOH \SOH(\v2\DLE.Protocol.ModFun\DC2\f\n\EOTname\CAN\STX \SOH(\f\"\197\ENQ\n\vBucketProps\DC2\r\n\ENQn_val\CAN\SOH \SOH(\r\DC2\DC2\n\nallow_mult\CAN\STX \SOH(\b\DC2\ETB\n\SIlast_write_wins\CAN\ETX \SOH(\b\DC2'\n\tprecommit\CAN\EOT \ETX(\v2\DC4.Protocol.CommitHook\DC2\FS\n\rhas_precommit\CAN\ENQ \SOH(\b:\ENQfalse\DC2(\n\npostcommit\CAN\ACK \ETX(\v2\DC4.Protocol.CommitHook\DC2\GS\n\SOhas_postcommit\CAN\a \SOH(\b:\ENQfalse\DC2&\n\fchash_keyfun\CAN\b \SOH(\v2\DLE.Protocol.ModFun\DC2!\n\alinkfun\CAN\t \SOH(\v2\DLE.Protocol.ModFun\DC2\DC2\n\nold_vclock\CAN\n \SOH(\r\DC2\DC4\n\fyoung_vclock\CAN\v \SOH(\r\DC2\DC2\n\nbig_vclock\CAN\f \SOH(\r\DC2\DC4\n\fsmall_vclock\CAN\r \SOH(\r\DC2\n\n\STXpr\CAN\SO \SOH(\r\DC2\t\n\SOHr\CAN\SI \SOH(\r\DC2\t\n\SOHw\CAN\DLE \SOH(\r\DC2\n\n\STXpw\CAN\DC1 \SOH(\r\DC2\n\n\STXdw\CAN\DC2 \SOH(\r\DC2\n\n\STXrw\CAN\DC3 \SOH(\r\DC2\DC4\n\fbasic_quorum\CAN\DC4 \SOH(\b\DC2\DC3\n\vnotfound_ok\CAN\NAK \SOH(\b\DC2\SI\n\abackend\CAN\SYN \SOH(\f\DC2\SO\n\ACKsearch\CAN\ETB \SOH(\b\DC2,\n\EOTrepl\CAN\CAN \SOH(\SO2\RS.Protocol.BucketProps.ReplMode\DC2\DC4\n\fsearch_index\CAN\EM \SOH(\f\DC2\DLE\n\bdatatype\CAN\SUB \SOH(\f\DC2\DC2\n\nconsistent\CAN\ESC \SOH(\b\DC2\DC2\n\nwrite_once\CAN\FS \SOH(\b\";\n\bReplMode\DC2\t\n\ENQFALSE\DLE\NUL\DC2\f\n\bREALTIME\DLE\SOH\DC2\f\n\bFULLSYNC\DLE\STX\DC2\b\n\EOTTRUE\DLE\ETX\"-\n\vAuthRequest\DC2\f\n\EOTuser\CAN\SOH \STX(\f\DC2\DLE\n\bpassword\CAN\STX \STX(\f\"(\n\DC3GetClientIDResponse\DC2\DC1\n\tclient_id\CAN\SOH \STX(\f\"'\n\DC2SetClientIDRequest\DC2\DC1\n\tclient_id\CAN\SOH \STX(\f\"\234\SOH\n\nGetRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\v\n\ETXkey\CAN\STX \STX(\f\DC2\t\n\SOHr\CAN\ETX \SOH(\r\DC2\n\n\STXpr\CAN\EOT \SOH(\r\DC2\DC4\n\fbasic_quorum\CAN\ENQ \SOH(\b\DC2\DC3\n\vnotfound_ok\CAN\ACK \SOH(\b\DC2\DC3\n\vif_modified\CAN\a \SOH(\f\DC2\f\n\EOThead\CAN\b \SOH(\b\DC2\NAK\n\rdeletedvclock\CAN\t \SOH(\b\DC2\SI\n\atimeout\CAN\n \SOH(\r\DC2\NAK\n\rsloppy_quorum\CAN\v \SOH(\b\DC2\r\n\ENQn_val\CAN\f \SOH(\r\DC2\f\n\EOTtype\CAN\r \SOH(\f\"T\n\vGetResponse\DC2\"\n\acontent\CAN\SOH \ETX(\v2\DC1.Protocol.Content\DC2\SO\n\ACKvclock\CAN\STX \SOH(\f\DC2\DC1\n\tunchanged\CAN\ETX \SOH(\b\"\173\STX\n\nPutRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\v\n\ETXkey\CAN\STX \SOH(\f\DC2\SO\n\ACKvclock\CAN\ETX \SOH(\f\DC2\"\n\acontent\CAN\EOT \STX(\v2\DC1.Protocol.Content\DC2\t\n\SOHw\CAN\ENQ \SOH(\r\DC2\n\n\STXdw\CAN\ACK \SOH(\r\DC2\DC3\n\vreturn_body\CAN\a \SOH(\b\DC2\n\n\STXpw\CAN\b \SOH(\r\DC2\ETB\n\SIif_not_modified\CAN\t \SOH(\b\DC2\NAK\n\rif_none_match\CAN\n \SOH(\b\DC2\DC3\n\vreturn_head\CAN\v \SOH(\b\DC2\SI\n\atimeout\CAN\f \SOH(\r\DC2\f\n\EOTasis\CAN\r \SOH(\b\DC2\NAK\n\rsloppy_quorum\CAN\SO \SOH(\b\DC2\r\n\ENQn_val\CAN\SI \SOH(\r\DC2\f\n\EOTtype\CAN\DLE \SOH(\f\"N\n\vPutResponse\DC2\"\n\acontent\CAN\SOH \ETX(\v2\DC1.Protocol.Content\DC2\SO\n\ACKvclock\CAN\STX \SOH(\f\DC2\v\n\ETXkey\CAN\ETX \SOH(\f\"\199\SOH\n\rDeleteRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\v\n\ETXkey\CAN\STX \STX(\f\DC2\n\n\STXrw\CAN\ETX \SOH(\r\DC2\SO\n\ACKvclock\CAN\EOT \SOH(\f\DC2\t\n\SOHr\CAN\ENQ \SOH(\r\DC2\t\n\SOHw\CAN\ACK \SOH(\r\DC2\n\n\STXpr\CAN\a \SOH(\r\DC2\n\n\STXpw\CAN\b \SOH(\r\DC2\n\n\STXdw\CAN\t \SOH(\r\DC2\SI\n\atimeout\CAN\n \SOH(\r\DC2\NAK\n\rsloppy_quorum\CAN\v \SOH(\b\DC2\r\n\ENQn_val\CAN\f \SOH(\r\DC2\f\n\EOTtype\CAN\r \SOH(\f\"C\n\DC2ListBucketsRequest\DC2\SI\n\atimeout\CAN\SOH \SOH(\r\DC2\SO\n\ACKstream\CAN\STX \SOH(\b\DC2\f\n\EOTtype\CAN\ETX \SOH(\f\"4\n\DC3ListBucketsResponse\DC2\SI\n\abuckets\CAN\SOH \ETX(\f\DC2\f\n\EOTdone\CAN\STX \SOH(\b\"@\n\SIListKeysRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\SI\n\atimeout\CAN\STX \SOH(\r\DC2\f\n\EOTtype\CAN\ETX \SOH(\f\".\n\DLEListKeysResponse\DC2\f\n\EOTkeys\CAN\SOH \ETX(\f\DC2\f\n\EOTdone\CAN\STX \SOH(\b\"9\n\DLEMapReduceRequest\DC2\SI\n\arequest\CAN\SOH \STX(\f\DC2\DC4\n\fcontent_type\CAN\STX \STX(\f\":\n\tMapReduce\DC2\r\n\ENQphase\CAN\SOH \SOH(\r\DC2\DLE\n\bresponse\CAN\STX \SOH(\f\DC2\f\n\EOTdone\CAN\ETX \SOH(\b\"\216\STX\n\fIndexRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\r\n\ENQindex\CAN\STX \STX(\f\DC24\n\ENQqtype\CAN\ETX \STX(\SO2%.Protocol.IndexRequest.IndexQueryType\DC2\v\n\ETXkey\CAN\EOT \SOH(\f\DC2\DC1\n\trange_min\CAN\ENQ \SOH(\f\DC2\DC1\n\trange_max\CAN\ACK \SOH(\f\DC2\DC4\n\freturn_terms\CAN\a \SOH(\b\DC2\SO\n\ACKstream\CAN\b \SOH(\b\DC2\DC3\n\vmax_results\CAN\t \SOH(\r\DC2\DC4\n\fcontinuation\CAN\n \SOH(\f\DC2\SI\n\atimeout\CAN\v \SOH(\r\DC2\f\n\EOTtype\CAN\f \SOH(\f\DC2\DC2\n\nterm_regex\CAN\r \SOH(\f\DC2\ETB\n\SIpagination_sort\CAN\SO \SOH(\b\"#\n\SOIndexQueryType\DC2\ACK\n\STXeq\DLE\NUL\DC2\t\n\ENQrange\DLE\SOH\"b\n\rIndexResponse\DC2\f\n\EOTkeys\CAN\SOH \ETX(\f\DC2\US\n\aresults\CAN\STX \ETX(\v2\SO.Protocol.Pair\DC2\DC4\n\fcontinuation\CAN\ETX \SOH(\f\DC2\f\n\EOTdone\CAN\EOT \SOH(\b\"\194\SOH\n\SICSBucketRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\DC1\n\tstart_key\CAN\STX \STX(\f\DC2\SI\n\aend_key\CAN\ETX \SOH(\f\DC2\CAN\n\nstart_incl\CAN\EOT \SOH(\b:\EOTtrue\DC2\ETB\n\bend_incl\CAN\ENQ \SOH(\b:\ENQfalse\DC2\DC4\n\fcontinuation\CAN\ACK \SOH(\f\DC2\DC3\n\vmax_results\CAN\a \SOH(\r\DC2\SI\n\atimeout\CAN\b \SOH(\r\DC2\f\n\EOTtype\CAN\t \SOH(\f\"^\n\DLECSBucketResponse\DC2&\n\aobjects\CAN\SOH \ETX(\v2\NAK.Protocol.IndexObject\DC2\DC4\n\fcontinuation\CAN\STX \SOH(\f\DC2\f\n\EOTdone\CAN\ETX \SOH(\b\"A\n\vIndexObject\DC2\v\n\ETXkey\CAN\SOH \STX(\f\DC2%\n\ACKobject\CAN\STX \STX(\v2\NAK.Protocol.GetResponse\"\132\STX\n\aContent\DC2\r\n\ENQvalue\CAN\SOH \STX(\f\DC2\DC4\n\fcontent_type\CAN\STX \SOH(\f\DC2\SI\n\acharset\CAN\ETX \SOH(\f\DC2\CAN\n\DLEcontent_encoding\CAN\EOT \SOH(\f\DC2\f\n\EOTvtag\CAN\ENQ \SOH(\f\DC2\GS\n\ENQlinks\CAN\ACK \ETX(\v2\SO.Protocol.Link\DC2\DLE\n\blast_mod\CAN\a \SOH(\r\DC2\SYN\n\SOlast_mod_usecs\CAN\b \SOH(\r\DC2 \n\busermeta\CAN\t \ETX(\v2\SO.Protocol.Pair\DC2\US\n\aindexes\CAN\n \ETX(\v2\SO.Protocol.Pair\DC2\SI\n\adeleted\CAN\v \SOH(\b\"0\n\EOTLink\DC2\SO\n\ACKbucket\CAN\SOH \SOH(\f\DC2\v\n\ETXkey\CAN\STX \SOH(\f\DC2\v\n\ETXtag\CAN\ETX \SOH(\f\"{\n\DC4CounterUpdateRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\v\n\ETXkey\CAN\STX \STX(\f\DC2\SO\n\ACKamount\CAN\ETX \STX(\DC2\DC2\t\n\SOHw\CAN\EOT \SOH(\r\DC2\n\n\STXdw\CAN\ENQ \SOH(\r\DC2\n\n\STXpw\CAN\ACK \SOH(\r\DC2\DC3\n\vreturnvalue\CAN\a \SOH(\b\"&\n\NAKCounterUpdateResponse\DC2\r\n\ENQvalue\CAN\SOH \SOH(\DC2\"r\n\DC1CounterGetRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\v\n\ETXkey\CAN\STX \STX(\f\DC2\t\n\SOHr\CAN\ETX \SOH(\r\DC2\n\n\STXpr\CAN\EOT \SOH(\r\DC2\DC4\n\fbasic_quorum\CAN\ENQ \SOH(\b\DC2\DC3\n\vnotfound_ok\CAN\ACK \SOH(\b\"#\n\DC2CounterGetResponse\DC2\r\n\ENQvalue\CAN\SOH \SOH(\DC2\"H\n\ESCGetBucketKeyPreflistRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\v\n\ETXkey\CAN\STX \STX(\f\DC2\f\n\EOTtype\CAN\ETX \SOH(\f\"Q\n\FSGetBucketKeyPreflistResponse\DC21\n\bpreflist\CAN\SOH \ETX(\v2\US.Protocol.BucketKeyPreflistItem\"I\n\NAKBucketKeyPreflistItem\DC2\DC1\n\tpartition\CAN\SOH \STX(\ETX\DC2\f\n\EOTnode\CAN\STX \STX(\f\DC2\SI\n\aprimary\CAN\ETX \STX(\b\"\142\SOH\n\bMapField\DC2\f\n\EOTname\CAN\SOH \STX(\f\DC2-\n\EOTtype\CAN\STX \STX(\SO2\US.Protocol.MapField.MapFieldType\"E\n\fMapFieldType\DC2\v\n\aCOUNTER\DLE\SOH\DC2\a\n\ETXSET\DLE\STX\DC2\f\n\bREGISTER\DLE\ETX\DC2\b\n\EOTFLAG\DLE\EOT\DC2\a\n\ETXMAP\DLE\ENQ\"\170\SOH\n\bMapEntry\DC2!\n\ENQfield\CAN\SOH \STX(\v2\DC2.Protocol.MapField\DC2\NAK\n\rcounter_value\CAN\STX \SOH(\DC2\DC2\DC1\n\tset_value\CAN\ETX \ETX(\f\DC2\SYN\n\SOregister_value\CAN\EOT \SOH(\f\DC2\DC2\n\nflag_value\CAN\ENQ \SOH(\b\DC2%\n\tmap_value\CAN\ACK \ETX(\v2\DC2.Protocol.MapEntry\"\211\SOH\n\SODtFetchRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\v\n\ETXkey\CAN\STX \STX(\f\DC2\f\n\EOTtype\CAN\ETX \STX(\f\DC2\t\n\SOHr\CAN\EOT \SOH(\r\DC2\n\n\STXpr\CAN\ENQ \SOH(\r\DC2\DC4\n\fbasic_quorum\CAN\ACK \SOH(\b\DC2\DC3\n\vnotfound_ok\CAN\a \SOH(\b\DC2\SI\n\atimeout\CAN\b \SOH(\r\DC2\NAK\n\rsloppy_quorum\CAN\t \SOH(\b\DC2\r\n\ENQn_val\CAN\n \SOH(\r\DC2\GS\n\SIinclude_context\CAN\v \SOH(\b:\EOTtrue\"Z\n\aDtValue\DC2\NAK\n\rcounter_value\CAN\SOH \SOH(\DC2\DC2\DC1\n\tset_value\CAN\STX \ETX(\f\DC2%\n\tmap_value\CAN\ETX \ETX(\v2\DC2.Protocol.MapEntry\"\161\SOH\n\SIDtFetchResponse\DC2\SI\n\acontext\CAN\SOH \SOH(\f\DC20\n\EOTtype\CAN\STX \STX(\SO2\".Protocol.DtFetchResponse.DataType\DC2 \n\ENQvalue\CAN\ETX \SOH(\v2\DC1.Protocol.DtValue\")\n\bDataType\DC2\v\n\aCOUNTER\DLE\SOH\DC2\a\n\ETXSET\DLE\STX\DC2\a\n\ETXMAP\DLE\ETX\"\RS\n\tCounterOp\DC2\DC1\n\tincrement\CAN\SOH \SOH(\DC2\"&\n\ENQSetOp\DC2\f\n\EOTadds\CAN\SOH \ETX(\f\DC2\SI\n\aremoves\CAN\STX \ETX(\f\"\254\SOH\n\tMapUpdate\DC2!\n\ENQfield\CAN\SOH \STX(\v2\DC2.Protocol.MapField\DC2'\n\ncounter_op\CAN\STX \SOH(\v2\DC3.Protocol.CounterOp\DC2\US\n\ACKset_op\CAN\ETX \SOH(\v2\SI.Protocol.SetOp\DC2\DC3\n\vregister_op\CAN\EOT \SOH(\f\DC2+\n\aflag_op\CAN\ENQ \SOH(\SO2\SUB.Protocol.MapUpdate.FlagOp\DC2\US\n\ACKmap_op\CAN\ACK \SOH(\v2\SI.Protocol.MapOp\"!\n\ACKFlagOp\DC2\n\n\ACKENABLE\DLE\SOH\DC2\v\n\aDISABLE\DLE\STX\"R\n\ENQMapOp\DC2#\n\aremoves\CAN\SOH \ETX(\v2\DC2.Protocol.MapField\DC2$\n\aupdates\CAN\STX \ETX(\v2\DC3.Protocol.MapUpdate\"q\n\EOTDtOp\DC2'\n\ncounter_op\CAN\SOH \SOH(\v2\DC3.Protocol.CounterOp\DC2\US\n\ACKset_op\CAN\STX \SOH(\v2\SI.Protocol.SetOp\DC2\US\n\ACKmap_op\CAN\ETX \SOH(\v2\SI.Protocol.MapOp\"\254\SOH\n\SIDtUpdateRequest\DC2\SO\n\ACKbucket\CAN\SOH \STX(\f\DC2\v\n\ETXkey\CAN\STX \SOH(\f\DC2\f\n\EOTtype\CAN\ETX \STX(\f\DC2\SI\n\acontext\CAN\EOT \SOH(\f\DC2\SUB\n\STXop\CAN\ENQ \STX(\v2\SO.Protocol.DtOp\DC2\t\n\SOHw\CAN\ACK \SOH(\r\DC2\n\n\STXdw\CAN\a \SOH(\r\DC2\n\n\STXpw\CAN\b \SOH(\r\DC2\SUB\n\vreturn_body\CAN\t \SOH(\b:\ENQfalse\DC2\SI\n\atimeout\CAN\n \SOH(\r\DC2\NAK\n\rsloppy_quorum\CAN\v \SOH(\b\DC2\r\n\ENQn_val\CAN\f \SOH(\r\DC2\GS\n\SIinclude_context\CAN\r \SOH(\b:\EOTtrue\"\129\SOH\n\DLEDtUpdateResponse\DC2\v\n\ETXkey\CAN\SOH \SOH(\f\DC2\SI\n\acontext\CAN\STX \SOH(\f\DC2\NAK\n\rcounter_value\CAN\ETX \SOH(\DC2\DC2\DC1\n\tset_value\CAN\EOT \ETX(\f\DC2%\n\tmap_value\CAN\ENQ \ETX(\v2\DC2.Protocol.MapEntry\"6\n\aYzIndex\DC2\f\n\EOTname\CAN\SOH \STX(\f\DC2\SO\n\ACKschema\CAN\STX \SOH(\f\DC2\r\n\ENQn_val\CAN\ETX \SOH(\r\"!\n\DC1YzIndexGetRequest\DC2\f\n\EOTname\CAN\SOH \SOH(\f\"6\n\DC2YzIndexGetResponse\DC2 \n\ENQindex\CAN\SOH \ETX(\v2\DC1.Protocol.YzIndex\"F\n\DC1YzIndexPutRequest\DC2 \n\ENQindex\CAN\SOH \STX(\v2\DC1.Protocol.YzIndex\DC2\SI\n\atimeout\CAN\STX \SOH(\r\"$\n\DC4YzIndexDeleteRequest\DC2\f\n\EOTname\CAN\SOH \STX(\f\")\n\bYzSchema\DC2\f\n\EOTname\CAN\SOH \STX(\f\DC2\SI\n\acontent\CAN\STX \SOH(\f\"8\n\DC2YzSchemaPutRequest\DC2\"\n\ACKschema\CAN\SOH \STX(\v2\DC2.Protocol.YzSchema\"\"\n\DC2YzSchemaGetRequest\DC2\f\n\EOTname\CAN\SOH \STX(\f\"9\n\DC3YzSchemaGetResponse\DC2\"\n\ACKschema\CAN\SOH \STX(\v2\DC2.Protocol.YzSchema\"+\n\tSearchDoc\DC2\RS\n\ACKfields\CAN\SOH \ETX(\v2\SO.Protocol.Pair\"\158\SOH\n\DC2SearchQueryRequest\DC2\t\n\SOHq\CAN\SOH \STX(\f\DC2\r\n\ENQindex\CAN\STX \STX(\f\DC2\f\n\EOTrows\CAN\ETX \SOH(\r\DC2\r\n\ENQstart\CAN\EOT \SOH(\r\DC2\f\n\EOTsort\CAN\ENQ \SOH(\f\DC2\SO\n\ACKfilter\CAN\ACK \SOH(\f\DC2\n\n\STXdf\CAN\a \SOH(\f\DC2\n\n\STXop\CAN\b \SOH(\f\DC2\n\n\STXfl\CAN\t \ETX(\f\DC2\SI\n\apresort\CAN\n \SOH(\f\"^\n\DC3SearchQueryResponse\DC2!\n\EOTdocs\CAN\SOH \ETX(\v2\DC3.Protocol.SearchDoc\DC2\DC1\n\tmax_score\CAN\STX \SOH(\STX\DC2\DC1\n\tnum_found\CAN\ETX \SOH(\r\"h\n\SOTsQueryRequest\DC2(\n\ENQquery\CAN\SOH \SOH(\v2\EM.Protocol.TsInterpolation\DC2\NAK\n\ACKstream\CAN\STX \SOH(\b:\ENQfalse\DC2\NAK\n\rcover_context\CAN\ETX \SOH(\f\"t\n\SITsQueryResponse\DC2.\n\acolumns\CAN\SOH \ETX(\v2\GS.Protocol.TsColumnDescription\DC2\GS\n\EOTrows\CAN\STX \ETX(\v2\SI.Protocol.TsRow\DC2\DC2\n\EOTdone\CAN\ETX \SOH(\b:\EOTtrue\"M\n\fTsGetRequest\DC2\r\n\ENQtable\CAN\SOH \STX(\f\DC2\GS\n\ETXkey\CAN\STX \ETX(\v2\DLE.Protocol.TsCell\DC2\SI\n\atimeout\CAN\ETX \SOH(\r\"^\n\rTsGetResponse\DC2.\n\acolumns\CAN\SOH \ETX(\v2\GS.Protocol.TsColumnDescription\DC2\GS\n\EOTrows\CAN\STX \ETX(\v2\SI.Protocol.TsRow\"l\n\fTsPutRequest\DC2\r\n\ENQtable\CAN\SOH \STX(\f\DC2.\n\acolumns\CAN\STX \ETX(\v2\GS.Protocol.TsColumnDescription\DC2\GS\n\EOTrows\CAN\ETX \ETX(\v2\SI.Protocol.TsRow\"\SI\n\rTsPutResponse\"`\n\SITsDeleteRequest\DC2\r\n\ENQtable\CAN\SOH \STX(\f\DC2\GS\n\ETXkey\CAN\STX \ETX(\v2\DLE.Protocol.TsCell\DC2\SO\n\ACKvclock\CAN\ETX \SOH(\f\DC2\SI\n\atimeout\CAN\EOT \SOH(\r\"\DC2\n\DLETsDeleteResponse\"G\n\SITsInterpolation\DC2\f\n\EOTbase\CAN\SOH \STX(\f\DC2&\n\SOinterpolations\CAN\STX \ETX(\v2\SO.Protocol.Pair\"I\n\DC3TsColumnDescription\DC2\f\n\EOTname\CAN\SOH \STX(\f\DC2$\n\EOTtype\CAN\STX \STX(\SO2\SYN.Protocol.TsColumnType\"(\n\ENQTsRow\DC2\US\n\ENQcells\CAN\SOH \ETX(\v2\DLE.Protocol.TsCell\"{\n\ACKTsCell\DC2\NAK\n\rvarchar_value\CAN\SOH \SOH(\f\DC2\DC4\n\fsint64_value\CAN\STX \SOH(\DC2\DC2\ETB\n\SItimestamp_value\CAN\ETX \SOH(\DC2\DC2\NAK\n\rboolean_value\CAN\EOT \SOH(\b\DC2\DC4\n\fdouble_value\CAN\ENQ \SOH(\SOH\"3\n\DC1TsListKeysRequest\DC2\r\n\ENQtable\CAN\SOH \STX(\f\DC2\SI\n\atimeout\CAN\STX \SOH(\r\"A\n\DC2TsListKeysResponse\DC2\GS\n\EOTkeys\CAN\SOH \ETX(\v2\SI.Protocol.TsRow\DC2\f\n\EOTdone\CAN\STX \SOH(\b\"~\n\DC1TsCoverageRequest\DC2(\n\ENQquery\CAN\SOH \SOH(\v2\EM.Protocol.TsInterpolation\DC2\r\n\ENQtable\CAN\STX \STX(\f\DC2\NAK\n\rreplace_cover\CAN\ETX \SOH(\f\DC2\EM\n\DC1unavailable_cover\CAN\EOT \ETX(\f\"@\n\DC2TsCoverageResponse\DC2*\n\aentries\CAN\SOH \ETX(\v2\EM.Protocol.TsCoverageEntry\"d\n\SITsCoverageEntry\DC2\n\n\STXip\CAN\SOH \STX(\f\DC2\f\n\EOTport\CAN\STX \STX(\r\DC2\NAK\n\rcover_context\CAN\ETX \STX(\f\DC2 \n\ENQrange\CAN\EOT \SOH(\v2\DC1.Protocol.TsRange\"\147\SOH\n\aTsRange\DC2\DC2\n\nfield_name\CAN\SOH \STX(\f\DC2\DC3\n\vlower_bound\CAN\STX \STX(\DC2\DC2\GS\n\NAKlower_bound_inclusive\CAN\ETX \STX(\b\DC2\DC3\n\vupper_bound\CAN\EOT \STX(\DC2\DC2\GS\n\NAKupper_bound_inclusive\CAN\ENQ \STX(\b\DC2\f\n\EOTdesc\CAN\ACK \STX(\f\"\r\n\vPingRequest\"\DC4\n\DC2GetClientIDRequest\"\SYN\n\DC4GetServerInfoRequest*Y\n\fTsColumnType\DC2\v\n\aVARCHAR\DLE\NUL\DC2\n\n\ACKSINT64\DLE\SOH\DC2\n\n\ACKDOUBLE\DLE\STX\DC2\r\n\tTIMESTAMP\DLE\ETX\DC2\v\n\aBOOLEAN\DLE\EOT\DC2\b\n\EOTBLOB\DLE\ENQ") diff --git a/src/Network/Riak/Protocol/AuthRequest.hs b/src/Network/Riak/Protocol/AuthRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/AuthRequest.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.AuthRequest (AuthRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data AuthRequest = AuthRequest{user :: !(P'.ByteString), password :: !(P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable AuthRequest where - mergeAppend (AuthRequest x'1 x'2) (AuthRequest y'1 y'2) = AuthRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default AuthRequest where - defaultValue = AuthRequest P'.defaultValue P'.defaultValue - -instance P'.Wire AuthRequest where - wireSize ft' self'@(AuthRequest x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2) - wirePutWithSize ft' self'@(AuthRequest x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{user = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{password = new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> AuthRequest) AuthRequest where - getVal m' f' = f' m' - -instance P'.GPB AuthRequest - -instance P'.ReflectDescriptor AuthRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.AuthRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"AuthRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"AuthRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.AuthRequest.user\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"AuthRequest\"], baseName' = FName \"user\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.AuthRequest.password\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"AuthRequest\"], baseName' = FName \"password\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType AuthRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg AuthRequest where - textPut msg - = do - P'.tellT "user" (user msg) - P'.tellT "password" (password msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'user, parse'password]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'user - = P'.try - (do - v <- P'.getT "user" - Prelude'.return (\ o -> o{user = v})) - parse'password - = P'.try - (do - v <- P'.getT "password" - Prelude'.return (\ o -> o{password = v})) diff --git a/src/Network/Riak/Protocol/BucketKeyPreflistItem.hs b/src/Network/Riak/Protocol/BucketKeyPreflistItem.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/BucketKeyPreflistItem.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.BucketKeyPreflistItem (BucketKeyPreflistItem(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data BucketKeyPreflistItem = BucketKeyPreflistItem{partition :: !(P'.Int64), node :: !(P'.ByteString), primary :: !(P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable BucketKeyPreflistItem where - mergeAppend (BucketKeyPreflistItem x'1 x'2 x'3) (BucketKeyPreflistItem y'1 y'2 y'3) - = BucketKeyPreflistItem (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default BucketKeyPreflistItem where - defaultValue = BucketKeyPreflistItem P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire BucketKeyPreflistItem where - wireSize ft' self'@(BucketKeyPreflistItem x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 3 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeReq 1 8 x'3) - wirePutWithSize ft' self'@(BucketKeyPreflistItem x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize [P'.wirePutReqWithSize 8 3 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutReqWithSize 24 8 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 8 -> Prelude'.fmap (\ !new'Field -> old'Self{partition = new'Field}) (P'.wireGet 3) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{node = new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{primary = new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> BucketKeyPreflistItem) BucketKeyPreflistItem where - getVal m' f' = f' m' - -instance P'.GPB BucketKeyPreflistItem - -instance P'.ReflectDescriptor BucketKeyPreflistItem where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [8, 18, 24]) (P'.fromDistinctAscList [8, 18, 24]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.BucketKeyPreflistItem\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketKeyPreflistItem\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"BucketKeyPreflistItem.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketKeyPreflistItem.partition\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketKeyPreflistItem\"], baseName' = FName \"partition\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 3}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketKeyPreflistItem.node\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketKeyPreflistItem\"], baseName' = FName \"node\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketKeyPreflistItem.primary\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketKeyPreflistItem\"], baseName' = FName \"primary\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType BucketKeyPreflistItem where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg BucketKeyPreflistItem where - textPut msg - = do - P'.tellT "partition" (partition msg) - P'.tellT "node" (node msg) - P'.tellT "primary" (primary msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'partition, parse'node, parse'primary]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'partition - = P'.try - (do - v <- P'.getT "partition" - Prelude'.return (\ o -> o{partition = v})) - parse'node - = P'.try - (do - v <- P'.getT "node" - Prelude'.return (\ o -> o{node = v})) - parse'primary - = P'.try - (do - v <- P'.getT "primary" - Prelude'.return (\ o -> o{primary = v})) diff --git a/src/Network/Riak/Protocol/BucketProps.hs b/src/Network/Riak/Protocol/BucketProps.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/BucketProps.hs +++ /dev/null @@ -1,391 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.BucketProps (BucketProps(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.BucketProps.ReplMode as Protocol.BucketProps (ReplMode) -import qualified Network.Riak.Protocol.CommitHook as Protocol (CommitHook) -import qualified Network.Riak.Protocol.ModFun as Protocol (ModFun) - -data BucketProps = BucketProps{n_val :: !(P'.Maybe P'.Word32), allow_mult :: !(P'.Maybe P'.Bool), - last_write_wins :: !(P'.Maybe P'.Bool), precommit :: !(P'.Seq Protocol.CommitHook), - has_precommit :: !(P'.Maybe P'.Bool), postcommit :: !(P'.Seq Protocol.CommitHook), - has_postcommit :: !(P'.Maybe P'.Bool), chash_keyfun :: !(P'.Maybe Protocol.ModFun), - linkfun :: !(P'.Maybe Protocol.ModFun), old_vclock :: !(P'.Maybe P'.Word32), - young_vclock :: !(P'.Maybe P'.Word32), big_vclock :: !(P'.Maybe P'.Word32), - small_vclock :: !(P'.Maybe P'.Word32), pr :: !(P'.Maybe P'.Word32), r :: !(P'.Maybe P'.Word32), - w :: !(P'.Maybe P'.Word32), pw :: !(P'.Maybe P'.Word32), dw :: !(P'.Maybe P'.Word32), - rw :: !(P'.Maybe P'.Word32), basic_quorum :: !(P'.Maybe P'.Bool), notfound_ok :: !(P'.Maybe P'.Bool), - backend :: !(P'.Maybe P'.ByteString), search :: !(P'.Maybe P'.Bool), - repl :: !(P'.Maybe Protocol.BucketProps.ReplMode), search_index :: !(P'.Maybe P'.ByteString), - datatype :: !(P'.Maybe P'.ByteString), consistent :: !(P'.Maybe P'.Bool), - write_once :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable BucketProps where - mergeAppend - (BucketProps x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13 x'14 x'15 x'16 x'17 x'18 x'19 x'20 x'21 x'22 x'23 x'24 x'25 - x'26 x'27 x'28) - (BucketProps y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8 y'9 y'10 y'11 y'12 y'13 y'14 y'15 y'16 y'17 y'18 y'19 y'20 y'21 y'22 y'23 y'24 y'25 - y'26 y'27 y'28) - = BucketProps (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - (P'.mergeAppend x'8 y'8) - (P'.mergeAppend x'9 y'9) - (P'.mergeAppend x'10 y'10) - (P'.mergeAppend x'11 y'11) - (P'.mergeAppend x'12 y'12) - (P'.mergeAppend x'13 y'13) - (P'.mergeAppend x'14 y'14) - (P'.mergeAppend x'15 y'15) - (P'.mergeAppend x'16 y'16) - (P'.mergeAppend x'17 y'17) - (P'.mergeAppend x'18 y'18) - (P'.mergeAppend x'19 y'19) - (P'.mergeAppend x'20 y'20) - (P'.mergeAppend x'21 y'21) - (P'.mergeAppend x'22 y'22) - (P'.mergeAppend x'23 y'23) - (P'.mergeAppend x'24 y'24) - (P'.mergeAppend x'25 y'25) - (P'.mergeAppend x'26 y'26) - (P'.mergeAppend x'27 y'27) - (P'.mergeAppend x'28 y'28) - -instance P'.Default BucketProps where - defaultValue - = BucketProps P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue (Prelude'.Just Prelude'.False) P'.defaultValue - (Prelude'.Just Prelude'.False) - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - -instance P'.Wire BucketProps where - wireSize ft' - self'@(BucketProps x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13 x'14 x'15 x'16 x'17 x'18 x'19 x'20 x'21 x'22 x'23 x'24 - x'25 x'26 x'27 x'28) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeOpt 1 13 x'1 + P'.wireSizeOpt 1 8 x'2 + P'.wireSizeOpt 1 8 x'3 + P'.wireSizeRep 1 11 x'4 + - P'.wireSizeOpt 1 8 x'5 - + P'.wireSizeRep 1 11 x'6 - + P'.wireSizeOpt 1 8 x'7 - + P'.wireSizeOpt 1 11 x'8 - + P'.wireSizeOpt 1 11 x'9 - + P'.wireSizeOpt 1 13 x'10 - + P'.wireSizeOpt 1 13 x'11 - + P'.wireSizeOpt 1 13 x'12 - + P'.wireSizeOpt 1 13 x'13 - + P'.wireSizeOpt 1 13 x'14 - + P'.wireSizeOpt 1 13 x'15 - + P'.wireSizeOpt 2 13 x'16 - + P'.wireSizeOpt 2 13 x'17 - + P'.wireSizeOpt 2 13 x'18 - + P'.wireSizeOpt 2 13 x'19 - + P'.wireSizeOpt 2 8 x'20 - + P'.wireSizeOpt 2 8 x'21 - + P'.wireSizeOpt 2 12 x'22 - + P'.wireSizeOpt 2 8 x'23 - + P'.wireSizeOpt 2 14 x'24 - + P'.wireSizeOpt 2 12 x'25 - + P'.wireSizeOpt 2 12 x'26 - + P'.wireSizeOpt 2 8 x'27 - + P'.wireSizeOpt 2 8 x'28) - wirePutWithSize ft' - self'@(BucketProps x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13 x'14 x'15 x'16 x'17 x'18 x'19 x'20 x'21 x'22 x'23 x'24 - x'25 x'26 x'27 x'28) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutOptWithSize 8 13 x'1, P'.wirePutOptWithSize 16 8 x'2, P'.wirePutOptWithSize 24 8 x'3, - P'.wirePutRepWithSize 34 11 x'4, P'.wirePutOptWithSize 40 8 x'5, P'.wirePutRepWithSize 50 11 x'6, - P'.wirePutOptWithSize 56 8 x'7, P'.wirePutOptWithSize 66 11 x'8, P'.wirePutOptWithSize 74 11 x'9, - P'.wirePutOptWithSize 80 13 x'10, P'.wirePutOptWithSize 88 13 x'11, P'.wirePutOptWithSize 96 13 x'12, - P'.wirePutOptWithSize 104 13 x'13, P'.wirePutOptWithSize 112 13 x'14, P'.wirePutOptWithSize 120 13 x'15, - P'.wirePutOptWithSize 128 13 x'16, P'.wirePutOptWithSize 136 13 x'17, P'.wirePutOptWithSize 144 13 x'18, - P'.wirePutOptWithSize 152 13 x'19, P'.wirePutOptWithSize 160 8 x'20, P'.wirePutOptWithSize 168 8 x'21, - P'.wirePutOptWithSize 178 12 x'22, P'.wirePutOptWithSize 184 8 x'23, P'.wirePutOptWithSize 192 14 x'24, - P'.wirePutOptWithSize 202 12 x'25, P'.wirePutOptWithSize 210 12 x'26, P'.wirePutOptWithSize 216 8 x'27, - P'.wirePutOptWithSize 224 8 x'28] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 8 -> Prelude'.fmap (\ !new'Field -> old'Self{n_val = Prelude'.Just new'Field}) (P'.wireGet 13) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{allow_mult = Prelude'.Just new'Field}) (P'.wireGet 8) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{last_write_wins = Prelude'.Just new'Field}) (P'.wireGet 8) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{precommit = P'.append (precommit old'Self) new'Field}) (P'.wireGet 11) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{has_precommit = Prelude'.Just new'Field}) (P'.wireGet 8) - 50 -> Prelude'.fmap (\ !new'Field -> old'Self{postcommit = P'.append (postcommit old'Self) new'Field}) (P'.wireGet 11) - 56 -> Prelude'.fmap (\ !new'Field -> old'Self{has_postcommit = Prelude'.Just new'Field}) (P'.wireGet 8) - 66 -> Prelude'.fmap - (\ !new'Field -> old'Self{chash_keyfun = P'.mergeAppend (chash_keyfun old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - 74 -> Prelude'.fmap (\ !new'Field -> old'Self{linkfun = P'.mergeAppend (linkfun old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - 80 -> Prelude'.fmap (\ !new'Field -> old'Self{old_vclock = Prelude'.Just new'Field}) (P'.wireGet 13) - 88 -> Prelude'.fmap (\ !new'Field -> old'Self{young_vclock = Prelude'.Just new'Field}) (P'.wireGet 13) - 96 -> Prelude'.fmap (\ !new'Field -> old'Self{big_vclock = Prelude'.Just new'Field}) (P'.wireGet 13) - 104 -> Prelude'.fmap (\ !new'Field -> old'Self{small_vclock = Prelude'.Just new'Field}) (P'.wireGet 13) - 112 -> Prelude'.fmap (\ !new'Field -> old'Self{pr = Prelude'.Just new'Field}) (P'.wireGet 13) - 120 -> Prelude'.fmap (\ !new'Field -> old'Self{r = Prelude'.Just new'Field}) (P'.wireGet 13) - 128 -> Prelude'.fmap (\ !new'Field -> old'Self{w = Prelude'.Just new'Field}) (P'.wireGet 13) - 136 -> Prelude'.fmap (\ !new'Field -> old'Self{pw = Prelude'.Just new'Field}) (P'.wireGet 13) - 144 -> Prelude'.fmap (\ !new'Field -> old'Self{dw = Prelude'.Just new'Field}) (P'.wireGet 13) - 152 -> Prelude'.fmap (\ !new'Field -> old'Self{rw = Prelude'.Just new'Field}) (P'.wireGet 13) - 160 -> Prelude'.fmap (\ !new'Field -> old'Self{basic_quorum = Prelude'.Just new'Field}) (P'.wireGet 8) - 168 -> Prelude'.fmap (\ !new'Field -> old'Self{notfound_ok = Prelude'.Just new'Field}) (P'.wireGet 8) - 178 -> Prelude'.fmap (\ !new'Field -> old'Self{backend = Prelude'.Just new'Field}) (P'.wireGet 12) - 184 -> Prelude'.fmap (\ !new'Field -> old'Self{search = Prelude'.Just new'Field}) (P'.wireGet 8) - 192 -> Prelude'.fmap (\ !new'Field -> old'Self{repl = Prelude'.Just new'Field}) (P'.wireGet 14) - 202 -> Prelude'.fmap (\ !new'Field -> old'Self{search_index = Prelude'.Just new'Field}) (P'.wireGet 12) - 210 -> Prelude'.fmap (\ !new'Field -> old'Self{datatype = Prelude'.Just new'Field}) (P'.wireGet 12) - 216 -> Prelude'.fmap (\ !new'Field -> old'Self{consistent = Prelude'.Just new'Field}) (P'.wireGet 8) - 224 -> Prelude'.fmap (\ !new'Field -> old'Self{write_once = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> BucketProps) BucketProps where - getVal m' f' = f' m' - -instance P'.GPB BucketProps - -instance P'.ReflectDescriptor BucketProps where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList []) - (P'.fromDistinctAscList - [8, 16, 24, 34, 40, 50, 56, 66, 74, 80, 88, 96, 104, 112, 120, 128, 136, 144, 152, 160, 168, 178, 184, 192, 202, 210, 216, - 224]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.BucketProps\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketProps\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"BucketProps.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.allow_mult\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"allow_mult\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.last_write_wins\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"last_write_wins\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.precommit\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"precommit\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.CommitHook\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CommitHook\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.has_precommit\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"has_precommit\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"false\", hsDefault = Just (HsDef'Bool False)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.postcommit\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"postcommit\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.CommitHook\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CommitHook\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.has_postcommit\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"has_postcommit\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"false\", hsDefault = Just (HsDef'Bool False)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.chash_keyfun\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"chash_keyfun\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 66}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.ModFun\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ModFun\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.linkfun\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"linkfun\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 74}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.ModFun\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ModFun\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.old_vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"old_vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.young_vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"young_vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.big_vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"big_vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 96}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.small_vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"small_vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 104}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.pr\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"pr\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 14}, wireTag = WireTag {getWireTag = 112}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.r\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"r\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 15}, wireTag = WireTag {getWireTag = 120}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.w\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"w\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 16}, wireTag = WireTag {getWireTag = 128}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.pw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"pw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 17}, wireTag = WireTag {getWireTag = 136}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.dw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"dw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 18}, wireTag = WireTag {getWireTag = 144}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.rw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"rw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 19}, wireTag = WireTag {getWireTag = 152}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.basic_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"basic_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 20}, wireTag = WireTag {getWireTag = 160}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.notfound_ok\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"notfound_ok\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 21}, wireTag = WireTag {getWireTag = 168}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.backend\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"backend\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 22}, wireTag = WireTag {getWireTag = 178}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.search\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"search\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 23}, wireTag = WireTag {getWireTag = 184}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.repl\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"repl\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 24}, wireTag = WireTag {getWireTag = 192}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.BucketProps.ReplMode\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"BucketProps\"], baseName = MName \"ReplMode\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.search_index\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"search_index\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 25}, wireTag = WireTag {getWireTag = 202}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.datatype\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"datatype\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 26}, wireTag = WireTag {getWireTag = 210}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.consistent\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"consistent\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 27}, wireTag = WireTag {getWireTag = 216}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.BucketProps.write_once\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"BucketProps\"], baseName' = FName \"write_once\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 28}, wireTag = WireTag {getWireTag = 224}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType BucketProps where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg BucketProps where - textPut msg - = do - P'.tellT "n_val" (n_val msg) - P'.tellT "allow_mult" (allow_mult msg) - P'.tellT "last_write_wins" (last_write_wins msg) - P'.tellT "precommit" (precommit msg) - P'.tellT "has_precommit" (has_precommit msg) - P'.tellT "postcommit" (postcommit msg) - P'.tellT "has_postcommit" (has_postcommit msg) - P'.tellT "chash_keyfun" (chash_keyfun msg) - P'.tellT "linkfun" (linkfun msg) - P'.tellT "old_vclock" (old_vclock msg) - P'.tellT "young_vclock" (young_vclock msg) - P'.tellT "big_vclock" (big_vclock msg) - P'.tellT "small_vclock" (small_vclock msg) - P'.tellT "pr" (pr msg) - P'.tellT "r" (r msg) - P'.tellT "w" (w msg) - P'.tellT "pw" (pw msg) - P'.tellT "dw" (dw msg) - P'.tellT "rw" (rw msg) - P'.tellT "basic_quorum" (basic_quorum msg) - P'.tellT "notfound_ok" (notfound_ok msg) - P'.tellT "backend" (backend msg) - P'.tellT "search" (search msg) - P'.tellT "repl" (repl msg) - P'.tellT "search_index" (search_index msg) - P'.tellT "datatype" (datatype msg) - P'.tellT "consistent" (consistent msg) - P'.tellT "write_once" (write_once msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'n_val, parse'allow_mult, parse'last_write_wins, parse'precommit, parse'has_precommit, parse'postcommit, - parse'has_postcommit, parse'chash_keyfun, parse'linkfun, parse'old_vclock, parse'young_vclock, parse'big_vclock, - parse'small_vclock, parse'pr, parse'r, parse'w, parse'pw, parse'dw, parse'rw, parse'basic_quorum, - parse'notfound_ok, parse'backend, parse'search, parse'repl, parse'search_index, parse'datatype, parse'consistent, - parse'write_once]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'n_val - = P'.try - (do - v <- P'.getT "n_val" - Prelude'.return (\ o -> o{n_val = v})) - parse'allow_mult - = P'.try - (do - v <- P'.getT "allow_mult" - Prelude'.return (\ o -> o{allow_mult = v})) - parse'last_write_wins - = P'.try - (do - v <- P'.getT "last_write_wins" - Prelude'.return (\ o -> o{last_write_wins = v})) - parse'precommit - = P'.try - (do - v <- P'.getT "precommit" - Prelude'.return (\ o -> o{precommit = P'.append (precommit o) v})) - parse'has_precommit - = P'.try - (do - v <- P'.getT "has_precommit" - Prelude'.return (\ o -> o{has_precommit = v})) - parse'postcommit - = P'.try - (do - v <- P'.getT "postcommit" - Prelude'.return (\ o -> o{postcommit = P'.append (postcommit o) v})) - parse'has_postcommit - = P'.try - (do - v <- P'.getT "has_postcommit" - Prelude'.return (\ o -> o{has_postcommit = v})) - parse'chash_keyfun - = P'.try - (do - v <- P'.getT "chash_keyfun" - Prelude'.return (\ o -> o{chash_keyfun = v})) - parse'linkfun - = P'.try - (do - v <- P'.getT "linkfun" - Prelude'.return (\ o -> o{linkfun = v})) - parse'old_vclock - = P'.try - (do - v <- P'.getT "old_vclock" - Prelude'.return (\ o -> o{old_vclock = v})) - parse'young_vclock - = P'.try - (do - v <- P'.getT "young_vclock" - Prelude'.return (\ o -> o{young_vclock = v})) - parse'big_vclock - = P'.try - (do - v <- P'.getT "big_vclock" - Prelude'.return (\ o -> o{big_vclock = v})) - parse'small_vclock - = P'.try - (do - v <- P'.getT "small_vclock" - Prelude'.return (\ o -> o{small_vclock = v})) - parse'pr - = P'.try - (do - v <- P'.getT "pr" - Prelude'.return (\ o -> o{pr = v})) - parse'r - = P'.try - (do - v <- P'.getT "r" - Prelude'.return (\ o -> o{r = v})) - parse'w - = P'.try - (do - v <- P'.getT "w" - Prelude'.return (\ o -> o{w = v})) - parse'pw - = P'.try - (do - v <- P'.getT "pw" - Prelude'.return (\ o -> o{pw = v})) - parse'dw - = P'.try - (do - v <- P'.getT "dw" - Prelude'.return (\ o -> o{dw = v})) - parse'rw - = P'.try - (do - v <- P'.getT "rw" - Prelude'.return (\ o -> o{rw = v})) - parse'basic_quorum - = P'.try - (do - v <- P'.getT "basic_quorum" - Prelude'.return (\ o -> o{basic_quorum = v})) - parse'notfound_ok - = P'.try - (do - v <- P'.getT "notfound_ok" - Prelude'.return (\ o -> o{notfound_ok = v})) - parse'backend - = P'.try - (do - v <- P'.getT "backend" - Prelude'.return (\ o -> o{backend = v})) - parse'search - = P'.try - (do - v <- P'.getT "search" - Prelude'.return (\ o -> o{search = v})) - parse'repl - = P'.try - (do - v <- P'.getT "repl" - Prelude'.return (\ o -> o{repl = v})) - parse'search_index - = P'.try - (do - v <- P'.getT "search_index" - Prelude'.return (\ o -> o{search_index = v})) - parse'datatype - = P'.try - (do - v <- P'.getT "datatype" - Prelude'.return (\ o -> o{datatype = v})) - parse'consistent - = P'.try - (do - v <- P'.getT "consistent" - Prelude'.return (\ o -> o{consistent = v})) - parse'write_once - = P'.try - (do - v <- P'.getT "write_once" - Prelude'.return (\ o -> o{write_once = v})) diff --git a/src/Network/Riak/Protocol/BucketProps/ReplMode.hs b/src/Network/Riak/Protocol/BucketProps/ReplMode.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/BucketProps/ReplMode.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.BucketProps.ReplMode (ReplMode(..)) where -import Prelude ((+), (/), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data ReplMode = FALSE - | REALTIME - | FULLSYNC - | TRUE - deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, - Prelude'.Generic) - -instance P'.Mergeable ReplMode - -instance Prelude'.Bounded ReplMode where - minBound = FALSE - maxBound = TRUE - -instance P'.Default ReplMode where - defaultValue = FALSE - -toMaybe'Enum :: Prelude'.Int -> P'.Maybe ReplMode -toMaybe'Enum 0 = Prelude'.Just FALSE -toMaybe'Enum 1 = Prelude'.Just REALTIME -toMaybe'Enum 2 = Prelude'.Just FULLSYNC -toMaybe'Enum 3 = Prelude'.Just TRUE -toMaybe'Enum _ = Prelude'.Nothing - -instance Prelude'.Enum ReplMode where - fromEnum FALSE = 0 - fromEnum REALTIME = 1 - fromEnum FULLSYNC = 2 - fromEnum TRUE = 3 - toEnum - = P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type Network.Riak.Protocol.BucketProps.ReplMode") . - toMaybe'Enum - succ FALSE = REALTIME - succ REALTIME = FULLSYNC - succ FULLSYNC = TRUE - succ _ = Prelude'.error "hprotoc generated code: succ failure for type Network.Riak.Protocol.BucketProps.ReplMode" - pred REALTIME = FALSE - pred FULLSYNC = REALTIME - pred TRUE = FULLSYNC - pred _ = Prelude'.error "hprotoc generated code: pred failure for type Network.Riak.Protocol.BucketProps.ReplMode" - -instance P'.Wire ReplMode where - wireSize ft' enum = P'.wireSize ft' (Prelude'.fromEnum enum) - wirePut ft' enum = P'.wirePut ft' (Prelude'.fromEnum enum) - wireGet 14 = P'.wireGetEnum toMaybe'Enum - wireGet ft' = P'.wireGetErr ft' - wireGetPacked 14 = P'.wireGetPackedEnum toMaybe'Enum - wireGetPacked ft' = P'.wireGetErr ft' - -instance P'.GPB ReplMode - -instance P'.MessageAPI msg' (msg' -> ReplMode) ReplMode where - getVal m' f' = f' m' - -instance P'.ReflectEnum ReplMode where - reflectEnum = [(0, "FALSE", FALSE), (1, "REALTIME", REALTIME), (2, "FULLSYNC", FULLSYNC), (3, "TRUE", TRUE)] - reflectEnumInfo _ - = P'.EnumInfo (P'.makePNF (P'.pack ".Protocol.BucketProps.ReplMode") ["Network", "Riak"] ["Protocol", "BucketProps"] "ReplMode") - ["Network", "Riak", "Protocol", "BucketProps", "ReplMode.hs"] - [(0, "FALSE"), (1, "REALTIME"), (2, "FULLSYNC"), (3, "TRUE")] - Prelude'.False - -instance P'.TextType ReplMode where - tellT = P'.tellShow - getT = P'.getRead diff --git a/src/Network/Riak/Protocol/CSBucketRequest.hs b/src/Network/Riak/Protocol/CSBucketRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/CSBucketRequest.hs +++ /dev/null @@ -1,167 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.CSBucketRequest (CSBucketRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data CSBucketRequest = CSBucketRequest{bucket :: !(P'.ByteString), start_key :: !(P'.ByteString), - end_key :: !(P'.Maybe P'.ByteString), start_incl :: !(P'.Maybe P'.Bool), - end_incl :: !(P'.Maybe P'.Bool), continuation :: !(P'.Maybe P'.ByteString), - max_results :: !(P'.Maybe P'.Word32), timeout :: !(P'.Maybe P'.Word32), - type' :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable CSBucketRequest where - mergeAppend (CSBucketRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9) (CSBucketRequest y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8 y'9) - = CSBucketRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - (P'.mergeAppend x'8 y'8) - (P'.mergeAppend x'9 y'9) - -instance P'.Default CSBucketRequest where - defaultValue - = CSBucketRequest P'.defaultValue P'.defaultValue P'.defaultValue (Prelude'.Just Prelude'.True) (Prelude'.Just Prelude'.False) - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - -instance P'.Wire CSBucketRequest where - wireSize ft' self'@(CSBucketRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeOpt 1 12 x'3 + P'.wireSizeOpt 1 8 x'4 + - P'.wireSizeOpt 1 8 x'5 - + P'.wireSizeOpt 1 12 x'6 - + P'.wireSizeOpt 1 13 x'7 - + P'.wireSizeOpt 1 13 x'8 - + P'.wireSizeOpt 1 12 x'9) - wirePutWithSize ft' self'@(CSBucketRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutOptWithSize 26 12 x'3, - P'.wirePutOptWithSize 32 8 x'4, P'.wirePutOptWithSize 40 8 x'5, P'.wirePutOptWithSize 50 12 x'6, - P'.wirePutOptWithSize 56 13 x'7, P'.wirePutOptWithSize 64 13 x'8, P'.wirePutOptWithSize 74 12 x'9] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{start_key = new'Field}) (P'.wireGet 12) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{end_key = Prelude'.Just new'Field}) (P'.wireGet 12) - 32 -> Prelude'.fmap (\ !new'Field -> old'Self{start_incl = Prelude'.Just new'Field}) (P'.wireGet 8) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{end_incl = Prelude'.Just new'Field}) (P'.wireGet 8) - 50 -> Prelude'.fmap (\ !new'Field -> old'Self{continuation = Prelude'.Just new'Field}) (P'.wireGet 12) - 56 -> Prelude'.fmap (\ !new'Field -> old'Self{max_results = Prelude'.Just new'Field}) (P'.wireGet 13) - 64 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - 74 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> CSBucketRequest) CSBucketRequest where - getVal m' f' = f' m' - -instance P'.GPB CSBucketRequest - -instance P'.ReflectDescriptor CSBucketRequest where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) (P'.fromDistinctAscList [10, 18, 26, 32, 40, 50, 56, 64, 74]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CSBucketRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CSBucketRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CSBucketRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.start_key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"start_key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.end_key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"end_key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.start_incl\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"start_incl\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"true\", hsDefault = Just (HsDef'Bool True)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.end_incl\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"end_incl\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"false\", hsDefault = Just (HsDef'Bool False)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.continuation\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"continuation\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.max_results\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"max_results\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 74}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType CSBucketRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg CSBucketRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "start_key" (start_key msg) - P'.tellT "end_key" (end_key msg) - P'.tellT "start_incl" (start_incl msg) - P'.tellT "end_incl" (end_incl msg) - P'.tellT "continuation" (continuation msg) - P'.tellT "max_results" (max_results msg) - P'.tellT "timeout" (timeout msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'bucket, parse'start_key, parse'end_key, parse'start_incl, parse'end_incl, parse'continuation, - parse'max_results, parse'timeout, parse'type']) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'start_key - = P'.try - (do - v <- P'.getT "start_key" - Prelude'.return (\ o -> o{start_key = v})) - parse'end_key - = P'.try - (do - v <- P'.getT "end_key" - Prelude'.return (\ o -> o{end_key = v})) - parse'start_incl - = P'.try - (do - v <- P'.getT "start_incl" - Prelude'.return (\ o -> o{start_incl = v})) - parse'end_incl - = P'.try - (do - v <- P'.getT "end_incl" - Prelude'.return (\ o -> o{end_incl = v})) - parse'continuation - = P'.try - (do - v <- P'.getT "continuation" - Prelude'.return (\ o -> o{continuation = v})) - parse'max_results - = P'.try - (do - v <- P'.getT "max_results" - Prelude'.return (\ o -> o{max_results = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/CSBucketResponse.hs b/src/Network/Riak/Protocol/CSBucketResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/CSBucketResponse.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.CSBucketResponse (CSBucketResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.IndexObject as Protocol (IndexObject) - -data CSBucketResponse = CSBucketResponse{objects :: !(P'.Seq Protocol.IndexObject), continuation :: !(P'.Maybe P'.ByteString), - done :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable CSBucketResponse where - mergeAppend (CSBucketResponse x'1 x'2 x'3) (CSBucketResponse y'1 y'2 y'3) - = CSBucketResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default CSBucketResponse where - defaultValue = CSBucketResponse P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire CSBucketResponse where - wireSize ft' self'@(CSBucketResponse x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1 + P'.wireSizeOpt 1 12 x'2 + P'.wireSizeOpt 1 8 x'3) - wirePutWithSize ft' self'@(CSBucketResponse x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1, P'.wirePutOptWithSize 18 12 x'2, P'.wirePutOptWithSize 24 8 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{objects = P'.append (objects old'Self) new'Field}) (P'.wireGet 11) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{continuation = Prelude'.Just new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{done = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> CSBucketResponse) CSBucketResponse where - getVal m' f' = f' m' - -instance P'.GPB CSBucketResponse - -instance P'.ReflectDescriptor CSBucketResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18, 24]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CSBucketResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CSBucketResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CSBucketResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketResponse.objects\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketResponse\"], baseName' = FName \"objects\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.IndexObject\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"IndexObject\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketResponse.continuation\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketResponse\"], baseName' = FName \"continuation\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CSBucketResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CSBucketResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType CSBucketResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg CSBucketResponse where - textPut msg - = do - P'.tellT "objects" (objects msg) - P'.tellT "continuation" (continuation msg) - P'.tellT "done" (done msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'objects, parse'continuation, parse'done]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'objects - = P'.try - (do - v <- P'.getT "objects" - Prelude'.return (\ o -> o{objects = P'.append (objects o) v})) - parse'continuation - = P'.try - (do - v <- P'.getT "continuation" - Prelude'.return (\ o -> o{continuation = v})) - parse'done - = P'.try - (do - v <- P'.getT "done" - Prelude'.return (\ o -> o{done = v})) diff --git a/src/Network/Riak/Protocol/CommitHook.hs b/src/Network/Riak/Protocol/CommitHook.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/CommitHook.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.CommitHook (CommitHook(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.ModFun as Protocol (ModFun) - -data CommitHook = CommitHook{modfun :: !(P'.Maybe Protocol.ModFun), name :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable CommitHook where - mergeAppend (CommitHook x'1 x'2) (CommitHook y'1 y'2) = CommitHook (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default CommitHook where - defaultValue = CommitHook P'.defaultValue P'.defaultValue - -instance P'.Wire CommitHook where - wireSize ft' self'@(CommitHook x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 11 x'1 + P'.wireSizeOpt 1 12 x'2) - wirePutWithSize ft' self'@(CommitHook x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutOptWithSize 10 11 x'1, P'.wirePutOptWithSize 18 12 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{modfun = P'.mergeAppend (modfun old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{name = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> CommitHook) CommitHook where - getVal m' f' = f' m' - -instance P'.GPB CommitHook - -instance P'.ReflectDescriptor CommitHook where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CommitHook\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CommitHook\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CommitHook.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CommitHook.modfun\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CommitHook\"], baseName' = FName \"modfun\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.ModFun\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ModFun\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CommitHook.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CommitHook\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType CommitHook where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg CommitHook where - textPut msg - = do - P'.tellT "modfun" (modfun msg) - P'.tellT "name" (name msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'modfun, parse'name]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'modfun - = P'.try - (do - v <- P'.getT "modfun" - Prelude'.return (\ o -> o{modfun = v})) - parse'name - = P'.try - (do - v <- P'.getT "name" - Prelude'.return (\ o -> o{name = v})) diff --git a/src/Network/Riak/Protocol/Content.hs b/src/Network/Riak/Protocol/Content.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/Content.hs +++ /dev/null @@ -1,187 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.Content (Content(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.Link as Protocol (Link) -import qualified Network.Riak.Protocol.Pair as Protocol (Pair) - -data Content = Content{value :: !(P'.ByteString), content_type :: !(P'.Maybe P'.ByteString), charset :: !(P'.Maybe P'.ByteString), - content_encoding :: !(P'.Maybe P'.ByteString), vtag :: !(P'.Maybe P'.ByteString), - links :: !(P'.Seq Protocol.Link), last_mod :: !(P'.Maybe P'.Word32), last_mod_usecs :: !(P'.Maybe P'.Word32), - usermeta :: !(P'.Seq Protocol.Pair), indexes :: !(P'.Seq Protocol.Pair), deleted :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable Content where - mergeAppend (Content x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11) (Content y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8 y'9 y'10 y'11) - = Content (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - (P'.mergeAppend x'8 y'8) - (P'.mergeAppend x'9 y'9) - (P'.mergeAppend x'10 y'10) - (P'.mergeAppend x'11 y'11) - -instance P'.Default Content where - defaultValue - = Content P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - -instance P'.Wire Content where - wireSize ft' self'@(Content x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeOpt 1 12 x'2 + P'.wireSizeOpt 1 12 x'3 + P'.wireSizeOpt 1 12 x'4 + - P'.wireSizeOpt 1 12 x'5 - + P'.wireSizeRep 1 11 x'6 - + P'.wireSizeOpt 1 13 x'7 - + P'.wireSizeOpt 1 13 x'8 - + P'.wireSizeRep 1 11 x'9 - + P'.wireSizeRep 1 11 x'10 - + P'.wireSizeOpt 1 8 x'11) - wirePutWithSize ft' self'@(Content x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2, P'.wirePutOptWithSize 26 12 x'3, - P'.wirePutOptWithSize 34 12 x'4, P'.wirePutOptWithSize 42 12 x'5, P'.wirePutRepWithSize 50 11 x'6, - P'.wirePutOptWithSize 56 13 x'7, P'.wirePutOptWithSize 64 13 x'8, P'.wirePutRepWithSize 74 11 x'9, - P'.wirePutRepWithSize 82 11 x'10, P'.wirePutOptWithSize 88 8 x'11] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{value = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{content_type = Prelude'.Just new'Field}) (P'.wireGet 12) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{charset = Prelude'.Just new'Field}) (P'.wireGet 12) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{content_encoding = Prelude'.Just new'Field}) (P'.wireGet 12) - 42 -> Prelude'.fmap (\ !new'Field -> old'Self{vtag = Prelude'.Just new'Field}) (P'.wireGet 12) - 50 -> Prelude'.fmap (\ !new'Field -> old'Self{links = P'.append (links old'Self) new'Field}) (P'.wireGet 11) - 56 -> Prelude'.fmap (\ !new'Field -> old'Self{last_mod = Prelude'.Just new'Field}) (P'.wireGet 13) - 64 -> Prelude'.fmap (\ !new'Field -> old'Self{last_mod_usecs = Prelude'.Just new'Field}) (P'.wireGet 13) - 74 -> Prelude'.fmap (\ !new'Field -> old'Self{usermeta = P'.append (usermeta old'Self) new'Field}) (P'.wireGet 11) - 82 -> Prelude'.fmap (\ !new'Field -> old'Self{indexes = P'.append (indexes old'Self) new'Field}) (P'.wireGet 11) - 88 -> Prelude'.fmap (\ !new'Field -> old'Self{deleted = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> Content) Content where - getVal m' f' = f' m' - -instance P'.GPB Content - -instance P'.ReflectDescriptor Content where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18, 26, 34, 42, 50, 56, 64, 74, 82, 88]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.Content\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Content\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"Content.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.content_type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"content_type\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.charset\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"charset\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.content_encoding\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"content_encoding\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.vtag\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"vtag\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.links\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"links\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Link\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Link\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.last_mod\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"last_mod\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.last_mod_usecs\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"last_mod_usecs\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.usermeta\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"usermeta\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 74}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.indexes\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"indexes\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 82}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Content.deleted\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Content\"], baseName' = FName \"deleted\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType Content where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg Content where - textPut msg - = do - P'.tellT "value" (value msg) - P'.tellT "content_type" (content_type msg) - P'.tellT "charset" (charset msg) - P'.tellT "content_encoding" (content_encoding msg) - P'.tellT "vtag" (vtag msg) - P'.tellT "links" (links msg) - P'.tellT "last_mod" (last_mod msg) - P'.tellT "last_mod_usecs" (last_mod_usecs msg) - P'.tellT "usermeta" (usermeta msg) - P'.tellT "indexes" (indexes msg) - P'.tellT "deleted" (deleted msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'value, parse'content_type, parse'charset, parse'content_encoding, parse'vtag, parse'links, parse'last_mod, - parse'last_mod_usecs, parse'usermeta, parse'indexes, parse'deleted]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'value - = P'.try - (do - v <- P'.getT "value" - Prelude'.return (\ o -> o{value = v})) - parse'content_type - = P'.try - (do - v <- P'.getT "content_type" - Prelude'.return (\ o -> o{content_type = v})) - parse'charset - = P'.try - (do - v <- P'.getT "charset" - Prelude'.return (\ o -> o{charset = v})) - parse'content_encoding - = P'.try - (do - v <- P'.getT "content_encoding" - Prelude'.return (\ o -> o{content_encoding = v})) - parse'vtag - = P'.try - (do - v <- P'.getT "vtag" - Prelude'.return (\ o -> o{vtag = v})) - parse'links - = P'.try - (do - v <- P'.getT "links" - Prelude'.return (\ o -> o{links = P'.append (links o) v})) - parse'last_mod - = P'.try - (do - v <- P'.getT "last_mod" - Prelude'.return (\ o -> o{last_mod = v})) - parse'last_mod_usecs - = P'.try - (do - v <- P'.getT "last_mod_usecs" - Prelude'.return (\ o -> o{last_mod_usecs = v})) - parse'usermeta - = P'.try - (do - v <- P'.getT "usermeta" - Prelude'.return (\ o -> o{usermeta = P'.append (usermeta o) v})) - parse'indexes - = P'.try - (do - v <- P'.getT "indexes" - Prelude'.return (\ o -> o{indexes = P'.append (indexes o) v})) - parse'deleted - = P'.try - (do - v <- P'.getT "deleted" - Prelude'.return (\ o -> o{deleted = v})) diff --git a/src/Network/Riak/Protocol/CounterGetRequest.hs b/src/Network/Riak/Protocol/CounterGetRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/CounterGetRequest.hs +++ /dev/null @@ -1,127 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.CounterGetRequest (CounterGetRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data CounterGetRequest = CounterGetRequest{bucket :: !(P'.ByteString), key :: !(P'.ByteString), r :: !(P'.Maybe P'.Word32), - pr :: !(P'.Maybe P'.Word32), basic_quorum :: !(P'.Maybe P'.Bool), - notfound_ok :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable CounterGetRequest where - mergeAppend (CounterGetRequest x'1 x'2 x'3 x'4 x'5 x'6) (CounterGetRequest y'1 y'2 y'3 y'4 y'5 y'6) - = CounterGetRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - -instance P'.Default CounterGetRequest where - defaultValue = CounterGetRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire CounterGetRequest where - wireSize ft' self'@(CounterGetRequest x'1 x'2 x'3 x'4 x'5 x'6) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeOpt 1 13 x'3 + P'.wireSizeOpt 1 13 x'4 + - P'.wireSizeOpt 1 8 x'5 - + P'.wireSizeOpt 1 8 x'6) - wirePutWithSize ft' self'@(CounterGetRequest x'1 x'2 x'3 x'4 x'5 x'6) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutOptWithSize 24 13 x'3, - P'.wirePutOptWithSize 32 13 x'4, P'.wirePutOptWithSize 40 8 x'5, P'.wirePutOptWithSize 48 8 x'6] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{r = Prelude'.Just new'Field}) (P'.wireGet 13) - 32 -> Prelude'.fmap (\ !new'Field -> old'Self{pr = Prelude'.Just new'Field}) (P'.wireGet 13) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{basic_quorum = Prelude'.Just new'Field}) (P'.wireGet 8) - 48 -> Prelude'.fmap (\ !new'Field -> old'Self{notfound_ok = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> CounterGetRequest) CounterGetRequest where - getVal m' f' = f' m' - -instance P'.GPB CounterGetRequest - -instance P'.ReflectDescriptor CounterGetRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) (P'.fromDistinctAscList [10, 18, 24, 32, 40, 48]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CounterGetRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterGetRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CounterGetRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.r\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"r\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.pr\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"pr\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.basic_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"basic_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetRequest.notfound_ok\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetRequest\"], baseName' = FName \"notfound_ok\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType CounterGetRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg CounterGetRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "key" (key msg) - P'.tellT "r" (r msg) - P'.tellT "pr" (pr msg) - P'.tellT "basic_quorum" (basic_quorum msg) - P'.tellT "notfound_ok" (notfound_ok msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'bucket, parse'key, parse'r, parse'pr, parse'basic_quorum, parse'notfound_ok]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'r - = P'.try - (do - v <- P'.getT "r" - Prelude'.return (\ o -> o{r = v})) - parse'pr - = P'.try - (do - v <- P'.getT "pr" - Prelude'.return (\ o -> o{pr = v})) - parse'basic_quorum - = P'.try - (do - v <- P'.getT "basic_quorum" - Prelude'.return (\ o -> o{basic_quorum = v})) - parse'notfound_ok - = P'.try - (do - v <- P'.getT "notfound_ok" - Prelude'.return (\ o -> o{notfound_ok = v})) diff --git a/src/Network/Riak/Protocol/CounterGetResponse.hs b/src/Network/Riak/Protocol/CounterGetResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/CounterGetResponse.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.CounterGetResponse (CounterGetResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data CounterGetResponse = CounterGetResponse{value :: !(P'.Maybe P'.Int64)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable CounterGetResponse where - mergeAppend (CounterGetResponse x'1) (CounterGetResponse y'1) = CounterGetResponse (P'.mergeAppend x'1 y'1) - -instance P'.Default CounterGetResponse where - defaultValue = CounterGetResponse P'.defaultValue - -instance P'.Wire CounterGetResponse where - wireSize ft' self'@(CounterGetResponse x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 18 x'1) - wirePutWithSize ft' self'@(CounterGetResponse x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutOptWithSize 8 18 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 8 -> Prelude'.fmap (\ !new'Field -> old'Self{value = Prelude'.Just new'Field}) (P'.wireGet 18) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> CounterGetResponse) CounterGetResponse where - getVal m' f' = f' m' - -instance P'.GPB CounterGetResponse - -instance P'.ReflectDescriptor CounterGetResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [8]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CounterGetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterGetResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CounterGetResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterGetResponse.value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterGetResponse\"], baseName' = FName \"value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType CounterGetResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg CounterGetResponse where - textPut msg - = do - P'.tellT "value" (value msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'value]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'value - = P'.try - (do - v <- P'.getT "value" - Prelude'.return (\ o -> o{value = v})) diff --git a/src/Network/Riak/Protocol/CounterOp.hs b/src/Network/Riak/Protocol/CounterOp.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/CounterOp.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.CounterOp (CounterOp(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data CounterOp = CounterOp{increment :: !(P'.Maybe P'.Int64)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable CounterOp where - mergeAppend (CounterOp x'1) (CounterOp y'1) = CounterOp (P'.mergeAppend x'1 y'1) - -instance P'.Default CounterOp where - defaultValue = CounterOp P'.defaultValue - -instance P'.Wire CounterOp where - wireSize ft' self'@(CounterOp x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 18 x'1) - wirePutWithSize ft' self'@(CounterOp x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutOptWithSize 8 18 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 8 -> Prelude'.fmap (\ !new'Field -> old'Self{increment = Prelude'.Just new'Field}) (P'.wireGet 18) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> CounterOp) CounterOp where - getVal m' f' = f' m' - -instance P'.GPB CounterOp - -instance P'.ReflectDescriptor CounterOp where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [8]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CounterOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterOp\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CounterOp.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterOp.increment\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterOp\"], baseName' = FName \"increment\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType CounterOp where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg CounterOp where - textPut msg - = do - P'.tellT "increment" (increment msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'increment]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'increment - = P'.try - (do - v <- P'.getT "increment" - Prelude'.return (\ o -> o{increment = v})) diff --git a/src/Network/Riak/Protocol/CounterUpdateRequest.hs b/src/Network/Riak/Protocol/CounterUpdateRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/CounterUpdateRequest.hs +++ /dev/null @@ -1,140 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.CounterUpdateRequest (CounterUpdateRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data CounterUpdateRequest = CounterUpdateRequest{bucket :: !(P'.ByteString), key :: !(P'.ByteString), amount :: !(P'.Int64), - w :: !(P'.Maybe P'.Word32), dw :: !(P'.Maybe P'.Word32), - pw :: !(P'.Maybe P'.Word32), returnvalue :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable CounterUpdateRequest where - mergeAppend (CounterUpdateRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7) (CounterUpdateRequest y'1 y'2 y'3 y'4 y'5 y'6 y'7) - = CounterUpdateRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - -instance P'.Default CounterUpdateRequest where - defaultValue - = CounterUpdateRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - P'.defaultValue - -instance P'.Wire CounterUpdateRequest where - wireSize ft' self'@(CounterUpdateRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeReq 1 18 x'3 + P'.wireSizeOpt 1 13 x'4 + - P'.wireSizeOpt 1 13 x'5 - + P'.wireSizeOpt 1 13 x'6 - + P'.wireSizeOpt 1 8 x'7) - wirePutWithSize ft' self'@(CounterUpdateRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutReqWithSize 24 18 x'3, - P'.wirePutOptWithSize 32 13 x'4, P'.wirePutOptWithSize 40 13 x'5, P'.wirePutOptWithSize 48 13 x'6, - P'.wirePutOptWithSize 56 8 x'7] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{amount = new'Field}) (P'.wireGet 18) - 32 -> Prelude'.fmap (\ !new'Field -> old'Self{w = Prelude'.Just new'Field}) (P'.wireGet 13) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{dw = Prelude'.Just new'Field}) (P'.wireGet 13) - 48 -> Prelude'.fmap (\ !new'Field -> old'Self{pw = Prelude'.Just new'Field}) (P'.wireGet 13) - 56 -> Prelude'.fmap (\ !new'Field -> old'Self{returnvalue = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> CounterUpdateRequest) CounterUpdateRequest where - getVal m' f' = f' m' - -instance P'.GPB CounterUpdateRequest - -instance P'.ReflectDescriptor CounterUpdateRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18, 24]) (P'.fromDistinctAscList [10, 18, 24, 32, 40, 48, 56]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CounterUpdateRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterUpdateRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CounterUpdateRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.amount\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"amount\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.w\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"w\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.dw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"dw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.pw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"pw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateRequest.returnvalue\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateRequest\"], baseName' = FName \"returnvalue\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType CounterUpdateRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg CounterUpdateRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "key" (key msg) - P'.tellT "amount" (amount msg) - P'.tellT "w" (w msg) - P'.tellT "dw" (dw msg) - P'.tellT "pw" (pw msg) - P'.tellT "returnvalue" (returnvalue msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'bucket, parse'key, parse'amount, parse'w, parse'dw, parse'pw, parse'returnvalue]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'amount - = P'.try - (do - v <- P'.getT "amount" - Prelude'.return (\ o -> o{amount = v})) - parse'w - = P'.try - (do - v <- P'.getT "w" - Prelude'.return (\ o -> o{w = v})) - parse'dw - = P'.try - (do - v <- P'.getT "dw" - Prelude'.return (\ o -> o{dw = v})) - parse'pw - = P'.try - (do - v <- P'.getT "pw" - Prelude'.return (\ o -> o{pw = v})) - parse'returnvalue - = P'.try - (do - v <- P'.getT "returnvalue" - Prelude'.return (\ o -> o{returnvalue = v})) diff --git a/src/Network/Riak/Protocol/CounterUpdateResponse.hs b/src/Network/Riak/Protocol/CounterUpdateResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/CounterUpdateResponse.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.CounterUpdateResponse (CounterUpdateResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data CounterUpdateResponse = CounterUpdateResponse{value :: !(P'.Maybe P'.Int64)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable CounterUpdateResponse where - mergeAppend (CounterUpdateResponse x'1) (CounterUpdateResponse y'1) = CounterUpdateResponse (P'.mergeAppend x'1 y'1) - -instance P'.Default CounterUpdateResponse where - defaultValue = CounterUpdateResponse P'.defaultValue - -instance P'.Wire CounterUpdateResponse where - wireSize ft' self'@(CounterUpdateResponse x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 18 x'1) - wirePutWithSize ft' self'@(CounterUpdateResponse x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutOptWithSize 8 18 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 8 -> Prelude'.fmap (\ !new'Field -> old'Self{value = Prelude'.Just new'Field}) (P'.wireGet 18) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> CounterUpdateResponse) CounterUpdateResponse where - getVal m' f' = f' m' - -instance P'.GPB CounterUpdateResponse - -instance P'.ReflectDescriptor CounterUpdateResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [8]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.CounterUpdateResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterUpdateResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"CounterUpdateResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.CounterUpdateResponse.value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"CounterUpdateResponse\"], baseName' = FName \"value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType CounterUpdateResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg CounterUpdateResponse where - textPut msg - = do - P'.tellT "value" (value msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'value]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'value - = P'.try - (do - v <- P'.getT "value" - Prelude'.return (\ o -> o{value = v})) diff --git a/src/Network/Riak/Protocol/DeleteRequest.hs b/src/Network/Riak/Protocol/DeleteRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/DeleteRequest.hs +++ /dev/null @@ -1,209 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.DeleteRequest (DeleteRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data DeleteRequest = DeleteRequest{bucket :: !(P'.ByteString), key :: !(P'.ByteString), rw :: !(P'.Maybe P'.Word32), - vclock :: !(P'.Maybe P'.ByteString), r :: !(P'.Maybe P'.Word32), w :: !(P'.Maybe P'.Word32), - pr :: !(P'.Maybe P'.Word32), pw :: !(P'.Maybe P'.Word32), dw :: !(P'.Maybe P'.Word32), - timeout :: !(P'.Maybe P'.Word32), sloppy_quorum :: !(P'.Maybe P'.Bool), - n_val :: !(P'.Maybe P'.Word32), type' :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable DeleteRequest where - mergeAppend (DeleteRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13) - (DeleteRequest y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8 y'9 y'10 y'11 y'12 y'13) - = DeleteRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - (P'.mergeAppend x'8 y'8) - (P'.mergeAppend x'9 y'9) - (P'.mergeAppend x'10 y'10) - (P'.mergeAppend x'11 y'11) - (P'.mergeAppend x'12 y'12) - (P'.mergeAppend x'13 y'13) - -instance P'.Default DeleteRequest where - defaultValue - = DeleteRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - -instance P'.Wire DeleteRequest where - wireSize ft' self'@(DeleteRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeOpt 1 13 x'3 + P'.wireSizeOpt 1 12 x'4 + - P'.wireSizeOpt 1 13 x'5 - + P'.wireSizeOpt 1 13 x'6 - + P'.wireSizeOpt 1 13 x'7 - + P'.wireSizeOpt 1 13 x'8 - + P'.wireSizeOpt 1 13 x'9 - + P'.wireSizeOpt 1 13 x'10 - + P'.wireSizeOpt 1 8 x'11 - + P'.wireSizeOpt 1 13 x'12 - + P'.wireSizeOpt 1 12 x'13) - wirePutWithSize ft' self'@(DeleteRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutOptWithSize 24 13 x'3, - P'.wirePutOptWithSize 34 12 x'4, P'.wirePutOptWithSize 40 13 x'5, P'.wirePutOptWithSize 48 13 x'6, - P'.wirePutOptWithSize 56 13 x'7, P'.wirePutOptWithSize 64 13 x'8, P'.wirePutOptWithSize 72 13 x'9, - P'.wirePutOptWithSize 80 13 x'10, P'.wirePutOptWithSize 88 8 x'11, P'.wirePutOptWithSize 96 13 x'12, - P'.wirePutOptWithSize 106 12 x'13] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{rw = Prelude'.Just new'Field}) (P'.wireGet 13) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{vclock = Prelude'.Just new'Field}) (P'.wireGet 12) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{r = Prelude'.Just new'Field}) (P'.wireGet 13) - 48 -> Prelude'.fmap (\ !new'Field -> old'Self{w = Prelude'.Just new'Field}) (P'.wireGet 13) - 56 -> Prelude'.fmap (\ !new'Field -> old'Self{pr = Prelude'.Just new'Field}) (P'.wireGet 13) - 64 -> Prelude'.fmap (\ !new'Field -> old'Self{pw = Prelude'.Just new'Field}) (P'.wireGet 13) - 72 -> Prelude'.fmap (\ !new'Field -> old'Self{dw = Prelude'.Just new'Field}) (P'.wireGet 13) - 80 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - 88 -> Prelude'.fmap (\ !new'Field -> old'Self{sloppy_quorum = Prelude'.Just new'Field}) (P'.wireGet 8) - 96 -> Prelude'.fmap (\ !new'Field -> old'Self{n_val = Prelude'.Just new'Field}) (P'.wireGet 13) - 106 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> DeleteRequest) DeleteRequest where - getVal m' f' = f' m' - -instance P'.GPB DeleteRequest - -instance P'.ReflectDescriptor DeleteRequest where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) - (P'.fromDistinctAscList [10, 18, 24, 34, 40, 48, 56, 64, 72, 80, 88, 96, 106]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DeleteRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DeleteRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DeleteRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.rw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"rw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.r\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"r\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.w\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"w\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.pr\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"pr\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.pw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"pw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.dw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"dw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.sloppy_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"sloppy_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 96}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DeleteRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DeleteRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 106}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType DeleteRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg DeleteRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "key" (key msg) - P'.tellT "rw" (rw msg) - P'.tellT "vclock" (vclock msg) - P'.tellT "r" (r msg) - P'.tellT "w" (w msg) - P'.tellT "pr" (pr msg) - P'.tellT "pw" (pw msg) - P'.tellT "dw" (dw msg) - P'.tellT "timeout" (timeout msg) - P'.tellT "sloppy_quorum" (sloppy_quorum msg) - P'.tellT "n_val" (n_val msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'bucket, parse'key, parse'rw, parse'vclock, parse'r, parse'w, parse'pr, parse'pw, parse'dw, parse'timeout, - parse'sloppy_quorum, parse'n_val, parse'type']) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'rw - = P'.try - (do - v <- P'.getT "rw" - Prelude'.return (\ o -> o{rw = v})) - parse'vclock - = P'.try - (do - v <- P'.getT "vclock" - Prelude'.return (\ o -> o{vclock = v})) - parse'r - = P'.try - (do - v <- P'.getT "r" - Prelude'.return (\ o -> o{r = v})) - parse'w - = P'.try - (do - v <- P'.getT "w" - Prelude'.return (\ o -> o{w = v})) - parse'pr - = P'.try - (do - v <- P'.getT "pr" - Prelude'.return (\ o -> o{pr = v})) - parse'pw - = P'.try - (do - v <- P'.getT "pw" - Prelude'.return (\ o -> o{pw = v})) - parse'dw - = P'.try - (do - v <- P'.getT "dw" - Prelude'.return (\ o -> o{dw = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) - parse'sloppy_quorum - = P'.try - (do - v <- P'.getT "sloppy_quorum" - Prelude'.return (\ o -> o{sloppy_quorum = v})) - parse'n_val - = P'.try - (do - v <- P'.getT "n_val" - Prelude'.return (\ o -> o{n_val = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/DtFetchRequest.hs b/src/Network/Riak/Protocol/DtFetchRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/DtFetchRequest.hs +++ /dev/null @@ -1,187 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.DtFetchRequest (DtFetchRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data DtFetchRequest = DtFetchRequest{bucket :: !(P'.ByteString), key :: !(P'.ByteString), type' :: !(P'.ByteString), - r :: !(P'.Maybe P'.Word32), pr :: !(P'.Maybe P'.Word32), basic_quorum :: !(P'.Maybe P'.Bool), - notfound_ok :: !(P'.Maybe P'.Bool), timeout :: !(P'.Maybe P'.Word32), - sloppy_quorum :: !(P'.Maybe P'.Bool), n_val :: !(P'.Maybe P'.Word32), - include_context :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable DtFetchRequest where - mergeAppend (DtFetchRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11) - (DtFetchRequest y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8 y'9 y'10 y'11) - = DtFetchRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - (P'.mergeAppend x'8 y'8) - (P'.mergeAppend x'9 y'9) - (P'.mergeAppend x'10 y'10) - (P'.mergeAppend x'11 y'11) - -instance P'.Default DtFetchRequest where - defaultValue - = DtFetchRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - (Prelude'.Just Prelude'.True) - -instance P'.Wire DtFetchRequest where - wireSize ft' self'@(DtFetchRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeReq 1 12 x'3 + P'.wireSizeOpt 1 13 x'4 + - P'.wireSizeOpt 1 13 x'5 - + P'.wireSizeOpt 1 8 x'6 - + P'.wireSizeOpt 1 8 x'7 - + P'.wireSizeOpt 1 13 x'8 - + P'.wireSizeOpt 1 8 x'9 - + P'.wireSizeOpt 1 13 x'10 - + P'.wireSizeOpt 1 8 x'11) - wirePutWithSize ft' self'@(DtFetchRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutReqWithSize 26 12 x'3, - P'.wirePutOptWithSize 32 13 x'4, P'.wirePutOptWithSize 40 13 x'5, P'.wirePutOptWithSize 48 8 x'6, - P'.wirePutOptWithSize 56 8 x'7, P'.wirePutOptWithSize 64 13 x'8, P'.wirePutOptWithSize 72 8 x'9, - P'.wirePutOptWithSize 80 13 x'10, P'.wirePutOptWithSize 88 8 x'11] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = new'Field}) (P'.wireGet 12) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = new'Field}) (P'.wireGet 12) - 32 -> Prelude'.fmap (\ !new'Field -> old'Self{r = Prelude'.Just new'Field}) (P'.wireGet 13) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{pr = Prelude'.Just new'Field}) (P'.wireGet 13) - 48 -> Prelude'.fmap (\ !new'Field -> old'Self{basic_quorum = Prelude'.Just new'Field}) (P'.wireGet 8) - 56 -> Prelude'.fmap (\ !new'Field -> old'Self{notfound_ok = Prelude'.Just new'Field}) (P'.wireGet 8) - 64 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - 72 -> Prelude'.fmap (\ !new'Field -> old'Self{sloppy_quorum = Prelude'.Just new'Field}) (P'.wireGet 8) - 80 -> Prelude'.fmap (\ !new'Field -> old'Self{n_val = Prelude'.Just new'Field}) (P'.wireGet 13) - 88 -> Prelude'.fmap (\ !new'Field -> old'Self{include_context = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> DtFetchRequest) DtFetchRequest where - getVal m' f' = f' m' - -instance P'.GPB DtFetchRequest - -instance P'.ReflectDescriptor DtFetchRequest where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18, 26]) (P'.fromDistinctAscList [10, 18, 26, 32, 40, 48, 56, 64, 72, 80, 88]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtFetchRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtFetchRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtFetchRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.r\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"r\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.pr\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"pr\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.basic_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"basic_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.notfound_ok\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"notfound_ok\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.sloppy_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"sloppy_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchRequest.include_context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchRequest\"], baseName' = FName \"include_context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"true\", hsDefault = Just (HsDef'Bool True)}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType DtFetchRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg DtFetchRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "key" (key msg) - P'.tellT "type" (type' msg) - P'.tellT "r" (r msg) - P'.tellT "pr" (pr msg) - P'.tellT "basic_quorum" (basic_quorum msg) - P'.tellT "notfound_ok" (notfound_ok msg) - P'.tellT "timeout" (timeout msg) - P'.tellT "sloppy_quorum" (sloppy_quorum msg) - P'.tellT "n_val" (n_val msg) - P'.tellT "include_context" (include_context msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'bucket, parse'key, parse'type', parse'r, parse'pr, parse'basic_quorum, parse'notfound_ok, parse'timeout, - parse'sloppy_quorum, parse'n_val, parse'include_context]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) - parse'r - = P'.try - (do - v <- P'.getT "r" - Prelude'.return (\ o -> o{r = v})) - parse'pr - = P'.try - (do - v <- P'.getT "pr" - Prelude'.return (\ o -> o{pr = v})) - parse'basic_quorum - = P'.try - (do - v <- P'.getT "basic_quorum" - Prelude'.return (\ o -> o{basic_quorum = v})) - parse'notfound_ok - = P'.try - (do - v <- P'.getT "notfound_ok" - Prelude'.return (\ o -> o{notfound_ok = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) - parse'sloppy_quorum - = P'.try - (do - v <- P'.getT "sloppy_quorum" - Prelude'.return (\ o -> o{sloppy_quorum = v})) - parse'n_val - = P'.try - (do - v <- P'.getT "n_val" - Prelude'.return (\ o -> o{n_val = v})) - parse'include_context - = P'.try - (do - v <- P'.getT "include_context" - Prelude'.return (\ o -> o{include_context = v})) diff --git a/src/Network/Riak/Protocol/DtFetchResponse.hs b/src/Network/Riak/Protocol/DtFetchResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/DtFetchResponse.hs +++ /dev/null @@ -1,102 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.DtFetchResponse (DtFetchResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.DtFetchResponse.DataType as Protocol.DtFetchResponse (DataType) -import qualified Network.Riak.Protocol.DtValue as Protocol (DtValue) - -data DtFetchResponse = DtFetchResponse{context :: !(P'.Maybe P'.ByteString), type' :: !(Protocol.DtFetchResponse.DataType), - value :: !(P'.Maybe Protocol.DtValue)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable DtFetchResponse where - mergeAppend (DtFetchResponse x'1 x'2 x'3) (DtFetchResponse y'1 y'2 y'3) - = DtFetchResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default DtFetchResponse where - defaultValue = DtFetchResponse P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire DtFetchResponse where - wireSize ft' self'@(DtFetchResponse x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 12 x'1 + P'.wireSizeReq 1 14 x'2 + P'.wireSizeOpt 1 11 x'3) - wirePutWithSize ft' self'@(DtFetchResponse x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutOptWithSize 10 12 x'1, P'.wirePutReqWithSize 16 14 x'2, P'.wirePutOptWithSize 26 11 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{context = Prelude'.Just new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = new'Field}) (P'.wireGet 14) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{value = P'.mergeAppend (value old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> DtFetchResponse) DtFetchResponse where - getVal m' f' = f' m' - -instance P'.GPB DtFetchResponse - -instance P'.ReflectDescriptor DtFetchResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [16]) (P'.fromDistinctAscList [10, 16, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtFetchResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtFetchResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtFetchResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchResponse.context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchResponse\"], baseName' = FName \"context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchResponse.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchResponse\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.DtFetchResponse.DataType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"DtFetchResponse\"], baseName = MName \"DataType\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtFetchResponse.value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtFetchResponse\"], baseName' = FName \"value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.DtValue\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtValue\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType DtFetchResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg DtFetchResponse where - textPut msg - = do - P'.tellT "context" (context msg) - P'.tellT "type" (type' msg) - P'.tellT "value" (value msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'context, parse'type', parse'value]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'context - = P'.try - (do - v <- P'.getT "context" - Prelude'.return (\ o -> o{context = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) - parse'value - = P'.try - (do - v <- P'.getT "value" - Prelude'.return (\ o -> o{value = v})) diff --git a/src/Network/Riak/Protocol/DtFetchResponse/DataType.hs b/src/Network/Riak/Protocol/DtFetchResponse/DataType.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/DtFetchResponse/DataType.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.DtFetchResponse.DataType (DataType(..)) where -import Prelude ((+), (/), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data DataType = COUNTER - | SET - | MAP - deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, - Prelude'.Generic) - -instance P'.Mergeable DataType - -instance Prelude'.Bounded DataType where - minBound = COUNTER - maxBound = MAP - -instance P'.Default DataType where - defaultValue = COUNTER - -toMaybe'Enum :: Prelude'.Int -> P'.Maybe DataType -toMaybe'Enum 1 = Prelude'.Just COUNTER -toMaybe'Enum 2 = Prelude'.Just SET -toMaybe'Enum 3 = Prelude'.Just MAP -toMaybe'Enum _ = Prelude'.Nothing - -instance Prelude'.Enum DataType where - fromEnum COUNTER = 1 - fromEnum SET = 2 - fromEnum MAP = 3 - toEnum - = P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type Network.Riak.Protocol.DtFetchResponse.DataType") - . toMaybe'Enum - succ COUNTER = SET - succ SET = MAP - succ _ = Prelude'.error "hprotoc generated code: succ failure for type Network.Riak.Protocol.DtFetchResponse.DataType" - pred SET = COUNTER - pred MAP = SET - pred _ = Prelude'.error "hprotoc generated code: pred failure for type Network.Riak.Protocol.DtFetchResponse.DataType" - -instance P'.Wire DataType where - wireSize ft' enum = P'.wireSize ft' (Prelude'.fromEnum enum) - wirePut ft' enum = P'.wirePut ft' (Prelude'.fromEnum enum) - wireGet 14 = P'.wireGetEnum toMaybe'Enum - wireGet ft' = P'.wireGetErr ft' - wireGetPacked 14 = P'.wireGetPackedEnum toMaybe'Enum - wireGetPacked ft' = P'.wireGetErr ft' - -instance P'.GPB DataType - -instance P'.MessageAPI msg' (msg' -> DataType) DataType where - getVal m' f' = f' m' - -instance P'.ReflectEnum DataType where - reflectEnum = [(1, "COUNTER", COUNTER), (2, "SET", SET), (3, "MAP", MAP)] - reflectEnumInfo _ - = P'.EnumInfo - (P'.makePNF (P'.pack ".Protocol.DtFetchResponse.DataType") ["Network", "Riak"] ["Protocol", "DtFetchResponse"] "DataType") - ["Network", "Riak", "Protocol", "DtFetchResponse", "DataType.hs"] - [(1, "COUNTER"), (2, "SET"), (3, "MAP")] - Prelude'.False - -instance P'.TextType DataType where - tellT = P'.tellShow - getT = P'.getRead diff --git a/src/Network/Riak/Protocol/DtOp.hs b/src/Network/Riak/Protocol/DtOp.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/DtOp.hs +++ /dev/null @@ -1,106 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.DtOp (DtOp(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.CounterOp as Protocol (CounterOp) -import qualified Network.Riak.Protocol.MapOp as Protocol (MapOp) -import qualified Network.Riak.Protocol.SetOp as Protocol (SetOp) - -data DtOp = DtOp{counter_op :: !(P'.Maybe Protocol.CounterOp), set_op :: !(P'.Maybe Protocol.SetOp), - map_op :: !(P'.Maybe Protocol.MapOp)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable DtOp where - mergeAppend (DtOp x'1 x'2 x'3) (DtOp y'1 y'2 y'3) - = DtOp (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default DtOp where - defaultValue = DtOp P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire DtOp where - wireSize ft' self'@(DtOp x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 11 x'1 + P'.wireSizeOpt 1 11 x'2 + P'.wireSizeOpt 1 11 x'3) - wirePutWithSize ft' self'@(DtOp x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutOptWithSize 10 11 x'1, P'.wirePutOptWithSize 18 11 x'2, P'.wirePutOptWithSize 26 11 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap - (\ !new'Field -> old'Self{counter_op = P'.mergeAppend (counter_op old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{set_op = P'.mergeAppend (set_op old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{map_op = P'.mergeAppend (map_op old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> DtOp) DtOp where - getVal m' f' = f' m' - -instance P'.GPB DtOp - -instance P'.ReflectDescriptor DtOp where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtOp\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtOp.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtOp.counter_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtOp\"], baseName' = FName \"counter_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.CounterOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtOp.set_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtOp\"], baseName' = FName \"set_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.SetOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtOp.map_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtOp\"], baseName' = FName \"map_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapOp\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType DtOp where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg DtOp where - textPut msg - = do - P'.tellT "counter_op" (counter_op msg) - P'.tellT "set_op" (set_op msg) - P'.tellT "map_op" (map_op msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'counter_op, parse'set_op, parse'map_op]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'counter_op - = P'.try - (do - v <- P'.getT "counter_op" - Prelude'.return (\ o -> o{counter_op = v})) - parse'set_op - = P'.try - (do - v <- P'.getT "set_op" - Prelude'.return (\ o -> o{set_op = v})) - parse'map_op - = P'.try - (do - v <- P'.getT "map_op" - Prelude'.return (\ o -> o{map_op = v})) diff --git a/src/Network/Riak/Protocol/DtUpdateRequest.hs b/src/Network/Riak/Protocol/DtUpdateRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/DtUpdateRequest.hs +++ /dev/null @@ -1,210 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.DtUpdateRequest (DtUpdateRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.DtOp as Protocol (DtOp) - -data DtUpdateRequest = DtUpdateRequest{bucket :: !(P'.ByteString), key :: !(P'.Maybe P'.ByteString), type' :: !(P'.ByteString), - context :: !(P'.Maybe P'.ByteString), op :: !(Protocol.DtOp), w :: !(P'.Maybe P'.Word32), - dw :: !(P'.Maybe P'.Word32), pw :: !(P'.Maybe P'.Word32), return_body :: !(P'.Maybe P'.Bool), - timeout :: !(P'.Maybe P'.Word32), sloppy_quorum :: !(P'.Maybe P'.Bool), - n_val :: !(P'.Maybe P'.Word32), include_context :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable DtUpdateRequest where - mergeAppend (DtUpdateRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13) - (DtUpdateRequest y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8 y'9 y'10 y'11 y'12 y'13) - = DtUpdateRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - (P'.mergeAppend x'8 y'8) - (P'.mergeAppend x'9 y'9) - (P'.mergeAppend x'10 y'10) - (P'.mergeAppend x'11 y'11) - (P'.mergeAppend x'12 y'12) - (P'.mergeAppend x'13 y'13) - -instance P'.Default DtUpdateRequest where - defaultValue - = DtUpdateRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - P'.defaultValue - (Prelude'.Just Prelude'.False) - P'.defaultValue - P'.defaultValue - P'.defaultValue - (Prelude'.Just Prelude'.True) - -instance P'.Wire DtUpdateRequest where - wireSize ft' self'@(DtUpdateRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeOpt 1 12 x'2 + P'.wireSizeReq 1 12 x'3 + P'.wireSizeOpt 1 12 x'4 + - P'.wireSizeReq 1 11 x'5 - + P'.wireSizeOpt 1 13 x'6 - + P'.wireSizeOpt 1 13 x'7 - + P'.wireSizeOpt 1 13 x'8 - + P'.wireSizeOpt 1 8 x'9 - + P'.wireSizeOpt 1 13 x'10 - + P'.wireSizeOpt 1 8 x'11 - + P'.wireSizeOpt 1 13 x'12 - + P'.wireSizeOpt 1 8 x'13) - wirePutWithSize ft' self'@(DtUpdateRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2, P'.wirePutReqWithSize 26 12 x'3, - P'.wirePutOptWithSize 34 12 x'4, P'.wirePutReqWithSize 42 11 x'5, P'.wirePutOptWithSize 48 13 x'6, - P'.wirePutOptWithSize 56 13 x'7, P'.wirePutOptWithSize 64 13 x'8, P'.wirePutOptWithSize 72 8 x'9, - P'.wirePutOptWithSize 80 13 x'10, P'.wirePutOptWithSize 88 8 x'11, P'.wirePutOptWithSize 96 13 x'12, - P'.wirePutOptWithSize 104 8 x'13] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = Prelude'.Just new'Field}) (P'.wireGet 12) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = new'Field}) (P'.wireGet 12) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{context = Prelude'.Just new'Field}) (P'.wireGet 12) - 42 -> Prelude'.fmap (\ !new'Field -> old'Self{op = P'.mergeAppend (op old'Self) (new'Field)}) (P'.wireGet 11) - 48 -> Prelude'.fmap (\ !new'Field -> old'Self{w = Prelude'.Just new'Field}) (P'.wireGet 13) - 56 -> Prelude'.fmap (\ !new'Field -> old'Self{dw = Prelude'.Just new'Field}) (P'.wireGet 13) - 64 -> Prelude'.fmap (\ !new'Field -> old'Self{pw = Prelude'.Just new'Field}) (P'.wireGet 13) - 72 -> Prelude'.fmap (\ !new'Field -> old'Self{return_body = Prelude'.Just new'Field}) (P'.wireGet 8) - 80 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - 88 -> Prelude'.fmap (\ !new'Field -> old'Self{sloppy_quorum = Prelude'.Just new'Field}) (P'.wireGet 8) - 96 -> Prelude'.fmap (\ !new'Field -> old'Self{n_val = Prelude'.Just new'Field}) (P'.wireGet 13) - 104 -> Prelude'.fmap (\ !new'Field -> old'Self{include_context = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> DtUpdateRequest) DtUpdateRequest where - getVal m' f' = f' m' - -instance P'.GPB DtUpdateRequest - -instance P'.ReflectDescriptor DtUpdateRequest where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList [10, 26, 42]) - (P'.fromDistinctAscList [10, 18, 26, 34, 42, 48, 56, 64, 72, 80, 88, 96, 104]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtUpdateRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtUpdateRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtUpdateRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.DtOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.w\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"w\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.dw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"dw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.pw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"pw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.return_body\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"return_body\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"false\", hsDefault = Just (HsDef'Bool False)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.sloppy_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"sloppy_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 96}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateRequest.include_context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateRequest\"], baseName' = FName \"include_context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 104}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"true\", hsDefault = Just (HsDef'Bool True)}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType DtUpdateRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg DtUpdateRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "key" (key msg) - P'.tellT "type" (type' msg) - P'.tellT "context" (context msg) - P'.tellT "op" (op msg) - P'.tellT "w" (w msg) - P'.tellT "dw" (dw msg) - P'.tellT "pw" (pw msg) - P'.tellT "return_body" (return_body msg) - P'.tellT "timeout" (timeout msg) - P'.tellT "sloppy_quorum" (sloppy_quorum msg) - P'.tellT "n_val" (n_val msg) - P'.tellT "include_context" (include_context msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'bucket, parse'key, parse'type', parse'context, parse'op, parse'w, parse'dw, parse'pw, parse'return_body, - parse'timeout, parse'sloppy_quorum, parse'n_val, parse'include_context]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) - parse'context - = P'.try - (do - v <- P'.getT "context" - Prelude'.return (\ o -> o{context = v})) - parse'op - = P'.try - (do - v <- P'.getT "op" - Prelude'.return (\ o -> o{op = v})) - parse'w - = P'.try - (do - v <- P'.getT "w" - Prelude'.return (\ o -> o{w = v})) - parse'dw - = P'.try - (do - v <- P'.getT "dw" - Prelude'.return (\ o -> o{dw = v})) - parse'pw - = P'.try - (do - v <- P'.getT "pw" - Prelude'.return (\ o -> o{pw = v})) - parse'return_body - = P'.try - (do - v <- P'.getT "return_body" - Prelude'.return (\ o -> o{return_body = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) - parse'sloppy_quorum - = P'.try - (do - v <- P'.getT "sloppy_quorum" - Prelude'.return (\ o -> o{sloppy_quorum = v})) - parse'n_val - = P'.try - (do - v <- P'.getT "n_val" - Prelude'.return (\ o -> o{n_val = v})) - parse'include_context - = P'.try - (do - v <- P'.getT "include_context" - Prelude'.return (\ o -> o{include_context = v})) diff --git a/src/Network/Riak/Protocol/DtUpdateResponse.hs b/src/Network/Riak/Protocol/DtUpdateResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/DtUpdateResponse.hs +++ /dev/null @@ -1,119 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.DtUpdateResponse (DtUpdateResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.MapEntry as Protocol (MapEntry) - -data DtUpdateResponse = DtUpdateResponse{key :: !(P'.Maybe P'.ByteString), context :: !(P'.Maybe P'.ByteString), - counter_value :: !(P'.Maybe P'.Int64), set_value :: !(P'.Seq P'.ByteString), - map_value :: !(P'.Seq Protocol.MapEntry)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable DtUpdateResponse where - mergeAppend (DtUpdateResponse x'1 x'2 x'3 x'4 x'5) (DtUpdateResponse y'1 y'2 y'3 y'4 y'5) - = DtUpdateResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - -instance P'.Default DtUpdateResponse where - defaultValue = DtUpdateResponse P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire DtUpdateResponse where - wireSize ft' self'@(DtUpdateResponse x'1 x'2 x'3 x'4 x'5) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeOpt 1 12 x'1 + P'.wireSizeOpt 1 12 x'2 + P'.wireSizeOpt 1 18 x'3 + P'.wireSizeRep 1 12 x'4 + - P'.wireSizeRep 1 11 x'5) - wirePutWithSize ft' self'@(DtUpdateResponse x'1 x'2 x'3 x'4 x'5) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutOptWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2, P'.wirePutOptWithSize 24 18 x'3, - P'.wirePutRepWithSize 34 12 x'4, P'.wirePutRepWithSize 42 11 x'5] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{key = Prelude'.Just new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{context = Prelude'.Just new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{counter_value = Prelude'.Just new'Field}) (P'.wireGet 18) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{set_value = P'.append (set_value old'Self) new'Field}) (P'.wireGet 12) - 42 -> Prelude'.fmap (\ !new'Field -> old'Self{map_value = P'.append (map_value old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> DtUpdateResponse) DtUpdateResponse where - getVal m' f' = f' m' - -instance P'.GPB DtUpdateResponse - -instance P'.ReflectDescriptor DtUpdateResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18, 24, 34, 42]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtUpdateResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtUpdateResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtUpdateResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateResponse.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateResponse\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateResponse.context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateResponse\"], baseName' = FName \"context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateResponse.counter_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateResponse\"], baseName' = FName \"counter_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateResponse.set_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateResponse\"], baseName' = FName \"set_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtUpdateResponse.map_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtUpdateResponse\"], baseName' = FName \"map_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapEntry\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType DtUpdateResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg DtUpdateResponse where - textPut msg - = do - P'.tellT "key" (key msg) - P'.tellT "context" (context msg) - P'.tellT "counter_value" (counter_value msg) - P'.tellT "set_value" (set_value msg) - P'.tellT "map_value" (map_value msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'key, parse'context, parse'counter_value, parse'set_value, parse'map_value]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'context - = P'.try - (do - v <- P'.getT "context" - Prelude'.return (\ o -> o{context = v})) - parse'counter_value - = P'.try - (do - v <- P'.getT "counter_value" - Prelude'.return (\ o -> o{counter_value = v})) - parse'set_value - = P'.try - (do - v <- P'.getT "set_value" - Prelude'.return (\ o -> o{set_value = P'.append (set_value o) v})) - parse'map_value - = P'.try - (do - v <- P'.getT "map_value" - Prelude'.return (\ o -> o{map_value = P'.append (map_value o) v})) diff --git a/src/Network/Riak/Protocol/DtValue.hs b/src/Network/Riak/Protocol/DtValue.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/DtValue.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.DtValue (DtValue(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.MapEntry as Protocol (MapEntry) - -data DtValue = DtValue{counter_value :: !(P'.Maybe P'.Int64), set_value :: !(P'.Seq P'.ByteString), - map_value :: !(P'.Seq Protocol.MapEntry)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable DtValue where - mergeAppend (DtValue x'1 x'2 x'3) (DtValue y'1 y'2 y'3) - = DtValue (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default DtValue where - defaultValue = DtValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire DtValue where - wireSize ft' self'@(DtValue x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 18 x'1 + P'.wireSizeRep 1 12 x'2 + P'.wireSizeRep 1 11 x'3) - wirePutWithSize ft' self'@(DtValue x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize [P'.wirePutOptWithSize 8 18 x'1, P'.wirePutRepWithSize 18 12 x'2, P'.wirePutRepWithSize 26 11 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 8 -> Prelude'.fmap (\ !new'Field -> old'Self{counter_value = Prelude'.Just new'Field}) (P'.wireGet 18) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{set_value = P'.append (set_value old'Self) new'Field}) (P'.wireGet 12) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{map_value = P'.append (map_value old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> DtValue) DtValue where - getVal m' f' = f' m' - -instance P'.GPB DtValue - -instance P'.ReflectDescriptor DtValue where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [8, 18, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.DtValue\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"DtValue\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"DtValue.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtValue.counter_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtValue\"], baseName' = FName \"counter_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtValue.set_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtValue\"], baseName' = FName \"set_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.DtValue.map_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"DtValue\"], baseName' = FName \"map_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapEntry\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType DtValue where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg DtValue where - textPut msg - = do - P'.tellT "counter_value" (counter_value msg) - P'.tellT "set_value" (set_value msg) - P'.tellT "map_value" (map_value msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'counter_value, parse'set_value, parse'map_value]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'counter_value - = P'.try - (do - v <- P'.getT "counter_value" - Prelude'.return (\ o -> o{counter_value = v})) - parse'set_value - = P'.try - (do - v <- P'.getT "set_value" - Prelude'.return (\ o -> o{set_value = P'.append (set_value o) v})) - parse'map_value - = P'.try - (do - v <- P'.getT "map_value" - Prelude'.return (\ o -> o{map_value = P'.append (map_value o) v})) diff --git a/src/Network/Riak/Protocol/ErrorResponse.hs b/src/Network/Riak/Protocol/ErrorResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/ErrorResponse.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.ErrorResponse (ErrorResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data ErrorResponse = ErrorResponse{errmsg :: !(P'.ByteString), errcode :: !(P'.Word32)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable ErrorResponse where - mergeAppend (ErrorResponse x'1 x'2) (ErrorResponse y'1 y'2) = ErrorResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default ErrorResponse where - defaultValue = ErrorResponse P'.defaultValue P'.defaultValue - -instance P'.Wire ErrorResponse where - wireSize ft' self'@(ErrorResponse x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 13 x'2) - wirePutWithSize ft' self'@(ErrorResponse x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 16 13 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{errmsg = new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{errcode = new'Field}) (P'.wireGet 13) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> ErrorResponse) ErrorResponse where - getVal m' f' = f' m' - -instance P'.GPB ErrorResponse - -instance P'.ReflectDescriptor ErrorResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 16]) (P'.fromDistinctAscList [10, 16]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ErrorResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ErrorResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ErrorResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ErrorResponse.errmsg\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ErrorResponse\"], baseName' = FName \"errmsg\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ErrorResponse.errcode\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ErrorResponse\"], baseName' = FName \"errcode\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType ErrorResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg ErrorResponse where - textPut msg - = do - P'.tellT "errmsg" (errmsg msg) - P'.tellT "errcode" (errcode msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'errmsg, parse'errcode]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'errmsg - = P'.try - (do - v <- P'.getT "errmsg" - Prelude'.return (\ o -> o{errmsg = v})) - parse'errcode - = P'.try - (do - v <- P'.getT "errcode" - Prelude'.return (\ o -> o{errcode = v})) diff --git a/src/Network/Riak/Protocol/GetBucketKeyPreflistRequest.hs b/src/Network/Riak/Protocol/GetBucketKeyPreflistRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/GetBucketKeyPreflistRequest.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.GetBucketKeyPreflistRequest (GetBucketKeyPreflistRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data GetBucketKeyPreflistRequest = GetBucketKeyPreflistRequest{bucket :: !(P'.ByteString), key :: !(P'.ByteString), - type' :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, - Prelude'.Generic) - -instance P'.Mergeable GetBucketKeyPreflistRequest where - mergeAppend (GetBucketKeyPreflistRequest x'1 x'2 x'3) (GetBucketKeyPreflistRequest y'1 y'2 y'3) - = GetBucketKeyPreflistRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default GetBucketKeyPreflistRequest where - defaultValue = GetBucketKeyPreflistRequest P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire GetBucketKeyPreflistRequest where - wireSize ft' self'@(GetBucketKeyPreflistRequest x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeOpt 1 12 x'3) - wirePutWithSize ft' self'@(GetBucketKeyPreflistRequest x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutOptWithSize 26 12 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = new'Field}) (P'.wireGet 12) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> GetBucketKeyPreflistRequest) GetBucketKeyPreflistRequest where - getVal m' f' = f' m' - -instance P'.GPB GetBucketKeyPreflistRequest - -instance P'.ReflectDescriptor GetBucketKeyPreflistRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) (P'.fromDistinctAscList [10, 18, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetBucketKeyPreflistRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetBucketKeyPreflistRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetBucketKeyPreflistRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketKeyPreflistRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketKeyPreflistRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketKeyPreflistRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketKeyPreflistRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketKeyPreflistRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketKeyPreflistRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType GetBucketKeyPreflistRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg GetBucketKeyPreflistRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "key" (key msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'bucket, parse'key, parse'type']) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/GetBucketKeyPreflistResponse.hs b/src/Network/Riak/Protocol/GetBucketKeyPreflistResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/GetBucketKeyPreflistResponse.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.GetBucketKeyPreflistResponse (GetBucketKeyPreflistResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.BucketKeyPreflistItem as Protocol (BucketKeyPreflistItem) - -data GetBucketKeyPreflistResponse = GetBucketKeyPreflistResponse{preflist :: !(P'.Seq Protocol.BucketKeyPreflistItem)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, - Prelude'.Generic) - -instance P'.Mergeable GetBucketKeyPreflistResponse where - mergeAppend (GetBucketKeyPreflistResponse x'1) (GetBucketKeyPreflistResponse y'1) - = GetBucketKeyPreflistResponse (P'.mergeAppend x'1 y'1) - -instance P'.Default GetBucketKeyPreflistResponse where - defaultValue = GetBucketKeyPreflistResponse P'.defaultValue - -instance P'.Wire GetBucketKeyPreflistResponse where - wireSize ft' self'@(GetBucketKeyPreflistResponse x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1) - wirePutWithSize ft' self'@(GetBucketKeyPreflistResponse x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{preflist = P'.append (preflist old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> GetBucketKeyPreflistResponse) GetBucketKeyPreflistResponse where - getVal m' f' = f' m' - -instance P'.GPB GetBucketKeyPreflistResponse - -instance P'.ReflectDescriptor GetBucketKeyPreflistResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetBucketKeyPreflistResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetBucketKeyPreflistResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetBucketKeyPreflistResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketKeyPreflistResponse.preflist\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketKeyPreflistResponse\"], baseName' = FName \"preflist\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.BucketKeyPreflistItem\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketKeyPreflistItem\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType GetBucketKeyPreflistResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg GetBucketKeyPreflistResponse where - textPut msg - = do - P'.tellT "preflist" (preflist msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'preflist]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'preflist - = P'.try - (do - v <- P'.getT "preflist" - Prelude'.return (\ o -> o{preflist = P'.append (preflist o) v})) diff --git a/src/Network/Riak/Protocol/GetBucketRequest.hs b/src/Network/Riak/Protocol/GetBucketRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/GetBucketRequest.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.GetBucketRequest (GetBucketRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data GetBucketRequest = GetBucketRequest{bucket :: !(P'.ByteString), type' :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable GetBucketRequest where - mergeAppend (GetBucketRequest x'1 x'2) (GetBucketRequest y'1 y'2) - = GetBucketRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default GetBucketRequest where - defaultValue = GetBucketRequest P'.defaultValue P'.defaultValue - -instance P'.Wire GetBucketRequest where - wireSize ft' self'@(GetBucketRequest x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeOpt 1 12 x'2) - wirePutWithSize ft' self'@(GetBucketRequest x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> GetBucketRequest) GetBucketRequest where - getVal m' f' = f' m' - -instance P'.GPB GetBucketRequest - -instance P'.ReflectDescriptor GetBucketRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetBucketRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetBucketRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetBucketRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType GetBucketRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg GetBucketRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'bucket, parse'type']) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/GetBucketResponse.hs b/src/Network/Riak/Protocol/GetBucketResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/GetBucketResponse.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.GetBucketResponse (GetBucketResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.BucketProps as Protocol (BucketProps) - -data GetBucketResponse = GetBucketResponse{props :: !(Protocol.BucketProps)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable GetBucketResponse where - mergeAppend (GetBucketResponse x'1) (GetBucketResponse y'1) = GetBucketResponse (P'.mergeAppend x'1 y'1) - -instance P'.Default GetBucketResponse where - defaultValue = GetBucketResponse P'.defaultValue - -instance P'.Wire GetBucketResponse where - wireSize ft' self'@(GetBucketResponse x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 11 x'1) - wirePutWithSize ft' self'@(GetBucketResponse x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 11 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{props = P'.mergeAppend (props old'Self) (new'Field)}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> GetBucketResponse) GetBucketResponse where - getVal m' f' = f' m' - -instance P'.GPB GetBucketResponse - -instance P'.ReflectDescriptor GetBucketResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetBucketResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetBucketResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetBucketResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketResponse.props\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketResponse\"], baseName' = FName \"props\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.BucketProps\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketProps\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType GetBucketResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg GetBucketResponse where - textPut msg - = do - P'.tellT "props" (props msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'props]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'props - = P'.try - (do - v <- P'.getT "props" - Prelude'.return (\ o -> o{props = v})) diff --git a/src/Network/Riak/Protocol/GetBucketTypeRequest.hs b/src/Network/Riak/Protocol/GetBucketTypeRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/GetBucketTypeRequest.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.GetBucketTypeRequest (GetBucketTypeRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data GetBucketTypeRequest = GetBucketTypeRequest{type' :: !(P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable GetBucketTypeRequest where - mergeAppend (GetBucketTypeRequest x'1) (GetBucketTypeRequest y'1) = GetBucketTypeRequest (P'.mergeAppend x'1 y'1) - -instance P'.Default GetBucketTypeRequest where - defaultValue = GetBucketTypeRequest P'.defaultValue - -instance P'.Wire GetBucketTypeRequest where - wireSize ft' self'@(GetBucketTypeRequest x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1) - wirePutWithSize ft' self'@(GetBucketTypeRequest x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> GetBucketTypeRequest) GetBucketTypeRequest where - getVal m' f' = f' m' - -instance P'.GPB GetBucketTypeRequest - -instance P'.ReflectDescriptor GetBucketTypeRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetBucketTypeRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetBucketTypeRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetBucketTypeRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetBucketTypeRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetBucketTypeRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType GetBucketTypeRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg GetBucketTypeRequest where - textPut msg - = do - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'type']) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/GetClientIDRequest.hs b/src/Network/Riak/Protocol/GetClientIDRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/GetClientIDRequest.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.GetClientIDRequest (GetClientIDRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data GetClientIDRequest = GetClientIDRequest{} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable GetClientIDRequest where - mergeAppend GetClientIDRequest GetClientIDRequest = GetClientIDRequest - -instance P'.Default GetClientIDRequest where - defaultValue = GetClientIDRequest - -instance P'.Wire GetClientIDRequest where - wireSize ft' self'@(GetClientIDRequest) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = 0 - wirePutWithSize ft' self'@(GetClientIDRequest) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> GetClientIDRequest) GetClientIDRequest where - getVal m' f' = f' m' - -instance P'.GPB GetClientIDRequest - -instance P'.ReflectDescriptor GetClientIDRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList []) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetClientIDRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetClientIDRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetClientIDRequest.hs\"], isGroup = False, fields = fromList [], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType GetClientIDRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg GetClientIDRequest where - textPut msg = Prelude'.return () - textGet = Prelude'.return P'.defaultValue - where diff --git a/src/Network/Riak/Protocol/GetClientIDResponse.hs b/src/Network/Riak/Protocol/GetClientIDResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/GetClientIDResponse.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.GetClientIDResponse (GetClientIDResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data GetClientIDResponse = GetClientIDResponse{client_id :: !(P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable GetClientIDResponse where - mergeAppend (GetClientIDResponse x'1) (GetClientIDResponse y'1) = GetClientIDResponse (P'.mergeAppend x'1 y'1) - -instance P'.Default GetClientIDResponse where - defaultValue = GetClientIDResponse P'.defaultValue - -instance P'.Wire GetClientIDResponse where - wireSize ft' self'@(GetClientIDResponse x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1) - wirePutWithSize ft' self'@(GetClientIDResponse x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{client_id = new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> GetClientIDResponse) GetClientIDResponse where - getVal m' f' = f' m' - -instance P'.GPB GetClientIDResponse - -instance P'.ReflectDescriptor GetClientIDResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetClientIDResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetClientIDResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetClientIDResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetClientIDResponse.client_id\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetClientIDResponse\"], baseName' = FName \"client_id\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType GetClientIDResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg GetClientIDResponse where - textPut msg - = do - P'.tellT "client_id" (client_id msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'client_id]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'client_id - = P'.try - (do - v <- P'.getT "client_id" - Prelude'.return (\ o -> o{client_id = v})) diff --git a/src/Network/Riak/Protocol/GetRequest.hs b/src/Network/Riak/Protocol/GetRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/GetRequest.hs +++ /dev/null @@ -1,210 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.GetRequest (GetRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data GetRequest = GetRequest{bucket :: !(P'.ByteString), key :: !(P'.ByteString), r :: !(P'.Maybe P'.Word32), - pr :: !(P'.Maybe P'.Word32), basic_quorum :: !(P'.Maybe P'.Bool), notfound_ok :: !(P'.Maybe P'.Bool), - if_modified :: !(P'.Maybe P'.ByteString), head :: !(P'.Maybe P'.Bool), - deletedvclock :: !(P'.Maybe P'.Bool), timeout :: !(P'.Maybe P'.Word32), - sloppy_quorum :: !(P'.Maybe P'.Bool), n_val :: !(P'.Maybe P'.Word32), - type' :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable GetRequest where - mergeAppend (GetRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13) - (GetRequest y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8 y'9 y'10 y'11 y'12 y'13) - = GetRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - (P'.mergeAppend x'8 y'8) - (P'.mergeAppend x'9 y'9) - (P'.mergeAppend x'10 y'10) - (P'.mergeAppend x'11 y'11) - (P'.mergeAppend x'12 y'12) - (P'.mergeAppend x'13 y'13) - -instance P'.Default GetRequest where - defaultValue - = GetRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - -instance P'.Wire GetRequest where - wireSize ft' self'@(GetRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeOpt 1 13 x'3 + P'.wireSizeOpt 1 13 x'4 + - P'.wireSizeOpt 1 8 x'5 - + P'.wireSizeOpt 1 8 x'6 - + P'.wireSizeOpt 1 12 x'7 - + P'.wireSizeOpt 1 8 x'8 - + P'.wireSizeOpt 1 8 x'9 - + P'.wireSizeOpt 1 13 x'10 - + P'.wireSizeOpt 1 8 x'11 - + P'.wireSizeOpt 1 13 x'12 - + P'.wireSizeOpt 1 12 x'13) - wirePutWithSize ft' self'@(GetRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutOptWithSize 24 13 x'3, - P'.wirePutOptWithSize 32 13 x'4, P'.wirePutOptWithSize 40 8 x'5, P'.wirePutOptWithSize 48 8 x'6, - P'.wirePutOptWithSize 58 12 x'7, P'.wirePutOptWithSize 64 8 x'8, P'.wirePutOptWithSize 72 8 x'9, - P'.wirePutOptWithSize 80 13 x'10, P'.wirePutOptWithSize 88 8 x'11, P'.wirePutOptWithSize 96 13 x'12, - P'.wirePutOptWithSize 106 12 x'13] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{r = Prelude'.Just new'Field}) (P'.wireGet 13) - 32 -> Prelude'.fmap (\ !new'Field -> old'Self{pr = Prelude'.Just new'Field}) (P'.wireGet 13) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{basic_quorum = Prelude'.Just new'Field}) (P'.wireGet 8) - 48 -> Prelude'.fmap (\ !new'Field -> old'Self{notfound_ok = Prelude'.Just new'Field}) (P'.wireGet 8) - 58 -> Prelude'.fmap (\ !new'Field -> old'Self{if_modified = Prelude'.Just new'Field}) (P'.wireGet 12) - 64 -> Prelude'.fmap (\ !new'Field -> old'Self{head = Prelude'.Just new'Field}) (P'.wireGet 8) - 72 -> Prelude'.fmap (\ !new'Field -> old'Self{deletedvclock = Prelude'.Just new'Field}) (P'.wireGet 8) - 80 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - 88 -> Prelude'.fmap (\ !new'Field -> old'Self{sloppy_quorum = Prelude'.Just new'Field}) (P'.wireGet 8) - 96 -> Prelude'.fmap (\ !new'Field -> old'Self{n_val = Prelude'.Just new'Field}) (P'.wireGet 13) - 106 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> GetRequest) GetRequest where - getVal m' f' = f' m' - -instance P'.GPB GetRequest - -instance P'.ReflectDescriptor GetRequest where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) - (P'.fromDistinctAscList [10, 18, 24, 32, 40, 48, 58, 64, 72, 80, 88, 96, 106]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.r\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"r\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.pr\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"pr\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.basic_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"basic_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.notfound_ok\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"notfound_ok\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.if_modified\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"if_modified\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 58}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.head\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"head\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.deletedvclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"deletedvclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.sloppy_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"sloppy_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 96}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 106}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType GetRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg GetRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "key" (key msg) - P'.tellT "r" (r msg) - P'.tellT "pr" (pr msg) - P'.tellT "basic_quorum" (basic_quorum msg) - P'.tellT "notfound_ok" (notfound_ok msg) - P'.tellT "if_modified" (if_modified msg) - P'.tellT "head" (head msg) - P'.tellT "deletedvclock" (deletedvclock msg) - P'.tellT "timeout" (timeout msg) - P'.tellT "sloppy_quorum" (sloppy_quorum msg) - P'.tellT "n_val" (n_val msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'bucket, parse'key, parse'r, parse'pr, parse'basic_quorum, parse'notfound_ok, parse'if_modified, parse'head, - parse'deletedvclock, parse'timeout, parse'sloppy_quorum, parse'n_val, parse'type']) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'r - = P'.try - (do - v <- P'.getT "r" - Prelude'.return (\ o -> o{r = v})) - parse'pr - = P'.try - (do - v <- P'.getT "pr" - Prelude'.return (\ o -> o{pr = v})) - parse'basic_quorum - = P'.try - (do - v <- P'.getT "basic_quorum" - Prelude'.return (\ o -> o{basic_quorum = v})) - parse'notfound_ok - = P'.try - (do - v <- P'.getT "notfound_ok" - Prelude'.return (\ o -> o{notfound_ok = v})) - parse'if_modified - = P'.try - (do - v <- P'.getT "if_modified" - Prelude'.return (\ o -> o{if_modified = v})) - parse'head - = P'.try - (do - v <- P'.getT "head" - Prelude'.return (\ o -> o{head = v})) - parse'deletedvclock - = P'.try - (do - v <- P'.getT "deletedvclock" - Prelude'.return (\ o -> o{deletedvclock = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) - parse'sloppy_quorum - = P'.try - (do - v <- P'.getT "sloppy_quorum" - Prelude'.return (\ o -> o{sloppy_quorum = v})) - parse'n_val - = P'.try - (do - v <- P'.getT "n_val" - Prelude'.return (\ o -> o{n_val = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/GetResponse.hs b/src/Network/Riak/Protocol/GetResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/GetResponse.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.GetResponse (GetResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.Content as Protocol (Content) - -data GetResponse = GetResponse{content :: !(P'.Seq Protocol.Content), vclock :: !(P'.Maybe P'.ByteString), - unchanged :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable GetResponse where - mergeAppend (GetResponse x'1 x'2 x'3) (GetResponse y'1 y'2 y'3) - = GetResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default GetResponse where - defaultValue = GetResponse P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire GetResponse where - wireSize ft' self'@(GetResponse x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1 + P'.wireSizeOpt 1 12 x'2 + P'.wireSizeOpt 1 8 x'3) - wirePutWithSize ft' self'@(GetResponse x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1, P'.wirePutOptWithSize 18 12 x'2, P'.wirePutOptWithSize 24 8 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{content = P'.append (content old'Self) new'Field}) (P'.wireGet 11) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{vclock = Prelude'.Just new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{unchanged = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> GetResponse) GetResponse where - getVal m' f' = f' m' - -instance P'.GPB GetResponse - -instance P'.ReflectDescriptor GetResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18, 24]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetResponse.content\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetResponse\"], baseName' = FName \"content\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Content\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Content\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetResponse.vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetResponse\"], baseName' = FName \"vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.GetResponse.unchanged\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"GetResponse\"], baseName' = FName \"unchanged\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType GetResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg GetResponse where - textPut msg - = do - P'.tellT "content" (content msg) - P'.tellT "vclock" (vclock msg) - P'.tellT "unchanged" (unchanged msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'content, parse'vclock, parse'unchanged]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'content - = P'.try - (do - v <- P'.getT "content" - Prelude'.return (\ o -> o{content = P'.append (content o) v})) - parse'vclock - = P'.try - (do - v <- P'.getT "vclock" - Prelude'.return (\ o -> o{vclock = v})) - parse'unchanged - = P'.try - (do - v <- P'.getT "unchanged" - Prelude'.return (\ o -> o{unchanged = v})) diff --git a/src/Network/Riak/Protocol/GetServerInfoRequest.hs b/src/Network/Riak/Protocol/GetServerInfoRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/GetServerInfoRequest.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.GetServerInfoRequest (GetServerInfoRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data GetServerInfoRequest = GetServerInfoRequest{} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable GetServerInfoRequest where - mergeAppend GetServerInfoRequest GetServerInfoRequest = GetServerInfoRequest - -instance P'.Default GetServerInfoRequest where - defaultValue = GetServerInfoRequest - -instance P'.Wire GetServerInfoRequest where - wireSize ft' self'@(GetServerInfoRequest) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = 0 - wirePutWithSize ft' self'@(GetServerInfoRequest) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> GetServerInfoRequest) GetServerInfoRequest where - getVal m' f' = f' m' - -instance P'.GPB GetServerInfoRequest - -instance P'.ReflectDescriptor GetServerInfoRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList []) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.GetServerInfoRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetServerInfoRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"GetServerInfoRequest.hs\"], isGroup = False, fields = fromList [], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType GetServerInfoRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg GetServerInfoRequest where - textPut msg = Prelude'.return () - textGet = Prelude'.return P'.defaultValue - where diff --git a/src/Network/Riak/Protocol/IndexObject.hs b/src/Network/Riak/Protocol/IndexObject.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/IndexObject.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.IndexObject (IndexObject(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.GetResponse as Protocol (GetResponse) - -data IndexObject = IndexObject{key :: !(P'.ByteString), object :: !(Protocol.GetResponse)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable IndexObject where - mergeAppend (IndexObject x'1 x'2) (IndexObject y'1 y'2) = IndexObject (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default IndexObject where - defaultValue = IndexObject P'.defaultValue P'.defaultValue - -instance P'.Wire IndexObject where - wireSize ft' self'@(IndexObject x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 11 x'2) - wirePutWithSize ft' self'@(IndexObject x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 11 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{key = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{object = P'.mergeAppend (object old'Self) (new'Field)}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> IndexObject) IndexObject where - getVal m' f' = f' m' - -instance P'.GPB IndexObject - -instance P'.ReflectDescriptor IndexObject where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.IndexObject\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"IndexObject\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"IndexObject.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexObject.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexObject\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexObject.object\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexObject\"], baseName' = FName \"object\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.GetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"GetResponse\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType IndexObject where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg IndexObject where - textPut msg - = do - P'.tellT "key" (key msg) - P'.tellT "object" (object msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'key, parse'object]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'object - = P'.try - (do - v <- P'.getT "object" - Prelude'.return (\ o -> o{object = v})) diff --git a/src/Network/Riak/Protocol/IndexRequest.hs b/src/Network/Riak/Protocol/IndexRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/IndexRequest.hs +++ /dev/null @@ -1,223 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.IndexRequest (IndexRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.IndexRequest.IndexQueryType as Protocol.IndexRequest (IndexQueryType) - -data IndexRequest = IndexRequest{bucket :: !(P'.ByteString), index :: !(P'.ByteString), - qtype :: !(Protocol.IndexRequest.IndexQueryType), key :: !(P'.Maybe P'.ByteString), - range_min :: !(P'.Maybe P'.ByteString), range_max :: !(P'.Maybe P'.ByteString), - return_terms :: !(P'.Maybe P'.Bool), stream :: !(P'.Maybe P'.Bool), - max_results :: !(P'.Maybe P'.Word32), continuation :: !(P'.Maybe P'.ByteString), - timeout :: !(P'.Maybe P'.Word32), type' :: !(P'.Maybe P'.ByteString), - term_regex :: !(P'.Maybe P'.ByteString), pagination_sort :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable IndexRequest where - mergeAppend (IndexRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13 x'14) - (IndexRequest y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8 y'9 y'10 y'11 y'12 y'13 y'14) - = IndexRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - (P'.mergeAppend x'8 y'8) - (P'.mergeAppend x'9 y'9) - (P'.mergeAppend x'10 y'10) - (P'.mergeAppend x'11 y'11) - (P'.mergeAppend x'12 y'12) - (P'.mergeAppend x'13 y'13) - (P'.mergeAppend x'14 y'14) - -instance P'.Default IndexRequest where - defaultValue - = IndexRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - -instance P'.Wire IndexRequest where - wireSize ft' self'@(IndexRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13 x'14) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeReq 1 14 x'3 + P'.wireSizeOpt 1 12 x'4 + - P'.wireSizeOpt 1 12 x'5 - + P'.wireSizeOpt 1 12 x'6 - + P'.wireSizeOpt 1 8 x'7 - + P'.wireSizeOpt 1 8 x'8 - + P'.wireSizeOpt 1 13 x'9 - + P'.wireSizeOpt 1 12 x'10 - + P'.wireSizeOpt 1 13 x'11 - + P'.wireSizeOpt 1 12 x'12 - + P'.wireSizeOpt 1 12 x'13 - + P'.wireSizeOpt 1 8 x'14) - wirePutWithSize ft' self'@(IndexRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13 x'14) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutReqWithSize 24 14 x'3, - P'.wirePutOptWithSize 34 12 x'4, P'.wirePutOptWithSize 42 12 x'5, P'.wirePutOptWithSize 50 12 x'6, - P'.wirePutOptWithSize 56 8 x'7, P'.wirePutOptWithSize 64 8 x'8, P'.wirePutOptWithSize 72 13 x'9, - P'.wirePutOptWithSize 82 12 x'10, P'.wirePutOptWithSize 88 13 x'11, P'.wirePutOptWithSize 98 12 x'12, - P'.wirePutOptWithSize 106 12 x'13, P'.wirePutOptWithSize 112 8 x'14] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{index = new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{qtype = new'Field}) (P'.wireGet 14) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{key = Prelude'.Just new'Field}) (P'.wireGet 12) - 42 -> Prelude'.fmap (\ !new'Field -> old'Self{range_min = Prelude'.Just new'Field}) (P'.wireGet 12) - 50 -> Prelude'.fmap (\ !new'Field -> old'Self{range_max = Prelude'.Just new'Field}) (P'.wireGet 12) - 56 -> Prelude'.fmap (\ !new'Field -> old'Self{return_terms = Prelude'.Just new'Field}) (P'.wireGet 8) - 64 -> Prelude'.fmap (\ !new'Field -> old'Self{stream = Prelude'.Just new'Field}) (P'.wireGet 8) - 72 -> Prelude'.fmap (\ !new'Field -> old'Self{max_results = Prelude'.Just new'Field}) (P'.wireGet 13) - 82 -> Prelude'.fmap (\ !new'Field -> old'Self{continuation = Prelude'.Just new'Field}) (P'.wireGet 12) - 88 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - 98 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - 106 -> Prelude'.fmap (\ !new'Field -> old'Self{term_regex = Prelude'.Just new'Field}) (P'.wireGet 12) - 112 -> Prelude'.fmap (\ !new'Field -> old'Self{pagination_sort = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> IndexRequest) IndexRequest where - getVal m' f' = f' m' - -instance P'.GPB IndexRequest - -instance P'.ReflectDescriptor IndexRequest where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18, 24]) - (P'.fromDistinctAscList [10, 18, 24, 34, 42, 50, 56, 64, 72, 82, 88, 98, 106, 112]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.IndexRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"IndexRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"IndexRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.index\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"index\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.qtype\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"qtype\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.IndexRequest.IndexQueryType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"IndexRequest\"], baseName = MName \"IndexQueryType\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.range_min\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"range_min\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.range_max\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"range_max\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.return_terms\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"return_terms\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.stream\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"stream\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.max_results\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"max_results\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.continuation\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"continuation\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 82}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 98}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.term_regex\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"term_regex\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 106}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexRequest.pagination_sort\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexRequest\"], baseName' = FName \"pagination_sort\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 14}, wireTag = WireTag {getWireTag = 112}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType IndexRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg IndexRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "index" (index msg) - P'.tellT "qtype" (qtype msg) - P'.tellT "key" (key msg) - P'.tellT "range_min" (range_min msg) - P'.tellT "range_max" (range_max msg) - P'.tellT "return_terms" (return_terms msg) - P'.tellT "stream" (stream msg) - P'.tellT "max_results" (max_results msg) - P'.tellT "continuation" (continuation msg) - P'.tellT "timeout" (timeout msg) - P'.tellT "type" (type' msg) - P'.tellT "term_regex" (term_regex msg) - P'.tellT "pagination_sort" (pagination_sort msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'bucket, parse'index, parse'qtype, parse'key, parse'range_min, parse'range_max, parse'return_terms, - parse'stream, parse'max_results, parse'continuation, parse'timeout, parse'type', parse'term_regex, - parse'pagination_sort]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'index - = P'.try - (do - v <- P'.getT "index" - Prelude'.return (\ o -> o{index = v})) - parse'qtype - = P'.try - (do - v <- P'.getT "qtype" - Prelude'.return (\ o -> o{qtype = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'range_min - = P'.try - (do - v <- P'.getT "range_min" - Prelude'.return (\ o -> o{range_min = v})) - parse'range_max - = P'.try - (do - v <- P'.getT "range_max" - Prelude'.return (\ o -> o{range_max = v})) - parse'return_terms - = P'.try - (do - v <- P'.getT "return_terms" - Prelude'.return (\ o -> o{return_terms = v})) - parse'stream - = P'.try - (do - v <- P'.getT "stream" - Prelude'.return (\ o -> o{stream = v})) - parse'max_results - = P'.try - (do - v <- P'.getT "max_results" - Prelude'.return (\ o -> o{max_results = v})) - parse'continuation - = P'.try - (do - v <- P'.getT "continuation" - Prelude'.return (\ o -> o{continuation = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) - parse'term_regex - = P'.try - (do - v <- P'.getT "term_regex" - Prelude'.return (\ o -> o{term_regex = v})) - parse'pagination_sort - = P'.try - (do - v <- P'.getT "pagination_sort" - Prelude'.return (\ o -> o{pagination_sort = v})) diff --git a/src/Network/Riak/Protocol/IndexRequest/IndexQueryType.hs b/src/Network/Riak/Protocol/IndexRequest/IndexQueryType.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/IndexRequest/IndexQueryType.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.IndexRequest.IndexQueryType (IndexQueryType(..)) where -import Prelude ((+), (/), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data IndexQueryType = Eq - | Range - deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, - Prelude'.Generic) - -instance P'.Mergeable IndexQueryType - -instance Prelude'.Bounded IndexQueryType where - minBound = Eq - maxBound = Range - -instance P'.Default IndexQueryType where - defaultValue = Eq - -toMaybe'Enum :: Prelude'.Int -> P'.Maybe IndexQueryType -toMaybe'Enum 0 = Prelude'.Just Eq -toMaybe'Enum 1 = Prelude'.Just Range -toMaybe'Enum _ = Prelude'.Nothing - -instance Prelude'.Enum IndexQueryType where - fromEnum Eq = 0 - fromEnum Range = 1 - toEnum - = P'.fromMaybe - (Prelude'.error "hprotoc generated code: toEnum failure for type Network.Riak.Protocol.IndexRequest.IndexQueryType") - . toMaybe'Enum - succ Eq = Range - succ _ = Prelude'.error "hprotoc generated code: succ failure for type Network.Riak.Protocol.IndexRequest.IndexQueryType" - pred Range = Eq - pred _ = Prelude'.error "hprotoc generated code: pred failure for type Network.Riak.Protocol.IndexRequest.IndexQueryType" - -instance P'.Wire IndexQueryType where - wireSize ft' enum = P'.wireSize ft' (Prelude'.fromEnum enum) - wirePut ft' enum = P'.wirePut ft' (Prelude'.fromEnum enum) - wireGet 14 = P'.wireGetEnum toMaybe'Enum - wireGet ft' = P'.wireGetErr ft' - wireGetPacked 14 = P'.wireGetPackedEnum toMaybe'Enum - wireGetPacked ft' = P'.wireGetErr ft' - -instance P'.GPB IndexQueryType - -instance P'.MessageAPI msg' (msg' -> IndexQueryType) IndexQueryType where - getVal m' f' = f' m' - -instance P'.ReflectEnum IndexQueryType where - reflectEnum = [(0, "Eq", Eq), (1, "Range", Range)] - reflectEnumInfo _ - = P'.EnumInfo - (P'.makePNF (P'.pack ".Protocol.IndexRequest.IndexQueryType") ["Network", "Riak"] ["Protocol", "IndexRequest"] - "IndexQueryType") - ["Network", "Riak", "Protocol", "IndexRequest", "IndexQueryType.hs"] - [(0, "Eq"), (1, "Range")] - Prelude'.False - -instance P'.TextType IndexQueryType where - tellT = P'.tellShow - getT = P'.getRead diff --git a/src/Network/Riak/Protocol/IndexResponse.hs b/src/Network/Riak/Protocol/IndexResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/IndexResponse.hs +++ /dev/null @@ -1,108 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.IndexResponse (IndexResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.Pair as Protocol (Pair) - -data IndexResponse = IndexResponse{keys :: !(P'.Seq P'.ByteString), results :: !(P'.Seq Protocol.Pair), - continuation :: !(P'.Maybe P'.ByteString), done :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable IndexResponse where - mergeAppend (IndexResponse x'1 x'2 x'3 x'4) (IndexResponse y'1 y'2 y'3 y'4) - = IndexResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - -instance P'.Default IndexResponse where - defaultValue = IndexResponse P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire IndexResponse where - wireSize ft' self'@(IndexResponse x'1 x'2 x'3 x'4) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 12 x'1 + P'.wireSizeRep 1 11 x'2 + P'.wireSizeOpt 1 12 x'3 + P'.wireSizeOpt 1 8 x'4) - wirePutWithSize ft' self'@(IndexResponse x'1 x'2 x'3 x'4) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutRepWithSize 10 12 x'1, P'.wirePutRepWithSize 18 11 x'2, P'.wirePutOptWithSize 26 12 x'3, - P'.wirePutOptWithSize 32 8 x'4] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{keys = P'.append (keys old'Self) new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{results = P'.append (results old'Self) new'Field}) (P'.wireGet 11) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{continuation = Prelude'.Just new'Field}) (P'.wireGet 12) - 32 -> Prelude'.fmap (\ !new'Field -> old'Self{done = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> IndexResponse) IndexResponse where - getVal m' f' = f' m' - -instance P'.GPB IndexResponse - -instance P'.ReflectDescriptor IndexResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18, 26, 32]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.IndexResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"IndexResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"IndexResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexResponse.keys\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexResponse\"], baseName' = FName \"keys\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexResponse.results\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexResponse\"], baseName' = FName \"results\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexResponse.continuation\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexResponse\"], baseName' = FName \"continuation\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.IndexResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"IndexResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType IndexResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg IndexResponse where - textPut msg - = do - P'.tellT "keys" (keys msg) - P'.tellT "results" (results msg) - P'.tellT "continuation" (continuation msg) - P'.tellT "done" (done msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'keys, parse'results, parse'continuation, parse'done]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'keys - = P'.try - (do - v <- P'.getT "keys" - Prelude'.return (\ o -> o{keys = P'.append (keys o) v})) - parse'results - = P'.try - (do - v <- P'.getT "results" - Prelude'.return (\ o -> o{results = P'.append (results o) v})) - parse'continuation - = P'.try - (do - v <- P'.getT "continuation" - Prelude'.return (\ o -> o{continuation = v})) - parse'done - = P'.try - (do - v <- P'.getT "done" - Prelude'.return (\ o -> o{done = v})) diff --git a/src/Network/Riak/Protocol/Link.hs b/src/Network/Riak/Protocol/Link.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/Link.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.Link (Link(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data Link = Link{bucket :: !(P'.Maybe P'.ByteString), key :: !(P'.Maybe P'.ByteString), tag :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable Link where - mergeAppend (Link x'1 x'2 x'3) (Link y'1 y'2 y'3) - = Link (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default Link where - defaultValue = Link P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire Link where - wireSize ft' self'@(Link x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 12 x'1 + P'.wireSizeOpt 1 12 x'2 + P'.wireSizeOpt 1 12 x'3) - wirePutWithSize ft' self'@(Link x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutOptWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2, P'.wirePutOptWithSize 26 12 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = Prelude'.Just new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = Prelude'.Just new'Field}) (P'.wireGet 12) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{tag = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> Link) Link where - getVal m' f' = f' m' - -instance P'.GPB Link - -instance P'.ReflectDescriptor Link where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.Link\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Link\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"Link.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Link.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Link\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Link.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Link\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Link.tag\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Link\"], baseName' = FName \"tag\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType Link where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg Link where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "key" (key msg) - P'.tellT "tag" (tag msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'bucket, parse'key, parse'tag]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'tag - = P'.try - (do - v <- P'.getT "tag" - Prelude'.return (\ o -> o{tag = v})) diff --git a/src/Network/Riak/Protocol/ListBucketsRequest.hs b/src/Network/Riak/Protocol/ListBucketsRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/ListBucketsRequest.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.ListBucketsRequest (ListBucketsRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data ListBucketsRequest = ListBucketsRequest{timeout :: !(P'.Maybe P'.Word32), stream :: !(P'.Maybe P'.Bool), - type' :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable ListBucketsRequest where - mergeAppend (ListBucketsRequest x'1 x'2 x'3) (ListBucketsRequest y'1 y'2 y'3) - = ListBucketsRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default ListBucketsRequest where - defaultValue = ListBucketsRequest P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire ListBucketsRequest where - wireSize ft' self'@(ListBucketsRequest x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 13 x'1 + P'.wireSizeOpt 1 8 x'2 + P'.wireSizeOpt 1 12 x'3) - wirePutWithSize ft' self'@(ListBucketsRequest x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize [P'.wirePutOptWithSize 8 13 x'1, P'.wirePutOptWithSize 16 8 x'2, P'.wirePutOptWithSize 26 12 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 8 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{stream = Prelude'.Just new'Field}) (P'.wireGet 8) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> ListBucketsRequest) ListBucketsRequest where - getVal m' f' = f' m' - -instance P'.GPB ListBucketsRequest - -instance P'.ReflectDescriptor ListBucketsRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [8, 16, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ListBucketsRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ListBucketsRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ListBucketsRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListBucketsRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListBucketsRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListBucketsRequest.stream\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListBucketsRequest\"], baseName' = FName \"stream\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListBucketsRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListBucketsRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType ListBucketsRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg ListBucketsRequest where - textPut msg - = do - P'.tellT "timeout" (timeout msg) - P'.tellT "stream" (stream msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'timeout, parse'stream, parse'type']) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) - parse'stream - = P'.try - (do - v <- P'.getT "stream" - Prelude'.return (\ o -> o{stream = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/ListBucketsResponse.hs b/src/Network/Riak/Protocol/ListBucketsResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/ListBucketsResponse.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.ListBucketsResponse (ListBucketsResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data ListBucketsResponse = ListBucketsResponse{buckets :: !(P'.Seq P'.ByteString), done :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable ListBucketsResponse where - mergeAppend (ListBucketsResponse x'1 x'2) (ListBucketsResponse y'1 y'2) - = ListBucketsResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default ListBucketsResponse where - defaultValue = ListBucketsResponse P'.defaultValue P'.defaultValue - -instance P'.Wire ListBucketsResponse where - wireSize ft' self'@(ListBucketsResponse x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 12 x'1 + P'.wireSizeOpt 1 8 x'2) - wirePutWithSize ft' self'@(ListBucketsResponse x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 12 x'1, P'.wirePutOptWithSize 16 8 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{buckets = P'.append (buckets old'Self) new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{done = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> ListBucketsResponse) ListBucketsResponse where - getVal m' f' = f' m' - -instance P'.GPB ListBucketsResponse - -instance P'.ReflectDescriptor ListBucketsResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 16]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ListBucketsResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ListBucketsResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ListBucketsResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListBucketsResponse.buckets\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListBucketsResponse\"], baseName' = FName \"buckets\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListBucketsResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListBucketsResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType ListBucketsResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg ListBucketsResponse where - textPut msg - = do - P'.tellT "buckets" (buckets msg) - P'.tellT "done" (done msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'buckets, parse'done]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'buckets - = P'.try - (do - v <- P'.getT "buckets" - Prelude'.return (\ o -> o{buckets = P'.append (buckets o) v})) - parse'done - = P'.try - (do - v <- P'.getT "done" - Prelude'.return (\ o -> o{done = v})) diff --git a/src/Network/Riak/Protocol/ListKeysRequest.hs b/src/Network/Riak/Protocol/ListKeysRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/ListKeysRequest.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.ListKeysRequest (ListKeysRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data ListKeysRequest = ListKeysRequest{bucket :: !(P'.ByteString), timeout :: !(P'.Maybe P'.Word32), - type' :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable ListKeysRequest where - mergeAppend (ListKeysRequest x'1 x'2 x'3) (ListKeysRequest y'1 y'2 y'3) - = ListKeysRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default ListKeysRequest where - defaultValue = ListKeysRequest P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire ListKeysRequest where - wireSize ft' self'@(ListKeysRequest x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeOpt 1 13 x'2 + P'.wireSizeOpt 1 12 x'3) - wirePutWithSize ft' self'@(ListKeysRequest x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutOptWithSize 16 13 x'2, P'.wirePutOptWithSize 26 12 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> ListKeysRequest) ListKeysRequest where - getVal m' f' = f' m' - -instance P'.GPB ListKeysRequest - -instance P'.ReflectDescriptor ListKeysRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 16, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ListKeysRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ListKeysRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ListKeysRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListKeysRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListKeysRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListKeysRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListKeysRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListKeysRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListKeysRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType ListKeysRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg ListKeysRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "timeout" (timeout msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'bucket, parse'timeout, parse'type']) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/ListKeysResponse.hs b/src/Network/Riak/Protocol/ListKeysResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/ListKeysResponse.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.ListKeysResponse (ListKeysResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data ListKeysResponse = ListKeysResponse{keys :: !(P'.Seq P'.ByteString), done :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable ListKeysResponse where - mergeAppend (ListKeysResponse x'1 x'2) (ListKeysResponse y'1 y'2) - = ListKeysResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default ListKeysResponse where - defaultValue = ListKeysResponse P'.defaultValue P'.defaultValue - -instance P'.Wire ListKeysResponse where - wireSize ft' self'@(ListKeysResponse x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 12 x'1 + P'.wireSizeOpt 1 8 x'2) - wirePutWithSize ft' self'@(ListKeysResponse x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 12 x'1, P'.wirePutOptWithSize 16 8 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{keys = P'.append (keys old'Self) new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{done = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> ListKeysResponse) ListKeysResponse where - getVal m' f' = f' m' - -instance P'.GPB ListKeysResponse - -instance P'.ReflectDescriptor ListKeysResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 16]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ListKeysResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ListKeysResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ListKeysResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListKeysResponse.keys\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListKeysResponse\"], baseName' = FName \"keys\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ListKeysResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ListKeysResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType ListKeysResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg ListKeysResponse where - textPut msg - = do - P'.tellT "keys" (keys msg) - P'.tellT "done" (done msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'keys, parse'done]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'keys - = P'.try - (do - v <- P'.getT "keys" - Prelude'.return (\ o -> o{keys = P'.append (keys o) v})) - parse'done - = P'.try - (do - v <- P'.getT "done" - Prelude'.return (\ o -> o{done = v})) diff --git a/src/Network/Riak/Protocol/MapEntry.hs b/src/Network/Riak/Protocol/MapEntry.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/MapEntry.hs +++ /dev/null @@ -1,131 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.MapEntry (MapEntry(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.MapField as Protocol (MapField) - -data MapEntry = MapEntry{field :: !(Protocol.MapField), counter_value :: !(P'.Maybe P'.Int64), set_value :: !(P'.Seq P'.ByteString), - register_value :: !(P'.Maybe P'.ByteString), flag_value :: !(P'.Maybe P'.Bool), - map_value :: !(P'.Seq MapEntry)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable MapEntry where - mergeAppend (MapEntry x'1 x'2 x'3 x'4 x'5 x'6) (MapEntry y'1 y'2 y'3 y'4 y'5 y'6) - = MapEntry (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - -instance P'.Default MapEntry where - defaultValue = MapEntry P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire MapEntry where - wireSize ft' self'@(MapEntry x'1 x'2 x'3 x'4 x'5 x'6) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 11 x'1 + P'.wireSizeOpt 1 18 x'2 + P'.wireSizeRep 1 12 x'3 + P'.wireSizeOpt 1 12 x'4 + - P'.wireSizeOpt 1 8 x'5 - + P'.wireSizeRep 1 11 x'6) - wirePutWithSize ft' self'@(MapEntry x'1 x'2 x'3 x'4 x'5 x'6) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 11 x'1, P'.wirePutOptWithSize 16 18 x'2, P'.wirePutRepWithSize 26 12 x'3, - P'.wirePutOptWithSize 34 12 x'4, P'.wirePutOptWithSize 40 8 x'5, P'.wirePutRepWithSize 50 11 x'6] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{field = P'.mergeAppend (field old'Self) (new'Field)}) (P'.wireGet 11) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{counter_value = Prelude'.Just new'Field}) (P'.wireGet 18) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{set_value = P'.append (set_value old'Self) new'Field}) (P'.wireGet 12) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{register_value = Prelude'.Just new'Field}) (P'.wireGet 12) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{flag_value = Prelude'.Just new'Field}) (P'.wireGet 8) - 50 -> Prelude'.fmap (\ !new'Field -> old'Self{map_value = P'.append (map_value old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> MapEntry) MapEntry where - getVal m' f' = f' m' - -instance P'.GPB MapEntry - -instance P'.ReflectDescriptor MapEntry where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 16, 26, 34, 40, 50]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapEntry\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapEntry.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.field\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"field\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapField\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapField\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.counter_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"counter_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.set_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"set_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.register_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"register_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.flag_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"flag_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapEntry.map_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapEntry\"], baseName' = FName \"map_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapEntry\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType MapEntry where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg MapEntry where - textPut msg - = do - P'.tellT "field" (field msg) - P'.tellT "counter_value" (counter_value msg) - P'.tellT "set_value" (set_value msg) - P'.tellT "register_value" (register_value msg) - P'.tellT "flag_value" (flag_value msg) - P'.tellT "map_value" (map_value msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'field, parse'counter_value, parse'set_value, parse'register_value, parse'flag_value, parse'map_value]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'field - = P'.try - (do - v <- P'.getT "field" - Prelude'.return (\ o -> o{field = v})) - parse'counter_value - = P'.try - (do - v <- P'.getT "counter_value" - Prelude'.return (\ o -> o{counter_value = v})) - parse'set_value - = P'.try - (do - v <- P'.getT "set_value" - Prelude'.return (\ o -> o{set_value = P'.append (set_value o) v})) - parse'register_value - = P'.try - (do - v <- P'.getT "register_value" - Prelude'.return (\ o -> o{register_value = v})) - parse'flag_value - = P'.try - (do - v <- P'.getT "flag_value" - Prelude'.return (\ o -> o{flag_value = v})) - parse'map_value - = P'.try - (do - v <- P'.getT "map_value" - Prelude'.return (\ o -> o{map_value = P'.append (map_value o) v})) diff --git a/src/Network/Riak/Protocol/MapField.hs b/src/Network/Riak/Protocol/MapField.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/MapField.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.MapField (MapField(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.MapField.MapFieldType as Protocol.MapField (MapFieldType) - -data MapField = MapField{name :: !(P'.ByteString), type' :: !(Protocol.MapField.MapFieldType)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable MapField where - mergeAppend (MapField x'1 x'2) (MapField y'1 y'2) = MapField (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default MapField where - defaultValue = MapField P'.defaultValue P'.defaultValue - -instance P'.Wire MapField where - wireSize ft' self'@(MapField x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 14 x'2) - wirePutWithSize ft' self'@(MapField x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 16 14 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{name = new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = new'Field}) (P'.wireGet 14) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> MapField) MapField where - getVal m' f' = f' m' - -instance P'.GPB MapField - -instance P'.ReflectDescriptor MapField where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 16]) (P'.fromDistinctAscList [10, 16]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapField\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapField\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapField.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapField.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapField\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapField.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapField\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapField.MapFieldType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"MapField\"], baseName = MName \"MapFieldType\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType MapField where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg MapField where - textPut msg - = do - P'.tellT "name" (name msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'name, parse'type']) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'name - = P'.try - (do - v <- P'.getT "name" - Prelude'.return (\ o -> o{name = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/MapField/MapFieldType.hs b/src/Network/Riak/Protocol/MapField/MapFieldType.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/MapField/MapFieldType.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.MapField.MapFieldType (MapFieldType(..)) where -import Prelude ((+), (/), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data MapFieldType = COUNTER - | SET - | REGISTER - | FLAG - | MAP - deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, - Prelude'.Generic) - -instance P'.Mergeable MapFieldType - -instance Prelude'.Bounded MapFieldType where - minBound = COUNTER - maxBound = MAP - -instance P'.Default MapFieldType where - defaultValue = COUNTER - -toMaybe'Enum :: Prelude'.Int -> P'.Maybe MapFieldType -toMaybe'Enum 1 = Prelude'.Just COUNTER -toMaybe'Enum 2 = Prelude'.Just SET -toMaybe'Enum 3 = Prelude'.Just REGISTER -toMaybe'Enum 4 = Prelude'.Just FLAG -toMaybe'Enum 5 = Prelude'.Just MAP -toMaybe'Enum _ = Prelude'.Nothing - -instance Prelude'.Enum MapFieldType where - fromEnum COUNTER = 1 - fromEnum SET = 2 - fromEnum REGISTER = 3 - fromEnum FLAG = 4 - fromEnum MAP = 5 - toEnum - = P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type Network.Riak.Protocol.MapField.MapFieldType") . - toMaybe'Enum - succ COUNTER = SET - succ SET = REGISTER - succ REGISTER = FLAG - succ FLAG = MAP - succ _ = Prelude'.error "hprotoc generated code: succ failure for type Network.Riak.Protocol.MapField.MapFieldType" - pred SET = COUNTER - pred REGISTER = SET - pred FLAG = REGISTER - pred MAP = FLAG - pred _ = Prelude'.error "hprotoc generated code: pred failure for type Network.Riak.Protocol.MapField.MapFieldType" - -instance P'.Wire MapFieldType where - wireSize ft' enum = P'.wireSize ft' (Prelude'.fromEnum enum) - wirePut ft' enum = P'.wirePut ft' (Prelude'.fromEnum enum) - wireGet 14 = P'.wireGetEnum toMaybe'Enum - wireGet ft' = P'.wireGetErr ft' - wireGetPacked 14 = P'.wireGetPackedEnum toMaybe'Enum - wireGetPacked ft' = P'.wireGetErr ft' - -instance P'.GPB MapFieldType - -instance P'.MessageAPI msg' (msg' -> MapFieldType) MapFieldType where - getVal m' f' = f' m' - -instance P'.ReflectEnum MapFieldType where - reflectEnum = [(1, "COUNTER", COUNTER), (2, "SET", SET), (3, "REGISTER", REGISTER), (4, "FLAG", FLAG), (5, "MAP", MAP)] - reflectEnumInfo _ - = P'.EnumInfo - (P'.makePNF (P'.pack ".Protocol.MapField.MapFieldType") ["Network", "Riak"] ["Protocol", "MapField"] "MapFieldType") - ["Network", "Riak", "Protocol", "MapField", "MapFieldType.hs"] - [(1, "COUNTER"), (2, "SET"), (3, "REGISTER"), (4, "FLAG"), (5, "MAP")] - Prelude'.False - -instance P'.TextType MapFieldType where - tellT = P'.tellShow - getT = P'.getRead diff --git a/src/Network/Riak/Protocol/MapOp.hs b/src/Network/Riak/Protocol/MapOp.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/MapOp.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.MapOp (MapOp(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.MapField as Protocol (MapField) -import qualified Network.Riak.Protocol.MapUpdate as Protocol (MapUpdate) - -data MapOp = MapOp{removes :: !(P'.Seq Protocol.MapField), updates :: !(P'.Seq Protocol.MapUpdate)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable MapOp where - mergeAppend (MapOp x'1 x'2) (MapOp y'1 y'2) = MapOp (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default MapOp where - defaultValue = MapOp P'.defaultValue P'.defaultValue - -instance P'.Wire MapOp where - wireSize ft' self'@(MapOp x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1 + P'.wireSizeRep 1 11 x'2) - wirePutWithSize ft' self'@(MapOp x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1, P'.wirePutRepWithSize 18 11 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{removes = P'.append (removes old'Self) new'Field}) (P'.wireGet 11) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{updates = P'.append (updates old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> MapOp) MapOp where - getVal m' f' = f' m' - -instance P'.GPB MapOp - -instance P'.ReflectDescriptor MapOp where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapOp\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapOp.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapOp.removes\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapOp\"], baseName' = FName \"removes\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapField\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapField\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapOp.updates\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapOp\"], baseName' = FName \"updates\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapUpdate\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapUpdate\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType MapOp where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg MapOp where - textPut msg - = do - P'.tellT "removes" (removes msg) - P'.tellT "updates" (updates msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'removes, parse'updates]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'removes - = P'.try - (do - v <- P'.getT "removes" - Prelude'.return (\ o -> o{removes = P'.append (removes o) v})) - parse'updates - = P'.try - (do - v <- P'.getT "updates" - Prelude'.return (\ o -> o{updates = P'.append (updates o) v})) diff --git a/src/Network/Riak/Protocol/MapOp.hs-boot b/src/Network/Riak/Protocol/MapOp.hs-boot deleted file mode 100644 --- a/src/Network/Riak/Protocol/MapOp.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.MapOp (MapOp) where -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified Data.Data as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data MapOp deriving Prelude'.Typeable - -instance P'.MessageAPI msg' (msg' -> MapOp) MapOp - -instance Prelude'.Show MapOp - -instance Prelude'.Eq MapOp - -instance Prelude'.Ord MapOp - -instance Prelude'.Data MapOp - --- instance Prelude'.Generic MapOp - -instance P'.Mergeable MapOp - -instance P'.Default MapOp - -instance P'.Wire MapOp - -instance P'.GPB MapOp - -instance P'.ReflectDescriptor MapOp - -instance P'.TextType MapOp - -instance P'.TextMsg MapOp diff --git a/src/Network/Riak/Protocol/MapReduce.hs b/src/Network/Riak/Protocol/MapReduce.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/MapReduce.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.MapReduce (MapReduce(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data MapReduce = MapReduce{phase :: !(P'.Maybe P'.Word32), response :: !(P'.Maybe P'.ByteString), done :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable MapReduce where - mergeAppend (MapReduce x'1 x'2 x'3) (MapReduce y'1 y'2 y'3) - = MapReduce (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default MapReduce where - defaultValue = MapReduce P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire MapReduce where - wireSize ft' self'@(MapReduce x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 13 x'1 + P'.wireSizeOpt 1 12 x'2 + P'.wireSizeOpt 1 8 x'3) - wirePutWithSize ft' self'@(MapReduce x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize [P'.wirePutOptWithSize 8 13 x'1, P'.wirePutOptWithSize 18 12 x'2, P'.wirePutOptWithSize 24 8 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 8 -> Prelude'.fmap (\ !new'Field -> old'Self{phase = Prelude'.Just new'Field}) (P'.wireGet 13) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{response = Prelude'.Just new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{done = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> MapReduce) MapReduce where - getVal m' f' = f' m' - -instance P'.GPB MapReduce - -instance P'.ReflectDescriptor MapReduce where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [8, 18, 24]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapReduce\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapReduce\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapReduce.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapReduce.phase\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapReduce\"], baseName' = FName \"phase\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 8}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapReduce.response\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapReduce\"], baseName' = FName \"response\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapReduce.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapReduce\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType MapReduce where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg MapReduce where - textPut msg - = do - P'.tellT "phase" (phase msg) - P'.tellT "response" (response msg) - P'.tellT "done" (done msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'phase, parse'response, parse'done]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'phase - = P'.try - (do - v <- P'.getT "phase" - Prelude'.return (\ o -> o{phase = v})) - parse'response - = P'.try - (do - v <- P'.getT "response" - Prelude'.return (\ o -> o{response = v})) - parse'done - = P'.try - (do - v <- P'.getT "done" - Prelude'.return (\ o -> o{done = v})) diff --git a/src/Network/Riak/Protocol/MapReduceRequest.hs b/src/Network/Riak/Protocol/MapReduceRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/MapReduceRequest.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.MapReduceRequest (MapReduceRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data MapReduceRequest = MapReduceRequest{request :: !(P'.ByteString), content_type :: !(P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable MapReduceRequest where - mergeAppend (MapReduceRequest x'1 x'2) (MapReduceRequest y'1 y'2) - = MapReduceRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default MapReduceRequest where - defaultValue = MapReduceRequest P'.defaultValue P'.defaultValue - -instance P'.Wire MapReduceRequest where - wireSize ft' self'@(MapReduceRequest x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2) - wirePutWithSize ft' self'@(MapReduceRequest x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{request = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{content_type = new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> MapReduceRequest) MapReduceRequest where - getVal m' f' = f' m' - -instance P'.GPB MapReduceRequest - -instance P'.ReflectDescriptor MapReduceRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapReduceRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapReduceRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapReduceRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapReduceRequest.request\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapReduceRequest\"], baseName' = FName \"request\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapReduceRequest.content_type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapReduceRequest\"], baseName' = FName \"content_type\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType MapReduceRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg MapReduceRequest where - textPut msg - = do - P'.tellT "request" (request msg) - P'.tellT "content_type" (content_type msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'request, parse'content_type]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'request - = P'.try - (do - v <- P'.getT "request" - Prelude'.return (\ o -> o{request = v})) - parse'content_type - = P'.try - (do - v <- P'.getT "content_type" - Prelude'.return (\ o -> o{content_type = v})) diff --git a/src/Network/Riak/Protocol/MapUpdate.hs b/src/Network/Riak/Protocol/MapUpdate.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/MapUpdate.hs +++ /dev/null @@ -1,137 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.MapUpdate (MapUpdate(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.CounterOp as Protocol (CounterOp) -import qualified Network.Riak.Protocol.MapField as Protocol (MapField) -import {-# SOURCE #-} qualified Network.Riak.Protocol.MapOp as Protocol (MapOp) -import qualified Network.Riak.Protocol.MapUpdate.FlagOp as Protocol.MapUpdate (FlagOp) -import qualified Network.Riak.Protocol.SetOp as Protocol (SetOp) - -data MapUpdate = MapUpdate{field :: !(Protocol.MapField), counter_op :: !(P'.Maybe Protocol.CounterOp), - set_op :: !(P'.Maybe Protocol.SetOp), register_op :: !(P'.Maybe P'.ByteString), - flag_op :: !(P'.Maybe Protocol.MapUpdate.FlagOp), map_op :: !(P'.Maybe Protocol.MapOp)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable MapUpdate where - mergeAppend (MapUpdate x'1 x'2 x'3 x'4 x'5 x'6) (MapUpdate y'1 y'2 y'3 y'4 y'5 y'6) - = MapUpdate (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - -instance P'.Default MapUpdate where - defaultValue = MapUpdate P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire MapUpdate where - wireSize ft' self'@(MapUpdate x'1 x'2 x'3 x'4 x'5 x'6) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 11 x'1 + P'.wireSizeOpt 1 11 x'2 + P'.wireSizeOpt 1 11 x'3 + P'.wireSizeOpt 1 12 x'4 + - P'.wireSizeOpt 1 14 x'5 - + P'.wireSizeOpt 1 11 x'6) - wirePutWithSize ft' self'@(MapUpdate x'1 x'2 x'3 x'4 x'5 x'6) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 11 x'1, P'.wirePutOptWithSize 18 11 x'2, P'.wirePutOptWithSize 26 11 x'3, - P'.wirePutOptWithSize 34 12 x'4, P'.wirePutOptWithSize 40 14 x'5, P'.wirePutOptWithSize 50 11 x'6] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{field = P'.mergeAppend (field old'Self) (new'Field)}) (P'.wireGet 11) - 18 -> Prelude'.fmap - (\ !new'Field -> old'Self{counter_op = P'.mergeAppend (counter_op old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{set_op = P'.mergeAppend (set_op old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{register_op = Prelude'.Just new'Field}) (P'.wireGet 12) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{flag_op = Prelude'.Just new'Field}) (P'.wireGet 14) - 50 -> Prelude'.fmap (\ !new'Field -> old'Self{map_op = P'.mergeAppend (map_op old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> MapUpdate) MapUpdate where - getVal m' f' = f' m' - -instance P'.GPB MapUpdate - -instance P'.ReflectDescriptor MapUpdate where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18, 26, 34, 40, 50]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.MapUpdate\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapUpdate\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"MapUpdate.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.field\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"field\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapField\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapField\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.counter_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"counter_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.CounterOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"CounterOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.set_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"set_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.SetOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.register_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"register_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.flag_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"flag_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapUpdate.FlagOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\",MName \"MapUpdate\"], baseName = MName \"FlagOp\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.MapUpdate.map_op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"MapUpdate\"], baseName' = FName \"map_op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.MapOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"MapOp\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType MapUpdate where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg MapUpdate where - textPut msg - = do - P'.tellT "field" (field msg) - P'.tellT "counter_op" (counter_op msg) - P'.tellT "set_op" (set_op msg) - P'.tellT "register_op" (register_op msg) - P'.tellT "flag_op" (flag_op msg) - P'.tellT "map_op" (map_op msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'field, parse'counter_op, parse'set_op, parse'register_op, parse'flag_op, parse'map_op]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'field - = P'.try - (do - v <- P'.getT "field" - Prelude'.return (\ o -> o{field = v})) - parse'counter_op - = P'.try - (do - v <- P'.getT "counter_op" - Prelude'.return (\ o -> o{counter_op = v})) - parse'set_op - = P'.try - (do - v <- P'.getT "set_op" - Prelude'.return (\ o -> o{set_op = v})) - parse'register_op - = P'.try - (do - v <- P'.getT "register_op" - Prelude'.return (\ o -> o{register_op = v})) - parse'flag_op - = P'.try - (do - v <- P'.getT "flag_op" - Prelude'.return (\ o -> o{flag_op = v})) - parse'map_op - = P'.try - (do - v <- P'.getT "map_op" - Prelude'.return (\ o -> o{map_op = v})) diff --git a/src/Network/Riak/Protocol/MapUpdate/FlagOp.hs b/src/Network/Riak/Protocol/MapUpdate/FlagOp.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/MapUpdate/FlagOp.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.MapUpdate.FlagOp (FlagOp(..)) where -import Prelude ((+), (/), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data FlagOp = ENABLE - | DISABLE - deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable FlagOp - -instance Prelude'.Bounded FlagOp where - minBound = ENABLE - maxBound = DISABLE - -instance P'.Default FlagOp where - defaultValue = ENABLE - -toMaybe'Enum :: Prelude'.Int -> P'.Maybe FlagOp -toMaybe'Enum 1 = Prelude'.Just ENABLE -toMaybe'Enum 2 = Prelude'.Just DISABLE -toMaybe'Enum _ = Prelude'.Nothing - -instance Prelude'.Enum FlagOp where - fromEnum ENABLE = 1 - fromEnum DISABLE = 2 - toEnum - = P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type Network.Riak.Protocol.MapUpdate.FlagOp") . - toMaybe'Enum - succ ENABLE = DISABLE - succ _ = Prelude'.error "hprotoc generated code: succ failure for type Network.Riak.Protocol.MapUpdate.FlagOp" - pred DISABLE = ENABLE - pred _ = Prelude'.error "hprotoc generated code: pred failure for type Network.Riak.Protocol.MapUpdate.FlagOp" - -instance P'.Wire FlagOp where - wireSize ft' enum = P'.wireSize ft' (Prelude'.fromEnum enum) - wirePut ft' enum = P'.wirePut ft' (Prelude'.fromEnum enum) - wireGet 14 = P'.wireGetEnum toMaybe'Enum - wireGet ft' = P'.wireGetErr ft' - wireGetPacked 14 = P'.wireGetPackedEnum toMaybe'Enum - wireGetPacked ft' = P'.wireGetErr ft' - -instance P'.GPB FlagOp - -instance P'.MessageAPI msg' (msg' -> FlagOp) FlagOp where - getVal m' f' = f' m' - -instance P'.ReflectEnum FlagOp where - reflectEnum = [(1, "ENABLE", ENABLE), (2, "DISABLE", DISABLE)] - reflectEnumInfo _ - = P'.EnumInfo (P'.makePNF (P'.pack ".Protocol.MapUpdate.FlagOp") ["Network", "Riak"] ["Protocol", "MapUpdate"] "FlagOp") - ["Network", "Riak", "Protocol", "MapUpdate", "FlagOp.hs"] - [(1, "ENABLE"), (2, "DISABLE")] - Prelude'.False - -instance P'.TextType FlagOp where - tellT = P'.tellShow - getT = P'.getRead diff --git a/src/Network/Riak/Protocol/ModFun.hs b/src/Network/Riak/Protocol/ModFun.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/ModFun.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.ModFun (ModFun(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data ModFun = ModFun{module' :: !(P'.ByteString), function :: !(P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable ModFun where - mergeAppend (ModFun x'1 x'2) (ModFun y'1 y'2) = ModFun (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default ModFun where - defaultValue = ModFun P'.defaultValue P'.defaultValue - -instance P'.Wire ModFun where - wireSize ft' self'@(ModFun x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2) - wirePutWithSize ft' self'@(ModFun x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{module' = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{function = new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> ModFun) ModFun where - getVal m' f' = f' m' - -instance P'.GPB ModFun - -instance P'.ReflectDescriptor ModFun where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ModFun\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ModFun\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ModFun.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ModFun.module\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ModFun\"], baseName' = FName \"module'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ModFun.function\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ModFun\"], baseName' = FName \"function\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType ModFun where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg ModFun where - textPut msg - = do - P'.tellT "module" (module' msg) - P'.tellT "function" (function msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'module', parse'function]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'module' - = P'.try - (do - v <- P'.getT "module" - Prelude'.return (\ o -> o{module' = v})) - parse'function - = P'.try - (do - v <- P'.getT "function" - Prelude'.return (\ o -> o{function = v})) diff --git a/src/Network/Riak/Protocol/Pair.hs b/src/Network/Riak/Protocol/Pair.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/Pair.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.Pair (Pair(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data Pair = Pair{key :: !(P'.ByteString), value :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable Pair where - mergeAppend (Pair x'1 x'2) (Pair y'1 y'2) = Pair (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default Pair where - defaultValue = Pair P'.defaultValue P'.defaultValue - -instance P'.Wire Pair where - wireSize ft' self'@(Pair x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeOpt 1 12 x'2) - wirePutWithSize ft' self'@(Pair x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{key = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{value = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> Pair) Pair where - getVal m' f' = f' m' - -instance P'.GPB Pair - -instance P'.ReflectDescriptor Pair where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"Pair.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Pair.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Pair\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.Pair.value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"Pair\"], baseName' = FName \"value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType Pair where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg Pair where - textPut msg - = do - P'.tellT "key" (key msg) - P'.tellT "value" (value msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'key, parse'value]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'value - = P'.try - (do - v <- P'.getT "value" - Prelude'.return (\ o -> o{value = v})) diff --git a/src/Network/Riak/Protocol/PingRequest.hs b/src/Network/Riak/Protocol/PingRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/PingRequest.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.PingRequest (PingRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data PingRequest = PingRequest{} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable PingRequest where - mergeAppend PingRequest PingRequest = PingRequest - -instance P'.Default PingRequest where - defaultValue = PingRequest - -instance P'.Wire PingRequest where - wireSize ft' self'@(PingRequest) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = 0 - wirePutWithSize ft' self'@(PingRequest) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> PingRequest) PingRequest where - getVal m' f' = f' m' - -instance P'.GPB PingRequest - -instance P'.ReflectDescriptor PingRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList []) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.PingRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"PingRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"PingRequest.hs\"], isGroup = False, fields = fromList [], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType PingRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg PingRequest where - textPut msg = Prelude'.return () - textGet = Prelude'.return P'.defaultValue - where diff --git a/src/Network/Riak/Protocol/PutRequest.hs b/src/Network/Riak/Protocol/PutRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/PutRequest.hs +++ /dev/null @@ -1,244 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.PutRequest (PutRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.Content as Protocol (Content) - -data PutRequest = PutRequest{bucket :: !(P'.ByteString), key :: !(P'.Maybe P'.ByteString), vclock :: !(P'.Maybe P'.ByteString), - content :: !(Protocol.Content), w :: !(P'.Maybe P'.Word32), dw :: !(P'.Maybe P'.Word32), - return_body :: !(P'.Maybe P'.Bool), pw :: !(P'.Maybe P'.Word32), - if_not_modified :: !(P'.Maybe P'.Bool), if_none_match :: !(P'.Maybe P'.Bool), - return_head :: !(P'.Maybe P'.Bool), timeout :: !(P'.Maybe P'.Word32), asis :: !(P'.Maybe P'.Bool), - sloppy_quorum :: !(P'.Maybe P'.Bool), n_val :: !(P'.Maybe P'.Word32), - type' :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable PutRequest where - mergeAppend (PutRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13 x'14 x'15 x'16) - (PutRequest y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8 y'9 y'10 y'11 y'12 y'13 y'14 y'15 y'16) - = PutRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - (P'.mergeAppend x'8 y'8) - (P'.mergeAppend x'9 y'9) - (P'.mergeAppend x'10 y'10) - (P'.mergeAppend x'11 y'11) - (P'.mergeAppend x'12 y'12) - (P'.mergeAppend x'13 y'13) - (P'.mergeAppend x'14 y'14) - (P'.mergeAppend x'15 y'15) - (P'.mergeAppend x'16 y'16) - -instance P'.Default PutRequest where - defaultValue - = PutRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - -instance P'.Wire PutRequest where - wireSize ft' self'@(PutRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13 x'14 x'15 x'16) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeOpt 1 12 x'2 + P'.wireSizeOpt 1 12 x'3 + P'.wireSizeReq 1 11 x'4 + - P'.wireSizeOpt 1 13 x'5 - + P'.wireSizeOpt 1 13 x'6 - + P'.wireSizeOpt 1 8 x'7 - + P'.wireSizeOpt 1 13 x'8 - + P'.wireSizeOpt 1 8 x'9 - + P'.wireSizeOpt 1 8 x'10 - + P'.wireSizeOpt 1 8 x'11 - + P'.wireSizeOpt 1 13 x'12 - + P'.wireSizeOpt 1 8 x'13 - + P'.wireSizeOpt 1 8 x'14 - + P'.wireSizeOpt 1 13 x'15 - + P'.wireSizeOpt 2 12 x'16) - wirePutWithSize ft' self'@(PutRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10 x'11 x'12 x'13 x'14 x'15 x'16) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2, P'.wirePutOptWithSize 26 12 x'3, - P'.wirePutReqWithSize 34 11 x'4, P'.wirePutOptWithSize 40 13 x'5, P'.wirePutOptWithSize 48 13 x'6, - P'.wirePutOptWithSize 56 8 x'7, P'.wirePutOptWithSize 64 13 x'8, P'.wirePutOptWithSize 72 8 x'9, - P'.wirePutOptWithSize 80 8 x'10, P'.wirePutOptWithSize 88 8 x'11, P'.wirePutOptWithSize 96 13 x'12, - P'.wirePutOptWithSize 104 8 x'13, P'.wirePutOptWithSize 112 8 x'14, P'.wirePutOptWithSize 120 13 x'15, - P'.wirePutOptWithSize 130 12 x'16] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = Prelude'.Just new'Field}) (P'.wireGet 12) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{vclock = Prelude'.Just new'Field}) (P'.wireGet 12) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{content = P'.mergeAppend (content old'Self) (new'Field)}) (P'.wireGet 11) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{w = Prelude'.Just new'Field}) (P'.wireGet 13) - 48 -> Prelude'.fmap (\ !new'Field -> old'Self{dw = Prelude'.Just new'Field}) (P'.wireGet 13) - 56 -> Prelude'.fmap (\ !new'Field -> old'Self{return_body = Prelude'.Just new'Field}) (P'.wireGet 8) - 64 -> Prelude'.fmap (\ !new'Field -> old'Self{pw = Prelude'.Just new'Field}) (P'.wireGet 13) - 72 -> Prelude'.fmap (\ !new'Field -> old'Self{if_not_modified = Prelude'.Just new'Field}) (P'.wireGet 8) - 80 -> Prelude'.fmap (\ !new'Field -> old'Self{if_none_match = Prelude'.Just new'Field}) (P'.wireGet 8) - 88 -> Prelude'.fmap (\ !new'Field -> old'Self{return_head = Prelude'.Just new'Field}) (P'.wireGet 8) - 96 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - 104 -> Prelude'.fmap (\ !new'Field -> old'Self{asis = Prelude'.Just new'Field}) (P'.wireGet 8) - 112 -> Prelude'.fmap (\ !new'Field -> old'Self{sloppy_quorum = Prelude'.Just new'Field}) (P'.wireGet 8) - 120 -> Prelude'.fmap (\ !new'Field -> old'Self{n_val = Prelude'.Just new'Field}) (P'.wireGet 13) - 130 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> PutRequest) PutRequest where - getVal m' f' = f' m' - -instance P'.GPB PutRequest - -instance P'.ReflectDescriptor PutRequest where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList [10, 34]) - (P'.fromDistinctAscList [10, 18, 26, 34, 40, 48, 56, 64, 72, 80, 88, 96, 104, 112, 120, 130]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.PutRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"PutRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"PutRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.content\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"content\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Content\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Content\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.w\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"w\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.dw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"dw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.return_body\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"return_body\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.pw\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"pw\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 64}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.if_not_modified\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"if_not_modified\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 72}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.if_none_match\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"if_none_match\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 80}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.return_head\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"return_head\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 88}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 12}, wireTag = WireTag {getWireTag = 96}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.asis\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"asis\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 13}, wireTag = WireTag {getWireTag = 104}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.sloppy_quorum\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"sloppy_quorum\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 14}, wireTag = WireTag {getWireTag = 112}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 15}, wireTag = WireTag {getWireTag = 120}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 16}, wireTag = WireTag {getWireTag = 130}, packedTag = Nothing, wireTagLength = 2, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType PutRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg PutRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "key" (key msg) - P'.tellT "vclock" (vclock msg) - P'.tellT "content" (content msg) - P'.tellT "w" (w msg) - P'.tellT "dw" (dw msg) - P'.tellT "return_body" (return_body msg) - P'.tellT "pw" (pw msg) - P'.tellT "if_not_modified" (if_not_modified msg) - P'.tellT "if_none_match" (if_none_match msg) - P'.tellT "return_head" (return_head msg) - P'.tellT "timeout" (timeout msg) - P'.tellT "asis" (asis msg) - P'.tellT "sloppy_quorum" (sloppy_quorum msg) - P'.tellT "n_val" (n_val msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'bucket, parse'key, parse'vclock, parse'content, parse'w, parse'dw, parse'return_body, parse'pw, - parse'if_not_modified, parse'if_none_match, parse'return_head, parse'timeout, parse'asis, parse'sloppy_quorum, - parse'n_val, parse'type']) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) - parse'vclock - = P'.try - (do - v <- P'.getT "vclock" - Prelude'.return (\ o -> o{vclock = v})) - parse'content - = P'.try - (do - v <- P'.getT "content" - Prelude'.return (\ o -> o{content = v})) - parse'w - = P'.try - (do - v <- P'.getT "w" - Prelude'.return (\ o -> o{w = v})) - parse'dw - = P'.try - (do - v <- P'.getT "dw" - Prelude'.return (\ o -> o{dw = v})) - parse'return_body - = P'.try - (do - v <- P'.getT "return_body" - Prelude'.return (\ o -> o{return_body = v})) - parse'pw - = P'.try - (do - v <- P'.getT "pw" - Prelude'.return (\ o -> o{pw = v})) - parse'if_not_modified - = P'.try - (do - v <- P'.getT "if_not_modified" - Prelude'.return (\ o -> o{if_not_modified = v})) - parse'if_none_match - = P'.try - (do - v <- P'.getT "if_none_match" - Prelude'.return (\ o -> o{if_none_match = v})) - parse'return_head - = P'.try - (do - v <- P'.getT "return_head" - Prelude'.return (\ o -> o{return_head = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) - parse'asis - = P'.try - (do - v <- P'.getT "asis" - Prelude'.return (\ o -> o{asis = v})) - parse'sloppy_quorum - = P'.try - (do - v <- P'.getT "sloppy_quorum" - Prelude'.return (\ o -> o{sloppy_quorum = v})) - parse'n_val - = P'.try - (do - v <- P'.getT "n_val" - Prelude'.return (\ o -> o{n_val = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/PutResponse.hs b/src/Network/Riak/Protocol/PutResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/PutResponse.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.PutResponse (PutResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.Content as Protocol (Content) - -data PutResponse = PutResponse{content :: !(P'.Seq Protocol.Content), vclock :: !(P'.Maybe P'.ByteString), - key :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable PutResponse where - mergeAppend (PutResponse x'1 x'2 x'3) (PutResponse y'1 y'2 y'3) - = PutResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default PutResponse where - defaultValue = PutResponse P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire PutResponse where - wireSize ft' self'@(PutResponse x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1 + P'.wireSizeOpt 1 12 x'2 + P'.wireSizeOpt 1 12 x'3) - wirePutWithSize ft' self'@(PutResponse x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutRepWithSize 10 11 x'1, P'.wirePutOptWithSize 18 12 x'2, P'.wirePutOptWithSize 26 12 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{content = P'.append (content old'Self) new'Field}) (P'.wireGet 11) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{vclock = Prelude'.Just new'Field}) (P'.wireGet 12) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{key = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> PutResponse) PutResponse where - getVal m' f' = f' m' - -instance P'.GPB PutResponse - -instance P'.ReflectDescriptor PutResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.PutResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"PutResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"PutResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutResponse.content\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutResponse\"], baseName' = FName \"content\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Content\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Content\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutResponse.vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutResponse\"], baseName' = FName \"vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.PutResponse.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"PutResponse\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType PutResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg PutResponse where - textPut msg - = do - P'.tellT "content" (content msg) - P'.tellT "vclock" (vclock msg) - P'.tellT "key" (key msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'content, parse'vclock, parse'key]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'content - = P'.try - (do - v <- P'.getT "content" - Prelude'.return (\ o -> o{content = P'.append (content o) v})) - parse'vclock - = P'.try - (do - v <- P'.getT "vclock" - Prelude'.return (\ o -> o{vclock = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = v})) diff --git a/src/Network/Riak/Protocol/ResetBucketRequest.hs b/src/Network/Riak/Protocol/ResetBucketRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/ResetBucketRequest.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.ResetBucketRequest (ResetBucketRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data ResetBucketRequest = ResetBucketRequest{bucket :: !(P'.ByteString), type' :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable ResetBucketRequest where - mergeAppend (ResetBucketRequest x'1 x'2) (ResetBucketRequest y'1 y'2) - = ResetBucketRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default ResetBucketRequest where - defaultValue = ResetBucketRequest P'.defaultValue P'.defaultValue - -instance P'.Wire ResetBucketRequest where - wireSize ft' self'@(ResetBucketRequest x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeOpt 1 12 x'2) - wirePutWithSize ft' self'@(ResetBucketRequest x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> ResetBucketRequest) ResetBucketRequest where - getVal m' f' = f' m' - -instance P'.GPB ResetBucketRequest - -instance P'.ReflectDescriptor ResetBucketRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ResetBucketRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ResetBucketRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ResetBucketRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ResetBucketRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ResetBucketRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ResetBucketRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ResetBucketRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType ResetBucketRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg ResetBucketRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'bucket, parse'type']) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/SearchDoc.hs b/src/Network/Riak/Protocol/SearchDoc.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/SearchDoc.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.SearchDoc (SearchDoc(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.Pair as Protocol (Pair) - -data SearchDoc = SearchDoc{fields :: !(P'.Seq Protocol.Pair)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable SearchDoc where - mergeAppend (SearchDoc x'1) (SearchDoc y'1) = SearchDoc (P'.mergeAppend x'1 y'1) - -instance P'.Default SearchDoc where - defaultValue = SearchDoc P'.defaultValue - -instance P'.Wire SearchDoc where - wireSize ft' self'@(SearchDoc x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1) - wirePutWithSize ft' self'@(SearchDoc x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{fields = P'.append (fields old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> SearchDoc) SearchDoc where - getVal m' f' = f' m' - -instance P'.GPB SearchDoc - -instance P'.ReflectDescriptor SearchDoc where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SearchDoc\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SearchDoc\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SearchDoc.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchDoc.fields\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchDoc\"], baseName' = FName \"fields\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType SearchDoc where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg SearchDoc where - textPut msg - = do - P'.tellT "fields" (fields msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'fields]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'fields - = P'.try - (do - v <- P'.getT "fields" - Prelude'.return (\ o -> o{fields = P'.append (fields o) v})) diff --git a/src/Network/Riak/Protocol/SearchQueryRequest.hs b/src/Network/Riak/Protocol/SearchQueryRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/SearchQueryRequest.hs +++ /dev/null @@ -1,178 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.SearchQueryRequest (SearchQueryRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data SearchQueryRequest = SearchQueryRequest{q :: !(P'.ByteString), index :: !(P'.ByteString), rows :: !(P'.Maybe P'.Word32), - start :: !(P'.Maybe P'.Word32), sort :: !(P'.Maybe P'.ByteString), - filter :: !(P'.Maybe P'.ByteString), df :: !(P'.Maybe P'.ByteString), - op :: !(P'.Maybe P'.ByteString), fl :: !(P'.Seq P'.ByteString), - presort :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable SearchQueryRequest where - mergeAppend (SearchQueryRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10) - (SearchQueryRequest y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8 y'9 y'10) - = SearchQueryRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - (P'.mergeAppend x'7 y'7) - (P'.mergeAppend x'8 y'8) - (P'.mergeAppend x'9 y'9) - (P'.mergeAppend x'10 y'10) - -instance P'.Default SearchQueryRequest where - defaultValue - = SearchQueryRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - P'.defaultValue - -instance P'.Wire SearchQueryRequest where - wireSize ft' self'@(SearchQueryRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeOpt 1 13 x'3 + P'.wireSizeOpt 1 13 x'4 + - P'.wireSizeOpt 1 12 x'5 - + P'.wireSizeOpt 1 12 x'6 - + P'.wireSizeOpt 1 12 x'7 - + P'.wireSizeOpt 1 12 x'8 - + P'.wireSizeRep 1 12 x'9 - + P'.wireSizeOpt 1 12 x'10) - wirePutWithSize ft' self'@(SearchQueryRequest x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8 x'9 x'10) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutOptWithSize 24 13 x'3, - P'.wirePutOptWithSize 32 13 x'4, P'.wirePutOptWithSize 42 12 x'5, P'.wirePutOptWithSize 50 12 x'6, - P'.wirePutOptWithSize 58 12 x'7, P'.wirePutOptWithSize 66 12 x'8, P'.wirePutRepWithSize 74 12 x'9, - P'.wirePutOptWithSize 82 12 x'10] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{q = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{index = new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{rows = Prelude'.Just new'Field}) (P'.wireGet 13) - 32 -> Prelude'.fmap (\ !new'Field -> old'Self{start = Prelude'.Just new'Field}) (P'.wireGet 13) - 42 -> Prelude'.fmap (\ !new'Field -> old'Self{sort = Prelude'.Just new'Field}) (P'.wireGet 12) - 50 -> Prelude'.fmap (\ !new'Field -> old'Self{filter = Prelude'.Just new'Field}) (P'.wireGet 12) - 58 -> Prelude'.fmap (\ !new'Field -> old'Self{df = Prelude'.Just new'Field}) (P'.wireGet 12) - 66 -> Prelude'.fmap (\ !new'Field -> old'Self{op = Prelude'.Just new'Field}) (P'.wireGet 12) - 74 -> Prelude'.fmap (\ !new'Field -> old'Self{fl = P'.append (fl old'Self) new'Field}) (P'.wireGet 12) - 82 -> Prelude'.fmap (\ !new'Field -> old'Self{presort = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> SearchQueryRequest) SearchQueryRequest where - getVal m' f' = f' m' - -instance P'.GPB SearchQueryRequest - -instance P'.ReflectDescriptor SearchQueryRequest where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) (P'.fromDistinctAscList [10, 18, 24, 32, 42, 50, 58, 66, 74, 82]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SearchQueryRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SearchQueryRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SearchQueryRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.q\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"q\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.index\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"index\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.rows\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"rows\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.start\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"start\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.sort\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"sort\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.filter\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"filter\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.df\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"df\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 58}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.op\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"op\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 66}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.fl\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"fl\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 9}, wireTag = WireTag {getWireTag = 74}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryRequest.presort\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryRequest\"], baseName' = FName \"presort\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 82}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType SearchQueryRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg SearchQueryRequest where - textPut msg - = do - P'.tellT "q" (q msg) - P'.tellT "index" (index msg) - P'.tellT "rows" (rows msg) - P'.tellT "start" (start msg) - P'.tellT "sort" (sort msg) - P'.tellT "filter" (filter msg) - P'.tellT "df" (df msg) - P'.tellT "op" (op msg) - P'.tellT "fl" (fl msg) - P'.tellT "presort" (presort msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'q, parse'index, parse'rows, parse'start, parse'sort, parse'filter, parse'df, parse'op, parse'fl, - parse'presort]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'q - = P'.try - (do - v <- P'.getT "q" - Prelude'.return (\ o -> o{q = v})) - parse'index - = P'.try - (do - v <- P'.getT "index" - Prelude'.return (\ o -> o{index = v})) - parse'rows - = P'.try - (do - v <- P'.getT "rows" - Prelude'.return (\ o -> o{rows = v})) - parse'start - = P'.try - (do - v <- P'.getT "start" - Prelude'.return (\ o -> o{start = v})) - parse'sort - = P'.try - (do - v <- P'.getT "sort" - Prelude'.return (\ o -> o{sort = v})) - parse'filter - = P'.try - (do - v <- P'.getT "filter" - Prelude'.return (\ o -> o{filter = v})) - parse'df - = P'.try - (do - v <- P'.getT "df" - Prelude'.return (\ o -> o{df = v})) - parse'op - = P'.try - (do - v <- P'.getT "op" - Prelude'.return (\ o -> o{op = v})) - parse'fl - = P'.try - (do - v <- P'.getT "fl" - Prelude'.return (\ o -> o{fl = P'.append (fl o) v})) - parse'presort - = P'.try - (do - v <- P'.getT "presort" - Prelude'.return (\ o -> o{presort = v})) diff --git a/src/Network/Riak/Protocol/SearchQueryResponse.hs b/src/Network/Riak/Protocol/SearchQueryResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/SearchQueryResponse.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.SearchQueryResponse (SearchQueryResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.SearchDoc as Protocol (SearchDoc) - -data SearchQueryResponse = SearchQueryResponse{docs :: !(P'.Seq Protocol.SearchDoc), max_score :: !(P'.Maybe P'.Float), - num_found :: !(P'.Maybe P'.Word32)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable SearchQueryResponse where - mergeAppend (SearchQueryResponse x'1 x'2 x'3) (SearchQueryResponse y'1 y'2 y'3) - = SearchQueryResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default SearchQueryResponse where - defaultValue = SearchQueryResponse P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire SearchQueryResponse where - wireSize ft' self'@(SearchQueryResponse x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1 + P'.wireSizeOpt 1 2 x'2 + P'.wireSizeOpt 1 13 x'3) - wirePutWithSize ft' self'@(SearchQueryResponse x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1, P'.wirePutOptWithSize 21 2 x'2, P'.wirePutOptWithSize 24 13 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{docs = P'.append (docs old'Self) new'Field}) (P'.wireGet 11) - 21 -> Prelude'.fmap (\ !new'Field -> old'Self{max_score = Prelude'.Just new'Field}) (P'.wireGet 2) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{num_found = Prelude'.Just new'Field}) (P'.wireGet 13) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> SearchQueryResponse) SearchQueryResponse where - getVal m' f' = f' m' - -instance P'.GPB SearchQueryResponse - -instance P'.ReflectDescriptor SearchQueryResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 21, 24]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SearchQueryResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SearchQueryResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SearchQueryResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryResponse.docs\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryResponse\"], baseName' = FName \"docs\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.SearchDoc\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SearchDoc\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryResponse.max_score\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryResponse\"], baseName' = FName \"max_score\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 21}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 2}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SearchQueryResponse.num_found\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SearchQueryResponse\"], baseName' = FName \"num_found\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType SearchQueryResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg SearchQueryResponse where - textPut msg - = do - P'.tellT "docs" (docs msg) - P'.tellT "max_score" (max_score msg) - P'.tellT "num_found" (num_found msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'docs, parse'max_score, parse'num_found]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'docs - = P'.try - (do - v <- P'.getT "docs" - Prelude'.return (\ o -> o{docs = P'.append (docs o) v})) - parse'max_score - = P'.try - (do - v <- P'.getT "max_score" - Prelude'.return (\ o -> o{max_score = v})) - parse'num_found - = P'.try - (do - v <- P'.getT "num_found" - Prelude'.return (\ o -> o{num_found = v})) diff --git a/src/Network/Riak/Protocol/ServerInfo.hs b/src/Network/Riak/Protocol/ServerInfo.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/ServerInfo.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.ServerInfo (ServerInfo(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data ServerInfo = ServerInfo{node :: !(P'.Maybe P'.ByteString), server_version :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable ServerInfo where - mergeAppend (ServerInfo x'1 x'2) (ServerInfo y'1 y'2) = ServerInfo (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default ServerInfo where - defaultValue = ServerInfo P'.defaultValue P'.defaultValue - -instance P'.Wire ServerInfo where - wireSize ft' self'@(ServerInfo x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 12 x'1 + P'.wireSizeOpt 1 12 x'2) - wirePutWithSize ft' self'@(ServerInfo x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutOptWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{node = Prelude'.Just new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{server_version = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> ServerInfo) ServerInfo where - getVal m' f' = f' m' - -instance P'.GPB ServerInfo - -instance P'.ReflectDescriptor ServerInfo where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.ServerInfo\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"ServerInfo\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"ServerInfo.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ServerInfo.node\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ServerInfo\"], baseName' = FName \"node\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.ServerInfo.server_version\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"ServerInfo\"], baseName' = FName \"server_version\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType ServerInfo where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg ServerInfo where - textPut msg - = do - P'.tellT "node" (node msg) - P'.tellT "server_version" (server_version msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'node, parse'server_version]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'node - = P'.try - (do - v <- P'.getT "node" - Prelude'.return (\ o -> o{node = v})) - parse'server_version - = P'.try - (do - v <- P'.getT "server_version" - Prelude'.return (\ o -> o{server_version = v})) diff --git a/src/Network/Riak/Protocol/SetBucketRequest.hs b/src/Network/Riak/Protocol/SetBucketRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/SetBucketRequest.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.SetBucketRequest (SetBucketRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.BucketProps as Protocol (BucketProps) - -data SetBucketRequest = SetBucketRequest{bucket :: !(P'.ByteString), props :: !(Protocol.BucketProps), - type' :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable SetBucketRequest where - mergeAppend (SetBucketRequest x'1 x'2 x'3) (SetBucketRequest y'1 y'2 y'3) - = SetBucketRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default SetBucketRequest where - defaultValue = SetBucketRequest P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire SetBucketRequest where - wireSize ft' self'@(SetBucketRequest x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 11 x'2 + P'.wireSizeOpt 1 12 x'3) - wirePutWithSize ft' self'@(SetBucketRequest x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 11 x'2, P'.wirePutOptWithSize 26 12 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{bucket = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{props = P'.mergeAppend (props old'Self) (new'Field)}) (P'.wireGet 11) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> SetBucketRequest) SetBucketRequest where - getVal m' f' = f' m' - -instance P'.GPB SetBucketRequest - -instance P'.ReflectDescriptor SetBucketRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) (P'.fromDistinctAscList [10, 18, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SetBucketRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetBucketRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SetBucketRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetBucketRequest.bucket\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetBucketRequest\"], baseName' = FName \"bucket\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetBucketRequest.props\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetBucketRequest\"], baseName' = FName \"props\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.BucketProps\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketProps\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetBucketRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetBucketRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType SetBucketRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg SetBucketRequest where - textPut msg - = do - P'.tellT "bucket" (bucket msg) - P'.tellT "props" (props msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'bucket, parse'props, parse'type']) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'bucket - = P'.try - (do - v <- P'.getT "bucket" - Prelude'.return (\ o -> o{bucket = v})) - parse'props - = P'.try - (do - v <- P'.getT "props" - Prelude'.return (\ o -> o{props = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/SetBucketTypeRequest.hs b/src/Network/Riak/Protocol/SetBucketTypeRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/SetBucketTypeRequest.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.SetBucketTypeRequest (SetBucketTypeRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.BucketProps as Protocol (BucketProps) - -data SetBucketTypeRequest = SetBucketTypeRequest{type' :: !(P'.ByteString), props :: !(Protocol.BucketProps)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable SetBucketTypeRequest where - mergeAppend (SetBucketTypeRequest x'1 x'2) (SetBucketTypeRequest y'1 y'2) - = SetBucketTypeRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default SetBucketTypeRequest where - defaultValue = SetBucketTypeRequest P'.defaultValue P'.defaultValue - -instance P'.Wire SetBucketTypeRequest where - wireSize ft' self'@(SetBucketTypeRequest x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 11 x'2) - wirePutWithSize ft' self'@(SetBucketTypeRequest x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 18 11 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{props = P'.mergeAppend (props old'Self) (new'Field)}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> SetBucketTypeRequest) SetBucketTypeRequest where - getVal m' f' = f' m' - -instance P'.GPB SetBucketTypeRequest - -instance P'.ReflectDescriptor SetBucketTypeRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 18]) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SetBucketTypeRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetBucketTypeRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SetBucketTypeRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetBucketTypeRequest.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetBucketTypeRequest\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetBucketTypeRequest.props\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetBucketTypeRequest\"], baseName' = FName \"props\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.BucketProps\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"BucketProps\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType SetBucketTypeRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg SetBucketTypeRequest where - textPut msg - = do - P'.tellT "type" (type' msg) - P'.tellT "props" (props msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'type', parse'props]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) - parse'props - = P'.try - (do - v <- P'.getT "props" - Prelude'.return (\ o -> o{props = v})) diff --git a/src/Network/Riak/Protocol/SetClientIDRequest.hs b/src/Network/Riak/Protocol/SetClientIDRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/SetClientIDRequest.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.SetClientIDRequest (SetClientIDRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data SetClientIDRequest = SetClientIDRequest{client_id :: !(P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable SetClientIDRequest where - mergeAppend (SetClientIDRequest x'1) (SetClientIDRequest y'1) = SetClientIDRequest (P'.mergeAppend x'1 y'1) - -instance P'.Default SetClientIDRequest where - defaultValue = SetClientIDRequest P'.defaultValue - -instance P'.Wire SetClientIDRequest where - wireSize ft' self'@(SetClientIDRequest x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1) - wirePutWithSize ft' self'@(SetClientIDRequest x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{client_id = new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> SetClientIDRequest) SetClientIDRequest where - getVal m' f' = f' m' - -instance P'.GPB SetClientIDRequest - -instance P'.ReflectDescriptor SetClientIDRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SetClientIDRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetClientIDRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SetClientIDRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetClientIDRequest.client_id\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetClientIDRequest\"], baseName' = FName \"client_id\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType SetClientIDRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg SetClientIDRequest where - textPut msg - = do - P'.tellT "client_id" (client_id msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'client_id]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'client_id - = P'.try - (do - v <- P'.getT "client_id" - Prelude'.return (\ o -> o{client_id = v})) diff --git a/src/Network/Riak/Protocol/SetOp.hs b/src/Network/Riak/Protocol/SetOp.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/SetOp.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.SetOp (SetOp(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data SetOp = SetOp{adds :: !(P'.Seq P'.ByteString), removes :: !(P'.Seq P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable SetOp where - mergeAppend (SetOp x'1 x'2) (SetOp y'1 y'2) = SetOp (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default SetOp where - defaultValue = SetOp P'.defaultValue P'.defaultValue - -instance P'.Wire SetOp where - wireSize ft' self'@(SetOp x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 12 x'1 + P'.wireSizeRep 1 12 x'2) - wirePutWithSize ft' self'@(SetOp x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 12 x'1, P'.wirePutRepWithSize 18 12 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{adds = P'.append (adds old'Self) new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{removes = P'.append (removes old'Self) new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> SetOp) SetOp where - getVal m' f' = f' m' - -instance P'.GPB SetOp - -instance P'.ReflectDescriptor SetOp where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.SetOp\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"SetOp\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"SetOp.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetOp.adds\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetOp\"], baseName' = FName \"adds\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.SetOp.removes\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"SetOp\"], baseName' = FName \"removes\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType SetOp where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg SetOp where - textPut msg - = do - P'.tellT "adds" (adds msg) - P'.tellT "removes" (removes msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'adds, parse'removes]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'adds - = P'.try - (do - v <- P'.getT "adds" - Prelude'.return (\ o -> o{adds = P'.append (adds o) v})) - parse'removes - = P'.try - (do - v <- P'.getT "removes" - Prelude'.return (\ o -> o{removes = P'.append (removes o) v})) diff --git a/src/Network/Riak/Protocol/TsCell.hs b/src/Network/Riak/Protocol/TsCell.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsCell.hs +++ /dev/null @@ -1,121 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsCell (TsCell(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data TsCell = TsCell{varchar_value :: !(P'.Maybe P'.ByteString), sint64_value :: !(P'.Maybe P'.Int64), - timestamp_value :: !(P'.Maybe P'.Int64), boolean_value :: !(P'.Maybe P'.Bool), - double_value :: !(P'.Maybe P'.Double)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsCell where - mergeAppend (TsCell x'1 x'2 x'3 x'4 x'5) (TsCell y'1 y'2 y'3 y'4 y'5) - = TsCell (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - -instance P'.Default TsCell where - defaultValue = TsCell P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire TsCell where - wireSize ft' self'@(TsCell x'1 x'2 x'3 x'4 x'5) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeOpt 1 12 x'1 + P'.wireSizeOpt 1 18 x'2 + P'.wireSizeOpt 1 18 x'3 + P'.wireSizeOpt 1 8 x'4 + - P'.wireSizeOpt 1 1 x'5) - wirePutWithSize ft' self'@(TsCell x'1 x'2 x'3 x'4 x'5) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutOptWithSize 10 12 x'1, P'.wirePutOptWithSize 16 18 x'2, P'.wirePutOptWithSize 24 18 x'3, - P'.wirePutOptWithSize 32 8 x'4, P'.wirePutOptWithSize 41 1 x'5] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{varchar_value = Prelude'.Just new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{sint64_value = Prelude'.Just new'Field}) (P'.wireGet 18) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{timestamp_value = Prelude'.Just new'Field}) (P'.wireGet 18) - 32 -> Prelude'.fmap (\ !new'Field -> old'Self{boolean_value = Prelude'.Just new'Field}) (P'.wireGet 8) - 41 -> Prelude'.fmap (\ !new'Field -> old'Self{double_value = Prelude'.Just new'Field}) (P'.wireGet 1) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsCell) TsCell where - getVal m' f' = f' m' - -instance P'.GPB TsCell - -instance P'.ReflectDescriptor TsCell where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 16, 24, 32, 41]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsCell\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCell\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsCell.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCell.varchar_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCell\"], baseName' = FName \"varchar_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCell.sint64_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCell\"], baseName' = FName \"sint64_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCell.timestamp_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCell\"], baseName' = FName \"timestamp_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCell.boolean_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCell\"], baseName' = FName \"boolean_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCell.double_value\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCell\"], baseName' = FName \"double_value\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 41}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 1}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsCell where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsCell where - textPut msg - = do - P'.tellT "varchar_value" (varchar_value msg) - P'.tellT "sint64_value" (sint64_value msg) - P'.tellT "timestamp_value" (timestamp_value msg) - P'.tellT "boolean_value" (boolean_value msg) - P'.tellT "double_value" (double_value msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'varchar_value, parse'sint64_value, parse'timestamp_value, parse'boolean_value, parse'double_value]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'varchar_value - = P'.try - (do - v <- P'.getT "varchar_value" - Prelude'.return (\ o -> o{varchar_value = v})) - parse'sint64_value - = P'.try - (do - v <- P'.getT "sint64_value" - Prelude'.return (\ o -> o{sint64_value = v})) - parse'timestamp_value - = P'.try - (do - v <- P'.getT "timestamp_value" - Prelude'.return (\ o -> o{timestamp_value = v})) - parse'boolean_value - = P'.try - (do - v <- P'.getT "boolean_value" - Prelude'.return (\ o -> o{boolean_value = v})) - parse'double_value - = P'.try - (do - v <- P'.getT "double_value" - Prelude'.return (\ o -> o{double_value = v})) diff --git a/src/Network/Riak/Protocol/TsColumnDescription.hs b/src/Network/Riak/Protocol/TsColumnDescription.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsColumnDescription.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsColumnDescription (TsColumnDescription(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsColumnType as Protocol (TsColumnType) - -data TsColumnDescription = TsColumnDescription{name :: !(P'.ByteString), type' :: !(Protocol.TsColumnType)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsColumnDescription where - mergeAppend (TsColumnDescription x'1 x'2) (TsColumnDescription y'1 y'2) - = TsColumnDescription (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default TsColumnDescription where - defaultValue = TsColumnDescription P'.defaultValue P'.defaultValue - -instance P'.Wire TsColumnDescription where - wireSize ft' self'@(TsColumnDescription x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 14 x'2) - wirePutWithSize ft' self'@(TsColumnDescription x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 16 14 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{name = new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{type' = new'Field}) (P'.wireGet 14) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsColumnDescription) TsColumnDescription where - getVal m' f' = f' m' - -instance P'.GPB TsColumnDescription - -instance P'.ReflectDescriptor TsColumnDescription where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 16]) (P'.fromDistinctAscList [10, 16]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsColumnDescription\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnDescription\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsColumnDescription.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsColumnDescription.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsColumnDescription\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsColumnDescription.type\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsColumnDescription\"], baseName' = FName \"type'\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsColumnType\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnType\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsColumnDescription where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsColumnDescription where - textPut msg - = do - P'.tellT "name" (name msg) - P'.tellT "type" (type' msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'name, parse'type']) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'name - = P'.try - (do - v <- P'.getT "name" - Prelude'.return (\ o -> o{name = v})) - parse'type' - = P'.try - (do - v <- P'.getT "type" - Prelude'.return (\ o -> o{type' = v})) diff --git a/src/Network/Riak/Protocol/TsColumnType.hs b/src/Network/Riak/Protocol/TsColumnType.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsColumnType.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsColumnType (TsColumnType(..)) where -import Prelude ((+), (/), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data TsColumnType = VARCHAR - | SINT64 - | DOUBLE - | TIMESTAMP - | BOOLEAN - | BLOB - deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, - Prelude'.Generic) - -instance P'.Mergeable TsColumnType - -instance Prelude'.Bounded TsColumnType where - minBound = VARCHAR - maxBound = BLOB - -instance P'.Default TsColumnType where - defaultValue = VARCHAR - -toMaybe'Enum :: Prelude'.Int -> P'.Maybe TsColumnType -toMaybe'Enum 0 = Prelude'.Just VARCHAR -toMaybe'Enum 1 = Prelude'.Just SINT64 -toMaybe'Enum 2 = Prelude'.Just DOUBLE -toMaybe'Enum 3 = Prelude'.Just TIMESTAMP -toMaybe'Enum 4 = Prelude'.Just BOOLEAN -toMaybe'Enum 5 = Prelude'.Just BLOB -toMaybe'Enum _ = Prelude'.Nothing - -instance Prelude'.Enum TsColumnType where - fromEnum VARCHAR = 0 - fromEnum SINT64 = 1 - fromEnum DOUBLE = 2 - fromEnum TIMESTAMP = 3 - fromEnum BOOLEAN = 4 - fromEnum BLOB = 5 - toEnum - = P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type Network.Riak.Protocol.TsColumnType") . - toMaybe'Enum - succ VARCHAR = SINT64 - succ SINT64 = DOUBLE - succ DOUBLE = TIMESTAMP - succ TIMESTAMP = BOOLEAN - succ BOOLEAN = BLOB - succ _ = Prelude'.error "hprotoc generated code: succ failure for type Network.Riak.Protocol.TsColumnType" - pred SINT64 = VARCHAR - pred DOUBLE = SINT64 - pred TIMESTAMP = DOUBLE - pred BOOLEAN = TIMESTAMP - pred BLOB = BOOLEAN - pred _ = Prelude'.error "hprotoc generated code: pred failure for type Network.Riak.Protocol.TsColumnType" - -instance P'.Wire TsColumnType where - wireSize ft' enum = P'.wireSize ft' (Prelude'.fromEnum enum) - wirePut ft' enum = P'.wirePut ft' (Prelude'.fromEnum enum) - wireGet 14 = P'.wireGetEnum toMaybe'Enum - wireGet ft' = P'.wireGetErr ft' - wireGetPacked 14 = P'.wireGetPackedEnum toMaybe'Enum - wireGetPacked ft' = P'.wireGetErr ft' - -instance P'.GPB TsColumnType - -instance P'.MessageAPI msg' (msg' -> TsColumnType) TsColumnType where - getVal m' f' = f' m' - -instance P'.ReflectEnum TsColumnType where - reflectEnum - = [(0, "VARCHAR", VARCHAR), (1, "SINT64", SINT64), (2, "DOUBLE", DOUBLE), (3, "TIMESTAMP", TIMESTAMP), (4, "BOOLEAN", BOOLEAN), - (5, "BLOB", BLOB)] - reflectEnumInfo _ - = P'.EnumInfo (P'.makePNF (P'.pack ".Protocol.TsColumnType") ["Network", "Riak"] ["Protocol"] "TsColumnType") - ["Network", "Riak", "Protocol", "TsColumnType.hs"] - [(0, "VARCHAR"), (1, "SINT64"), (2, "DOUBLE"), (3, "TIMESTAMP"), (4, "BOOLEAN"), (5, "BLOB")] - Prelude'.False - -instance P'.TextType TsColumnType where - tellT = P'.tellShow - getT = P'.getRead diff --git a/src/Network/Riak/Protocol/TsCoverageEntry.hs b/src/Network/Riak/Protocol/TsCoverageEntry.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsCoverageEntry.hs +++ /dev/null @@ -1,109 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsCoverageEntry (TsCoverageEntry(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsRange as Protocol (TsRange) - -data TsCoverageEntry = TsCoverageEntry{ip :: !(P'.ByteString), port :: !(P'.Word32), cover_context :: !(P'.ByteString), - range :: !(P'.Maybe Protocol.TsRange)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsCoverageEntry where - mergeAppend (TsCoverageEntry x'1 x'2 x'3 x'4) (TsCoverageEntry y'1 y'2 y'3 y'4) - = TsCoverageEntry (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - -instance P'.Default TsCoverageEntry where - defaultValue = TsCoverageEntry P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire TsCoverageEntry where - wireSize ft' self'@(TsCoverageEntry x'1 x'2 x'3 x'4) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 13 x'2 + P'.wireSizeReq 1 12 x'3 + P'.wireSizeOpt 1 11 x'4) - wirePutWithSize ft' self'@(TsCoverageEntry x'1 x'2 x'3 x'4) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 16 13 x'2, P'.wirePutReqWithSize 26 12 x'3, - P'.wirePutOptWithSize 34 11 x'4] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{ip = new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{port = new'Field}) (P'.wireGet 13) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{cover_context = new'Field}) (P'.wireGet 12) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{range = P'.mergeAppend (range old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsCoverageEntry) TsCoverageEntry where - getVal m' f' = f' m' - -instance P'.GPB TsCoverageEntry - -instance P'.ReflectDescriptor TsCoverageEntry where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10, 16, 26]) (P'.fromDistinctAscList [10, 16, 26, 34]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsCoverageEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCoverageEntry\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsCoverageEntry.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageEntry.ip\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageEntry\"], baseName' = FName \"ip\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageEntry.port\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageEntry\"], baseName' = FName \"port\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageEntry.cover_context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageEntry\"], baseName' = FName \"cover_context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageEntry.range\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageEntry\"], baseName' = FName \"range\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsRange\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRange\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsCoverageEntry where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsCoverageEntry where - textPut msg - = do - P'.tellT "ip" (ip msg) - P'.tellT "port" (port msg) - P'.tellT "cover_context" (cover_context msg) - P'.tellT "range" (range msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'ip, parse'port, parse'cover_context, parse'range]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'ip - = P'.try - (do - v <- P'.getT "ip" - Prelude'.return (\ o -> o{ip = v})) - parse'port - = P'.try - (do - v <- P'.getT "port" - Prelude'.return (\ o -> o{port = v})) - parse'cover_context - = P'.try - (do - v <- P'.getT "cover_context" - Prelude'.return (\ o -> o{cover_context = v})) - parse'range - = P'.try - (do - v <- P'.getT "range" - Prelude'.return (\ o -> o{range = v})) diff --git a/src/Network/Riak/Protocol/TsCoverageRequest.hs b/src/Network/Riak/Protocol/TsCoverageRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsCoverageRequest.hs +++ /dev/null @@ -1,110 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsCoverageRequest (TsCoverageRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsInterpolation as Protocol (TsInterpolation) - -data TsCoverageRequest = TsCoverageRequest{query :: !(P'.Maybe Protocol.TsInterpolation), table :: !(P'.ByteString), - replace_cover :: !(P'.Maybe P'.ByteString), unavailable_cover :: !(P'.Seq P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsCoverageRequest where - mergeAppend (TsCoverageRequest x'1 x'2 x'3 x'4) (TsCoverageRequest y'1 y'2 y'3 y'4) - = TsCoverageRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - -instance P'.Default TsCoverageRequest where - defaultValue = TsCoverageRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire TsCoverageRequest where - wireSize ft' self'@(TsCoverageRequest x'1 x'2 x'3 x'4) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 11 x'1 + P'.wireSizeReq 1 12 x'2 + P'.wireSizeOpt 1 12 x'3 + P'.wireSizeRep 1 12 x'4) - wirePutWithSize ft' self'@(TsCoverageRequest x'1 x'2 x'3 x'4) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutOptWithSize 10 11 x'1, P'.wirePutReqWithSize 18 12 x'2, P'.wirePutOptWithSize 26 12 x'3, - P'.wirePutRepWithSize 34 12 x'4] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{query = P'.mergeAppend (query old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{table = new'Field}) (P'.wireGet 12) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{replace_cover = Prelude'.Just new'Field}) (P'.wireGet 12) - 34 -> Prelude'.fmap (\ !new'Field -> old'Self{unavailable_cover = P'.append (unavailable_cover old'Self) new'Field}) - (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsCoverageRequest) TsCoverageRequest where - getVal m' f' = f' m' - -instance P'.GPB TsCoverageRequest - -instance P'.ReflectDescriptor TsCoverageRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [18]) (P'.fromDistinctAscList [10, 18, 26, 34]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsCoverageRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCoverageRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsCoverageRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageRequest.query\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageRequest\"], baseName' = FName \"query\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsInterpolation\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsInterpolation\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageRequest.table\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageRequest\"], baseName' = FName \"table\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageRequest.replace_cover\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageRequest\"], baseName' = FName \"replace_cover\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageRequest.unavailable_cover\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageRequest\"], baseName' = FName \"unavailable_cover\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 34}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsCoverageRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsCoverageRequest where - textPut msg - = do - P'.tellT "query" (query msg) - P'.tellT "table" (table msg) - P'.tellT "replace_cover" (replace_cover msg) - P'.tellT "unavailable_cover" (unavailable_cover msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'query, parse'table, parse'replace_cover, parse'unavailable_cover]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'query - = P'.try - (do - v <- P'.getT "query" - Prelude'.return (\ o -> o{query = v})) - parse'table - = P'.try - (do - v <- P'.getT "table" - Prelude'.return (\ o -> o{table = v})) - parse'replace_cover - = P'.try - (do - v <- P'.getT "replace_cover" - Prelude'.return (\ o -> o{replace_cover = v})) - parse'unavailable_cover - = P'.try - (do - v <- P'.getT "unavailable_cover" - Prelude'.return (\ o -> o{unavailable_cover = P'.append (unavailable_cover o) v})) diff --git a/src/Network/Riak/Protocol/TsCoverageResponse.hs b/src/Network/Riak/Protocol/TsCoverageResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsCoverageResponse.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsCoverageResponse (TsCoverageResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsCoverageEntry as Protocol (TsCoverageEntry) - -data TsCoverageResponse = TsCoverageResponse{entries :: !(P'.Seq Protocol.TsCoverageEntry)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsCoverageResponse where - mergeAppend (TsCoverageResponse x'1) (TsCoverageResponse y'1) = TsCoverageResponse (P'.mergeAppend x'1 y'1) - -instance P'.Default TsCoverageResponse where - defaultValue = TsCoverageResponse P'.defaultValue - -instance P'.Wire TsCoverageResponse where - wireSize ft' self'@(TsCoverageResponse x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1) - wirePutWithSize ft' self'@(TsCoverageResponse x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{entries = P'.append (entries old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsCoverageResponse) TsCoverageResponse where - getVal m' f' = f' m' - -instance P'.GPB TsCoverageResponse - -instance P'.ReflectDescriptor TsCoverageResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsCoverageResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCoverageResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsCoverageResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsCoverageResponse.entries\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsCoverageResponse\"], baseName' = FName \"entries\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsCoverageEntry\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCoverageEntry\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsCoverageResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsCoverageResponse where - textPut msg - = do - P'.tellT "entries" (entries msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'entries]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'entries - = P'.try - (do - v <- P'.getT "entries" - Prelude'.return (\ o -> o{entries = P'.append (entries o) v})) diff --git a/src/Network/Riak/Protocol/TsDeleteRequest.hs b/src/Network/Riak/Protocol/TsDeleteRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsDeleteRequest.hs +++ /dev/null @@ -1,108 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsDeleteRequest (TsDeleteRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsCell as Protocol (TsCell) - -data TsDeleteRequest = TsDeleteRequest{table :: !(P'.ByteString), key :: !(P'.Seq Protocol.TsCell), - vclock :: !(P'.Maybe P'.ByteString), timeout :: !(P'.Maybe P'.Word32)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsDeleteRequest where - mergeAppend (TsDeleteRequest x'1 x'2 x'3 x'4) (TsDeleteRequest y'1 y'2 y'3 y'4) - = TsDeleteRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - -instance P'.Default TsDeleteRequest where - defaultValue = TsDeleteRequest P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire TsDeleteRequest where - wireSize ft' self'@(TsDeleteRequest x'1 x'2 x'3 x'4) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeRep 1 11 x'2 + P'.wireSizeOpt 1 12 x'3 + P'.wireSizeOpt 1 13 x'4) - wirePutWithSize ft' self'@(TsDeleteRequest x'1 x'2 x'3 x'4) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutRepWithSize 18 11 x'2, P'.wirePutOptWithSize 26 12 x'3, - P'.wirePutOptWithSize 32 13 x'4] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{table = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = P'.append (key old'Self) new'Field}) (P'.wireGet 11) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{vclock = Prelude'.Just new'Field}) (P'.wireGet 12) - 32 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsDeleteRequest) TsDeleteRequest where - getVal m' f' = f' m' - -instance P'.GPB TsDeleteRequest - -instance P'.ReflectDescriptor TsDeleteRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18, 26, 32]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsDeleteRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsDeleteRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsDeleteRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsDeleteRequest.table\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsDeleteRequest\"], baseName' = FName \"table\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsDeleteRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsDeleteRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsCell\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCell\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsDeleteRequest.vclock\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsDeleteRequest\"], baseName' = FName \"vclock\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsDeleteRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsDeleteRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsDeleteRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsDeleteRequest where - textPut msg - = do - P'.tellT "table" (table msg) - P'.tellT "key" (key msg) - P'.tellT "vclock" (vclock msg) - P'.tellT "timeout" (timeout msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'table, parse'key, parse'vclock, parse'timeout]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'table - = P'.try - (do - v <- P'.getT "table" - Prelude'.return (\ o -> o{table = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = P'.append (key o) v})) - parse'vclock - = P'.try - (do - v <- P'.getT "vclock" - Prelude'.return (\ o -> o{vclock = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) diff --git a/src/Network/Riak/Protocol/TsDeleteResponse.hs b/src/Network/Riak/Protocol/TsDeleteResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsDeleteResponse.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsDeleteResponse (TsDeleteResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data TsDeleteResponse = TsDeleteResponse{} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsDeleteResponse where - mergeAppend TsDeleteResponse TsDeleteResponse = TsDeleteResponse - -instance P'.Default TsDeleteResponse where - defaultValue = TsDeleteResponse - -instance P'.Wire TsDeleteResponse where - wireSize ft' self'@(TsDeleteResponse) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = 0 - wirePutWithSize ft' self'@(TsDeleteResponse) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsDeleteResponse) TsDeleteResponse where - getVal m' f' = f' m' - -instance P'.GPB TsDeleteResponse - -instance P'.ReflectDescriptor TsDeleteResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList []) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsDeleteResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsDeleteResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsDeleteResponse.hs\"], isGroup = False, fields = fromList [], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsDeleteResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsDeleteResponse where - textPut msg = Prelude'.return () - textGet = Prelude'.return P'.defaultValue - where diff --git a/src/Network/Riak/Protocol/TsGetRequest.hs b/src/Network/Riak/Protocol/TsGetRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsGetRequest.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsGetRequest (TsGetRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsCell as Protocol (TsCell) - -data TsGetRequest = TsGetRequest{table :: !(P'.ByteString), key :: !(P'.Seq Protocol.TsCell), timeout :: !(P'.Maybe P'.Word32)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsGetRequest where - mergeAppend (TsGetRequest x'1 x'2 x'3) (TsGetRequest y'1 y'2 y'3) - = TsGetRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default TsGetRequest where - defaultValue = TsGetRequest P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire TsGetRequest where - wireSize ft' self'@(TsGetRequest x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeRep 1 11 x'2 + P'.wireSizeOpt 1 13 x'3) - wirePutWithSize ft' self'@(TsGetRequest x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutRepWithSize 18 11 x'2, P'.wirePutOptWithSize 24 13 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{table = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{key = P'.append (key old'Self) new'Field}) (P'.wireGet 11) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsGetRequest) TsGetRequest where - getVal m' f' = f' m' - -instance P'.GPB TsGetRequest - -instance P'.ReflectDescriptor TsGetRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18, 24]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsGetRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsGetRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsGetRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsGetRequest.table\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsGetRequest\"], baseName' = FName \"table\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsGetRequest.key\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsGetRequest\"], baseName' = FName \"key\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsCell\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCell\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsGetRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsGetRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsGetRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsGetRequest where - textPut msg - = do - P'.tellT "table" (table msg) - P'.tellT "key" (key msg) - P'.tellT "timeout" (timeout msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'table, parse'key, parse'timeout]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'table - = P'.try - (do - v <- P'.getT "table" - Prelude'.return (\ o -> o{table = v})) - parse'key - = P'.try - (do - v <- P'.getT "key" - Prelude'.return (\ o -> o{key = P'.append (key o) v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) diff --git a/src/Network/Riak/Protocol/TsGetResponse.hs b/src/Network/Riak/Protocol/TsGetResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsGetResponse.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsGetResponse (TsGetResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsColumnDescription as Protocol (TsColumnDescription) -import qualified Network.Riak.Protocol.TsRow as Protocol (TsRow) - -data TsGetResponse = TsGetResponse{columns :: !(P'.Seq Protocol.TsColumnDescription), rows :: !(P'.Seq Protocol.TsRow)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsGetResponse where - mergeAppend (TsGetResponse x'1 x'2) (TsGetResponse y'1 y'2) = TsGetResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default TsGetResponse where - defaultValue = TsGetResponse P'.defaultValue P'.defaultValue - -instance P'.Wire TsGetResponse where - wireSize ft' self'@(TsGetResponse x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1 + P'.wireSizeRep 1 11 x'2) - wirePutWithSize ft' self'@(TsGetResponse x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1, P'.wirePutRepWithSize 18 11 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{columns = P'.append (columns old'Self) new'Field}) (P'.wireGet 11) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{rows = P'.append (rows old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsGetResponse) TsGetResponse where - getVal m' f' = f' m' - -instance P'.GPB TsGetResponse - -instance P'.ReflectDescriptor TsGetResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsGetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsGetResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsGetResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsGetResponse.columns\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsGetResponse\"], baseName' = FName \"columns\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsColumnDescription\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnDescription\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsGetResponse.rows\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsGetResponse\"], baseName' = FName \"rows\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsRow\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRow\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsGetResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsGetResponse where - textPut msg - = do - P'.tellT "columns" (columns msg) - P'.tellT "rows" (rows msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'columns, parse'rows]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'columns - = P'.try - (do - v <- P'.getT "columns" - Prelude'.return (\ o -> o{columns = P'.append (columns o) v})) - parse'rows - = P'.try - (do - v <- P'.getT "rows" - Prelude'.return (\ o -> o{rows = P'.append (rows o) v})) diff --git a/src/Network/Riak/Protocol/TsInterpolation.hs b/src/Network/Riak/Protocol/TsInterpolation.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsInterpolation.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsInterpolation (TsInterpolation(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.Pair as Protocol (Pair) - -data TsInterpolation = TsInterpolation{base :: !(P'.ByteString), interpolations :: !(P'.Seq Protocol.Pair)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsInterpolation where - mergeAppend (TsInterpolation x'1 x'2) (TsInterpolation y'1 y'2) - = TsInterpolation (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default TsInterpolation where - defaultValue = TsInterpolation P'.defaultValue P'.defaultValue - -instance P'.Wire TsInterpolation where - wireSize ft' self'@(TsInterpolation x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeRep 1 11 x'2) - wirePutWithSize ft' self'@(TsInterpolation x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutRepWithSize 18 11 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{base = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{interpolations = P'.append (interpolations old'Self) new'Field}) - (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsInterpolation) TsInterpolation where - getVal m' f' = f' m' - -instance P'.GPB TsInterpolation - -instance P'.ReflectDescriptor TsInterpolation where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsInterpolation\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsInterpolation\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsInterpolation.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsInterpolation.base\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsInterpolation\"], baseName' = FName \"base\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsInterpolation.interpolations\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsInterpolation\"], baseName' = FName \"interpolations\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.Pair\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"Pair\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsInterpolation where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsInterpolation where - textPut msg - = do - P'.tellT "base" (base msg) - P'.tellT "interpolations" (interpolations msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'base, parse'interpolations]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'base - = P'.try - (do - v <- P'.getT "base" - Prelude'.return (\ o -> o{base = v})) - parse'interpolations - = P'.try - (do - v <- P'.getT "interpolations" - Prelude'.return (\ o -> o{interpolations = P'.append (interpolations o) v})) diff --git a/src/Network/Riak/Protocol/TsListKeysRequest.hs b/src/Network/Riak/Protocol/TsListKeysRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsListKeysRequest.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsListKeysRequest (TsListKeysRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data TsListKeysRequest = TsListKeysRequest{table :: !(P'.ByteString), timeout :: !(P'.Maybe P'.Word32)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsListKeysRequest where - mergeAppend (TsListKeysRequest x'1 x'2) (TsListKeysRequest y'1 y'2) - = TsListKeysRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default TsListKeysRequest where - defaultValue = TsListKeysRequest P'.defaultValue P'.defaultValue - -instance P'.Wire TsListKeysRequest where - wireSize ft' self'@(TsListKeysRequest x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeOpt 1 13 x'2) - wirePutWithSize ft' self'@(TsListKeysRequest x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutOptWithSize 16 13 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{table = new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsListKeysRequest) TsListKeysRequest where - getVal m' f' = f' m' - -instance P'.GPB TsListKeysRequest - -instance P'.ReflectDescriptor TsListKeysRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 16]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsListKeysRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsListKeysRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsListKeysRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsListKeysRequest.table\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsListKeysRequest\"], baseName' = FName \"table\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsListKeysRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsListKeysRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsListKeysRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsListKeysRequest where - textPut msg - = do - P'.tellT "table" (table msg) - P'.tellT "timeout" (timeout msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'table, parse'timeout]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'table - = P'.try - (do - v <- P'.getT "table" - Prelude'.return (\ o -> o{table = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) diff --git a/src/Network/Riak/Protocol/TsListKeysResponse.hs b/src/Network/Riak/Protocol/TsListKeysResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsListKeysResponse.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsListKeysResponse (TsListKeysResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsRow as Protocol (TsRow) - -data TsListKeysResponse = TsListKeysResponse{keys :: !(P'.Seq Protocol.TsRow), done :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsListKeysResponse where - mergeAppend (TsListKeysResponse x'1 x'2) (TsListKeysResponse y'1 y'2) - = TsListKeysResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default TsListKeysResponse where - defaultValue = TsListKeysResponse P'.defaultValue P'.defaultValue - -instance P'.Wire TsListKeysResponse where - wireSize ft' self'@(TsListKeysResponse x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1 + P'.wireSizeOpt 1 8 x'2) - wirePutWithSize ft' self'@(TsListKeysResponse x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1, P'.wirePutOptWithSize 16 8 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{keys = P'.append (keys old'Self) new'Field}) (P'.wireGet 11) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{done = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsListKeysResponse) TsListKeysResponse where - getVal m' f' = f' m' - -instance P'.GPB TsListKeysResponse - -instance P'.ReflectDescriptor TsListKeysResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 16]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsListKeysResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsListKeysResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsListKeysResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsListKeysResponse.keys\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsListKeysResponse\"], baseName' = FName \"keys\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsRow\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRow\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsListKeysResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsListKeysResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsListKeysResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsListKeysResponse where - textPut msg - = do - P'.tellT "keys" (keys msg) - P'.tellT "done" (done msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'keys, parse'done]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'keys - = P'.try - (do - v <- P'.getT "keys" - Prelude'.return (\ o -> o{keys = P'.append (keys o) v})) - parse'done - = P'.try - (do - v <- P'.getT "done" - Prelude'.return (\ o -> o{done = v})) diff --git a/src/Network/Riak/Protocol/TsPutRequest.hs b/src/Network/Riak/Protocol/TsPutRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsPutRequest.hs +++ /dev/null @@ -1,101 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsPutRequest (TsPutRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsColumnDescription as Protocol (TsColumnDescription) -import qualified Network.Riak.Protocol.TsRow as Protocol (TsRow) - -data TsPutRequest = TsPutRequest{table :: !(P'.ByteString), columns :: !(P'.Seq Protocol.TsColumnDescription), - rows :: !(P'.Seq Protocol.TsRow)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsPutRequest where - mergeAppend (TsPutRequest x'1 x'2 x'3) (TsPutRequest y'1 y'2 y'3) - = TsPutRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default TsPutRequest where - defaultValue = TsPutRequest P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire TsPutRequest where - wireSize ft' self'@(TsPutRequest x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeRep 1 11 x'2 + P'.wireSizeRep 1 11 x'3) - wirePutWithSize ft' self'@(TsPutRequest x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutRepWithSize 18 11 x'2, P'.wirePutRepWithSize 26 11 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{table = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{columns = P'.append (columns old'Self) new'Field}) (P'.wireGet 11) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{rows = P'.append (rows old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsPutRequest) TsPutRequest where - getVal m' f' = f' m' - -instance P'.GPB TsPutRequest - -instance P'.ReflectDescriptor TsPutRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsPutRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsPutRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsPutRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsPutRequest.table\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsPutRequest\"], baseName' = FName \"table\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsPutRequest.columns\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsPutRequest\"], baseName' = FName \"columns\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsColumnDescription\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnDescription\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsPutRequest.rows\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsPutRequest\"], baseName' = FName \"rows\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsRow\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRow\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsPutRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsPutRequest where - textPut msg - = do - P'.tellT "table" (table msg) - P'.tellT "columns" (columns msg) - P'.tellT "rows" (rows msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'table, parse'columns, parse'rows]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'table - = P'.try - (do - v <- P'.getT "table" - Prelude'.return (\ o -> o{table = v})) - parse'columns - = P'.try - (do - v <- P'.getT "columns" - Prelude'.return (\ o -> o{columns = P'.append (columns o) v})) - parse'rows - = P'.try - (do - v <- P'.getT "rows" - Prelude'.return (\ o -> o{rows = P'.append (rows o) v})) diff --git a/src/Network/Riak/Protocol/TsPutResponse.hs b/src/Network/Riak/Protocol/TsPutResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsPutResponse.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsPutResponse (TsPutResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data TsPutResponse = TsPutResponse{} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsPutResponse where - mergeAppend TsPutResponse TsPutResponse = TsPutResponse - -instance P'.Default TsPutResponse where - defaultValue = TsPutResponse - -instance P'.Wire TsPutResponse where - wireSize ft' self'@(TsPutResponse) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = 0 - wirePutWithSize ft' self'@(TsPutResponse) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsPutResponse) TsPutResponse where - getVal m' f' = f' m' - -instance P'.GPB TsPutResponse - -instance P'.ReflectDescriptor TsPutResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList []) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsPutResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsPutResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsPutResponse.hs\"], isGroup = False, fields = fromList [], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsPutResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsPutResponse where - textPut msg = Prelude'.return () - textGet = Prelude'.return P'.defaultValue - where diff --git a/src/Network/Riak/Protocol/TsQueryRequest.hs b/src/Network/Riak/Protocol/TsQueryRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsQueryRequest.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsQueryRequest (TsQueryRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsInterpolation as Protocol (TsInterpolation) - -data TsQueryRequest = TsQueryRequest{query :: !(P'.Maybe Protocol.TsInterpolation), stream :: !(P'.Maybe P'.Bool), - cover_context :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsQueryRequest where - mergeAppend (TsQueryRequest x'1 x'2 x'3) (TsQueryRequest y'1 y'2 y'3) - = TsQueryRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default TsQueryRequest where - defaultValue = TsQueryRequest P'.defaultValue (Prelude'.Just Prelude'.False) P'.defaultValue - -instance P'.Wire TsQueryRequest where - wireSize ft' self'@(TsQueryRequest x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 11 x'1 + P'.wireSizeOpt 1 8 x'2 + P'.wireSizeOpt 1 12 x'3) - wirePutWithSize ft' self'@(TsQueryRequest x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize [P'.wirePutOptWithSize 10 11 x'1, P'.wirePutOptWithSize 16 8 x'2, P'.wirePutOptWithSize 26 12 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{query = P'.mergeAppend (query old'Self) (Prelude'.Just new'Field)}) - (P'.wireGet 11) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{stream = Prelude'.Just new'Field}) (P'.wireGet 8) - 26 -> Prelude'.fmap (\ !new'Field -> old'Self{cover_context = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsQueryRequest) TsQueryRequest where - getVal m' f' = f' m' - -instance P'.GPB TsQueryRequest - -instance P'.ReflectDescriptor TsQueryRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 16, 26]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsQueryRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsQueryRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsQueryRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryRequest.query\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryRequest\"], baseName' = FName \"query\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsInterpolation\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsInterpolation\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryRequest.stream\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryRequest\"], baseName' = FName \"stream\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"false\", hsDefault = Just (HsDef'Bool False)},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryRequest.cover_context\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryRequest\"], baseName' = FName \"cover_context\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 26}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsQueryRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsQueryRequest where - textPut msg - = do - P'.tellT "query" (query msg) - P'.tellT "stream" (stream msg) - P'.tellT "cover_context" (cover_context msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'query, parse'stream, parse'cover_context]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'query - = P'.try - (do - v <- P'.getT "query" - Prelude'.return (\ o -> o{query = v})) - parse'stream - = P'.try - (do - v <- P'.getT "stream" - Prelude'.return (\ o -> o{stream = v})) - parse'cover_context - = P'.try - (do - v <- P'.getT "cover_context" - Prelude'.return (\ o -> o{cover_context = v})) diff --git a/src/Network/Riak/Protocol/TsQueryResponse.hs b/src/Network/Riak/Protocol/TsQueryResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsQueryResponse.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsQueryResponse (TsQueryResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsColumnDescription as Protocol (TsColumnDescription) -import qualified Network.Riak.Protocol.TsRow as Protocol (TsRow) - -data TsQueryResponse = TsQueryResponse{columns :: !(P'.Seq Protocol.TsColumnDescription), rows :: !(P'.Seq Protocol.TsRow), - done :: !(P'.Maybe P'.Bool)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsQueryResponse where - mergeAppend (TsQueryResponse x'1 x'2 x'3) (TsQueryResponse y'1 y'2 y'3) - = TsQueryResponse (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default TsQueryResponse where - defaultValue = TsQueryResponse P'.defaultValue P'.defaultValue (Prelude'.Just Prelude'.True) - -instance P'.Wire TsQueryResponse where - wireSize ft' self'@(TsQueryResponse x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1 + P'.wireSizeRep 1 11 x'2 + P'.wireSizeOpt 1 8 x'3) - wirePutWithSize ft' self'@(TsQueryResponse x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1, P'.wirePutRepWithSize 18 11 x'2, P'.wirePutOptWithSize 24 8 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{columns = P'.append (columns old'Self) new'Field}) (P'.wireGet 11) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{rows = P'.append (rows old'Self) new'Field}) (P'.wireGet 11) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{done = Prelude'.Just new'Field}) (P'.wireGet 8) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsQueryResponse) TsQueryResponse where - getVal m' f' = f' m' - -instance P'.GPB TsQueryResponse - -instance P'.ReflectDescriptor TsQueryResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 18, 24]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsQueryResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsQueryResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsQueryResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryResponse.columns\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryResponse\"], baseName' = FName \"columns\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsColumnDescription\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsColumnDescription\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryResponse.rows\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryResponse\"], baseName' = FName \"rows\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsRow\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRow\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsQueryResponse.done\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsQueryResponse\"], baseName' = FName \"done\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Just \"true\", hsDefault = Just (HsDef'Bool True)}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsQueryResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsQueryResponse where - textPut msg - = do - P'.tellT "columns" (columns msg) - P'.tellT "rows" (rows msg) - P'.tellT "done" (done msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'columns, parse'rows, parse'done]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'columns - = P'.try - (do - v <- P'.getT "columns" - Prelude'.return (\ o -> o{columns = P'.append (columns o) v})) - parse'rows - = P'.try - (do - v <- P'.getT "rows" - Prelude'.return (\ o -> o{rows = P'.append (rows o) v})) - parse'done - = P'.try - (do - v <- P'.getT "done" - Prelude'.return (\ o -> o{done = v})) diff --git a/src/Network/Riak/Protocol/TsRange.hs b/src/Network/Riak/Protocol/TsRange.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsRange.hs +++ /dev/null @@ -1,131 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsRange (TsRange(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data TsRange = TsRange{field_name :: !(P'.ByteString), lower_bound :: !(P'.Int64), lower_bound_inclusive :: !(P'.Bool), - upper_bound :: !(P'.Int64), upper_bound_inclusive :: !(P'.Bool), desc :: !(P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsRange where - mergeAppend (TsRange x'1 x'2 x'3 x'4 x'5 x'6) (TsRange y'1 y'2 y'3 y'4 y'5 y'6) - = TsRange (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4) - (P'.mergeAppend x'5 y'5) - (P'.mergeAppend x'6 y'6) - -instance P'.Default TsRange where - defaultValue = TsRange P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire TsRange where - wireSize ft' self'@(TsRange x'1 x'2 x'3 x'4 x'5 x'6) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size - = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeReq 1 18 x'2 + P'.wireSizeReq 1 8 x'3 + P'.wireSizeReq 1 18 x'4 + - P'.wireSizeReq 1 8 x'5 - + P'.wireSizeReq 1 12 x'6) - wirePutWithSize ft' self'@(TsRange x'1 x'2 x'3 x'4 x'5 x'6) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutReqWithSize 16 18 x'2, P'.wirePutReqWithSize 24 8 x'3, - P'.wirePutReqWithSize 32 18 x'4, P'.wirePutReqWithSize 40 8 x'5, P'.wirePutReqWithSize 50 12 x'6] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{field_name = new'Field}) (P'.wireGet 12) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{lower_bound = new'Field}) (P'.wireGet 18) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{lower_bound_inclusive = new'Field}) (P'.wireGet 8) - 32 -> Prelude'.fmap (\ !new'Field -> old'Self{upper_bound = new'Field}) (P'.wireGet 18) - 40 -> Prelude'.fmap (\ !new'Field -> old'Self{upper_bound_inclusive = new'Field}) (P'.wireGet 8) - 50 -> Prelude'.fmap (\ !new'Field -> old'Self{desc = new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsRange) TsRange where - getVal m' f' = f' m' - -instance P'.GPB TsRange - -instance P'.ReflectDescriptor TsRange where - getMessageInfo _ - = P'.GetMessageInfo (P'.fromDistinctAscList [10, 16, 24, 32, 40, 50]) (P'.fromDistinctAscList [10, 16, 24, 32, 40, 50]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsRange\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRange\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsRange.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.field_name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"field_name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.lower_bound\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"lower_bound\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.lower_bound_inclusive\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"lower_bound_inclusive\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.upper_bound\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"upper_bound\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 4}, wireTag = WireTag {getWireTag = 32}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 18}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.upper_bound_inclusive\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"upper_bound_inclusive\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 40}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 8}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRange.desc\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRange\"], baseName' = FName \"desc\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 50}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsRange where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsRange where - textPut msg - = do - P'.tellT "field_name" (field_name msg) - P'.tellT "lower_bound" (lower_bound msg) - P'.tellT "lower_bound_inclusive" (lower_bound_inclusive msg) - P'.tellT "upper_bound" (upper_bound msg) - P'.tellT "upper_bound_inclusive" (upper_bound_inclusive msg) - P'.tellT "desc" (desc msg) - textGet - = do - mods <- P'.sepEndBy - (P'.choice - [parse'field_name, parse'lower_bound, parse'lower_bound_inclusive, parse'upper_bound, parse'upper_bound_inclusive, - parse'desc]) - P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'field_name - = P'.try - (do - v <- P'.getT "field_name" - Prelude'.return (\ o -> o{field_name = v})) - parse'lower_bound - = P'.try - (do - v <- P'.getT "lower_bound" - Prelude'.return (\ o -> o{lower_bound = v})) - parse'lower_bound_inclusive - = P'.try - (do - v <- P'.getT "lower_bound_inclusive" - Prelude'.return (\ o -> o{lower_bound_inclusive = v})) - parse'upper_bound - = P'.try - (do - v <- P'.getT "upper_bound" - Prelude'.return (\ o -> o{upper_bound = v})) - parse'upper_bound_inclusive - = P'.try - (do - v <- P'.getT "upper_bound_inclusive" - Prelude'.return (\ o -> o{upper_bound_inclusive = v})) - parse'desc - = P'.try - (do - v <- P'.getT "desc" - Prelude'.return (\ o -> o{desc = v})) diff --git a/src/Network/Riak/Protocol/TsRow.hs b/src/Network/Riak/Protocol/TsRow.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/TsRow.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.TsRow (TsRow(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.TsCell as Protocol (TsCell) - -data TsRow = TsRow{cells :: !(P'.Seq Protocol.TsCell)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable TsRow where - mergeAppend (TsRow x'1) (TsRow y'1) = TsRow (P'.mergeAppend x'1 y'1) - -instance P'.Default TsRow where - defaultValue = TsRow P'.defaultValue - -instance P'.Wire TsRow where - wireSize ft' self'@(TsRow x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1) - wirePutWithSize ft' self'@(TsRow x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{cells = P'.append (cells old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> TsRow) TsRow where - getVal m' f' = f' m' - -instance P'.GPB TsRow - -instance P'.ReflectDescriptor TsRow where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.TsRow\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsRow\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"TsRow.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.TsRow.cells\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"TsRow\"], baseName' = FName \"cells\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.TsCell\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"TsCell\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType TsRow where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg TsRow where - textPut msg - = do - P'.tellT "cells" (cells msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'cells]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'cells - = P'.try - (do - v <- P'.getT "cells" - Prelude'.return (\ o -> o{cells = P'.append (cells o) v})) diff --git a/src/Network/Riak/Protocol/YzIndex.hs b/src/Network/Riak/Protocol/YzIndex.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/YzIndex.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.YzIndex (YzIndex(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data YzIndex = YzIndex{name :: !(P'.ByteString), schema :: !(P'.Maybe P'.ByteString), n_val :: !(P'.Maybe P'.Word32)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable YzIndex where - mergeAppend (YzIndex x'1 x'2 x'3) (YzIndex y'1 y'2 y'3) - = YzIndex (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) - -instance P'.Default YzIndex where - defaultValue = YzIndex P'.defaultValue P'.defaultValue P'.defaultValue - -instance P'.Wire YzIndex where - wireSize ft' self'@(YzIndex x'1 x'2 x'3) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeOpt 1 12 x'2 + P'.wireSizeOpt 1 13 x'3) - wirePutWithSize ft' self'@(YzIndex x'1 x'2 x'3) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields - = P'.sequencePutWithSize - [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2, P'.wirePutOptWithSize 24 13 x'3] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{name = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{schema = Prelude'.Just new'Field}) (P'.wireGet 12) - 24 -> Prelude'.fmap (\ !new'Field -> old'Self{n_val = Prelude'.Just new'Field}) (P'.wireGet 13) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> YzIndex) YzIndex where - getVal m' f' = f' m' - -instance P'.GPB YzIndex - -instance P'.ReflectDescriptor YzIndex where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18, 24]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzIndex\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndex\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzIndex.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndex.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndex\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndex.schema\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndex\"], baseName' = FName \"schema\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndex.n_val\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndex\"], baseName' = FName \"n_val\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 3}, wireTag = WireTag {getWireTag = 24}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType YzIndex where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg YzIndex where - textPut msg - = do - P'.tellT "name" (name msg) - P'.tellT "schema" (schema msg) - P'.tellT "n_val" (n_val msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'name, parse'schema, parse'n_val]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'name - = P'.try - (do - v <- P'.getT "name" - Prelude'.return (\ o -> o{name = v})) - parse'schema - = P'.try - (do - v <- P'.getT "schema" - Prelude'.return (\ o -> o{schema = v})) - parse'n_val - = P'.try - (do - v <- P'.getT "n_val" - Prelude'.return (\ o -> o{n_val = v})) diff --git a/src/Network/Riak/Protocol/YzIndexDeleteRequest.hs b/src/Network/Riak/Protocol/YzIndexDeleteRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/YzIndexDeleteRequest.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.YzIndexDeleteRequest (YzIndexDeleteRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data YzIndexDeleteRequest = YzIndexDeleteRequest{name :: !(P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable YzIndexDeleteRequest where - mergeAppend (YzIndexDeleteRequest x'1) (YzIndexDeleteRequest y'1) = YzIndexDeleteRequest (P'.mergeAppend x'1 y'1) - -instance P'.Default YzIndexDeleteRequest where - defaultValue = YzIndexDeleteRequest P'.defaultValue - -instance P'.Wire YzIndexDeleteRequest where - wireSize ft' self'@(YzIndexDeleteRequest x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1) - wirePutWithSize ft' self'@(YzIndexDeleteRequest x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{name = new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> YzIndexDeleteRequest) YzIndexDeleteRequest where - getVal m' f' = f' m' - -instance P'.GPB YzIndexDeleteRequest - -instance P'.ReflectDescriptor YzIndexDeleteRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzIndexDeleteRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndexDeleteRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzIndexDeleteRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndexDeleteRequest.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndexDeleteRequest\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType YzIndexDeleteRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg YzIndexDeleteRequest where - textPut msg - = do - P'.tellT "name" (name msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'name]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'name - = P'.try - (do - v <- P'.getT "name" - Prelude'.return (\ o -> o{name = v})) diff --git a/src/Network/Riak/Protocol/YzIndexGetRequest.hs b/src/Network/Riak/Protocol/YzIndexGetRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/YzIndexGetRequest.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.YzIndexGetRequest (YzIndexGetRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data YzIndexGetRequest = YzIndexGetRequest{name :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable YzIndexGetRequest where - mergeAppend (YzIndexGetRequest x'1) (YzIndexGetRequest y'1) = YzIndexGetRequest (P'.mergeAppend x'1 y'1) - -instance P'.Default YzIndexGetRequest where - defaultValue = YzIndexGetRequest P'.defaultValue - -instance P'.Wire YzIndexGetRequest where - wireSize ft' self'@(YzIndexGetRequest x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeOpt 1 12 x'1) - wirePutWithSize ft' self'@(YzIndexGetRequest x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutOptWithSize 10 12 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{name = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> YzIndexGetRequest) YzIndexGetRequest where - getVal m' f' = f' m' - -instance P'.GPB YzIndexGetRequest - -instance P'.ReflectDescriptor YzIndexGetRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzIndexGetRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndexGetRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzIndexGetRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndexGetRequest.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndexGetRequest\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType YzIndexGetRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg YzIndexGetRequest where - textPut msg - = do - P'.tellT "name" (name msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'name]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'name - = P'.try - (do - v <- P'.getT "name" - Prelude'.return (\ o -> o{name = v})) diff --git a/src/Network/Riak/Protocol/YzIndexGetResponse.hs b/src/Network/Riak/Protocol/YzIndexGetResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/YzIndexGetResponse.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.YzIndexGetResponse (YzIndexGetResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.YzIndex as Protocol (YzIndex) - -data YzIndexGetResponse = YzIndexGetResponse{index :: !(P'.Seq Protocol.YzIndex)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable YzIndexGetResponse where - mergeAppend (YzIndexGetResponse x'1) (YzIndexGetResponse y'1) = YzIndexGetResponse (P'.mergeAppend x'1 y'1) - -instance P'.Default YzIndexGetResponse where - defaultValue = YzIndexGetResponse P'.defaultValue - -instance P'.Wire YzIndexGetResponse where - wireSize ft' self'@(YzIndexGetResponse x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeRep 1 11 x'1) - wirePutWithSize ft' self'@(YzIndexGetResponse x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutRepWithSize 10 11 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{index = P'.append (index old'Self) new'Field}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> YzIndexGetResponse) YzIndexGetResponse where - getVal m' f' = f' m' - -instance P'.GPB YzIndexGetResponse - -instance P'.ReflectDescriptor YzIndexGetResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzIndexGetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndexGetResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzIndexGetResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndexGetResponse.index\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndexGetResponse\"], baseName' = FName \"index\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.YzIndex\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndex\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType YzIndexGetResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg YzIndexGetResponse where - textPut msg - = do - P'.tellT "index" (index msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'index]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'index - = P'.try - (do - v <- P'.getT "index" - Prelude'.return (\ o -> o{index = P'.append (index o) v})) diff --git a/src/Network/Riak/Protocol/YzIndexPutRequest.hs b/src/Network/Riak/Protocol/YzIndexPutRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/YzIndexPutRequest.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.YzIndexPutRequest (YzIndexPutRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.YzIndex as Protocol (YzIndex) - -data YzIndexPutRequest = YzIndexPutRequest{index :: !(Protocol.YzIndex), timeout :: !(P'.Maybe P'.Word32)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable YzIndexPutRequest where - mergeAppend (YzIndexPutRequest x'1 x'2) (YzIndexPutRequest y'1 y'2) - = YzIndexPutRequest (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default YzIndexPutRequest where - defaultValue = YzIndexPutRequest P'.defaultValue P'.defaultValue - -instance P'.Wire YzIndexPutRequest where - wireSize ft' self'@(YzIndexPutRequest x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 11 x'1 + P'.wireSizeOpt 1 13 x'2) - wirePutWithSize ft' self'@(YzIndexPutRequest x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 11 x'1, P'.wirePutOptWithSize 16 13 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{index = P'.mergeAppend (index old'Self) (new'Field)}) (P'.wireGet 11) - 16 -> Prelude'.fmap (\ !new'Field -> old'Self{timeout = Prelude'.Just new'Field}) (P'.wireGet 13) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> YzIndexPutRequest) YzIndexPutRequest where - getVal m' f' = f' m' - -instance P'.GPB YzIndexPutRequest - -instance P'.ReflectDescriptor YzIndexPutRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 16]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzIndexPutRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndexPutRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzIndexPutRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndexPutRequest.index\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndexPutRequest\"], baseName' = FName \"index\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.YzIndex\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzIndex\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzIndexPutRequest.timeout\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzIndexPutRequest\"], baseName' = FName \"timeout\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 16}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 13}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType YzIndexPutRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg YzIndexPutRequest where - textPut msg - = do - P'.tellT "index" (index msg) - P'.tellT "timeout" (timeout msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'index, parse'timeout]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'index - = P'.try - (do - v <- P'.getT "index" - Prelude'.return (\ o -> o{index = v})) - parse'timeout - = P'.try - (do - v <- P'.getT "timeout" - Prelude'.return (\ o -> o{timeout = v})) diff --git a/src/Network/Riak/Protocol/YzSchema.hs b/src/Network/Riak/Protocol/YzSchema.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/YzSchema.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.YzSchema (YzSchema(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data YzSchema = YzSchema{name :: !(P'.ByteString), content :: !(P'.Maybe P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable YzSchema where - mergeAppend (YzSchema x'1 x'2) (YzSchema y'1 y'2) = YzSchema (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) - -instance P'.Default YzSchema where - defaultValue = YzSchema P'.defaultValue P'.defaultValue - -instance P'.Wire YzSchema where - wireSize ft' self'@(YzSchema x'1 x'2) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1 + P'.wireSizeOpt 1 12 x'2) - wirePutWithSize ft' self'@(YzSchema x'1 x'2) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1, P'.wirePutOptWithSize 18 12 x'2] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{name = new'Field}) (P'.wireGet 12) - 18 -> Prelude'.fmap (\ !new'Field -> old'Self{content = Prelude'.Just new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> YzSchema) YzSchema where - getVal m' f' = f' m' - -instance P'.GPB YzSchema - -instance P'.ReflectDescriptor YzSchema where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10, 18]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzSchema\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchema\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzSchema.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzSchema.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzSchema\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzSchema.content\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzSchema\"], baseName' = FName \"content\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 2}, wireTag = WireTag {getWireTag = 18}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType YzSchema where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg YzSchema where - textPut msg - = do - P'.tellT "name" (name msg) - P'.tellT "content" (content msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'name, parse'content]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'name - = P'.try - (do - v <- P'.getT "name" - Prelude'.return (\ o -> o{name = v})) - parse'content - = P'.try - (do - v <- P'.getT "content" - Prelude'.return (\ o -> o{content = v})) diff --git a/src/Network/Riak/Protocol/YzSchemaGetRequest.hs b/src/Network/Riak/Protocol/YzSchemaGetRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/YzSchemaGetRequest.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.YzSchemaGetRequest (YzSchemaGetRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' - -data YzSchemaGetRequest = YzSchemaGetRequest{name :: !(P'.ByteString)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable YzSchemaGetRequest where - mergeAppend (YzSchemaGetRequest x'1) (YzSchemaGetRequest y'1) = YzSchemaGetRequest (P'.mergeAppend x'1 y'1) - -instance P'.Default YzSchemaGetRequest where - defaultValue = YzSchemaGetRequest P'.defaultValue - -instance P'.Wire YzSchemaGetRequest where - wireSize ft' self'@(YzSchemaGetRequest x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 12 x'1) - wirePutWithSize ft' self'@(YzSchemaGetRequest x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 12 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{name = new'Field}) (P'.wireGet 12) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> YzSchemaGetRequest) YzSchemaGetRequest where - getVal m' f' = f' m' - -instance P'.GPB YzSchemaGetRequest - -instance P'.ReflectDescriptor YzSchemaGetRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzSchemaGetRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchemaGetRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzSchemaGetRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzSchemaGetRequest.name\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzSchemaGetRequest\"], baseName' = FName \"name\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 12}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType YzSchemaGetRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg YzSchemaGetRequest where - textPut msg - = do - P'.tellT "name" (name msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'name]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'name - = P'.try - (do - v <- P'.getT "name" - Prelude'.return (\ o -> o{name = v})) diff --git a/src/Network/Riak/Protocol/YzSchemaGetResponse.hs b/src/Network/Riak/Protocol/YzSchemaGetResponse.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/YzSchemaGetResponse.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.YzSchemaGetResponse (YzSchemaGetResponse(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.YzSchema as Protocol (YzSchema) - -data YzSchemaGetResponse = YzSchemaGetResponse{schema :: !(Protocol.YzSchema)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable YzSchemaGetResponse where - mergeAppend (YzSchemaGetResponse x'1) (YzSchemaGetResponse y'1) = YzSchemaGetResponse (P'.mergeAppend x'1 y'1) - -instance P'.Default YzSchemaGetResponse where - defaultValue = YzSchemaGetResponse P'.defaultValue - -instance P'.Wire YzSchemaGetResponse where - wireSize ft' self'@(YzSchemaGetResponse x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 11 x'1) - wirePutWithSize ft' self'@(YzSchemaGetResponse x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 11 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{schema = P'.mergeAppend (schema old'Self) (new'Field)}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> YzSchemaGetResponse) YzSchemaGetResponse where - getVal m' f' = f' m' - -instance P'.GPB YzSchemaGetResponse - -instance P'.ReflectDescriptor YzSchemaGetResponse where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzSchemaGetResponse\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchemaGetResponse\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzSchemaGetResponse.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzSchemaGetResponse.schema\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzSchemaGetResponse\"], baseName' = FName \"schema\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.YzSchema\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchema\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType YzSchemaGetResponse where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg YzSchemaGetResponse where - textPut msg - = do - P'.tellT "schema" (schema msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'schema]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'schema - = P'.try - (do - v <- P'.getT "schema" - Prelude'.return (\ o -> o{schema = v})) diff --git a/src/Network/Riak/Protocol/YzSchemaPutRequest.hs b/src/Network/Riak/Protocol/YzSchemaPutRequest.hs deleted file mode 100644 --- a/src/Network/Riak/Protocol/YzSchemaPutRequest.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module Network.Riak.Protocol.YzSchemaPutRequest (YzSchemaPutRequest(..)) where -import Prelude ((+), (/), (++), (.)) -import qualified Prelude as Prelude' -import qualified Data.Typeable as Prelude' -import qualified GHC.Generics as Prelude' -import qualified Data.Data as Prelude' -import qualified Text.ProtocolBuffers.Header as P' -import qualified Network.Riak.Protocol.YzSchema as Protocol (YzSchema) - -data YzSchemaPutRequest = YzSchemaPutRequest{schema :: !(Protocol.YzSchema)} - deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable YzSchemaPutRequest where - mergeAppend (YzSchemaPutRequest x'1) (YzSchemaPutRequest y'1) = YzSchemaPutRequest (P'.mergeAppend x'1 y'1) - -instance P'.Default YzSchemaPutRequest where - defaultValue = YzSchemaPutRequest P'.defaultValue - -instance P'.Wire YzSchemaPutRequest where - wireSize ft' self'@(YzSchemaPutRequest x'1) - = case ft' of - 10 -> calc'Size - 11 -> P'.prependMessageSize calc'Size - _ -> P'.wireSizeErr ft' self' - where - calc'Size = (P'.wireSizeReq 1 11 x'1) - wirePutWithSize ft' self'@(YzSchemaPutRequest x'1) - = case ft' of - 10 -> put'Fields - 11 -> put'FieldsSized - _ -> P'.wirePutErr ft' self' - where - put'Fields = P'.sequencePutWithSize [P'.wirePutReqWithSize 10 11 x'1] - put'FieldsSized - = let size' = Prelude'.fst (P'.runPutM put'Fields) - put'Size - = do - P'.putSize size' - Prelude'.return (P'.size'WireSize size') - in P'.sequencePutWithSize [put'Size, put'Fields] - wireGet ft' - = case ft' of - 10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - 11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self) - _ -> P'.wireGetErr ft' - where - update'Self wire'Tag old'Self - = case wire'Tag of - 10 -> Prelude'.fmap (\ !new'Field -> old'Self{schema = P'.mergeAppend (schema old'Self) (new'Field)}) (P'.wireGet 11) - _ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in P'.unknown field'Number wire'Type old'Self - -instance P'.MessageAPI msg' (msg' -> YzSchemaPutRequest) YzSchemaPutRequest where - getVal m' f' = f' m' - -instance P'.GPB YzSchemaPutRequest - -instance P'.ReflectDescriptor YzSchemaPutRequest where - getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList [10]) (P'.fromDistinctAscList [10]) - reflectDescriptorInfo _ - = Prelude'.read - "DescriptorInfo {descName = ProtoName {protobufName = FIName \".Protocol.YzSchemaPutRequest\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchemaPutRequest\"}, descFilePath = [\"Network\",\"Riak\",\"Protocol\",\"YzSchemaPutRequest.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".Protocol.YzSchemaPutRequest.schema\", haskellPrefix' = [MName \"Network\",MName \"Riak\"], parentModule' = [MName \"Protocol\",MName \"YzSchemaPutRequest\"], baseName' = FName \"schema\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = True, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".Protocol.YzSchema\", haskellPrefix = [MName \"Network\",MName \"Riak\"], parentModule = [MName \"Protocol\"], baseName = MName \"YzSchema\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = False}" - -instance P'.TextType YzSchemaPutRequest where - tellT = P'.tellSubMessage - getT = P'.getSubMessage - -instance P'.TextMsg YzSchemaPutRequest where - textPut msg - = do - P'.tellT "schema" (schema msg) - textGet - = do - mods <- P'.sepEndBy (P'.choice [parse'schema]) P'.spaces - Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods) - where - parse'schema - = P'.try - (do - v <- P'.getT "schema" - Prelude'.return (\ o -> o{schema = v})) diff --git a/src/riak.proto b/src/riak.proto deleted file mode 100644 --- a/src/riak.proto +++ /dev/null @@ -1,166 +0,0 @@ -/* ------------------------------------------------------------------- -** -** riak.proto: Protocol buffers for Riak -** -** Copyright (c) 2007-2010 Basho Technologies, Inc. All Rights Reserved. -** -** This file is provided to you under the Apache License, -** Version 2.0 (the "License"); you may not use this file -** except in compliance with the License. You may obtain -** a copy of the License at -** -** http://www.apache.org/licenses/LICENSE-2.0 -** -** Unless required by applicable law or agreed to in writing, -** software distributed under the License is distributed on an -** "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY -** KIND, either express or implied. See the License for the -** specific language governing permissions and limitations -** under the License. -** -** ------------------------------------------------------------------- -*/ - -/* -** Revision: 1.4 -*/ - -// Java package specifiers -option java_package = "com.basho.riak.protobuf"; -option java_outer_classname = "RiakPB"; - - -// Error response - may be generated for any Req -message RpbErrorResp { - required bytes errmsg = 1; - required uint32 errcode = 2; -} - -// Get server info request - no message defined, just send RpbGetServerInfoReq message code -message RpbGetServerInfoResp { - optional bytes node = 1; - optional bytes server_version = 2; -} - -// Key/value pair - used for user metadata, indexes, search doc fields -message RpbPair { - required bytes key = 1; - optional bytes value = 2; -} - - -// Get bucket properties request -message RpbGetBucketReq { - required bytes bucket = 1; - optional bytes type = 2; -} - -// Get bucket properties response -message RpbGetBucketResp { - required RpbBucketProps props = 1; -} - -// Set bucket properties request -message RpbSetBucketReq { - required bytes bucket = 1; - required RpbBucketProps props = 2; - optional bytes type = 3; -} - -// Set bucket properties response - no message defined, just send -// RpbSetBucketResp - -// Reset bucket properties request -message RpbResetBucketReq { - required bytes bucket = 1; - optional bytes type = 2; -} - -// Get bucket properties request -message RpbGetBucketTypeReq { - required bytes type = 1; -} - -// Set bucket properties request -message RpbSetBucketTypeReq { - required bytes type = 1; - required RpbBucketProps props = 2; -} - -// Set bucket properties response - no message defined, just send -// RpbSetBucketResp - -// Module-Function pairs for commit hooks and other bucket properties -// that take functions -message RpbModFun { - required bytes module = 1; - required bytes function = 2; -} - -// A commit hook, which may either be a modfun or a JavaScript named -// function -message RpbCommitHook { - optional RpbModFun modfun = 1; - optional bytes name = 2; -} - -// Bucket properties -message RpbBucketProps { - // Declared in riak_core_app - optional uint32 n_val = 1; - optional bool allow_mult = 2; - optional bool last_write_wins = 3; - repeated RpbCommitHook precommit = 4; - optional bool has_precommit = 5 [default = false]; - repeated RpbCommitHook postcommit = 6; - optional bool has_postcommit = 7 [default = false]; - optional RpbModFun chash_keyfun = 8; - - // Declared in riak_kv_app - optional RpbModFun linkfun = 9; - optional uint32 old_vclock = 10; - optional uint32 young_vclock = 11; - optional uint32 big_vclock = 12; - optional uint32 small_vclock = 13; - optional uint32 pr = 14; - optional uint32 r = 15; - optional uint32 w = 16; - optional uint32 pw = 17; - optional uint32 dw = 18; - optional uint32 rw = 19; - optional bool basic_quorum = 20; - optional bool notfound_ok = 21; - - // Used by riak_kv_multi_backend - optional bytes backend = 22; - - // Used by riak_search bucket fixup - optional bool search = 23; - - // Used by riak_repl bucket fixup - enum RpbReplMode { - FALSE = 0; - REALTIME = 1; - FULLSYNC = 2; - TRUE = 3; - } - optional RpbReplMode repl = 24; - - // Search index - optional bytes search_index = 25; - - // KV Datatypes - optional bytes datatype = 26; - - // KV strong consistency - optional bool consistent = 27; - - // KV fast path - optional bool write_once = 28; -} - -// Authentication request -message RpbAuthReq { - required bytes user = 1; - required bytes password = 2; -} diff --git a/src/riak_dt.proto b/src/riak_dt.proto deleted file mode 100644 --- a/src/riak_dt.proto +++ /dev/null @@ -1,254 +0,0 @@ -/* ------------------------------------------------------------------- -** -** riak_dt.proto: Protocol buffers for Riak data structures/types -** -** Copyright (c) 2013 Basho Technologies, Inc. All Rights Reserved. -** -** This file is provided to you under the Apache License, -** Version 2.0 (the "License"); you may not use this file -** except in compliance with the License. You may obtain -** a copy of the License at -** -** http://www.apache.org/licenses/LICENSE-2.0 -** -** Unless required by applicable law or agreed to in writing, -** software distributed under the License is distributed on an -** "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY -** KIND, either express or implied. See the License for the -** specific language governing permissions and limitations -** under the License. -** -** ------------------------------------------------------------------- -*/ - -/* -** Revision: 2.0 -*/ - -// Java package specifiers -option java_package = "com.basho.riak.protobuf"; -option java_outer_classname = "RiakDtPB"; - -/* - * =============== DATA STRUCTURES ================= - */ - -/* - * Field names in maps are composed of a binary identifier and a type. - * This is so that two clients can create fields with the same name - * but different types, and they converge independently. - */ -message MapField { - /* - * The types that can be stored in a map are limited to counters, - * sets, registers, flags, and maps. - */ - enum MapFieldType { - COUNTER = 1; - SET = 2; - REGISTER = 3; - FLAG = 4; - MAP = 5; - } - - required bytes name = 1; - required MapFieldType type = 2; -} - - -/* - * An entry in a map is a pair of a field-name and value. The type - * defined in the field determines which value type is expected. - */ -message MapEntry { - required MapField field = 1; - optional sint64 counter_value = 2; - repeated bytes set_value = 3; - optional bytes register_value = 4; - optional bool flag_value = 5; - repeated MapEntry map_value = 6; -} - -/* - * =============== FETCH ================= - */ - -/* - * The equivalent of KV's "RpbGetReq", results in a DtFetchResp. The - * request-time options are limited to ones that are relevant to - * structured data-types. - */ -message DtFetchReq { - // The identifier: bucket, key and bucket-type - required bytes bucket = 1; - required bytes key = 2; - required bytes type = 3; - - // Request options - optional uint32 r = 4; - optional uint32 pr = 5; - optional bool basic_quorum = 6; - optional bool notfound_ok = 7; - optional uint32 timeout = 8; - optional bool sloppy_quorum = 9; // Experimental, may change/disappear - optional uint32 n_val = 10; // Experimental, may change/disappear - - // For read-only requests or context-free operations, you can set - // this to false to reduce the size of the response payload. - optional bool include_context = 11 [default=true]; -} - - -/* - * The value of the fetched data type. If present in the response, - * then empty values (sets, maps) should be treated as such. - */ -message DtValue { - optional sint64 counter_value = 1; - repeated bytes set_value = 2; - repeated MapEntry map_value = 3; -} - - -/* - * The response to a "Fetch" request. If the `include_context` option - * is specified, an opaque "context" value will be returned along with - * the user-friendly data. When sending an "Update" request, the - * client should send this context as well, similar to how one would - * send a vclock for KV updates. The `type` field indicates which - * value type to expect. When the `value` field is missing from the - * message, the client should interpret it as a "not found". - */ -message DtFetchResp { - enum DataType { - COUNTER = 1; - SET = 2; - MAP = 3; - } - - optional bytes context = 1; - required DataType type = 2; - optional DtValue value = 3; -} - -/* - * =============== UPDATE ================= - */ - -/* - * An operation to update a Counter, either on its own or inside a - * Map. The `increment` field can be positive or negative. When absent, - * the meaning is an increment by 1. - */ -message CounterOp { - optional sint64 increment = 1; -} - -/* - * An operation to update a Set, either on its own or inside a Map. - * Set members are opaque binary values, you can only add or remove - * them from a Set. - */ -message SetOp { - repeated bytes adds = 1; - repeated bytes removes = 2; -} - -/* - * An operation to be applied to a value stored in a Map -- the - * contents of an UPDATE operation. The operation field that is - * present depends on the type of the field to which it is applied. - */ -message MapUpdate { - /* - * Flags only exist inside Maps and can only be enabled or - * disabled, and there are no arguments to the operations. - */ - enum FlagOp { - ENABLE = 1; - DISABLE = 2; - } - - required MapField field = 1; - - optional CounterOp counter_op = 2; - optional SetOp set_op = 3; - - /* - * There is only one operation on a register, which is to set its - * value, therefore the "operation" is the new value. - */ - optional bytes register_op = 4; - optional FlagOp flag_op = 5; - optional MapOp map_op = 6; -} - -/* - * An operation to update a Map. All operations apply to individual - * fields in the Map. - */ -message MapOp { - /* - * REMOVE removes a field and value from the Map. - * UPDATE applies type-specific - * operations to the values stored in the Map. - */ - repeated MapField removes = 1; - repeated MapUpdate updates = 2; -} - -/* - * A "union" type for update operations. The included operation - * depends on the datatype being updated. - */ -message DtOp { - optional CounterOp counter_op = 1; - optional SetOp set_op = 2; - optional MapOp map_op = 3; -} - -/* - * The equivalent of KV's "RpbPutReq", results in an empty response or - * "DtUpdateResp" if `return_body` is specified, or the key is - * assigned by the server. The request-time options are limited to - * ones that are relevant to structured data-types. - */ -message DtUpdateReq { - // The identifier - required bytes bucket = 1; - optional bytes key = 2; // missing key results in server-assigned key, like KV - required bytes type = 3; // bucket type, not data-type (but the data-type is constrained per bucket-type) - - // Opaque update-context - optional bytes context = 4; - - // The operations - required DtOp op = 5; - - // Request options - optional uint32 w = 6; - optional uint32 dw = 7; - optional uint32 pw = 8; - optional bool return_body = 9 [default=false]; - optional uint32 timeout = 10; - optional bool sloppy_quorum = 11; // Experimental, may change/disappear - optional uint32 n_val = 12; // Experimental, may change/disappear - optional bool include_context = 13 [default=true]; // When return_body is true, should the context be returned too? -} - - -/* - * The equivalent of KV's "RpbPutResp", contains the assigned key if - * it was assigned by the server, and the resulting value and context - * if return_body was set. - */ -message DtUpdateResp { - // The key, if assigned by the server - optional bytes key = 1; - - // The opaque update context and value, if return_body was set. - optional bytes context = 2; - optional sint64 counter_value = 3; - repeated bytes set_value = 4; - repeated MapEntry map_value = 5; -} diff --git a/src/riak_kv.proto b/src/riak_kv.proto deleted file mode 100644 --- a/src/riak_kv.proto +++ /dev/null @@ -1,293 +0,0 @@ -/* ------------------------------------------------------------------- -** -** riak_kv.proto: Protocol buffers for riak KV -** -** Copyright (c) 2007-2010 Basho Technologies, Inc. All Rights Reserved. -** -** This file is provided to you under the Apache License, -** Version 2.0 (the "License"); you may not use this file -** except in compliance with the License. You may obtain -** a copy of the License at -** -** http://www.apache.org/licenses/LICENSE-2.0 -** -** Unless required by applicable law or agreed to in writing, -** software distributed under the License is distributed on an -** "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY -** KIND, either express or implied. See the License for the -** specific language governing permissions and limitations -** under the License. -** -** ------------------------------------------------------------------- -*/ - -/* -** Revision: 1.4 -*/ - -// Java package specifiers -option java_package = "com.basho.riak.protobuf"; -option java_outer_classname = "RiakKvPB"; - -import "riak.proto"; // for RpbPair - -// Get ClientId Request - no message defined, just send RpbGetClientIdReq message code -message RpbGetClientIdResp { - required bytes client_id = 1; // Client id in use for this connection -} - -message RpbSetClientIdReq { - required bytes client_id = 1; // Client id to use for this connection -} -// Set ClientId Request - no message defined, just send RpbSetClientIdReq message code - - -// Get Request - retrieve bucket/key -message RpbGetReq { - required bytes bucket = 1; - required bytes key = 2; - optional uint32 r = 3; - optional uint32 pr = 4; - optional bool basic_quorum = 5; - optional bool notfound_ok = 6; - optional bytes if_modified = 7; // fail if the supplied vclock does not match - optional bool head = 8; // return everything but the value - optional bool deletedvclock = 9; // return the tombstone's vclock, if applicable - optional uint32 timeout = 10; - optional bool sloppy_quorum = 11; // Experimental, may change/disappear - optional uint32 n_val = 12; // Experimental, may change/disappear - optional bytes type = 13; // Bucket type, if not set we assume the 'default' type -} - -// Get Response - if the record was not found there will be no content/vclock -message RpbGetResp { - repeated RpbContent content = 1; - optional bytes vclock = 2; // the opaque vector clock for the object - optional bool unchanged = 3; -} - - -// Put request - if options.return_body is set then the updated metadata/data for -// the key will be returned. -message RpbPutReq { - required bytes bucket = 1; - optional bytes key = 2; - optional bytes vclock = 3; - required RpbContent content = 4; - optional uint32 w = 5; - optional uint32 dw = 6; - optional bool return_body = 7; - optional uint32 pw = 8; - optional bool if_not_modified = 9; - optional bool if_none_match = 10; - optional bool return_head = 11; - optional uint32 timeout = 12; - optional bool asis = 13; - optional bool sloppy_quorum = 14; // Experimental, may change/disappear - optional uint32 n_val = 15; // Experimental, may change/disappear - optional bytes type = 16; // Bucket type, if not set we assume the 'default' type -} - -// Put response - same as get response with optional key if one was generated -message RpbPutResp { - repeated RpbContent content = 1; - optional bytes vclock = 2; // the opaque vector clock for the object - optional bytes key = 3; // the key generated, if any -} - - -// Delete request -message RpbDelReq { - required bytes bucket = 1; - required bytes key = 2; - optional uint32 rw = 3; - optional bytes vclock = 4; - optional uint32 r = 5; - optional uint32 w = 6; - optional uint32 pr = 7; - optional uint32 pw = 8; - optional uint32 dw = 9; - optional uint32 timeout = 10; - optional bool sloppy_quorum = 11; // Experimental, may change/disappear - optional uint32 n_val = 12; // Experimental, may change/disappear - optional bytes type = 13; // Bucket type, if not set we assume the 'default' type -} - -// Delete response - not defined, will return a RpbDelResp on success or RpbErrorResp on failure - -// List buckets request -message RpbListBucketsReq { - optional uint32 timeout = 1; - optional bool stream = 2; - optional bytes type = 3; // Bucket type, if not set we assume the 'default' type -} - -// List buckets response - one or more of these packets will be sent -// the last one will have done set true (and may not have any buckets in it) -message RpbListBucketsResp { - repeated bytes buckets = 1; - optional bool done = 2; -} - - -// List keys in bucket request -message RpbListKeysReq { - required bytes bucket = 1; - optional uint32 timeout = 2; - optional bytes type = 3; // Bucket type, if not set we assume the 'default' type -} - -// List keys in bucket response - one or more of these packets will be sent -// the last one will have done set true (and may not have any keys in it) -message RpbListKeysResp { - repeated bytes keys = 1; - optional bool done = 2; -} - - -// Map/Reduce request -message RpbMapRedReq { - required bytes request = 1; - required bytes content_type = 2; -} - -// Map/Reduce response -// one or more of these packets will be sent the last one will have done set -// true (and may not have phase/data in it) -message RpbMapRedResp { - optional uint32 phase = 1; - optional bytes response = 2; - optional bool done = 3; -} - -// Secondary Index query request -message RpbIndexReq { - enum IndexQueryType { - eq = 0; - range = 1; - } - - required bytes bucket = 1; - required bytes index = 2; - required IndexQueryType qtype = 3; - optional bytes key = 4; // key here means equals value for index? - optional bytes range_min = 5; - optional bytes range_max = 6; - optional bool return_terms = 7; - optional bool stream = 8; - optional uint32 max_results = 9; - optional bytes continuation = 10; - optional uint32 timeout = 11; - optional bytes type = 12; // Bucket type, if not set we assume the 'default' type - optional bytes term_regex = 13; - // Whether to use pagination sort for non-paginated queries - optional bool pagination_sort = 14; -} - -// Secondary Index query response -message RpbIndexResp { - repeated bytes keys = 1; - repeated RpbPair results = 2; - optional bytes continuation = 3; - optional bool done = 4; -} - -// added solely for riak_cs currently -// for folding over a bucket and returning -// objects. -message RpbCSBucketReq { - required bytes bucket = 1; - required bytes start_key = 2; - optional bytes end_key = 3; - optional bool start_incl = 4 [default = true]; - optional bool end_incl = 5 [default = false]; - optional bytes continuation = 6; - optional uint32 max_results = 7; - optional uint32 timeout = 8; - optional bytes type = 9; // Bucket type, if not set we assume the 'default' type -} - -// return for CS bucket fold -message RpbCSBucketResp { - repeated RpbIndexObject objects = 1; - optional bytes continuation = 2; - optional bool done = 3; -} - -message RpbIndexObject { - required bytes key = 1; - required RpbGetResp object = 2; -} - -// Content message included in get/put responses -// Holds the value and associated metadata -message RpbContent { - required bytes value = 1; - optional bytes content_type = 2; // the media type/format - optional bytes charset = 3; - optional bytes content_encoding = 4; - optional bytes vtag = 5; - repeated RpbLink links = 6; // links to other resources - optional uint32 last_mod = 7; - optional uint32 last_mod_usecs = 8; - repeated RpbPair usermeta = 9; // user metadata stored with the object - repeated RpbPair indexes = 10; // user metadata stored with the object - optional bool deleted = 11; -} - -// Link metadata -message RpbLink { - optional bytes bucket = 1; - optional bytes key = 2; - optional bytes tag = 3; -} - -// Counter update request -message RpbCounterUpdateReq { - required bytes bucket = 1; - required bytes key = 2; - required sint64 amount = 3; - optional uint32 w = 4; - optional uint32 dw = 5; - optional uint32 pw = 6; - optional bool returnvalue = 7; -} - -// Counter update response? No message | error response -message RpbCounterUpdateResp { - optional sint64 value = 1; -} - -// counter value -message RpbCounterGetReq { - required bytes bucket = 1; - required bytes key = 2; - optional uint32 r = 3; - optional uint32 pr = 4; - optional bool basic_quorum = 5; - optional bool notfound_ok = 6; -} - -// Counter value response -message RpbCounterGetResp { - optional sint64 value = 1; -} - -// Get bucket-key preflist request -message RpbGetBucketKeyPreflistReq { - required bytes bucket = 1; - required bytes key = 2; - optional bytes type = 3; -} - -// Get bucket-key preflist response -message RpbGetBucketKeyPreflistResp { - repeated RpbBucketKeyPreflistItem preflist = 1; -} - -// Preflist item -message RpbBucketKeyPreflistItem { - required int64 partition = 1; - required bytes node = 2; - required bool primary = 3; -} diff --git a/src/riak_search.proto b/src/riak_search.proto deleted file mode 100644 --- a/src/riak_search.proto +++ /dev/null @@ -1,55 +0,0 @@ -/* ------------------------------------------------------------------- -** -** riak_search.proto: Protocol buffers for Riak Search -** -** Copyright (c) 2012 Basho Technologies, Inc. All Rights Reserved. -** -** This file is provided to you under the Apache License, -** Version 2.0 (the "License"); you may not use this file -** except in compliance with the License. You may obtain -** a copy of the License at -** -** http://www.apache.org/licenses/LICENSE-2.0 -** -** Unless required by applicable law or agreed to in writing, -** software distributed under the License is distributed on an -** "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY -** KIND, either express or implied. See the License for the -** specific language governing permissions and limitations -** under the License. -** -** ------------------------------------------------------------------- -*/ - -/* -** Revision: 1.4 -*/ - -import "riak.proto"; - -// java package specifiers -option java_package = "com.basho.riak.protobuf"; -option java_outer_classname = "RiakSearchPB"; - -message RpbSearchDoc { - repeated RpbPair fields = 1; -} - -message RpbSearchQueryReq { - required bytes q = 1; // Query string - required bytes index = 2; // Index - optional uint32 rows = 3; // Limit rows - optional uint32 start = 4; // Starting offset - optional bytes sort = 5; // Sort order - optional bytes filter = 6; // Inline fields filtering query - optional bytes df = 7; // Default field - optional bytes op = 8; // Default op - repeated bytes fl = 9; // Return fields limit (for ids only, generally) - optional bytes presort = 10; // Presort (key / score) -} - -message RpbSearchQueryResp { - repeated RpbSearchDoc docs = 1; // Result documents - optional float max_score = 2; // Maximum score - optional uint32 num_found = 3; // Number of results -} diff --git a/src/riakextra.proto b/src/riakextra.proto deleted file mode 100644 --- a/src/riakextra.proto +++ /dev/null @@ -1,3 +0,0 @@ -message RpbPingReq { } -message RpbGetClientIdReq { } -message RpbGetServerInfoReq { }