packages feed

riak-protobuf 0.24.0.0 → 0.25.0.0

raw patch · 113 files changed

+32870/−10640 lines, 113 filesdep +proto-lensdep +proto-lens-runtimedep −arraydep −parsecdep −protocol-buffersPVP ok

version bump matches the API change (PVP)

Dependencies added: proto-lens, proto-lens-runtime

Dependencies removed: array, parsec, protocol-buffers, protocol-buffers-descriptor

API changes (from Hackage documentation)

- Network.Riak.Protocol.AuthRequest: AuthRequest :: !ByteString -> !ByteString -> AuthRequest
- Network.Riak.Protocol.AuthRequest: [password] :: AuthRequest -> !ByteString
- Network.Riak.Protocol.AuthRequest: [user] :: AuthRequest -> !ByteString
- Network.Riak.Protocol.AuthRequest: data AuthRequest
- Network.Riak.Protocol.AuthRequest: instance Data.Data.Data Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance GHC.Classes.Eq Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance GHC.Classes.Ord Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance GHC.Generics.Generic Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance GHC.Show.Show Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.AuthRequest.AuthRequest) Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.AuthRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.AuthRequest.AuthRequest
- Network.Riak.Protocol.BucketKeyPreflistItem: BucketKeyPreflistItem :: !Int64 -> !ByteString -> !Bool -> BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: [node] :: BucketKeyPreflistItem -> !ByteString
- Network.Riak.Protocol.BucketKeyPreflistItem: [partition] :: BucketKeyPreflistItem -> !Int64
- Network.Riak.Protocol.BucketKeyPreflistItem: [primary] :: BucketKeyPreflistItem -> !Bool
- Network.Riak.Protocol.BucketKeyPreflistItem: data BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance Data.Data.Data Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance GHC.Classes.Eq Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance GHC.Classes.Ord Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance GHC.Generics.Generic Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance GHC.Show.Show Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem) Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketKeyPreflistItem: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.BucketKeyPreflistItem.BucketKeyPreflistItem
- Network.Riak.Protocol.BucketProps: BucketProps :: !Maybe Word32 -> !Maybe Bool -> !Maybe Bool -> !Seq CommitHook -> !Maybe Bool -> !Seq CommitHook -> !Maybe Bool -> !Maybe ModFun -> !Maybe ModFun -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Bool -> !Maybe Bool -> !Maybe ByteString -> !Maybe Bool -> !Maybe ReplMode -> !Maybe ByteString -> !Maybe ByteString -> !Maybe Bool -> !Maybe Bool -> BucketProps
- Network.Riak.Protocol.BucketProps: [allow_mult] :: BucketProps -> !Maybe Bool
- Network.Riak.Protocol.BucketProps: [backend] :: BucketProps -> !Maybe ByteString
- Network.Riak.Protocol.BucketProps: [basic_quorum] :: BucketProps -> !Maybe Bool
- Network.Riak.Protocol.BucketProps: [big_vclock] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: [chash_keyfun] :: BucketProps -> !Maybe ModFun
- Network.Riak.Protocol.BucketProps: [consistent] :: BucketProps -> !Maybe Bool
- Network.Riak.Protocol.BucketProps: [datatype] :: BucketProps -> !Maybe ByteString
- Network.Riak.Protocol.BucketProps: [dw] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: [has_postcommit] :: BucketProps -> !Maybe Bool
- Network.Riak.Protocol.BucketProps: [has_precommit] :: BucketProps -> !Maybe Bool
- Network.Riak.Protocol.BucketProps: [last_write_wins] :: BucketProps -> !Maybe Bool
- Network.Riak.Protocol.BucketProps: [linkfun] :: BucketProps -> !Maybe ModFun
- Network.Riak.Protocol.BucketProps: [n_val] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: [notfound_ok] :: BucketProps -> !Maybe Bool
- Network.Riak.Protocol.BucketProps: [old_vclock] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: [postcommit] :: BucketProps -> !Seq CommitHook
- Network.Riak.Protocol.BucketProps: [pr] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: [precommit] :: BucketProps -> !Seq CommitHook
- Network.Riak.Protocol.BucketProps: [pw] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: [r] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: [repl] :: BucketProps -> !Maybe ReplMode
- Network.Riak.Protocol.BucketProps: [rw] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: [search] :: BucketProps -> !Maybe Bool
- Network.Riak.Protocol.BucketProps: [search_index] :: BucketProps -> !Maybe ByteString
- Network.Riak.Protocol.BucketProps: [small_vclock] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: [w] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: [write_once] :: BucketProps -> !Maybe Bool
- Network.Riak.Protocol.BucketProps: [young_vclock] :: BucketProps -> !Maybe Word32
- Network.Riak.Protocol.BucketProps: data BucketProps
- Network.Riak.Protocol.BucketProps: instance Data.Data.Data Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance GHC.Classes.Eq Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance GHC.Classes.Ord Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance GHC.Generics.Generic Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance GHC.Show.Show Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.BucketProps.BucketProps) Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.BucketProps.BucketProps
- Network.Riak.Protocol.BucketProps.ReplMode: FALSE :: ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: FULLSYNC :: ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: REALTIME :: ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: TRUE :: ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: data ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance Data.Data.Data Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance GHC.Classes.Eq Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance GHC.Classes.Ord Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance GHC.Enum.Bounded Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance GHC.Enum.Enum Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance GHC.Generics.Generic Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance GHC.Read.Read Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance GHC.Show.Show Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.BucketProps.ReplMode.ReplMode) Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance Text.ProtocolBuffers.Reflections.ReflectEnum Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.BucketProps.ReplMode: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.BucketProps.ReplMode.ReplMode
- Network.Riak.Protocol.CSBucketRequest: CSBucketRequest :: !ByteString -> !ByteString -> !Maybe ByteString -> !Maybe Bool -> !Maybe Bool -> !Maybe ByteString -> !Maybe Word32 -> !Maybe Word32 -> !Maybe ByteString -> CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: [bucket] :: CSBucketRequest -> !ByteString
- Network.Riak.Protocol.CSBucketRequest: [continuation] :: CSBucketRequest -> !Maybe ByteString
- Network.Riak.Protocol.CSBucketRequest: [end_incl] :: CSBucketRequest -> !Maybe Bool
- Network.Riak.Protocol.CSBucketRequest: [end_key] :: CSBucketRequest -> !Maybe ByteString
- Network.Riak.Protocol.CSBucketRequest: [max_results] :: CSBucketRequest -> !Maybe Word32
- Network.Riak.Protocol.CSBucketRequest: [start_incl] :: CSBucketRequest -> !Maybe Bool
- Network.Riak.Protocol.CSBucketRequest: [start_key] :: CSBucketRequest -> !ByteString
- Network.Riak.Protocol.CSBucketRequest: [timeout] :: CSBucketRequest -> !Maybe Word32
- Network.Riak.Protocol.CSBucketRequest: [type'] :: CSBucketRequest -> !Maybe ByteString
- Network.Riak.Protocol.CSBucketRequest: data CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance Data.Data.Data Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance GHC.Classes.Eq Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance GHC.Classes.Ord Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance GHC.Generics.Generic Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance GHC.Show.Show Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.CSBucketRequest.CSBucketRequest) Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.CSBucketRequest.CSBucketRequest
- Network.Riak.Protocol.CSBucketResponse: CSBucketResponse :: !Seq IndexObject -> !Maybe ByteString -> !Maybe Bool -> CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: [continuation] :: CSBucketResponse -> !Maybe ByteString
- Network.Riak.Protocol.CSBucketResponse: [done] :: CSBucketResponse -> !Maybe Bool
- Network.Riak.Protocol.CSBucketResponse: [objects] :: CSBucketResponse -> !Seq IndexObject
- Network.Riak.Protocol.CSBucketResponse: data CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance Data.Data.Data Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance GHC.Classes.Eq Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance GHC.Classes.Ord Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance GHC.Generics.Generic Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance GHC.Show.Show Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.CSBucketResponse.CSBucketResponse) Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CSBucketResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.CSBucketResponse.CSBucketResponse
- Network.Riak.Protocol.CommitHook: CommitHook :: !Maybe ModFun -> !Maybe ByteString -> CommitHook
- Network.Riak.Protocol.CommitHook: [modfun] :: CommitHook -> !Maybe ModFun
- Network.Riak.Protocol.CommitHook: [name] :: CommitHook -> !Maybe ByteString
- Network.Riak.Protocol.CommitHook: data CommitHook
- Network.Riak.Protocol.CommitHook: instance Data.Data.Data Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance GHC.Classes.Eq Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance GHC.Classes.Ord Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance GHC.Generics.Generic Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance GHC.Show.Show Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.CommitHook.CommitHook) Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.CommitHook: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.CommitHook.CommitHook
- Network.Riak.Protocol.Content: Content :: !ByteString -> !Maybe ByteString -> !Maybe ByteString -> !Maybe ByteString -> !Maybe ByteString -> !Seq Link -> !Maybe Word32 -> !Maybe Word32 -> !Seq Pair -> !Seq Pair -> !Maybe Bool -> Content
- Network.Riak.Protocol.Content: [charset] :: Content -> !Maybe ByteString
- Network.Riak.Protocol.Content: [content_encoding] :: Content -> !Maybe ByteString
- Network.Riak.Protocol.Content: [content_type] :: Content -> !Maybe ByteString
- Network.Riak.Protocol.Content: [deleted] :: Content -> !Maybe Bool
- Network.Riak.Protocol.Content: [indexes] :: Content -> !Seq Pair
- Network.Riak.Protocol.Content: [last_mod] :: Content -> !Maybe Word32
- Network.Riak.Protocol.Content: [last_mod_usecs] :: Content -> !Maybe Word32
- Network.Riak.Protocol.Content: [links] :: Content -> !Seq Link
- Network.Riak.Protocol.Content: [usermeta] :: Content -> !Seq Pair
- Network.Riak.Protocol.Content: [value] :: Content -> !ByteString
- Network.Riak.Protocol.Content: [vtag] :: Content -> !Maybe ByteString
- Network.Riak.Protocol.Content: data Content
- Network.Riak.Protocol.Content: instance Data.Data.Data Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance GHC.Classes.Eq Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance GHC.Classes.Ord Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance GHC.Generics.Generic Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance GHC.Show.Show Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.Content.Content) Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.Content: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.Content.Content
- Network.Riak.Protocol.CounterGetRequest: CounterGetRequest :: !ByteString -> !ByteString -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Bool -> !Maybe Bool -> CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: [basic_quorum] :: CounterGetRequest -> !Maybe Bool
- Network.Riak.Protocol.CounterGetRequest: [bucket] :: CounterGetRequest -> !ByteString
- Network.Riak.Protocol.CounterGetRequest: [key] :: CounterGetRequest -> !ByteString
- Network.Riak.Protocol.CounterGetRequest: [notfound_ok] :: CounterGetRequest -> !Maybe Bool
- Network.Riak.Protocol.CounterGetRequest: [pr] :: CounterGetRequest -> !Maybe Word32
- Network.Riak.Protocol.CounterGetRequest: [r] :: CounterGetRequest -> !Maybe Word32
- Network.Riak.Protocol.CounterGetRequest: data CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance Data.Data.Data Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance GHC.Classes.Eq Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance GHC.Classes.Ord Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance GHC.Generics.Generic Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance GHC.Show.Show Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.CounterGetRequest.CounterGetRequest) Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.CounterGetRequest.CounterGetRequest
- Network.Riak.Protocol.CounterGetResponse: CounterGetResponse :: !Maybe Int64 -> CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: [value] :: CounterGetResponse -> !Maybe Int64
- Network.Riak.Protocol.CounterGetResponse: data CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance Data.Data.Data Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance GHC.Classes.Eq Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance GHC.Classes.Ord Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance GHC.Generics.Generic Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance GHC.Show.Show Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.CounterGetResponse.CounterGetResponse) Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterGetResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.CounterGetResponse.CounterGetResponse
- Network.Riak.Protocol.CounterOp: CounterOp :: !Maybe Int64 -> CounterOp
- Network.Riak.Protocol.CounterOp: [increment] :: CounterOp -> !Maybe Int64
- Network.Riak.Protocol.CounterOp: data CounterOp
- Network.Riak.Protocol.CounterOp: instance Data.Data.Data Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance GHC.Classes.Eq Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance GHC.Classes.Ord Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance GHC.Generics.Generic Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance GHC.Show.Show Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.CounterOp.CounterOp) Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterOp: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.CounterOp.CounterOp
- Network.Riak.Protocol.CounterUpdateRequest: CounterUpdateRequest :: !ByteString -> !ByteString -> !Int64 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Bool -> CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: [amount] :: CounterUpdateRequest -> !Int64
- Network.Riak.Protocol.CounterUpdateRequest: [bucket] :: CounterUpdateRequest -> !ByteString
- Network.Riak.Protocol.CounterUpdateRequest: [dw] :: CounterUpdateRequest -> !Maybe Word32
- Network.Riak.Protocol.CounterUpdateRequest: [key] :: CounterUpdateRequest -> !ByteString
- Network.Riak.Protocol.CounterUpdateRequest: [pw] :: CounterUpdateRequest -> !Maybe Word32
- Network.Riak.Protocol.CounterUpdateRequest: [returnvalue] :: CounterUpdateRequest -> !Maybe Bool
- Network.Riak.Protocol.CounterUpdateRequest: [w] :: CounterUpdateRequest -> !Maybe Word32
- Network.Riak.Protocol.CounterUpdateRequest: data CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance Data.Data.Data Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance GHC.Classes.Eq Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance GHC.Classes.Ord Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance GHC.Generics.Generic Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance GHC.Show.Show Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest) Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.CounterUpdateRequest.CounterUpdateRequest
- Network.Riak.Protocol.CounterUpdateResponse: CounterUpdateResponse :: !Maybe Int64 -> CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: [value] :: CounterUpdateResponse -> !Maybe Int64
- Network.Riak.Protocol.CounterUpdateResponse: data CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance Data.Data.Data Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance GHC.Classes.Eq Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance GHC.Classes.Ord Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance GHC.Generics.Generic Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance GHC.Show.Show Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse) Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.CounterUpdateResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.CounterUpdateResponse.CounterUpdateResponse
- Network.Riak.Protocol.DeleteRequest: DeleteRequest :: !ByteString -> !ByteString -> !Maybe Word32 -> !Maybe ByteString -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Bool -> !Maybe Word32 -> !Maybe ByteString -> DeleteRequest
- Network.Riak.Protocol.DeleteRequest: [bucket] :: DeleteRequest -> !ByteString
- Network.Riak.Protocol.DeleteRequest: [dw] :: DeleteRequest -> !Maybe Word32
- Network.Riak.Protocol.DeleteRequest: [key] :: DeleteRequest -> !ByteString
- Network.Riak.Protocol.DeleteRequest: [n_val] :: DeleteRequest -> !Maybe Word32
- Network.Riak.Protocol.DeleteRequest: [pr] :: DeleteRequest -> !Maybe Word32
- Network.Riak.Protocol.DeleteRequest: [pw] :: DeleteRequest -> !Maybe Word32
- Network.Riak.Protocol.DeleteRequest: [r] :: DeleteRequest -> !Maybe Word32
- Network.Riak.Protocol.DeleteRequest: [rw] :: DeleteRequest -> !Maybe Word32
- Network.Riak.Protocol.DeleteRequest: [sloppy_quorum] :: DeleteRequest -> !Maybe Bool
- Network.Riak.Protocol.DeleteRequest: [timeout] :: DeleteRequest -> !Maybe Word32
- Network.Riak.Protocol.DeleteRequest: [type'] :: DeleteRequest -> !Maybe ByteString
- Network.Riak.Protocol.DeleteRequest: [vclock] :: DeleteRequest -> !Maybe ByteString
- Network.Riak.Protocol.DeleteRequest: [w] :: DeleteRequest -> !Maybe Word32
- Network.Riak.Protocol.DeleteRequest: data DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance Data.Data.Data Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance GHC.Classes.Eq Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance GHC.Classes.Ord Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance GHC.Generics.Generic Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance GHC.Show.Show Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.DeleteRequest.DeleteRequest) Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DeleteRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.DeleteRequest.DeleteRequest
- Network.Riak.Protocol.DtFetchRequest: DtFetchRequest :: !ByteString -> !ByteString -> !ByteString -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Bool -> !Maybe Bool -> !Maybe Word32 -> !Maybe Bool -> !Maybe Word32 -> !Maybe Bool -> DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: [basic_quorum] :: DtFetchRequest -> !Maybe Bool
- Network.Riak.Protocol.DtFetchRequest: [bucket] :: DtFetchRequest -> !ByteString
- Network.Riak.Protocol.DtFetchRequest: [include_context] :: DtFetchRequest -> !Maybe Bool
- Network.Riak.Protocol.DtFetchRequest: [key] :: DtFetchRequest -> !ByteString
- Network.Riak.Protocol.DtFetchRequest: [n_val] :: DtFetchRequest -> !Maybe Word32
- Network.Riak.Protocol.DtFetchRequest: [notfound_ok] :: DtFetchRequest -> !Maybe Bool
- Network.Riak.Protocol.DtFetchRequest: [pr] :: DtFetchRequest -> !Maybe Word32
- Network.Riak.Protocol.DtFetchRequest: [r] :: DtFetchRequest -> !Maybe Word32
- Network.Riak.Protocol.DtFetchRequest: [sloppy_quorum] :: DtFetchRequest -> !Maybe Bool
- Network.Riak.Protocol.DtFetchRequest: [timeout] :: DtFetchRequest -> !Maybe Word32
- Network.Riak.Protocol.DtFetchRequest: [type'] :: DtFetchRequest -> !ByteString
- Network.Riak.Protocol.DtFetchRequest: data DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance Data.Data.Data Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance GHC.Classes.Eq Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance GHC.Classes.Ord Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance GHC.Generics.Generic Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance GHC.Show.Show Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.DtFetchRequest.DtFetchRequest) Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.DtFetchRequest.DtFetchRequest
- Network.Riak.Protocol.DtFetchResponse: DtFetchResponse :: !Maybe ByteString -> !DataType -> !Maybe DtValue -> DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: [context] :: DtFetchResponse -> !Maybe ByteString
- Network.Riak.Protocol.DtFetchResponse: [type'] :: DtFetchResponse -> !DataType
- Network.Riak.Protocol.DtFetchResponse: [value] :: DtFetchResponse -> !Maybe DtValue
- Network.Riak.Protocol.DtFetchResponse: data DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance Data.Data.Data Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance GHC.Classes.Eq Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance GHC.Classes.Ord Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance GHC.Generics.Generic Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance GHC.Show.Show Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.DtFetchResponse.DtFetchResponse) Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.DtFetchResponse.DtFetchResponse
- Network.Riak.Protocol.DtFetchResponse.DataType: COUNTER :: DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: MAP :: DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: SET :: DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: data DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance Data.Data.Data Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance GHC.Classes.Eq Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance GHC.Classes.Ord Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance GHC.Enum.Bounded Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance GHC.Enum.Enum Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance GHC.Generics.Generic Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance GHC.Read.Read Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance GHC.Show.Show Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.DtFetchResponse.DataType.DataType) Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance Text.ProtocolBuffers.Reflections.ReflectEnum Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtFetchResponse.DataType: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.DtFetchResponse.DataType.DataType
- Network.Riak.Protocol.DtOp: DtOp :: !Maybe CounterOp -> !Maybe SetOp -> !Maybe MapOp -> DtOp
- Network.Riak.Protocol.DtOp: [counter_op] :: DtOp -> !Maybe CounterOp
- Network.Riak.Protocol.DtOp: [map_op] :: DtOp -> !Maybe MapOp
- Network.Riak.Protocol.DtOp: [set_op] :: DtOp -> !Maybe SetOp
- Network.Riak.Protocol.DtOp: data DtOp
- Network.Riak.Protocol.DtOp: instance Data.Data.Data Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance GHC.Classes.Eq Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance GHC.Classes.Ord Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance GHC.Generics.Generic Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance GHC.Show.Show Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.DtOp.DtOp) Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtOp: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.DtOp.DtOp
- Network.Riak.Protocol.DtUpdateRequest: DtUpdateRequest :: !ByteString -> !Maybe ByteString -> !ByteString -> !Maybe ByteString -> !DtOp -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Bool -> !Maybe Word32 -> !Maybe Bool -> !Maybe Word32 -> !Maybe Bool -> DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: [bucket] :: DtUpdateRequest -> !ByteString
- Network.Riak.Protocol.DtUpdateRequest: [context] :: DtUpdateRequest -> !Maybe ByteString
- Network.Riak.Protocol.DtUpdateRequest: [dw] :: DtUpdateRequest -> !Maybe Word32
- Network.Riak.Protocol.DtUpdateRequest: [include_context] :: DtUpdateRequest -> !Maybe Bool
- Network.Riak.Protocol.DtUpdateRequest: [key] :: DtUpdateRequest -> !Maybe ByteString
- Network.Riak.Protocol.DtUpdateRequest: [n_val] :: DtUpdateRequest -> !Maybe Word32
- Network.Riak.Protocol.DtUpdateRequest: [op] :: DtUpdateRequest -> !DtOp
- Network.Riak.Protocol.DtUpdateRequest: [pw] :: DtUpdateRequest -> !Maybe Word32
- Network.Riak.Protocol.DtUpdateRequest: [return_body] :: DtUpdateRequest -> !Maybe Bool
- Network.Riak.Protocol.DtUpdateRequest: [sloppy_quorum] :: DtUpdateRequest -> !Maybe Bool
- Network.Riak.Protocol.DtUpdateRequest: [timeout] :: DtUpdateRequest -> !Maybe Word32
- Network.Riak.Protocol.DtUpdateRequest: [type'] :: DtUpdateRequest -> !ByteString
- Network.Riak.Protocol.DtUpdateRequest: [w] :: DtUpdateRequest -> !Maybe Word32
- Network.Riak.Protocol.DtUpdateRequest: data DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance Data.Data.Data Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance GHC.Classes.Eq Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance GHC.Classes.Ord Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance GHC.Generics.Generic Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance GHC.Show.Show Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest) Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.DtUpdateRequest.DtUpdateRequest
- Network.Riak.Protocol.DtUpdateResponse: DtUpdateResponse :: !Maybe ByteString -> !Maybe ByteString -> !Maybe Int64 -> !Seq ByteString -> !Seq MapEntry -> DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: [context] :: DtUpdateResponse -> !Maybe ByteString
- Network.Riak.Protocol.DtUpdateResponse: [counter_value] :: DtUpdateResponse -> !Maybe Int64
- Network.Riak.Protocol.DtUpdateResponse: [key] :: DtUpdateResponse -> !Maybe ByteString
- Network.Riak.Protocol.DtUpdateResponse: [map_value] :: DtUpdateResponse -> !Seq MapEntry
- Network.Riak.Protocol.DtUpdateResponse: [set_value] :: DtUpdateResponse -> !Seq ByteString
- Network.Riak.Protocol.DtUpdateResponse: data DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance Data.Data.Data Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance GHC.Classes.Eq Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance GHC.Classes.Ord Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance GHC.Generics.Generic Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance GHC.Show.Show Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse) Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtUpdateResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.DtUpdateResponse.DtUpdateResponse
- Network.Riak.Protocol.DtValue: DtValue :: !Maybe Int64 -> !Seq ByteString -> !Seq MapEntry -> DtValue
- Network.Riak.Protocol.DtValue: [counter_value] :: DtValue -> !Maybe Int64
- Network.Riak.Protocol.DtValue: [map_value] :: DtValue -> !Seq MapEntry
- Network.Riak.Protocol.DtValue: [set_value] :: DtValue -> !Seq ByteString
- Network.Riak.Protocol.DtValue: data DtValue
- Network.Riak.Protocol.DtValue: instance Data.Data.Data Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance GHC.Classes.Eq Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance GHC.Classes.Ord Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance GHC.Generics.Generic Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance GHC.Show.Show Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.DtValue.DtValue) Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.DtValue: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.DtValue.DtValue
- Network.Riak.Protocol.ErrorResponse: ErrorResponse :: !ByteString -> !Word32 -> ErrorResponse
- Network.Riak.Protocol.ErrorResponse: [errcode] :: ErrorResponse -> !Word32
- Network.Riak.Protocol.ErrorResponse: [errmsg] :: ErrorResponse -> !ByteString
- Network.Riak.Protocol.ErrorResponse: data ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance Data.Data.Data Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance GHC.Classes.Eq Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance GHC.Classes.Ord Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance GHC.Generics.Generic Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance GHC.Show.Show Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.ErrorResponse.ErrorResponse) Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.ErrorResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.ErrorResponse.ErrorResponse
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: GetBucketKeyPreflistRequest :: !ByteString -> !ByteString -> !Maybe ByteString -> GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: [bucket] :: GetBucketKeyPreflistRequest -> !ByteString
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: [key] :: GetBucketKeyPreflistRequest -> !ByteString
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: [type'] :: GetBucketKeyPreflistRequest -> !Maybe ByteString
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: data GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance Data.Data.Data Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance GHC.Classes.Eq Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance GHC.Classes.Ord Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance GHC.Generics.Generic Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance GHC.Show.Show Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest) Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.GetBucketKeyPreflistRequest.GetBucketKeyPreflistRequest
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: GetBucketKeyPreflistResponse :: !Seq BucketKeyPreflistItem -> GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: [preflist] :: GetBucketKeyPreflistResponse -> !Seq BucketKeyPreflistItem
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: data GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance Data.Data.Data Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance GHC.Classes.Eq Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance GHC.Classes.Ord Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance GHC.Generics.Generic Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance GHC.Show.Show Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse) Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketKeyPreflistResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.GetBucketKeyPreflistResponse.GetBucketKeyPreflistResponse
- Network.Riak.Protocol.GetBucketRequest: GetBucketRequest :: !ByteString -> !Maybe ByteString -> GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: [bucket] :: GetBucketRequest -> !ByteString
- Network.Riak.Protocol.GetBucketRequest: [type'] :: GetBucketRequest -> !Maybe ByteString
- Network.Riak.Protocol.GetBucketRequest: data GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance Data.Data.Data Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance GHC.Classes.Eq Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance GHC.Classes.Ord Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance GHC.Generics.Generic Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance GHC.Show.Show Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.GetBucketRequest.GetBucketRequest) Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.GetBucketRequest.GetBucketRequest
- Network.Riak.Protocol.GetBucketResponse: GetBucketResponse :: !BucketProps -> GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: [props] :: GetBucketResponse -> !BucketProps
- Network.Riak.Protocol.GetBucketResponse: data GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance Data.Data.Data Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance GHC.Classes.Eq Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance GHC.Classes.Ord Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance GHC.Generics.Generic Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance GHC.Show.Show Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.GetBucketResponse.GetBucketResponse) Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.GetBucketResponse.GetBucketResponse
- Network.Riak.Protocol.GetBucketTypeRequest: GetBucketTypeRequest :: !ByteString -> GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: [type'] :: GetBucketTypeRequest -> !ByteString
- Network.Riak.Protocol.GetBucketTypeRequest: data GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance Data.Data.Data Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance GHC.Classes.Eq Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance GHC.Classes.Ord Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance GHC.Generics.Generic Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance GHC.Show.Show Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest) Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetBucketTypeRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.GetBucketTypeRequest.GetBucketTypeRequest
- Network.Riak.Protocol.GetClientIDRequest: GetClientIDRequest :: GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: data GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance Data.Data.Data Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance GHC.Classes.Eq Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance GHC.Classes.Ord Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance GHC.Generics.Generic Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance GHC.Show.Show Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest) Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.GetClientIDRequest.GetClientIDRequest
- Network.Riak.Protocol.GetClientIDResponse: GetClientIDResponse :: !ByteString -> GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: [client_id] :: GetClientIDResponse -> !ByteString
- Network.Riak.Protocol.GetClientIDResponse: data GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance Data.Data.Data Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance GHC.Classes.Eq Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance GHC.Classes.Ord Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance GHC.Generics.Generic Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance GHC.Show.Show Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse) Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetClientIDResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.GetClientIDResponse.GetClientIDResponse
- Network.Riak.Protocol.GetRequest: GetRequest :: !ByteString -> !ByteString -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Bool -> !Maybe Bool -> !Maybe ByteString -> !Maybe Bool -> !Maybe Bool -> !Maybe Word32 -> !Maybe Bool -> !Maybe Word32 -> !Maybe ByteString -> GetRequest
- Network.Riak.Protocol.GetRequest: [basic_quorum] :: GetRequest -> !Maybe Bool
- Network.Riak.Protocol.GetRequest: [bucket] :: GetRequest -> !ByteString
- Network.Riak.Protocol.GetRequest: [deletedvclock] :: GetRequest -> !Maybe Bool
- Network.Riak.Protocol.GetRequest: [head] :: GetRequest -> !Maybe Bool
- Network.Riak.Protocol.GetRequest: [if_modified] :: GetRequest -> !Maybe ByteString
- Network.Riak.Protocol.GetRequest: [key] :: GetRequest -> !ByteString
- Network.Riak.Protocol.GetRequest: [n_val] :: GetRequest -> !Maybe Word32
- Network.Riak.Protocol.GetRequest: [notfound_ok] :: GetRequest -> !Maybe Bool
- Network.Riak.Protocol.GetRequest: [pr] :: GetRequest -> !Maybe Word32
- Network.Riak.Protocol.GetRequest: [r] :: GetRequest -> !Maybe Word32
- Network.Riak.Protocol.GetRequest: [sloppy_quorum] :: GetRequest -> !Maybe Bool
- Network.Riak.Protocol.GetRequest: [timeout] :: GetRequest -> !Maybe Word32
- Network.Riak.Protocol.GetRequest: [type'] :: GetRequest -> !Maybe ByteString
- Network.Riak.Protocol.GetRequest: data GetRequest
- Network.Riak.Protocol.GetRequest: instance Data.Data.Data Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance GHC.Classes.Eq Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance GHC.Classes.Ord Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance GHC.Generics.Generic Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance GHC.Show.Show Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.GetRequest.GetRequest) Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.GetRequest.GetRequest
- Network.Riak.Protocol.GetResponse: GetResponse :: !Seq Content -> !Maybe ByteString -> !Maybe Bool -> GetResponse
- Network.Riak.Protocol.GetResponse: [content] :: GetResponse -> !Seq Content
- Network.Riak.Protocol.GetResponse: [unchanged] :: GetResponse -> !Maybe Bool
- Network.Riak.Protocol.GetResponse: [vclock] :: GetResponse -> !Maybe ByteString
- Network.Riak.Protocol.GetResponse: data GetResponse
- Network.Riak.Protocol.GetResponse: instance Data.Data.Data Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance GHC.Classes.Eq Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance GHC.Classes.Ord Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance GHC.Generics.Generic Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance GHC.Show.Show Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.GetResponse.GetResponse) Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.GetResponse.GetResponse
- Network.Riak.Protocol.GetServerInfoRequest: GetServerInfoRequest :: GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: data GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance Data.Data.Data Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance GHC.Classes.Eq Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance GHC.Classes.Ord Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance GHC.Generics.Generic Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance GHC.Show.Show Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest) Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.GetServerInfoRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.GetServerInfoRequest.GetServerInfoRequest
- Network.Riak.Protocol.IndexObject: IndexObject :: !ByteString -> !GetResponse -> IndexObject
- Network.Riak.Protocol.IndexObject: [key] :: IndexObject -> !ByteString
- Network.Riak.Protocol.IndexObject: [object] :: IndexObject -> !GetResponse
- Network.Riak.Protocol.IndexObject: data IndexObject
- Network.Riak.Protocol.IndexObject: instance Data.Data.Data Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance GHC.Classes.Eq Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance GHC.Classes.Ord Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance GHC.Generics.Generic Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance GHC.Show.Show Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.IndexObject.IndexObject) Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexObject: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.IndexObject.IndexObject
- Network.Riak.Protocol.IndexRequest: IndexRequest :: !ByteString -> !ByteString -> !IndexQueryType -> !Maybe ByteString -> !Maybe ByteString -> !Maybe ByteString -> !Maybe Bool -> !Maybe Bool -> !Maybe Word32 -> !Maybe ByteString -> !Maybe Word32 -> !Maybe ByteString -> !Maybe ByteString -> !Maybe Bool -> IndexRequest
- Network.Riak.Protocol.IndexRequest: [bucket] :: IndexRequest -> !ByteString
- Network.Riak.Protocol.IndexRequest: [continuation] :: IndexRequest -> !Maybe ByteString
- Network.Riak.Protocol.IndexRequest: [index] :: IndexRequest -> !ByteString
- Network.Riak.Protocol.IndexRequest: [key] :: IndexRequest -> !Maybe ByteString
- Network.Riak.Protocol.IndexRequest: [max_results] :: IndexRequest -> !Maybe Word32
- Network.Riak.Protocol.IndexRequest: [pagination_sort] :: IndexRequest -> !Maybe Bool
- Network.Riak.Protocol.IndexRequest: [qtype] :: IndexRequest -> !IndexQueryType
- Network.Riak.Protocol.IndexRequest: [range_max] :: IndexRequest -> !Maybe ByteString
- Network.Riak.Protocol.IndexRequest: [range_min] :: IndexRequest -> !Maybe ByteString
- Network.Riak.Protocol.IndexRequest: [return_terms] :: IndexRequest -> !Maybe Bool
- Network.Riak.Protocol.IndexRequest: [stream] :: IndexRequest -> !Maybe Bool
- Network.Riak.Protocol.IndexRequest: [term_regex] :: IndexRequest -> !Maybe ByteString
- Network.Riak.Protocol.IndexRequest: [timeout] :: IndexRequest -> !Maybe Word32
- Network.Riak.Protocol.IndexRequest: [type'] :: IndexRequest -> !Maybe ByteString
- Network.Riak.Protocol.IndexRequest: data IndexRequest
- Network.Riak.Protocol.IndexRequest: instance Data.Data.Data Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance GHC.Classes.Eq Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance GHC.Classes.Ord Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance GHC.Generics.Generic Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance GHC.Show.Show Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.IndexRequest.IndexRequest) Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.IndexRequest.IndexRequest
- Network.Riak.Protocol.IndexRequest.IndexQueryType: Eq :: IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: Range :: IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: data IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance Data.Data.Data Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance GHC.Classes.Eq Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance GHC.Classes.Ord Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance GHC.Enum.Bounded Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance GHC.Enum.Enum Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance GHC.Generics.Generic Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance GHC.Read.Read Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance GHC.Show.Show Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType) Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance Text.ProtocolBuffers.Reflections.ReflectEnum Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexRequest.IndexQueryType: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.IndexRequest.IndexQueryType.IndexQueryType
- Network.Riak.Protocol.IndexResponse: IndexResponse :: !Seq ByteString -> !Seq Pair -> !Maybe ByteString -> !Maybe Bool -> IndexResponse
- Network.Riak.Protocol.IndexResponse: [continuation] :: IndexResponse -> !Maybe ByteString
- Network.Riak.Protocol.IndexResponse: [done] :: IndexResponse -> !Maybe Bool
- Network.Riak.Protocol.IndexResponse: [keys] :: IndexResponse -> !Seq ByteString
- Network.Riak.Protocol.IndexResponse: [results] :: IndexResponse -> !Seq Pair
- Network.Riak.Protocol.IndexResponse: data IndexResponse
- Network.Riak.Protocol.IndexResponse: instance Data.Data.Data Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance GHC.Classes.Eq Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance GHC.Classes.Ord Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance GHC.Generics.Generic Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance GHC.Show.Show Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.IndexResponse.IndexResponse) Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.IndexResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.IndexResponse.IndexResponse
- Network.Riak.Protocol.Link: Link :: !Maybe ByteString -> !Maybe ByteString -> !Maybe ByteString -> Link
- Network.Riak.Protocol.Link: [bucket] :: Link -> !Maybe ByteString
- Network.Riak.Protocol.Link: [key] :: Link -> !Maybe ByteString
- Network.Riak.Protocol.Link: [tag] :: Link -> !Maybe ByteString
- Network.Riak.Protocol.Link: data Link
- Network.Riak.Protocol.Link: instance Data.Data.Data Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance GHC.Classes.Eq Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance GHC.Classes.Ord Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance GHC.Generics.Generic Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance GHC.Show.Show Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.Link.Link) Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.Link: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.Link.Link
- Network.Riak.Protocol.ListBucketsRequest: ListBucketsRequest :: !Maybe Word32 -> !Maybe Bool -> !Maybe ByteString -> ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: [stream] :: ListBucketsRequest -> !Maybe Bool
- Network.Riak.Protocol.ListBucketsRequest: [timeout] :: ListBucketsRequest -> !Maybe Word32
- Network.Riak.Protocol.ListBucketsRequest: [type'] :: ListBucketsRequest -> !Maybe ByteString
- Network.Riak.Protocol.ListBucketsRequest: data ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance Data.Data.Data Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance GHC.Classes.Eq Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance GHC.Classes.Ord Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance GHC.Generics.Generic Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance GHC.Show.Show Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest) Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.ListBucketsRequest.ListBucketsRequest
- Network.Riak.Protocol.ListBucketsResponse: ListBucketsResponse :: !Seq ByteString -> !Maybe Bool -> ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: [buckets] :: ListBucketsResponse -> !Seq ByteString
- Network.Riak.Protocol.ListBucketsResponse: [done] :: ListBucketsResponse -> !Maybe Bool
- Network.Riak.Protocol.ListBucketsResponse: data ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance Data.Data.Data Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance GHC.Classes.Eq Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance GHC.Classes.Ord Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance GHC.Generics.Generic Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance GHC.Show.Show Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse) Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListBucketsResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.ListBucketsResponse.ListBucketsResponse
- Network.Riak.Protocol.ListKeysRequest: ListKeysRequest :: !ByteString -> !Maybe Word32 -> !Maybe ByteString -> ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: [bucket] :: ListKeysRequest -> !ByteString
- Network.Riak.Protocol.ListKeysRequest: [timeout] :: ListKeysRequest -> !Maybe Word32
- Network.Riak.Protocol.ListKeysRequest: [type'] :: ListKeysRequest -> !Maybe ByteString
- Network.Riak.Protocol.ListKeysRequest: data ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance Data.Data.Data Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance GHC.Classes.Eq Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance GHC.Classes.Ord Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance GHC.Generics.Generic Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance GHC.Show.Show Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.ListKeysRequest.ListKeysRequest) Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.ListKeysRequest.ListKeysRequest
- Network.Riak.Protocol.ListKeysResponse: ListKeysResponse :: !Seq ByteString -> !Maybe Bool -> ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: [done] :: ListKeysResponse -> !Maybe Bool
- Network.Riak.Protocol.ListKeysResponse: [keys] :: ListKeysResponse -> !Seq ByteString
- Network.Riak.Protocol.ListKeysResponse: data ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance Data.Data.Data Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance GHC.Classes.Eq Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance GHC.Classes.Ord Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance GHC.Generics.Generic Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance GHC.Show.Show Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.ListKeysResponse.ListKeysResponse) Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.ListKeysResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.ListKeysResponse.ListKeysResponse
- Network.Riak.Protocol.MapEntry: MapEntry :: !MapField -> !Maybe Int64 -> !Seq ByteString -> !Maybe ByteString -> !Maybe Bool -> !Seq MapEntry -> MapEntry
- Network.Riak.Protocol.MapEntry: [counter_value] :: MapEntry -> !Maybe Int64
- Network.Riak.Protocol.MapEntry: [field] :: MapEntry -> !MapField
- Network.Riak.Protocol.MapEntry: [flag_value] :: MapEntry -> !Maybe Bool
- Network.Riak.Protocol.MapEntry: [map_value] :: MapEntry -> !Seq MapEntry
- Network.Riak.Protocol.MapEntry: [register_value] :: MapEntry -> !Maybe ByteString
- Network.Riak.Protocol.MapEntry: [set_value] :: MapEntry -> !Seq ByteString
- Network.Riak.Protocol.MapEntry: data MapEntry
- Network.Riak.Protocol.MapEntry: instance Data.Data.Data Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance GHC.Classes.Eq Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance GHC.Classes.Ord Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance GHC.Generics.Generic Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance GHC.Show.Show Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.MapEntry.MapEntry) Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapEntry: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.MapEntry.MapEntry
- Network.Riak.Protocol.MapField: MapField :: !ByteString -> !MapFieldType -> MapField
- Network.Riak.Protocol.MapField: [name] :: MapField -> !ByteString
- Network.Riak.Protocol.MapField: [type'] :: MapField -> !MapFieldType
- Network.Riak.Protocol.MapField: data MapField
- Network.Riak.Protocol.MapField: instance Data.Data.Data Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance GHC.Classes.Eq Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance GHC.Classes.Ord Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance GHC.Generics.Generic Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance GHC.Show.Show Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.MapField.MapField) Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.MapField.MapField
- Network.Riak.Protocol.MapField.MapFieldType: COUNTER :: MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: FLAG :: MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: MAP :: MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: REGISTER :: MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: SET :: MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: data MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance Data.Data.Data Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance GHC.Classes.Eq Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance GHC.Classes.Ord Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance GHC.Enum.Bounded Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance GHC.Enum.Enum Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance GHC.Generics.Generic Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance GHC.Read.Read Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance GHC.Show.Show Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.MapField.MapFieldType.MapFieldType) Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance Text.ProtocolBuffers.Reflections.ReflectEnum Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapField.MapFieldType: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.MapField.MapFieldType.MapFieldType
- Network.Riak.Protocol.MapOp: MapOp :: !Seq MapField -> !Seq MapUpdate -> MapOp
- Network.Riak.Protocol.MapOp: [removes] :: MapOp -> !Seq MapField
- Network.Riak.Protocol.MapOp: [updates] :: MapOp -> !Seq MapUpdate
- Network.Riak.Protocol.MapOp: data MapOp
- Network.Riak.Protocol.MapOp: instance Data.Data.Data Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance GHC.Classes.Eq Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance GHC.Classes.Ord Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance GHC.Generics.Generic Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance GHC.Show.Show Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.MapOp.MapOp) Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapOp: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.MapOp.MapOp
- Network.Riak.Protocol.MapReduce: MapReduce :: !Maybe Word32 -> !Maybe ByteString -> !Maybe Bool -> MapReduce
- Network.Riak.Protocol.MapReduce: [done] :: MapReduce -> !Maybe Bool
- Network.Riak.Protocol.MapReduce: [phase] :: MapReduce -> !Maybe Word32
- Network.Riak.Protocol.MapReduce: [response] :: MapReduce -> !Maybe ByteString
- Network.Riak.Protocol.MapReduce: data MapReduce
- Network.Riak.Protocol.MapReduce: instance Data.Data.Data Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance GHC.Classes.Eq Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance GHC.Classes.Ord Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance GHC.Generics.Generic Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance GHC.Show.Show Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.MapReduce.MapReduce) Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduce: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.MapReduce.MapReduce
- Network.Riak.Protocol.MapReduceRequest: MapReduceRequest :: !ByteString -> !ByteString -> MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: [content_type] :: MapReduceRequest -> !ByteString
- Network.Riak.Protocol.MapReduceRequest: [request] :: MapReduceRequest -> !ByteString
- Network.Riak.Protocol.MapReduceRequest: data MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance Data.Data.Data Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance GHC.Classes.Eq Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance GHC.Classes.Ord Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance GHC.Generics.Generic Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance GHC.Show.Show Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.MapReduceRequest.MapReduceRequest) Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapReduceRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.MapReduceRequest.MapReduceRequest
- Network.Riak.Protocol.MapUpdate: MapUpdate :: !MapField -> !Maybe CounterOp -> !Maybe SetOp -> !Maybe ByteString -> !Maybe FlagOp -> !Maybe MapOp -> MapUpdate
- Network.Riak.Protocol.MapUpdate: [counter_op] :: MapUpdate -> !Maybe CounterOp
- Network.Riak.Protocol.MapUpdate: [field] :: MapUpdate -> !MapField
- Network.Riak.Protocol.MapUpdate: [flag_op] :: MapUpdate -> !Maybe FlagOp
- Network.Riak.Protocol.MapUpdate: [map_op] :: MapUpdate -> !Maybe MapOp
- Network.Riak.Protocol.MapUpdate: [register_op] :: MapUpdate -> !Maybe ByteString
- Network.Riak.Protocol.MapUpdate: [set_op] :: MapUpdate -> !Maybe SetOp
- Network.Riak.Protocol.MapUpdate: data MapUpdate
- Network.Riak.Protocol.MapUpdate: instance Data.Data.Data Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance GHC.Classes.Eq Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance GHC.Classes.Ord Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance GHC.Generics.Generic Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance GHC.Show.Show Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.MapUpdate.MapUpdate) Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.MapUpdate.MapUpdate
- Network.Riak.Protocol.MapUpdate.FlagOp: DISABLE :: FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: ENABLE :: FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: data FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance Data.Data.Data Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance GHC.Classes.Eq Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance GHC.Classes.Ord Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance GHC.Enum.Bounded Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance GHC.Enum.Enum Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance GHC.Generics.Generic Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance GHC.Read.Read Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance GHC.Show.Show Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp) Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance Text.ProtocolBuffers.Reflections.ReflectEnum Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.MapUpdate.FlagOp: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.MapUpdate.FlagOp.FlagOp
- Network.Riak.Protocol.ModFun: ModFun :: !ByteString -> !ByteString -> ModFun
- Network.Riak.Protocol.ModFun: [function] :: ModFun -> !ByteString
- Network.Riak.Protocol.ModFun: [module'] :: ModFun -> !ByteString
- Network.Riak.Protocol.ModFun: data ModFun
- Network.Riak.Protocol.ModFun: instance Data.Data.Data Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance GHC.Classes.Eq Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance GHC.Classes.Ord Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance GHC.Generics.Generic Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance GHC.Show.Show Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.ModFun.ModFun) Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.ModFun: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.ModFun.ModFun
- Network.Riak.Protocol.Pair: Pair :: !ByteString -> !Maybe ByteString -> Pair
- Network.Riak.Protocol.Pair: [key] :: Pair -> !ByteString
- Network.Riak.Protocol.Pair: [value] :: Pair -> !Maybe ByteString
- Network.Riak.Protocol.Pair: data Pair
- Network.Riak.Protocol.Pair: instance Data.Data.Data Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance GHC.Classes.Eq Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance GHC.Classes.Ord Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance GHC.Generics.Generic Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance GHC.Show.Show Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.Pair.Pair) Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.Pair: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.Pair.Pair
- Network.Riak.Protocol.PingRequest: PingRequest :: PingRequest
- Network.Riak.Protocol.PingRequest: data PingRequest
- Network.Riak.Protocol.PingRequest: instance Data.Data.Data Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance GHC.Classes.Eq Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance GHC.Classes.Ord Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance GHC.Generics.Generic Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance GHC.Show.Show Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.PingRequest.PingRequest) Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PingRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.PingRequest.PingRequest
- Network.Riak.Protocol.PutRequest: PutRequest :: !ByteString -> !Maybe ByteString -> !Maybe ByteString -> !Content -> !Maybe Word32 -> !Maybe Word32 -> !Maybe Bool -> !Maybe Word32 -> !Maybe Bool -> !Maybe Bool -> !Maybe Bool -> !Maybe Word32 -> !Maybe Bool -> !Maybe Bool -> !Maybe Word32 -> !Maybe ByteString -> PutRequest
- Network.Riak.Protocol.PutRequest: [asis] :: PutRequest -> !Maybe Bool
- Network.Riak.Protocol.PutRequest: [bucket] :: PutRequest -> !ByteString
- Network.Riak.Protocol.PutRequest: [content] :: PutRequest -> !Content
- Network.Riak.Protocol.PutRequest: [dw] :: PutRequest -> !Maybe Word32
- Network.Riak.Protocol.PutRequest: [if_none_match] :: PutRequest -> !Maybe Bool
- Network.Riak.Protocol.PutRequest: [if_not_modified] :: PutRequest -> !Maybe Bool
- Network.Riak.Protocol.PutRequest: [key] :: PutRequest -> !Maybe ByteString
- Network.Riak.Protocol.PutRequest: [n_val] :: PutRequest -> !Maybe Word32
- Network.Riak.Protocol.PutRequest: [pw] :: PutRequest -> !Maybe Word32
- Network.Riak.Protocol.PutRequest: [return_body] :: PutRequest -> !Maybe Bool
- Network.Riak.Protocol.PutRequest: [return_head] :: PutRequest -> !Maybe Bool
- Network.Riak.Protocol.PutRequest: [sloppy_quorum] :: PutRequest -> !Maybe Bool
- Network.Riak.Protocol.PutRequest: [timeout] :: PutRequest -> !Maybe Word32
- Network.Riak.Protocol.PutRequest: [type'] :: PutRequest -> !Maybe ByteString
- Network.Riak.Protocol.PutRequest: [vclock] :: PutRequest -> !Maybe ByteString
- Network.Riak.Protocol.PutRequest: [w] :: PutRequest -> !Maybe Word32
- Network.Riak.Protocol.PutRequest: data PutRequest
- Network.Riak.Protocol.PutRequest: instance Data.Data.Data Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance GHC.Classes.Eq Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance GHC.Classes.Ord Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance GHC.Generics.Generic Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance GHC.Show.Show Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.PutRequest.PutRequest) Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.PutRequest.PutRequest
- Network.Riak.Protocol.PutResponse: PutResponse :: !Seq Content -> !Maybe ByteString -> !Maybe ByteString -> PutResponse
- Network.Riak.Protocol.PutResponse: [content] :: PutResponse -> !Seq Content
- Network.Riak.Protocol.PutResponse: [key] :: PutResponse -> !Maybe ByteString
- Network.Riak.Protocol.PutResponse: [vclock] :: PutResponse -> !Maybe ByteString
- Network.Riak.Protocol.PutResponse: data PutResponse
- Network.Riak.Protocol.PutResponse: instance Data.Data.Data Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance GHC.Classes.Eq Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance GHC.Classes.Ord Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance GHC.Generics.Generic Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance GHC.Show.Show Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.PutResponse.PutResponse) Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.PutResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.PutResponse.PutResponse
- Network.Riak.Protocol.ResetBucketRequest: ResetBucketRequest :: !ByteString -> !Maybe ByteString -> ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: [bucket] :: ResetBucketRequest -> !ByteString
- Network.Riak.Protocol.ResetBucketRequest: [type'] :: ResetBucketRequest -> !Maybe ByteString
- Network.Riak.Protocol.ResetBucketRequest: data ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance Data.Data.Data Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance GHC.Classes.Eq Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance GHC.Classes.Ord Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance GHC.Generics.Generic Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance GHC.Show.Show Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest) Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.ResetBucketRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.ResetBucketRequest.ResetBucketRequest
- Network.Riak.Protocol.SearchDoc: SearchDoc :: !Seq Pair -> SearchDoc
- Network.Riak.Protocol.SearchDoc: [fields] :: SearchDoc -> !Seq Pair
- Network.Riak.Protocol.SearchDoc: data SearchDoc
- Network.Riak.Protocol.SearchDoc: instance Data.Data.Data Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance GHC.Classes.Eq Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance GHC.Classes.Ord Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance GHC.Generics.Generic Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance GHC.Show.Show Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.SearchDoc.SearchDoc) Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchDoc: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.SearchDoc.SearchDoc
- Network.Riak.Protocol.SearchQueryRequest: SearchQueryRequest :: !ByteString -> !ByteString -> !Maybe Word32 -> !Maybe Word32 -> !Maybe ByteString -> !Maybe ByteString -> !Maybe ByteString -> !Maybe ByteString -> !Seq ByteString -> !Maybe ByteString -> SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: [df] :: SearchQueryRequest -> !Maybe ByteString
- Network.Riak.Protocol.SearchQueryRequest: [filter] :: SearchQueryRequest -> !Maybe ByteString
- Network.Riak.Protocol.SearchQueryRequest: [fl] :: SearchQueryRequest -> !Seq ByteString
- Network.Riak.Protocol.SearchQueryRequest: [index] :: SearchQueryRequest -> !ByteString
- Network.Riak.Protocol.SearchQueryRequest: [op] :: SearchQueryRequest -> !Maybe ByteString
- Network.Riak.Protocol.SearchQueryRequest: [presort] :: SearchQueryRequest -> !Maybe ByteString
- Network.Riak.Protocol.SearchQueryRequest: [q] :: SearchQueryRequest -> !ByteString
- Network.Riak.Protocol.SearchQueryRequest: [rows] :: SearchQueryRequest -> !Maybe Word32
- Network.Riak.Protocol.SearchQueryRequest: [sort] :: SearchQueryRequest -> !Maybe ByteString
- Network.Riak.Protocol.SearchQueryRequest: [start] :: SearchQueryRequest -> !Maybe Word32
- Network.Riak.Protocol.SearchQueryRequest: data SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance Data.Data.Data Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance GHC.Classes.Eq Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance GHC.Classes.Ord Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance GHC.Generics.Generic Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance GHC.Show.Show Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest) Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.SearchQueryRequest.SearchQueryRequest
- Network.Riak.Protocol.SearchQueryResponse: SearchQueryResponse :: !Seq SearchDoc -> !Maybe Float -> !Maybe Word32 -> SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: [docs] :: SearchQueryResponse -> !Seq SearchDoc
- Network.Riak.Protocol.SearchQueryResponse: [max_score] :: SearchQueryResponse -> !Maybe Float
- Network.Riak.Protocol.SearchQueryResponse: [num_found] :: SearchQueryResponse -> !Maybe Word32
- Network.Riak.Protocol.SearchQueryResponse: data SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance Data.Data.Data Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance GHC.Classes.Eq Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance GHC.Classes.Ord Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance GHC.Generics.Generic Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance GHC.Show.Show Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse) Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.SearchQueryResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.SearchQueryResponse.SearchQueryResponse
- Network.Riak.Protocol.ServerInfo: ServerInfo :: !Maybe ByteString -> !Maybe ByteString -> ServerInfo
- Network.Riak.Protocol.ServerInfo: [node] :: ServerInfo -> !Maybe ByteString
- Network.Riak.Protocol.ServerInfo: [server_version] :: ServerInfo -> !Maybe ByteString
- Network.Riak.Protocol.ServerInfo: data ServerInfo
- Network.Riak.Protocol.ServerInfo: instance Data.Data.Data Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance GHC.Classes.Eq Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance GHC.Classes.Ord Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance GHC.Generics.Generic Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance GHC.Show.Show Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.ServerInfo.ServerInfo) Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.ServerInfo: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.ServerInfo.ServerInfo
- Network.Riak.Protocol.SetBucketRequest: SetBucketRequest :: !ByteString -> !BucketProps -> !Maybe ByteString -> SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: [bucket] :: SetBucketRequest -> !ByteString
- Network.Riak.Protocol.SetBucketRequest: [props] :: SetBucketRequest -> !BucketProps
- Network.Riak.Protocol.SetBucketRequest: [type'] :: SetBucketRequest -> !Maybe ByteString
- Network.Riak.Protocol.SetBucketRequest: data SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance Data.Data.Data Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance GHC.Classes.Eq Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance GHC.Classes.Ord Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance GHC.Generics.Generic Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance GHC.Show.Show Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.SetBucketRequest.SetBucketRequest) Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.SetBucketRequest.SetBucketRequest
- Network.Riak.Protocol.SetBucketTypeRequest: SetBucketTypeRequest :: !ByteString -> !BucketProps -> SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: [props] :: SetBucketTypeRequest -> !BucketProps
- Network.Riak.Protocol.SetBucketTypeRequest: [type'] :: SetBucketTypeRequest -> !ByteString
- Network.Riak.Protocol.SetBucketTypeRequest: data SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance Data.Data.Data Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance GHC.Classes.Eq Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance GHC.Classes.Ord Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance GHC.Generics.Generic Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance GHC.Show.Show Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest) Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetBucketTypeRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.SetBucketTypeRequest.SetBucketTypeRequest
- Network.Riak.Protocol.SetClientIDRequest: SetClientIDRequest :: !ByteString -> SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: [client_id] :: SetClientIDRequest -> !ByteString
- Network.Riak.Protocol.SetClientIDRequest: data SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance Data.Data.Data Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance GHC.Classes.Eq Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance GHC.Classes.Ord Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance GHC.Generics.Generic Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance GHC.Show.Show Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest) Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetClientIDRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.SetClientIDRequest.SetClientIDRequest
- Network.Riak.Protocol.SetOp: SetOp :: !Seq ByteString -> !Seq ByteString -> SetOp
- Network.Riak.Protocol.SetOp: [adds] :: SetOp -> !Seq ByteString
- Network.Riak.Protocol.SetOp: [removes] :: SetOp -> !Seq ByteString
- Network.Riak.Protocol.SetOp: data SetOp
- Network.Riak.Protocol.SetOp: instance Data.Data.Data Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance GHC.Classes.Eq Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance GHC.Classes.Ord Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance GHC.Generics.Generic Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance GHC.Show.Show Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.SetOp.SetOp) Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.SetOp: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.SetOp.SetOp
- Network.Riak.Protocol.TsCell: TsCell :: !Maybe ByteString -> !Maybe Int64 -> !Maybe Int64 -> !Maybe Bool -> !Maybe Double -> TsCell
- Network.Riak.Protocol.TsCell: [boolean_value] :: TsCell -> !Maybe Bool
- Network.Riak.Protocol.TsCell: [double_value] :: TsCell -> !Maybe Double
- Network.Riak.Protocol.TsCell: [sint64_value] :: TsCell -> !Maybe Int64
- Network.Riak.Protocol.TsCell: [timestamp_value] :: TsCell -> !Maybe Int64
- Network.Riak.Protocol.TsCell: [varchar_value] :: TsCell -> !Maybe ByteString
- Network.Riak.Protocol.TsCell: data TsCell
- Network.Riak.Protocol.TsCell: instance Data.Data.Data Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance GHC.Classes.Eq Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance GHC.Classes.Ord Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance GHC.Generics.Generic Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance GHC.Show.Show Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsCell.TsCell) Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsCell: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsCell.TsCell
- Network.Riak.Protocol.TsColumnDescription: TsColumnDescription :: !ByteString -> !TsColumnType -> TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: [name] :: TsColumnDescription -> !ByteString
- Network.Riak.Protocol.TsColumnDescription: [type'] :: TsColumnDescription -> !TsColumnType
- Network.Riak.Protocol.TsColumnDescription: data TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance Data.Data.Data Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance GHC.Classes.Eq Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance GHC.Classes.Ord Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance GHC.Generics.Generic Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance GHC.Show.Show Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsColumnDescription.TsColumnDescription) Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnDescription: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsColumnDescription.TsColumnDescription
- Network.Riak.Protocol.TsColumnType: BLOB :: TsColumnType
- Network.Riak.Protocol.TsColumnType: BOOLEAN :: TsColumnType
- Network.Riak.Protocol.TsColumnType: DOUBLE :: TsColumnType
- Network.Riak.Protocol.TsColumnType: SINT64 :: TsColumnType
- Network.Riak.Protocol.TsColumnType: TIMESTAMP :: TsColumnType
- Network.Riak.Protocol.TsColumnType: VARCHAR :: TsColumnType
- Network.Riak.Protocol.TsColumnType: data TsColumnType
- Network.Riak.Protocol.TsColumnType: instance Data.Data.Data Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance GHC.Classes.Eq Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance GHC.Classes.Ord Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance GHC.Enum.Bounded Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance GHC.Enum.Enum Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance GHC.Generics.Generic Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance GHC.Read.Read Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance GHC.Show.Show Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsColumnType.TsColumnType) Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance Text.ProtocolBuffers.Reflections.ReflectEnum Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsColumnType: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsColumnType.TsColumnType
- Network.Riak.Protocol.TsCoverageEntry: TsCoverageEntry :: !ByteString -> !Word32 -> !ByteString -> !Maybe TsRange -> TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: [cover_context] :: TsCoverageEntry -> !ByteString
- Network.Riak.Protocol.TsCoverageEntry: [ip] :: TsCoverageEntry -> !ByteString
- Network.Riak.Protocol.TsCoverageEntry: [port] :: TsCoverageEntry -> !Word32
- Network.Riak.Protocol.TsCoverageEntry: [range] :: TsCoverageEntry -> !Maybe TsRange
- Network.Riak.Protocol.TsCoverageEntry: data TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance Data.Data.Data Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance GHC.Classes.Eq Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance GHC.Classes.Ord Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance GHC.Generics.Generic Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance GHC.Show.Show Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry) Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageEntry: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsCoverageEntry.TsCoverageEntry
- Network.Riak.Protocol.TsCoverageRequest: TsCoverageRequest :: !Maybe TsInterpolation -> !ByteString -> !Maybe ByteString -> !Seq ByteString -> TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: [query] :: TsCoverageRequest -> !Maybe TsInterpolation
- Network.Riak.Protocol.TsCoverageRequest: [replace_cover] :: TsCoverageRequest -> !Maybe ByteString
- Network.Riak.Protocol.TsCoverageRequest: [table] :: TsCoverageRequest -> !ByteString
- Network.Riak.Protocol.TsCoverageRequest: [unavailable_cover] :: TsCoverageRequest -> !Seq ByteString
- Network.Riak.Protocol.TsCoverageRequest: data TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance Data.Data.Data Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance GHC.Classes.Eq Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance GHC.Classes.Ord Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance GHC.Generics.Generic Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance GHC.Show.Show Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest) Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsCoverageRequest.TsCoverageRequest
- Network.Riak.Protocol.TsCoverageResponse: TsCoverageResponse :: !Seq TsCoverageEntry -> TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: [entries] :: TsCoverageResponse -> !Seq TsCoverageEntry
- Network.Riak.Protocol.TsCoverageResponse: data TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance Data.Data.Data Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance GHC.Classes.Eq Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance GHC.Classes.Ord Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance GHC.Generics.Generic Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance GHC.Show.Show Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse) Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsCoverageResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsCoverageResponse.TsCoverageResponse
- Network.Riak.Protocol.TsDeleteRequest: TsDeleteRequest :: !ByteString -> !Seq TsCell -> !Maybe ByteString -> !Maybe Word32 -> TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: [key] :: TsDeleteRequest -> !Seq TsCell
- Network.Riak.Protocol.TsDeleteRequest: [table] :: TsDeleteRequest -> !ByteString
- Network.Riak.Protocol.TsDeleteRequest: [timeout] :: TsDeleteRequest -> !Maybe Word32
- Network.Riak.Protocol.TsDeleteRequest: [vclock] :: TsDeleteRequest -> !Maybe ByteString
- Network.Riak.Protocol.TsDeleteRequest: data TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance Data.Data.Data Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance GHC.Classes.Eq Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance GHC.Classes.Ord Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance GHC.Generics.Generic Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance GHC.Show.Show Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest) Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsDeleteRequest.TsDeleteRequest
- Network.Riak.Protocol.TsDeleteResponse: TsDeleteResponse :: TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: data TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance Data.Data.Data Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance GHC.Classes.Eq Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance GHC.Classes.Ord Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance GHC.Generics.Generic Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance GHC.Show.Show Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse) Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsDeleteResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsDeleteResponse.TsDeleteResponse
- Network.Riak.Protocol.TsGetRequest: TsGetRequest :: !ByteString -> !Seq TsCell -> !Maybe Word32 -> TsGetRequest
- Network.Riak.Protocol.TsGetRequest: [key] :: TsGetRequest -> !Seq TsCell
- Network.Riak.Protocol.TsGetRequest: [table] :: TsGetRequest -> !ByteString
- Network.Riak.Protocol.TsGetRequest: [timeout] :: TsGetRequest -> !Maybe Word32
- Network.Riak.Protocol.TsGetRequest: data TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance Data.Data.Data Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance GHC.Classes.Eq Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance GHC.Classes.Ord Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance GHC.Generics.Generic Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance GHC.Show.Show Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsGetRequest.TsGetRequest) Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsGetRequest.TsGetRequest
- Network.Riak.Protocol.TsGetResponse: TsGetResponse :: !Seq TsColumnDescription -> !Seq TsRow -> TsGetResponse
- Network.Riak.Protocol.TsGetResponse: [columns] :: TsGetResponse -> !Seq TsColumnDescription
- Network.Riak.Protocol.TsGetResponse: [rows] :: TsGetResponse -> !Seq TsRow
- Network.Riak.Protocol.TsGetResponse: data TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance Data.Data.Data Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance GHC.Classes.Eq Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance GHC.Classes.Ord Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance GHC.Generics.Generic Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance GHC.Show.Show Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsGetResponse.TsGetResponse) Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsGetResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsGetResponse.TsGetResponse
- Network.Riak.Protocol.TsInterpolation: TsInterpolation :: !ByteString -> !Seq Pair -> TsInterpolation
- Network.Riak.Protocol.TsInterpolation: [base] :: TsInterpolation -> !ByteString
- Network.Riak.Protocol.TsInterpolation: [interpolations] :: TsInterpolation -> !Seq Pair
- Network.Riak.Protocol.TsInterpolation: data TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance Data.Data.Data Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance GHC.Classes.Eq Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance GHC.Classes.Ord Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance GHC.Generics.Generic Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance GHC.Show.Show Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsInterpolation.TsInterpolation) Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsInterpolation: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsInterpolation.TsInterpolation
- Network.Riak.Protocol.TsListKeysRequest: TsListKeysRequest :: !ByteString -> !Maybe Word32 -> TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: [table] :: TsListKeysRequest -> !ByteString
- Network.Riak.Protocol.TsListKeysRequest: [timeout] :: TsListKeysRequest -> !Maybe Word32
- Network.Riak.Protocol.TsListKeysRequest: data TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance Data.Data.Data Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance GHC.Classes.Eq Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance GHC.Classes.Ord Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance GHC.Generics.Generic Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance GHC.Show.Show Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest) Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsListKeysRequest.TsListKeysRequest
- Network.Riak.Protocol.TsListKeysResponse: TsListKeysResponse :: !Seq TsRow -> !Maybe Bool -> TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: [done] :: TsListKeysResponse -> !Maybe Bool
- Network.Riak.Protocol.TsListKeysResponse: [keys] :: TsListKeysResponse -> !Seq TsRow
- Network.Riak.Protocol.TsListKeysResponse: data TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance Data.Data.Data Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance GHC.Classes.Eq Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance GHC.Classes.Ord Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance GHC.Generics.Generic Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance GHC.Show.Show Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse) Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsListKeysResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsListKeysResponse.TsListKeysResponse
- Network.Riak.Protocol.TsPutRequest: TsPutRequest :: !ByteString -> !Seq TsColumnDescription -> !Seq TsRow -> TsPutRequest
- Network.Riak.Protocol.TsPutRequest: [columns] :: TsPutRequest -> !Seq TsColumnDescription
- Network.Riak.Protocol.TsPutRequest: [rows] :: TsPutRequest -> !Seq TsRow
- Network.Riak.Protocol.TsPutRequest: [table] :: TsPutRequest -> !ByteString
- Network.Riak.Protocol.TsPutRequest: data TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance Data.Data.Data Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance GHC.Classes.Eq Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance GHC.Classes.Ord Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance GHC.Generics.Generic Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance GHC.Show.Show Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsPutRequest.TsPutRequest) Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsPutRequest.TsPutRequest
- Network.Riak.Protocol.TsPutResponse: TsPutResponse :: TsPutResponse
- Network.Riak.Protocol.TsPutResponse: data TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance Data.Data.Data Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance GHC.Classes.Eq Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance GHC.Classes.Ord Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance GHC.Generics.Generic Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance GHC.Show.Show Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsPutResponse.TsPutResponse) Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsPutResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsPutResponse.TsPutResponse
- Network.Riak.Protocol.TsQueryRequest: TsQueryRequest :: !Maybe TsInterpolation -> !Maybe Bool -> !Maybe ByteString -> TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: [cover_context] :: TsQueryRequest -> !Maybe ByteString
- Network.Riak.Protocol.TsQueryRequest: [query] :: TsQueryRequest -> !Maybe TsInterpolation
- Network.Riak.Protocol.TsQueryRequest: [stream] :: TsQueryRequest -> !Maybe Bool
- Network.Riak.Protocol.TsQueryRequest: data TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance Data.Data.Data Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance GHC.Classes.Eq Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance GHC.Classes.Ord Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance GHC.Generics.Generic Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance GHC.Show.Show Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsQueryRequest.TsQueryRequest) Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsQueryRequest.TsQueryRequest
- Network.Riak.Protocol.TsQueryResponse: TsQueryResponse :: !Seq TsColumnDescription -> !Seq TsRow -> !Maybe Bool -> TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: [columns] :: TsQueryResponse -> !Seq TsColumnDescription
- Network.Riak.Protocol.TsQueryResponse: [done] :: TsQueryResponse -> !Maybe Bool
- Network.Riak.Protocol.TsQueryResponse: [rows] :: TsQueryResponse -> !Seq TsRow
- Network.Riak.Protocol.TsQueryResponse: data TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance Data.Data.Data Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance GHC.Classes.Eq Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance GHC.Classes.Ord Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance GHC.Generics.Generic Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance GHC.Show.Show Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsQueryResponse.TsQueryResponse) Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsQueryResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsQueryResponse.TsQueryResponse
- Network.Riak.Protocol.TsRange: TsRange :: !ByteString -> !Int64 -> !Bool -> !Int64 -> !Bool -> !ByteString -> TsRange
- Network.Riak.Protocol.TsRange: [desc] :: TsRange -> !ByteString
- Network.Riak.Protocol.TsRange: [field_name] :: TsRange -> !ByteString
- Network.Riak.Protocol.TsRange: [lower_bound] :: TsRange -> !Int64
- Network.Riak.Protocol.TsRange: [lower_bound_inclusive] :: TsRange -> !Bool
- Network.Riak.Protocol.TsRange: [upper_bound] :: TsRange -> !Int64
- Network.Riak.Protocol.TsRange: [upper_bound_inclusive] :: TsRange -> !Bool
- Network.Riak.Protocol.TsRange: data TsRange
- Network.Riak.Protocol.TsRange: instance Data.Data.Data Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance GHC.Classes.Eq Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance GHC.Classes.Ord Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance GHC.Generics.Generic Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance GHC.Show.Show Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsRange.TsRange) Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRange: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsRange.TsRange
- Network.Riak.Protocol.TsRow: TsRow :: !Seq TsCell -> TsRow
- Network.Riak.Protocol.TsRow: [cells] :: TsRow -> !Seq TsCell
- Network.Riak.Protocol.TsRow: data TsRow
- Network.Riak.Protocol.TsRow: instance Data.Data.Data Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance GHC.Classes.Eq Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance GHC.Classes.Ord Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance GHC.Generics.Generic Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance GHC.Show.Show Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.TsRow.TsRow) Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.TsRow: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.TsRow.TsRow
- Network.Riak.Protocol.YzIndex: YzIndex :: !ByteString -> !Maybe ByteString -> !Maybe Word32 -> YzIndex
- Network.Riak.Protocol.YzIndex: [n_val] :: YzIndex -> !Maybe Word32
- Network.Riak.Protocol.YzIndex: [name] :: YzIndex -> !ByteString
- Network.Riak.Protocol.YzIndex: [schema] :: YzIndex -> !Maybe ByteString
- Network.Riak.Protocol.YzIndex: data YzIndex
- Network.Riak.Protocol.YzIndex: instance Data.Data.Data Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance GHC.Classes.Eq Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance GHC.Classes.Ord Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance GHC.Generics.Generic Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance GHC.Show.Show Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.YzIndex.YzIndex) Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndex: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.YzIndex.YzIndex
- Network.Riak.Protocol.YzIndexDeleteRequest: YzIndexDeleteRequest :: !ByteString -> YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: [name] :: YzIndexDeleteRequest -> !ByteString
- Network.Riak.Protocol.YzIndexDeleteRequest: data YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance Data.Data.Data Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance GHC.Classes.Eq Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance GHC.Classes.Ord Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance GHC.Generics.Generic Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance GHC.Show.Show Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest) Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexDeleteRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.YzIndexDeleteRequest.YzIndexDeleteRequest
- Network.Riak.Protocol.YzIndexGetRequest: YzIndexGetRequest :: !Maybe ByteString -> YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: [name] :: YzIndexGetRequest -> !Maybe ByteString
- Network.Riak.Protocol.YzIndexGetRequest: data YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance Data.Data.Data Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance GHC.Classes.Eq Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance GHC.Classes.Ord Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance GHC.Generics.Generic Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance GHC.Show.Show Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest) Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.YzIndexGetRequest.YzIndexGetRequest
- Network.Riak.Protocol.YzIndexGetResponse: YzIndexGetResponse :: !Seq YzIndex -> YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: [index] :: YzIndexGetResponse -> !Seq YzIndex
- Network.Riak.Protocol.YzIndexGetResponse: data YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance Data.Data.Data Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance GHC.Classes.Eq Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance GHC.Classes.Ord Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance GHC.Generics.Generic Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance GHC.Show.Show Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse) Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexGetResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.YzIndexGetResponse.YzIndexGetResponse
- Network.Riak.Protocol.YzIndexPutRequest: YzIndexPutRequest :: !YzIndex -> !Maybe Word32 -> YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: [index] :: YzIndexPutRequest -> !YzIndex
- Network.Riak.Protocol.YzIndexPutRequest: [timeout] :: YzIndexPutRequest -> !Maybe Word32
- Network.Riak.Protocol.YzIndexPutRequest: data YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance Data.Data.Data Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance GHC.Classes.Eq Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance GHC.Classes.Ord Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance GHC.Generics.Generic Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance GHC.Show.Show Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest) Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzIndexPutRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.YzIndexPutRequest.YzIndexPutRequest
- Network.Riak.Protocol.YzSchema: YzSchema :: !ByteString -> !Maybe ByteString -> YzSchema
- Network.Riak.Protocol.YzSchema: [content] :: YzSchema -> !Maybe ByteString
- Network.Riak.Protocol.YzSchema: [name] :: YzSchema -> !ByteString
- Network.Riak.Protocol.YzSchema: data YzSchema
- Network.Riak.Protocol.YzSchema: instance Data.Data.Data Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance GHC.Classes.Eq Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance GHC.Classes.Ord Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance GHC.Generics.Generic Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance GHC.Show.Show Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.YzSchema.YzSchema) Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchema: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.YzSchema.YzSchema
- Network.Riak.Protocol.YzSchemaGetRequest: YzSchemaGetRequest :: !ByteString -> YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: [name] :: YzSchemaGetRequest -> !ByteString
- Network.Riak.Protocol.YzSchemaGetRequest: data YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance Data.Data.Data Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance GHC.Classes.Eq Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance GHC.Classes.Ord Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance GHC.Generics.Generic Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance GHC.Show.Show Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest) Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.YzSchemaGetRequest.YzSchemaGetRequest
- Network.Riak.Protocol.YzSchemaGetResponse: YzSchemaGetResponse :: !YzSchema -> YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: [schema] :: YzSchemaGetResponse -> !YzSchema
- Network.Riak.Protocol.YzSchemaGetResponse: data YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance Data.Data.Data Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance GHC.Classes.Eq Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance GHC.Classes.Ord Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance GHC.Generics.Generic Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance GHC.Show.Show Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse) Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaGetResponse: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.YzSchemaGetResponse.YzSchemaGetResponse
- Network.Riak.Protocol.YzSchemaPutRequest: YzSchemaPutRequest :: !YzSchema -> YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: [schema] :: YzSchemaPutRequest -> !YzSchema
- Network.Riak.Protocol.YzSchemaPutRequest: data YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance Data.Data.Data Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance GHC.Classes.Eq Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance GHC.Classes.Ord Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance GHC.Generics.Generic Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance GHC.Show.Show Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance Text.ProtocolBuffers.Basic.Default Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance Text.ProtocolBuffers.Basic.Mergeable Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance Text.ProtocolBuffers.Extensions.GPB Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance Text.ProtocolBuffers.Extensions.MessageAPI msg' (msg' -> Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest) Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance Text.ProtocolBuffers.Reflections.ReflectDescriptor Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance Text.ProtocolBuffers.TextMessage.TextMsg Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance Text.ProtocolBuffers.TextMessage.TextType Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
- Network.Riak.Protocol.YzSchemaPutRequest: instance Text.ProtocolBuffers.WireMessage.Wire Network.Riak.Protocol.YzSchemaPutRequest.YzSchemaPutRequest
+ Data.Riak.Proto: BLOB :: TsColumnType
+ Data.Riak.Proto: BOOLEAN :: TsColumnType
+ Data.Riak.Proto: DOUBLE :: TsColumnType
+ Data.Riak.Proto: DtFetchResp'COUNTER :: DtFetchResp'DataType
+ Data.Riak.Proto: DtFetchResp'GSET :: DtFetchResp'DataType
+ Data.Riak.Proto: DtFetchResp'HLL :: DtFetchResp'DataType
+ Data.Riak.Proto: DtFetchResp'MAP :: DtFetchResp'DataType
+ Data.Riak.Proto: DtFetchResp'SET :: DtFetchResp'DataType
+ Data.Riak.Proto: MapField'COUNTER :: MapField'MapFieldType
+ Data.Riak.Proto: MapField'FLAG :: MapField'MapFieldType
+ Data.Riak.Proto: MapField'MAP :: MapField'MapFieldType
+ Data.Riak.Proto: MapField'REGISTER :: MapField'MapFieldType
+ Data.Riak.Proto: MapField'SET :: MapField'MapFieldType
+ Data.Riak.Proto: MapUpdate'DISABLE :: MapUpdate'FlagOp
+ Data.Riak.Proto: MapUpdate'ENABLE :: MapUpdate'FlagOp
+ Data.Riak.Proto: RpbBucketProps'FALSE :: RpbBucketProps'RpbReplMode
+ Data.Riak.Proto: RpbBucketProps'FULLSYNC :: RpbBucketProps'RpbReplMode
+ Data.Riak.Proto: RpbBucketProps'REALTIME :: RpbBucketProps'RpbReplMode
+ Data.Riak.Proto: RpbBucketProps'TRUE :: RpbBucketProps'RpbReplMode
+ Data.Riak.Proto: RpbIndexReq'Eq :: RpbIndexReq'IndexQueryType
+ Data.Riak.Proto: RpbIndexReq'Range :: RpbIndexReq'IndexQueryType
+ Data.Riak.Proto: SINT64 :: TsColumnType
+ Data.Riak.Proto: TIMESTAMP :: TsColumnType
+ Data.Riak.Proto: VARCHAR :: TsColumnType
+ Data.Riak.Proto: adds :: forall f s a. (Functor f, HasField s "adds" a) => LensLike' f s a
+ Data.Riak.Proto: allowMult :: forall f s a. (Functor f, HasField s "allowMult" a) => LensLike' f s a
+ Data.Riak.Proto: amount :: forall f s a. (Functor f, HasField s "amount" a) => LensLike' f s a
+ Data.Riak.Proto: asis :: forall f s a. (Functor f, HasField s "asis" a) => LensLike' f s a
+ Data.Riak.Proto: backend :: forall f s a. (Functor f, HasField s "backend" a) => LensLike' f s a
+ Data.Riak.Proto: base :: forall f s a. (Functor f, HasField s "base" a) => LensLike' f s a
+ Data.Riak.Proto: basicQuorum :: forall f s a. (Functor f, HasField s "basicQuorum" a) => LensLike' f s a
+ Data.Riak.Proto: bigVclock :: forall f s a. (Functor f, HasField s "bigVclock" a) => LensLike' f s a
+ Data.Riak.Proto: booleanValue :: forall f s a. (Functor f, HasField s "booleanValue" a) => LensLike' f s a
+ Data.Riak.Proto: bucket :: forall f s a. (Functor f, HasField s "bucket" a) => LensLike' f s a
+ Data.Riak.Proto: buckets :: forall f s a. (Functor f, HasField s "buckets" a) => LensLike' f s a
+ Data.Riak.Proto: cells :: forall f s a. (Functor f, HasField s "cells" a) => LensLike' f s a
+ Data.Riak.Proto: charset :: forall f s a. (Functor f, HasField s "charset" a) => LensLike' f s a
+ Data.Riak.Proto: chashKeyfun :: forall f s a. (Functor f, HasField s "chashKeyfun" a) => LensLike' f s a
+ Data.Riak.Proto: class Message msg
+ Data.Riak.Proto: clientId :: forall f s a. (Functor f, HasField s "clientId" a) => LensLike' f s a
+ Data.Riak.Proto: columns :: forall f s a. (Functor f, HasField s "columns" a) => LensLike' f s a
+ Data.Riak.Proto: consistent :: forall f s a. (Functor f, HasField s "consistent" a) => LensLike' f s a
+ Data.Riak.Proto: content :: forall f s a. (Functor f, HasField s "content" a) => LensLike' f s a
+ Data.Riak.Proto: contentEncoding :: forall f s a. (Functor f, HasField s "contentEncoding" a) => LensLike' f s a
+ Data.Riak.Proto: contentType :: forall f s a. (Functor f, HasField s "contentType" a) => LensLike' f s a
+ Data.Riak.Proto: context :: forall f s a. (Functor f, HasField s "context" a) => LensLike' f s a
+ Data.Riak.Proto: continuation :: forall f s a. (Functor f, HasField s "continuation" a) => LensLike' f s a
+ Data.Riak.Proto: counterOp :: forall f s a. (Functor f, HasField s "counterOp" a) => LensLike' f s a
+ Data.Riak.Proto: counterValue :: forall f s a. (Functor f, HasField s "counterValue" a) => LensLike' f s a
+ Data.Riak.Proto: coverContext :: forall f s a. (Functor f, HasField s "coverContext" a) => LensLike' f s a
+ Data.Riak.Proto: data CounterOp
+ Data.Riak.Proto: data DtFetchReq
+ Data.Riak.Proto: data DtFetchResp
+ Data.Riak.Proto: data DtFetchResp'DataType
+ Data.Riak.Proto: data DtOp
+ Data.Riak.Proto: data DtUpdateReq
+ Data.Riak.Proto: data DtUpdateResp
+ Data.Riak.Proto: data DtValue
+ Data.Riak.Proto: data GSetOp
+ Data.Riak.Proto: data HllOp
+ Data.Riak.Proto: data MapEntry
+ Data.Riak.Proto: data MapField
+ Data.Riak.Proto: data MapField'MapFieldType
+ Data.Riak.Proto: data MapOp
+ Data.Riak.Proto: data MapUpdate
+ Data.Riak.Proto: data MapUpdate'FlagOp
+ Data.Riak.Proto: data RpbAuthReq
+ Data.Riak.Proto: data RpbAuthResp
+ Data.Riak.Proto: data RpbBucketKeyPreflistItem
+ Data.Riak.Proto: data RpbBucketProps
+ Data.Riak.Proto: data RpbBucketProps'RpbReplMode
+ Data.Riak.Proto: data RpbCSBucketReq
+ Data.Riak.Proto: data RpbCSBucketResp
+ Data.Riak.Proto: data RpbCommitHook
+ Data.Riak.Proto: data RpbContent
+ Data.Riak.Proto: data RpbCounterGetReq
+ Data.Riak.Proto: data RpbCounterGetResp
+ Data.Riak.Proto: data RpbCounterUpdateReq
+ Data.Riak.Proto: data RpbCounterUpdateResp
+ Data.Riak.Proto: data RpbCoverageEntry
+ Data.Riak.Proto: data RpbCoverageReq
+ Data.Riak.Proto: data RpbCoverageResp
+ Data.Riak.Proto: data RpbDelReq
+ Data.Riak.Proto: data RpbDelResp
+ Data.Riak.Proto: data RpbErrorResp
+ Data.Riak.Proto: data RpbGetBucketKeyPreflistReq
+ Data.Riak.Proto: data RpbGetBucketKeyPreflistResp
+ Data.Riak.Proto: data RpbGetBucketReq
+ Data.Riak.Proto: data RpbGetBucketResp
+ Data.Riak.Proto: data RpbGetBucketTypeReq
+ Data.Riak.Proto: data RpbGetClientIdReq
+ Data.Riak.Proto: data RpbGetClientIdResp
+ Data.Riak.Proto: data RpbGetReq
+ Data.Riak.Proto: data RpbGetResp
+ Data.Riak.Proto: data RpbGetServerInfoReq
+ Data.Riak.Proto: data RpbGetServerInfoResp
+ Data.Riak.Proto: data RpbIndexBodyResp
+ Data.Riak.Proto: data RpbIndexObject
+ Data.Riak.Proto: data RpbIndexReq
+ Data.Riak.Proto: data RpbIndexReq'IndexQueryType
+ Data.Riak.Proto: data RpbIndexResp
+ Data.Riak.Proto: data RpbLink
+ Data.Riak.Proto: data RpbListBucketsReq
+ Data.Riak.Proto: data RpbListBucketsResp
+ Data.Riak.Proto: data RpbListKeysReq
+ Data.Riak.Proto: data RpbListKeysResp
+ Data.Riak.Proto: data RpbMapRedReq
+ Data.Riak.Proto: data RpbMapRedResp
+ Data.Riak.Proto: data RpbModFun
+ Data.Riak.Proto: data RpbPair
+ Data.Riak.Proto: data RpbPingReq
+ Data.Riak.Proto: data RpbPingResp
+ Data.Riak.Proto: data RpbPutReq
+ Data.Riak.Proto: data RpbPutResp
+ Data.Riak.Proto: data RpbResetBucketReq
+ Data.Riak.Proto: data RpbResetBucketResp
+ Data.Riak.Proto: data RpbSearchDoc
+ Data.Riak.Proto: data RpbSearchQueryReq
+ Data.Riak.Proto: data RpbSearchQueryResp
+ Data.Riak.Proto: data RpbSetBucketReq
+ Data.Riak.Proto: data RpbSetBucketResp
+ Data.Riak.Proto: data RpbSetBucketTypeReq
+ Data.Riak.Proto: data RpbSetClientIdReq
+ Data.Riak.Proto: data RpbYokozunaIndex
+ Data.Riak.Proto: data RpbYokozunaIndexDeleteReq
+ Data.Riak.Proto: data RpbYokozunaIndexGetReq
+ Data.Riak.Proto: data RpbYokozunaIndexGetResp
+ Data.Riak.Proto: data RpbYokozunaIndexPutReq
+ Data.Riak.Proto: data RpbYokozunaSchema
+ Data.Riak.Proto: data RpbYokozunaSchemaGetReq
+ Data.Riak.Proto: data RpbYokozunaSchemaGetResp
+ Data.Riak.Proto: data RpbYokozunaSchemaPutReq
+ Data.Riak.Proto: data SetOp
+ Data.Riak.Proto: data TsCell
+ Data.Riak.Proto: data TsColumnDescription
+ Data.Riak.Proto: data TsColumnType
+ Data.Riak.Proto: data TsCoverageEntry
+ Data.Riak.Proto: data TsCoverageReq
+ Data.Riak.Proto: data TsCoverageResp
+ Data.Riak.Proto: data TsDelReq
+ Data.Riak.Proto: data TsDelResp
+ Data.Riak.Proto: data TsGetReq
+ Data.Riak.Proto: data TsGetResp
+ Data.Riak.Proto: data TsInterpolation
+ Data.Riak.Proto: data TsListKeysReq
+ Data.Riak.Proto: data TsListKeysResp
+ Data.Riak.Proto: data TsPutReq
+ Data.Riak.Proto: data TsPutResp
+ Data.Riak.Proto: data TsQueryReq
+ Data.Riak.Proto: data TsQueryResp
+ Data.Riak.Proto: data TsRange
+ Data.Riak.Proto: data TsRow
+ Data.Riak.Proto: datatype :: forall f s a. (Functor f, HasField s "datatype" a) => LensLike' f s a
+ Data.Riak.Proto: decodeMessage :: Message msg => ByteString -> Either String msg
+ Data.Riak.Proto: defMessage :: Message msg => msg
+ Data.Riak.Proto: deleted :: forall f s a. (Functor f, HasField s "deleted" a) => LensLike' f s a
+ Data.Riak.Proto: deletedvclock :: forall f s a. (Functor f, HasField s "deletedvclock" a) => LensLike' f s a
+ Data.Riak.Proto: desc :: forall f s a. (Functor f, HasField s "desc" a) => LensLike' f s a
+ Data.Riak.Proto: df :: forall f s a. (Functor f, HasField s "df" a) => LensLike' f s a
+ Data.Riak.Proto: docs :: forall f s a. (Functor f, HasField s "docs" a) => LensLike' f s a
+ Data.Riak.Proto: done :: forall f s a. (Functor f, HasField s "done" a) => LensLike' f s a
+ Data.Riak.Proto: doubleValue :: forall f s a. (Functor f, HasField s "doubleValue" a) => LensLike' f s a
+ Data.Riak.Proto: dw :: forall f s a. (Functor f, HasField s "dw" a) => LensLike' f s a
+ Data.Riak.Proto: encodeMessage :: Message msg => msg -> ByteString
+ Data.Riak.Proto: endIncl :: forall f s a. (Functor f, HasField s "endIncl" a) => LensLike' f s a
+ Data.Riak.Proto: endKey :: forall f s a. (Functor f, HasField s "endKey" a) => LensLike' f s a
+ Data.Riak.Proto: entries :: forall f s a. (Functor f, HasField s "entries" a) => LensLike' f s a
+ Data.Riak.Proto: errcode :: forall f s a. (Functor f, HasField s "errcode" a) => LensLike' f s a
+ Data.Riak.Proto: errmsg :: forall f s a. (Functor f, HasField s "errmsg" a) => LensLike' f s a
+ Data.Riak.Proto: field :: forall f s a. (Functor f, HasField s "field" a) => LensLike' f s a
+ Data.Riak.Proto: fieldName :: forall f s a. (Functor f, HasField s "fieldName" a) => LensLike' f s a
+ Data.Riak.Proto: fields :: forall f s a. (Functor f, HasField s "fields" a) => LensLike' f s a
+ Data.Riak.Proto: filter :: forall f s a. (Functor f, HasField s "filter" a) => LensLike' f s a
+ Data.Riak.Proto: fl :: forall f s a. (Functor f, HasField s "fl" a) => LensLike' f s a
+ Data.Riak.Proto: flagOp :: forall f s a. (Functor f, HasField s "flagOp" a) => LensLike' f s a
+ Data.Riak.Proto: flagValue :: forall f s a. (Functor f, HasField s "flagValue" a) => LensLike' f s a
+ Data.Riak.Proto: function :: forall f s a. (Functor f, HasField s "function" a) => LensLike' f s a
+ Data.Riak.Proto: gsetOp :: forall f s a. (Functor f, HasField s "gsetOp" a) => LensLike' f s a
+ Data.Riak.Proto: gsetValue :: forall f s a. (Functor f, HasField s "gsetValue" a) => LensLike' f s a
+ Data.Riak.Proto: hasPostcommit :: forall f s a. (Functor f, HasField s "hasPostcommit" a) => LensLike' f s a
+ Data.Riak.Proto: hasPrecommit :: forall f s a. (Functor f, HasField s "hasPrecommit" a) => LensLike' f s a
+ Data.Riak.Proto: head :: forall f s a. (Functor f, HasField s "head" a) => LensLike' f s a
+ Data.Riak.Proto: hllOp :: forall f s a. (Functor f, HasField s "hllOp" a) => LensLike' f s a
+ Data.Riak.Proto: hllPrecision :: forall f s a. (Functor f, HasField s "hllPrecision" a) => LensLike' f s a
+ Data.Riak.Proto: hllValue :: forall f s a. (Functor f, HasField s "hllValue" a) => LensLike' f s a
+ Data.Riak.Proto: ifModified :: forall f s a. (Functor f, HasField s "ifModified" a) => LensLike' f s a
+ Data.Riak.Proto: ifNoneMatch :: forall f s a. (Functor f, HasField s "ifNoneMatch" a) => LensLike' f s a
+ Data.Riak.Proto: ifNotModified :: forall f s a. (Functor f, HasField s "ifNotModified" a) => LensLike' f s a
+ Data.Riak.Proto: includeContext :: forall f s a. (Functor f, HasField s "includeContext" a) => LensLike' f s a
+ Data.Riak.Proto: increment :: forall f s a. (Functor f, HasField s "increment" a) => LensLike' f s a
+ Data.Riak.Proto: index :: forall f s a. (Functor f, HasField s "index" a) => LensLike' f s a
+ Data.Riak.Proto: indexes :: forall f s a. (Functor f, HasField s "indexes" a) => LensLike' f s a
+ Data.Riak.Proto: interpolations :: forall f s a. (Functor f, HasField s "interpolations" a) => LensLike' f s a
+ Data.Riak.Proto: ip :: forall f s a. (Functor f, HasField s "ip" a) => LensLike' f s a
+ Data.Riak.Proto: key :: forall f s a. (Functor f, HasField s "key" a) => LensLike' f s a
+ Data.Riak.Proto: keys :: forall f s a. (Functor f, HasField s "keys" a) => LensLike' f s a
+ Data.Riak.Proto: keyspaceDesc :: forall f s a. (Functor f, HasField s "keyspaceDesc" a) => LensLike' f s a
+ Data.Riak.Proto: lastMod :: forall f s a. (Functor f, HasField s "lastMod" a) => LensLike' f s a
+ Data.Riak.Proto: lastModUsecs :: forall f s a. (Functor f, HasField s "lastModUsecs" a) => LensLike' f s a
+ Data.Riak.Proto: lastWriteWins :: forall f s a. (Functor f, HasField s "lastWriteWins" a) => LensLike' f s a
+ Data.Riak.Proto: linkfun :: forall f s a. (Functor f, HasField s "linkfun" a) => LensLike' f s a
+ Data.Riak.Proto: links :: forall f s a. (Functor f, HasField s "links" a) => LensLike' f s a
+ Data.Riak.Proto: lowerBound :: forall f s a. (Functor f, HasField s "lowerBound" a) => LensLike' f s a
+ Data.Riak.Proto: lowerBoundInclusive :: forall f s a. (Functor f, HasField s "lowerBoundInclusive" a) => LensLike' f s a
+ Data.Riak.Proto: mapOp :: forall f s a. (Functor f, HasField s "mapOp" a) => LensLike' f s a
+ Data.Riak.Proto: mapValue :: forall f s a. (Functor f, HasField s "mapValue" a) => LensLike' f s a
+ Data.Riak.Proto: maxResults :: forall f s a. (Functor f, HasField s "maxResults" a) => LensLike' f s a
+ Data.Riak.Proto: maxScore :: forall f s a. (Functor f, HasField s "maxScore" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'allowMult :: forall f s a. (Functor f, HasField s "maybe'allowMult" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'asis :: forall f s a. (Functor f, HasField s "maybe'asis" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'backend :: forall f s a. (Functor f, HasField s "maybe'backend" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'basicQuorum :: forall f s a. (Functor f, HasField s "maybe'basicQuorum" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'bigVclock :: forall f s a. (Functor f, HasField s "maybe'bigVclock" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'booleanValue :: forall f s a. (Functor f, HasField s "maybe'booleanValue" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'bucket :: forall f s a. (Functor f, HasField s "maybe'bucket" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'charset :: forall f s a. (Functor f, HasField s "maybe'charset" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'chashKeyfun :: forall f s a. (Functor f, HasField s "maybe'chashKeyfun" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'consistent :: forall f s a. (Functor f, HasField s "maybe'consistent" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'content :: forall f s a. (Functor f, HasField s "maybe'content" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'contentEncoding :: forall f s a. (Functor f, HasField s "maybe'contentEncoding" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'contentType :: forall f s a. (Functor f, HasField s "maybe'contentType" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'context :: forall f s a. (Functor f, HasField s "maybe'context" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'continuation :: forall f s a. (Functor f, HasField s "maybe'continuation" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'counterOp :: forall f s a. (Functor f, HasField s "maybe'counterOp" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'counterValue :: forall f s a. (Functor f, HasField s "maybe'counterValue" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'coverContext :: forall f s a. (Functor f, HasField s "maybe'coverContext" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'datatype :: forall f s a. (Functor f, HasField s "maybe'datatype" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'deleted :: forall f s a. (Functor f, HasField s "maybe'deleted" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'deletedvclock :: forall f s a. (Functor f, HasField s "maybe'deletedvclock" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'df :: forall f s a. (Functor f, HasField s "maybe'df" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'done :: forall f s a. (Functor f, HasField s "maybe'done" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'doubleValue :: forall f s a. (Functor f, HasField s "maybe'doubleValue" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'dw :: forall f s a. (Functor f, HasField s "maybe'dw" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'endIncl :: forall f s a. (Functor f, HasField s "maybe'endIncl" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'endKey :: forall f s a. (Functor f, HasField s "maybe'endKey" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'filter :: forall f s a. (Functor f, HasField s "maybe'filter" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'flagOp :: forall f s a. (Functor f, HasField s "maybe'flagOp" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'flagValue :: forall f s a. (Functor f, HasField s "maybe'flagValue" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'gsetOp :: forall f s a. (Functor f, HasField s "maybe'gsetOp" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'hasPostcommit :: forall f s a. (Functor f, HasField s "maybe'hasPostcommit" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'hasPrecommit :: forall f s a. (Functor f, HasField s "maybe'hasPrecommit" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'head :: forall f s a. (Functor f, HasField s "maybe'head" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'hllOp :: forall f s a. (Functor f, HasField s "maybe'hllOp" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'hllPrecision :: forall f s a. (Functor f, HasField s "maybe'hllPrecision" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'hllValue :: forall f s a. (Functor f, HasField s "maybe'hllValue" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'ifModified :: forall f s a. (Functor f, HasField s "maybe'ifModified" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'ifNoneMatch :: forall f s a. (Functor f, HasField s "maybe'ifNoneMatch" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'ifNotModified :: forall f s a. (Functor f, HasField s "maybe'ifNotModified" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'includeContext :: forall f s a. (Functor f, HasField s "maybe'includeContext" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'increment :: forall f s a. (Functor f, HasField s "maybe'increment" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'key :: forall f s a. (Functor f, HasField s "maybe'key" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'keyspaceDesc :: forall f s a. (Functor f, HasField s "maybe'keyspaceDesc" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'lastMod :: forall f s a. (Functor f, HasField s "maybe'lastMod" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'lastModUsecs :: forall f s a. (Functor f, HasField s "maybe'lastModUsecs" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'lastWriteWins :: forall f s a. (Functor f, HasField s "maybe'lastWriteWins" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'linkfun :: forall f s a. (Functor f, HasField s "maybe'linkfun" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'mapOp :: forall f s a. (Functor f, HasField s "maybe'mapOp" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'maxResults :: forall f s a. (Functor f, HasField s "maybe'maxResults" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'maxScore :: forall f s a. (Functor f, HasField s "maybe'maxScore" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'minPartitions :: forall f s a. (Functor f, HasField s "maybe'minPartitions" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'modfun :: forall f s a. (Functor f, HasField s "maybe'modfun" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'nVal :: forall f s a. (Functor f, HasField s "maybe'nVal" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'name :: forall f s a. (Functor f, HasField s "maybe'name" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'node :: forall f s a. (Functor f, HasField s "maybe'node" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'notfoundOk :: forall f s a. (Functor f, HasField s "maybe'notfoundOk" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'numFound :: forall f s a. (Functor f, HasField s "maybe'numFound" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'oldVclock :: forall f s a. (Functor f, HasField s "maybe'oldVclock" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'op :: forall f s a. (Functor f, HasField s "maybe'op" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'paginationSort :: forall f s a. (Functor f, HasField s "maybe'paginationSort" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'phase :: forall f s a. (Functor f, HasField s "maybe'phase" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'pr :: forall f s a. (Functor f, HasField s "maybe'pr" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'presort :: forall f s a. (Functor f, HasField s "maybe'presort" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'pw :: forall f s a. (Functor f, HasField s "maybe'pw" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'query :: forall f s a. (Functor f, HasField s "maybe'query" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'r :: forall f s a. (Functor f, HasField s "maybe'r" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'range :: forall f s a. (Functor f, HasField s "maybe'range" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'rangeMax :: forall f s a. (Functor f, HasField s "maybe'rangeMax" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'rangeMin :: forall f s a. (Functor f, HasField s "maybe'rangeMin" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'registerOp :: forall f s a. (Functor f, HasField s "maybe'registerOp" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'registerValue :: forall f s a. (Functor f, HasField s "maybe'registerValue" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'repl :: forall f s a. (Functor f, HasField s "maybe'repl" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'replaceCover :: forall f s a. (Functor f, HasField s "maybe'replaceCover" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'response :: forall f s a. (Functor f, HasField s "maybe'response" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'returnBody :: forall f s a. (Functor f, HasField s "maybe'returnBody" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'returnHead :: forall f s a. (Functor f, HasField s "maybe'returnHead" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'returnTerms :: forall f s a. (Functor f, HasField s "maybe'returnTerms" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'returnvalue :: forall f s a. (Functor f, HasField s "maybe'returnvalue" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'rows :: forall f s a. (Functor f, HasField s "maybe'rows" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'rw :: forall f s a. (Functor f, HasField s "maybe'rw" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'schema :: forall f s a. (Functor f, HasField s "maybe'schema" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'search :: forall f s a. (Functor f, HasField s "maybe'search" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'searchIndex :: forall f s a. (Functor f, HasField s "maybe'searchIndex" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'serverVersion :: forall f s a. (Functor f, HasField s "maybe'serverVersion" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'setOp :: forall f s a. (Functor f, HasField s "maybe'setOp" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'sint64Value :: forall f s a. (Functor f, HasField s "maybe'sint64Value" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'sloppyQuorum :: forall f s a. (Functor f, HasField s "maybe'sloppyQuorum" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'smallVclock :: forall f s a. (Functor f, HasField s "maybe'smallVclock" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'sort :: forall f s a. (Functor f, HasField s "maybe'sort" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'start :: forall f s a. (Functor f, HasField s "maybe'start" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'startIncl :: forall f s a. (Functor f, HasField s "maybe'startIncl" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'stream :: forall f s a. (Functor f, HasField s "maybe'stream" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'tag :: forall f s a. (Functor f, HasField s "maybe'tag" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'termRegex :: forall f s a. (Functor f, HasField s "maybe'termRegex" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'timeout :: forall f s a. (Functor f, HasField s "maybe'timeout" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'timestampValue :: forall f s a. (Functor f, HasField s "maybe'timestampValue" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'ttl :: forall f s a. (Functor f, HasField s "maybe'ttl" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'type' :: forall f s a. (Functor f, HasField s "maybe'type'" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'unchanged :: forall f s a. (Functor f, HasField s "maybe'unchanged" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'value :: forall f s a. (Functor f, HasField s "maybe'value" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'varcharValue :: forall f s a. (Functor f, HasField s "maybe'varcharValue" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'vclock :: forall f s a. (Functor f, HasField s "maybe'vclock" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'vtag :: forall f s a. (Functor f, HasField s "maybe'vtag" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'w :: forall f s a. (Functor f, HasField s "maybe'w" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'writeOnce :: forall f s a. (Functor f, HasField s "maybe'writeOnce" a) => LensLike' f s a
+ Data.Riak.Proto: maybe'youngVclock :: forall f s a. (Functor f, HasField s "maybe'youngVclock" a) => LensLike' f s a
+ Data.Riak.Proto: minPartitions :: forall f s a. (Functor f, HasField s "minPartitions" a) => LensLike' f s a
+ Data.Riak.Proto: modfun :: forall f s a. (Functor f, HasField s "modfun" a) => LensLike' f s a
+ Data.Riak.Proto: module' :: forall f s a. (Functor f, HasField s "module'" a) => LensLike' f s a
+ Data.Riak.Proto: nVal :: forall f s a. (Functor f, HasField s "nVal" a) => LensLike' f s a
+ Data.Riak.Proto: name :: forall f s a. (Functor f, HasField s "name" a) => LensLike' f s a
+ Data.Riak.Proto: node :: forall f s a. (Functor f, HasField s "node" a) => LensLike' f s a
+ Data.Riak.Proto: notfoundOk :: forall f s a. (Functor f, HasField s "notfoundOk" a) => LensLike' f s a
+ Data.Riak.Proto: numFound :: forall f s a. (Functor f, HasField s "numFound" a) => LensLike' f s a
+ Data.Riak.Proto: object :: forall f s a. (Functor f, HasField s "object" a) => LensLike' f s a
+ Data.Riak.Proto: objects :: forall f s a. (Functor f, HasField s "objects" a) => LensLike' f s a
+ Data.Riak.Proto: oldVclock :: forall f s a. (Functor f, HasField s "oldVclock" a) => LensLike' f s a
+ Data.Riak.Proto: op :: forall f s a. (Functor f, HasField s "op" a) => LensLike' f s a
+ Data.Riak.Proto: paginationSort :: forall f s a. (Functor f, HasField s "paginationSort" a) => LensLike' f s a
+ Data.Riak.Proto: partition :: forall f s a. (Functor f, HasField s "partition" a) => LensLike' f s a
+ Data.Riak.Proto: password :: forall f s a. (Functor f, HasField s "password" a) => LensLike' f s a
+ Data.Riak.Proto: phase :: forall f s a. (Functor f, HasField s "phase" a) => LensLike' f s a
+ Data.Riak.Proto: port :: forall f s a. (Functor f, HasField s "port" a) => LensLike' f s a
+ Data.Riak.Proto: postcommit :: forall f s a. (Functor f, HasField s "postcommit" a) => LensLike' f s a
+ Data.Riak.Proto: pr :: forall f s a. (Functor f, HasField s "pr" a) => LensLike' f s a
+ Data.Riak.Proto: precommit :: forall f s a. (Functor f, HasField s "precommit" a) => LensLike' f s a
+ Data.Riak.Proto: preflist :: forall f s a. (Functor f, HasField s "preflist" a) => LensLike' f s a
+ Data.Riak.Proto: presort :: forall f s a. (Functor f, HasField s "presort" a) => LensLike' f s a
+ Data.Riak.Proto: primary :: forall f s a. (Functor f, HasField s "primary" a) => LensLike' f s a
+ Data.Riak.Proto: props :: forall f s a. (Functor f, HasField s "props" a) => LensLike' f s a
+ Data.Riak.Proto: pw :: forall f s a. (Functor f, HasField s "pw" a) => LensLike' f s a
+ Data.Riak.Proto: q :: forall f s a. (Functor f, HasField s "q" a) => LensLike' f s a
+ Data.Riak.Proto: qtype :: forall f s a. (Functor f, HasField s "qtype" a) => LensLike' f s a
+ Data.Riak.Proto: query :: forall f s a. (Functor f, HasField s "query" a) => LensLike' f s a
+ Data.Riak.Proto: r :: forall f s a. (Functor f, HasField s "r" a) => LensLike' f s a
+ Data.Riak.Proto: range :: forall f s a. (Functor f, HasField s "range" a) => LensLike' f s a
+ Data.Riak.Proto: rangeMax :: forall f s a. (Functor f, HasField s "rangeMax" a) => LensLike' f s a
+ Data.Riak.Proto: rangeMin :: forall f s a. (Functor f, HasField s "rangeMin" a) => LensLike' f s a
+ Data.Riak.Proto: registerOp :: forall f s a. (Functor f, HasField s "registerOp" a) => LensLike' f s a
+ Data.Riak.Proto: registerValue :: forall f s a. (Functor f, HasField s "registerValue" a) => LensLike' f s a
+ Data.Riak.Proto: removes :: forall f s a. (Functor f, HasField s "removes" a) => LensLike' f s a
+ Data.Riak.Proto: repl :: forall f s a. (Functor f, HasField s "repl" a) => LensLike' f s a
+ Data.Riak.Proto: replaceCover :: forall f s a. (Functor f, HasField s "replaceCover" a) => LensLike' f s a
+ Data.Riak.Proto: request :: forall f s a. (Functor f, HasField s "request" a) => LensLike' f s a
+ Data.Riak.Proto: response :: forall f s a. (Functor f, HasField s "response" a) => LensLike' f s a
+ Data.Riak.Proto: results :: forall f s a. (Functor f, HasField s "results" a) => LensLike' f s a
+ Data.Riak.Proto: returnBody :: forall f s a. (Functor f, HasField s "returnBody" a) => LensLike' f s a
+ Data.Riak.Proto: returnHead :: forall f s a. (Functor f, HasField s "returnHead" a) => LensLike' f s a
+ Data.Riak.Proto: returnTerms :: forall f s a. (Functor f, HasField s "returnTerms" a) => LensLike' f s a
+ Data.Riak.Proto: returnvalue :: forall f s a. (Functor f, HasField s "returnvalue" a) => LensLike' f s a
+ Data.Riak.Proto: rows :: forall f s a. (Functor f, HasField s "rows" a) => LensLike' f s a
+ Data.Riak.Proto: rw :: forall f s a. (Functor f, HasField s "rw" a) => LensLike' f s a
+ Data.Riak.Proto: schema :: forall f s a. (Functor f, HasField s "schema" a) => LensLike' f s a
+ Data.Riak.Proto: search :: forall f s a. (Functor f, HasField s "search" a) => LensLike' f s a
+ Data.Riak.Proto: searchIndex :: forall f s a. (Functor f, HasField s "searchIndex" a) => LensLike' f s a
+ Data.Riak.Proto: serverVersion :: forall f s a. (Functor f, HasField s "serverVersion" a) => LensLike' f s a
+ Data.Riak.Proto: setOp :: forall f s a. (Functor f, HasField s "setOp" a) => LensLike' f s a
+ Data.Riak.Proto: setValue :: forall f s a. (Functor f, HasField s "setValue" a) => LensLike' f s a
+ Data.Riak.Proto: sint64Value :: forall f s a. (Functor f, HasField s "sint64Value" a) => LensLike' f s a
+ Data.Riak.Proto: sloppyQuorum :: forall f s a. (Functor f, HasField s "sloppyQuorum" a) => LensLike' f s a
+ Data.Riak.Proto: smallVclock :: forall f s a. (Functor f, HasField s "smallVclock" a) => LensLike' f s a
+ Data.Riak.Proto: sort :: forall f s a. (Functor f, HasField s "sort" a) => LensLike' f s a
+ Data.Riak.Proto: start :: forall f s a. (Functor f, HasField s "start" a) => LensLike' f s a
+ Data.Riak.Proto: startIncl :: forall f s a. (Functor f, HasField s "startIncl" a) => LensLike' f s a
+ Data.Riak.Proto: startKey :: forall f s a. (Functor f, HasField s "startKey" a) => LensLike' f s a
+ Data.Riak.Proto: stream :: forall f s a. (Functor f, HasField s "stream" a) => LensLike' f s a
+ Data.Riak.Proto: table :: forall f s a. (Functor f, HasField s "table" a) => LensLike' f s a
+ Data.Riak.Proto: tag :: forall f s a. (Functor f, HasField s "tag" a) => LensLike' f s a
+ Data.Riak.Proto: termRegex :: forall f s a. (Functor f, HasField s "termRegex" a) => LensLike' f s a
+ Data.Riak.Proto: timeout :: forall f s a. (Functor f, HasField s "timeout" a) => LensLike' f s a
+ Data.Riak.Proto: timestampValue :: forall f s a. (Functor f, HasField s "timestampValue" a) => LensLike' f s a
+ Data.Riak.Proto: ttl :: forall f s a. (Functor f, HasField s "ttl" a) => LensLike' f s a
+ Data.Riak.Proto: type' :: forall f s a. (Functor f, HasField s "type'" a) => LensLike' f s a
+ Data.Riak.Proto: unavailableCover :: forall f s a. (Functor f, HasField s "unavailableCover" a) => LensLike' f s a
+ Data.Riak.Proto: unchanged :: forall f s a. (Functor f, HasField s "unchanged" a) => LensLike' f s a
+ Data.Riak.Proto: updates :: forall f s a. (Functor f, HasField s "updates" a) => LensLike' f s a
+ Data.Riak.Proto: upperBound :: forall f s a. (Functor f, HasField s "upperBound" a) => LensLike' f s a
+ Data.Riak.Proto: upperBoundInclusive :: forall f s a. (Functor f, HasField s "upperBoundInclusive" a) => LensLike' f s a
+ Data.Riak.Proto: user :: forall f s a. (Functor f, HasField s "user" a) => LensLike' f s a
+ Data.Riak.Proto: usermeta :: forall f s a. (Functor f, HasField s "usermeta" a) => LensLike' f s a
+ Data.Riak.Proto: value :: forall f s a. (Functor f, HasField s "value" a) => LensLike' f s a
+ Data.Riak.Proto: varcharValue :: forall f s a. (Functor f, HasField s "varcharValue" a) => LensLike' f s a
+ Data.Riak.Proto: vclock :: forall f s a. (Functor f, HasField s "vclock" a) => LensLike' f s a
+ Data.Riak.Proto: vec'adds :: forall f s a. (Functor f, HasField s "vec'adds" a) => LensLike' f s a
+ Data.Riak.Proto: vec'buckets :: forall f s a. (Functor f, HasField s "vec'buckets" a) => LensLike' f s a
+ Data.Riak.Proto: vec'cells :: forall f s a. (Functor f, HasField s "vec'cells" a) => LensLike' f s a
+ Data.Riak.Proto: vec'columns :: forall f s a. (Functor f, HasField s "vec'columns" a) => LensLike' f s a
+ Data.Riak.Proto: vec'content :: forall f s a. (Functor f, HasField s "vec'content" a) => LensLike' f s a
+ Data.Riak.Proto: vec'docs :: forall f s a. (Functor f, HasField s "vec'docs" a) => LensLike' f s a
+ Data.Riak.Proto: vec'entries :: forall f s a. (Functor f, HasField s "vec'entries" a) => LensLike' f s a
+ Data.Riak.Proto: vec'fields :: forall f s a. (Functor f, HasField s "vec'fields" a) => LensLike' f s a
+ Data.Riak.Proto: vec'fl :: forall f s a. (Functor f, HasField s "vec'fl" a) => LensLike' f s a
+ Data.Riak.Proto: vec'gsetValue :: forall f s a. (Functor f, HasField s "vec'gsetValue" a) => LensLike' f s a
+ Data.Riak.Proto: vec'index :: forall f s a. (Functor f, HasField s "vec'index" a) => LensLike' f s a
+ Data.Riak.Proto: vec'indexes :: forall f s a. (Functor f, HasField s "vec'indexes" a) => LensLike' f s a
+ Data.Riak.Proto: vec'interpolations :: forall f s a. (Functor f, HasField s "vec'interpolations" a) => LensLike' f s a
+ Data.Riak.Proto: vec'key :: forall f s a. (Functor f, HasField s "vec'key" a) => LensLike' f s a
+ Data.Riak.Proto: vec'keys :: forall f s a. (Functor f, HasField s "vec'keys" a) => LensLike' f s a
+ Data.Riak.Proto: vec'links :: forall f s a. (Functor f, HasField s "vec'links" a) => LensLike' f s a
+ Data.Riak.Proto: vec'mapValue :: forall f s a. (Functor f, HasField s "vec'mapValue" a) => LensLike' f s a
+ Data.Riak.Proto: vec'objects :: forall f s a. (Functor f, HasField s "vec'objects" a) => LensLike' f s a
+ Data.Riak.Proto: vec'postcommit :: forall f s a. (Functor f, HasField s "vec'postcommit" a) => LensLike' f s a
+ Data.Riak.Proto: vec'precommit :: forall f s a. (Functor f, HasField s "vec'precommit" a) => LensLike' f s a
+ Data.Riak.Proto: vec'preflist :: forall f s a. (Functor f, HasField s "vec'preflist" a) => LensLike' f s a
+ Data.Riak.Proto: vec'removes :: forall f s a. (Functor f, HasField s "vec'removes" a) => LensLike' f s a
+ Data.Riak.Proto: vec'results :: forall f s a. (Functor f, HasField s "vec'results" a) => LensLike' f s a
+ Data.Riak.Proto: vec'rows :: forall f s a. (Functor f, HasField s "vec'rows" a) => LensLike' f s a
+ Data.Riak.Proto: vec'setValue :: forall f s a. (Functor f, HasField s "vec'setValue" a) => LensLike' f s a
+ Data.Riak.Proto: vec'unavailableCover :: forall f s a. (Functor f, HasField s "vec'unavailableCover" a) => LensLike' f s a
+ Data.Riak.Proto: vec'updates :: forall f s a. (Functor f, HasField s "vec'updates" a) => LensLike' f s a
+ Data.Riak.Proto: vec'usermeta :: forall f s a. (Functor f, HasField s "vec'usermeta" a) => LensLike' f s a
+ Data.Riak.Proto: vtag :: forall f s a. (Functor f, HasField s "vtag" a) => LensLike' f s a
+ Data.Riak.Proto: w :: forall f s a. (Functor f, HasField s "w" a) => LensLike' f s a
+ Data.Riak.Proto: writeOnce :: forall f s a. (Functor f, HasField s "writeOnce" a) => LensLike' f s a
+ Data.Riak.Proto: youngVclock :: forall f s a. (Functor f, HasField s "youngVclock" a) => LensLike' f s a

Files

Changes.md view
@@ -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
README.markdown view
@@ -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 @@ <bos@mailrank.com> and subsequently maintained by Nathan Hunter <nhunter@janrain.com>.  This project is now being maintained by Mark Hibberd (<mark@hibberd.id.au>).++Version `1.0.0` was contributed by Mitchell Rosen (<mitchellwrosen@gmail.com>).
+ generate-proto.sh view
@@ -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
− proto.sh
@@ -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
+ proto/riak.proto view
@@ -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;+}
+ proto/riak_dt.proto view
@@ -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;+}
+ proto/riak_extra.proto view
@@ -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 { }
+ proto/riak_kv.proto view
@@ -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 <ring_size, we build a coverage plan with exactly ring_size entries, anything larger will have a power of 2 entries covering keyspaces smaller than a partition+    optional bytes replace_cover = 4;     // For failure recovery+    repeated bytes unavailable_cover = 5; // Other coverage contexts that have failed to assist Riak in deciding what nodes to avoid+}++// Segmented coverage plan response+message RpbCoverageResp {+   repeated RpbCoverageEntry entries = 1;+}++// Segment of a coverage plan+message RpbCoverageEntry {+    required bytes ip = 1;+    required uint32 port = 2;+    optional bytes keyspace_desc = 3; // Some human readable description of the keyspace covered+    required bytes cover_context = 4; // Opaque context to pass into 2I query.+}
+ proto/riak_search.proto view
@@ -0,0 +1,43 @@+/* -------------------------------------------------------------------+ * riak_search.proto: Protocol buffers for Riak Search (Legacy Search)+ * -------------------------------------------------------------------+ *+ * 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'+ */++// 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+}
+ proto/riak_ts.proto view
@@ -0,0 +1,144 @@+/* -------------------------------------------------------------------+ * riak_ts.proto: Protocol buffers for Riak KV/TS+ *                (timeseries-specific messages)+ * -------------------------------------------------------------------+ *+ * 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 = "RiakTsPB";++// import "riak.proto"; // for RpbPair++// Dispatch a query to Riak+message TsQueryReq {+  // left optional to support parameterized queries in the future+  optional TsInterpolation query = 1;+  optional bool stream = 2 [default = false];+  optional bytes cover_context = 3; // chopped up coverage plan per-req+}++message TsQueryResp {+  repeated TsColumnDescription columns = 1;+  repeated TsRow rows = 2;  // 0 to n rows+  optional bool done = 3 [default = true];+}++message TsGetReq {+  required bytes table = 1;+  repeated TsCell key = 2;+  optional uint32 timeout = 3;+}++message TsGetResp {+  repeated TsColumnDescription columns = 1;+  repeated TsRow rows = 2;  // 0 or 1 rows+}+++message TsPutReq {+  required bytes table = 1;++  // optional: omitting it should use table order+  repeated TsColumnDescription columns = 2;++  repeated TsRow rows = 3;+}++message TsPutResp {++}++message TsDelReq {+  required bytes table = 1;+  repeated TsCell key = 2;+  optional bytes vclock = 3;+  optional uint32 timeout = 4;+}++message TsDelResp {++}++message TsInterpolation {+  required bytes base = 1;+  repeated RpbPair interpolations = 2;+}++enum TsColumnType {+  VARCHAR = 0;+  SINT64 = 1;+  DOUBLE = 2;+  TIMESTAMP = 3;+  BOOLEAN = 4;+  BLOB = 5;+}++message TsColumnDescription {+  required bytes name = 1;+  required TsColumnType type = 2;+}++message TsRow {+  repeated TsCell cells = 1;+}++message TsCell {+  optional bytes varchar_value = 1;+  optional sint64 sint64_value = 2;+  optional sint64 timestamp_value = 3;+  optional bool boolean_value = 4;+  optional double double_value = 5;+}++message TsListKeysReq {+  required bytes table = 1;+  optional uint32 timeout = 2;+}++message TsListKeysResp {+  repeated TsRow keys = 1;+  optional bool done = 2;+}++// Request a segmented coverage plan for this query+message TsCoverageReq {+  // left optional to support parameterized queries in the future+  optional TsInterpolation query = 1;+  required bytes table = 2;+  optional bytes replace_cover = 3;     // For failure recovery+  repeated bytes unavailable_cover = 4; // Other coverage contexts that have failed to assist Riak in deciding what nodes to avoid+}++// Segmented TS coverage plan response+message TsCoverageResp {+   repeated TsCoverageEntry entries = 1;+}++// Segment of a TS coverage plan+message TsCoverageEntry {+    required bytes ip = 1;+    required uint32 port = 2;+    required bytes cover_context = 3; // Opaque context to pass into follow-up request+    optional TsRange range = 4; // Might be other types of coverage queries/responses+}++// Each prospective subquery has a range of valid time values+message TsRange {+    required bytes field_name = 1;+    required sint64 lower_bound = 2;+    required bool lower_bound_inclusive = 3;+    required sint64 upper_bound = 4;+    required bool upper_bound_inclusive = 5;+    required bytes desc = 6; // Some human readable description of the time range+}
+ proto/riak_yokozuna.proto view
@@ -0,0 +1,66 @@+/* -------------------------------------------------------------------+ * riak_yokozuna.proto: Protocol buffers for Yokozuna+ *+ * 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 = "RiakYokozunaPB";++// Index queries++message RpbYokozunaIndex {+    required bytes name   =  1;  // Index name+    optional bytes schema =  2;  // Schema name+    optional uint32 n_val =  3;  // N value+}++// GET request - If a name is given, return matching index, else return all+message RpbYokozunaIndexGetReq {+    optional bytes name  =  1;  // Index name+}++message RpbYokozunaIndexGetResp {+    repeated RpbYokozunaIndex index  =  1;+}++// PUT request - Create a new index+message RpbYokozunaIndexPutReq {+    required RpbYokozunaIndex index  =  1;+    optional uint32 timeout          =  2; // Timeout value+}++// DELETE request - Remove an index+message RpbYokozunaIndexDeleteReq {+    required bytes name  =  1;  // Index name+}++// Schema queries++message RpbYokozunaSchema {+    required bytes name    =  1;  // Index name+    optional bytes content =  2;  // Schema data+}++// PUT request - create or potentially update a new schema+message RpbYokozunaSchemaPutReq {+    required RpbYokozunaSchema schema =  1;+}++// GET request - Return matching schema by name+message RpbYokozunaSchemaGetReq {+    required bytes name  =  1;  // Schema name+}++message RpbYokozunaSchemaGetResp {+  required RpbYokozunaSchema schema =  1;+}
riak-protobuf.cabal view
@@ -1,5 +1,5 @@ name:                riak-protobuf-version:             0.24.0.0+version:             0.25.0.0 synopsis:            Haskell types for the Riak protocol buffer API description:   A set of Haskell types for interacting with the protocol buffer@@ -15,124 +15,38 @@ category:            Network build-type:          Simple extra-source-files:-  README.markdown-  proto.sh-  src/riak.proto-  src/riak_kv.proto-  src/riak_search.proto-  src/riak_dt.proto-  src/riakextra.proto   Changes.md--cabal-version:       >=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
+ src-proto/Proto/Riak.hs view
@@ -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 <ring_size, we build a coverage plan with exactly ring_size entries, anything larger will have a power of 2 entries covering keyspaces smaller than a partition\n\+    \\n\+    \\r\n\+    \\ENQ\EOT?\STX\STX\EOT\DC2\EOT\233\ENQ\EOT\f\n\+    \\r\n\+    \\ENQ\EOT?\STX\STX\ENQ\DC2\EOT\233\ENQ\r\DC3\n\+    \\r\n\+    \\ENQ\EOT?\STX\STX\SOH\DC2\EOT\233\ENQ\DC4\"\n\+    \\r\n\+    \\ENQ\EOT?\STX\STX\ETX\DC2\EOT\233\ENQ%&\n\+    \$\n\+    \\EOT\EOT?\STX\ETX\DC2\EOT\234\ENQ\EOT%\"\SYN For failure recovery\n\+    \\n\+    \\r\n\+    \\ENQ\EOT?\STX\ETX\EOT\DC2\EOT\234\ENQ\EOT\f\n\+    \\r\n\+    \\ENQ\EOT?\STX\ETX\ENQ\DC2\EOT\234\ENQ\r\DC2\n\+    \\r\n\+    \\ENQ\EOT?\STX\ETX\SOH\DC2\EOT\234\ENQ\DC3 \n\+    \\r\n\+    \\ENQ\EOT?\STX\ETX\ETX\DC2\EOT\234\ENQ#$\n\+    \g\n\+    \\EOT\EOT?\STX\EOT\DC2\EOT\235\ENQ\EOT)\"Y Other coverage contexts that have failed to assist Riak in deciding what nodes to avoid\n\+    \\n\+    \\r\n\+    \\ENQ\EOT?\STX\EOT\EOT\DC2\EOT\235\ENQ\EOT\f\n\+    \\r\n\+    \\ENQ\EOT?\STX\EOT\ENQ\DC2\EOT\235\ENQ\r\DC2\n\+    \\r\n\+    \\ENQ\EOT?\STX\EOT\SOH\DC2\EOT\235\ENQ\DC3$\n\+    \\r\n\+    \\ENQ\EOT?\STX\EOT\ETX\DC2\EOT\235\ENQ'(\n\+    \0\n\+    \\STX\EOT@\DC2\ACK\239\ENQ\NUL\241\ENQ\SOH\SUB\" Segmented coverage plan response\n\+    \\n\+    \\v\n\+    \\ETX\EOT@\SOH\DC2\EOT\239\ENQ\b\ETB\n\+    \\f\n\+    \\EOT\EOT@\STX\NUL\DC2\EOT\240\ENQ\ETX)\n\+    \\r\n\+    \\ENQ\EOT@\STX\NUL\EOT\DC2\EOT\240\ENQ\ETX\v\n\+    \\r\n\+    \\ENQ\EOT@\STX\NUL\ACK\DC2\EOT\240\ENQ\f\FS\n\+    \\r\n\+    \\ENQ\EOT@\STX\NUL\SOH\DC2\EOT\240\ENQ\GS$\n\+    \\r\n\+    \\ENQ\EOT@\STX\NUL\ETX\DC2\EOT\240\ENQ'(\n\+    \*\n\+    \\STX\EOTA\DC2\ACK\244\ENQ\NUL\249\ENQ\SOH\SUB\FS Segment of a coverage plan\n\+    \\n\+    \\v\n\+    \\ETX\EOTA\SOH\DC2\EOT\244\ENQ\b\CAN\n\+    \\f\n\+    \\EOT\EOTA\STX\NUL\DC2\EOT\245\ENQ\EOT\SUB\n\+    \\r\n\+    \\ENQ\EOTA\STX\NUL\EOT\DC2\EOT\245\ENQ\EOT\f\n\+    \\r\n\+    \\ENQ\EOTA\STX\NUL\ENQ\DC2\EOT\245\ENQ\r\DC2\n\+    \\r\n\+    \\ENQ\EOTA\STX\NUL\SOH\DC2\EOT\245\ENQ\DC3\NAK\n\+    \\r\n\+    \\ENQ\EOTA\STX\NUL\ETX\DC2\EOT\245\ENQ\CAN\EM\n\+    \\f\n\+    \\EOT\EOTA\STX\SOH\DC2\EOT\246\ENQ\EOT\GS\n\+    \\r\n\+    \\ENQ\EOTA\STX\SOH\EOT\DC2\EOT\246\ENQ\EOT\f\n\+    \\r\n\+    \\ENQ\EOTA\STX\SOH\ENQ\DC2\EOT\246\ENQ\r\DC3\n\+    \\r\n\+    \\ENQ\EOTA\STX\SOH\SOH\DC2\EOT\246\ENQ\DC4\CAN\n\+    \\r\n\+    \\ENQ\EOTA\STX\SOH\ETX\DC2\EOT\246\ENQ\ESC\FS\n\+    \G\n\+    \\EOT\EOTA\STX\STX\DC2\EOT\247\ENQ\EOT%\"9 Some human readable description of the keyspace covered\n\+    \\n\+    \\r\n\+    \\ENQ\EOTA\STX\STX\EOT\DC2\EOT\247\ENQ\EOT\f\n\+    \\r\n\+    \\ENQ\EOTA\STX\STX\ENQ\DC2\EOT\247\ENQ\r\DC2\n\+    \\r\n\+    \\ENQ\EOTA\STX\STX\SOH\DC2\EOT\247\ENQ\DC3 \n\+    \\r\n\+    \\ENQ\EOTA\STX\STX\ETX\DC2\EOT\247\ENQ#$\n\+    \5\n\+    \\EOT\EOTA\STX\ETX\DC2\EOT\248\ENQ\EOT%\"' Opaque context to pass into 2I query.\n\+    \\n\+    \\r\n\+    \\ENQ\EOTA\STX\ETX\EOT\DC2\EOT\248\ENQ\EOT\f\n\+    \\r\n\+    \\ENQ\EOTA\STX\ETX\ENQ\DC2\EOT\248\ENQ\r\DC2\n\+    \\r\n\+    \\ENQ\EOTA\STX\ETX\SOH\DC2\EOT\248\ENQ\DC3 \n\+    \\r\n\+    \\ENQ\EOTA\STX\ETX\ETX\DC2\EOT\248\ENQ#$\n\+    \\160\SOH\n\+    \\STX\EOTB\DC2\ACK\143\ACK\NUL\145\ACK\SOH2\SYN import \"riak.proto\";\n\+    \2z java package specifiers\n\+    \ option java_package = \"com.basho.riak.protobuf\";\n\+    \ option java_outer_classname = \"RiakSearchPB\";\n\+    \\n\+    \\v\n\+    \\ETX\EOTB\SOH\DC2\EOT\143\ACK\b\DC4\n\+    \\f\n\+    \\EOT\EOTB\STX\NUL\DC2\EOT\144\ACK\STX\RS\n\+    \\r\n\+    \\ENQ\EOTB\STX\NUL\EOT\DC2\EOT\144\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTB\STX\NUL\ACK\DC2\EOT\144\ACK\v\DC2\n\+    \\r\n\+    \\ENQ\EOTB\STX\NUL\SOH\DC2\EOT\144\ACK\DC3\EM\n\+    \\r\n\+    \\ENQ\EOTB\STX\NUL\ETX\DC2\EOT\144\ACK\FS\GS\n\+    \\f\n\+    \\STX\EOTC\DC2\ACK\147\ACK\NUL\158\ACK\SOH\n\+    \\v\n\+    \\ETX\EOTC\SOH\DC2\EOT\147\ACK\b\EM\n\+    \\FS\n\+    \\EOT\EOTC\STX\NUL\DC2\EOT\148\ACK\STX\RS\"\SO Query string\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\NUL\EOT\DC2\EOT\148\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\NUL\ENQ\DC2\EOT\148\ACK\v\DLE\n\+    \\r\n\+    \\ENQ\EOTC\STX\NUL\SOH\DC2\EOT\148\ACK\DC2\DC3\n\+    \\r\n\+    \\ENQ\EOTC\STX\NUL\ETX\DC2\EOT\148\ACK\FS\GS\n\+    \\NAK\n\+    \\EOT\EOTC\STX\SOH\DC2\EOT\149\ACK\STX\RS\"\a Index\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\SOH\EOT\DC2\EOT\149\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\SOH\ENQ\DC2\EOT\149\ACK\v\DLE\n\+    \\r\n\+    \\ENQ\EOTC\STX\SOH\SOH\DC2\EOT\149\ACK\DC2\ETB\n\+    \\r\n\+    \\ENQ\EOTC\STX\SOH\ETX\DC2\EOT\149\ACK\FS\GS\n\+    \\SUB\n\+    \\EOT\EOTC\STX\STX\DC2\EOT\150\ACK\STX\RS\"\f Limit rows\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\STX\EOT\DC2\EOT\150\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\STX\ENQ\DC2\EOT\150\ACK\v\DC1\n\+    \\r\n\+    \\ENQ\EOTC\STX\STX\SOH\DC2\EOT\150\ACK\DC2\SYN\n\+    \\r\n\+    \\ENQ\EOTC\STX\STX\ETX\DC2\EOT\150\ACK\FS\GS\n\+    \\US\n\+    \\EOT\EOTC\STX\ETX\DC2\EOT\151\ACK\STX\RS\"\DC1 Starting offset\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\ETX\EOT\DC2\EOT\151\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\ETX\ENQ\DC2\EOT\151\ACK\v\DC1\n\+    \\r\n\+    \\ENQ\EOTC\STX\ETX\SOH\DC2\EOT\151\ACK\DC2\ETB\n\+    \\r\n\+    \\ENQ\EOTC\STX\ETX\ETX\DC2\EOT\151\ACK\FS\GS\n\+    \\SUB\n\+    \\EOT\EOTC\STX\EOT\DC2\EOT\152\ACK\STX\RS\"\f Sort order\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\EOT\EOT\DC2\EOT\152\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\EOT\ENQ\DC2\EOT\152\ACK\v\DLE\n\+    \\r\n\+    \\ENQ\EOTC\STX\EOT\SOH\DC2\EOT\152\ACK\DC2\SYN\n\+    \\r\n\+    \\ENQ\EOTC\STX\EOT\ETX\DC2\EOT\152\ACK\FS\GS\n\+    \-\n\+    \\EOT\EOTC\STX\ENQ\DC2\EOT\153\ACK\STX\RS\"\US Inline fields filtering query\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\ENQ\EOT\DC2\EOT\153\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\ENQ\ENQ\DC2\EOT\153\ACK\v\DLE\n\+    \\r\n\+    \\ENQ\EOTC\STX\ENQ\SOH\DC2\EOT\153\ACK\DC2\CAN\n\+    \\r\n\+    \\ENQ\EOTC\STX\ENQ\ETX\DC2\EOT\153\ACK\FS\GS\n\+    \\GS\n\+    \\EOT\EOTC\STX\ACK\DC2\EOT\154\ACK\STX\RS\"\SI Default field\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\ACK\EOT\DC2\EOT\154\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\ACK\ENQ\DC2\EOT\154\ACK\v\DLE\n\+    \\r\n\+    \\ENQ\EOTC\STX\ACK\SOH\DC2\EOT\154\ACK\DC2\DC4\n\+    \\r\n\+    \\ENQ\EOTC\STX\ACK\ETX\DC2\EOT\154\ACK\FS\GS\n\+    \\SUB\n\+    \\EOT\EOTC\STX\a\DC2\EOT\155\ACK\STX\RS\"\f Default op\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\a\EOT\DC2\EOT\155\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\a\ENQ\DC2\EOT\155\ACK\v\DLE\n\+    \\r\n\+    \\ENQ\EOTC\STX\a\SOH\DC2\EOT\155\ACK\DC2\DC4\n\+    \\r\n\+    \\ENQ\EOTC\STX\a\ETX\DC2\EOT\155\ACK\FS\GS\n\+    \=\n\+    \\EOT\EOTC\STX\b\DC2\EOT\156\ACK\STX\RS\"/ Return fields limit (for ids only, generally)\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\b\EOT\DC2\EOT\156\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\b\ENQ\DC2\EOT\156\ACK\v\DLE\n\+    \\r\n\+    \\ENQ\EOTC\STX\b\SOH\DC2\EOT\156\ACK\DC2\DC4\n\+    \\r\n\+    \\ENQ\EOTC\STX\b\ETX\DC2\EOT\156\ACK\FS\GS\n\+    \%\n\+    \\EOT\EOTC\STX\t\DC2\EOT\157\ACK\STX\US\"\ETB Presort (key / score)\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\t\EOT\DC2\EOT\157\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTC\STX\t\ENQ\DC2\EOT\157\ACK\v\DLE\n\+    \\r\n\+    \\ENQ\EOTC\STX\t\SOH\DC2\EOT\157\ACK\DC2\EM\n\+    \\r\n\+    \\ENQ\EOTC\STX\t\ETX\DC2\EOT\157\ACK\FS\RS\n\+    \\f\n\+    \\STX\EOTD\DC2\ACK\160\ACK\NUL\164\ACK\SOH\n\+    \\v\n\+    \\ETX\EOTD\SOH\DC2\EOT\160\ACK\b\SUB\n\+    \ \n\+    \\EOT\EOTD\STX\NUL\DC2\EOT\161\ACK\STX&\"\DC2 Result documents\n\+    \\n\+    \\r\n\+    \\ENQ\EOTD\STX\NUL\EOT\DC2\EOT\161\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTD\STX\NUL\ACK\DC2\EOT\161\ACK\v\ETB\n\+    \\r\n\+    \\ENQ\EOTD\STX\NUL\SOH\DC2\EOT\161\ACK\CAN\FS\n\+    \\r\n\+    \\ENQ\EOTD\STX\NUL\ETX\DC2\EOT\161\ACK$%\n\+    \\GS\n\+    \\EOT\EOTD\STX\SOH\DC2\EOT\162\ACK\STX&\"\SI Maximum score\n\+    \\n\+    \\r\n\+    \\ENQ\EOTD\STX\SOH\EOT\DC2\EOT\162\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTD\STX\SOH\ENQ\DC2\EOT\162\ACK\v\DLE\n\+    \\r\n\+    \\ENQ\EOTD\STX\SOH\SOH\DC2\EOT\162\ACK\CAN!\n\+    \\r\n\+    \\ENQ\EOTD\STX\SOH\ETX\DC2\EOT\162\ACK$%\n\+    \!\n\+    \\EOT\EOTD\STX\STX\DC2\EOT\163\ACK\STX&\"\DC3 Number of results\n\+    \\n\+    \\r\n\+    \\ENQ\EOTD\STX\STX\EOT\DC2\EOT\163\ACK\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOTD\STX\STX\ENQ\DC2\EOT\163\ACK\v\DC1\n\+    \\r\n\+    \\ENQ\EOTD\STX\STX\SOH\DC2\EOT\163\ACK\CAN!\n\+    \\r\n\+    \\ENQ\EOTD\STX\STX\ETX\DC2\EOT\163\ACK$%\n\+    \\199\SOH\n\+    \\STX\EOTE\DC2\ACK\188\ACK\NUL\193\ACK\SOH\SUB\SUB Dispatch a query to Riak\n\+    \2v Java package specifiers\n\+    \ option java_package = \"com.basho.riak.protobuf\";\n\+    \ option java_outer_classname = \"RiakTsPB\";\n\+    \2% import \"riak.proto\"; // for RpbPair\n\+    \\n\+    \\v\n\+    \\ETX\EOTE\SOH\DC2\EOT\188\ACK\b\DC2\n\+    \L\n\+    \\EOT\EOTE\STX\NUL\DC2\EOT\190\ACK\STX%\SUB> 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'("
+ src-proto/Proto/Riak_Fields.hs view
@@ -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"
+ src/Data/Riak/Proto.hs view
@@ -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)
− src/Network/Riak/Protocol.hs
@@ -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")
− src/Network/Riak/Protocol/AuthRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/BucketKeyPreflistItem.hs
@@ -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}))
− src/Network/Riak/Protocol/BucketProps.hs
@@ -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}))
− src/Network/Riak/Protocol/BucketProps/ReplMode.hs
@@ -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
− src/Network/Riak/Protocol/CSBucketRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/CSBucketResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/CommitHook.hs
@@ -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}))
− src/Network/Riak/Protocol/Content.hs
@@ -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}))
− src/Network/Riak/Protocol/CounterGetRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/CounterGetResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/CounterOp.hs
@@ -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}))
− src/Network/Riak/Protocol/CounterUpdateRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/CounterUpdateResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/DeleteRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/DtFetchRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/DtFetchResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/DtFetchResponse/DataType.hs
@@ -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
− src/Network/Riak/Protocol/DtOp.hs
@@ -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}))
− src/Network/Riak/Protocol/DtUpdateRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/DtUpdateResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/DtValue.hs
@@ -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}))
− src/Network/Riak/Protocol/ErrorResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/GetBucketKeyPreflistRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/GetBucketKeyPreflistResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/GetBucketRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/GetBucketResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/GetBucketTypeRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/GetClientIDRequest.hs
@@ -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
− src/Network/Riak/Protocol/GetClientIDResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/GetRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/GetResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/GetServerInfoRequest.hs
@@ -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
− src/Network/Riak/Protocol/IndexObject.hs
@@ -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}))
− src/Network/Riak/Protocol/IndexRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/IndexRequest/IndexQueryType.hs
@@ -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
− src/Network/Riak/Protocol/IndexResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/Link.hs
@@ -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}))
− src/Network/Riak/Protocol/ListBucketsRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/ListBucketsResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/ListKeysRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/ListKeysResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/MapEntry.hs
@@ -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}))
− src/Network/Riak/Protocol/MapField.hs
@@ -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}))
− src/Network/Riak/Protocol/MapField/MapFieldType.hs
@@ -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
− src/Network/Riak/Protocol/MapOp.hs
@@ -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}))
− src/Network/Riak/Protocol/MapOp.hs-boot
@@ -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
− src/Network/Riak/Protocol/MapReduce.hs
@@ -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}))
− src/Network/Riak/Protocol/MapReduceRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/MapUpdate.hs
@@ -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}))
− src/Network/Riak/Protocol/MapUpdate/FlagOp.hs
@@ -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
− src/Network/Riak/Protocol/ModFun.hs
@@ -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}))
− src/Network/Riak/Protocol/Pair.hs
@@ -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}))
− src/Network/Riak/Protocol/PingRequest.hs
@@ -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
− src/Network/Riak/Protocol/PutRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/PutResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/ResetBucketRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/SearchDoc.hs
@@ -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}))
− src/Network/Riak/Protocol/SearchQueryRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/SearchQueryResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/ServerInfo.hs
@@ -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}))
− src/Network/Riak/Protocol/SetBucketRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/SetBucketTypeRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/SetClientIDRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/SetOp.hs
@@ -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}))
− src/Network/Riak/Protocol/TsCell.hs
@@ -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}))
− src/Network/Riak/Protocol/TsColumnDescription.hs
@@ -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}))
− src/Network/Riak/Protocol/TsColumnType.hs
@@ -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
− src/Network/Riak/Protocol/TsCoverageEntry.hs
@@ -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}))
− src/Network/Riak/Protocol/TsCoverageRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/TsCoverageResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/TsDeleteRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/TsDeleteResponse.hs
@@ -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
− src/Network/Riak/Protocol/TsGetRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/TsGetResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/TsInterpolation.hs
@@ -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}))
− src/Network/Riak/Protocol/TsListKeysRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/TsListKeysResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/TsPutRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/TsPutResponse.hs
@@ -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
− src/Network/Riak/Protocol/TsQueryRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/TsQueryResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/TsRange.hs
@@ -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}))
− src/Network/Riak/Protocol/TsRow.hs
@@ -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}))
− src/Network/Riak/Protocol/YzIndex.hs
@@ -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}))
− src/Network/Riak/Protocol/YzIndexDeleteRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/YzIndexGetRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/YzIndexGetResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/YzIndexPutRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/YzSchema.hs
@@ -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}))
− src/Network/Riak/Protocol/YzSchemaGetRequest.hs
@@ -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}))
− src/Network/Riak/Protocol/YzSchemaGetResponse.hs
@@ -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}))
− src/Network/Riak/Protocol/YzSchemaPutRequest.hs
@@ -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}))
− src/riak.proto
@@ -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;-}
− src/riak_dt.proto
@@ -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;-}
− src/riak_kv.proto
@@ -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;-}
− src/riak_search.proto
@@ -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-}
− src/riakextra.proto
@@ -1,3 +0,0 @@-message RpbPingReq { }-message RpbGetClientIdReq { }-message RpbGetServerInfoReq { }