{- This file was auto-generated from etcd/api/mvccpb/kv.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.Etcd.Api.Mvccpb.Kv (
        Event(), Event'EventType(..), Event'EventType(),
        Event'EventType'UnrecognizedValue, KeyValue()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Gogoproto.Gogo
{- | Fields :
     
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.type'' @:: Lens' Event Event'EventType@
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.kv' @:: Lens' Event KeyValue@
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.maybe'kv' @:: Lens' Event (Prelude.Maybe KeyValue)@
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.prevKv' @:: Lens' Event KeyValue@
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.maybe'prevKv' @:: Lens' Event (Prelude.Maybe KeyValue)@ -}
data Event
  = Event'_constructor {Event -> Event'EventType
_Event'type' :: !Event'EventType,
                        Event -> Maybe KeyValue
_Event'kv :: !(Prelude.Maybe KeyValue),
                        Event -> Maybe KeyValue
_Event'prevKv :: !(Prelude.Maybe KeyValue),
                        Event -> FieldSet
_Event'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Event -> Event -> Bool
(Event -> Event -> Bool) -> (Event -> Event -> Bool) -> Eq Event
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Event -> Event -> Bool
== :: Event -> Event -> Bool
$c/= :: Event -> Event -> Bool
/= :: Event -> Event -> Bool
Prelude.Eq, Eq Event
Eq Event =>
(Event -> Event -> Ordering)
-> (Event -> Event -> Bool)
-> (Event -> Event -> Bool)
-> (Event -> Event -> Bool)
-> (Event -> Event -> Bool)
-> (Event -> Event -> Event)
-> (Event -> Event -> Event)
-> Ord Event
Event -> Event -> Bool
Event -> Event -> Ordering
Event -> Event -> Event
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Event -> Event -> Ordering
compare :: Event -> Event -> Ordering
$c< :: Event -> Event -> Bool
< :: Event -> Event -> Bool
$c<= :: Event -> Event -> Bool
<= :: Event -> Event -> Bool
$c> :: Event -> Event -> Bool
> :: Event -> Event -> Bool
$c>= :: Event -> Event -> Bool
>= :: Event -> Event -> Bool
$cmax :: Event -> Event -> Event
max :: Event -> Event -> Event
$cmin :: Event -> Event -> Event
min :: Event -> Event -> Event
Prelude.Ord)
instance Prelude.Show Event where
  showsPrec :: Int -> Event -> ShowS
showsPrec Int
_ Event
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Event -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Event
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Event "type'" Event'EventType where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "type'"
-> (Event'EventType -> f Event'EventType) -> Event -> f Event
fieldOf Proxy# "type'"
_
    = ((Event'EventType -> f Event'EventType) -> Event -> f Event)
-> ((Event'EventType -> f Event'EventType)
    -> Event'EventType -> f Event'EventType)
-> (Event'EventType -> f Event'EventType)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Event -> Event'EventType)
-> (Event -> Event'EventType -> Event)
-> Lens Event Event Event'EventType Event'EventType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Event -> Event'EventType
_Event'type' (\ Event
x__ Event'EventType
y__ -> Event
x__ {_Event'type' = y__}))
        (Event'EventType -> f Event'EventType)
-> Event'EventType -> f Event'EventType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Event "kv" KeyValue where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "kv" -> (KeyValue -> f KeyValue) -> Event -> f Event
fieldOf Proxy# "kv"
_
    = ((Maybe KeyValue -> f (Maybe KeyValue)) -> Event -> f Event)
-> ((KeyValue -> f KeyValue)
    -> Maybe KeyValue -> f (Maybe KeyValue))
-> (KeyValue -> f KeyValue)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Event -> Maybe KeyValue)
-> (Event -> Maybe KeyValue -> Event)
-> Lens Event Event (Maybe KeyValue) (Maybe KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Event -> Maybe KeyValue
_Event'kv (\ Event
x__ Maybe KeyValue
y__ -> Event
x__ {_Event'kv = y__}))
        (KeyValue -> Lens' (Maybe KeyValue) KeyValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens KeyValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Event "maybe'kv" (Prelude.Maybe KeyValue) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'kv"
-> (Maybe KeyValue -> f (Maybe KeyValue)) -> Event -> f Event
fieldOf Proxy# "maybe'kv"
_
    = ((Maybe KeyValue -> f (Maybe KeyValue)) -> Event -> f Event)
-> ((Maybe KeyValue -> f (Maybe KeyValue))
    -> Maybe KeyValue -> f (Maybe KeyValue))
-> (Maybe KeyValue -> f (Maybe KeyValue))
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Event -> Maybe KeyValue)
-> (Event -> Maybe KeyValue -> Event)
-> Lens Event Event (Maybe KeyValue) (Maybe KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Event -> Maybe KeyValue
_Event'kv (\ Event
x__ Maybe KeyValue
y__ -> Event
x__ {_Event'kv = y__}))
        (Maybe KeyValue -> f (Maybe KeyValue))
-> Maybe KeyValue -> f (Maybe KeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Event "prevKv" KeyValue where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "prevKv" -> (KeyValue -> f KeyValue) -> Event -> f Event
fieldOf Proxy# "prevKv"
_
    = ((Maybe KeyValue -> f (Maybe KeyValue)) -> Event -> f Event)
-> ((KeyValue -> f KeyValue)
    -> Maybe KeyValue -> f (Maybe KeyValue))
-> (KeyValue -> f KeyValue)
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Event -> Maybe KeyValue)
-> (Event -> Maybe KeyValue -> Event)
-> Lens Event Event (Maybe KeyValue) (Maybe KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Event -> Maybe KeyValue
_Event'prevKv (\ Event
x__ Maybe KeyValue
y__ -> Event
x__ {_Event'prevKv = y__}))
        (KeyValue -> Lens' (Maybe KeyValue) KeyValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens KeyValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Event "maybe'prevKv" (Prelude.Maybe KeyValue) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'prevKv"
-> (Maybe KeyValue -> f (Maybe KeyValue)) -> Event -> f Event
fieldOf Proxy# "maybe'prevKv"
_
    = ((Maybe KeyValue -> f (Maybe KeyValue)) -> Event -> f Event)
-> ((Maybe KeyValue -> f (Maybe KeyValue))
    -> Maybe KeyValue -> f (Maybe KeyValue))
-> (Maybe KeyValue -> f (Maybe KeyValue))
-> Event
-> f Event
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Event -> Maybe KeyValue)
-> (Event -> Maybe KeyValue -> Event)
-> Lens Event Event (Maybe KeyValue) (Maybe KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Event -> Maybe KeyValue
_Event'prevKv (\ Event
x__ Maybe KeyValue
y__ -> Event
x__ {_Event'prevKv = y__}))
        (Maybe KeyValue -> f (Maybe KeyValue))
-> Maybe KeyValue -> f (Maybe KeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Event where
  messageName :: Proxy Event -> Text
messageName Proxy Event
_ = String -> Text
Data.Text.pack String
"mvccpb.Event"
  packedMessageDescriptor :: Proxy Event -> ByteString
packedMessageDescriptor Proxy Event
_
    = ByteString
"\n\
      \\ENQEvent\DC2+\n\
      \\EOTtype\CAN\SOH \SOH(\SO2\ETB.mvccpb.Event.EventTypeR\EOTtype\DC2 \n\
      \\STXkv\CAN\STX \SOH(\v2\DLE.mvccpb.KeyValueR\STXkv\DC2)\n\
      \\aprev_kv\CAN\ETX \SOH(\v2\DLE.mvccpb.KeyValueR\ACKprevKv\" \n\
      \\tEventType\DC2\a\n\
      \\ETXPUT\DLE\NUL\DC2\n\
      \\n\
      \\ACKDELETE\DLE\SOH"
  packedFileDescriptor :: Proxy Event -> ByteString
packedFileDescriptor Proxy Event
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Event)
fieldsByTag
    = let
        type'__field_descriptor :: FieldDescriptor Event
type'__field_descriptor
          = String
-> FieldTypeDescriptor Event'EventType
-> FieldAccessor Event Event'EventType
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"type"
              (ScalarField Event'EventType -> FieldTypeDescriptor Event'EventType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Event'EventType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Event'EventType)
              (WireDefault Event'EventType
-> Lens Event Event Event'EventType Event'EventType
-> FieldAccessor Event Event'EventType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Event'EventType
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'")) ::
              Data.ProtoLens.FieldDescriptor Event
        kv__field_descriptor :: FieldDescriptor Event
kv__field_descriptor
          = String
-> FieldTypeDescriptor KeyValue
-> FieldAccessor Event KeyValue
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"kv"
              (MessageOrGroup -> FieldTypeDescriptor KeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor KeyValue)
              (Lens Event Event (Maybe KeyValue) (Maybe KeyValue)
-> FieldAccessor Event KeyValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'kv")) ::
              Data.ProtoLens.FieldDescriptor Event
        prevKv__field_descriptor :: FieldDescriptor Event
prevKv__field_descriptor
          = String
-> FieldTypeDescriptor KeyValue
-> FieldAccessor Event KeyValue
-> FieldDescriptor Event
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"prev_kv"
              (MessageOrGroup -> FieldTypeDescriptor KeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor KeyValue)
              (Lens Event Event (Maybe KeyValue) (Maybe KeyValue)
-> FieldAccessor Event KeyValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'prevKv")) ::
              Data.ProtoLens.FieldDescriptor Event
      in
        [(Tag, FieldDescriptor Event)] -> Map Tag (FieldDescriptor Event)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Event
type'__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Event
kv__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Event
prevKv__field_descriptor)]
  unknownFields :: Lens' Event FieldSet
unknownFields
    = (Event -> FieldSet)
-> (Event -> FieldSet -> Event) -> Lens' Event FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Event -> FieldSet
_Event'_unknownFields
        (\ Event
x__ FieldSet
y__ -> Event
x__ {_Event'_unknownFields = y__})
  defMessage :: Event
defMessage
    = Event'_constructor
        {_Event'type' :: Event'EventType
_Event'type' = Event'EventType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Event'kv :: Maybe KeyValue
_Event'kv = Maybe KeyValue
forall a. Maybe a
Prelude.Nothing, _Event'prevKv :: Maybe KeyValue
_Event'prevKv = Maybe KeyValue
forall a. Maybe a
Prelude.Nothing,
         _Event'_unknownFields :: FieldSet
_Event'_unknownFields = []}
  parseMessage :: Parser Event
parseMessage
    = let
        loop :: Event -> Data.ProtoLens.Encoding.Bytes.Parser Event
        loop :: Event -> Parser Event
loop Event
x
          = do end <- Parser Bool
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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Event'EventType -> String -> Parser Event'EventType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> Event'EventType) -> Parser Int -> Parser Event'EventType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> Event'EventType
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"type"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x)
                        Word64
18
                          -> do y <- Parser KeyValue -> String -> Parser KeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"kv"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"kv") y x)
                        Word64
26
                          -> do y <- Parser KeyValue -> String -> Parser KeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"prev_kv"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"prevKv") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Event -> String -> Parser Event
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Event -> Parser Event
loop Event
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Event"
  buildMessage :: Event -> Builder
buildMessage
    = \ Event
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Event'EventType
_v = FoldLike
  Event'EventType Event Event Event'EventType Event'EventType
-> Event -> Event'EventType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'") Event
_x
              in
                if Event'EventType -> Event'EventType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Event'EventType
_v Event'EventType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Int -> Builder)
-> (Event'EventType -> Int) -> Event'EventType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                         Event'EventType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Event'EventType
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe KeyValue) Event Event (Maybe KeyValue) (Maybe KeyValue)
-> Event -> Maybe KeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'kv") Event
_x
                 of
                   Maybe KeyValue
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just KeyValue
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (KeyValue -> ByteString) -> KeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             KeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage KeyValue
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe KeyValue) Event Event (Maybe KeyValue) (Maybe KeyValue)
-> Event -> Maybe KeyValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'prevKv") Event
_x
                    of
                      Maybe KeyValue
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just KeyValue
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (KeyValue -> ByteString) -> KeyValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                KeyValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage KeyValue
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Event Event FieldSet FieldSet
-> Event -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Event Event FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Event FieldSet
Data.ProtoLens.unknownFields Event
_x))))
instance Control.DeepSeq.NFData Event where
  rnf :: Event -> ()
rnf
    = \ Event
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Event -> FieldSet
_Event'_unknownFields Event
x__)
             (Event'EventType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Event -> Event'EventType
_Event'type' Event
x__)
                (Maybe KeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Event -> Maybe KeyValue
_Event'kv Event
x__) (Maybe KeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Event -> Maybe KeyValue
_Event'prevKv Event
x__) ())))
newtype Event'EventType'UnrecognizedValue
  = Event'EventType'UnrecognizedValue Data.Int.Int32
  deriving stock (Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
(Event'EventType'UnrecognizedValue
 -> Event'EventType'UnrecognizedValue -> Bool)
-> (Event'EventType'UnrecognizedValue
    -> Event'EventType'UnrecognizedValue -> Bool)
-> Eq Event'EventType'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
== :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
$c/= :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
/= :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
Prelude.Eq, Eq Event'EventType'UnrecognizedValue
Eq Event'EventType'UnrecognizedValue =>
(Event'EventType'UnrecognizedValue
 -> Event'EventType'UnrecognizedValue -> Ordering)
-> (Event'EventType'UnrecognizedValue
    -> Event'EventType'UnrecognizedValue -> Bool)
-> (Event'EventType'UnrecognizedValue
    -> Event'EventType'UnrecognizedValue -> Bool)
-> (Event'EventType'UnrecognizedValue
    -> Event'EventType'UnrecognizedValue -> Bool)
-> (Event'EventType'UnrecognizedValue
    -> Event'EventType'UnrecognizedValue -> Bool)
-> (Event'EventType'UnrecognizedValue
    -> Event'EventType'UnrecognizedValue
    -> Event'EventType'UnrecognizedValue)
-> (Event'EventType'UnrecognizedValue
    -> Event'EventType'UnrecognizedValue
    -> Event'EventType'UnrecognizedValue)
-> Ord Event'EventType'UnrecognizedValue
Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Ordering
Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Ordering
compare :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Ordering
$c< :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
< :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
$c<= :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
<= :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
$c> :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
> :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
$c>= :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
>= :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue -> Bool
$cmax :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue
max :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue
$cmin :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue
min :: Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue
-> Event'EventType'UnrecognizedValue
Prelude.Ord, Int -> Event'EventType'UnrecognizedValue -> ShowS
[Event'EventType'UnrecognizedValue] -> ShowS
Event'EventType'UnrecognizedValue -> String
(Int -> Event'EventType'UnrecognizedValue -> ShowS)
-> (Event'EventType'UnrecognizedValue -> String)
-> ([Event'EventType'UnrecognizedValue] -> ShowS)
-> Show Event'EventType'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Event'EventType'UnrecognizedValue -> ShowS
showsPrec :: Int -> Event'EventType'UnrecognizedValue -> ShowS
$cshow :: Event'EventType'UnrecognizedValue -> String
show :: Event'EventType'UnrecognizedValue -> String
$cshowList :: [Event'EventType'UnrecognizedValue] -> ShowS
showList :: [Event'EventType'UnrecognizedValue] -> ShowS
Prelude.Show)
data Event'EventType
  = Event'PUT |
    Event'DELETE |
    Event'EventType'Unrecognized !Event'EventType'UnrecognizedValue
  deriving stock (Int -> Event'EventType -> ShowS
[Event'EventType] -> ShowS
Event'EventType -> String
(Int -> Event'EventType -> ShowS)
-> (Event'EventType -> String)
-> ([Event'EventType] -> ShowS)
-> Show Event'EventType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Event'EventType -> ShowS
showsPrec :: Int -> Event'EventType -> ShowS
$cshow :: Event'EventType -> String
show :: Event'EventType -> String
$cshowList :: [Event'EventType] -> ShowS
showList :: [Event'EventType] -> ShowS
Prelude.Show, Event'EventType -> Event'EventType -> Bool
(Event'EventType -> Event'EventType -> Bool)
-> (Event'EventType -> Event'EventType -> Bool)
-> Eq Event'EventType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Event'EventType -> Event'EventType -> Bool
== :: Event'EventType -> Event'EventType -> Bool
$c/= :: Event'EventType -> Event'EventType -> Bool
/= :: Event'EventType -> Event'EventType -> Bool
Prelude.Eq, Eq Event'EventType
Eq Event'EventType =>
(Event'EventType -> Event'EventType -> Ordering)
-> (Event'EventType -> Event'EventType -> Bool)
-> (Event'EventType -> Event'EventType -> Bool)
-> (Event'EventType -> Event'EventType -> Bool)
-> (Event'EventType -> Event'EventType -> Bool)
-> (Event'EventType -> Event'EventType -> Event'EventType)
-> (Event'EventType -> Event'EventType -> Event'EventType)
-> Ord Event'EventType
Event'EventType -> Event'EventType -> Bool
Event'EventType -> Event'EventType -> Ordering
Event'EventType -> Event'EventType -> Event'EventType
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Event'EventType -> Event'EventType -> Ordering
compare :: Event'EventType -> Event'EventType -> Ordering
$c< :: Event'EventType -> Event'EventType -> Bool
< :: Event'EventType -> Event'EventType -> Bool
$c<= :: Event'EventType -> Event'EventType -> Bool
<= :: Event'EventType -> Event'EventType -> Bool
$c> :: Event'EventType -> Event'EventType -> Bool
> :: Event'EventType -> Event'EventType -> Bool
$c>= :: Event'EventType -> Event'EventType -> Bool
>= :: Event'EventType -> Event'EventType -> Bool
$cmax :: Event'EventType -> Event'EventType -> Event'EventType
max :: Event'EventType -> Event'EventType -> Event'EventType
$cmin :: Event'EventType -> Event'EventType -> Event'EventType
min :: Event'EventType -> Event'EventType -> Event'EventType
Prelude.Ord)
instance Data.ProtoLens.MessageEnum Event'EventType where
  maybeToEnum :: Int -> Maybe Event'EventType
maybeToEnum Int
0 = Event'EventType -> Maybe Event'EventType
forall a. a -> Maybe a
Prelude.Just Event'EventType
Event'PUT
  maybeToEnum Int
1 = Event'EventType -> Maybe Event'EventType
forall a. a -> Maybe a
Prelude.Just Event'EventType
Event'DELETE
  maybeToEnum Int
k
    = Event'EventType -> Maybe Event'EventType
forall a. a -> Maybe a
Prelude.Just
        (Event'EventType'UnrecognizedValue -> Event'EventType
Event'EventType'Unrecognized
           (Int32 -> Event'EventType'UnrecognizedValue
Event'EventType'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: Event'EventType -> String
showEnum Event'EventType
Event'PUT = String
"PUT"
  showEnum Event'EventType
Event'DELETE = String
"DELETE"
  showEnum
    (Event'EventType'Unrecognized (Event'EventType'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe Event'EventType
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"PUT" = Event'EventType -> Maybe Event'EventType
forall a. a -> Maybe a
Prelude.Just Event'EventType
Event'PUT
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"DELETE" = Event'EventType -> Maybe Event'EventType
forall a. a -> Maybe a
Prelude.Just Event'EventType
Event'DELETE
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe Event'EventType) -> Maybe Event'EventType
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe Event'EventType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Event'EventType where
  minBound :: Event'EventType
minBound = Event'EventType
Event'PUT
  maxBound :: Event'EventType
maxBound = Event'EventType
Event'DELETE
instance Prelude.Enum Event'EventType where
  toEnum :: Int -> Event'EventType
toEnum Int
k__
    = Event'EventType
-> (Event'EventType -> Event'EventType)
-> Maybe Event'EventType
-> Event'EventType
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> Event'EventType
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum EventType: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        Event'EventType -> Event'EventType
forall a. a -> a
Prelude.id (Int -> Maybe Event'EventType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: Event'EventType -> Int
fromEnum Event'EventType
Event'PUT = Int
0
  fromEnum Event'EventType
Event'DELETE = Int
1
  fromEnum
    (Event'EventType'Unrecognized (Event'EventType'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: Event'EventType -> Event'EventType
succ Event'EventType
Event'DELETE
    = String -> Event'EventType
forall a. HasCallStack => String -> a
Prelude.error
        String
"Event'EventType.succ: bad argument Event'DELETE. This value would be out of bounds."
  succ Event'EventType
Event'PUT = Event'EventType
Event'DELETE
  succ (Event'EventType'Unrecognized Event'EventType'UnrecognizedValue
_)
    = String -> Event'EventType
forall a. HasCallStack => String -> a
Prelude.error
        String
"Event'EventType.succ: bad argument: unrecognized value"
  pred :: Event'EventType -> Event'EventType
pred Event'EventType
Event'PUT
    = String -> Event'EventType
forall a. HasCallStack => String -> a
Prelude.error
        String
"Event'EventType.pred: bad argument Event'PUT. This value would be out of bounds."
  pred Event'EventType
Event'DELETE = Event'EventType
Event'PUT
  pred (Event'EventType'Unrecognized Event'EventType'UnrecognizedValue
_)
    = String -> Event'EventType
forall a. HasCallStack => String -> a
Prelude.error
        String
"Event'EventType.pred: bad argument: unrecognized value"
  enumFrom :: Event'EventType -> [Event'EventType]
enumFrom = Event'EventType -> [Event'EventType]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: Event'EventType -> Event'EventType -> [Event'EventType]
enumFromTo = Event'EventType -> Event'EventType -> [Event'EventType]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: Event'EventType -> Event'EventType -> [Event'EventType]
enumFromThen = Event'EventType -> Event'EventType -> [Event'EventType]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: Event'EventType
-> Event'EventType -> Event'EventType -> [Event'EventType]
enumFromThenTo = Event'EventType
-> Event'EventType -> Event'EventType -> [Event'EventType]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault Event'EventType where
  fieldDefault :: Event'EventType
fieldDefault = Event'EventType
Event'PUT
instance Control.DeepSeq.NFData Event'EventType where
  rnf :: Event'EventType -> ()
rnf Event'EventType
x__ = Event'EventType -> () -> ()
forall a b. a -> b -> b
Prelude.seq Event'EventType
x__ ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.key' @:: Lens' KeyValue Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.createRevision' @:: Lens' KeyValue Data.Int.Int64@
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.modRevision' @:: Lens' KeyValue Data.Int.Int64@
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.version' @:: Lens' KeyValue Data.Int.Int64@
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.value' @:: Lens' KeyValue Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Mvccpb.Kv_Fields.lease' @:: Lens' KeyValue Data.Int.Int64@ -}
data KeyValue
  = KeyValue'_constructor {KeyValue -> ByteString
_KeyValue'key :: !Data.ByteString.ByteString,
                           KeyValue -> Int64
_KeyValue'createRevision :: !Data.Int.Int64,
                           KeyValue -> Int64
_KeyValue'modRevision :: !Data.Int.Int64,
                           KeyValue -> Int64
_KeyValue'version :: !Data.Int.Int64,
                           KeyValue -> ByteString
_KeyValue'value :: !Data.ByteString.ByteString,
                           KeyValue -> Int64
_KeyValue'lease :: !Data.Int.Int64,
                           KeyValue -> FieldSet
_KeyValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (KeyValue -> KeyValue -> Bool
(KeyValue -> KeyValue -> Bool)
-> (KeyValue -> KeyValue -> Bool) -> Eq KeyValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: KeyValue -> KeyValue -> Bool
== :: KeyValue -> KeyValue -> Bool
$c/= :: KeyValue -> KeyValue -> Bool
/= :: KeyValue -> KeyValue -> Bool
Prelude.Eq, Eq KeyValue
Eq KeyValue =>
(KeyValue -> KeyValue -> Ordering)
-> (KeyValue -> KeyValue -> Bool)
-> (KeyValue -> KeyValue -> Bool)
-> (KeyValue -> KeyValue -> Bool)
-> (KeyValue -> KeyValue -> Bool)
-> (KeyValue -> KeyValue -> KeyValue)
-> (KeyValue -> KeyValue -> KeyValue)
-> Ord KeyValue
KeyValue -> KeyValue -> Bool
KeyValue -> KeyValue -> Ordering
KeyValue -> KeyValue -> KeyValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: KeyValue -> KeyValue -> Ordering
compare :: KeyValue -> KeyValue -> Ordering
$c< :: KeyValue -> KeyValue -> Bool
< :: KeyValue -> KeyValue -> Bool
$c<= :: KeyValue -> KeyValue -> Bool
<= :: KeyValue -> KeyValue -> Bool
$c> :: KeyValue -> KeyValue -> Bool
> :: KeyValue -> KeyValue -> Bool
$c>= :: KeyValue -> KeyValue -> Bool
>= :: KeyValue -> KeyValue -> Bool
$cmax :: KeyValue -> KeyValue -> KeyValue
max :: KeyValue -> KeyValue -> KeyValue
$cmin :: KeyValue -> KeyValue -> KeyValue
min :: KeyValue -> KeyValue -> KeyValue
Prelude.Ord)
instance Prelude.Show KeyValue where
  showsPrec :: Int -> KeyValue -> ShowS
showsPrec Int
_ KeyValue
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (KeyValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort KeyValue
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField KeyValue "key" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (ByteString -> f ByteString) -> KeyValue -> f KeyValue
fieldOf Proxy# "key"
_
    = ((ByteString -> f ByteString) -> KeyValue -> f KeyValue)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> KeyValue
-> f KeyValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((KeyValue -> ByteString)
-> (KeyValue -> ByteString -> KeyValue)
-> Lens KeyValue KeyValue ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           KeyValue -> ByteString
_KeyValue'key (\ KeyValue
x__ ByteString
y__ -> KeyValue
x__ {_KeyValue'key = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField KeyValue "createRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "createRevision"
-> (Int64 -> f Int64) -> KeyValue -> f KeyValue
fieldOf Proxy# "createRevision"
_
    = ((Int64 -> f Int64) -> KeyValue -> f KeyValue)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> KeyValue
-> f KeyValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((KeyValue -> Int64)
-> (KeyValue -> Int64 -> KeyValue)
-> Lens KeyValue KeyValue Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           KeyValue -> Int64
_KeyValue'createRevision
           (\ KeyValue
x__ Int64
y__ -> KeyValue
x__ {_KeyValue'createRevision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField KeyValue "modRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "modRevision"
-> (Int64 -> f Int64) -> KeyValue -> f KeyValue
fieldOf Proxy# "modRevision"
_
    = ((Int64 -> f Int64) -> KeyValue -> f KeyValue)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> KeyValue
-> f KeyValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((KeyValue -> Int64)
-> (KeyValue -> Int64 -> KeyValue)
-> Lens KeyValue KeyValue Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           KeyValue -> Int64
_KeyValue'modRevision
           (\ KeyValue
x__ Int64
y__ -> KeyValue
x__ {_KeyValue'modRevision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField KeyValue "version" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "version" -> (Int64 -> f Int64) -> KeyValue -> f KeyValue
fieldOf Proxy# "version"
_
    = ((Int64 -> f Int64) -> KeyValue -> f KeyValue)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> KeyValue
-> f KeyValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((KeyValue -> Int64)
-> (KeyValue -> Int64 -> KeyValue)
-> Lens KeyValue KeyValue Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           KeyValue -> Int64
_KeyValue'version (\ KeyValue
x__ Int64
y__ -> KeyValue
x__ {_KeyValue'version = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField KeyValue "value" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (ByteString -> f ByteString) -> KeyValue -> f KeyValue
fieldOf Proxy# "value"
_
    = ((ByteString -> f ByteString) -> KeyValue -> f KeyValue)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> KeyValue
-> f KeyValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((KeyValue -> ByteString)
-> (KeyValue -> ByteString -> KeyValue)
-> Lens KeyValue KeyValue ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           KeyValue -> ByteString
_KeyValue'value (\ KeyValue
x__ ByteString
y__ -> KeyValue
x__ {_KeyValue'value = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField KeyValue "lease" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "lease" -> (Int64 -> f Int64) -> KeyValue -> f KeyValue
fieldOf Proxy# "lease"
_
    = ((Int64 -> f Int64) -> KeyValue -> f KeyValue)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> KeyValue
-> f KeyValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((KeyValue -> Int64)
-> (KeyValue -> Int64 -> KeyValue)
-> Lens KeyValue KeyValue Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           KeyValue -> Int64
_KeyValue'lease (\ KeyValue
x__ Int64
y__ -> KeyValue
x__ {_KeyValue'lease = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message KeyValue where
  messageName :: Proxy KeyValue -> Text
messageName Proxy KeyValue
_ = String -> Text
Data.Text.pack String
"mvccpb.KeyValue"
  packedMessageDescriptor :: Proxy KeyValue -> ByteString
packedMessageDescriptor Proxy KeyValue
_
    = ByteString
"\n\
      \\bKeyValue\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2'\n\
      \\SIcreate_revision\CAN\STX \SOH(\ETXR\SOcreateRevision\DC2!\n\
      \\fmod_revision\CAN\ETX \SOH(\ETXR\vmodRevision\DC2\CAN\n\
      \\aversion\CAN\EOT \SOH(\ETXR\aversion\DC2\DC4\n\
      \\ENQvalue\CAN\ENQ \SOH(\fR\ENQvalue\DC2\DC4\n\
      \\ENQlease\CAN\ACK \SOH(\ETXR\ENQlease"
  packedFileDescriptor :: Proxy KeyValue -> ByteString
packedFileDescriptor Proxy KeyValue
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor KeyValue)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor KeyValue
key__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor KeyValue ByteString
-> FieldDescriptor KeyValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens KeyValue KeyValue ByteString ByteString
-> FieldAccessor KeyValue ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor KeyValue
        createRevision__field_descriptor :: FieldDescriptor KeyValue
createRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor KeyValue Int64
-> FieldDescriptor KeyValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"create_revision"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens KeyValue KeyValue Int64 Int64
-> FieldAccessor KeyValue Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"createRevision")) ::
              Data.ProtoLens.FieldDescriptor KeyValue
        modRevision__field_descriptor :: FieldDescriptor KeyValue
modRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor KeyValue Int64
-> FieldDescriptor KeyValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"mod_revision"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens KeyValue KeyValue Int64 Int64
-> FieldAccessor KeyValue Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"modRevision")) ::
              Data.ProtoLens.FieldDescriptor KeyValue
        version__field_descriptor :: FieldDescriptor KeyValue
version__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor KeyValue Int64
-> FieldDescriptor KeyValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"version"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens KeyValue KeyValue Int64 Int64
-> FieldAccessor KeyValue Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version")) ::
              Data.ProtoLens.FieldDescriptor KeyValue
        value__field_descriptor :: FieldDescriptor KeyValue
value__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor KeyValue ByteString
-> FieldDescriptor KeyValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens KeyValue KeyValue ByteString ByteString
-> FieldAccessor KeyValue ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor KeyValue
        lease__field_descriptor :: FieldDescriptor KeyValue
lease__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor KeyValue Int64
-> FieldDescriptor KeyValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"lease"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens KeyValue KeyValue Int64 Int64
-> FieldAccessor KeyValue Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lease")) ::
              Data.ProtoLens.FieldDescriptor KeyValue
      in
        [(Tag, FieldDescriptor KeyValue)]
-> Map Tag (FieldDescriptor KeyValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor KeyValue
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor KeyValue
createRevision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor KeyValue
modRevision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor KeyValue
version__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor KeyValue
value__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor KeyValue
lease__field_descriptor)]
  unknownFields :: Lens' KeyValue FieldSet
unknownFields
    = (KeyValue -> FieldSet)
-> (KeyValue -> FieldSet -> KeyValue) -> Lens' KeyValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        KeyValue -> FieldSet
_KeyValue'_unknownFields
        (\ KeyValue
x__ FieldSet
y__ -> KeyValue
x__ {_KeyValue'_unknownFields = y__})
  defMessage :: KeyValue
defMessage
    = KeyValue'_constructor
        {_KeyValue'key :: ByteString
_KeyValue'key = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _KeyValue'createRevision :: Int64
_KeyValue'createRevision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _KeyValue'modRevision :: Int64
_KeyValue'modRevision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _KeyValue'version :: Int64
_KeyValue'version = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _KeyValue'value :: ByteString
_KeyValue'value = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _KeyValue'lease :: Int64
_KeyValue'lease = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _KeyValue'_unknownFields :: FieldSet
_KeyValue'_unknownFields = []}
  parseMessage :: Parser KeyValue
parseMessage
    = let
        loop :: KeyValue -> Data.ProtoLens.Encoding.Bytes.Parser KeyValue
        loop :: KeyValue -> Parser KeyValue
loop KeyValue
x
          = do end <- Parser Bool
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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
16
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"create_revision"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"createRevision") y x)
                        Word64
24
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"mod_revision"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"modRevision") y x)
                        Word64
32
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"version"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"version") y x)
                        Word64
42
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
48
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"lease"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lease") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser KeyValue -> String -> Parser KeyValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do KeyValue -> Parser KeyValue
loop KeyValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"KeyValue"
  buildMessage :: KeyValue -> Builder
buildMessage
    = \ KeyValue
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString KeyValue KeyValue ByteString ByteString
-> KeyValue -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") KeyValue
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v
                     = FoldLike Int64 KeyValue KeyValue Int64 Int64 -> KeyValue -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"createRevision") KeyValue
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Int64
_v
                        = FoldLike Int64 KeyValue KeyValue Int64 Int64 -> KeyValue -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"modRevision") KeyValue
_x
                    in
                      if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
                            ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Int64
_v = FoldLike Int64 KeyValue KeyValue Int64 Int64 -> KeyValue -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version") KeyValue
_x
                       in
                         if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                             Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         else
                             Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
32)
                               ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: ByteString
_v = FoldLike ByteString KeyValue KeyValue ByteString ByteString
-> KeyValue -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") KeyValue
_x
                          in
                            if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            else
                                Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                                  ((\ ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                     ByteString
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Int64
_v = FoldLike Int64 KeyValue KeyValue Int64 Int64 -> KeyValue -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lease") KeyValue
_x
                             in
                               if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                   Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               else
                                   Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
48)
                                     ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                        Int64
_v))
                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                               (FoldLike FieldSet KeyValue KeyValue FieldSet FieldSet
-> KeyValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet KeyValue KeyValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' KeyValue FieldSet
Data.ProtoLens.unknownFields KeyValue
_x)))))))
instance Control.DeepSeq.NFData KeyValue where
  rnf :: KeyValue -> ()
rnf
    = \ KeyValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (KeyValue -> FieldSet
_KeyValue'_unknownFields KeyValue
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (KeyValue -> ByteString
_KeyValue'key KeyValue
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (KeyValue -> Int64
_KeyValue'createRevision KeyValue
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (KeyValue -> Int64
_KeyValue'modRevision KeyValue
x__)
                      (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (KeyValue -> Int64
_KeyValue'version KeyValue
x__)
                         (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (KeyValue -> ByteString
_KeyValue'value KeyValue
x__)
                            (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (KeyValue -> Int64
_KeyValue'lease KeyValue
x__) ()))))))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \\CANetcd/api/mvccpb/kv.proto\DC2\ACKmvccpb\SUB\DC4gogoproto/gogo.proto\"\174\SOH\n\
    \\bKeyValue\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2'\n\
    \\SIcreate_revision\CAN\STX \SOH(\ETXR\SOcreateRevision\DC2!\n\
    \\fmod_revision\CAN\ETX \SOH(\ETXR\vmodRevision\DC2\CAN\n\
    \\aversion\CAN\EOT \SOH(\ETXR\aversion\DC2\DC4\n\
    \\ENQvalue\CAN\ENQ \SOH(\fR\ENQvalue\DC2\DC4\n\
    \\ENQlease\CAN\ACK \SOH(\ETXR\ENQlease\"\163\SOH\n\
    \\ENQEvent\DC2+\n\
    \\EOTtype\CAN\SOH \SOH(\SO2\ETB.mvccpb.Event.EventTypeR\EOTtype\DC2 \n\
    \\STXkv\CAN\STX \SOH(\v2\DLE.mvccpb.KeyValueR\STXkv\DC2)\n\
    \\aprev_kv\CAN\ETX \SOH(\v2\DLE.mvccpb.KeyValueR\ACKprevKv\" \n\
    \\tEventType\DC2\a\n\
    \\ETXPUT\DLE\NUL\DC2\n\
    \\n\
    \\ACKDELETE\DLE\SOHB3Z\GSgo.etcd.io/etcd/api/v3/mvccpb\200\225\RS\NUL\208\225\RS\NUL\200\226\RS\SOH\208\226\RS\SOH\224\226\RS\SOHJ\194\SO\n\
    \\ACK\DC2\EOT\NUL\NUL2\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\SOH\NUL\SI\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\ETX\NUL\RS\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ENQ\NUL4\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\ENQ\NUL4\n\
    \\b\n\
    \\SOH\b\DC2\ETX\a\NUL(\n\
    \\v\n\
    \\EOT\b\169\236\ETX\DC2\ETX\a\NUL(\n\
    \\b\n\
    \\SOH\b\DC2\ETX\b\NUL$\n\
    \\v\n\
    \\EOT\b\172\236\ETX\DC2\ETX\b\NUL$\n\
    \\b\n\
    \\SOH\b\DC2\ETX\t\NUL*\n\
    \\v\n\
    \\EOT\b\170\236\ETX\DC2\ETX\t\NUL*\n\
    \\b\n\
    \\SOH\b\DC2\ETX\n\
    \\NUL/\n\
    \\v\n\
    \\EOT\b\153\236\ETX\DC2\ETX\n\
    \\NUL/\n\
    \\b\n\
    \\SOH\b\DC2\ETX\v\NUL3\n\
    \\v\n\
    \\EOT\b\154\236\ETX\DC2\ETX\v\NUL3\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT\r\NUL\RS\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\r\b\DLE\n\
    \D\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SI\STX\DLE\SUB7 key is the key in bytes. An empty key is not allowed.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\SI\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SI\b\v\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SI\SO\SI\n\
    \L\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\DC1\STX\FS\SUB? create_revision is the revision of last creation on this key.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\DC1\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DC1\b\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DC1\SUB\ESC\n\
    \M\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX\DC3\STX\EM\SUB@ mod_revision is the revision of last modification on this key.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\DC3\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\DC3\b\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\DC3\ETB\CAN\n\
    \\145\SOH\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\ETX\ETB\STX\DC4\SUB\131\SOH version is the version of the key. A deletion resets\n\
    \ the version to zero and any modification of the key\n\
    \ increases its version.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX\ETB\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\ETB\b\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\ETB\DC2\DC3\n\
    \<\n\
    \\EOT\EOT\NUL\STX\EOT\DC2\ETX\EM\STX\DC2\SUB/ value is the value held by the key, in bytes.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ENQ\DC2\ETX\EM\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX\EM\b\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX\EM\DLE\DC1\n\
    \\179\SOH\n\
    \\EOT\EOT\NUL\STX\ENQ\DC2\ETX\GS\STX\DC2\SUB\165\SOH lease is the ID of the lease that attached to key.\n\
    \ When the attached lease expires, the key will be deleted.\n\
    \ If lease is 0, then no lease is attached to the key.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ENQ\DC2\ETX\GS\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX\GS\b\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX\GS\DLE\DC1\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT \NUL2\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX \b\r\n\
    \\f\n\
    \\EOT\EOT\SOH\EOT\NUL\DC2\EOT!\STX$\ETX\n\
    \\f\n\
    \\ENQ\EOT\SOH\EOT\NUL\SOH\DC2\ETX!\a\DLE\n\
    \\r\n\
    \\ACK\EOT\SOH\EOT\NUL\STX\NUL\DC2\ETX\"\EOT\f\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\NUL\SOH\DC2\ETX\"\EOT\a\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\NUL\STX\DC2\ETX\"\n\
    \\v\n\
    \\r\n\
    \\ACK\EOT\SOH\EOT\NUL\STX\SOH\DC2\ETX#\EOT\SI\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\SOH\SOH\DC2\ETX#\EOT\n\
    \\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\SOH\STX\DC2\ETX#\r\SO\n\
    \\167\SOH\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX(\STX\NAK\SUB\153\SOH type is the kind of event. If type is a PUT, it indicates\n\
    \ new data has been stored to the key. If type is a DELETE,\n\
    \ it indicates the key was deleted.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX(\STX\v\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX(\f\DLE\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX(\DC3\DC4\n\
    \\140\STX\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX.\STX\DC2\SUB\254\SOH kv holds the KeyValue for the event.\n\
    \ A PUT event contains current kv pair.\n\
    \ A PUT event with kv.Version=1 indicates the creation of a key.\n\
    \ A DELETE/EXPIRE event contains the deleted key with\n\
    \ its modification revision set to the revision of deletion.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX.\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX.\v\r\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX.\DLE\DC1\n\
    \I\n\
    \\EOT\EOT\SOH\STX\STX\DC2\ETX1\STX\ETB\SUB< prev_kv holds the key-value pair before the event happens.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX1\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX1\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX1\NAK\SYNb\ACKproto3"